mirror of
https://github.com/dschmenk/apple2pi.git
synced 2024-11-30 22:50:47 +00:00
32 lines
469 B
C
Executable File
32 lines
469 B
C
Executable File
#include <stdio.h>
|
|
#include <fcntl.h>
|
|
|
|
int main(int argc, char **argv)
|
|
{
|
|
int fin, comment, charpos;
|
|
char c;
|
|
|
|
if (argc > 1)
|
|
{
|
|
fin = open(argv[1], O_RDONLY, 0);
|
|
}
|
|
else
|
|
fin = 0;
|
|
comment = charpos = 0;
|
|
while (read(fin, &c, 1) == 1)
|
|
{
|
|
c &= 0x7f;
|
|
if ((charpos++ == 0 && c == '*') || c == ';')
|
|
comment = 1;
|
|
if (c == '\r')
|
|
{
|
|
comment = charpos = 0;
|
|
c = '\n';
|
|
}
|
|
if (c == ' ' && !comment)
|
|
c = '\t';
|
|
putc(c & 0x7f, stdout);
|
|
}
|
|
return (0);
|
|
}
|