[Wisp-cvs] wisp/users/dig pe.py,1.33,1.34

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

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

Modified Files:
	pe.py 
Log Message:
avoid usage of interpret_single

Index: pe.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/pe.py,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- pe.py	21 May 2003 13:23:10 -0000	1.33
+++ pe.py	22 May 2003 19:27:24 -0000	1.34
@@ -8,7 +8,7 @@
 
 from coff import *
 import time
-from tran import Interpreter, interpret_single
+from tran import Interpreter
 
 def roundup (value, boundary):
     return (value + boundary - 1) & ~(boundary - 1)
@@ -29,7 +29,10 @@
         raise 'MZ message may not contain dollar signs', message
     if message.find('\r') == -1: # if no CRs, insert them
         message = '\r\n'.join(message.split('\n'))
-    b = interpret_single('make-pe-mz-stub-structure', '<', include = 'pe')
+    b = Linkie('<')
+    do = Interpreter(b).do
+    do('needs pe')
+    do('make-pe-mz-stub-structure')
 
     message += '$' # Dollar the Terminator
     # a pointer to the PE signature must appear at the offset 0x003C