mirror of
https://github.com/Interlisp/maiko.git
synced 2026-02-07 08:47:09 +00:00
Maiko sources matching state as of 020102 prior to initial patching for Mac OSX
This commit is contained in:
17
src/find-dsp.lex
Executable file
17
src/find-dsp.lex
Executable file
@@ -0,0 +1,17 @@
|
||||
/* @(#) find-dispatch.lex Version 1.2 (4/7/89). copyright envos & Fuji Xerox */
|
||||
|
||||
REG "%"[oilg][0-9]
|
||||
REGOFF "%"[oilg][0-9]\+\-0x[0-9]
|
||||
LABEL L[0-9]+
|
||||
LDUB "\tldub\t["{REG}"],"{REG}
|
||||
LDUB2 "\tldub\t["{REGOFF}"],"{REG}
|
||||
|
||||
%%
|
||||
|
||||
{LDUB2}\n\tcmp\t{REG}",255\n\tbgu\t"{LABEL}\n\t\sll\t{REG}",2,"{REG}\n\tset\t { char x;
|
||||
printf("char *dispatch_label = \"");
|
||||
loop: x=input();
|
||||
if(x == ','){ printf("\";\n"); return;}
|
||||
output(x); goto loop;}
|
||||
|
||||
.*\n {}
|
||||
Reference in New Issue
Block a user