Changeset 39008 in project


Ignore:
Timestamp:
09/09/20 16:21:54 (2 weeks ago)
Author:
juergen
Message:

premodules 0.3 with commands and parameter

Location:
release/5/premodules/tags/0.3
Files:
3 added
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/premodules/tags/0.3/premodules.egg

    r39002 r39008  
    33((synopsis "Converting a premodule into module, test and doc files")
    44 (category doc-tools)
    5  (version "0.2")
     5 (version "0.3")
    66 (license "BSD")
    77 (dependencies simple-tests)
    88 (author "Juergen Lorenz")
    99 (components (extension premodules
    10                         (csc-options "-O2" "-d0"))))
     10                        (csc-options "-O2" "-d0"))
     11             (data premodule2module.scm)
     12             (data premodule2docs.scm)
     13             (data premodule2tests.scm)
     14             ))
  • release/5/premodules/tags/0.3/premodules.scm

    r39002 r39008  
    1717(module premodules (
    1818  premodules
     19  license
    1920  premodule->module
    2021  premodule->tests
     
    3334          (only (chicken time posix) seconds->string)
    3435          )
     36
     37(define license
     38  (make-parameter "../license.txt"
     39                  (lambda (x)
     40                    (if (string? x)
     41                      x
     42                      "../license.txt"))))
    3543
    3644(define dissect-premodule
     
    248256
    249257(define license.lst ;(file->list "license.txt"))
    250   (with-input-from-file "license.txt"
     258  (with-input-from-file (license) ;"license.txt"
    251259    (lambda ()
    252260      (read-lines))))
    253261
    254262
    255 (define (license-author license)
    256   (string-intersperse (string-split (cadr (string-split (car license) ",")))
     263(define (license-author licens)
     264  (string-intersperse (string-split (cadr (string-split (car licens) ",")))
    257265                      " "))
    258266
     
    519527                    "without sym: list of exported symbols"
    520528                    "with sym: docu of exported sym")
     529                  (license
     530                    parameter:
     531                    (license)
     532                    (license new)
     533                    "returns or updates the license file")
    521534                  (premodule->module
    522535                    procedure:
     
    546559
    547560;(import premodules simple-tests (chicken port))
     561;(premodule->module "../dotted-lambdas/dotted-lambdas.pre.scm"
     562;                  "dl.scm")
     563;(premodule->tests "../dotted-lambdas/dotted-lambdas.pre.scm"
     564;                  "dlrun.scm")
     565;(premodule->docs "../dotted-lambdas/dotted-lambdas.pre.scm"
     566;                  "dl")
Note: See TracChangeset for help on using the changeset viewer.