15 lines
370 B
Snobol
15 lines
370 B
Snobol
-SOME RANDOM DIRECTIVE WOULD GO HERE
|
|
*
|
|
* SNOBOL4 example file for lexer
|
|
*
|
|
SOME.THING_OR_OTHER32 = 1 + 1.0 - 1E3 * 1E-3 ** 2.718284590E0
|
|
+ :F(END)S(IN_LOOP)
|
|
PATTERN = LEN(3) ("GAR" | "BAR")
|
|
IN_LOOP THING = INPUT :F(END)
|
|
THING LEN(3) ("GAR" | "BAR") :S(OK)
|
|
OUTPUT = THING " : Failure!" :(IN_LOOP)
|
|
OK OUTPUT = THING ' : "Success"!' :(IN_LOOP)
|
|
END
|
|
FOOBAR
|
|
FOOGAR
|
|
THiNIg
|