From 47aa06a2f31efda6bfd85dcb5cc37ec91956d315 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Sun, 7 Apr 2024 13:09:58 -0700 Subject: [PATCH] Strip double spaces --- examples/test.modal | 12 +++++++----- src/modal.c | 12 ++++++------ 2 files changed, 13 insertions(+), 11 deletions(-) diff --git a/examples/test.modal b/examples/test.modal index 25b461d..f8c9e7b 100644 --- a/examples/test.modal +++ b/examples/test.modal @@ -1,6 +1,8 @@ -<> (explode ?*) (?*) +<> (explode ?*) (str (?*)) +<> (reverse (str (?h ?t))) (reverse/l ?t (?h)) +<> (reverse (str (?h))) (?h) +<> (reverse/l (?h ?t) ?l) (reverse/l ?t (?h ?l)) +<> (reverse/l (?h) ?l) (str (?h ?l)) +<> (implode str ?*) (?*) - -<> (?x pin) (done: ?x) - -(explode hello) pin \ No newline at end of file +(implode reverse (explode hello)) \ No newline at end of file diff --git a/src/modal.c b/src/modal.c index 1b50249..ca4a1f9 100644 --- a/src/modal.c +++ b/src/modal.c @@ -226,16 +226,16 @@ main(int argc, char **argv) if(argc < 2) return !printf("usage: modal [-v] source.modal\n"); if(argc < 3 && argv[1][0] == '-' && argv[1][1] == 'v') - return !printf("Modal - Modal Interpreter, 4 Apr 2024.\n"); + return !printf("Modal - Modal Interpreter, 7 Apr 2024.\n"); if(!(f = fopen(argv[1], "r"))) return !printf("Invalid Modal file: %s.\n", argv[1]); while(fread(&c, 1, 1, f)) { - if(prog_ > bank_a) { - if(c == ')' && *(w - 1) == ' ') w--; - if(c == '(' && *(w - 1) == ' ') w--; + if(w > bank_a) { + /* if(c == ')' && *(w - 1) == ' ') w--; */ + /* if(c == '(' && *(w - 1) == ' ') w--; */ + /* if(c == ' ' && *(w - 1) == '(') continue; */ + /* if(c == ' ' && *(w - 1) == ')') continue; */ if(c == ' ' && *(w - 1) == ' ') w--; - if(c == ' ' && *(w - 1) == '(') continue; - if(c == ' ' && *(w - 1) == ')') continue; } *w++ = c; }