X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=68kgen.c;h=23da319429c9c443e8c7aac2c3e9264b03c5e32b;hp=ccae3e5fb7076d45e2ad456c7f5b483671d0cf6a;hb=b10167d55798ea184f97fafda075255c0852f3b6;hpb=75cce0d9eb190f6094f66ae283b5981af25e5a57 diff --git a/68kgen.c b/68kgen.c index ccae3e5..23da319 100644 --- a/68kgen.c +++ b/68kgen.c @@ -10,32 +10,32 @@ #include #include + #define EOS '\0' int kwnum = 1; /* current op# for kwgen output */ - -FILE * kfp; /* keyword file */ - +FILE * kfp; /* keyword file */ int lineno = 0; +// Function prototypes void error(char *, char *); void procln(int, char **); -void main(int argc, char ** argv) + +int main(int argc, char ** argv) { char * namv[256]; char * s; int namcnt; char ln[256]; - if (argc == 2) - if ((kfp = fopen(argv[1], "w")) == NULL) - error("Cannot create: %s", argv[1]); + if ((argc == 2) && ((kfp = fopen(argv[1], "w")) == NULL)) + error("Cannot create: %s", argv[1]); -// while (gets(ln) != NULL) while (fgets(ln, 256, stdin) != NULL) { ++lineno; /* bump line# */ + if (*ln == '#') /* ignore comments */ continue; @@ -65,6 +65,8 @@ void main(int argc, char ** argv) if (namcnt) procln(namcnt, namv); } + + return 0; } @@ -97,6 +99,7 @@ void procln(int namc, char ** namv) printf("CGSPECIAL"); else for (s = namv[1], i=0; *s; ++s) printf("%sSIZ%c", (i++ ? "|" : ""), *s); + printf(", %s, %s, ", namv[2], namv[3]); if (*namv[4] == '%') /* enforce little fascist percent signs */ @@ -124,6 +127,7 @@ void procln(int namc, char ** namv) ++kwnum; } + void error(char * s, char * s1) { fprintf(stderr, s, s1);