From 52be0d0d1eaf4b6f8956e72f5c4a425e793a36cc Mon Sep 17 00:00:00 2001 From: Julien Dessaux Date: Sat, 2 Oct 2021 20:37:24 +0200 Subject: Finished implementing the funge space field --- src/field.nim | 71 +++++++++++++++++++++++++++++++++++++++++++++++++++--- src/nimfunge98.nim | 5 ---- 2 files changed, 67 insertions(+), 9 deletions(-) delete mode 100644 src/nimfunge98.nim (limited to 'src') diff --git a/src/field.nim b/src/field.nim index 224e21d..1cd1874 100644 --- a/src/field.nim +++ b/src/field.nim @@ -8,7 +8,7 @@ type lx, ly: int lines: seq[Line] -proc blank*(f: var Field, x, y: int) = +func blank*(f: var Field, x, y: int) = if y < f.y or y >= f.y+f.ly: # outside the field return var l = addr f.lines[y-f.y] @@ -59,17 +59,80 @@ proc blank*(f: var Field, x, y: int) = x2 = f.lines[i].x + f.lines[i].l f.lx = x2-f.x -proc get*(f: Field, x, y: int): int = +func get*(f: Field, x, y: int): int = if y >= f.y and y < f.y+f.ly: let l = f.lines[y-f.y] if x >= l.x and x < l.x+l.l: return l.columns[x-l.x] return int(' ') -proc isIn*(f: Field, x, y: int): bool = +func isIn*(f: Field, x, y: int): bool = return x >= f.x and y >= f.y and x < f.x+f.lx and y < f.y+f.ly -proc set*(f: var Field, x, y, v: int) = +proc load*(f: var Field, filename: string): bool = + var file: File + if not open(file, filename): + return false + defer: file.close() + f.lines.add(Line()) + var l = addr f.lines[0] + var trailingSpaces = 0 + var data: array[255,char] + while true: + let n = file.readChars(data, 0, 255) + if n <= 0: + if f.ly == 0: + if l.l == 0: # we got en empty file! + return false + f.x = l.x + if l.l > 0: + inc f.ly + if f.lx < l.l+l.x-f.x: + f.lx = l.l+l.x-f.x + break + var i = 0 + while i < n: + if data[i] == char(12): + inc i + continue + if data[i] == '\n' or data[i] == '\r': + if f.ly == 0: + if l.l == 0: + return false + f.x = l.x + inc f.ly + if f.x > l.x: + f.x = l.x + if f.lx < l.l+l.x-f.x: + f.lx = l.l+l.x-f.x + f.lines.add(Line()) + l = addr f.lines[^1] + trailingSpaces = 0 + if i+1 < n and data[i] == '\r' and data[i+1] == '\n': + inc i + else: + if data[i] == ' ': + if l.l == 0: # trim leading spaces + inc l.x + else: + inc trailingSpaces + else: + if trailingSpaces > 0: + let newL = l.l + trailingSpaces + 1 + l.columns.setlen(newL) + for j in l.l..= f.y: diff --git a/src/nimfunge98.nim b/src/nimfunge98.nim deleted file mode 100644 index e8f1ce4..0000000 --- a/src/nimfunge98.nim +++ /dev/null @@ -1,5 +0,0 @@ -import nimfunge98/field/field - -let f:Field - -echo f.get(3,2) \ No newline at end of file -- cgit v1.2.3