izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools/stripfc: strip a little bit more

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-12 12:47:50 -04:00
parent 9548514ff0
commit d6c9ab3f32
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tools/stripfc.c
View File

@ -13,15 +13,17 @@ by more than once space or by a newline. Hackish, but works.
int main() int main()
{ {
int spccnt = 0; int spccnt = 2; // if the first char is a (, consider it a comment opener.
int incomment = 0; int incomment = 0;
int c; int c;
c = getchar(); c = getchar();
while ( c != EOF ) { while ( c != EOF ) {
if (c == '\n') { if (c == '\n') {
// We still spit newlines whenever we see them, Forth interpreter if (!incomment) {
// doesn't like when they're not there... // We still spit newlines whenever we see them, Forth interpreter
putchar(c); // doesn't like when they're not there...
putchar(c);
}
spccnt += 2; spccnt += 2;
} else if (c == ' ') { } else if (c == ' ') {
spccnt++; spccnt++;