Initial import

This commit is contained in:
Andreas Rumpf 2008-06-22 16:14:11 +02:00
commit 405b86068e
324 changed files with 163599 additions and 0 deletions

32
tests/tarray.nim Executable file
View file

@ -0,0 +1,32 @@
# simple check for one dimensional arrays
import
io
type
TMyArray = array[0..2, int]
TMyRecord = record
x, y: int
proc sum(a: TMyarray): int =
result = 0
var i = 0
while i < length(a):
inc(result, a[i])
inc(i)
proc sum(a: openarray[int]): int =
result = 0
var i = 0
while i < length(a):
inc(result, a[i])
inc(i)
proc getPos(r: TMyRecord): int =
result = r.x + r.y
write(stdout, sum([1, 2, 3, 4]))
write(stdout, sum([]))
write(stdout, getPos( (x: 5, y: 7) ))
#OUT 10012