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/SWIG@4411 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Jonah Beckford 2003-02-27 02:00:15 +00:00
commit cfe7be1eed
20 changed files with 681 additions and 682 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Examples/chicken/multimap/precsi.scm
View file

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

52
Examples/chicken/multimap/test-multimap.scm
View file

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