50 lines
1.3 KiB
Racket
50 lines
1.3 KiB
Racket
#lang honu/private
|
|
|
|
(require (prefix-in racket: (combine-in racket/base racket/list racket/file)))
|
|
|
|
;; require's and provide's a module
|
|
(define-syntax-rule (provide-module module ...)
|
|
(begin
|
|
(begin
|
|
(racket:require module)
|
|
(racket:provide [all-from-out module]))
|
|
...))
|
|
|
|
(provide-module "core/main.rkt"
|
|
"private/common.rkt"
|
|
"private/common.honu"
|
|
;;"private/struct.honu"
|
|
;;"private/function.honu"
|
|
)
|
|
|
|
(racket:provide sqr sqrt sin max min
|
|
number? symbol?
|
|
null
|
|
null?
|
|
length
|
|
substring
|
|
format
|
|
integer
|
|
cos sin
|
|
random
|
|
filter
|
|
append
|
|
values
|
|
hash
|
|
regexp
|
|
error
|
|
(racket:rename-out
|
|
[honu-cond cond]
|
|
[null empty]
|
|
[make-hash mutable_hash]
|
|
[hash-set! hash_update]
|
|
[hash-ref hash_lookup]
|
|
[current-inexact-milliseconds currentMilliseconds]
|
|
[string-length string_length]
|
|
[string-append string_append]
|
|
[current-command-line-arguments commandLineArguments]
|
|
[racket:find-files find_files]
|
|
[racket:empty? empty?]
|
|
[regexp-match regexp_match]
|
|
[racket:rest rest]))
|