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

Merge remote-tracking branch 'upstream/master' into d6/binary

This commit is contained in:
~d6 2024-04-18 14:35:36 -04:00
parent 055829dc07 f35eb2c8ec
commit a80a5ab826
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/modal.c
View File

@ -216,23 +216,19 @@ int
main(int argc, char **argv)
{
FILE *f;
char c, *w = bank_a;
int i;
char c, *w = bank_a;
if(argc < 2)
return !printf("usage: modal [-v] source.modal\n");
for(i = 1; i < argc && argv[i][0] == '-'; i++) {
if(argv[i][1] == 'v') {
return !printf("Modal Interpreter, 17 Apr 2024.\n");
} else if(argv[i][1] == 'q') {
fclose(stderr);
} else if(argv[i][1] == 'n') {
cycles = 0xffffffff;
} else {
break;
return !printf("usage: modal [-vqn] source.modal\n");
for(i = 1; i < argc && *argv[i] == '-'; i++) {
switch(argv[i][1]) {
case 'v': /* version */ return !printf("Modal Interpreter, 18 Apr 2024.\n");
case 'q': /* quiet */ fclose(stderr); break;
case 'n': /* infinite */ cycles = 0xffffffff; break;
}
}
if(!(f = fopen(argv[i], "r")))
return !fprintf(stderr, "Invalid Modal file: %s.\n", argv[i]);
return !fprintf(stdout, "Invalid Modal file: %s.\n", argv[i]);
while(fread(&c, 1, 1, f)) {
c = c <= 0x20 ? 0x20 : c;
if(w > bank_a) {
@ -245,6 +241,6 @@ main(int argc, char **argv)
while(*(--w) <= ' ') *w = 0;
fclose(f);
while(rewrite())
if(!cycles--) return !fprintf(stderr, "Cycle limit exceeded.\n");
if(!cycles--) return !fprintf(stdout, "Modal rewrites exceeded.\n");
return 0;
}