gencomp 方面ですが

gauche

迷走中。迷走するのは良いのですが、きちんと整理しつつ進めないとイケマセン。とりあえず備忘録までマニュアルの URL を以下に控えておきつつ

どうしたもんかな、というのがぶっちゃけな現状 (を

昼間に

短い時間でも良いから集中してナニできる時間が欲しいな (を

なるほど

以下な手続きが出発点なんですが

(define (main args)
  (let-args (cdr args)
      ((keep-private-macro "keep-private-macro=s" #f)
       (ext-module "ext-module=s" #f)
       (output-base "o|output=s" #f)
       . args)
    (when keep-private-macro
      (private-macros-to-keep
       (map string->symbol (string-split keep-private-macro #\,))))
    (match args
      ((scmfile)
       (when ext-module
         (ext-module-file (ensure-ext-module-file ext-module)))
       (do-it scmfile (or output-base
                          (sys-basename (path-sans-extension scmfile))))
       (when ext-module (close-output-port (ext-module-file))))
      (else (print "Usage: gosh gencomp [--keep-macro] <file.scm>")
            (exit 0)))
    0))

分かってねぇから細かい部分が気になるのか。似たナニを動かしてみりゃええんでしょうが、ソレがデキる心の余裕が云々、というあたりかと。