Strip double spaces
This commit is contained in:
parent
936d57adc3
commit
47aa06a2f3
|
@ -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 ?*) (?*)
|
||||||
|
|
||||||
|
(implode reverse (explode hello))
|
||||||
<> (?x pin) (done: ?x)
|
|
||||||
|
|
||||||
(explode hello) pin
|
|
12
src/modal.c
12
src/modal.c
|
@ -226,16 +226,16 @@ main(int argc, char **argv)
|
||||||
if(argc < 2)
|
if(argc < 2)
|
||||||
return !printf("usage: modal [-v] source.modal\n");
|
return !printf("usage: modal [-v] source.modal\n");
|
||||||
if(argc < 3 && argv[1][0] == '-' && argv[1][1] == 'v')
|
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")))
|
if(!(f = fopen(argv[1], "r")))
|
||||||
return !printf("Invalid Modal file: %s.\n", argv[1]);
|
return !printf("Invalid Modal file: %s.\n", argv[1]);
|
||||||
while(fread(&c, 1, 1, f)) {
|
while(fread(&c, 1, 1, f)) {
|
||||||
if(prog_ > bank_a) {
|
if(w > bank_a) {
|
||||||
if(c == ')' && *(w - 1) == ' ') w--;
|
/* if(c == ')' && *(w - 1) == ' ') w--; */
|
||||||
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) == ' ') w--;
|
||||||
if(c == ' ' && *(w - 1) == '(') continue;
|
|
||||||
if(c == ' ' && *(w - 1) == ')') continue;
|
|
||||||
}
|
}
|
||||||
*w++ = c;
|
*w++ = c;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue