Commit d6219879 authored by Erick Gallesio's avatar Erick Gallesio

- Added #void notation

- eof and void are now written as #eof and #void and can hence be read back
parent fceb72f8
2006-12-19 Erick Gallesio <eg@essi.fr>
* 0/82 Release
============================================================
* PACKAGES-USED, lib/Lalr.d/documentation/doc.css,
lib/Lalr.d/documentation/lalr-1.html,
lib/Lalr.d/documentation/lalr-2.html,
......
......@@ -2072,7 +2072,7 @@ fi
# Define the identity of the package.
PACKAGE=stklos
VERSION=0.82
VERSION=0.83
cat >>confdefs.h <<_ACEOF
......
......@@ -2,12 +2,12 @@ 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: 24-Nov-2006 10:11 (eg)
dnl Last file update: 20-Dec-2006 08:28 (eg)
AC_INIT(src/stklos.c)
AC_PREREQ(2.52)
AM_INIT_AUTOMAKE(stklos, 0.82)
AM_INIT_AUTOMAKE(stklos, 0.83)
AM_CONFIG_HEADER(src/stklosconf.h)
AC_PROG_MAKE_SET
......
This diff is collapsed.
......@@ -21,7 +21,7 @@
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: ??-Oct-1993 ??:??
* Last file update: 6-Aug-2006 22:19 (eg)
* Last file update: 20-Dec-2006 09:59 (eg)
*
*/
#include <ctype.h>
......@@ -146,8 +146,8 @@ void STk_print(SCM exp, SCM port, int mode)
case AS_LONG(STk_nil): STk_nputs(port, "()", 2); return;
case AS_LONG(STk_false): STk_nputs(port, "#f", 2); return;
case AS_LONG(STk_true): STk_nputs(port, "#t", 2); return;
case AS_LONG(STk_eof): STk_nputs(port, "#[eof]", 6); return;
case AS_LONG(STk_void): STk_nputs(port, "#[void]", 7); return;
case AS_LONG(STk_eof): STk_nputs(port, "#eof", 4); return;
case AS_LONG(STk_void): STk_nputs(port, "#void", 5); return;
default: STk_panic("Bad small constant %d", exp); return;
}
}
......
......@@ -20,7 +20,7 @@
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: ??-Oct-1993 ??:??
* Last file update: 6-Aug-2006 22:27 (eg)
* Last file update: 20-Dec-2006 09:59 (eg)
*
*/
......@@ -213,7 +213,9 @@ static SCM read_token(SCM port, int c, int case_significant)
switch (*tok) {
case ':': return STk_makekey(tok);
case '#': if (strcasecmp(tok+1, "eof") == 0)
return STk_eof;
return STk_eof;
else if (strcasecmp(tok+1, "void") == 0)
return STk_void;
else
error_bad_sharp_syntax(port, tok);
default : return (tok[len-1] == ':') ? STk_makekey(tok) : STk_intern(tok);
......
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