Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv19200
Modified Files:
tran-builtins
Log Message:
implemented |2mingle|
Index: tran-builtins
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran-builtins,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- tran-builtins 17 May 2003 15:05:17 -0000 1.27
+++ tran-builtins 17 May 2003 15:21:25 -0000 1.28
@@ -152,6 +152,15 @@
before, after = tpl
interpreter.regstack.append(Symbol_Literal(before + core + after))
+2mingle sym sym|tpl
+ core2 = str(interpreter.regstack.pop())[1:]
+ core1 = str(interpreter.regstack.pop())[1:]
+ tpl = tpl.split('*', 2)
+ if len(tpl) <> 3: raise 'not exactly two stars', tpl
+ before, middle, after = tpl
+ interpreter.regstack.append(Symbol_Literal(before + core1 + \
+ middle + core2 + after))
+
label|name
if not name[0] in '&#!': name = '&' + name
interpreter.current.place_symbol(name)
|
