Changeset 39059 in project

Timestamp:

10/15/20 09:58:23 (3 months ago)

Author:

Kooda

Message:

Port the dollar egg to CHICKEN 5

Location:

release/5

Files:

• dollar (added)
• dollar/tags (added)
• dollar/tags/3.0.0 (copied) (copied from release/4/dollar/trunk)
• dollar/tags/3.0.0/dollar.egg (added)
• dollar/tags/3.0.0/dollar.scm (modified) (3 diffs)
• dollar/tags/3.0.0/tests/run.scm (modified) (1 diff)
• dollar/tags/3.0.0/tests/t1.scm (modified) (2 diffs)
• dollar/trunk (copied) (copied from release/4/dollar/trunk)
• dollar/trunk/dollar.egg (added)
• dollar/trunk/dollar.scm (modified) (3 diffs)
• dollar/trunk/tests/run.scm (modified) (1 diff)
• dollar/trunk/tests/t1.scm (modified) (2 diffs)
• egg-locations (modified) (1 diff)

release/5/dollar/tags/3.0.0/dollar.scm

@@ -38 +38 @@
 (module dollar ($)
 
-  (import scheme chicken foreign)
+  (import scheme (chicken base) (chicken foreign) (chicken syntax))
   (begin-for-syntax
-   (require-extension srfi-4))
+   (import (chicken string) srfi-4))
 
 ;;
@@ -54 +54 @@
             (_char (rnm 'char))
             (_int (rnm 'int))
+            (_integer64 (rnm 'integer64))
             (_double (rnm 'double))
             (_symbol (rnm 'symbol))
@@ -75 +76 @@
       (define (ensure-typed-atom val)
         (cond ((fixnum? val)      `(,_int ,val))
-              ((number? val)      `(,_double ,val))
+              ((bignum? val)      `(,_integer64 ,val))
+              ((flonum? val)      `(,_double ,val))
               ((string? val)      `(,_nonnull-c-string ,val))
               ((char? val)        `(,_char ,val))

release/5/dollar/tags/3.0.0/tests/run.scm

@@ -2 +2 @@
 
 
-(use setup-api)
+(import shell)
 
 (run (csc t1.scm))

release/5/dollar/tags/3.0.0/tests/t1.scm

@@ -2 +2 @@
 
 
-(use dollar)
+(import dollar)
 
 
@@ -14 +14 @@
   (print r))
 
-
+($ printf "%lu big number!\n" 4611686018427387904)

release/5/dollar/trunk/dollar.scm

@@ -38 +38 @@
 (module dollar ($)
 
-  (import scheme chicken foreign)
+  (import scheme (chicken base) (chicken foreign) (chicken syntax))
   (begin-for-syntax
-   (require-extension srfi-4))
+   (import (chicken string) srfi-4))
 
 ;;
@@ -54 +54 @@
             (_char (rnm 'char))
             (_int (rnm 'int))
+            (_integer64 (rnm 'integer64))
             (_double (rnm 'double))
             (_symbol (rnm 'symbol))
@@ -75 +76 @@
       (define (ensure-typed-atom val)
         (cond ((fixnum? val)      `(,_int ,val))
-              ((number? val)      `(,_double ,val))
+              ((bignum? val)      `(,_integer64 ,val))
+              ((flonum? val)      `(,_double ,val))
               ((string? val)      `(,_nonnull-c-string ,val))
               ((char? val)        `(,_char ,val))

release/5/dollar/trunk/tests/run.scm

@@ -2 +2 @@
 
 
-(use setup-api)
+(import shell)
 
 (run (csc t1.scm))

release/5/dollar/trunk/tests/t1.scm

@@ -2 +2 @@
 
 
-(use dollar)
+(import dollar)
 
 
@@ -14 +14 @@
   (print r))
 
-
+($ printf "%lu big number!\n" 4611686018427387904)

release/5/egg-locations

@@ -81 +81 @@
 (directory-utils "http://code.call-cc.org/release-info?egg={egg-name};release={chicken-release}")
 (doctype "https://raw.githubusercontent.com/ursetto/{egg-name}-egg/master/{egg-name}.release-info")
+(dollar "http://code.call-cc.org/release-info?egg={egg-name};release={chicken-release}")
 (dot-locking "http://code.call-cc.org/release-info?egg={egg-name};release={chicken-release}")
 (dotted-lambdas "http://code.call-cc.org/release-info?egg={egg-name};release={chicken-release}")