From 80fcdc3162af853a3b4e895bfeed57bacb611743 Mon Sep 17 00:00:00 2001 From: hyung-hwan Date: Sat, 28 Aug 2010 05:49:57 +0000 Subject: [PATCH] added missing files again --- qse/lib/scm/Makefile.am | 10 + qse/lib/scm/Makefile.in | 551 ++++++++++++++++++++++++++++++++++++ qse/lib/scm/err.c | 128 +++++++++ qse/lib/scm/mem.c | 600 ++++++++++++++++++++++++++++++++++++++++ qse/lib/scm/mem.h | 100 +++++++ qse/lib/scm/scm.c | 168 +++++++++++ qse/lib/scm/scm.h | 115 ++++++++ 7 files changed, 1672 insertions(+) create mode 100644 qse/lib/scm/Makefile.am create mode 100644 qse/lib/scm/Makefile.in create mode 100644 qse/lib/scm/err.c create mode 100644 qse/lib/scm/mem.c create mode 100644 qse/lib/scm/mem.h create mode 100644 qse/lib/scm/scm.c create mode 100644 qse/lib/scm/scm.h diff --git a/qse/lib/scm/Makefile.am b/qse/lib/scm/Makefile.am new file mode 100644 index 00000000..28b8f63f --- /dev/null +++ b/qse/lib/scm/Makefile.am @@ -0,0 +1,10 @@ + +AUTOMAKE_OPTIONS = nostdinc + +AM_CPPFLAGS = -I$(top_srcdir)/include + +lib_LTLIBRARIES = libqsescm.la + +libqsescm_la_SOURCES = scm.h scm.c err.c +libqsescm_la_LDFLAGS = -L../cmn -version-info 1:0:0 -no-undefined +libqsescm_la_LIBADD = -lqsecmn diff --git a/qse/lib/scm/Makefile.in b/qse/lib/scm/Makefile.in new file mode 100644 index 00000000..42c17050 --- /dev/null +++ b/qse/lib/scm/Makefile.in @@ -0,0 +1,551 @@ +# Makefile.in generated by automake 1.11.1 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, +# 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, +# Inc. +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ + +VPATH = @srcdir@ +pkgdatadir = $(datadir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkglibexecdir = $(libexecdir)/@PACKAGE@ +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = @build@ +host_triplet = @host@ +subdir = lib/scm +DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/ac/m4/libtool.m4 \ + $(top_srcdir)/ac/m4/ltoptions.m4 \ + $(top_srcdir)/ac/m4/ltsugar.m4 \ + $(top_srcdir)/ac/m4/ltversion.m4 \ + $(top_srcdir)/ac/m4/lt~obsolete.m4 $(top_srcdir)/configure.ac +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +mkinstalldirs = $(install_sh) -d +CONFIG_HEADER = $(top_builddir)/include/qse/config.h +CONFIG_CLEAN_FILES = +CONFIG_CLEAN_VPATH_FILES = +am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; +am__vpath_adj = case $$p in \ + $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ + *) f=$$p;; \ + esac; +am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; +am__install_max = 40 +am__nobase_strip_setup = \ + srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` +am__nobase_strip = \ + for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" +am__nobase_list = $(am__nobase_strip_setup); \ + for p in $$list; do echo "$$p $$p"; done | \ + sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ + $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ + if (++n[$$2] == $(am__install_max)) \ + { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ + END { for (dir in files) print dir, files[dir] }' +am__base_list = \ + sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ + sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' +am__installdirs = "$(DESTDIR)$(libdir)" +LTLIBRARIES = $(lib_LTLIBRARIES) +libqsescm_la_DEPENDENCIES = +am_libqsescm_la_OBJECTS = scm.lo err.lo +libqsescm_la_OBJECTS = $(am_libqsescm_la_OBJECTS) +libqsescm_la_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ + $(libqsescm_la_LDFLAGS) $(LDFLAGS) -o $@ +DEFAULT_INCLUDES = +depcomp = $(SHELL) $(top_srcdir)/ac/au/depcomp +am__depfiles_maybe = depfiles +am__mv = mv -f +COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ + $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ + --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ + $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +CCLD = $(CC) +LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ + --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ + $(LDFLAGS) -o $@ +SOURCES = $(libqsescm_la_SOURCES) +DIST_SOURCES = $(libqsescm_la_SOURCES) +ETAGS = etags +CTAGS = ctags +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = @ACLOCAL@ +AMTAR = @AMTAR@ +AR = @AR@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOMAKE = @AUTOMAKE@ +AWK = @AWK@ +BUILD_MODE = @BUILD_MODE@ +CC = @CC@ +CCDEPMODE = @CCDEPMODE@ +CFLAGS = @CFLAGS@ +CHAR_MODE = @CHAR_MODE@ +CPP = @CPP@ +CPPFLAGS = @CPPFLAGS@ +CXX = @CXX@ +CXXCPP = @CXXCPP@ +CXXDEPMODE = @CXXDEPMODE@ +CXXFLAGS = @CXXFLAGS@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +DEPDIR = @DEPDIR@ +DSYMUTIL = @DSYMUTIL@ +DUMPBIN = @DUMPBIN@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +EGREP = @EGREP@ +EXEEXT = @EXEEXT@ +FGREP = @FGREP@ +GREP = @GREP@ +HAVE_CXX = @HAVE_CXX@ +HAVE_OBJC = @HAVE_OBJC@ +INSTALL = @INSTALL@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +LD = @LD@ +LDFLAGS = @LDFLAGS@ +LIBM = @LIBM@ +LIBOBJS = @LIBOBJS@ +LIBS = @LIBS@ +LIBTOOL = @LIBTOOL@ +LIBTOOL_DEPS = @LIBTOOL_DEPS@ +LIPO = @LIPO@ +LN_S = @LN_S@ +LTLIBOBJS = @LTLIBOBJS@ +MAKEINFO = @MAKEINFO@ +MKDIR_P = @MKDIR_P@ +NM = @NM@ +NMEDIT = @NMEDIT@ +OBJC = @OBJC@ +OBJCDEPMODE = @OBJCDEPMODE@ +OBJCFLAGS = @OBJCFLAGS@ +OBJDUMP = @OBJDUMP@ +OBJEXT = @OBJEXT@ +OTOOL = @OTOOL@ +OTOOL64 = @OTOOL64@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_URL = @PACKAGE_URL@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +QSE_PROJECT_AUTHOR = @QSE_PROJECT_AUTHOR@ +QSE_PROJECT_URL = @QSE_PROJECT_URL@ +QSE_SIZEOF_CHAR = @QSE_SIZEOF_CHAR@ +QSE_SIZEOF_DOUBLE = @QSE_SIZEOF_DOUBLE@ +QSE_SIZEOF_FLOAT = @QSE_SIZEOF_FLOAT@ +QSE_SIZEOF_INT = @QSE_SIZEOF_INT@ +QSE_SIZEOF_LONG = @QSE_SIZEOF_LONG@ +QSE_SIZEOF_LONG_DOUBLE = @QSE_SIZEOF_LONG_DOUBLE@ +QSE_SIZEOF_LONG_LONG = @QSE_SIZEOF_LONG_LONG@ +QSE_SIZEOF_SHORT = @QSE_SIZEOF_SHORT@ +QSE_SIZEOF_VOID_P = @QSE_SIZEOF_VOID_P@ +QSE_SIZEOF_WCHAR_T = @QSE_SIZEOF_WCHAR_T@ +RANLIB = @RANLIB@ +RM = @RM@ +SED = @SED@ +SET_MAKE = @SET_MAKE@ +SHELL = @SHELL@ +STRIP = @STRIP@ +VERSION = @VERSION@ +abs_builddir = @abs_builddir@ +abs_srcdir = @abs_srcdir@ +abs_top_builddir = @abs_top_builddir@ +abs_top_srcdir = @abs_top_srcdir@ +ac_ct_CC = @ac_ct_CC@ +ac_ct_CXX = @ac_ct_CXX@ +ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ +ac_ct_OBJC = @ac_ct_OBJC@ +am__include = @am__include@ +am__leading_dot = @am__leading_dot@ +am__quote = @am__quote@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build = @build@ +build_alias = @build_alias@ +build_cpu = @build_cpu@ +build_os = @build_os@ +build_vendor = @build_vendor@ +builddir = @builddir@ +datadir = @datadir@ +datarootdir = @datarootdir@ +docdir = @docdir@ +dvidir = @dvidir@ +exec_prefix = @exec_prefix@ +host = @host@ +host_alias = @host_alias@ +host_cpu = @host_cpu@ +host_os = @host_os@ +host_vendor = @host_vendor@ +htmldir = @htmldir@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localedir = @localedir@ +localstatedir = @localstatedir@ +lt_ECHO = @lt_ECHO@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +pdfdir = @pdfdir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +psdir = @psdir@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +srcdir = @srcdir@ +sysconfdir = @sysconfdir@ +target_alias = @target_alias@ +top_build_prefix = @top_build_prefix@ +top_builddir = @top_builddir@ +top_srcdir = @top_srcdir@ +AUTOMAKE_OPTIONS = nostdinc +AM_CPPFLAGS = -I$(top_srcdir)/include +lib_LTLIBRARIES = libqsescm.la +libqsescm_la_SOURCES = scm.h scm.c err.c +libqsescm_la_LDFLAGS = -L../cmn -version-info 1:0:0 -no-undefined +libqsescm_la_LIBADD = -lqsecmn +all: all-am + +.SUFFIXES: +.SUFFIXES: .c .lo .o .obj +$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ + && { if test -f $@; then exit 0; else break; fi; }; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign lib/scm/Makefile'; \ + $(am__cd) $(top_srcdir) && \ + $(AUTOMAKE) --foreign lib/scm/Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(am__aclocal_m4_deps): +install-libLTLIBRARIES: $(lib_LTLIBRARIES) + @$(NORMAL_INSTALL) + test -z "$(libdir)" || $(MKDIR_P) "$(DESTDIR)$(libdir)" + @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ + list2=; for p in $$list; do \ + if test -f $$p; then \ + list2="$$list2 $$p"; \ + else :; fi; \ + done; \ + test -z "$$list2" || { \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ + } + +uninstall-libLTLIBRARIES: + @$(NORMAL_UNINSTALL) + @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ + for p in $$list; do \ + $(am__strip_dir) \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ + done + +clean-libLTLIBRARIES: + -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) + @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ + dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ + test "$$dir" != "$$p" || dir=.; \ + echo "rm -f \"$${dir}/so_locations\""; \ + rm -f "$${dir}/so_locations"; \ + done +libqsescm.la: $(libqsescm_la_OBJECTS) $(libqsescm_la_DEPENDENCIES) + $(libqsescm_la_LINK) -rpath $(libdir) $(libqsescm_la_OBJECTS) $(libqsescm_la_LIBADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + +distclean-compile: + -rm -f *.tab.c + +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/err.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/scm.Plo@am__quote@ + +.c.o: +@am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(COMPILE) -c $< + +.c.obj: +@am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` + +.c.lo: +@am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< +@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs + +ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in files) print i; }; }'`; \ + mkid -fID $$unique +tags: TAGS + +TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + set x; \ + here=`pwd`; \ + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in files) print i; }; }'`; \ + shift; \ + if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + if test $$# -gt 0; then \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + "$$@" $$unique; \ + else \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$unique; \ + fi; \ + fi +ctags: CTAGS +CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ + $(TAGS_FILES) $(LISP) + list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | \ + $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in files) print i; }; }'`; \ + test -z "$(CTAGS_ARGS)$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && $(am__cd) $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) "$$here" + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + list='$(DISTFILES)'; \ + dist_files=`for file in $$list; do echo $$file; done | \ + sed -e "s|^$$srcdirstrip/||;t" \ + -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ + case $$dist_files in \ + */*) $(MKDIR_P) `echo "$$dist_files" | \ + sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ + sort -u` ;; \ + esac; \ + for file in $$dist_files; do \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + if test -d $$d/$$file; then \ + dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test -d "$(distdir)/$$file"; then \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ + else \ + test -f "$(distdir)/$$file" \ + || cp -p $$d/$$file "$(distdir)/$$file" \ + || exit 1; \ + fi; \ + done +check-am: all-am +check: check-am +all-am: Makefile $(LTLIBRARIES) +installdirs: + for dir in "$(DESTDIR)$(libdir)"; do \ + test -z "$$dir" || $(MKDIR_P) "$$dir"; \ + done +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + `test -z '$(STRIP)' || \ + echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install +mostlyclean-generic: + +clean-generic: + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-am + +clean-am: clean-generic clean-libLTLIBRARIES clean-libtool \ + mostlyclean-am + +distclean: distclean-am + -rm -rf ./$(DEPDIR) + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-tags + +dvi: dvi-am + +dvi-am: + +html: html-am + +html-am: + +info: info-am + +info-am: + +install-data-am: + +install-dvi: install-dvi-am + +install-dvi-am: + +install-exec-am: install-libLTLIBRARIES + +install-html: install-html-am + +install-html-am: + +install-info: install-info-am + +install-info-am: + +install-man: + +install-pdf: install-pdf-am + +install-pdf-am: + +install-ps: install-ps-am + +install-ps-am: + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -rf ./$(DEPDIR) + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-libLTLIBRARIES + +.MAKE: install-am install-strip + +.PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ + clean-libLTLIBRARIES clean-libtool ctags distclean \ + distclean-compile distclean-generic distclean-libtool \ + distclean-tags distdir dvi dvi-am html html-am info info-am \ + install install-am install-data install-data-am install-dvi \ + install-dvi-am install-exec install-exec-am install-html \ + install-html-am install-info install-info-am \ + install-libLTLIBRARIES install-man install-pdf install-pdf-am \ + install-ps install-ps-am install-strip installcheck \ + installcheck-am installdirs maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-compile \ + mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ + tags uninstall uninstall-am uninstall-libLTLIBRARIES + + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/qse/lib/scm/err.c b/qse/lib/scm/err.c new file mode 100644 index 00000000..71cc9e4c --- /dev/null +++ b/qse/lib/scm/err.c @@ -0,0 +1,128 @@ +/* + * $Id$ + * + Copyright 2006-2009 Chung, Hyung-Hwan. + This file is part of QSE. + + QSE is free software: you can redistribute it and/or modify + it under the terms of the GNU Lesser General Public License as + published by the Free Software Foundation, either version 3 of + the License, or (at your option) any later version. + + QSE is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with QSE. If not, see . + */ + +#include "scm.h" + +const qse_char_t* qse_scm_dflerrstr (qse_scm_t* scm, qse_scm_errnum_t errnum) +{ + static const qse_char_t* errstr[] = + { + QSE_T("no error"), + QSE_T("out of memory"), + + QSE_T("exit"), + QSE_T("end of source"), + + QSE_T("I/O error"), + QSE_T("unexpected end of string"), + + QSE_T("internal error"), + QSE_T("syntax"), + QSE_T("list too deep"), + QSE_T("right parenthesis expected"), + QSE_T("bad arguments"), + QSE_T("too few arguments"), + QSE_T("too many arguments"), + QSE_T("undefined function '${0}'"), + QSE_T("bad function"), + QSE_T("duplicate formal"), + QSE_T("bad symbol"), + QSE_T("undefined symbol '${0}'"), + QSE_T("empty body"), + QSE_T("bad value"), + QSE_T("divide by zero") + }; + + return (errnum >= 0 && errnum < QSE_COUNTOF(errstr))? + errstr[errnum]: QSE_T("unknown error"); +} + +qse_scm_errstr_t qse_scm_geterrstr (qse_scm_t* scm) +{ + return scm->err.str; +} + +void qse_scm_seterrstr (qse_scm_t* scm, qse_scm_errstr_t errstr) +{ + scm->err.str = errstr; +} + +qse_scm_errnum_t qse_scm_geterrnum (qse_scm_t* scm) +{ + return scm->err.num; +} + +const qse_scm_loc_t* qse_scm_geterrloc (qse_scm_t* scm) +{ + return &scm->err.loc; +} + +const qse_char_t* qse_scm_geterrmsg (qse_scm_t* scm) +{ + return (scm->err.msg[0] == QSE_T('\0'))? + qse_scm_geterrstr(scm)(scm,scm->err.num): scm->err.msg; +} + +void qse_scm_geterror ( + qse_scm_t* scm, qse_scm_errnum_t* errnum, + const qse_char_t** errmsg, qse_scm_loc_t* errloc) +{ + if (errnum != QSE_NULL) *errnum = scm->err.num; + if (errmsg != QSE_NULL) + { + *errmsg = (scm->err.msg[0] == QSE_T('\0'))? + qse_scm_geterrstr(scm)(scm,scm->err.num): + scm->err.msg; + } + if (errloc != QSE_NULL) *errloc = scm->err.loc; +} + +void qse_scm_seterrnum ( + qse_scm_t* scm, qse_scm_errnum_t errnum, const qse_cstr_t* errarg) +{ + qse_scm_seterror (scm, errnum, errarg, QSE_NULL); +} + +void qse_scm_seterrmsg ( + qse_scm_t* scm, qse_scm_errnum_t errnum, + const qse_char_t* errmsg, const qse_scm_loc_t* errloc) +{ + scm->err.num = errnum; + qse_strxcpy (scm->err.msg, QSE_COUNTOF(scm->err.msg), errmsg); + if (errloc != QSE_NULL) scm->err.loc = *errloc; + else QSE_MEMSET (&scm->err.loc, 0, QSE_SIZEOF(scm->err.loc)); +} + +void qse_scm_seterror ( + qse_scm_t* scm, qse_scm_errnum_t errnum, + const qse_cstr_t* errarg, const qse_scm_loc_t* errloc) +{ + const qse_char_t* errfmt; + + scm->err.num = errnum; + + errfmt = qse_scm_geterrstr(scm)(scm,scm->err.num); + QSE_ASSERT (errfmt != QSE_NULL); + qse_strxfncpy (scm->err.msg, QSE_COUNTOF(scm->err.msg), errfmt, errarg); + + if (errloc != QSE_NULL) scm->err.loc = *errloc; + else QSE_MEMSET (&scm->err.loc, 0, QSE_SIZEOF(scm->err.loc)); +} + diff --git a/qse/lib/scm/mem.c b/qse/lib/scm/mem.c new file mode 100644 index 00000000..e1ef0a17 --- /dev/null +++ b/qse/lib/scm/mem.c @@ -0,0 +1,600 @@ +/* + * $Id$ + * + Copyright 2006-2009 Chung, Hyung-Hwan. + This file is part of QSE. + + QSE is free software: you can redistribute it and/or modify + it under the terms of the GNU Lesser General Public License as + published by the Free Software Foundation, either version 3 of + the License, or (at your option) any later version. + + QSE is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with QSE. If not, see . + */ + +#include "scm.h" + +static qse_scm_obj_t* makeint (qse_scm_mem_t* mem, qse_long_t value); +static QSE_INLINE_ALWAYS void collect_garbage (qse_scm_mem_t* mem); +static void dispose_all (qse_scm_mem_t* mem); + +qse_scm_mem_t* qse_scm_initmem ( + qse_scm_mem_t* mem, qse_scm_t* scm, + qse_size_t ubound, qse_size_t ubound_inc) +{ + qse_size_t i; + int fail = 0; + + QSE_MEMSET (mem, 0, QSE_SIZEOF(qse_scm_mem_t)); + mem->scm = scm; + + /* create a new root environment frame */ + mem->frame = qse_scm_newframe (scm); + if (mem->frame == QSE_NULL) return QSE_NULL; + + mem->root_frame = mem->frame; + mem->brooding_frame = QSE_NULL; + mem->tlink = QSE_NULL; + mem->tlink_count = 0; + + /* initialize object allocation list */ + mem->ubound = ubound; + mem->ubound_inc = ubound_inc; + mem->count = 0; + for (i = 0; i < QSE_SCM_TYPE_COUNT; i++) + { + mem->used[i] = QSE_NULL; + mem->free[i] = QSE_NULL; + } + + /* initialize read registers */ + mem->r.obj = QSE_NULL; + mem->r.tmp = QSE_NULL; + mem->r.stack = QSE_NULL; + + /* when "ubound" is too small, the garbage collection can + * be performed while making the common objects. */ + mem->nil = QSE_NULL; + mem->t = QSE_NULL; + mem->quote = QSE_NULL; + mem->lambda = QSE_NULL; + mem->macro = QSE_NULL; + for (i = 0; i < QSE_COUNTOF(mem->num); i++) mem->num[i] = QSE_NULL; + + /* initialize common object pointers */ + mem->nil = qse_scm_makenil (mem); + mem->t = qse_scm_maketrue (mem); + mem->quote = qse_scm_makesym (mem, QSE_T("quote"), 5); + mem->lambda = qse_scm_makesym (mem, QSE_T("lambda"), 6); + mem->macro = qse_scm_makesym (mem, QSE_T("macro"), 5); + + if (mem->nil == QSE_NULL || + mem->t == QSE_NULL || + mem->quote == QSE_NULL || + mem->lambda == QSE_NULL || + mem->macro == QSE_NULL) + { + fail = 1; + } + else + { + for (i = 0; i < QSE_COUNTOF(mem->num); i++) + { + mem->num[i] = makeint (mem, i); + if (mem->num[i] == QSE_NULL) { fail = 1; break; } + } + } + + if (fail) + { + dispose_all (mem); + qse_scm_freeframe (scm, mem->frame); + return QSE_NULL; + } + + QSE_SCM_PERM(mem->nil) = 1; + QSE_SCM_PERM(mem->t) = 1; + QSE_SCM_PERM(mem->quote) = 1; + QSE_SCM_PERM(mem->lambda) = 1; + QSE_SCM_PERM(mem->macro) = 1; + for (i = 0; i < QSE_COUNTOF(mem->num); i++) + { + QSE_SCM_PERM(mem->num[i]) = 1; + } + + /* let the read stack point to nil */ + mem->r.stack = mem->nil; + + return mem; +} + +void qse_scm_finimem (qse_scm_mem_t* mem) +{ + /* dispose of the allocated objects */ + dispose_all (mem); + + /* dispose of environment frames */ + qse_scm_freeframe (mem->scm, mem->frame); +} + +static qse_scm_obj_t* allocate (qse_scm_mem_t* mem, int type, qse_size_t size) +{ + qse_scm_obj_t* obj; + + if (mem->count >= mem->ubound) collect_garbage (mem); + if (mem->count >= mem->ubound) + { + mem->ubound += mem->ubound_inc; + if (mem->count >= mem->ubound) return QSE_NULL; + } + + obj = (qse_scm_obj_t*) QSE_SCM_ALLOC (mem->scm, size); + if (obj == QSE_NULL) + { + collect_garbage (mem); + + obj = (qse_scm_obj_t*) QSE_SCM_ALLOC (mem->scm, size); + if (obj == QSE_NULL) + { + qse_scm_seterror (mem->scm, QSE_SCM_ENOMEM, QSE_NULL, 0); + return QSE_NULL; + } + } + + QSE_SCM_TYPE(obj) = type; + QSE_SCM_SIZE(obj) = size; + QSE_SCM_MARK(obj) = 0; + QSE_SCM_PERM(obj) = 0; + + /* insert the object at the head of the used list */ + QSE_SCM_LINK(obj) = mem->used[type]; + mem->used[type] = obj; + mem->count++; + +#if 0 + qse_dprint1 (QSE_T("mem->count: %u\n"), mem->count); +#endif + + return obj; +} + +static void dispose ( + qse_scm_mem_t* mem, qse_scm_obj_t* prev, qse_scm_obj_t* obj) +{ + QSE_ASSERT (obj != QSE_NULL); + QSE_ASSERT (mem->count > 0); + + /* TODO: push the object to the free list for more + * efficient memory management */ + + if (prev == QSE_NULL) + mem->used[QSE_SCM_TYPE(obj)] = QSE_SCM_LINK(obj); + else QSE_SCM_LINK(prev) = QSE_SCM_LINK(obj); + + mem->count--; +#if 0 + qse_dprint1 (QSE_T("mem->count: %u\n"), mem->count); +#endif + + QSE_SCM_FREE (mem->scm, obj); +} + +static void dispose_all (qse_scm_mem_t* mem) +{ + qse_scm_obj_t* obj, * next; + qse_size_t i; + + for (i = 0; i < QSE_SCM_TYPE_COUNT; i++) + { + obj = mem->used[i]; + + while (obj != QSE_NULL) + { + next = QSE_SCM_LINK(obj); + dispose (mem, QSE_NULL, obj); + obj = next; + } + } +} + +static void mark_obj (qse_scm_mem_t* mem, qse_scm_obj_t* obj) +{ + QSE_ASSERT (obj != QSE_NULL); + + /* TODO: can it be non-recursive? */ + if (QSE_SCM_MARK(obj) != 0) return; + + QSE_SCM_MARK(obj) = 1; + + if (QSE_SCM_TYPE(obj) == QSE_SCM_OBJ_CONS) + { + mark_obj (mem, QSE_SCM_CAR(obj)); + mark_obj (mem, QSE_SCM_CDR(obj)); + } + else if (QSE_SCM_TYPE(obj) == QSE_SCM_OBJ_FUNC) + { + mark_obj (mem, QSE_SCM_FFORMAL(obj)); + mark_obj (mem, QSE_SCM_FBODY(obj)); + } + else if (QSE_SCM_TYPE(obj) == QSE_SCM_OBJ_MACRO) + { + mark_obj (mem, QSE_SCM_MFORMAL(obj)); + mark_obj (mem, QSE_SCM_MBODY(obj)); + } +} + +static void mark_objs_in_use (qse_scm_mem_t* mem) +{ + qse_scm_frame_t* frame; + qse_scm_assoc_t* assoc; + qse_scm_tlink_t* tlink; + /*qse_scm_arr_t* arr;*/ + qse_size_t i; + +#if 0 + qse_dprint0 (QSE_T("marking environment frames\n")); +#endif + /* mark objects in the environment frames */ + frame = mem->frame; + while (frame != QSE_NULL) + { + assoc = frame->assoc; + while (assoc != QSE_NULL) + { + mark_obj (mem, assoc->name); + + if (assoc->value != QSE_NULL) + mark_obj (mem, assoc->value); + if (assoc->func != QSE_NULL) + mark_obj (mem, assoc->func); + + assoc = assoc->link; + } + + frame = frame->link; + } + +#if 0 + qse_dprint0 (QSE_T("marking interim frames\n")); +#endif + + /* mark objects in the interim frames */ + frame = mem->brooding_frame; + while (frame != QSE_NULL) + { + assoc = frame->assoc; + while (assoc != QSE_NULL) + { + mark_obj (mem, assoc->name); + + if (assoc->value != QSE_NULL) + mark_obj (mem, assoc->value); + if (assoc->func != QSE_NULL) + mark_obj (mem, assoc->func); + + assoc = assoc->link; + } + + frame = frame->link; + } + + /*qse_dprint0 (QSE_T("marking the read object\n"));*/ + if (mem->r.obj) mark_obj (mem, mem->r.obj); + if (mem->r.tmp) mark_obj (mem, mem->r.tmp); + if (mem->r.stack) mark_obj (mem, mem->r.stack); + + /* qse_dprint0 (QSE_T("marking the temporary objects\n"));*/ + for (tlink = mem->tlink; tlink != QSE_NULL; tlink = tlink->link) + { + mark_obj (mem, tlink->obj); + } + +#if 0 + qse_dprint0 (QSE_T("marking builtin objects\n")); +#endif + /* mark common objects */ + if (mem->t) mark_obj (mem, mem->t); + if (mem->nil) mark_obj (mem, mem->nil); + if (mem->quote) mark_obj (mem, mem->quote); + if (mem->lambda) mark_obj (mem, mem->lambda); + if (mem->macro) mark_obj (mem, mem->macro); + + for (i = 0; i < QSE_COUNTOF(mem->num); i++) + { + if (mem->num[i]) mark_obj (mem, mem->num[i]); + } +} + +//#include +static void sweep_unmarked_objs (qse_scm_mem_t* mem) +{ + qse_scm_obj_t* obj, * prev, * next; + qse_size_t i; + + /* scan all the allocated objects and get rid of unused objects */ + for (i = 0; i < QSE_SCM_TYPE_COUNT; i++) + { + prev = QSE_NULL; + obj = mem->used[i]; + +#if 0 + qse_dprint1 (QSE_T("sweeping objects of type: %u\n"), i); +#endif + while (obj != QSE_NULL) + { + next = QSE_SCM_LINK(obj); + + if (QSE_SCM_MARK(obj) == 0 && + QSE_SCM_PERM(obj) == 0) + { + /* dispose of unused objects */ +/* +if (i == QSE_SCM_OBJ_INT) +qse_printf (QSE_T("disposing....%d [%d]\n"), i, (int)QSE_SCM_IVAL(obj)); +if (i == QSE_SCM_OBJ_REAL) +qse_printf (QSE_T("disposing....%d [%Lf]\n"), i, (double)QSE_SCM_RVAL(obj)); +else if (i == QSE_SCM_OBJ_SYM) +qse_printf (QSE_T("disposing....%d [%s]\n"), i, QSE_SCM_SYMPTR(obj)); +else if (i == QSE_SCM_OBJ_STR) +qse_printf (QSE_T("disposing....%d [%s]\n"), i, QSE_SCM_STRPTR(obj)); +else +qse_printf (QSE_T("disposing....%d\n"), i); +*/ + dispose (mem, prev, obj); + } + else + { + /* unmark the object in use */ + QSE_SCM_MARK(obj) = 0; + prev = obj; + } + + obj = next; + } + } +} + +static QSE_INLINE_ALWAYS void collect_garbage (qse_scm_mem_t* mem) +{ + mark_objs_in_use (mem); + sweep_unmarked_objs (mem); +} + +void qse_scm_gc (qse_scm_t* scm) +{ + collect_garbage (&scm->mem); +} + +qse_scm_obj_t* qse_scm_makenil (qse_scm_mem_t* mem) +{ + if (mem->nil != QSE_NULL) return mem->nil; + mem->nil = allocate ( + mem, QSE_SCM_OBJ_NIL, QSE_SIZEOF(qse_scm_obj_nil_t)); + return mem->nil; +} + +qse_scm_obj_t* qse_scm_maketrue (qse_scm_mem_t* mem) +{ + if (mem->t != QSE_NULL) return mem->t; + mem->t = allocate ( + mem, QSE_SCM_OBJ_TRUE, QSE_SIZEOF(qse_scm_obj_true_t)); + return mem->t; +} + +static qse_scm_obj_t* makeint (qse_scm_mem_t* mem, qse_long_t value) +{ + qse_scm_obj_t* obj; + + obj = allocate (mem, + QSE_SCM_OBJ_INT, QSE_SIZEOF(qse_scm_obj_int_t)); + if (obj == QSE_NULL) return QSE_NULL; + + QSE_SCM_IVAL(obj) = value; + + return obj; +} + +qse_scm_obj_t* qse_scm_makeint (qse_scm_mem_t* mem, qse_long_t value) +{ + if (value >= 0 && value < QSE_COUNTOF(mem->num)) return mem->num[value]; + return makeint (mem, value); +} + +qse_scm_obj_t* qse_scm_makereal (qse_scm_mem_t* mem, qse_real_t value) +{ + qse_scm_obj_t* obj; + + obj = allocate (mem, + QSE_SCM_OBJ_REAL, QSE_SIZEOF(qse_scm_obj_real_t)); + if (obj == QSE_NULL) return QSE_NULL; + + QSE_SCM_RVAL(obj) = value; + + return obj; +} + +qse_scm_obj_t* qse_scm_makesym ( + qse_scm_mem_t* mem, const qse_char_t* str, qse_size_t len) +{ + qse_scm_obj_t* obj; + +/* TODO: use rbt or htb ... */ + + /* look for a sysmbol with the given name */ + obj = mem->used[QSE_SCM_OBJ_SYM]; + while (obj != QSE_NULL) + { + /* if there is a symbol with the same name, it is just used. */ + if (qse_strxncmp ( + QSE_SCM_SYMPTR(obj), + QSE_SCM_SYMLEN(obj), + str, len) == 0) return obj; + obj = QSE_SCM_LINK(obj); + } + + /* no such symbol found. create a new one */ + obj = allocate (mem, QSE_SCM_OBJ_SYM, + QSE_SIZEOF(qse_scm_obj_sym_t)+(len + 1)*QSE_SIZEOF(qse_char_t)); + if (obj == QSE_NULL) return QSE_NULL; + + /* fill in the symbol buffer */ + qse_strncpy (QSE_SCM_SYMPTR(obj), str, len); + + return obj; +} + +qse_scm_obj_t* qse_scm_makestr ( + qse_scm_mem_t* mem, const qse_char_t* str, qse_size_t len) +{ + qse_scm_obj_t* obj; + + /* allocate memory for the string */ + obj = allocate (mem, QSE_SCM_OBJ_STR, + QSE_SIZEOF(qse_scm_obj_str_t)+(len + 1)*QSE_SIZEOF(qse_char_t)); + if (obj == QSE_NULL) return QSE_NULL; + + /* fill in the string buffer */ + qse_strncpy (QSE_SCM_STRPTR(obj), str, len); + + return obj; +} + +qse_scm_obj_t* qse_scm_makecons ( + qse_scm_mem_t* mem, qse_scm_obj_t* car, qse_scm_obj_t* cdr) +{ + qse_scm_obj_t* obj; + + obj = allocate (mem, + QSE_SCM_OBJ_CONS, QSE_SIZEOF(qse_scm_obj_cons_t)); + if (obj == QSE_NULL) return QSE_NULL; + + QSE_SCM_CAR(obj) = car; + QSE_SCM_CDR(obj) = cdr; + + return obj; +} + +qse_scm_obj_t* qse_scm_makefunc ( + qse_scm_mem_t* mem, qse_scm_obj_t* formal, qse_scm_obj_t* body) +{ + qse_scm_obj_t* obj; + + obj = allocate (mem, + QSE_SCM_OBJ_FUNC, QSE_SIZEOF(qse_scm_obj_func_t)); + if (obj == QSE_NULL) return QSE_NULL; + + QSE_SCM_FFORMAL(obj) = formal; + QSE_SCM_FBODY(obj) = body; + + return obj; +} + +qse_scm_obj_t* qse_scm_makemacro ( + qse_scm_mem_t* mem, qse_scm_obj_t* formal, qse_scm_obj_t* body) +{ + qse_scm_obj_t* obj; + + obj = allocate (mem, + QSE_SCM_OBJ_MACRO, QSE_SIZEOF(qse_scm_obj_macro_t)); + if (obj == QSE_NULL) return QSE_NULL; + + QSE_SCM_MFORMAL(obj) = formal; + QSE_SCM_MBODY(obj) = body; + + return obj; +} + +qse_scm_obj_t* qse_scm_makeprim (qse_scm_mem_t* mem, + qse_scm_prim_t impl, qse_size_t min_args, qse_size_t max_args) +{ + qse_scm_obj_t* obj; + + obj = allocate ( + mem, QSE_SCM_OBJ_PRIM, QSE_SIZEOF(qse_scm_obj_prim_t)); + if (obj == QSE_NULL) return QSE_NULL; + + QSE_SCM_PIMPL(obj) = impl; + QSE_SCM_PMINARGS(obj) = min_args; + QSE_SCM_PMAXARGS(obj) = max_args; + return obj; +} + +qse_scm_assoc_t* qse_scm_lookup (qse_scm_mem_t* mem, qse_scm_obj_t* name) +{ + qse_scm_frame_t* frame; + qse_scm_assoc_t* assoc; + + QSE_ASSERT (QSE_SCM_TYPE(name) == QSE_SCM_OBJ_SYM); + + frame = mem->frame; + + while (frame != QSE_NULL) + { + assoc = qse_scm_lookupinframe (mem->scm, frame, name); + if (assoc != QSE_NULL) return assoc; + frame = frame->link; + } + + return QSE_NULL; +} + +qse_scm_assoc_t* qse_scm_setvalue ( + qse_scm_mem_t* mem, qse_scm_obj_t* name, qse_scm_obj_t* value) +{ + qse_scm_assoc_t* assoc; + + assoc = qse_scm_lookup (mem, name); + if (assoc == QSE_NULL) + { + assoc = qse_scm_insvalueintoframe ( + mem->scm, mem->root_frame, name, value); + if (assoc == QSE_NULL) return QSE_NULL; + } + else assoc->value = value; + + return assoc; +} + +qse_scm_assoc_t* qse_scm_setfunc ( + qse_scm_mem_t* mem, qse_scm_obj_t* name, qse_scm_obj_t* func) +{ + qse_scm_assoc_t* assoc; + + assoc = qse_scm_lookup (mem, name); + if (assoc == QSE_NULL) + { + assoc = qse_scm_insfuncintoframe ( + mem->scm, mem->root_frame, name, func); + if (assoc == QSE_NULL) return QSE_NULL; + } + else assoc->func = func; + + return assoc; +} + +qse_size_t qse_scm_conslen (qse_scm_mem_t* mem, qse_scm_obj_t* obj) +{ + qse_size_t count; + + QSE_ASSERT ( + obj == mem->nil || QSE_SCM_TYPE(obj) == QSE_SCM_OBJ_CONS); + + count = 0; + /*while (obj != mem->nil) {*/ + while (QSE_SCM_TYPE(obj) == QSE_SCM_OBJ_CONS) + { + count++; + obj = QSE_SCM_CDR(obj); + } + + return count; +} + + + diff --git a/qse/lib/scm/mem.h b/qse/lib/scm/mem.h new file mode 100644 index 00000000..4b101eed --- /dev/null +++ b/qse/lib/scm/mem.h @@ -0,0 +1,100 @@ +/* + * $Id$ + * + Copyright 2006-2009 Chung, Hyung-Hwan. + This file is part of QSE. + + QSE is free software: you can redistribute it and/or modify + it under the terms of the GNU Lesser General Public License as + published by the Free Software Foundation, either version 3 of + the License, or (at your option) any later version. + + QSE is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with QSE. If not, see . + */ + +#ifndef _QSE_LIB_SCM_MEM_H_ +#define _QSE_LIB_SCM_MEM_H_ + +#ifndef _QSE_SCM_SCM_H_ +#error Never include this file directly. Include instead +#endif + +enum +{ + QSE_SCM_OBJ_NIL = 0, + QSE_SCM_OBJ_TRUE, + QSE_SCM_OBJ_INT, + QSE_SCM_OBJ_REAL, + QSE_SCM_OBJ_SYM, + QSE_SCM_OBJ_STR, + QSE_SCM_OBJ_CONS, + QSE_SCM_OBJ_FUNC, + QSE_SCM_OBJ_MACRO, + QSE_SCM_OBJ_PRIM, + + QSE_SCM_TYPE_COUNT /* the number of lsp object types */ +}; + + +typedef struct qse_scm_mem_t qse_scm_mem_t; + +struct qse_scm_mem_t +{ + qse_scm_t* scm; + + /* object allocation list */ + qse_size_t ubound; /* upper bounds of the maximum number of objects */ + qse_size_t ubound_inc; /* increment of the upper bounds */ + qse_size_t count; /* the number of objects currently allocated */ + qse_scm_obj_t* used[QSE_SCM_TYPE_COUNT]; + qse_scm_obj_t* free[QSE_SCM_TYPE_COUNT]; + + struct + { + qse_scm_obj_t* obj; + qse_scm_obj_t* tmp; /* temporary datum to protect from gc in read() */ + qse_scm_obj_t* stack; + } r; + + /* commonly accessed objects */ + qse_scm_obj_t* nil; /* qse_scm_obj_nil_t */ + qse_scm_obj_t* t; /* qse_scm_obj_true_t */ + qse_scm_obj_t* quote; /* qse_scm_obj_sym_t */ + qse_scm_obj_t* lambda; /* qse_scm_obj_sym_t */ + qse_scm_obj_t* macro; /* qse_scm_obj_sym_t */ + qse_scm_obj_t* num[10]; /* qse_scm_obj_int_t */ + +#if 0 + /* run-time environment frame */ + qse_scm_frame_t* frame; + /* pointer to a global-level frame */ + qse_scm_frame_t* root_frame; + /* pointer to an interim frame not yet added to "frame" */ + qse_scm_frame_t* brooding_frame; + + /* links for temporary objects */ + qse_scm_tlink_t* tlink; + qse_size_t tlink_count; +#endif +}; + +#ifdef __cplusplus +extern "C" { +#endif + +qse_scm_mem_t* qse_scm_initmem ( + qse_scm_mem_t* mem, qse_scm_t* scm, + qse_size_t ubound, qse_size_t ubound_inc); +void qse_scm_finimem (qse_scm_mem_t* mem); + +#ifdef __cplusplus +} +#endif + +#endif diff --git a/qse/lib/scm/scm.c b/qse/lib/scm/scm.c new file mode 100644 index 00000000..6d43845b --- /dev/null +++ b/qse/lib/scm/scm.c @@ -0,0 +1,168 @@ +/* + * $Id$ + * + Copyright 2006-2009 Chung, Hyung-Hwan. + This file is part of QSE. + + QSE is free software: you can redistribute it and/or modify + it under the terms of the GNU Lesser General Public License as + published by the Free Software Foundation, either version 3 of + the License, or (at your option) any later version. + + QSE is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with QSE. If not, see . + */ + +#include "scm.h" + +QSE_IMPLEMENT_COMMON_FUNCTIONS (scm) + +static qse_scm_t* qse_scm_init ( + qse_scm_t* scm, + qse_mmgr_t* mmgr, + const qse_scm_prm_t* prm, + qse_size_t mem_ubound, + qse_size_t mem_ubound_inc +); + +static void qse_scm_fini (qse_scm_t* scm); + +qse_scm_t* qse_scm_open ( + qse_mmgr_t* mmgr, qse_size_t xtnsize, const qse_scm_prm_t* prm, + qse_size_t mem_ubound, qse_size_t mem_ubound_inc) +{ + qse_scm_t* scm; + + if (mmgr == QSE_NULL) + { + mmgr = QSE_MMGR_GETDFL(); + + QSE_ASSERTX (mmgr != QSE_NULL, + "Set the memory manager with QSE_MMGR_SETDFL()"); + + if (mmgr == QSE_NULL) return QSE_NULL; + } + + scm = (qse_scm_t*) QSE_MMGR_ALLOC (mmgr, QSE_SIZEOF(qse_scm_t) + xtnsize); + if (scm == QSE_NULL) return QSE_NULL; + + if (qse_scm_init (scm, mmgr, prm, mem_ubound, mem_ubound_inc) == QSE_NULL) + { + QSE_MMGR_FREE (scm->mmgr, scm); + return QSE_NULL; + } + + return scm; +} + +void qse_scm_close (qse_scm_t* scm) +{ + qse_scm_fini (scm); + QSE_SCM_FREE (scm, scm); +} + +static qse_scm_t* qse_scm_init ( + qse_scm_t* scm, qse_mmgr_t* mmgr, const qse_scm_prm_t* prm, + qse_size_t mem_ubound, qse_size_t mem_ubound_inc) +{ + if (mmgr == QSE_NULL) mmgr = QSE_MMGR_GETDFL(); + + QSE_MEMSET (scm, 0, QSE_SIZEOF(*scm)); + + scm->mmgr = mmgr; + scm->prm = *prm; + + /* set the default error string function */ + scm->err.str = qse_scm_dflerrstr; + + /* initialize error data */ + scm->err.num = QSE_SCM_ENOERR; + scm->err.msg[0] = QSE_T('\0'); + + /* initialize read data */ + scm->r.curc = QSE_CHAR_EOF; + scm->r.curloc.line = 1; + scm->r.curloc.colm = 0; + + if (qse_str_init(&scm->r.t.name, mmgr, 256) == QSE_NULL) + { + QSE_SCM_FREE (scm, scm); + return QSE_NULL; + } + + /* initialize memory manager */ +#if 0 + if (qse_scm_initmem ( + &scm->mem, scm, mem_ubound, mem_ubound_inc) == QSE_NULL) + { + qse_str_fini (&scm->r.t.name); + QSE_SCM_FREE (scm, scm); + return QSE_NULL; + } +#endif + + return scm; +} + +static void qse_scm_fini (qse_scm_t* scm) +{ +#if 0 + qse_scm_finimem (&scm->mem); +#endif + qse_str_fini (&scm->r.t.name); +} + +void qse_scm_detachio (qse_scm_t* scm) +{ + if (scm->io.fns.out) + { + scm->io.fns.out (scm, QSE_SCM_IO_CLOSE, &scm->io.arg.out, QSE_NULL, 0); + scm->io.fns.out = QSE_NULL; + } + + if (scm->io.fns.in) + { + scm->io.fns.in (scm, QSE_SCM_IO_CLOSE, &scm->io.arg.in, QSE_NULL, 0); + scm->io.fns.in = QSE_NULL; + + scm->r.curc = QSE_CHAR_EOF; /* TODO: needed??? */ + } +} + +int qse_scm_attachio (qse_scm_t* scm, qse_scm_io_t* io) +{ + qse_scm_detachio(scm); + + QSE_ASSERT (scm->io.fns.in == QSE_NULL); + QSE_ASSERT (scm->io.fns.out == QSE_NULL); + + scm->err.num = QSE_SCM_ENOERR; + if (io->in (scm, QSE_SCM_IO_OPEN, &scm->io.arg.in, QSE_NULL, 0) <= -1) + { + if (scm->err.num == QSE_SCM_ENOERR) + qse_scm_seterror (scm, QSE_SCM_EIO, QSE_NULL, QSE_NULL); + return -1; + } + + scm->err.num = QSE_SCM_ENOERR; + if (io->out (scm, QSE_SCM_IO_OPEN, &scm->io.arg.out, QSE_NULL, 0) <= -1) + { + if (scm->err.num == QSE_SCM_ENOERR) + qse_scm_seterror (scm,QSE_SCM_EIO, QSE_NULL, QSE_NULL); + io->in (scm, QSE_SCM_IO_CLOSE, &scm->io.arg.in, QSE_NULL, 0); + return -1; + } + + scm->io.fns = *io; + scm->r.curc = QSE_CHAR_EOF; + scm->r.curloc.line = 1; + scm->r.curloc.colm = 0; + + return 0; +} + diff --git a/qse/lib/scm/scm.h b/qse/lib/scm/scm.h new file mode 100644 index 00000000..bfd9c63d --- /dev/null +++ b/qse/lib/scm/scm.h @@ -0,0 +1,115 @@ +/* + * $Id$ + * + Copyright 2006-2009 Chung, Hyung-Hwan. + This file is part of QSE. + + QSE is free software: you can redistribute it and/or modify + it under the terms of the GNU Lesser General Public License as + published by the Free Software Foundation, either version 3 of + the License, or (at your option) any later version. + + QSE is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with QSE. If not, see . + */ + +#ifndef _QSE_LIB_SCM_SCM_H_ +#define _QSE_LIB_SCM_SCM_H_ + +#include "../cmn/mem.h" +#include +#include +#include + +#include "mem.h" + +#define QSE_SCM_ALLOC(scm,size) QSE_MMGR_ALLOC((scm)->mmgr,size) +#define QSE_SCM_REALLOC(scm,ptr,size) QSE_MMGR_REALLOC((scm)->mmgr,ptr,size) +#define QSE_SCM_FREE(scm,ptr) QSE_MMGR_FREE((scm)->mmgr,ptr) + +#define QSE_SCM_ISUPPER(scm,c) QSE_ISUPPER(c) +#define QSE_SCM_ISLOWER(scm,c) QSE_ISLOWER(c) +#define QSE_SCM_ISALPHA(scm,c) QSE_ISALPHA(c) +#define QSE_SCM_ISDIGIT(scm,c) QSE_ISDIGIT(c) +#define QSE_SCM_ISXDIGIT(scm,c) QSE_ISXDIGIT(c) +#define QSE_SCM_ISALNUM(scm,c) QSE_ISALNUM(c) +#define QSE_SCM_ISSPACE(scm,c) QSE_ISSPACE(c) +#define QSE_SCM_ISPRINT(scm,c) QSE_ISPRINT(c) +#define QSE_SCM_ISGRAPH(scm,c) QSE_ISGRAPH(c) +#define QSE_SCM_ISCNTRL(scm,c) QSE_ISCNTRL(c) +#define QSE_SCM_ISPUNCT(scm,c) QSE_ISPUNCT(c) +#define QSE_SCM_TOUPPER(scm,c) QSE_TOUPPER(c) +#define QSE_SCM_TOLOWER(scm,c) QSE_TOLOWER(c) + +struct qse_scm_t +{ + QSE_DEFINE_COMMON_FIELDS (scm) + + qse_scm_prm_t prm; + int opt_undef_symbol; + + /** error information */ + struct + { + qse_scm_errstr_t str; /**< error string getter */ + qse_scm_errnum_t num; /**< stores an error number */ + qse_char_t msg[128]; /**< error message holder */ + qse_scm_loc_t loc; /**< location of the last error */ + } err; + + /** memory manager */ + qse_scm_mem_t mem; + + /** I/O functions */ + struct + { + qse_scm_io_t fns; + + struct + { + qse_scm_io_arg_t in; + qse_scm_io_arg_t out; + } arg; + } io; + + /** data for reading */ + struct + { + qse_cint_t curc; + qse_scm_loc_t curloc; + + /** token */ + struct + { + int type; + qse_scm_loc_t loc; + qse_long_t ival; + qse_real_t rval; + qse_str_t name; + } t; + } r; + + /** data for evaluation */ + /* + struct + { + } e; + */ +}; + +#ifdef __cplusplus +extern "C" { +#endif + +/* err.c */ +const qse_char_t* qse_scm_dflerrstr (qse_scm_t* scm, qse_scm_errnum_t errnum); + +#ifdef __cplusplus +} +#endif +#endif