d6
/
modal
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed bug with counting parens

This commit is contained in:
Devine Lu Linvega 2024-04-23 09:35:58 -07:00
parent 1ed120f569
commit a111783887
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/modal.c
View File

@ -212,7 +212,7 @@ main(int argc, char **argv)
return !printf("usage: modal [-vqn] source.modal\n"); return !printf("usage: modal [-vqn] source.modal\n");
for(i = 1; i < argc && *argv[i] == '-'; i++) { for(i = 1; i < argc && *argv[i] == '-'; i++) {
switch(argv[i][1]) { switch(argv[i][1]) {
case 'v': /* version */ return !printf("Modal Interpreter, 22 Apr 2024.\n"); case 'v': /* version */ return !printf("Modal Interpreter, 23 Apr 2024.\n");
case 'q': /* quiet */ quiet = 1; break; case 'q': /* quiet */ quiet = 1; break;
case 'n': /* infinite */ cycles = 0xffffffff; break; case 'n': /* infinite */ cycles = 0xffffffff; break;
} }
@ -225,9 +225,9 @@ main(int argc, char **argv)
if(c == ' ' && *(w - 1) == '(') continue; if(c == ' ' && *(w - 1) == '(') continue;
if(c == ')' && *(w - 1) == ' ') w--; if(c == ')' && *(w - 1) == ' ') w--;
if(c == ' ' && *(w - 1) == ' ') w--; if(c == ' ' && *(w - 1) == ' ') w--;
if(c == '(') pl++;
if(c == ')') pr++;
} }
if(c == '(') pl++;
if(c == ')') pr++;
*w++ = c; *w++ = c;
} }
while(*(--w) <= ' ') *w = 0; while(*(--w) <= ' ') *w = 0;