izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity

tools/stripfc: strip a little bit more

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 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') {
// We still spit newlines whenever we see them, Forth interpreter
// doesn't like when they're not there...
putchar(c);
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++;