Commit 01c19470 authored by Erick's avatar Erick

Removing LURC support since it is no more maintained

parent c2c315e0
# -*- conf -*-
# Temporaries
gc.old
gc-patche
gc-lurc
benches/
gtklos/paned.stk
lib/GLOBS
......
......@@ -163,7 +163,6 @@ LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
LURCDIR = @LURCDIR@
MAKEINFO = @MAKEINFO@
MKDIR_P = @MKDIR_P@
OBJEXT = @OBJEXT@
......
......@@ -594,7 +594,6 @@ ac_subst_vars='am__EXEEXT_FALSE
am__EXEEXT_TRUE
LTLIBOBJS
CALLCC_STK
LURCDIR
THREADS
DEF_FFI
FFIINC
......@@ -632,8 +631,6 @@ HAVE_DLOPEN
STKCFLAGS
NO_THREAD_FALSE
NO_THREAD_TRUE
LURC_FALSE
LURC_TRUE
PTHREADS_FALSE
PTHREADS_TRUE
POW_LIB
......@@ -1370,7 +1367,7 @@ Optional Features:
--enable-FEATURE[=ARG] include FEATURE [ARG=yes]
--disable-dependency-tracking speeds up one-time build
--enable-dependency-tracking do not reject slow dependency extractors
--enable-threads=TYPE choose threading package (none,pthread,lurc)
--enable-threads=TYPE choose threading package (none,pthread)
Optional Packages:
--with-PACKAGE[=ARG] use PACKAGE [ARG=yes]
......@@ -6222,9 +6219,6 @@ ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
ac_compiler_gnu=$ac_cv_c_compiler_gnu
### This checks for the presence of a given CPP define in a fiven header file
### Now look at what threads we want
case "$THREADS" in
......@@ -6284,91 +6278,6 @@ fi
$as_echo "#define THREADS_PTHREADS /**/" >>confdefs.h
;;
lurc)
### Check for lurc
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for lurc_thread_create in -llurc" >&5
$as_echo_n "checking for lurc_thread_create in -llurc... " >&6; }
if test "${ac_cv_lib_lurc_lurc_thread_create+set}" = set; then :
$as_echo_n "(cached) " >&6
else
ac_check_lib_save_LIBS=$LIBS
LIBS="-llurc $LIBS"
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
/* Override any GCC internal prototype to avoid an error.
Use char because int might match the return type of a GCC
builtin and then its argument prototype would still apply. */
#ifdef __cplusplus
extern "C"
#endif
char lurc_thread_create ();
int
main ()
{
return lurc_thread_create ();
;
return 0;
}
_ACEOF
if ac_fn_c_try_link "$LINENO"; then :
ac_cv_lib_lurc_lurc_thread_create=yes
else
ac_cv_lib_lurc_lurc_thread_create=no
fi
rm -f core conftest.err conftest.$ac_objext \
conftest$ac_exeext conftest.$ac_ext
LIBS=$ac_check_lib_save_LIBS
fi
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_lurc_lurc_thread_create" >&5
$as_echo "$ac_cv_lib_lurc_lurc_thread_create" >&6; }
if test "x$ac_cv_lib_lurc_lurc_thread_create" = x""yes; then :
LIBS="-llurc $LIBS"
else
as_fn_error "Missing LURC library" "$LINENO" 5
fi
ac_fn_c_check_header_mongrel "$LINENO" "lurc.h" "ac_cv_header_lurc_h" "$ac_includes_default"
if test "x$ac_cv_header_lurc_h" = x""yes; then :
else
as_fn_error "Missing LURC header file" "$LINENO" 5
fi
### Now check if it is compiled with GC support
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for LURC GC support" >&5
$as_echo_n "checking for LURC GC support... " >&6; }
### lurc.h: header file
### LURC_ENABLE_GC: CPP variable
### AC_MSG_RESULT([ok]): then
### AC_MSG_ERROR([Missing GC support in LURC]): else
cat confdefs.h - <<_ACEOF >conftest.$ac_ext
/* end confdefs.h. */
#include <lurc.h>
#ifndef LURC_ENABLE_GC
# error "LURC_ENABLE_GC undefined"
#else
ok
#endif
_ACEOF
if ac_fn_c_try_cpp "$LINENO"; then :
{ $as_echo "$as_me:${as_lineno-$LINENO}: result: ok" >&5
$as_echo "ok" >&6; }
else
as_fn_error "Missing GC support in LURC" "$LINENO" 5
fi
rm -f conftest.err conftest.$ac_ext
### That shold be good
$as_echo "#define THREADS_LURC /**/" >>confdefs.h
CALLCC_STK='"dyn-wind-lurc.stk"'
;;
*)
as_fn_error "Unknown thread system: $THREADS" "$LINENO" 5
......@@ -6379,7 +6288,6 @@ esac
### Add the options _REENTRANT and GC_LINUX_THREADS if we are on Linux
case "$THREADS" in
none) true ;;
lurc) true ;;
*) case `uname -s` in
Linux*) STKCFLAGS="-D_REENTRANT=1 -DGC_LINUX_THREADS=1";;
esac
......@@ -6398,14 +6306,6 @@ else
PTHREADS_FALSE=
fi
if test "$THREADS" = lurc; then
LURC_TRUE=
LURC_FALSE='#'
else
LURC_TRUE='#'
LURC_FALSE=
fi
if test "$THREADS" = none; then
NO_THREAD_TRUE=
NO_THREAD_FALSE='#'
......@@ -6886,11 +6786,6 @@ else
fi
# LURC adjustment
LURCDIR=""
if test "$THREADS" = "lurc" ;then
LURCDIR=Lurc.d
fi
###
### See in what direction the stack grows (code stolen from Sawfish)
......@@ -6957,8 +6852,7 @@ fi
ac_config_files="$ac_config_files Makefile src/Makefile src/extraconf.h doc/Makefile lib/Makefile utils/Makefile lib/boot-callcc.stk utils/stklos-config utils/stklos-script examples/Makefile lib/Match.d/Makefile lib/SILex.d/Makefile lib/Lalr.d/Makefile lib/Lurc.d/Makefile lib/ScmPkg.d/Makefile tests/Makefile doc/stklos.1 doc/stklos-config.1 doc/stklos-compile.1 doc/stklos-genlex.1 doc/stklos-install.1 doc/stklos-pkg.1 doc/skb/stklos-version.stk pkgman/Makefile"
ac_config_files="$ac_config_files Makefile src/Makefile src/extraconf.h doc/Makefile lib/Makefile utils/Makefile lib/boot-callcc.stk utils/stklos-config utils/stklos-script examples/Makefile lib/Match.d/Makefile lib/SILex.d/Makefile lib/Lalr.d/Makefile lib/ScmPkg.d/Makefile tests/Makefile doc/stklos.1 doc/stklos-config.1 doc/stklos-compile.1 doc/stklos-genlex.1 doc/stklos-install.1 doc/stklos-pkg.1 doc/skb/stklos-version.stk pkgman/Makefile"
cat >confcache <<\_ACEOF
# This file is a shell script that caches the results of configure
......@@ -7081,10 +6975,6 @@ if test -z "${PTHREADS_TRUE}" && test -z "${PTHREADS_FALSE}"; then
as_fn_error "conditional \"PTHREADS\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
fi
if test -z "${LURC_TRUE}" && test -z "${LURC_FALSE}"; then
as_fn_error "conditional \"LURC\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
fi
if test -z "${NO_THREAD_TRUE}" && test -z "${NO_THREAD_FALSE}"; then
as_fn_error "conditional \"NO_THREAD\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
......@@ -7697,7 +7587,6 @@ do
"lib/Match.d/Makefile") CONFIG_FILES="$CONFIG_FILES lib/Match.d/Makefile" ;;
"lib/SILex.d/Makefile") CONFIG_FILES="$CONFIG_FILES lib/SILex.d/Makefile" ;;
"lib/Lalr.d/Makefile") CONFIG_FILES="$CONFIG_FILES lib/Lalr.d/Makefile" ;;
"lib/Lurc.d/Makefile") CONFIG_FILES="$CONFIG_FILES lib/Lurc.d/Makefile" ;;
"lib/ScmPkg.d/Makefile") CONFIG_FILES="$CONFIG_FILES lib/ScmPkg.d/Makefile" ;;
"tests/Makefile") CONFIG_FILES="$CONFIG_FILES tests/Makefile" ;;
"doc/stklos.1") CONFIG_FILES="$CONFIG_FILES doc/stklos.1" ;;
......@@ -8444,16 +8333,7 @@ echo " GC library: " $gcmsg
echo " FFI library: " $ffimsg
echo " Thread support: " $THREADS
echo " "
if test "$THREADS" = "lurc"
then
echo "*** WARNING: To use LURC threads, you need to replace (or install) "
echo "*** a special GC package (available at http://www.stklos.net/download)."
echo "*** You have to: "
echo "*** - Remove the current gc directory"
echo "*** - untar this package in this directory."
echo "*** - re-run configure"
echo "*** The GC for LURC probably doesn't work on MacOS 10.5"
fi
echo "If this is correct, you can just type 'make' now at your shell prompt."
echo "Otherwise, re-run 'configure' with correct options."
echo " "
......
......@@ -2,7 +2,7 @@
###
### Author: Erick Gallesio [eg@unice.fr]
### Creation date: 28-Dec-1999 21:19 (eg)
### Last file update: 3-Oct-2009 20:46 (eg)
### Last file update: 3-Oct-2009 21:38 (eg)
AC_PREREQ(2.64)
AC_INIT([stklos], [0.99dev])
......@@ -75,28 +75,11 @@ fi
AC_CHECK_LIB(pthread, pthread_create, deflt_threads=pthreads, deflt_threads=none)
AC_ARG_ENABLE(threads,
[AS_HELP_STRING([--enable-threads=TYPE],[choose threading package (none,pthread,lurc)])],
[AS_HELP_STRING([--enable-threads=TYPE],[choose threading package (none,pthread)])],
THREADS=$enableval,
THREADS=$deflt_threads)
AC_LANG(C)
### This checks for the presence of a given CPP define in a fiven header file
AC_DEFUN(GC_CHECK_DEFINE, [
### $1: header file
### $2: CPP variable
### $3: then
### $4: else
AC_PREPROC_IFELSE([
#include <$1>
#ifndef $2
# error "$2 undefined"
#else
ok
#endif
],
[$3], [$4])
])
### Now look at what threads we want
case "$THREADS" in
......@@ -113,20 +96,6 @@ case "$THREADS" in
CALLCC_STK='"callcc.stk"'
AC_DEFINE(THREADS_PTHREADS, [], [PThread support])
;;
lurc)
### Check for lurc
AC_CHECK_LIB(lurc, lurc_thread_create, LIBS="-llurc $LIBS",
[AC_MSG_ERROR([Missing LURC library])])
AC_CHECK_HEADER([lurc.h], [], [AC_MSG_ERROR([Missing LURC header file])])
### Now check if it is compiled with GC support
AC_MSG_CHECKING([for LURC GC support])
GC_CHECK_DEFINE([lurc.h], [LURC_ENABLE_GC],
[AC_MSG_RESULT([ok])],
[AC_MSG_ERROR([Missing GC support in LURC])])
### That shold be good
AC_DEFINE(THREADS_LURC, [], [LURC threads support])
CALLCC_STK='"dyn-wind-lurc.stk"'
;;
*)
AC_MSG_ERROR([Unknown thread system: $THREADS])
;;
......@@ -136,7 +105,6 @@ esac
### Add the options _REENTRANT and GC_LINUX_THREADS if we are on Linux
case "$THREADS" in
none) true ;;
lurc) true ;;
*) case `uname -s` in
Linux*) STKCFLAGS="-D_REENTRANT=1 -DGC_LINUX_THREADS=1";;
esac
......@@ -148,7 +116,6 @@ esac
### Automake nightmare
AM_CONDITIONAL(PTHREADS, test "$THREADS" = pthreads)
AM_CONDITIONAL(LURC, test "$THREADS" = lurc)
AM_CONDITIONAL(NO_THREAD, test "$THREADS" = none)
### check for GMP pre-version 3.0
......@@ -396,11 +363,6 @@ else
fi
# LURC adjustment
LURCDIR=""
if test "$THREADS" = "lurc" ;then
LURCDIR=Lurc.d
fi
###
### See in what direction the stack grows (code stolen from Sawfish)
......@@ -453,14 +415,12 @@ AC_SUBST(FFIINC)
AC_SUBST(DEF_FFI)
AC_SUBST(THREADS)
AC_SUBST(LURCDIR)
AC_SUBST(CALLCC_STK)
AC_CONFIG_FILES([Makefile src/Makefile src/extraconf.h doc/Makefile
lib/Makefile utils/Makefile lib/boot-callcc.stk
utils/stklos-config utils/stklos-script
examples/Makefile lib/Match.d/Makefile
lib/SILex.d/Makefile lib/Lalr.d/Makefile lib/Lurc.d/Makefile
utils/stklos-config utils/stklos-script examples/Makefile
lib/Match.d/Makefile lib/SILex.d/Makefile lib/Lalr.d/Makefile
lib/ScmPkg.d/Makefile tests/Makefile
doc/stklos.1 doc/stklos-config.1 doc/stklos-compile.1
doc/stklos-genlex.1 doc/stklos-install.1 doc/stklos-pkg.1
......@@ -486,16 +446,7 @@ echo " GC library: " $gcmsg
echo " FFI library: " $ffimsg
echo " Thread support: " $THREADS
echo " "
if test "$THREADS" = "lurc"
then
echo "*** WARNING: To use LURC threads, you need to replace (or install) "
echo "*** a special GC package (available at http://www.stklos.net/download)."
echo "*** You have to: "
echo "*** - Remove the current gc directory"
echo "*** - untar this package in this directory."
echo "*** - re-run configure"
echo "*** The GC for LURC probably doesn't work on MacOS 10.5"
fi
echo "If this is correct, you can just type 'make' now at your shell prompt."
echo "Otherwise, re-run 'configure' with correct options."
echo " "
......
......@@ -140,7 +140,6 @@ LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
LURCDIR = @LURCDIR@
MAKEINFO = @MAKEINFO@
MKDIR_P = @MKDIR_P@
OBJEXT = @OBJEXT@
......
......@@ -128,7 +128,6 @@ LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
LURCDIR = @LURCDIR@
MAKEINFO = @MAKEINFO@
MKDIR_P = @MKDIR_P@
OBJEXT = @OBJEXT@
......
......@@ -132,7 +132,6 @@ LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
LURCDIR = @LURCDIR@
MAKEINFO = @MAKEINFO@
MKDIR_P = @MKDIR_P@
OBJEXT = @OBJEXT@
......
# Makefile.am for STklos Lurc directory
#
# Author: Stephane Epardaud [Stephane.Epardaud@inria.fr]
# Creation date: 3-Apr-2006 10:30 (se)
# Last file update: 14-Apr-2006 19:22 (eg)
CC = @CC@
CFLAGS = @CFLAGS@
MGCINC = $(subst ../,../../,@GCINC@)
STKCONF = ../../utils/stklos-config
INCLUDES = -I../../src $(COMPFLAGS) $(MGCINC)
COMPILE = @CC@ @CFLAGS@ @SH_COMP_FLAGS@ $(INCLUDES)
shobjectdir=$(prefix)/lib/@PACKAGE@/@VERSION@
shobject_SCRIPTS = stklurc.@SH_SUFFIX@
noinst_LIBRARIES = libstklurc.a
libstklurc_a_SOURCES = lurc.c
# Scheme part
schemedir = $(prefix)/share/@PACKAGE@/@VERSION@
scheme_files = lurc.stk
scheme_DATA = $(scheme_files) lurc.ostk
stklurc.@SH_SUFFIX@: libstklurc.a
@CC@ @SH_LOAD_FLAGS@ stklurc.@SH_SUFFIX@ $(libstklurc_a_OBJECTS)
chmod 0755 stklurc.@SH_SUFFIX@
lurc.ostk: $(scheme_files)
../../utils/tmpcomp lurc.stk lurc.ostk
clean:
/bin/rm -f *.o *.ostk *.@SH_SUFFIX@ *.a *~
distclean: clean
This diff is collapsed.
#include <lurc.h>
#include <stklos.h>
//
// Signal type definition
static int tc_signal;
struct signal_obj {
stk_header header;
lurc_signal_t sig;
};
#define SIGNALP(p) (BOXED_TYPE_EQ((p), tc_signal))
#define SIGNAL_SIG(p) (((struct signal_obj *) (p))->sig)
static void print_signal(SCM signal, SCM port, int mode)
{
char *name = (char*)lurc_signal_name(&SIGNAL_SIG(signal));
STk_puts("#[signal ", port);
if (*name)
STk_puts(name, port);
else
STk_fprintf(port, "%lx", (unsigned long) signal);
STk_putc(']', port);
}
/* The stucture which describes the signal type */
static struct extended_type_descr xtype_signal = {
"lurc:signal", /* name */
print_signal /* print function */
};
//
// Errors
static void error_bad_signal(SCM obj)
{
STk_error("bad signal ~S", obj);
}
static void lurc_error(int ret)
{
STk_error("lurc error ~a", lurc_strerror(ret));
}
//
// Primitives
DEFINE_PRIMITIVE("lurc:signal?", lurc_signalp, subr1, (SCM obj))
{
return MAKE_BOOLEAN(SIGNALP(obj));
}
DEFINE_PRIMITIVE("lurc:signal-name", lurc_signal_name, subr1, (SCM sig))
{
char *name;
if (! SIGNALP(sig)) error_bad_signal(sig);
name = (char*)lurc_signal_name(&SIGNAL_SIG(sig));
if(name == NULL)
name = "";
return STk_Cstring2string(name);
}
static void signal_finalizer(SCM sig)
{
lurc_signal_destroy(&SIGNAL_SIG(sig));
}
static SCM do_make_signal(char *name)
{
SCM z;
lurc_signal_attr_t attr;
int ret;
if((ret = lurc_signal_attr_init(&attr)) != 0)
lurc_error(ret);
if((ret = lurc_signal_attr_setname(&attr, name)) != 0){
lurc_signal_attr_destroy(&attr);
lurc_error(ret);
}
NEWCELL(z, signal);
if((ret = lurc_signal_init(&SIGNAL_SIG(z), &attr)) != 0){
lurc_signal_attr_destroy(&attr);
lurc_error(ret);
}
if((ret = lurc_signal_attr_destroy(&attr)) != 0){
lurc_signal_destroy(&SIGNAL_SIG(z));
lurc_error(ret);
}
STk_register_finalizer(z, signal_finalizer);
return z;
}
DEFINE_PRIMITIVE("lurc:signal", lurc_make_signal, subr01, (SCM name))
{
SCM z;
char *s;
if (name) {
if (!STRINGP(name))
STk_error("bad signal name ~S", name);
s = STRING_CHARS(name);
}
else s = NULL;
z = do_make_signal(s);
return z;
}
static void
enter_context(void *arg){
SCM thunk = (SCM)arg;
STk_C_apply(thunk, 0);
}
DEFINE_PRIMITIVE("%lurc:when", lurc_when, subr2, (SCM sig, SCM thunk))
{
int ret;
if (STk_procedurep(thunk) == STk_false)
STk_error("bad thunk ~S", thunk);
if (! SIGNALP(sig)) error_bad_signal(sig);
if((ret = lurc_when(&SIGNAL_SIG(sig), enter_context, thunk)) != 0)
lurc_error(ret);
return STk_void;
}
DEFINE_PRIMITIVE("%lurc:watch", lurc_watch, subr2, (SCM sig, SCM thunk))
{
int ret;
SCM *vm;
if (STk_procedurep(thunk) == STk_false)
STk_error("bad thunk ~S", thunk);
if (! SIGNALP(sig)) error_bad_signal(sig);
vm = STk_save_vm();
if((ret = lurc_watch(&SIGNAL_SIG(sig), enter_context, thunk)) != 0){
STk_restore_vm(vm);
lurc_error(ret);
}
STk_restore_vm(vm);
return STk_void;
}
DEFINE_PRIMITIVE("lurc:emit", lurc_emit, subr1, (SCM sig))
{
int ret;
if (! SIGNALP(sig)) error_bad_signal(sig);
if((ret = lurc_signal_emit(&SIGNAL_SIG(sig))) != 0)
lurc_error(ret);
return STk_void;
}
DEFINE_PRIMITIVE("lurc:await", lurc_await, subr1, (SCM sig))
{
int ret;
if (! SIGNALP(sig)) error_bad_signal(sig);
if((ret = lurc_signal_await(&SIGNAL_SIG(sig))) != 0)
lurc_error(ret);
return STk_void;
}
DEFINE_PRIMITIVE("lurc:pause", lurc_pause, subr0, ())
{
int ret;
if((ret = lurc_pause()) != 0)
lurc_error(ret);
return STk_void;
}
//
// Module init
void test(void){
lurc_signal_t sig = lurc_signal("test");
int fail = 0;
printf("entering watch\n");
LURC_WATCH(&sig){
printf("in watch\n");
lurc_signal_emit(&sig);
printf("pausing\n");
lurc_pause();
fail = 1;
}
if(fail)
printf("TEST FAILED\n");
else
printf("test passed\n");
}
MODULE_ENTRY_START("lurc"){
tc_signal = STk_new_user_type();
/* Signal Type declaration */
DEFINE_XTYPE(signal, &xtype_signal);
ADD_PRIMITIVE(lurc_signalp);
ADD_PRIMITIVE(lurc_signal_name);
ADD_PRIMITIVE(lurc_make_signal);
ADD_PRIMITIVE(lurc_when);
ADD_PRIMITIVE(lurc_watch);
ADD_PRIMITIVE(lurc_await);
ADD_PRIMITIVE(lurc_emit);
ADD_PRIMITIVE(lurc_pause);
// test();
}MODULE_ENTRY_END;
(define-module lurc
(load "stklurc.so")
(export
lurc:when
%lurc:when
lurc:watch
%lurc:watch
lurc:emit
lurc:signal
lurc:signal?
lurc:signal-name
lurc:await
lurc:pause)
(define-macro (lurc:when sig e . rest)
`(%lurc:when ,sig (lambda () ,e ,@rest)))
(define-macro (lurc:watch sig e . rest)
`(%lurc:watch ,sig (lambda () ,e ,@rest)))
)
(select-module STklos)
(import lurc)
(print "got lurc")
(provide "lurc")
\ No newline at end of file
......@@ -2,9 +2,9 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 11-Apr-2000 10:30 (eg)
# Last file update: 27-Aug-2008 13:43 (eg)
# Last file update: 3-Oct-2009 21:53 (eg)
SUBDIRS = Match.d SILex.d Lalr.d ScmPkg.d @LURCDIR@
SUBDIRS = Match.d SILex.d Lalr.d ScmPkg.d
SFLAGS=
......
......@@ -19,7 +19,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 11-Apr-2000 10:30 (eg)
# Last file update: 27-Aug-2008 13:43 (eg)
# Last file update: 3-Oct-2009 21:53 (eg)
VPATH = @srcdir@
pkgdatadir = $(datadir)/@PACKAGE@
......@@ -172,7 +172,6 @@ LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
LURCDIR = @LURCDIR@
MAKEINFO = @MAKEINFO@
MKDIR_P = @MKDIR_P@
OBJEXT = @OBJEXT@
......@@ -250,7 +249,7 @@ target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
SUBDIRS = Match.d SILex.d Lalr.d ScmPkg.d @LURCDIR@
SUBDIRS = Match.d SILex.d Lalr.d ScmPkg.d
SFLAGS =
scheme_BOOT = assembler.stk \
bb.stk \
......
......@@ -131,7 +131,6 @@ LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
LURCDIR = @LURCDIR@
MAKEINFO = @MAKEINFO@
MKDIR_P = @MKDIR_P@
OBJEXT = @OBJEXT@
......
......@@ -131,7 +131,6 @@ LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
LURCDIR = @LURCDIR@
MAKEINFO = @MAKEINFO@
MKDIR_P = @MKDIR_P@
OBJEXT = @OBJEXT@
......
......@@ -132,7 +132,6 @@ LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
LURCDIR = @LURCDIR@
MAKEINFO = @MAKEINFO@
MKDIR_P = @MKDIR_P@
OBJEXT = @OBJEXT@
......
;;;;
;;;; dyn-wind-lurc.stk -- R5RS dynamic-wind function written in Scheme
;;;;
;;;; Copyright © 2000-2006 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;;
;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
;;;; the Free Software Foundation; either version 2 of the License, or
;;;; (at your option) any later version.
;;;;
;;;; This program 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 General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU General Public License
;;;; along with this program; if not, write to the Free Software
;;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
;;;; USA.
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 3-Apr-2006 12:27 (eg)
;;;; Last file update: 14-Apr-2006 19:55 (eg)
;;;;
(define (dynamic-wind before during after)