[Wisp-cvs] wisp/users/dig coff.tran,1.1,1.2 elf.py,1.59,1.60 hello.tran,1.4,1.5 mswhello.tran,1.13,1.14 mz.tran,1.1,1.2 pe.py,1.9,1.10 pe.tran,1.2,1.3 tran-builtins,1.26,1.27 winapi.tran,1.2,1.3

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

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

Modified Files:
	coff.tran elf.py hello.tran mswhello.tran mz.tran pe.py 
	pe.tran tran-builtins winapi.tran 
Log Message:
renamed |ref| to |'|

Index: coff.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/coff.tran,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- coff.tran	17 May 2003 13:50:52 -0000	1.1
+++ coff.tran	17 May 2003 15:05:16 -0000	1.2
@@ -8,7 +8,7 @@
 
 :[ ] make-coff-header
     4 align
-    ref #coff/magic w,
+    '#coff/magic w,
     \ Known magic values:
     \    0x0000 unknown
     \    0x014C i80386
@@ -29,12 +29,12 @@
     \    0x0284 Alpha AXP 64-bit
     \    0x0366 Mips with FPU
     \    0x0466 Mips 16 with FPU
-    ref #coff/nscns w,
-    ref #coff/timdat t,
-    ref !coff/symptr t,
-    ref #coff/nsyms t,
-    ref #coff/opthdr w,
-    ref #coff/flags w,
+    '#coff/nscns w,
+    '#coff/timdat t,
+    '!coff/symptr t,
+    '#coff/nsyms t,
+    '#coff/opthdr w,
+    '#coff/flags w,
     \ Flags for COFF:
     \    0x0001 no relocations -- can only be loaded at the preferred address
     \    0x0002 executable

Index: elf.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/elf.py,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -d -r1.59 -r1.60
--- elf.py	17 May 2003 14:16:24 -0000	1.59
+++ elf.py	17 May 2003 15:05:17 -0000	1.60
@@ -353,7 +353,7 @@
     t.align(4)
     t |= '!elf/proghdr'
     for name in names:
-        interpret_single(['ref', name, 'make-elf32-phentry'],
+        interpret_single(["'", name, 'make-elf32-phentry'],
                          t, include = 'elf')
     t.place_symbol('#elf/phnum', len(names))
     return t

Index: hello.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/hello.tran,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- hello.tran	17 May 2003 09:41:22 -0000	1.4
+++ hello.tran	17 May 2003 15:05:17 -0000	1.5
@@ -15,7 +15,7 @@
 
 label _start
     %edx 6 $mov
-    %ecx ref message $mov
+    %ecx 'message $mov
     %ebx 1 $mov
     %eax 4 $mov
     #x80 $int

Index: mswhello.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/mswhello.tran,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- mswhello.tran	17 May 2003 06:08:31 -0000	1.13
+++ mswhello.tran	17 May 2003 15:05:17 -0000	1.14
@@ -16,7 +16,7 @@
 
 label _start
     -11 GetStdHandle
-    ref message 7 ref rckeep 0 WriteFile drop
+    'message 7 'rckeep 0 WriteFile drop
     0 ExitProcess
 
 .data

Index: mz.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/mz.tran,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- mz.tran	17 May 2003 14:54:41 -0000	1.1
+++ mz.tran	17 May 2003 15:05:17 -0000	1.2
@@ -8,15 +8,15 @@
 
 :[ ] make-mz-header
     #x4D b, #x5A b, \ magic
-    ref #mz/bytes-in-last-block w, ref #mz/blocks-in-file w,
-    ref #mz/reloc-count w,
-    ref #mz/header-size w,
-    ref #mz/low-memory-limit w, ref #mz/high-memory-limit w,
-    ref #mz/ss w, ref #mz/sp w,
-    ref #mz/checksum w,
-    ref #mz/ip w, ref #mz/cs w,
-    ref !mz/reloc w,
-    ref #mz/overlay w,
+    '#mz/bytes-in-last-block w, '#mz/blocks-in-file w,
+    '#mz/reloc-count w,
+    '#mz/header-size w,
+    '#mz/low-memory-limit w, '#mz/high-memory-limit w,
+    '#mz/ss w, '#mz/sp w,
+    '#mz/checksum w,
+    '#mz/ip w, '#mz/cs w,
+    '!mz/reloc w,
+    '#mz/overlay w,
 ;
 
 \ vim: ft=tran

Index: pe.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/pe.py,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- pe.py	17 May 2003 14:54:41 -0000	1.9
+++ pe.py	17 May 2003 15:05:17 -0000	1.10
@@ -6,7 +6,6 @@
 #
 #### @(#) $Id$
 
-from mz import *
 from coff import *
 import time
 from tran import interpret_single

Index: pe.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/pe.tran,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- pe.tran	17 May 2003 14:54:41 -0000	1.2
+++ pe.tran	17 May 2003 15:05:17 -0000	1.3
@@ -22,13 +22,13 @@
     0 =: !mz/reloc
     0 =: #mz/overlay
 
-    #x8C b, #xc8 b,           \ mov %ax, %cs
-    #x8E b, #xD8 b,           \ mov %ds, %ax
-    #xB4 b, 9 b,              \ mov %ah, 9
-    #xBA b, ref mz/message w, \ mov %dx, message
-    #xCD b, #x21 b,           \ int 0x21
-    #xB8 b, #x4CFF w,         \ mov %ax, 0x4CFF
-    #xCD b, #x21 b,           \ int 0x21
+    #x8C b, #xc8 b,        \ mov %ax, %cs
+    #x8E b, #xD8 b,        \ mov %ds, %ax
+    #xB4 b, 9 b,           \ mov %ah, 9
+    #xBA b, 'mz/message w, \ mov %dx, message
+    #xCD b, #x21 b,        \ int 0x21
+    #xB8 b, #x4CFF w,      \ mov %ax, 0x4CFF
+    #xCD b, #x21 b,        \ int 0x21
 ;
 
 \ vim: ft=tran

Index: tran-builtins
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran-builtins,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- tran-builtins	17 May 2003 14:46:34 -0000	1.26
+++ tran-builtins	17 May 2003 15:05:17 -0000	1.27
@@ -162,7 +162,7 @@
 include|name
     interpreter.toksrc.push(Lexer(str(name) + '.tran'))
 
-ref|name
+'|name
     if not name[0] in '&#!': name = '&' + name
     interpreter.regstack.append(Symbol_Literal(name))
 

Index: winapi.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/winapi.tran,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- winapi.tran	17 May 2003 05:08:45 -0000	1.2
+++ winapi.tran	17 May 2003 15:05:17 -0000	1.3
@@ -7,12 +7,12 @@
 \\\\ @(#) $Id$
 
 :[ ] GetStdHandle \ (handle-number -- handle)
-    commit ref GetStdHandle@kernel32 $call %eax ;
+    commit 'GetStdHandle@kernel32 $call %eax ;
 
 :[ ] WriteFile \ (file buffer count result* overlapped* -- result)
-    5rev commit ref WriteFile@kernel32 $call %eax ;
+    5rev commit 'WriteFile@kernel32 $call %eax ;
 
 :[ ] ExitProcess \ (code --)
-    commit ref ExitProcess@kernel32 $call ;
+    commit 'ExitProcess@kernel32 $call ;
 
 \ vim: ft=tran