From cd820d07248dcce1106cbcd5e18bd4831b570f76 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 16 Mar 2008 16:22:14 +0000
Subject: 	* lisp/Makefile.in (void_type): New. 	(char_type): Likewise.
 	(int_type): Likewise. 	(float_type): Likewise. 	(double_type):
 Likewise. 	(string_type): Likewise. 	(pointer_type): Likewise. 
 (edit): Use them. 	* interp/wi1.boot (ppFull): Tidy.  Don't set
 *PRINT-DEPTH*. 	* interp/vmlisp.lisp (gcmsg): Define when SBCL. 
 * interp/template.boot (measureCommon): Fix thinko. 	*
 interp/sys-utility.boot: Move basic type definition from 	g-util.boot to
 here. 	* interp/g-util.boot (augProplistOf): Fix signature declaration. 
 * interp/daase.lisp: Tidy. 	* interp/c-util.boot (displayComp): Remove
 assignment to 	$X,$M,$F. 	* interp/boot-pkg.lisp: Tidy. 	*
 interp/axext_l.lisp: Likewise. 	* interp/Makefile.pamphlet
 (makeint.lisp): Call GBC only when GCL. 
 ($(axiom_targetdir)/algebra/exposed.$(FASLEXT)): Tidy. 
 (patches.$(FASLEXT)): Require debug.$(FASLEXT), g-timer.$(FASLEXT). 
 (wi2.$(FASLEXT)): Require define.$(FASLEXT). 	(spad.$(FASLEXT)): Require
 postpar.$(FASLEXT), debug.$(FASLEXT). 	* boot/translator.boot
 (genImportDeclaration): Include translation 	for SBCL. 	*
 boot/parser.boot (bpMapping): Tidy. 	* boot/ast.boot (coreSymbol): New. 
 (bootSymbol): Likewise. 	(bootSymbol): Likewise. 	*
 lisp/core.lisp.in (|$NativeTypeTable|): New. Export. 	*
 algebra/Makefile.pamphlet (COMPILE_LISP): Use $(INTERPSYS). 	*
 algebra/exposed.lsp.pamphlet: Tidy.

---
 src/lisp/Makefile.in  | 17 ++++++++++++++++-
 src/lisp/core.lisp.in | 11 +++++++++++
 2 files changed, 27 insertions(+), 1 deletion(-)

(limited to 'src/lisp')

diff --git a/src/lisp/Makefile.in b/src/lisp/Makefile.in
index 5bf625d4..c9a76d8d 100644
--- a/src/lisp/Makefile.in
+++ b/src/lisp/Makefile.in
@@ -117,12 +117,27 @@ base-lisp$(EXEEXT): core.$(FASLEXT)
 
 axiom_optimize_options = @axiom_optimize_options@
 
+void_type = @void_type@
+char_type = @char_type@
+int_type = @int_type@
+float_type = @float_type@
+double_type = @double_type@
+string_type = @string_type@
+pointer_type = @pointer_type@
+
 edit = sed \
 	-e 's|@open_axiom_installdir[@]|$(open_axiom_installdir)|g' \
 	-e 's|@axiom_optimize_options[@]|$(axiom_optimize_options)|g' \
 	-e 's|@host[@]|$(host)|g' \
 	-e 's|@build[@]|$(build)|g' \
-	-e 's|@target[@]|$(target)|g'
+	-e 's|@target[@]|$(target)|g' \
+	-e 's|@void_type[@]|$(void_type)|g' \
+	-e 's|@char_type[@]|$(char_type)|g' \
+	-e 's|@int_type[@]|$(int_type)|g' \
+	-e 's|@float_type[@]|$(float_type)|g' \
+	-e 's|@double_type[@]|$(double_type)|g' \
+	-e 's|@string_type[@]|$(string_type)|g' \
+	-e 's|@pointer_type[@]|$(pointer_type)|g'
 
 core.lisp: $(srcdir)/core.lisp.in
 	$(edit) $< > $@.tmp
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 23b119ac..433dc720 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -72,6 +72,7 @@
 
 	   "$faslType"
 	   "$systemInstallationDirectory"
+	   "$NativeTypeTable"
 
            "getCommandLineArguments"
            "processCommandLine"
@@ -774,3 +775,13 @@
 #+ :sbcl
 (eval-when (:load-toplevel :execute)
    (pushnew #'shoe-provide-module sb-ext:*module-provider-functions*))
+
+;; native data type translation table
+(defconstant |$NativeTypeTable|
+  '((|void|    . @void_type@)
+    (|char|    . @char_type@)
+    (|int|     . @int_type@)
+    (|float|   . @float_type@)
+    (|double|  . @double_type@)
+    (|string|  . @string_type@)
+    (|pointer| . @pointer_type@)))
-- 
cgit v1.2.3