Changeset 14499 in project


Ignore:
Timestamp:
04/28/09 23:07:06 (11 years ago)
Author:
Ivan Raikov
Message:

srfi-37 ported to Chicken 4

Location:
release/4/srfi-37
Files:
1 deleted
3 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/srfi-37/srfi-37.meta

    r9654 r14499  
    11;;; srfi-37.meta -*- Hen -*-
     2
    23((egg "srfi-37.egg")
    34 (files "srfi-37.scm" "srfi-37.setup" "srfi-37.html")
  • release/4/srfi-37/srfi-37.scm

    r1967 r14499  
    88
    99
    10 (declare
    11   (usual-integrations)
    12   (fixnum)
    13   (disable-interrupts)
    14   (export
    15         option
    16         option?
    17         option-names option-required-arg? option-optional-arg? option-processor
    18         args-fold) )
     10(module srfi-37
    1911
    20 (cond-expand
    21  [paranoia]
    22  [else (declare (no-bound-checks))] )
     12  (option
     13   option?
     14   option-names option-required-arg? option-optional-arg? option-processor
     15   args-fold)
    2316
    24 (cond-expand
    25  [unsafe
    26   (eval-when (compile)
    27     (define-macro (##sys#check-structure . _) '(##core#undefined))
    28     (define-macro (##sys#check-range . _) '(##core#undefined))
    29     (define-macro (##sys#check-pair . _) '(##core#undefined))
    30     (define-macro (##sys#check-list . _) '(##core#undefined))
    31     (define-macro (##sys#check-symbol . _) '(##core#undefined))
    32     (define-macro (##sys#check-string . _) '(##core#undefined))
    33     (define-macro (##sys#check-char . _) '(##core#undefined))
    34     (define-macro (##sys#check-exact . _) '(##core#undefined))
    35     (define-macro (##sys#check-port . _) '(##core#undefined))
    36     (define-macro (##sys#check-number . _) '(##core#undefined))
    37     (define-macro (##sys#check-byte-vector . _) '(##core#undefined)) ) ]
    38  [else] )
     17  (import scheme chicken data-structures)
    3918
    40 (register-feature! 'srfi-37)
    4119
    4220(define (option names req opt pro)
     
    200178                        (scan-args args seeds) ) ) ) ) ) ) )
    201179      (scan-args args seeds))))
     180)
  • release/4/srfi-37/srfi-37.setup

    r3591 r14499  
    1 (define has-exports? (string>=? (chicken-version) "2.310"))
     1;;; -*- Hen -*-
    22
    3 (compile -s -O2 -d1
    4         ,@(if has-exports? '(-check-imports -emit-exports srfi-37.exports) '())
    5         srfi-37.scm)
     3(define (dynld-name fn)         
     4  (make-pathname #f fn ##sys#load-dynamic-extension))   
    65
    7 (compile -c -O2 -d1 srfi-37 -unit srfi-37 -o srfi-37.o)
     6(compile -s -O2 -d1 srfi-37.scm -j srfi-37)
     7(compile -s srfi-37.import.scm)
    88
    99(install-extension 'srfi-37
    10  '("srfi-37.so" "srfi-37.o" "srfi-37.html")
    11  `((version 1.1)
    12    (static "srfi-37.o")
    13    ,@(if has-exports? `((exports "srfi-37.exports")) '())
     10 `(,(dynld-name "srfi-37") ,(dynld-name "srfi-37.import")  "srfi-37.html")
     11 `((version 1.2)
    1412   (documentation "srfi-37.html") ) )
Note: See TracChangeset for help on using the changeset viewer.