[Wisp-cvs] wisp/users/dig tran-builtins,1.27,1.28

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

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)