[Swig-cvs] SWIG/Examples/chicken/class Makefile,1.7,1.8 test-lowlevel-class.scm,1.4,1.5 test-tinyclos-class.scm,1.5,1.6

[John L. <wu...@us...>]

Update of /cvsroot/swig/SWIG/Examples/chicken/class
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4387/Examples/chicken/class

Modified Files:
	Makefile test-lowlevel-class.scm test-tinyclos-class.scm 
Log Message:
Add a whole bunch of chicken runme scripts, and fix the bugs exposed by those scripts


Index: test-lowlevel-class.scm
===================================================================
RCS file: /cvsroot/swig/SWIG/Examples/chicken/class/test-lowlevel-class.scm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** test-lowlevel-class.scm	2 Nov 2004 02:50:28 -0000	1.4
--- test-lowlevel-class.scm	15 Apr 2005 05:23:12 -0000	1.5
***************
*** 65,70 ****
  
  ;; Note: this invokes the virtual destructor
! (delete-Shape c)
! (delete-Shape s)
  
  (set! s 3)
--- 65,71 ----
  
  ;; Note: this invokes the virtual destructor
! (set! c #f)
! (set! s #f)
! (gc #t)
  
  (set! s 3)

Index: Makefile
===================================================================
RCS file: /cvsroot/swig/SWIG/Examples/chicken/class/Makefile,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Makefile	2 Nov 2004 02:50:28 -0000	1.7
--- Makefile	15 Apr 2005 05:23:11 -0000	1.8
***************
*** 8,12 ****
  SWIGOPT     =
  CFLAGS      = 
! VARIANT     = _csc
  
  # uncomment the following lines to build a static exe (only pick one of the CHICKEN_MAIN lines)
--- 8,12 ----
  SWIGOPT     =
  CFLAGS      = 
! VARIANT     =
  
  # uncomment the following lines to build a static exe (only pick one of the CHICKEN_MAIN lines)

Index: test-tinyclos-class.scm
===================================================================
RCS file: /cvsroot/swig/SWIG/Examples/chicken/class/test-tinyclos-class.scm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** test-tinyclos-class.scm	2 Nov 2004 02:50:28 -0000	1.5
--- test-tinyclos-class.scm	15 Apr 2005 05:23:12 -0000	1.6
***************
*** 21,25 ****
  
  (display "\nA total of ")
! (display (nshapes))
  (display " shapes were created\n")
  
--- 21,25 ----
  
  (display "\nA total of ")
! (display (Shape-nshapes))
  (display " shapes were created\n")
  
***************
*** 68,74 ****
  (set! c 77)
  (set! s 88)
! ;(gc #t)
  
! (display (nshapes))
  (display " shapes remain\n")
  (display "Goodbye\n")
--- 68,74 ----
  (set! c 77)
  (set! s 88)
! (gc #t)
  
! (display (Shape-nshapes))
  (display " shapes remain\n")
  (display "Goodbye\n")