Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv1272
Modified Files:
tran-builtins
Log Message:
implemented the |$-w,| builtin
Index: tran-builtins
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran-builtins,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- tran-builtins 17 May 2003 09:25:33 -0000 1.16
+++ tran-builtins 17 May 2003 09:51:15 -0000 1.17
@@ -15,6 +15,15 @@
$-t, sym
interpreter.current.emit_tetra_sum([str(Regstack.pop())], relative = 1)
+$-w, sum
+ s = Regstack.pop()
+ scalar = long(s[0])
+ symbols = map(str, s[1:])
+ interpreter.current.emit_wyde_sum(symbols, delta = scalar % 0x10000L, relative = 1)
+
+$-w, sym
+ interpreter.current.emit_wyde_sum([str(Regstack.pop())], relative = 1)
+
+ int int
n = Regstack.pop(); m = Regstack.pop()
Regstack.append(m + n)
|
