hans/js-maker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove unused private modules

Browse Source
This commit is contained in:
Hans Dijkema
2026-05-27 16:52:41 +02:00
parent f8698692ee
commit 92d4461203
5 changed files with 2 additions and 283 deletions
Download Patch File Download Diff File Expand all files Collapse all files
README.md
+1 -17
View File
@@ -11,11 +11,8 @@ evolved under supervision of the author using ChatGPT as AI agent.
js-maker/
main.rkt public macro module
info.rkt package metadata and package test entry
private/
syntax-helpers.rkt compatibility/helper material
utils.rkt compatibility/helper material
scrbl/
jsmaker.scrbl Scribble documentation
js-maker.scrbl Scribble documentation
testing/
jsmaker-executors.rkt JavaScript engine discovery/execution
jsmaker-test-framework.rkt JS regression framework
@@ -29,18 +26,6 @@ js-maker/
show-optimized.rkt
```
## Notes on private helpers
Static analysis of this package layout shows that `main.rkt`, the test
infrastructure, the regression tests, demos and Scribble documentation do not
require `private/utils.rkt` or `private/syntax-helpers.rkt`. Those files are
retained as compatibility material from the source project and are omitted from
compilation and the package test entry point in `info.rkt`.
The current public module has no dependency on Gregor or the old helper
modules. Gregor-style date/time forms are translated syntactically by
`main.rkt` into a small JavaScript-side representation.
## Added language support
This package includes conservative support for:
@@ -98,7 +83,6 @@ Belangrijk:
voorkom versieverwarring door alles in die buildmap te kopiëren/patchen.
- Houd de package-structuur stabiel:
- main.rkt voor de publieke module;
- private/ voor helpers en utils;
- testing/ voor test-infrastructuur en regressietests;
- demo/ voor demonstratiebestanden;
- info.rkt voor package metadata en test entry points.
info.rkt
+1 -10
View File
@@ -20,9 +20,7 @@
;; These files are supporting/reference files in this package layout and are
;; not part of the package test entry point.
(define test-omit-paths
'("private/utils.rkt"
"private/syntax-helpers.rkt"
"demo/show-jsmaker-output.rkt"
'("demo/show-jsmaker-output.rkt"
"demo/show-optimized.rkt"
"testing/jsmaker-executors.rkt"
"testing/jsmaker-test-framework.rkt"
@@ -34,10 +32,3 @@
"testing/jsmaker-usecases.rkt"
"testing/jsmaker-list-regression.rkt"
"testing/jsmaker-hash-regression.rkt"))
;; The private files are compatibility/support material and have project-local
;; dependencies in downstream copies. The public module and tests do not
;; depend on them.
(define compile-omit-paths
'("private/utils.rkt"
"private/syntax-helpers.rkt"))
private/syntax-helpers.rkt
-42
View File
@@ -1,42 +0,0 @@
#lang racket/base
(require racket/string
"utils.rkt"
)
(provide symbol??
symstr
symstr-eval
is-if?)
(define (symbol?? a)
(let ((r (symbol? a)))
r))
(define (symstr x)
(cond
((list? x)
(string-append "[ "
(string-join (map symstr-eval x) ", ")
" ]"))
((vector? x)
(symstr (vector->list x)))
(else
(let ((r (format "~a" x)))
(let ((r* (if (string-prefix? r "(quote")
(let ((s (substring r 7)))
(substring s 0 (- (string-length s) 1)))
r)))
r*)))
)
)
(define (symstr-eval x)
(cond
((string? x) (format "\"~a\"" (esc-double-quote x)))
(else (symstr x))))
(define (is-if? x)
(displayln x)
(eq? x 'if))
private/utils.rkt
-209
View File
@@ -1,209 +0,0 @@
#lang racket/base
(require racket/string
racket/port
racket/contract
json
(prefix-in g: gregor)
(prefix-in g: gregor/time)
gregor-utils
racket-sprintf
simple-log
)
(provide while
until
get-lib-path
do-for
esc-quote
esc-double-quote
fromJson
mk-js-array
js-code
kv-1
kv-2
make-kv
kv?
list-of-kv?
list-of-symbol?
list-of?
string->time
time->string
string->date
date->string
string->datetime
datetime->string
dbg-webview
err-webview
info-webview
warn-webview
fatal-webview
sync-log-webview
)
(sl-def-log webview)
(define-syntax while
(syntax-rules ()
((_ cond body ...)
(letrec ((while-f (lambda (last-result)
(if cond
(let ((last-result (begin
body
...)))
(while-f last-result))
last-result))))
(while-f #f))
)
))
(define-syntax until
(syntax-rules ()
((_ cond body ...)
(letrec ((until-f (lambda (last-result)
(if cond
last-result
(let ((last-reult (begin
body
...)))
(until-f last-result))))))
(until-f #f)))))
(define-syntax do-for
(syntax-rules ()
((_ (init cond next) body ...)
(begin
init
(letrec ((do-for-f (lamba ()
(if cond
(begin
(begin
body
...)
next
(do-for-f))))))
(do-for-f))))))
(define (get-lib-path lib)
(let ((platform (system-type)))
(cond
[(eq? platform 'windows)
(let ((try1 (build-path (current-directory) ".." "lib" "dll" lib))
(try2 (build-path (current-directory) "lib" "dll" lib)))
(if (file-exists? try1)
try1
try2)
)]
[else
(error (format "Install the shared library: ~a" lib))]
)))
(define (esc-quote str)
(string-replace (string-replace str "\\" "\\\\") "'" "\\'"))
(define (esc-double-quote str)
(string-replace (string-replace str "\\" "\\\\") "\"" "\\\""))
(define (fromJson str)
(with-input-from-string str read-json))
(define (mk-js-array l)
(if (list-of-kv? l)
(string-append "[ " (string-join (map (λ (e) (mk-js-array e)) l) ", ") " ]")
(if (list? l)
(string-append "[ " (string-join (map (λ (e) (format "'~a'"
(esc-quote (format "~a" e)))) l) ", ") " ]")
(if (pair? l)
(format "[ '~a', '~a' ]" (car l) (cdr l))
(format "[ '~a' ]" (esc-quote (format "~a" l)))))))
(define (js-code . a)
(define (code* l)
(if (null? l)
""
(string-append (car l) "\n" (code* (cdr l)))
)
)
(code* a))
(define (kv? e)
(or
(and (list? e) (= (length e) 2) (symbol? (car e)))
(and (pair? e) (symbol? (car e)))))
(define/contract (kv-1 e)
(-> kv? symbol?)
(car e))
(define/contract (kv-2 e)
(-> kv? any/c)
(if (list? e)
(cadr e)
(cdr e)))
(define/contract (make-kv k v)
(-> symbol? any/c kv?)
(if (list? v)
(list k v)
(cons k v)))
(define (list-of? pred? l)
(define (all-pred? l)
(if (null? l)
#t
(if (pred? (car l))
(all-pred? (cdr l))
#f)))
(if (list? l)
(all-pred? l)
#f))
(define (list-of-kv? l)
(list-of? kv? l))
(define (list-of-symbol? l)
(list-of? symbol? l))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Date / Time conversion
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (string->time s)
(with-handlers ([exn:fail?
(λ (e) (g:parse-time s "HH:mm"))])
(g:parse-time s "HH:mm:ss")))
(define (time->string t)
(unless (or (g:time? t) (g:datetime? t) (g:moment? t))
(error "set! - gregor time?, moment? or datetime? expected"))
(sprintf "%02d:%02d:%02d" (g:->hours t) (g:->minutes t) (g:->seconds t)))
(define (string->datetime s)
(with-handlers ([exn:fail?
(λ (e) (g:parse-moment s "yyyy-MM-dd'T'HH:mm:ss"))])
(g:parse-moment s "yyyy-MM-dd'T'HH:mm")))
(define (datetime->string dt)
(when (racket-date? dt)
(datetime->string date->moment dt))
(unless (or (g:datetime? dt) (g:moment? dt) (g:date? dt) (g:time? dt))
(error "set! - gregor time? , date?, datetime? or moment? expected"))
(sprintf "%04d:%02d:%02dT%02d:%02d:%02d"
(g:->year dt) (g:->month dt) (g:->day dt)
(g:->hours dt) (g:->minutes dt) (g:->seconds dt))
)
(define (string->date d)
(g:parse-date d "yyyy-MM-dd"))
(define (date->string d)
(when (racket-date? d)
(date->string (date->moment d)))
(unless (or (g:date? d) (g:moment? d) (g:datetime? d))
(error "set! - gregor date expected"))
(sprintf "%04d-%02d-%02d" (g:->year d) (g:->month d) (g:->day d)))
scrbl/js-maker.scrbl
-5
View File
@@ -719,7 +719,6 @@ The package uses this layout:
js-maker/
main.rkt
info.rkt
private/
testing/
demo/
scrbl/
@@ -728,10 +727,6 @@ js-maker/
@filepath{main.rkt} is the public module. @filepath{testing/} contains the
executor and regression framework. @filepath{demo/} contains generated-code
examples. @filepath{scrbl/} contains this reference and the use-case document.
The @filepath{private/} directory contains compatibility/helper material from
the source project. The current public module and tests do not depend on those
private files; they are kept for downstream compatibility and are omitted from
compilation and the package test entry point in @filepath{info.rkt}.
@section{Limitations and non-goals}