Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv28620
Modified Files:
tran.py
Log Message:
added the |- int int| word
Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- tran.py 14 Apr 2003 02:06:42 -0000 1.4
+++ tran.py 14 Apr 2003 02:09:39 -0000 1.5
@@ -97,6 +97,8 @@
State = state_regs
def plus (a, b):
Regstack.append(a + b)
+def minus (a, b):
+ Regstack.append(a - b)
def matchers (object):
if isinstance(object, ClassMarker):
@@ -199,6 +201,7 @@
MA_PREFIX = 010
Meaning = {
'+ int int': ('builtin', plus, 2),
+ '- int int': ('builtin', minus, 2),
'.data': ('builtin', dot_data, 0),
'.text': ('builtin', dot_text, 0),
':macro': ('builtin', colon_macro, 0 | MA_PREFIX),
|
