Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv3315
Modified Files:
tran.py
Log Message:
implemented |...|
Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -d -r1.82 -r1.83
--- tran.py 17 May 2003 06:08:31 -0000 1.82
+++ tran.py 17 May 2003 08:10:38 -0000 1.83
@@ -228,7 +228,7 @@
m = Meaning[tok]
if isinstance(m, list): prep.push(Macro_Cursor(m))
elif isinstance(m, Stackable): Regstack.append(m)
- else: # assume tuple
+ elif isinstance(m, tuple):
mtype = m[0]
if mtype == 'builtin':
if m[2] & MA_PREFIX:
@@ -238,6 +238,7 @@
else:
m[1]()
else: raise 'Unknown meaning type in', `Meaning[tok]`
+ else: raise 'Unknown meaning format for', tok
else: raise 'bad token', tok
Regstack = []
@@ -245,6 +246,7 @@
MA_PREFIX = 1
Meaning = {'reg': Generic_Register,
+ '...': Unique('...'),
'tetras': ['dup', '+', 'dup', '+'], # FIXME
}
for m in 'any const int lit sum sym'.split(' '):
|
