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

4
tools/stripfc.c
View File

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