fixed graphics module

This commit is contained in:
Andreas Rumpf 2010-03-03 16:58:33 +01:00
commit 048811b2be
6 changed files with 2742 additions and 134 deletions

View file

@ -162,11 +162,15 @@ iterator split*(s: string, seps: set[char] = Whitespace): string =
## produces the same output.
var last = 0
assert(not ('\0' in seps))
#echo "cam here 1", s
while last < len(s):
while s[last] in seps: inc(last)
var first = last
#echo "A first: ", first, " last: ", last
while last < len(s) and s[last] not_in seps: inc(last) # BUGFIX!
#echo "B first: ", first, " last: ", last
if first <= last-1:
echo copy(s, first, last-1)
yield copy(s, first, last-1)
iterator split*(s: string, sep: char): string =

View file

@ -58,6 +58,7 @@ proc xmlCheckedTag*(e: PNimrodNode, tag: string,
# will be modified, so that each attribute is only given one value
var req = split(reqAttr)
var opt = split(optAttr)
echo "##", optAttr, "##", opt.len
result = newNimNode(nnkBracket, e)
result.add(newStrLitNode("<"))
result.add(newStrLitNode(tag))