alex-eg/sex
1
0
Fork 1
Code Issues 3 Pull Requests 1 Actions Packages Projects 1 Releases Wiki Activity

prettify --help output and add it to Readme.org

Browse Source
This commit is contained in:
alex-eg
2025-07-28 20:22:36 +03:00
parent d2998f79ff
commit 4be0d3f5ac
2 changed files with 40 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
sexc.scm
View File

@@ -278,32 +278,35 @@
;;; Main function facilities
(define opts-grammar
`((c-compiler "Select C compiler. Defaults to value of SEX_CC environment variable, or if it is empty, to cc"
(required #f)
(value #t))
(compile-object "Compile object file instead of executable program"
(required #f)
(value #f)
(single-char #\c))
(preprocess "Emit C code"
(required #f)
(value #f)
(single-char #\E))
(public-interface "Get module's public interface"
(let ((padding 26))
`((c-compiler ,(fmt #f "Select C compiler. Defaults to value of SEX_CC" nl
(pad padding) "environment variable, or if it is empty, to cc")
(required #f)
(value #t))
(compile-object "Compile object file instead of executable program"
(required #f)
(value #f))
(help "Show this help"
(required #f)
(value #f)
(single-char #\h))
(macro-expand "Emit macro-expanded Sex code"
(value #f)
(single-char #\c))
(preprocess "Emit C code"
(required #f)
(value #f)
(single-char #\m))
(output "Write output to file. Default file name is a.out. If -E or -m options are provided, defaults to stdout"
(single-char #\E))
(public-interface "Get module's public interface"
(required #f)
(value #f))
(help "Show this help"
(required #f)
(value #t)
(single-char #\o))))
(value #f)
(single-char #\h))
(macro-expand "Emit macro-expanded Sex code"
(required #f)
(value #f)
(single-char #\m))
(output ,(fmt #f "Write output to file. Default file name is a.out." nl
(pad padding) "If -E or -m options are provided, defaults to stdout")
(required #f)
(value #t)
(single-char #\o)))))
(define (print-help)
(fmt #t "Usage: sexc [options] filename [-- options-for-c-compiler]\n")