[Wisp-cvs] wisp/users/dig tran-builtins,1.16,1.17

[<di...@us...>]

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)