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())
|
