Commit 80dceec5 authored by Erick Gallesio's avatar Erick Gallesio

Starting SPLIT integration

parent ade1ed76
This diff is collapsed.
......@@ -2,7 +2,7 @@ dnl configure.in for STklos
dnl
dnl Author: Erick Gallesio [eg@unice.fr]
dnl Creation date: 28-Dec-1999 21:19 (eg)
dnl Last file update: 11-Jan-2007 16:27 (eg)
dnl Last file update: 7-Feb-2007 11:30 (eg)
AC_INIT(src/stklos.c)
......@@ -514,7 +514,7 @@ AC_OUTPUT(Makefile src/Makefile src/extraconf.h doc/Makefile
extensions/Makefile examples/Makefile
examples/images/Makefile lib/Match.d/Makefile
lib/SILex.d/Makefile lib/Lalr.d/Makefile lib/Lurc.d/Makefile
lib/Snow.d/Makefile
lib/Snow.d/Makefile lib/Split.d/Makefile
tests/Makefile extensions/extconf.h
doc/stklos.1 doc/stklos-config.1 doc/stklos-compile.1
doc/stklos-genlex.1 doc/stklos-install.1
......
......@@ -2,9 +2,9 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 11-Apr-2000 10:30 (eg)
# Last file update: 8-Jan-2007 14:02 (eg)
# Last file update: 7-Feb-2007 11:35 (eg)
SUBDIRS = Match.d SILex.d Lalr.d Snow.d @LURCDIR@
SUBDIRS = Match.d SILex.d Lalr.d Snow.d Split.d @LURCDIR@
scheme_BOOT = assembler.stk \
bb.stk \
......@@ -46,6 +46,8 @@ scheme_SRCS = STklos.init \
make-C-boot.stk \
match.stk \
pp.stk \
snow-support.stk \
split-support.stk \
slib.stk \
srfi-1.stk \
srfi-2.stk \
......@@ -81,6 +83,7 @@ scheme_OBJS = compfile.ostk \
match.ostk \
pp.ostk \
snow-support.ostk \
split-support.ostk \
srfi-1.ostk \
srfi-2.ostk \
srfi-4.ostk \
......
......@@ -18,7 +18,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 11-Apr-2000 10:30 (eg)
# Last file update: 8-Jan-2007 14:02 (eg)
# Last file update: 7-Feb-2007 11:35 (eg)
srcdir = @srcdir@
top_srcdir = @top_srcdir@
......@@ -197,7 +197,7 @@ sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
SUBDIRS = Match.d SILex.d Lalr.d Snow.d @LURCDIR@
SUBDIRS = Match.d SILex.d Lalr.d Snow.d Split.d @LURCDIR@
scheme_BOOT = assembler.stk \
bb.stk \
bonus.stk \
......@@ -237,6 +237,8 @@ scheme_SRCS = STklos.init \
make-C-boot.stk \
match.stk \
pp.stk \
snow-support.stk \
split-support.stk \
slib.stk \
srfi-1.stk \
srfi-2.stk \
......@@ -272,6 +274,7 @@ scheme_OBJS = compfile.ostk \
match.ostk \
pp.ostk \
snow-support.ostk \
split-support.ostk \
srfi-1.ostk \
srfi-2.ostk \
srfi-4.ostk \
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 01-Jan-2000 15:04 (eg)
;;;; Last file update: 1-Feb-2007 18:57 (eg)
;;;; Last file update: 7-Feb-2007 11:59 (eg)
;;;;
(include "runtime.stk") ; Definition necessary for the bootstrap
......@@ -54,6 +54,7 @@
(autoload "env" null-environment scheme-report-environment
interaction-environment)
;(syntax-autoload "snow-support" package*)
(syntax-autoload "split-support" interface)
(autoload "srfi-27" random-integer random-real)
(syntax-autoload "srfi-34" with-exception-handler guard)
(syntax-autoload "srfi-35" define-condition-type condition)
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 17-May-2000 14:55 (eg)
;;;; Last file update: 17-Jan-2007 11:46 (eg)
;;;; Last file update: 7-Feb-2007 22:17 (eg)
;;;;
......@@ -30,7 +30,7 @@
(define *path-separator* (if (eqv? (running-os) 'windows) ";" ":"))
(define *load-suffixes* (list "ostk" "stk" "scm" "so"))
(define *load-suffixes* (list "ostk" "spi" "stk" "scm" "so"))
(define *load-verbose* #f)
(define *load-path* '()) ;; initialized later
......
;;;;
;;;; module.stk -- Module stuff
;;;;
;;;; Copyright 2000-2006 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; Copyright 2000-2007 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;;
;;;; This program is free software; you can redistribute it and/or modify
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 1-Jun-2000 12:26 (eg)
;;;; Last file update: 18-Dec-2006 21:24 (eg)
;;;; Last file update: 7-Feb-2007 15:03 (eg)
;;;;
......@@ -235,7 +235,9 @@ doc>
(error 'import "module `~S' does not exist" (car l)))))))
(define-macro (import . modules)
`(%module-import (current-module) ',modules))
(if (null? modules)
'()
`(%module-import (current-module) ',modules)))
;;=============================================================================
;;
......
This diff is collapsed.
This source diff could not be displayed because it is too large. You can view the blob instead.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment