Rewrite chicken example and test-suite building code

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5948 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2004-05-30 07:11:26 +00:00
commit 42afd931c7
35 changed files with 315 additions and 844 deletions

View file

@ -1,49 +1,31 @@
TOP = ../..
SWIG = $(TOP)/../swig
INTERFACE = example.i
CHICKSRCS = precsi.c oexample.c
SRCS = example_wrap.c
CXXSRCS =
CHICKGEN = $(CHICKSRCS) csi.c example_wrap.c
TARGET = zlib
INCLUDE = -I.
LIBS = -lz
SWIGOPT = -prefix zlib -mixed -I/usr/include
TOP = ../..
SWIG = $(TOP)/../preinst-swig
INTERFACE = example.i
SRCS =
CXXSRCS =
TARGET = zlib
INCLUDE =
SWIGOPT = -I/usr/include -mixed -prefix zlib
CFLAGS =
VARIANT =
LIBS = -lz
# comment out the following two lines to build a dynamic exe
CHICKEN_MAIN = test-zlib.scm
VARIANT = _static
all:: $(TARGET)
csi.c:
$(MAKE) -f $(TOP)/Makefile TARGET='csi.c' \
INTERFACE='precsi' chicken_csi
precsi.c: precsi.scm
$(MAKE) -f $(TOP)/Makefile TARGET='precsi.c' \
INTERFACE='$<' chicken_chicken
example_wrap.c example.scm: example.i
$(MAKE) -f $(TOP)/Makefile SWIG='$(SWIG)' SWIGOPT='$(SWIGOPT)' \
INCLUDE='$(INCLUDE)' INTERFACE='example.i' chicken_swig_c
oexample.c: example.scm
$(MAKE) -f $(TOP)/Makefile TARGET='oexample.c' \
INTERFACE='$<' chicken_chicken
$(TARGET): csi.c $(CHICKSRCS) $(SRCS) $(CXXSRCS)
$(MAKE) -f $(TOP)/Makefile LIBS='$(LIBS)' \
CHICKSRCS='$(CHICKSRCS)' SRCS='$(SRCS)' CXXSRCS='$(CXXSRCS)' \
INCLUDE='$(INCLUDE)' SWIGOPT='$(SWIGOPT)' TARGET='$(TARGET)' \
SWIG='$(SWIG)' INTERFACE='$(INTERFACE)' chicken_static
module:: $(CHICKSRCS) $(SRCS) $(CXXSRCS)
$(MAKE) -f $(TOP)/Makefile LIBS='$(LIBS)' \
CHICKSRCS='$(CHICKSRCS)' SRCS='$(SRCS)' CXXSRCS='$(CXXSRCS)' \
INCLUDE='$(INCLUDE)' SWIGOPT='$(SWIGOPT)' TARGET='module' \
SWIG='$(SWIG)' INTERFACE='$(INTERFACE)' chicken_module
$(TARGET): $(INTERFACE) $(SRCS)
$(MAKE) -f $(TOP)/Makefile \
SRCS='$(SRCS)' CXXSRCS='$(CXXSRCS)' CHICKEN_MAIN='$(CHICKEN_MAIN)' \
INCLUDE='$(INCLUDE)' SWIGOPT='$(SWIGOPT)' LIBS='$(LIBS)' TARGET='$(TARGET)' \
SWIG='$(SWIG)' INTERFACE='$(INTERFACE)' CHICKENOPTS='$(CHICKENOPTS)' chicken$(VARIANT)
clean::
$(MAKE) -f $(TOP)/Makefile chicken_clean
rm -f $(CHICKGEN)
rm -f example.scm example-generic.scm example-clos.scm
rm -f $(TARGET)
check:: module
check::
csi -batch simple.so test-zlib.scm

View file

@ -1,123 +0,0 @@
(declare (unit precsi))
(declare (uses example))
;; display prelude to csi
(display "zlib\n\n")
(display " A SWIG example for the CHICKEN compiler\n")
(display " Author: Jonah Beckford, February 2003\n\n")
(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
")

View file

@ -1,5 +1,8 @@
;; run with './zlib test-zlib.scm'
(declare (uses example))
(declare (uses format))
;; Init zstream
(define s (zlib:new-z-stream))
(zlib:z-stream-zalloc-set s #f)