wisp-cvs

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

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv12697

Modified Files:
	tran-builtins 
Log Message:
implemented |b, sum| and |w, sum|

Index: tran-builtins
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran-builtins,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- tran-builtins	17 May 2003 16:19:41 -0000	1.29
+++ tran-builtins	17 May 2003 16:26:21 -0000	1.30
@@ -133,6 +133,11 @@
 b, int
     interpreter.current[::1] = long(interpreter.regstack.pop())
 
+b, sum
+    sum = interpreter.regstack.pop()
+    interpreter.current.emit_byte_sum(map(str, sum.get_symbols()),
+                                      delta = sum.get_scalar())
+
 b, sym
     interpreter.current[::1] = str(interpreter.regstack.pop())
 
@@ -189,16 +194,21 @@
 t, int
     interpreter.current[::4] = long(interpreter.regstack.pop())
 
-t, sym
-    interpreter.current[::4] = str(interpreter.regstack.pop())
-
 t, sum
     sum = interpreter.regstack.pop()
     interpreter.current.emit_tetra_sum(map(str, sum.get_symbols()),
                                        delta = sum.get_scalar())
 
+t, sym
+    interpreter.current[::4] = str(interpreter.regstack.pop())
+
 w, int
     interpreter.current[::2] = long(interpreter.regstack.pop())
+
+w, sum
+    sum = interpreter.regstack.pop()
+    interpreter.current.emit_wyde_sum(map(str, sum.get_symbols()),
+                                      delta = sum.get_scalar())
 
 w, sym
     interpreter.current[::2] = str(interpreter.regstack.pop())