jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changed module technique from <module_name>- to <module_name>: which

Browse source 
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 2003-02-27 02:00:15 +00:00
commit 3def239916
20 changed files with 681 additions and 682 deletions
Download patch file Download diff file Expand all files Collapse all files

52
SWIG/Examples/chicken/class/precsi.scm
View file

@ -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")))