mirror of
https://github.com/digarok/gsplus.git
synced 2024-06-10 23:29:41 +00:00
72 lines
2.2 KiB
Plaintext
72 lines
2.2 KiB
Plaintext
/*
|
|
|
|
make_inst.cmd:
|
|
|
|
Translation of the make_size perl script and makefile to rexx for OS/2
|
|
|
|
size_c.h: size_tab.h
|
|
$(PERL) make_size c size_tab.h > size_c.h
|
|
|
|
size_s.h: size_tab.h
|
|
$(PERL) make_size s size_tab.h > size_s.h
|
|
|
|
8size_s.h: size_tab.h
|
|
$(PERL) make_size 8 size_tab.h > 8size_s.h
|
|
|
|
16size_s.h: size_tab.h
|
|
$(PERL) make_size 16 size_tab.h > 16size_s.h
|
|
|
|
*/
|
|
|
|
FileNameIn = "..\..\size_tab.h"
|
|
FileNameOuts = "..\..\size_s.h"
|
|
FileNameOutc = "..\..\size_c.h"
|
|
FileNameOut8 = "..\..\8size_s.h"
|
|
FileNameOut16 = "..\..\16size_s.h"
|
|
|
|
DEL FileNameOuts
|
|
DEL FileNameOutc
|
|
DEL FileNameOut8
|
|
DEL FileNameOut16
|
|
crud = STREAM(FileNameIn,"C","open read")
|
|
crud = STREAM(FileNameOuts,"C","open write")
|
|
crud = STREAM(FileNameOutc,"C","open write")
|
|
crud = STREAM(FileNameOut8,"C","open write")
|
|
crud = STREAM(FileNameOut16,"C","open write")
|
|
|
|
Do while (STREAM(FileNameIn,"S") = "READY")
|
|
line = LINEIN(FileNameIn);
|
|
|
|
SymPos = POS("_SYM",line)
|
|
if (SymPos > 0) Then
|
|
Do
|
|
newline = " .byte 0x"SUBSTR(line,SymPos+5,1)", /* "SUBSTR(line,SymPos-2,2)" */ "SUBSTR(line,SymPos+6)
|
|
crud = LINEOUT(FileNameOuts, newline);
|
|
newline = " 0x"SUBSTR(line,SymPos+5,1)", /* "SUBSTR(line,SymPos-2,2)" */ "SUBSTR(line,SymPos+6)
|
|
crud = LINEOUT(FileNameOutc, newline);
|
|
newline = " .word inst"SUBSTR(line,SymPos-2,2)" . 8 . /*"SUBSTR(line,SymPos+5,1)"*/ "SUBSTR(line,SymPos+6)
|
|
crud = LINEOUT(FileNameOut8, newline);
|
|
newline = " .word inst"SUBSTR(line,SymPos-2,2)" . 16 . /*"SUBSTR(line,SymPos+5,1)"*/ "SUBSTR(line,SymPos+6)
|
|
crud = LINEOUT(FileNameOut16, newline);
|
|
End
|
|
Else if (POS(".block",line) > 0) Then
|
|
Do
|
|
crud = LINEOUT(FileNameOuts, "");
|
|
crud = LINEOUT(FileNameOutc, "");
|
|
crud = LINEOUT(FileNameOut8, line);
|
|
crud = LINEOUT(FileNameOut16, line);
|
|
End
|
|
Else
|
|
Do
|
|
crud = LINEOUT(FileNameOuts, line);
|
|
crud = LINEOUT(FileNameOutc, line);
|
|
crud = LINEOUT(FileNameOut8, line);
|
|
crud = LINEOUT(FileNameOut16, line);
|
|
End
|
|
End
|
|
crud = STREAM(FileNameIn,"C","close")
|
|
crud = STREAM(FileNameOuts,"C","close")
|
|
crud = STREAM(FileNameOutc,"C","close")
|
|
crud = STREAM(FileNameOut8,"C","close")
|
|
crud = STREAM(FileNameOut16,"C","close")
|