pkulev/sex
1
0
Fork 0
forked from alex-eg/sex
Code Pull Requests Activity

Make Sex templates more pleasant syntactically

Browse Source 
No more unquotes to instantiate templates.
Also no need to pass quoted substitution lists, just use them as
regular lisp macros.
This commit is contained in:
alex-eg
2025-07-11 18:27:50 +03:00
parent 162d4f5322
commit 37a252f2b1
5 changed files with 118 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
sexc.scm
View File

@@ -3,6 +3,7 @@
(import brev-separate
(chicken pathname)
(chicken plist)
(chicken pretty-print)
(chicken process-context)
(chicken string)
@@ -83,6 +84,14 @@
(char=? #\. (string-ref (symbol->string (car form)) 0)))
(cons (make-field-access form) acc))
;; another special case - template
((template? form)
(append (fold
walk-generic
(list)
(eval form))
acc))
;; toplevel, or a start of a regular list form
(else
(let ((new-acc (list)))
@@ -134,18 +143,26 @@
(append (walk-generic (list 'static (cdr form)) (list)) acc))
(else (error "Pub what?"))))
(define (template? form)
(and (list? form)
(symbol? (car form))
(get (car form) 'sex-template)))
(define (walk-sex-tree form acc)
(if (list? form)
(case (car form)
((fn) (walk-function form #t acc))
((extern) (walk-extern form acc))
((pub) (walk-public form acc))
((struct union) (walk-struct form acc))
((unquote) (fold (fn (walk-sex-tree x y))
acc
(eval (cadr form))))
(else (append (walk-generic form (list)) acc)))
(if (template? form)
(fold (fn (walk-sex-tree x y))
acc
(eval form))
(case (car form)
((fn) (walk-function form #t acc))
((extern) (walk-extern form acc))
((pub) (walk-public form acc))
((struct union) (walk-struct form acc))
((unquote) (fold (fn (walk-sex-tree x y))
acc
(eval (cadr form))))
(else (append (walk-generic form (list)) acc))))
;; only for unquote support
(list (list (atom-to-fmt-c form)))))