Changed module technique from <module_name>- to <module_name>: which
conforms with chicken "egg" standard. Got rid of ##csi#run for relinking the Scheme interpreter as no longer needed. Changed all documentation to reflect both changes. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4411 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Jonah Beckford
parent
704e2ac719
commit
3def239916
20 changed files with 681 additions and 682 deletions
|
|
@ -154,9 +154,10 @@
|
|||
|
||||
|
||||
<p>
|
||||
SWIG CHICKEN does not use the standard CHICKEN module system;
|
||||
instead, it uses a prefix system. Specifying the module name as
|
||||
'example' in SWIG CHICKEN can be done using either of:
|
||||
SWIG CHICKEN does not use the standard CHICKEN module system
|
||||
(which has been deprecated); instead, it uses a prefix system.
|
||||
Specifying the module name as 'example' in SWIG CHICKEN can be
|
||||
done using either of:
|
||||
<ul>
|
||||
<li>Placing <tt>%module example</tt> in the SWIG interface
|
||||
file.</li>
|
||||
|
|
@ -171,7 +172,7 @@
|
|||
|
||||
Normally, for a C declaration <tt>Foo_Bar</tt> with a module
|
||||
name of 'example', the corresponding CHICKEN identifier will be
|
||||
<tt>example-foo-bar</tt>. <strong>The module name and a dash is
|
||||
<tt>example:foo-bar</tt>. <strong>The module name and a colon is
|
||||
prefixed to the CHICKEN identifier</strong> (following normal
|
||||
naming conventions).
|
||||
|
||||
|
|
@ -319,7 +320,6 @@ CHICKEN_HOME=/usr/local/share/chicken</pre>
|
|||
% cd /usr/local/share/chicken
|
||||
% chicken /usr/local/share/chicken/src/csi.scm -optimize-level 3 -quiet \
|
||||
-include-path /usr/local/share/chicken/src \
|
||||
-postlude "(##csi#run)" \
|
||||
-prologue /usr/local/share/chicken/src/build.scm \
|
||||
-prelude "(declare (uses posix precsi))" \
|
||||
-output-file /home/jonah/examples/csi-example.c
|
||||
|
|
|
|||
|
|
@ -18,20 +18,20 @@
|
|||
(define nxpoints 60)
|
||||
(define nypoints 60)
|
||||
|
||||
(define cmap (gifplot-new-ColorMap "cmap"))
|
||||
(define frame (gifplot-new-FrameBuffer 500 500))
|
||||
(gifplot-FrameBuffer-clear frame (gifplot-BLACK))
|
||||
(define cmap (gifplot:new-ColorMap "cmap"))
|
||||
(define frame (gifplot:new-FrameBuffer 500 500))
|
||||
(gifplot:FrameBuffer-clear frame (gifplot:BLACK))
|
||||
|
||||
(define p3 (gifplot-new-Plot3D frame xmin ymin zmin xmax ymax zmax))
|
||||
(gifplot-Plot3D-lookat p3 (* 2 (- zmax zmin)))
|
||||
(gifplot-Plot3D-autoperspective p3 40.0)
|
||||
(gifplot-Plot3D-rotu p3 60.0)
|
||||
(gifplot-Plot3D-rotr p3 30.0)
|
||||
(gifplot-Plot3D-rotd p3 10.0)
|
||||
(define p3 (gifplot:new-Plot3D frame xmin ymin zmin xmax ymax zmax))
|
||||
(gifplot:Plot3D-lookat p3 (* 2 (- zmax zmin)))
|
||||
(gifplot:Plot3D-autoperspective p3 40.0)
|
||||
(gifplot:Plot3D-rotu p3 60.0)
|
||||
(gifplot:Plot3D-rotr p3 30.0)
|
||||
(gifplot:Plot3D-rotd p3 10.0)
|
||||
|
||||
(define (drawsolid)
|
||||
(gifplot-Plot3D-clear p3 (gifplot-BLACK))
|
||||
(gifplot-Plot3D-start p3)
|
||||
(gifplot:Plot3D-clear p3 (gifplot:BLACK))
|
||||
(gifplot:Plot3D-start p3)
|
||||
(let ((dx (/ (- xmax xmin) nxpoints))
|
||||
(dy (/ (- ymax ymin) nypoints))
|
||||
(cscale (/ 240 (- zmax zmin))))
|
||||
|
|
@ -51,14 +51,14 @@
|
|||
(c4 (* cscale (- z4 zmin)))
|
||||
(cc (/ (+ c1 c2 c3 c4) 4))
|
||||
(c (inexact->exact (round (max (min cc 239) 0)))))
|
||||
(gifplot-Plot3D-solidquad p3 x y z1 (+ x dx) y z2 (+ x dx) (+ y dy)
|
||||
(gifplot:Plot3D-solidquad p3 x y z1 (+ x dx) y z2 (+ x dx) (+ y dy)
|
||||
z3 x (+ y dy) z4
|
||||
(gifplot-int->Pixel (+ c 16))))
|
||||
(gifplot:int->Pixel (+ c 16))))
|
||||
(y-loop (+ y dy) (+ j 1)))))
|
||||
(x-loop (+ x dx) (+ i 1)))))))
|
||||
|
||||
(display "Making a nice 3D plot...\n")
|
||||
(drawsolid)
|
||||
|
||||
(gifplot-FrameBuffer-writeGIF frame cmap "image.gif")
|
||||
(gifplot:FrameBuffer-writeGIF frame cmap "image.gif")
|
||||
(display "Wrote image.gif\n")
|
||||
|
|
|
|||
|
|
@ -2,26 +2,26 @@
|
|||
|
||||
(display "Drawing some basic shapes\n")
|
||||
|
||||
(define cmap (simple-new-ColorMap #f))
|
||||
(define f (simple-new-FrameBuffer 400 400))
|
||||
(define cmap (simple:new-ColorMap #f))
|
||||
(define f (simple:new-FrameBuffer 400 400))
|
||||
|
||||
;; Clear the picture
|
||||
(simple-FrameBuffer-clear f (simple-BLACK))
|
||||
(simple:FrameBuffer-clear f (simple:BLACK))
|
||||
|
||||
;; Make a red box
|
||||
(simple-FrameBuffer-box f 40 40 200 200 (simple-RED))
|
||||
(simple:FrameBuffer-box f 40 40 200 200 (simple:RED))
|
||||
|
||||
;; Make a blue circle
|
||||
(simple-FrameBuffer-circle f 200 200 40 (simple-BLUE))
|
||||
(simple:FrameBuffer-circle f 200 200 40 (simple:BLUE))
|
||||
|
||||
;; Make green line
|
||||
(simple-FrameBuffer-line f 10 390 390 200 (simple-GREEN))
|
||||
(simple:FrameBuffer-line f 10 390 390 200 (simple:GREEN))
|
||||
|
||||
;; Write an image out to disk
|
||||
|
||||
(simple-FrameBuffer-writeGIF f cmap "image.gif")
|
||||
(simple:FrameBuffer-writeGIF f cmap "image.gif")
|
||||
(display "Wrote image.gif\n")
|
||||
|
||||
(simple-delete-FrameBuffer f)
|
||||
(simple-delete-ColorMap cmap)
|
||||
(simple:delete-FrameBuffer f)
|
||||
(simple:delete-ColorMap cmap)
|
||||
|
||||
|
|
|
|||
|
|
@ -773,7 +773,6 @@ chicken_csi:
|
|||
X=`pwd` && cd @CHICKENHOME@ && \
|
||||
@CHICKEN@ @CHICKENHOME@/src/csi.scm $(CHICKENOPTS) \
|
||||
-include-path @CHICKENHOME@/src \
|
||||
-postlude "(##csi#run)" \
|
||||
-prologue @CHICKENHOME@/src/build.scm \
|
||||
-prelude "(declare (uses posix $(INTERFACE)))" \
|
||||
-output-file $$X/$(TARGET)
|
||||
|
|
|
|||
|
|
@ -53,30 +53,30 @@ public:
|
|||
(display "CHICKEN Low-Level Procedures\n")
|
||||
(display "----------------------------\n")
|
||||
(display "
|
||||
(define A-CIRCLE-SHAPE (example-new-Circle %radius))
|
||||
(example-Circle-area %circle)
|
||||
(example-Circle-perimeter %circle)
|
||||
(example-delete-Circle %circle)
|
||||
(define A-CIRCLE-SHAPE (example:new-Circle %radius))
|
||||
(example:Circle-area %circle)
|
||||
(example:Circle-perimeter %circle)
|
||||
(example:delete-Circle %circle)
|
||||
|
||||
(define A-SQUARE-SHAPE (example-new-Square %width))
|
||||
(example-Square-area %square)
|
||||
(example-Square-perimeter %square)
|
||||
(example-delete-Square %square)
|
||||
(define A-SQUARE-SHAPE (example:new-Square %width))
|
||||
(example:Square-area %square)
|
||||
(example:Square-perimeter %square)
|
||||
(example:delete-Square %square)
|
||||
|
||||
(example-delete-Shape %shape)
|
||||
(example-Shape-x-set %shape %x)
|
||||
(example-Shape-x-get %shape)
|
||||
(example-Shape-y-set %shape %y)
|
||||
(example-Shape-y-get %shape)
|
||||
(example-Shape-move %shape %dx %dy)
|
||||
(example-Shape-area %shape)
|
||||
(example-Shape-perimeter %shape)
|
||||
(example-Shape-nshapes)
|
||||
(example-Shape-nshapes %nshapes-int)
|
||||
(example-Shape-First)
|
||||
(example-Shape-Second)
|
||||
(example-Shape-Third)
|
||||
(example-Shape-Last)
|
||||
(example:delete-Shape %shape)
|
||||
(example:Shape-x-set %shape %x)
|
||||
(example:Shape-x-get %shape)
|
||||
(example:Shape-y-set %shape %y)
|
||||
(example:Shape-y-get %shape)
|
||||
(example:Shape-move %shape %dx %dy)
|
||||
(example:Shape-area %shape)
|
||||
(example:Shape-perimeter %shape)
|
||||
(example:Shape-nshapes)
|
||||
(example:Shape-nshapes %nshapes-int)
|
||||
(example:Shape-First)
|
||||
(example:Shape-Second)
|
||||
(example:Shape-Third)
|
||||
(example:Shape-Last)
|
||||
")
|
||||
|
||||
(display "\n")
|
||||
|
|
@ -89,7 +89,7 @@ public:
|
|||
;; After generic methods are defined, can include TinyCLOS code
|
||||
(include \"example_clos\")
|
||||
|
||||
(define A-CIRCLE-SHAPE (make <example-Circle> %radius))
|
||||
(define A-CIRCLE-SHAPE (make <example:Circle> %radius))
|
||||
(-get-x- %shapeObject)
|
||||
(-set-x!- %shapeObject %x)
|
||||
(-get-y- %shapeObject)
|
||||
|
|
@ -97,9 +97,9 @@ public:
|
|||
(-move!- %shapeObject %dx %dy)
|
||||
(-area- %shapeObject)
|
||||
(-perimeter- %shapeObject)
|
||||
(+example-Shape-nshapes+)
|
||||
(+example-Shape-nshapes+ %nshapes-int)
|
||||
;; do not use (example-delete-Shape (slot-ref %shapeObject 'this))
|
||||
(+example:Shape-nshapes+)
|
||||
(+example:Shape-nshapes+ %nshapes-int)
|
||||
;; do not use (example:delete-Shape (slot-ref %shapeObject 'this))
|
||||
;; as %shapeObject is always garbage-collected
|
||||
")
|
||||
(display "\n")))
|
||||
|
|
|
|||
|
|
@ -4,11 +4,11 @@
|
|||
;; ----- Object creation -----
|
||||
|
||||
(display "Creating some objects:\n")
|
||||
(define c (example-new-Circle 10.0))
|
||||
(define c (example:new-Circle 10.0))
|
||||
(display " Created circle ")
|
||||
(display c)
|
||||
(display "\n")
|
||||
(define s (example-new-Square 10.0))
|
||||
(define s (example:new-Square 10.0))
|
||||
(display " Created square ")
|
||||
(display s)
|
||||
(display "\n")
|
||||
|
|
@ -16,29 +16,29 @@
|
|||
;; ----- Access a static member -----
|
||||
|
||||
(display "\nA total of ")
|
||||
(display (example-Shape-nshapes))
|
||||
(display (example:Shape-nshapes))
|
||||
(display " shapes were created\n")
|
||||
|
||||
;; ----- Member data access -----
|
||||
|
||||
;; Set the location of the object
|
||||
|
||||
(example-Shape-x-set c 20.0)
|
||||
(example-Shape-y-set c 30.0)
|
||||
(example:Shape-x-set c 20.0)
|
||||
(example:Shape-y-set c 30.0)
|
||||
|
||||
(example-Shape-x-set s -10.0)
|
||||
(example-Shape-y-set s 5.0)
|
||||
(example:Shape-x-set s -10.0)
|
||||
(example:Shape-y-set s 5.0)
|
||||
|
||||
(display "\nHere is their current position:\n")
|
||||
(display " Circle = (")
|
||||
(display (example-Shape-x-get c))
|
||||
(display (example:Shape-x-get c))
|
||||
(display ", ")
|
||||
(display (example-Shape-y-get c))
|
||||
(display (example:Shape-y-get c))
|
||||
(display ")\n")
|
||||
(display " Square = (")
|
||||
(display (example-Shape-x-get s))
|
||||
(display (example:Shape-x-get s))
|
||||
(display ", ")
|
||||
(display (example-Shape-y-get s))
|
||||
(display (example:Shape-y-get s))
|
||||
(display ")\n")
|
||||
|
||||
;; ----- Call some methods -----
|
||||
|
|
@ -50,10 +50,10 @@
|
|||
(display o)
|
||||
(display "\n")
|
||||
(display " area = ")
|
||||
(display (example-Shape-area o))
|
||||
(display (example:Shape-area o))
|
||||
(display "\n")
|
||||
(display " perimeter = ")
|
||||
(display (example-Shape-perimeter o))
|
||||
(display (example:Shape-perimeter o))
|
||||
(display "\n"))))
|
||||
(disp c)
|
||||
(disp s))
|
||||
|
|
@ -61,10 +61,10 @@
|
|||
(display "\nGuess I'll clean up now\n")
|
||||
|
||||
;; Note: this invokes the virtual destructor
|
||||
(example-delete-Shape c)
|
||||
(example-delete-Shape s)
|
||||
(example:delete-Shape c)
|
||||
(example:delete-Shape s)
|
||||
|
||||
(set! s 3)
|
||||
(display (example-Shape-nshapes))
|
||||
(display (example:Shape-nshapes))
|
||||
(display " shapes remain\n")
|
||||
(display "Goodbye\n")
|
||||
|
|
|
|||
|
|
@ -10,11 +10,11 @@
|
|||
;; ----- Object creation -----
|
||||
|
||||
(display "Creating some objects:\n")
|
||||
(define c (make <example-Circle> 10.0))
|
||||
(define c (make <example:Circle> 10.0))
|
||||
(display " Created circle ")
|
||||
(display c)
|
||||
(display "\n")
|
||||
(define s (make <example-Square> 10.0))
|
||||
(define s (make <example:Square> 10.0))
|
||||
(display " Created square ")
|
||||
(display s)
|
||||
(display "\n")
|
||||
|
|
@ -22,7 +22,7 @@
|
|||
;; ----- Access a static member -----
|
||||
|
||||
(display "\nA total of ")
|
||||
(display (+example-Shape-nshapes+))
|
||||
(display (+example:Shape-nshapes+))
|
||||
(display " shapes were created\n")
|
||||
|
||||
;; ----- Member data access -----
|
||||
|
|
@ -71,6 +71,6 @@
|
|||
(set! s 88)
|
||||
(gc #t)
|
||||
|
||||
(display (+example-Shape-nshapes+))
|
||||
(display (+example:Shape-nshapes+))
|
||||
(display " shapes remain\n")
|
||||
(display "Goodbye\n")
|
||||
|
|
|
|||
|
|
@ -28,15 +28,15 @@
|
|||
(display "\n")
|
||||
|
||||
(display "Scheme Procedures:\n")
|
||||
(display " (example-ICONST)\n")
|
||||
(display " (example-FCONST)\n")
|
||||
(display " (example-CCONST)\n")
|
||||
(display " (example-CCONST2)\n")
|
||||
(display " (example-SCONST)\n")
|
||||
(display " (example-SCONST2)\n")
|
||||
(display " (example-EXPR)\n")
|
||||
(display " (example-EXTERN)\n")
|
||||
(display " (example-FOO)\n")
|
||||
(display " (example-iconstX)\n")
|
||||
(display " (example-fconstX)\n")
|
||||
(display " (example:ICONST)\n")
|
||||
(display " (example:FCONST)\n")
|
||||
(display " (example:CCONST)\n")
|
||||
(display " (example:CCONST2)\n")
|
||||
(display " (example:SCONST)\n")
|
||||
(display " (example:SCONST2)\n")
|
||||
(display " (example:EXPR)\n")
|
||||
(display " (example:EXTERN)\n")
|
||||
(display " (example:FOO)\n")
|
||||
(display " (example:iconstX)\n")
|
||||
(display " (example:fconstX)\n")
|
||||
(display "\n")
|
||||
|
|
|
|||
|
|
@ -2,14 +2,14 @@
|
|||
;; feel free to uncomment and comment sections
|
||||
|
||||
(display "starting test ... you will see 'finished' if successful.\n")
|
||||
(or (= (example-ICONST) 42) (exit 1))
|
||||
(or (< (abs (- (example-FCONST) 2.1828)) 0.00001) (exit 1))
|
||||
(or (char=? (example-CCONST) #\x) (exit 1))
|
||||
(or (char=? (example-CCONST2) #\newline) (exit 1))
|
||||
(or (string=? (example-SCONST) "Hello World") (exit 1))
|
||||
(or (string=? (example-SCONST2) "\"Hello World\"") (exit 1))
|
||||
(or (< (abs (- (example-EXPR) (+ (example-ICONST) (* 3 (example-FCONST))))) 0.00001) (exit 1))
|
||||
(or (= (example-iconstX) 37) (exit 1))
|
||||
(or (< (abs (- (example-fconstX) 3.14)) 0.00001) (exit 1))
|
||||
(or (= (example:ICONST) 42) (exit 1))
|
||||
(or (< (abs (- (example:FCONST) 2.1828)) 0.00001) (exit 1))
|
||||
(or (char=? (example:CCONST) #\x) (exit 1))
|
||||
(or (char=? (example:CCONST2) #\newline) (exit 1))
|
||||
(or (string=? (example:SCONST) "Hello World") (exit 1))
|
||||
(or (string=? (example:SCONST2) "\"Hello World\"") (exit 1))
|
||||
(or (< (abs (- (example:EXPR) (+ (example:ICONST) (* 3 (example:FCONST))))) 0.00001) (exit 1))
|
||||
(or (= (example:iconstX) 37) (exit 1))
|
||||
(or (< (abs (- (example:fconstX) 3.14)) 0.00001) (exit 1))
|
||||
(display "finished test.\n")
|
||||
(exit 0)
|
||||
|
|
|
|||
|
|
@ -16,9 +16,9 @@
|
|||
(display "\n")
|
||||
|
||||
(display "Scheme Procedures:\n")
|
||||
(display " (example-gcd %n %m)\n")
|
||||
(display " (example-gcdmain '(%string %string ...))\n")
|
||||
(display " (example-count %string %character)\n")
|
||||
(display " (example-capitalize %string)\n")
|
||||
(display " (example-circle %x %y)\n")
|
||||
(display " (example:gcd %n %m)\n")
|
||||
(display " (example:gcdmain '(%string %string ...))\n")
|
||||
(display " (example:count %string %character)\n")
|
||||
(display " (example:capitalize %string)\n")
|
||||
(display " (example:circle %x %y)\n")
|
||||
(display "\n")
|
||||
|
|
|
|||
|
|
@ -1,54 +1,54 @@
|
|||
;; run with './multimap test-multimap.scm'
|
||||
;; feel free to uncomment and comment sections
|
||||
|
||||
(display "(example-gcd 90 12): ")
|
||||
(display (example-gcd 90 12))
|
||||
(display "(example:gcd 90 12): ")
|
||||
(display (example:gcd 90 12))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-gcd 90 'a): ")
|
||||
;;(display (example-gcd 90 'a))
|
||||
(display "(example:gcd 90 'a): ")
|
||||
;;(display (example:gcd 90 'a))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-gcd 'b 12): ")
|
||||
;;(display (example-gcd 'b 12))
|
||||
(display "(example:gcd 'b 12): ")
|
||||
;;(display (example:gcd 'b 12))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-circle 0.5 0.5): ")
|
||||
(example-circle 0.5 0.5)
|
||||
(display "(example:circle 0.5 0.5): ")
|
||||
(example:circle 0.5 0.5)
|
||||
(display "\n")
|
||||
|
||||
(display "(example-circle 1.0 1.0): ")
|
||||
;;(example-circle 1.0 1.0)
|
||||
(display "(example:circle 1.0 1.0): ")
|
||||
;;(example:circle 1.0 1.0)
|
||||
(display "\n")
|
||||
|
||||
(display "(example-circle 1 1): ")
|
||||
;;(example-circle 1 1)
|
||||
(display "(example:circle 1 1): ")
|
||||
;;(example:circle 1 1)
|
||||
(display "\n")
|
||||
|
||||
(display "(example-capitalize \"will this be all capital letters?\"): ")
|
||||
(display (example-capitalize "will this be all capital letters?"))
|
||||
(display "(example:capitalize \"will this be all capital letters?\"): ")
|
||||
(display (example:capitalize "will this be all capital letters?"))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-capitalize 'a): ")
|
||||
;;(display (example-capitalize 'a))
|
||||
(display "(example:capitalize 'a): ")
|
||||
;;(display (example:capitalize 'a))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-count \"jumpity little spider\" #\\t): ")
|
||||
(display (example-count "jumpity little spider" #\t))
|
||||
(display "(example:count \"jumpity little spider\" #\\t): ")
|
||||
(display (example:count "jumpity little spider" #\t))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-gcdmain '#(\"hi\" \"there\")): ")
|
||||
(display (example-gcdmain '#("hi" "there")))
|
||||
(display "(example:gcdmain '#(\"hi\" \"there\")): ")
|
||||
(display (example:gcdmain '#("hi" "there")))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-gcdmain '#(\"gcd\" \"9\" \"28\")): ")
|
||||
(example-gcdmain '#("gcd" "9" "28"))
|
||||
(display "(example:gcdmain '#(\"gcd\" \"9\" \"28\")): ")
|
||||
(example:gcdmain '#("gcd" "9" "28"))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-gcdmain '#(\"gcd\" \"12\" \"90\")): ")
|
||||
(example-gcdmain '#("gcd" "12" "90"))
|
||||
(display "(example:gcdmain '#(\"gcd\" \"12\" \"90\")): ")
|
||||
(example:gcdmain '#("gcd" "12" "90"))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-squarecubed 3: ")
|
||||
(display (example-squarecubed 3))
|
||||
(display "(example:squarecubed 3: ")
|
||||
(display (example:squarecubed 3))
|
||||
(display "\n")
|
||||
|
|
|
|||
|
|
@ -29,12 +29,12 @@ class Foo {
|
|||
(display "CHICKEN Low-Level Procedures\n")
|
||||
(display "----------------------------\n")
|
||||
(display "
|
||||
(example-foo %x-int)
|
||||
(example-foo %x-string)
|
||||
(define A-FOO (example-new-Foo))
|
||||
(define ANOTHER-FOO (example-new-Foo %foo)) ;; copy constructor
|
||||
(example-Foo-bar %foo %x-int)
|
||||
(example-Foo-bar %foo %s-string %y-int)
|
||||
(example:foo %x-int)
|
||||
(example:foo %x-string)
|
||||
(define A-FOO (example:new-Foo))
|
||||
(define ANOTHER-FOO (example:new-Foo %foo)) ;; copy constructor
|
||||
(example:Foo-bar %foo %x-int)
|
||||
(example:Foo-bar %foo %s-string %y-int)
|
||||
")
|
||||
|
||||
(display "\n")
|
||||
|
|
@ -47,10 +47,10 @@ class Foo {
|
|||
;; After generic methods are defined, can include TinyCLOS code
|
||||
(include \"example_clos\")
|
||||
|
||||
(+example-foo+ %x-int)
|
||||
(+example-foo+ %x-string)
|
||||
(define A-FOO (make <example-Foo>))
|
||||
(define ANOTHER-FOO (make <example-Foo> %fooObject)) ;; copy constructor
|
||||
(+example:foo+ %x-int)
|
||||
(+example:foo+ %x-string)
|
||||
(define A-FOO (make <example:Foo>))
|
||||
(define ANOTHER-FOO (make <example:Foo> %fooObject)) ;; copy constructor
|
||||
(-bar- %fooObject %x-int)
|
||||
(-bar- %fooObject %s-string %y-int)
|
||||
")
|
||||
|
|
|
|||
|
|
@ -5,30 +5,30 @@
|
|||
|
||||
(display "
|
||||
Trying low level code ...
|
||||
(example-foo 1)
|
||||
(example-foo \"some string\")
|
||||
(define A-FOO (example-new-Foo))
|
||||
(define ANOTHER-FOO (example-new-Foo A-FOO)) ;; copy constructor
|
||||
(example-Foo-bar A-FOO 2)
|
||||
(example-Foo-bar ANOTHER-FOO \"another string\" 3)
|
||||
(example:foo 1)
|
||||
(example:foo \"some string\")
|
||||
(define A-FOO (example:new-Foo))
|
||||
(define ANOTHER-FOO (example:new-Foo A-FOO)) ;; copy constructor
|
||||
(example:Foo-bar A-FOO 2)
|
||||
(example:Foo-bar ANOTHER-FOO \"another string\" 3)
|
||||
")
|
||||
|
||||
(example-foo 1)
|
||||
(example-foo "some string")
|
||||
(define A-FOO (example-new-Foo))
|
||||
(define ANOTHER-FOO (example-new-Foo A-FOO)) ;; copy constructor
|
||||
(example-Foo-bar A-FOO 2)
|
||||
(example-Foo-bar ANOTHER-FOO "another string" 3)
|
||||
(example:foo 1)
|
||||
(example:foo "some string")
|
||||
(define A-FOO (example:new-Foo))
|
||||
(define ANOTHER-FOO (example:new-Foo A-FOO)) ;; copy constructor
|
||||
(example:Foo-bar A-FOO 2)
|
||||
(example:Foo-bar ANOTHER-FOO "another string" 3)
|
||||
|
||||
;; TinyCLOS
|
||||
;; --------
|
||||
|
||||
(display "
|
||||
Trying TinyCLOS code ...
|
||||
(+example-foo+ 1)
|
||||
(+example-foo+ \"some string\")
|
||||
(define A-FOO (make <example-Foo>))
|
||||
(define ANOTHER-FOO (make <example-Foo> A-FOO)) ;; copy constructor
|
||||
(+example:foo+ 1)
|
||||
(+example:foo+ \"some string\")
|
||||
(define A-FOO (make <example:Foo>))
|
||||
(define ANOTHER-FOO (make <example:Foo> A-FOO)) ;; copy constructor
|
||||
(-bar- A-FOO 2)
|
||||
(-bar- ANOTHER-FOO \"another string\" 3)
|
||||
")
|
||||
|
|
@ -38,9 +38,9 @@ Trying TinyCLOS code ...
|
|||
;; After generic methods are defined, can include TinyCLOS code
|
||||
(include "example_clos")
|
||||
|
||||
(+example-foo+ 1)
|
||||
(+example-foo+ "some string")
|
||||
(define A-FOO (make <example-Foo>))
|
||||
(define ANOTHER-FOO (make <example-Foo> A-FOO)) ;; copy constructor
|
||||
(+example:foo+ 1)
|
||||
(+example:foo+ "some string")
|
||||
(define A-FOO (make <example:Foo>))
|
||||
(define ANOTHER-FOO (make <example:Foo> A-FOO)) ;; copy constructor
|
||||
(-bar- A-FOO 2)
|
||||
(-bar- ANOTHER-FOO "another string" 3)
|
||||
|
|
|
|||
|
|
@ -17,9 +17,9 @@
|
|||
(display "\n")
|
||||
|
||||
(display "Scheme Procedures:\n")
|
||||
(display " (example-My-variable) or (example-My-variable %x)\n");
|
||||
(display " (example-fact %n)\n")
|
||||
(display " (example-mod %n %m)\n")
|
||||
(display " (example-my-mod %n %m)\n")
|
||||
(display " (example-get-time)\n")
|
||||
(display " (example:My-variable) or (example:My-variable %x)\n");
|
||||
(display " (example:fact %n)\n")
|
||||
(display " (example:mod %n %m)\n")
|
||||
(display " (example:my-mod %n %m)\n")
|
||||
(display " (example:get-time)\n")
|
||||
(display "\n")
|
||||
|
|
|
|||
|
|
@ -1,43 +1,43 @@
|
|||
;; run with './simple test-simple.scm'
|
||||
;; feel free to uncomment and comment sections
|
||||
|
||||
(display "(example-My-variable): ")
|
||||
(display (example-My-variable))
|
||||
(display "(example:My-variable): ")
|
||||
(display (example:My-variable))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-My-variable 3.141259): ")
|
||||
(display (example-My-variable 3.141259))
|
||||
(display "(example:My-variable 3.141259): ")
|
||||
(display (example:My-variable 3.141259))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-My-variable): ")
|
||||
(display (example-My-variable))
|
||||
(display "(example:My-variable): ")
|
||||
(display (example:My-variable))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-My-variable 'a): ")
|
||||
;;(display (example-My-variable 'a))
|
||||
(display "(example:My-variable 'a): ")
|
||||
;;(display (example:My-variable 'a))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-My-variable 1.5 'b): ")
|
||||
(display (example-My-variable 1.5 'b))
|
||||
(display "(example:My-variable 1.5 'b): ")
|
||||
(display (example:My-variable 1.5 'b))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-fact 5): ")
|
||||
(display (example-fact 5))
|
||||
(display "(example:fact 5): ")
|
||||
(display (example:fact 5))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-fact 'a): ")
|
||||
;;(display (example-fact 'a))
|
||||
(display "(example:fact 'a): ")
|
||||
;;(display (example:fact 'a))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-mod 75 7): ")
|
||||
(display (example-mod 75 7))
|
||||
(display "(example:mod 75 7): ")
|
||||
(display (example:mod 75 7))
|
||||
(display "\n")
|
||||
|
||||
(display "(example-my-mod 75 7): ")
|
||||
(display (example-my-mod 75 7))
|
||||
(display "(example:my-mod 75 7): ")
|
||||
(display (example:my-mod 75 7))
|
||||
(display "\n")
|
||||
|
||||
|
||||
(display "(example-get-time): ")
|
||||
(display (example-get-time))
|
||||
(display "(example:get-time): ")
|
||||
(display (example:get-time))
|
||||
(display "\n")
|
||||
|
|
|
|||
|
|
@ -993,119 +993,119 @@
|
|||
<pre>
|
||||
% grep C_intern example_wrap.c
|
||||
C_word err = C_intern2 (&a, errorhook);
|
||||
sym = C_intern (&a, 21, "example-max-mem-level");
|
||||
sym = C_intern (&a, 17, "example-max-wbits");
|
||||
sym = C_intern (&a, 16, "example-seek-set");
|
||||
sym = C_intern (&a, 16, "example-seek-cur");
|
||||
sym = C_intern (&a, 16, "example-seek-end");
|
||||
sym = C_intern (&a, 20, "example-zlib-version");
|
||||
sym = C_intern (&a, 28, "example-z-stream-next-in-set");
|
||||
sym = C_intern (&a, 28, "example-z-stream-next-in-get");
|
||||
sym = C_intern (&a, 29, "example-z-stream-avail-in-set");
|
||||
sym = C_intern (&a, 29, "example-z-stream-avail-in-get");
|
||||
sym = C_intern (&a, 29, "example-z-stream-total-in-set");
|
||||
sym = C_intern (&a, 29, "example-z-stream-total-in-get");
|
||||
sym = C_intern (&a, 29, "example-z-stream-next-out-set");
|
||||
sym = C_intern (&a, 29, "example-z-stream-next-out-get");
|
||||
sym = C_intern (&a, 30, "example-z-stream-avail-out-set");
|
||||
sym = C_intern (&a, 30, "example-z-stream-avail-out-get");
|
||||
sym = C_intern (&a, 30, "example-z-stream-total-out-set");
|
||||
sym = C_intern (&a, 30, "example-z-stream-total-out-get");
|
||||
sym = C_intern (&a, 24, "example-z-stream-msg-set");
|
||||
sym = C_intern (&a, 24, "example-z-stream-msg-get");
|
||||
sym = C_intern (&a, 26, "example-z-stream-state-set");
|
||||
sym = C_intern (&a, 26, "example-z-stream-state-get");
|
||||
sym = C_intern (&a, 27, "example-z-stream-zalloc-set");
|
||||
sym = C_intern (&a, 27, "example-z-stream-zalloc-get");
|
||||
sym = C_intern (&a, 26, "example-z-stream-zfree-set");
|
||||
sym = C_intern (&a, 26, "example-z-stream-zfree-get");
|
||||
sym = C_intern (&a, 27, "example-z-stream-opaque-set");
|
||||
sym = C_intern (&a, 27, "example-z-stream-opaque-get");
|
||||
sym = C_intern (&a, 30, "example-z-stream-data-type-set");
|
||||
sym = C_intern (&a, 30, "example-z-stream-data-type-get");
|
||||
sym = C_intern (&a, 26, "example-z-stream-adler-set");
|
||||
sym = C_intern (&a, 26, "example-z-stream-adler-get");
|
||||
sym = C_intern (&a, 29, "example-z-stream-reserved-set");
|
||||
sym = C_intern (&a, 29, "example-z-stream-reserved-get");
|
||||
sym = C_intern (&a, 20, "example-new-z-stream");
|
||||
sym = C_intern (&a, 23, "example-delete-z-stream");
|
||||
sym = C_intern (&a, 18, "example-z-no-flush");
|
||||
sym = C_intern (&a, 23, "example-z-partial-flush");
|
||||
sym = C_intern (&a, 20, "example-z-sync-flush");
|
||||
sym = C_intern (&a, 20, "example-z-full-flush");
|
||||
sym = C_intern (&a, 16, "example-z-finish");
|
||||
sym = C_intern (&a, 12, "example-z-ok");
|
||||
sym = C_intern (&a, 20, "example-z-stream-end");
|
||||
sym = C_intern (&a, 19, "example-z-need-dict");
|
||||
sym = C_intern (&a, 15, "example-z-errno");
|
||||
sym = C_intern (&a, 22, "example-z-stream-error");
|
||||
sym = C_intern (&a, 20, "example-z-data-error");
|
||||
sym = C_intern (&a, 19, "example-z-mem-error");
|
||||
sym = C_intern (&a, 19, "example-z-buf-error");
|
||||
sym = C_intern (&a, 23, "example-z-version-error");
|
||||
sym = C_intern (&a, 24, "example-z-no-compression");
|
||||
sym = C_intern (&a, 20, "example-z-best-speed");
|
||||
sym = C_intern (&a, 26, "example-z-best-compression");
|
||||
sym = C_intern (&a, 29, "example-z-default-compression");
|
||||
sym = C_intern (&a, 18, "example-z-filtered");
|
||||
sym = C_intern (&a, 22, "example-z-huffman-only");
|
||||
sym = C_intern (&a, 26, "example-z-default-strategy");
|
||||
sym = C_intern (&a, 16, "example-z-binary");
|
||||
sym = C_intern (&a, 15, "example-z-ascii");
|
||||
sym = C_intern (&a, 17, "example-z-unknown");
|
||||
sym = C_intern (&a, 18, "example-z-deflated");
|
||||
sym = C_intern (&a, 14, "example-z-null");
|
||||
sym = C_intern (&a, 19, "example-zlibversion");
|
||||
sym = C_intern (&a, 15, "example-deflate");
|
||||
sym = C_intern (&a, 18, "example-deflateend");
|
||||
sym = C_intern (&a, 15, "example-inflate");
|
||||
sym = C_intern (&a, 18, "example-inflateend");
|
||||
sym = C_intern (&a, 28, "example-deflatesetdictionary");
|
||||
sym = C_intern (&a, 19, "example-deflatecopy");
|
||||
sym = C_intern (&a, 20, "example-deflatereset");
|
||||
sym = C_intern (&a, 21, "example-deflateparams");
|
||||
sym = C_intern (&a, 28, "example-inflatesetdictionary");
|
||||
sym = C_intern (&a, 19, "example-inflatesync");
|
||||
sym = C_intern (&a, 20, "example-inflatereset");
|
||||
sym = C_intern (&a, 16, "example-compress");
|
||||
sym = C_intern (&a, 17, "example-compress2");
|
||||
sym = C_intern (&a, 18, "example-uncompress");
|
||||
sym = C_intern (&a, 14, "example-gzopen");
|
||||
sym = C_intern (&a, 15, "example-gzdopen");
|
||||
sym = C_intern (&a, 19, "example-gzsetparams");
|
||||
sym = C_intern (&a, 14, "example-gzread");
|
||||
sym = C_intern (&a, 15, "example-gzwrite");
|
||||
sym = C_intern (&a, 16, "example-gzprintf");
|
||||
sym = C_intern (&a, 14, "example-gzputs");
|
||||
sym = C_intern (&a, 14, "example-gzgets");
|
||||
sym = C_intern (&a, 14, "example-gzputc");
|
||||
sym = C_intern (&a, 14, "example-gzgetc");
|
||||
sym = C_intern (&a, 15, "example-gzflush");
|
||||
sym = C_intern (&a, 14, "example-gzseek");
|
||||
sym = C_intern (&a, 16, "example-gzrewind");
|
||||
sym = C_intern (&a, 14, "example-gztell");
|
||||
sym = C_intern (&a, 13, "example-gzeof");
|
||||
sym = C_intern (&a, 15, "example-gzclose");
|
||||
sym = C_intern (&a, 15, "example-gzerror");
|
||||
sym = C_intern (&a, 15, "example-adler32");
|
||||
sym = C_intern (&a, 13, "example-crc32");
|
||||
sym = C_intern (&a, 20, "example-deflateinit-");
|
||||
sym = C_intern (&a, 20, "example-inflateinit-");
|
||||
sym = C_intern (&a, 21, "example-deflateinit2-");
|
||||
sym = C_intern (&a, 21, "example-inflateinit2-");
|
||||
sym = C_intern (&a, 32, "example-internal-state-dummy-set");
|
||||
sym = C_intern (&a, 32, "example-internal-state-dummy-get");
|
||||
sym = C_intern (&a, 26, "example-new-internal-state");
|
||||
sym = C_intern (&a, 29, "example-delete-internal-state");
|
||||
sym = C_intern (&a, 14, "example-zerror");
|
||||
sym = C_intern (&a, 24, "example-inflatesyncpoint");
|
||||
sym = C_intern (&a, 21, "example-get-crc-table");
|
||||
sym = C_intern (&a, 21, "example:max-mem-level");
|
||||
sym = C_intern (&a, 17, "example:max-wbits");
|
||||
sym = C_intern (&a, 16, "example:seek-set");
|
||||
sym = C_intern (&a, 16, "example:seek-cur");
|
||||
sym = C_intern (&a, 16, "example:seek-end");
|
||||
sym = C_intern (&a, 20, "example:zlib-version");
|
||||
sym = C_intern (&a, 28, "example:z-stream-next-in-set");
|
||||
sym = C_intern (&a, 28, "example:z-stream-next-in-get");
|
||||
sym = C_intern (&a, 29, "example:z-stream-avail-in-set");
|
||||
sym = C_intern (&a, 29, "example:z-stream-avail-in-get");
|
||||
sym = C_intern (&a, 29, "example:z-stream-total-in-set");
|
||||
sym = C_intern (&a, 29, "example:z-stream-total-in-get");
|
||||
sym = C_intern (&a, 29, "example:z-stream-next-out-set");
|
||||
sym = C_intern (&a, 29, "example:z-stream-next-out-get");
|
||||
sym = C_intern (&a, 30, "example:z-stream-avail-out-set");
|
||||
sym = C_intern (&a, 30, "example:z-stream-avail-out-get");
|
||||
sym = C_intern (&a, 30, "example:z-stream-total-out-set");
|
||||
sym = C_intern (&a, 30, "example:z-stream-total-out-get");
|
||||
sym = C_intern (&a, 24, "example:z-stream-msg-set");
|
||||
sym = C_intern (&a, 24, "example:z-stream-msg-get");
|
||||
sym = C_intern (&a, 26, "example:z-stream-state-set");
|
||||
sym = C_intern (&a, 26, "example:z-stream-state-get");
|
||||
sym = C_intern (&a, 27, "example:z-stream-zalloc-set");
|
||||
sym = C_intern (&a, 27, "example:z-stream-zalloc-get");
|
||||
sym = C_intern (&a, 26, "example:z-stream-zfree-set");
|
||||
sym = C_intern (&a, 26, "example:z-stream-zfree-get");
|
||||
sym = C_intern (&a, 27, "example:z-stream-opaque-set");
|
||||
sym = C_intern (&a, 27, "example:z-stream-opaque-get");
|
||||
sym = C_intern (&a, 30, "example:z-stream-data-type-set");
|
||||
sym = C_intern (&a, 30, "example:z-stream-data-type-get");
|
||||
sym = C_intern (&a, 26, "example:z-stream-adler-set");
|
||||
sym = C_intern (&a, 26, "example:z-stream-adler-get");
|
||||
sym = C_intern (&a, 29, "example:z-stream-reserved-set");
|
||||
sym = C_intern (&a, 29, "example:z-stream-reserved-get");
|
||||
sym = C_intern (&a, 20, "example:new-z-stream");
|
||||
sym = C_intern (&a, 23, "example:delete-z-stream");
|
||||
sym = C_intern (&a, 18, "example:z-no-flush");
|
||||
sym = C_intern (&a, 23, "example:z-partial-flush");
|
||||
sym = C_intern (&a, 20, "example:z-sync-flush");
|
||||
sym = C_intern (&a, 20, "example:z-full-flush");
|
||||
sym = C_intern (&a, 16, "example:z-finish");
|
||||
sym = C_intern (&a, 12, "example:z-ok");
|
||||
sym = C_intern (&a, 20, "example:z-stream-end");
|
||||
sym = C_intern (&a, 19, "example:z-need-dict");
|
||||
sym = C_intern (&a, 15, "example:z-errno");
|
||||
sym = C_intern (&a, 22, "example:z-stream-error");
|
||||
sym = C_intern (&a, 20, "example:z-data-error");
|
||||
sym = C_intern (&a, 19, "example:z-mem-error");
|
||||
sym = C_intern (&a, 19, "example:z-buf-error");
|
||||
sym = C_intern (&a, 23, "example:z-version-error");
|
||||
sym = C_intern (&a, 24, "example:z-no-compression");
|
||||
sym = C_intern (&a, 20, "example:z-best-speed");
|
||||
sym = C_intern (&a, 26, "example:z-best-compression");
|
||||
sym = C_intern (&a, 29, "example:z-default-compression");
|
||||
sym = C_intern (&a, 18, "example:z-filtered");
|
||||
sym = C_intern (&a, 22, "example:z-huffman-only");
|
||||
sym = C_intern (&a, 26, "example:z-default-strategy");
|
||||
sym = C_intern (&a, 16, "example:z-binary");
|
||||
sym = C_intern (&a, 15, "example:z-ascii");
|
||||
sym = C_intern (&a, 17, "example:z-unknown");
|
||||
sym = C_intern (&a, 18, "example:z-deflated");
|
||||
sym = C_intern (&a, 14, "example:z-null");
|
||||
sym = C_intern (&a, 19, "example:zlibversion");
|
||||
sym = C_intern (&a, 15, "example:deflate");
|
||||
sym = C_intern (&a, 18, "example:deflateend");
|
||||
sym = C_intern (&a, 15, "example:inflate");
|
||||
sym = C_intern (&a, 18, "example:inflateend");
|
||||
sym = C_intern (&a, 28, "example:deflatesetdictionary");
|
||||
sym = C_intern (&a, 19, "example:deflatecopy");
|
||||
sym = C_intern (&a, 20, "example:deflatereset");
|
||||
sym = C_intern (&a, 21, "example:deflateparams");
|
||||
sym = C_intern (&a, 28, "example:inflatesetdictionary");
|
||||
sym = C_intern (&a, 19, "example:inflatesync");
|
||||
sym = C_intern (&a, 20, "example:inflatereset");
|
||||
sym = C_intern (&a, 16, "example:compress");
|
||||
sym = C_intern (&a, 17, "example:compress2");
|
||||
sym = C_intern (&a, 18, "example:uncompress");
|
||||
sym = C_intern (&a, 14, "example:gzopen");
|
||||
sym = C_intern (&a, 15, "example:gzdopen");
|
||||
sym = C_intern (&a, 19, "example:gzsetparams");
|
||||
sym = C_intern (&a, 14, "example:gzread");
|
||||
sym = C_intern (&a, 15, "example:gzwrite");
|
||||
sym = C_intern (&a, 16, "example:gzprintf");
|
||||
sym = C_intern (&a, 14, "example:gzputs");
|
||||
sym = C_intern (&a, 14, "example:gzgets");
|
||||
sym = C_intern (&a, 14, "example:gzputc");
|
||||
sym = C_intern (&a, 14, "example:gzgetc");
|
||||
sym = C_intern (&a, 15, "example:gzflush");
|
||||
sym = C_intern (&a, 14, "example:gzseek");
|
||||
sym = C_intern (&a, 16, "example:gzrewind");
|
||||
sym = C_intern (&a, 14, "example:gztell");
|
||||
sym = C_intern (&a, 13, "example:gzeof");
|
||||
sym = C_intern (&a, 15, "example:gzclose");
|
||||
sym = C_intern (&a, 15, "example:gzerror");
|
||||
sym = C_intern (&a, 15, "example:adler32");
|
||||
sym = C_intern (&a, 13, "example:crc32");
|
||||
sym = C_intern (&a, 20, "example:deflateinit-");
|
||||
sym = C_intern (&a, 20, "example:inflateinit-");
|
||||
sym = C_intern (&a, 21, "example:deflateinit2-");
|
||||
sym = C_intern (&a, 21, "example:inflateinit2-");
|
||||
sym = C_intern (&a, 32, "example:internal-state-dummy-set");
|
||||
sym = C_intern (&a, 32, "example:internal-state-dummy-get");
|
||||
sym = C_intern (&a, 26, "example:new-internal-state");
|
||||
sym = C_intern (&a, 29, "example:delete-internal-state");
|
||||
sym = C_intern (&a, 14, "example:zerror");
|
||||
sym = C_intern (&a, 24, "example:inflatesyncpoint");
|
||||
sym = C_intern (&a, 21, "example:get-crc-table");
|
||||
</pre>
|
||||
</blockquote>
|
||||
|
||||
In fact, we want the Scheme procedure names to begin with
|
||||
<code>zlib</code> instead of <code>example</code>. For
|
||||
<code>example-zlib-version</code>, we want
|
||||
<code>example:zlib-version</code>, we want
|
||||
<code>zlib-version</code>. And we want dashes when the case
|
||||
switches to/from upper/lowercase; ex. the function
|
||||
<code>deflateEnd()</code> should be the Scheme procedure
|
||||
|
|
@ -1142,119 +1142,119 @@
|
|||
% swig -chicken <font color="red">-prefix zlib -mixed</font> -I/usr/include example.i
|
||||
% grep C_intern example_wrap.c
|
||||
C_word err = C_intern2 (&a, errorhook);
|
||||
sym = C_intern (&a, 18, "zlib-max-mem-level");
|
||||
sym = C_intern (&a, 14, "zlib-max-wbits");
|
||||
sym = C_intern (&a, 13, "zlib-seek-set");
|
||||
sym = C_intern (&a, 13, "zlib-seek-cur");
|
||||
sym = C_intern (&a, 13, "zlib-seek-end");
|
||||
sym = C_intern (&a, 12, "zlib-version");
|
||||
sym = C_intern (&a, 25, "zlib-z-stream-next-in-set");
|
||||
sym = C_intern (&a, 25, "zlib-z-stream-next-in-get");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-avail-in-set");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-avail-in-get");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-total-in-set");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-total-in-get");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-next-out-set");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-next-out-get");
|
||||
sym = C_intern (&a, 27, "zlib-z-stream-avail-out-set");
|
||||
sym = C_intern (&a, 27, "zlib-z-stream-avail-out-get");
|
||||
sym = C_intern (&a, 27, "zlib-z-stream-total-out-set");
|
||||
sym = C_intern (&a, 27, "zlib-z-stream-total-out-get");
|
||||
sym = C_intern (&a, 21, "zlib-z-stream-msg-set");
|
||||
sym = C_intern (&a, 21, "zlib-z-stream-msg-get");
|
||||
sym = C_intern (&a, 23, "zlib-z-stream-state-set");
|
||||
sym = C_intern (&a, 23, "zlib-z-stream-state-get");
|
||||
sym = C_intern (&a, 24, "zlib-z-stream-zalloc-set");
|
||||
sym = C_intern (&a, 24, "zlib-z-stream-zalloc-get");
|
||||
sym = C_intern (&a, 23, "zlib-z-stream-zfree-set");
|
||||
sym = C_intern (&a, 23, "zlib-z-stream-zfree-get");
|
||||
sym = C_intern (&a, 24, "zlib-z-stream-opaque-set");
|
||||
sym = C_intern (&a, 24, "zlib-z-stream-opaque-get");
|
||||
sym = C_intern (&a, 27, "zlib-z-stream-data-type-set");
|
||||
sym = C_intern (&a, 27, "zlib-z-stream-data-type-get");
|
||||
sym = C_intern (&a, 23, "zlib-z-stream-adler-set");
|
||||
sym = C_intern (&a, 23, "zlib-z-stream-adler-get");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-reserved-set");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-reserved-get");
|
||||
sym = C_intern (&a, 17, "zlib-new-z-stream");
|
||||
sym = C_intern (&a, 20, "zlib-delete-z-stream");
|
||||
sym = C_intern (&a, 15, "zlib-z-no-flush");
|
||||
sym = C_intern (&a, 20, "zlib-z-partial-flush");
|
||||
sym = C_intern (&a, 17, "zlib-z-sync-flush");
|
||||
sym = C_intern (&a, 17, "zlib-z-full-flush");
|
||||
sym = C_intern (&a, 13, "zlib-z-finish");
|
||||
sym = C_intern (&a, 9, "zlib-z-ok");
|
||||
sym = C_intern (&a, 17, "zlib-z-stream-end");
|
||||
sym = C_intern (&a, 16, "zlib-z-need-dict");
|
||||
sym = C_intern (&a, 12, "zlib-z-errno");
|
||||
sym = C_intern (&a, 19, "zlib-z-stream-error");
|
||||
sym = C_intern (&a, 17, "zlib-z-data-error");
|
||||
sym = C_intern (&a, 16, "zlib-z-mem-error");
|
||||
sym = C_intern (&a, 16, "zlib-z-buf-error");
|
||||
sym = C_intern (&a, 20, "zlib-z-version-error");
|
||||
sym = C_intern (&a, 21, "zlib-z-no-compression");
|
||||
sym = C_intern (&a, 17, "zlib-z-best-speed");
|
||||
sym = C_intern (&a, 23, "zlib-z-best-compression");
|
||||
sym = C_intern (&a, 26, "zlib-z-default-compression");
|
||||
sym = C_intern (&a, 15, "zlib-z-filtered");
|
||||
sym = C_intern (&a, 19, "zlib-z-huffman-only");
|
||||
sym = C_intern (&a, 23, "zlib-z-default-strategy");
|
||||
sym = C_intern (&a, 13, "zlib-z-binary");
|
||||
sym = C_intern (&a, 12, "zlib-z-ascii");
|
||||
sym = C_intern (&a, 14, "zlib-z-unknown");
|
||||
sym = C_intern (&a, 15, "zlib-z-deflated");
|
||||
sym = C_intern (&a, 11, "zlib-z-null");
|
||||
sym = C_intern (&a, 17, "zlib-zlib-version");
|
||||
sym = C_intern (&a, 12, "zlib-deflate");
|
||||
sym = C_intern (&a, 16, "zlib-deflate-end");
|
||||
sym = C_intern (&a, 12, "zlib-inflate");
|
||||
sym = C_intern (&a, 16, "zlib-inflate-end");
|
||||
sym = C_intern (&a, 27, "zlib-deflate-set-dictionary");
|
||||
sym = C_intern (&a, 17, "zlib-deflate-copy");
|
||||
sym = C_intern (&a, 18, "zlib-deflate-reset");
|
||||
sym = C_intern (&a, 19, "zlib-deflate-params");
|
||||
sym = C_intern (&a, 27, "zlib-inflate-set-dictionary");
|
||||
sym = C_intern (&a, 17, "zlib-inflate-sync");
|
||||
sym = C_intern (&a, 18, "zlib-inflate-reset");
|
||||
sym = C_intern (&a, 13, "zlib-compress");
|
||||
sym = C_intern (&a, 14, "zlib-compress2");
|
||||
sym = C_intern (&a, 15, "zlib-uncompress");
|
||||
sym = C_intern (&a, 11, "zlib-gzopen");
|
||||
sym = C_intern (&a, 12, "zlib-gzdopen");
|
||||
sym = C_intern (&a, 16, "zlib-gzsetparams");
|
||||
sym = C_intern (&a, 11, "zlib-gzread");
|
||||
sym = C_intern (&a, 12, "zlib-gzwrite");
|
||||
sym = C_intern (&a, 13, "zlib-gzprintf");
|
||||
sym = C_intern (&a, 11, "zlib-gzputs");
|
||||
sym = C_intern (&a, 11, "zlib-gzgets");
|
||||
sym = C_intern (&a, 11, "zlib-gzputc");
|
||||
sym = C_intern (&a, 11, "zlib-gzgetc");
|
||||
sym = C_intern (&a, 12, "zlib-gzflush");
|
||||
sym = C_intern (&a, 11, "zlib-gzseek");
|
||||
sym = C_intern (&a, 13, "zlib-gzrewind");
|
||||
sym = C_intern (&a, 11, "zlib-gztell");
|
||||
sym = C_intern (&a, 10, "zlib-gzeof");
|
||||
sym = C_intern (&a, 12, "zlib-gzclose");
|
||||
sym = C_intern (&a, 12, "zlib-gzerror");
|
||||
sym = C_intern (&a, 12, "zlib-adler32");
|
||||
sym = C_intern (&a, 10, "zlib-crc32");
|
||||
sym = C_intern (&a, 18, "zlib-deflate-init-");
|
||||
sym = C_intern (&a, 18, "zlib-inflate-init-");
|
||||
sym = C_intern (&a, 19, "zlib-deflate-init2-");
|
||||
sym = C_intern (&a, 19, "zlib-inflate-init2-");
|
||||
sym = C_intern (&a, 29, "zlib-internal-state-dummy-set");
|
||||
sym = C_intern (&a, 29, "zlib-internal-state-dummy-get");
|
||||
sym = C_intern (&a, 23, "zlib-new-internal-state");
|
||||
sym = C_intern (&a, 26, "zlib-delete-internal-state");
|
||||
sym = C_intern (&a, 12, "zlib-ze-rror");
|
||||
sym = C_intern (&a, 23, "zlib-inflate-sync-point");
|
||||
sym = C_intern (&a, 18, "zlib-get-crc-table");
|
||||
sym = C_intern (&a, 18, "zlib:max-mem-level");
|
||||
sym = C_intern (&a, 14, "zlib:max-wbits");
|
||||
sym = C_intern (&a, 13, "zlib:seek-set");
|
||||
sym = C_intern (&a, 13, "zlib:seek-cur");
|
||||
sym = C_intern (&a, 13, "zlib:seek-end");
|
||||
sym = C_intern (&a, 12, "zlib:version");
|
||||
sym = C_intern (&a, 25, "zlib:z-stream-next-in-set");
|
||||
sym = C_intern (&a, 25, "zlib:z-stream-next-in-get");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-avail-in-set");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-avail-in-get");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-total-in-set");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-total-in-get");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-next-out-set");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-next-out-get");
|
||||
sym = C_intern (&a, 27, "zlib:z-stream-avail-out-set");
|
||||
sym = C_intern (&a, 27, "zlib:z-stream-avail-out-get");
|
||||
sym = C_intern (&a, 27, "zlib:z-stream-total-out-set");
|
||||
sym = C_intern (&a, 27, "zlib:z-stream-total-out-get");
|
||||
sym = C_intern (&a, 21, "zlib:z-stream-msg-set");
|
||||
sym = C_intern (&a, 21, "zlib:z-stream-msg-get");
|
||||
sym = C_intern (&a, 23, "zlib:z-stream-state-set");
|
||||
sym = C_intern (&a, 23, "zlib:z-stream-state-get");
|
||||
sym = C_intern (&a, 24, "zlib:z-stream-zalloc-set");
|
||||
sym = C_intern (&a, 24, "zlib:z-stream-zalloc-get");
|
||||
sym = C_intern (&a, 23, "zlib:z-stream-zfree-set");
|
||||
sym = C_intern (&a, 23, "zlib:z-stream-zfree-get");
|
||||
sym = C_intern (&a, 24, "zlib:z-stream-opaque-set");
|
||||
sym = C_intern (&a, 24, "zlib:z-stream-opaque-get");
|
||||
sym = C_intern (&a, 27, "zlib:z-stream-data-type-set");
|
||||
sym = C_intern (&a, 27, "zlib:z-stream-data-type-get");
|
||||
sym = C_intern (&a, 23, "zlib:z-stream-adler-set");
|
||||
sym = C_intern (&a, 23, "zlib:z-stream-adler-get");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-reserved-set");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-reserved-get");
|
||||
sym = C_intern (&a, 17, "zlib:new-z-stream");
|
||||
sym = C_intern (&a, 20, "zlib:delete-z-stream");
|
||||
sym = C_intern (&a, 15, "zlib:z-no-flush");
|
||||
sym = C_intern (&a, 20, "zlib:z-partial-flush");
|
||||
sym = C_intern (&a, 17, "zlib:z-sync-flush");
|
||||
sym = C_intern (&a, 17, "zlib:z-full-flush");
|
||||
sym = C_intern (&a, 13, "zlib:z-finish");
|
||||
sym = C_intern (&a, 9, "zlib:z-ok");
|
||||
sym = C_intern (&a, 17, "zlib:z-stream-end");
|
||||
sym = C_intern (&a, 16, "zlib:z-need-dict");
|
||||
sym = C_intern (&a, 12, "zlib:z-errno");
|
||||
sym = C_intern (&a, 19, "zlib:z-stream-error");
|
||||
sym = C_intern (&a, 17, "zlib:z-data-error");
|
||||
sym = C_intern (&a, 16, "zlib:z-mem-error");
|
||||
sym = C_intern (&a, 16, "zlib:z-buf-error");
|
||||
sym = C_intern (&a, 20, "zlib:z-version-error");
|
||||
sym = C_intern (&a, 21, "zlib:z-no-compression");
|
||||
sym = C_intern (&a, 17, "zlib:z-best-speed");
|
||||
sym = C_intern (&a, 23, "zlib:z-best-compression");
|
||||
sym = C_intern (&a, 26, "zlib:z-default-compression");
|
||||
sym = C_intern (&a, 15, "zlib:z-filtered");
|
||||
sym = C_intern (&a, 19, "zlib:z-huffman-only");
|
||||
sym = C_intern (&a, 23, "zlib:z-default-strategy");
|
||||
sym = C_intern (&a, 13, "zlib:z-binary");
|
||||
sym = C_intern (&a, 12, "zlib:z-ascii");
|
||||
sym = C_intern (&a, 14, "zlib:z-unknown");
|
||||
sym = C_intern (&a, 15, "zlib:z-deflated");
|
||||
sym = C_intern (&a, 11, "zlib:z-null");
|
||||
sym = C_intern (&a, 17, "zlib:zlib-version");
|
||||
sym = C_intern (&a, 12, "zlib:deflate");
|
||||
sym = C_intern (&a, 16, "zlib:deflate-end");
|
||||
sym = C_intern (&a, 12, "zlib:inflate");
|
||||
sym = C_intern (&a, 16, "zlib:inflate-end");
|
||||
sym = C_intern (&a, 27, "zlib:deflate-set-dictionary");
|
||||
sym = C_intern (&a, 17, "zlib:deflate-copy");
|
||||
sym = C_intern (&a, 18, "zlib:deflate-reset");
|
||||
sym = C_intern (&a, 19, "zlib:deflate-params");
|
||||
sym = C_intern (&a, 27, "zlib:inflate-set-dictionary");
|
||||
sym = C_intern (&a, 17, "zlib:inflate-sync");
|
||||
sym = C_intern (&a, 18, "zlib:inflate-reset");
|
||||
sym = C_intern (&a, 13, "zlib:compress");
|
||||
sym = C_intern (&a, 14, "zlib:compress2");
|
||||
sym = C_intern (&a, 15, "zlib:uncompress");
|
||||
sym = C_intern (&a, 11, "zlib:gzopen");
|
||||
sym = C_intern (&a, 12, "zlib:gzdopen");
|
||||
sym = C_intern (&a, 16, "zlib:gzsetparams");
|
||||
sym = C_intern (&a, 11, "zlib:gzread");
|
||||
sym = C_intern (&a, 12, "zlib:gzwrite");
|
||||
sym = C_intern (&a, 13, "zlib:gzprintf");
|
||||
sym = C_intern (&a, 11, "zlib:gzputs");
|
||||
sym = C_intern (&a, 11, "zlib:gzgets");
|
||||
sym = C_intern (&a, 11, "zlib:gzputc");
|
||||
sym = C_intern (&a, 11, "zlib:gzgetc");
|
||||
sym = C_intern (&a, 12, "zlib:gzflush");
|
||||
sym = C_intern (&a, 11, "zlib:gzseek");
|
||||
sym = C_intern (&a, 13, "zlib:gzrewind");
|
||||
sym = C_intern (&a, 11, "zlib:gztell");
|
||||
sym = C_intern (&a, 10, "zlib:gzeof");
|
||||
sym = C_intern (&a, 12, "zlib:gzclose");
|
||||
sym = C_intern (&a, 12, "zlib:gzerror");
|
||||
sym = C_intern (&a, 12, "zlib:adler32");
|
||||
sym = C_intern (&a, 10, "zlib:crc32");
|
||||
sym = C_intern (&a, 18, "zlib:deflate-init-");
|
||||
sym = C_intern (&a, 18, "zlib:inflate-init-");
|
||||
sym = C_intern (&a, 19, "zlib:deflate-init2-");
|
||||
sym = C_intern (&a, 19, "zlib:inflate-init2-");
|
||||
sym = C_intern (&a, 29, "zlib:internal-state-dummy-set");
|
||||
sym = C_intern (&a, 29, "zlib:internal-state-dummy-get");
|
||||
sym = C_intern (&a, 23, "zlib:new-internal-state");
|
||||
sym = C_intern (&a, 26, "zlib:delete-internal-state");
|
||||
sym = C_intern (&a, 12, "zlib:ze-rror");
|
||||
sym = C_intern (&a, 23, "zlib:inflate-sync-point");
|
||||
sym = C_intern (&a, 18, "zlib:get-crc-table");
|
||||
</pre>
|
||||
</blockquote>
|
||||
|
||||
Much better. The only problem is the identifier
|
||||
<code>zlib-ze-rror</code>, and we are missing
|
||||
<code>zlib-deflate-init</code> and <code>zlib-inflate-init</code>
|
||||
<code>zlib:ze-rror</code>, and we are missing
|
||||
<code>zlib:deflate-init</code> and <code>zlib:inflate-init</code>
|
||||
because they are defined as macros (see <a
|
||||
href="#initmacros">macro definitions</a>).
|
||||
|
||||
|
|
@ -1262,7 +1262,7 @@
|
|||
|
||||
We make sure to rename <code>zError</code> to
|
||||
<code>z_error</code>, and we inline some helper functions for the
|
||||
<code>zlib-...-init</code> macros. We try again.
|
||||
<code>zlib:...-init</code> macros. We try again.
|
||||
|
||||
<blockquote>
|
||||
<pre>
|
||||
|
|
@ -1304,115 +1304,115 @@ int inflate_init(z_streamp strm) {
|
|||
% swig -chicken -prefix zlib -mixed -I/usr/include example.i
|
||||
% grep C_intern example_wrap.c
|
||||
C_word err = C_intern2 (&a, errorhook);
|
||||
sym = C_intern (&a, 18, "zlib-max-mem-level");
|
||||
sym = C_intern (&a, 14, "zlib-max-wbits");
|
||||
sym = C_intern (&a, 13, "zlib-seek-set");
|
||||
sym = C_intern (&a, 13, "zlib-seek-cur");
|
||||
sym = C_intern (&a, 13, "zlib-seek-end");
|
||||
sym = C_intern (&a, 12, "zlib-version");
|
||||
sym = C_intern (&a, 25, "zlib-z-stream-next-in-set");
|
||||
sym = C_intern (&a, 25, "zlib-z-stream-next-in-get");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-avail-in-set");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-avail-in-get");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-total-in-set");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-total-in-get");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-next-out-set");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-next-out-get");
|
||||
sym = C_intern (&a, 27, "zlib-z-stream-avail-out-set");
|
||||
sym = C_intern (&a, 27, "zlib-z-stream-avail-out-get");
|
||||
sym = C_intern (&a, 27, "zlib-z-stream-total-out-set");
|
||||
sym = C_intern (&a, 27, "zlib-z-stream-total-out-get");
|
||||
sym = C_intern (&a, 21, "zlib-z-stream-msg-set");
|
||||
sym = C_intern (&a, 21, "zlib-z-stream-msg-get");
|
||||
sym = C_intern (&a, 23, "zlib-z-stream-state-set");
|
||||
sym = C_intern (&a, 23, "zlib-z-stream-state-get");
|
||||
sym = C_intern (&a, 24, "zlib-z-stream-zalloc-set");
|
||||
sym = C_intern (&a, 24, "zlib-z-stream-zalloc-get");
|
||||
sym = C_intern (&a, 23, "zlib-z-stream-zfree-set");
|
||||
sym = C_intern (&a, 23, "zlib-z-stream-zfree-get");
|
||||
sym = C_intern (&a, 24, "zlib-z-stream-opaque-set");
|
||||
sym = C_intern (&a, 24, "zlib-z-stream-opaque-get");
|
||||
sym = C_intern (&a, 27, "zlib-z-stream-data-type-set");
|
||||
sym = C_intern (&a, 27, "zlib-z-stream-data-type-get");
|
||||
sym = C_intern (&a, 23, "zlib-z-stream-adler-set");
|
||||
sym = C_intern (&a, 23, "zlib-z-stream-adler-get");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-reserved-set");
|
||||
sym = C_intern (&a, 26, "zlib-z-stream-reserved-get");
|
||||
sym = C_intern (&a, 17, "zlib-new-z-stream");
|
||||
sym = C_intern (&a, 20, "zlib-delete-z-stream");
|
||||
sym = C_intern (&a, 15, "zlib-z-no-flush");
|
||||
sym = C_intern (&a, 20, "zlib-z-partial-flush");
|
||||
sym = C_intern (&a, 17, "zlib-z-sync-flush");
|
||||
sym = C_intern (&a, 17, "zlib-z-full-flush");
|
||||
sym = C_intern (&a, 13, "zlib-z-finish");
|
||||
sym = C_intern (&a, 9, "zlib-z-ok");
|
||||
sym = C_intern (&a, 17, "zlib-z-stream-end");
|
||||
sym = C_intern (&a, 16, "zlib-z-need-dict");
|
||||
sym = C_intern (&a, 12, "zlib-z-errno");
|
||||
sym = C_intern (&a, 19, "zlib-z-stream-error");
|
||||
sym = C_intern (&a, 17, "zlib-z-data-error");
|
||||
sym = C_intern (&a, 16, "zlib-z-mem-error");
|
||||
sym = C_intern (&a, 16, "zlib-z-buf-error");
|
||||
sym = C_intern (&a, 20, "zlib-z-version-error");
|
||||
sym = C_intern (&a, 21, "zlib-z-no-compression");
|
||||
sym = C_intern (&a, 17, "zlib-z-best-speed");
|
||||
sym = C_intern (&a, 23, "zlib-z-best-compression");
|
||||
sym = C_intern (&a, 26, "zlib-z-default-compression");
|
||||
sym = C_intern (&a, 15, "zlib-z-filtered");
|
||||
sym = C_intern (&a, 19, "zlib-z-huffman-only");
|
||||
sym = C_intern (&a, 23, "zlib-z-default-strategy");
|
||||
sym = C_intern (&a, 13, "zlib-z-binary");
|
||||
sym = C_intern (&a, 12, "zlib-z-ascii");
|
||||
sym = C_intern (&a, 14, "zlib-z-unknown");
|
||||
sym = C_intern (&a, 15, "zlib-z-deflated");
|
||||
sym = C_intern (&a, 11, "zlib-z-null");
|
||||
sym = C_intern (&a, 17, "zlib-zlib-version");
|
||||
sym = C_intern (&a, 12, "zlib-deflate");
|
||||
sym = C_intern (&a, 16, "zlib-deflate-end");
|
||||
sym = C_intern (&a, 12, "zlib-inflate");
|
||||
sym = C_intern (&a, 16, "zlib-inflate-end");
|
||||
sym = C_intern (&a, 27, "zlib-deflate-set-dictionary");
|
||||
sym = C_intern (&a, 17, "zlib-deflate-copy");
|
||||
sym = C_intern (&a, 18, "zlib-deflate-reset");
|
||||
sym = C_intern (&a, 19, "zlib-deflate-params");
|
||||
sym = C_intern (&a, 27, "zlib-inflate-set-dictionary");
|
||||
sym = C_intern (&a, 17, "zlib-inflate-sync");
|
||||
sym = C_intern (&a, 18, "zlib-inflate-reset");
|
||||
sym = C_intern (&a, 13, "zlib-compress");
|
||||
sym = C_intern (&a, 14, "zlib-compress2");
|
||||
sym = C_intern (&a, 15, "zlib-uncompress");
|
||||
sym = C_intern (&a, 11, "zlib-gzopen");
|
||||
sym = C_intern (&a, 12, "zlib-gzdopen");
|
||||
sym = C_intern (&a, 16, "zlib-gzsetparams");
|
||||
sym = C_intern (&a, 11, "zlib-gzread");
|
||||
sym = C_intern (&a, 12, "zlib-gzwrite");
|
||||
sym = C_intern (&a, 13, "zlib-gzprintf");
|
||||
sym = C_intern (&a, 11, "zlib-gzputs");
|
||||
sym = C_intern (&a, 11, "zlib-gzgets");
|
||||
sym = C_intern (&a, 11, "zlib-gzputc");
|
||||
sym = C_intern (&a, 11, "zlib-gzgetc");
|
||||
sym = C_intern (&a, 12, "zlib-gzflush");
|
||||
sym = C_intern (&a, 11, "zlib-gzseek");
|
||||
sym = C_intern (&a, 13, "zlib-gzrewind");
|
||||
sym = C_intern (&a, 11, "zlib-gztell");
|
||||
sym = C_intern (&a, 10, "zlib-gzeof");
|
||||
sym = C_intern (&a, 12, "zlib-gzclose");
|
||||
sym = C_intern (&a, 12, "zlib-gzerror");
|
||||
sym = C_intern (&a, 12, "zlib-adler32");
|
||||
sym = C_intern (&a, 10, "zlib-crc32");
|
||||
sym = C_intern (&a, 18, "zlib-deflate-init-");
|
||||
sym = C_intern (&a, 18, "zlib-inflate-init-");
|
||||
sym = C_intern (&a, 19, "zlib-deflate-init2-");
|
||||
sym = C_intern (&a, 19, "zlib-inflate-init2-");
|
||||
sym = C_intern (&a, 29, "zlib-internal-state-dummy-set");
|
||||
sym = C_intern (&a, 29, "zlib-internal-state-dummy-get");
|
||||
sym = C_intern (&a, 23, "zlib-new-internal-state");
|
||||
sym = C_intern (&a, 26, "zlib-delete-internal-state");
|
||||
sym = C_intern (&a, 12, "zlib-z-error");
|
||||
sym = C_intern (&a, 23, "zlib-inflate-sync-point");
|
||||
sym = C_intern (&a, 18, "zlib-get-crc-table");
|
||||
sym = C_intern (&a, 17, "zlib-deflate-init");
|
||||
sym = C_intern (&a, 17, "zlib-inflate-init");
|
||||
sym = C_intern (&a, 18, "zlib:max-mem-level");
|
||||
sym = C_intern (&a, 14, "zlib:max-wbits");
|
||||
sym = C_intern (&a, 13, "zlib:seek-set");
|
||||
sym = C_intern (&a, 13, "zlib:seek-cur");
|
||||
sym = C_intern (&a, 13, "zlib:seek-end");
|
||||
sym = C_intern (&a, 12, "zlib:version");
|
||||
sym = C_intern (&a, 25, "zlib:z-stream-next-in-set");
|
||||
sym = C_intern (&a, 25, "zlib:z-stream-next-in-get");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-avail-in-set");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-avail-in-get");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-total-in-set");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-total-in-get");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-next-out-set");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-next-out-get");
|
||||
sym = C_intern (&a, 27, "zlib:z-stream-avail-out-set");
|
||||
sym = C_intern (&a, 27, "zlib:z-stream-avail-out-get");
|
||||
sym = C_intern (&a, 27, "zlib:z-stream-total-out-set");
|
||||
sym = C_intern (&a, 27, "zlib:z-stream-total-out-get");
|
||||
sym = C_intern (&a, 21, "zlib:z-stream-msg-set");
|
||||
sym = C_intern (&a, 21, "zlib:z-stream-msg-get");
|
||||
sym = C_intern (&a, 23, "zlib:z-stream-state-set");
|
||||
sym = C_intern (&a, 23, "zlib:z-stream-state-get");
|
||||
sym = C_intern (&a, 24, "zlib:z-stream-zalloc-set");
|
||||
sym = C_intern (&a, 24, "zlib:z-stream-zalloc-get");
|
||||
sym = C_intern (&a, 23, "zlib:z-stream-zfree-set");
|
||||
sym = C_intern (&a, 23, "zlib:z-stream-zfree-get");
|
||||
sym = C_intern (&a, 24, "zlib:z-stream-opaque-set");
|
||||
sym = C_intern (&a, 24, "zlib:z-stream-opaque-get");
|
||||
sym = C_intern (&a, 27, "zlib:z-stream-data-type-set");
|
||||
sym = C_intern (&a, 27, "zlib:z-stream-data-type-get");
|
||||
sym = C_intern (&a, 23, "zlib:z-stream-adler-set");
|
||||
sym = C_intern (&a, 23, "zlib:z-stream-adler-get");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-reserved-set");
|
||||
sym = C_intern (&a, 26, "zlib:z-stream-reserved-get");
|
||||
sym = C_intern (&a, 17, "zlib:new-z-stream");
|
||||
sym = C_intern (&a, 20, "zlib:delete-z-stream");
|
||||
sym = C_intern (&a, 15, "zlib:z-no-flush");
|
||||
sym = C_intern (&a, 20, "zlib:z-partial-flush");
|
||||
sym = C_intern (&a, 17, "zlib:z-sync-flush");
|
||||
sym = C_intern (&a, 17, "zlib:z-full-flush");
|
||||
sym = C_intern (&a, 13, "zlib:z-finish");
|
||||
sym = C_intern (&a, 9, "zlib:z-ok");
|
||||
sym = C_intern (&a, 17, "zlib:z-stream-end");
|
||||
sym = C_intern (&a, 16, "zlib:z-need-dict");
|
||||
sym = C_intern (&a, 12, "zlib:z-errno");
|
||||
sym = C_intern (&a, 19, "zlib:z-stream-error");
|
||||
sym = C_intern (&a, 17, "zlib:z-data-error");
|
||||
sym = C_intern (&a, 16, "zlib:z-mem-error");
|
||||
sym = C_intern (&a, 16, "zlib:z-buf-error");
|
||||
sym = C_intern (&a, 20, "zlib:z-version-error");
|
||||
sym = C_intern (&a, 21, "zlib:z-no-compression");
|
||||
sym = C_intern (&a, 17, "zlib:z-best-speed");
|
||||
sym = C_intern (&a, 23, "zlib:z-best-compression");
|
||||
sym = C_intern (&a, 26, "zlib:z-default-compression");
|
||||
sym = C_intern (&a, 15, "zlib:z-filtered");
|
||||
sym = C_intern (&a, 19, "zlib:z-huffman-only");
|
||||
sym = C_intern (&a, 23, "zlib:z-default-strategy");
|
||||
sym = C_intern (&a, 13, "zlib:z-binary");
|
||||
sym = C_intern (&a, 12, "zlib:z-ascii");
|
||||
sym = C_intern (&a, 14, "zlib:z-unknown");
|
||||
sym = C_intern (&a, 15, "zlib:z-deflated");
|
||||
sym = C_intern (&a, 11, "zlib:z-null");
|
||||
sym = C_intern (&a, 17, "zlib:zlib-version");
|
||||
sym = C_intern (&a, 12, "zlib:deflate");
|
||||
sym = C_intern (&a, 16, "zlib:deflate-end");
|
||||
sym = C_intern (&a, 12, "zlib:inflate");
|
||||
sym = C_intern (&a, 16, "zlib:inflate-end");
|
||||
sym = C_intern (&a, 27, "zlib:deflate-set-dictionary");
|
||||
sym = C_intern (&a, 17, "zlib:deflate-copy");
|
||||
sym = C_intern (&a, 18, "zlib:deflate-reset");
|
||||
sym = C_intern (&a, 19, "zlib:deflate-params");
|
||||
sym = C_intern (&a, 27, "zlib:inflate-set-dictionary");
|
||||
sym = C_intern (&a, 17, "zlib:inflate-sync");
|
||||
sym = C_intern (&a, 18, "zlib:inflate-reset");
|
||||
sym = C_intern (&a, 13, "zlib:compress");
|
||||
sym = C_intern (&a, 14, "zlib:compress2");
|
||||
sym = C_intern (&a, 15, "zlib:uncompress");
|
||||
sym = C_intern (&a, 11, "zlib:gzopen");
|
||||
sym = C_intern (&a, 12, "zlib:gzdopen");
|
||||
sym = C_intern (&a, 16, "zlib:gzsetparams");
|
||||
sym = C_intern (&a, 11, "zlib:gzread");
|
||||
sym = C_intern (&a, 12, "zlib:gzwrite");
|
||||
sym = C_intern (&a, 13, "zlib:gzprintf");
|
||||
sym = C_intern (&a, 11, "zlib:gzputs");
|
||||
sym = C_intern (&a, 11, "zlib:gzgets");
|
||||
sym = C_intern (&a, 11, "zlib:gzputc");
|
||||
sym = C_intern (&a, 11, "zlib:gzgetc");
|
||||
sym = C_intern (&a, 12, "zlib:gzflush");
|
||||
sym = C_intern (&a, 11, "zlib:gzseek");
|
||||
sym = C_intern (&a, 13, "zlib:gzrewind");
|
||||
sym = C_intern (&a, 11, "zlib:gztell");
|
||||
sym = C_intern (&a, 10, "zlib:gzeof");
|
||||
sym = C_intern (&a, 12, "zlib:gzclose");
|
||||
sym = C_intern (&a, 12, "zlib:gzerror");
|
||||
sym = C_intern (&a, 12, "zlib:adler32");
|
||||
sym = C_intern (&a, 10, "zlib:crc32");
|
||||
sym = C_intern (&a, 18, "zlib:deflate-init-");
|
||||
sym = C_intern (&a, 18, "zlib:inflate-init-");
|
||||
sym = C_intern (&a, 19, "zlib:deflate-init2-");
|
||||
sym = C_intern (&a, 19, "zlib:inflate-init2-");
|
||||
sym = C_intern (&a, 29, "zlib:internal-state-dummy-set");
|
||||
sym = C_intern (&a, 29, "zlib:internal-state-dummy-get");
|
||||
sym = C_intern (&a, 23, "zlib:new-internal-state");
|
||||
sym = C_intern (&a, 26, "zlib:delete-internal-state");
|
||||
sym = C_intern (&a, 12, "zlib:z-error");
|
||||
sym = C_intern (&a, 23, "zlib:inflate-sync-point");
|
||||
sym = C_intern (&a, 18, "zlib:get-crc-table");
|
||||
sym = C_intern (&a, 17, "zlib:deflate-init");
|
||||
sym = C_intern (&a, 17, "zlib:inflate-init");
|
||||
</pre>
|
||||
</blockquote>
|
||||
|
||||
|
|
@ -1440,27 +1440,27 @@ zlib
|
|||
|
||||
Scheme Procedures:
|
||||
|
||||
zlib-max-mem-level
|
||||
zlib-max-wbits
|
||||
zlib-seek-set
|
||||
zlib-seek-cur
|
||||
zlib-seek-end
|
||||
zlib-version
|
||||
zlib-z-stream-next-in-set
|
||||
zlib-z-stream-next-in-get
|
||||
zlib-z-stream-avail-in-set
|
||||
zlib:max-mem-level
|
||||
zlib:max-wbits
|
||||
zlib:seek-set
|
||||
zlib:seek-cur
|
||||
zlib:seek-end
|
||||
zlib:version
|
||||
zlib:z-stream-next-in-set
|
||||
zlib:z-stream-next-in-get
|
||||
zlib:z-stream-avail-in-set
|
||||
...
|
||||
zlib-get-crc-table
|
||||
zlib-deflate-init
|
||||
zlib-inflate-init
|
||||
zlib:get-crc-table
|
||||
zlib:deflate-init
|
||||
zlib:inflate-init
|
||||
; This is the CHICKEN interpreter - Version 0, Build 1095 - windows-cygwin-x86
|
||||
; (c)2000-2003 Felix L. Winkelmann
|
||||
>>> (define s (zlib-new-z-stream))
|
||||
>>> (define s (zlib:new-z-stream))
|
||||
>>> s
|
||||
#<tagged pointer #<c++ "z_stream *">(#<pointer 6d9290>)>
|
||||
>>> (zlib-z-stream-next-in-get s)
|
||||
>>> (zlib:z-stream-next-in-get s)
|
||||
#f
|
||||
>>> (zlib-z-stream-next-in-set s "some dummy stream data")
|
||||
>>> (zlib:z-stream-next-in-set s "some dummy stream data")
|
||||
Error: Type error. Expected _p_Bytef: "bad argument type"
|
||||
>>> (exit)
|
||||
</pre>
|
||||
|
|
@ -1524,38 +1524,38 @@ zlib
|
|||
|
||||
Scheme Procedures:
|
||||
|
||||
zlib-max-mem-level
|
||||
zlib-max-wbits
|
||||
zlib-seek-set
|
||||
zlib-seek-cur
|
||||
zlib-seek-end
|
||||
zlib-version
|
||||
zlib-z-stream-next-in-set
|
||||
zlib-z-stream-next-in-get
|
||||
zlib-z-stream-avail-in-set
|
||||
zlib:max-mem-level
|
||||
zlib:max-wbits
|
||||
zlib:seek-set
|
||||
zlib:seek-cur
|
||||
zlib:seek-end
|
||||
zlib:version
|
||||
zlib:z-stream-next-in-set
|
||||
zlib:z-stream-next-in-get
|
||||
zlib:z-stream-avail-in-set
|
||||
...
|
||||
zlib-get-crc-table
|
||||
zlib-deflate-init
|
||||
zlib-inflate-init
|
||||
zlib:get-crc-table
|
||||
zlib:deflate-init
|
||||
zlib:inflate-init
|
||||
; This is the CHICKEN interpreter - Version 0, Build 1095 - windows-cygwin-x86
|
||||
; (c)2000-2003 Felix L. Winkelmann
|
||||
>>> (define s (zlib-new-z-stream))
|
||||
>>> (define s (zlib:new-z-stream))
|
||||
<em>Init zstream</em>
|
||||
>>> (zlib-z-stream-zalloc-set s #f)
|
||||
>>> (zlib-z-stream-zfree-set s #f)
|
||||
>>> (zlib-z-stream-opaque-set s #f)
|
||||
>>> (zlib-deflate-init s (zlib-z-default-compression))
|
||||
>>> (zlib:z-stream-zalloc-set s #f)
|
||||
>>> (zlib:z-stream-zfree-set s #f)
|
||||
>>> (zlib:z-stream-opaque-set s #f)
|
||||
>>> (zlib:deflate-init s (zlib:z-default-compression))
|
||||
0
|
||||
<em>Deflate something small so we don't need to loop/stream data</em>
|
||||
>>> (define in "some dummy data")
|
||||
>>> (define out (make-string 1000))
|
||||
>>> (zlib-z-stream-next-in-set s in)
|
||||
>>> (zlib-z-stream-avail-in-set s (string-length in))
|
||||
>>> (zlib-z-stream-next-out-set s out)
|
||||
>>> (zlib-z-stream-avail-out-set s (string-length out))
|
||||
>>> (zlib-deflate s (zlib-z-finish))
|
||||
1 <em>;; (zlib-z-stream-end) == 1, which is good</em>
|
||||
>>> (zlib-z-stream-total-out-get s)
|
||||
>>> (zlib:z-stream-next-in-set s in)
|
||||
>>> (zlib:z-stream-avail-in-set s (string-length in))
|
||||
>>> (zlib:z-stream-next-out-set s out)
|
||||
>>> (zlib:z-stream-avail-out-set s (string-length out))
|
||||
>>> (zlib:deflate s (zlib:z-finish))
|
||||
1 <em>;; (zlib:z-stream-end) == 1, which is good</em>
|
||||
>>> (zlib:z-stream-total-out-get s)
|
||||
23.
|
||||
>>> out
|
||||
" "
|
||||
|
|
@ -1567,7 +1567,7 @@ zlib-inflate-init
|
|||
when SWIG CHICKEN passes a Scheme string to a C function, it
|
||||
duplicates the string before calling the C function. We want to
|
||||
save the memory address that
|
||||
<code>zlib-z-stream-next-out-set</code> is using, so we can
|
||||
<code>zlib:z-stream-next-out-set</code> is using, so we can
|
||||
display this later. While we are at it, we can foresee that
|
||||
<code>compress</code>, <code>compress2</code> and
|
||||
<code>uncompress</code> will all need some finessing to work with
|
||||
|
|
|
|||
|
|
@ -9,115 +9,115 @@
|
|||
|
||||
(display "Scheme Procedures:\n")
|
||||
(display "
|
||||
zlib-max-mem-level
|
||||
zlib-max-wbits
|
||||
zlib-seek-set
|
||||
zlib-seek-cur
|
||||
zlib-seek-end
|
||||
zlib-version
|
||||
zlib-z-stream-next-in-set
|
||||
zlib-z-stream-next-in-get
|
||||
zlib-z-stream-avail-in-set
|
||||
zlib-z-stream-avail-in-get
|
||||
zlib-z-stream-total-in-set
|
||||
zlib-z-stream-total-in-get
|
||||
zlib-z-stream-next-out-set
|
||||
zlib-z-stream-next-out-get
|
||||
zlib-z-stream-avail-out-set
|
||||
zlib-z-stream-avail-out-get
|
||||
zlib-z-stream-total-out-set
|
||||
zlib-z-stream-total-out-get
|
||||
zlib-z-stream-msg-set
|
||||
zlib-z-stream-msg-get
|
||||
zlib-z-stream-state-set
|
||||
zlib-z-stream-state-get
|
||||
zlib-z-stream-zalloc-set
|
||||
zlib-z-stream-zalloc-get
|
||||
zlib-z-stream-zfree-set
|
||||
zlib-z-stream-zfree-get
|
||||
zlib-z-stream-opaque-set
|
||||
zlib-z-stream-opaque-get
|
||||
zlib-z-stream-data-type-set
|
||||
zlib-z-stream-data-type-get
|
||||
zlib-z-stream-adler-set
|
||||
zlib-z-stream-adler-get
|
||||
zlib-z-stream-reserved-set
|
||||
zlib-z-stream-reserved-get
|
||||
zlib-new-z-stream
|
||||
zlib-delete-z-stream
|
||||
zlib-z-no-flush
|
||||
zlib-z-partial-flush
|
||||
zlib-z-sync-flush
|
||||
zlib-z-full-flush
|
||||
zlib-z-finish
|
||||
zlib-z-ok
|
||||
zlib-z-stream-end
|
||||
zlib-z-need-dict
|
||||
zlib-z-errno
|
||||
zlib-z-stream-error
|
||||
zlib-z-data-error
|
||||
zlib-z-mem-error
|
||||
zlib-z-buf-error
|
||||
zlib-z-version-error
|
||||
zlib-z-no-compression
|
||||
zlib-z-best-speed
|
||||
zlib-z-best-compression
|
||||
zlib-z-default-compression
|
||||
zlib-z-filtered
|
||||
zlib-z-huffman-only
|
||||
zlib-z-default-strategy
|
||||
zlib-z-binary
|
||||
zlib-z-ascii
|
||||
zlib-z-unknown
|
||||
zlib-z-deflated
|
||||
zlib-z-null
|
||||
zlib-version
|
||||
zlib-deflate
|
||||
zlib-deflate-end
|
||||
zlib-inflate
|
||||
zlib-inflate-end
|
||||
zlib-deflate-set-dictionary
|
||||
zlib-deflate-copy
|
||||
zlib-deflate-reset
|
||||
zlib-deflate-params
|
||||
zlib-inflate-set-dictionary
|
||||
zlib-inflate-sync
|
||||
zlib-inflate-reset
|
||||
zlib-compress
|
||||
zlib-compress2
|
||||
zlib-uncompress
|
||||
zlib-gzopen
|
||||
zlib-gzdopen
|
||||
zlib-gzsetparams
|
||||
zlib-gzread
|
||||
zlib-gzwrite
|
||||
zlib-gzprintf
|
||||
zlib-gzputs
|
||||
zlib-gzgets
|
||||
zlib-gzputc
|
||||
zlib-gzgetc
|
||||
zlib-gzflush
|
||||
zlib-gzseek
|
||||
zlib-gzrewind
|
||||
zlib-gztell
|
||||
zlib-gzeof
|
||||
zlib-gzclose
|
||||
zlib-gzerror
|
||||
zlib-adler32
|
||||
zlib-crc32
|
||||
zlib-deflate-init-
|
||||
zlib-inflate-init-
|
||||
zlib-deflate-init2-
|
||||
zlib-inflate-init2-
|
||||
zlib-internal-state-dummy-set
|
||||
zlib-internal-state-dummy-get
|
||||
zlib-new-internal-state
|
||||
zlib-delete-internal-state
|
||||
zlib-z-error
|
||||
zlib-inflate-sync-point
|
||||
zlib-get-crc-table
|
||||
zlib-deflate-init
|
||||
zlib-inflate-init
|
||||
zlib-z-stream-save-next-out
|
||||
zlib-z-stream-get-next-chunk
|
||||
zlib:max-mem-level
|
||||
zlib:max-wbits
|
||||
zlib:seek-set
|
||||
zlib:seek-cur
|
||||
zlib:seek-end
|
||||
zlib:version
|
||||
zlib:z-stream-next-in-set
|
||||
zlib:z-stream-next-in-get
|
||||
zlib:z-stream-avail-in-set
|
||||
zlib:z-stream-avail-in-get
|
||||
zlib:z-stream-total-in-set
|
||||
zlib:z-stream-total-in-get
|
||||
zlib:z-stream-next-out-set
|
||||
zlib:z-stream-next-out-get
|
||||
zlib:z-stream-avail-out-set
|
||||
zlib:z-stream-avail-out-get
|
||||
zlib:z-stream-total-out-set
|
||||
zlib:z-stream-total-out-get
|
||||
zlib:z-stream-msg-set
|
||||
zlib:z-stream-msg-get
|
||||
zlib:z-stream-state-set
|
||||
zlib:z-stream-state-get
|
||||
zlib:z-stream-zalloc-set
|
||||
zlib:z-stream-zalloc-get
|
||||
zlib:z-stream-zfree-set
|
||||
zlib:z-stream-zfree-get
|
||||
zlib:z-stream-opaque-set
|
||||
zlib:z-stream-opaque-get
|
||||
zlib:z-stream-data-type-set
|
||||
zlib:z-stream-data-type-get
|
||||
zlib:z-stream-adler-set
|
||||
zlib:z-stream-adler-get
|
||||
zlib:z-stream-reserved-set
|
||||
zlib:z-stream-reserved-get
|
||||
zlib:new-z-stream
|
||||
zlib:delete-z-stream
|
||||
zlib:z-no-flush
|
||||
zlib:z-partial-flush
|
||||
zlib:z-sync-flush
|
||||
zlib:z-full-flush
|
||||
zlib:z-finish
|
||||
zlib:z-ok
|
||||
zlib:z-stream-end
|
||||
zlib:z-need-dict
|
||||
zlib:z-errno
|
||||
zlib:z-stream-error
|
||||
zlib:z-data-error
|
||||
zlib:z-mem-error
|
||||
zlib:z-buf-error
|
||||
zlib:z-version-error
|
||||
zlib:z-no-compression
|
||||
zlib:z-best-speed
|
||||
zlib:z-best-compression
|
||||
zlib:z-default-compression
|
||||
zlib:z-filtered
|
||||
zlib:z-huffman-only
|
||||
zlib:z-default-strategy
|
||||
zlib:z-binary
|
||||
zlib:z-ascii
|
||||
zlib:z-unknown
|
||||
zlib:z-deflated
|
||||
zlib:z-null
|
||||
zlib:version
|
||||
zlib:deflate
|
||||
zlib:deflate-end
|
||||
zlib:inflate
|
||||
zlib:inflate-end
|
||||
zlib:deflate-set-dictionary
|
||||
zlib:deflate-copy
|
||||
zlib:deflate-reset
|
||||
zlib:deflate-params
|
||||
zlib:inflate-set-dictionary
|
||||
zlib:inflate-sync
|
||||
zlib:inflate-reset
|
||||
zlib:compress
|
||||
zlib:compress2
|
||||
zlib:uncompress
|
||||
zlib:gzopen
|
||||
zlib:gzdopen
|
||||
zlib:gzsetparams
|
||||
zlib:gzread
|
||||
zlib:gzwrite
|
||||
zlib:gzprintf
|
||||
zlib:gzputs
|
||||
zlib:gzgets
|
||||
zlib:gzputc
|
||||
zlib:gzgetc
|
||||
zlib:gzflush
|
||||
zlib:gzseek
|
||||
zlib:gzrewind
|
||||
zlib:gztell
|
||||
zlib:gzeof
|
||||
zlib:gzclose
|
||||
zlib:gzerror
|
||||
zlib:adler32
|
||||
zlib:crc32
|
||||
zlib:deflate-init-
|
||||
zlib:inflate-init-
|
||||
zlib:deflate-init2-
|
||||
zlib:inflate-init2-
|
||||
zlib:internal-state-dummy-set
|
||||
zlib:internal-state-dummy-get
|
||||
zlib:new-internal-state
|
||||
zlib:delete-internal-state
|
||||
zlib:z-error
|
||||
zlib:inflate-sync-point
|
||||
zlib:get-crc-table
|
||||
zlib:deflate-init
|
||||
zlib:inflate-init
|
||||
zlib:z-stream-save-next-out
|
||||
zlib:z-stream-get-next-chunk
|
||||
")
|
||||
|
|
@ -1,42 +1,42 @@
|
|||
;; run with './zlib test-zlib.scm'
|
||||
|
||||
;; Init zstream
|
||||
(define s (zlib-new-z-stream))
|
||||
(zlib-z-stream-zalloc-set s #f)
|
||||
(zlib-z-stream-zfree-set s #f)
|
||||
(zlib-z-stream-opaque-set s #f)
|
||||
(zlib-deflate-init s (zlib-z-default-compression))
|
||||
(define s (zlib:new-z-stream))
|
||||
(zlib:z-stream-zalloc-set s #f)
|
||||
(zlib:z-stream-zfree-set s #f)
|
||||
(zlib:z-stream-opaque-set s #f)
|
||||
(zlib:deflate-init s (zlib:z-default-compression))
|
||||
|
||||
;; Deflate something small so we don't need to loop/stream data
|
||||
(define in "some pony et jumping et jack et flash et had a jack pony")
|
||||
(define out (make-string 1000))
|
||||
(format #t "to be compressed: ~A~%to be compressed bytes: ~D~%~%" in (string-length in))
|
||||
(zlib-z-stream-next-in-set s in)
|
||||
(zlib-z-stream-avail-in-set s (string-length in))
|
||||
(zlib-z-stream-next-out-set s out)
|
||||
(zlib-z-stream-avail-out-set s (string-length out))
|
||||
(zlib:z-stream-next-in-set s in)
|
||||
(zlib:z-stream-avail-in-set s (string-length in))
|
||||
(zlib:z-stream-next-out-set s out)
|
||||
(zlib:z-stream-avail-out-set s (string-length out))
|
||||
(let*
|
||||
((saved-out (zlib-z-stream-save-next-out s))
|
||||
(ret (zlib-deflate s (zlib-z-finish))))
|
||||
((saved-out (zlib:z-stream-save-next-out s))
|
||||
(ret (zlib:deflate s (zlib:z-finish))))
|
||||
(cond
|
||||
((= ret (zlib-z-stream-end))
|
||||
((= ret (zlib:z-stream-end))
|
||||
(format #t "deflated properly!~%compressed bytes: ~D~%compressed stream: ~S~%"
|
||||
(zlib-z-stream-total-out-get s) (zlib-z-stream-get-next-chunk s saved-out)))
|
||||
((= ret (zlib-z-ok))
|
||||
(zlib:z-stream-total-out-get s) (zlib:z-stream-get-next-chunk s saved-out)))
|
||||
((= ret (zlib:z-ok))
|
||||
(display "only partial deflation ... not enough output space\n"))
|
||||
(else
|
||||
(format #t "deflate error(~D): ~A ~%" ret (zlib-z-stream-msg-get s)))))
|
||||
(format #t "deflate error(~D): ~A ~%" ret (zlib:z-stream-msg-get s)))))
|
||||
|
||||
;; Use simple compress routine, and set max output size to 100
|
||||
(define c (zlib-compress 100 in))
|
||||
(define c (zlib:compress 100 in))
|
||||
(newline)
|
||||
(let
|
||||
((ret (car c))
|
||||
(compressed (cadr c)))
|
||||
(cond
|
||||
((= ret (zlib-z-ok))
|
||||
((= ret (zlib:z-ok))
|
||||
(format #t "compressed properly!~%compressed bytes: ~D~%compressed stream: ~S~%"
|
||||
(string-length compressed) compressed))
|
||||
(else
|
||||
(format #t "compress error(~D): ~A ~%" ret (zlib-z-error ret)))))
|
||||
(format #t "compress error(~D): ~A ~%" ret (zlib:z-error ret)))))
|
||||
|
||||
|
|
|
|||
|
|
@ -236,7 +236,7 @@ $1 = *argp; ";
|
|||
%typemap(out,chicken_words="SWIG_ALLOCSZ_PACKED_OBJ(sizeof($1_type),$typename)") SWIGTYPE (CLASS::*) "$result = swig_new_packed_obj((void *) &$1, &known_space, sizeof($1_type), $1_descriptor);";
|
||||
|
||||
/* Void */
|
||||
%typemap(out,chicken_words="VOID") void
|
||||
%typemap(out,chicken_words="void") void
|
||||
%{
|
||||
/*if ONE*/
|
||||
$result = C_SCHEME_UNDEFINED;
|
||||
|
|
|
|||
|
|
@ -250,8 +250,8 @@ CHICKEN::top(Node *n)
|
|||
if (!prefix) {
|
||||
prefix = Copy(module);
|
||||
}
|
||||
if (Len(prefix) && ((Char(prefix)) [Len(prefix) - 1] != '-')) {
|
||||
Append(prefix, "-");
|
||||
if (Len(prefix) && ((Char(prefix)) [Len(prefix) - 1] != ':')) {
|
||||
Append(prefix, ":");
|
||||
}
|
||||
}
|
||||
|
||||
|
|
@ -538,7 +538,7 @@ CHICKEN::functionWrapper(Node *n)
|
|||
for (p = l; p;) {
|
||||
if (tm = Getattr(p,"tmap:argout:chicken_words")) {
|
||||
Replaceall(tm,"$typename", mangle);
|
||||
if (strcasecmp(Char(tm), "VOID") == 0) continue;
|
||||
if (strcmp(Char(tm), "void") == 0) continue;
|
||||
if (strcmp(Char(tm), "0") != 0) will_alloca = 1;
|
||||
if (result_list_len) {
|
||||
Printf(known_alloca_plus, " + ");
|
||||
|
|
@ -555,7 +555,7 @@ CHICKEN::functionWrapper(Node *n)
|
|||
if ((tm = Swig_typemap_lookup_new("out",n,"result",0))) {
|
||||
if (am = Getattr(n,"tmap:out:chicken_words")) {
|
||||
Replaceall(am,"$typename", mangle);
|
||||
if (strcasecmp(Char(am), "VOID") == 0) {
|
||||
if (strcmp(Char(am), "void") == 0) {
|
||||
has_void_return = 1;
|
||||
}
|
||||
else {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue