1
0
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:
Nick Briggs
2015-04-20 18:53:52 -07:00
commit de170a64d9
427 changed files with 129342 additions and 0 deletions

17
src/find-dsp.lex Executable file
View 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 {}