version 0.7.2

This commit is contained in:
Andreas Rumpf 2008-12-12 14:02:27 +01:00
commit ddaedab835
158 changed files with 34811 additions and 10001 deletions

View file

@ -34,7 +34,8 @@ type
TTokTypes* = set[TTokTypeRange]
const
toktypes: TTokTypes = {tkSymbol..pred(tkIntLit), tkStrLit..tkTripleStrLit}
toktypes: TTokTypes = {TTokTypeRange(tkSymbol)..pred(tkIntLit),
tkStrLit..tkTripleStrLit}
var
s: set[char]
@ -46,11 +47,12 @@ else: write(stdout, "BUG: F ist nicht in s!\n")
a = {} #{'a'..'z'}
for x in low(TAZ) .. high(TAZ):
incl(a, x)
if x in a: write(stdout, x & " ")
if x in a: nil
else: write(stdout, "BUG: something not in a!\n")
for x in low(TTokTypeRange) .. high(TTokTypeRange):
if x in tokTypes:
writeln(stdout, "the token '$1' is in the set" % repr(x))
nil
#writeln(stdout, "the token '$1' is in the set" % repr(x))
#OUT Ha ein F ist in s!