jyapayne/Nim
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

commit before ov-res changes

Browse source
This commit is contained in:
Araq 2010-12-07 17:11:35 +01:00
commit 902bf05879
4 changed files with 37 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

8
rod/idents.nim
View file

@ -16,7 +16,7 @@ import
type
TIdObj* = object of TObject
id*: int # unique id; use this for comparisons and not the pointers
id*: int # unique id; use this for comparisons and not the pointers
PIdObj* = ref TIdObj
PIdent* = ref TIdent
@ -48,8 +48,8 @@ proc cmpIgnoreStyle(a, b: cstring, blen: int): int =
result = 1
while j < blen:
while a[i] == '_': inc(i)
while b[j] == '_':
inc(j) # tolower inlined:
while b[j] == '_': inc(j)
# tolower inlined:
aa = a[i]
bb = b[j]
if (aa >= 'A') and (aa <= 'Z'): aa = chr(ord(aa) + (ord('a') - ord('A')))
@ -129,4 +129,4 @@ proc getIdent(identifier: cstring, length: int, h: THash): PIdent =
result.id = - wordCounter
else:
result.id = id # writeln('new word ', result.s);