[Wisp-cvs] wisp/users/dig tran-builtins,1.31,1.32

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

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

Modified Files:
	tran-builtins 
Log Message:
implemented |symchop|

Index: tran-builtins
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran-builtins,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- tran-builtins	18 May 2003 11:20:51 -0000	1.31
+++ tran-builtins	18 May 2003 13:15:04 -0000	1.32
@@ -191,6 +191,13 @@
     y = interpreter.regstack.pop(); x = interpreter.regstack.pop()
     interpreter.regstack.append(y); interpreter.regstack.append(x)
 
+symchop sym
+    sym = interpreter.regstack.pop()
+    chars = map(Integer_Literal, map(ord, sym))
+    chars.reverse() # so the first char gets on top of stack
+    interpreter.regstack.extend(chars)
+    interpreter.regstack.append(len(chars))
+
 t, int
     interpreter.current[::4] = long(interpreter.regstack.pop())