From 66b683579143de15598c16695df72d1b224c2030 Mon Sep 17 00:00:00 2001 From: "Jeffrey H. Kingston" Date: Tue, 14 Sep 2010 20:41:52 +0000 Subject: Lout 3.37. git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@43 9365b830-b601-4143-9ba8-b4a8e2c3339c --- z02.c | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'z02.c') diff --git a/z02.c b/z02.c index d0aeccf..7a29b96 100644 --- a/z02.c +++ b/z02.c @@ -1,7 +1,7 @@ /*@z02.c:Lexical Analyser:Declarations@***************************************/ /* */ -/* THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.36) */ -/* COPYRIGHT (C) 1991, 2007 Jeffrey H. Kingston */ +/* THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37) */ +/* COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston */ /* */ /* Jeffrey H. Kingston (jeff@it.usyd.edu.au) */ /* School of Information Technologies */ @@ -647,7 +647,13 @@ OBJECT LexGetToken(void) } } else if( predefined(res) == 0 ) - { res = NewToken(CLOSURE, &file_pos, 0, 0, precedence(res), res); + { + /* nice try but does not work for @Database @FontDef { ... } !! *** + if( res == FontDefSym && ftype != DATABASE_FILE ) + Error(2, 26, "%s may only appear in a database file", FATAL, + &file_pos, KW_FONTDEF); + *** */ + res = NewToken(CLOSURE, &file_pos, 0, 0, precedence(res), res); } else if( predefined(res) == INCLUDE || predefined(res) == SYS_INCLUDE ) { OBJECT t, fname; FILE_NUM fnum; int len; BOOLEAN scope_suppressed; -- cgit