Changeset 39059 in project


Ignore:
Timestamp:
10/15/20 09:58:23 (2 weeks ago)
Author:
Kooda
Message:

Port the dollar egg to CHICKEN 5

Location:
release/5
Files:
4 added
7 edited
2 copied

Legend:

Unmodified
Added
Removed
  • release/5/dollar/tags/3.0.0/dollar.scm

    r19765 r39059  
    3838(module dollar ($)
    3939
    40   (import scheme chicken foreign)
     40  (import scheme (chicken base) (chicken foreign) (chicken syntax))
    4141  (begin-for-syntax
    42    (require-extension srfi-4))
     42   (import (chicken string) srfi-4))
    4343
    4444;;
     
    5454            (_char (rnm 'char))
    5555            (_int (rnm 'int))
     56            (_integer64 (rnm 'integer64))
    5657            (_double (rnm 'double))
    5758            (_symbol (rnm 'symbol))
     
    7576      (define (ensure-typed-atom val)
    7677        (cond ((fixnum? val)      `(,_int ,val))
    77               ((number? val)      `(,_double ,val))
     78              ((bignum? val)      `(,_integer64 ,val))
     79              ((flonum? val)      `(,_double ,val))
    7880              ((string? val)      `(,_nonnull-c-string ,val))
    7981              ((char? val)        `(,_char ,val))
  • release/5/dollar/tags/3.0.0/tests/run.scm

    r19765 r39059  
    22
    33
    4 (use setup-api)
     4(import shell)
    55
    66(run (csc t1.scm))
  • release/5/dollar/tags/3.0.0/tests/t1.scm

    r19765 r39059  
    22
    33
    4 (use dollar)
     4(import dollar)
    55
    66
     
    1414  (print r))
    1515
    16 
     16($ printf "%lu big number!\n" 4611686018427387904)
  • release/5/dollar/trunk/dollar.scm

    r19765 r39059  
    3838(module dollar ($)
    3939
    40   (import scheme chicken foreign)
     40  (import scheme (chicken base) (chicken foreign) (chicken syntax))
    4141  (begin-for-syntax
    42    (require-extension srfi-4))
     42   (import (chicken string) srfi-4))
    4343
    4444;;
     
    5454            (_char (rnm 'char))
    5555            (_int (rnm 'int))
     56            (_integer64 (rnm 'integer64))
    5657            (_double (rnm 'double))
    5758            (_symbol (rnm 'symbol))
     
    7576      (define (ensure-typed-atom val)
    7677        (cond ((fixnum? val)      `(,_int ,val))
    77               ((number? val)      `(,_double ,val))
     78              ((bignum? val)      `(,_integer64 ,val))
     79              ((flonum? val)      `(,_double ,val))
    7880              ((string? val)      `(,_nonnull-c-string ,val))
    7981              ((char? val)        `(,_char ,val))
  • release/5/dollar/trunk/tests/run.scm

    r19765 r39059  
    22
    33
    4 (use setup-api)
     4(import shell)
    55
    66(run (csc t1.scm))
  • release/5/dollar/trunk/tests/t1.scm

    r19765 r39059  
    22
    33
    4 (use dollar)
     4(import dollar)
    55
    66
     
    1414  (print r))
    1515
    16 
     16($ printf "%lu big number!\n" 4611686018427387904)
  • release/5/egg-locations

    r39044 r39059  
    8181(directory-utils "http://code.call-cc.org/release-info?egg={egg-name};release={chicken-release}")
    8282(doctype "https://raw.githubusercontent.com/ursetto/{egg-name}-egg/master/{egg-name}.release-info")
     83(dollar "http://code.call-cc.org/release-info?egg={egg-name};release={chicken-release}")
    8384(dot-locking "http://code.call-cc.org/release-info?egg={egg-name};release={chicken-release}")
    8485(dotted-lambdas "http://code.call-cc.org/release-info?egg={egg-name};release={chicken-release}")
Note: See TracChangeset for help on using the changeset viewer.