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

Added quiet/infinite flags

This commit is contained in:
Devine Lu Linvega 2024-04-18 11:33:23 -07:00
parent 40ef57ebf5
commit f35eb2c8ec
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/modal.c
View File

@ -216,13 +216,19 @@ int
main(int argc, char **argv)
{
FILE *f;
int i;
char c, *w = bank_a;
if(argc < 2)
return !printf("usage: modal [-v] source.modal\n");
if(argc < 3 && argv[1][0] == '-' && argv[1][1] == 'v')
return !printf("Modal Interpreter, 17 Apr 2024.\n");
if(!(f = fopen(argv[1], "r")))
return !fprintf(stderr, "Invalid Modal file: %s.\n", argv[1]);
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(stdout, "Invalid Modal file: %s.\n", argv[i]);
while(fread(&c, 1, 1, f)) {
c = c <= 0x20 ? 0x20 : c;
if(w > bank_a) {
@ -235,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;
}