Apple-2-Tools/apple2-converters
1
0
Fork 0
mirror of https://github.com/e-n-f/apple2-converters.git synced 2025-02-19 19:30:25 +00:00
Code Issues Projects Releases Wiki Activity

Convert ZBASIC source files (incomplete)

Browse Source
This commit is contained in:
Eric Fischer 2001-04-21 02:01:23 -07:00
parent b1f88ed6c5
commit e3cb8f182c
1 changed files with 114 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

114
zb.c Normal file
View File

@ -0,0 +1,114 @@
#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
char **av;
void
usage (char *s)
{
fprintf (stderr, "Usage: %s [file]\n");
}
char *
token (int c)
{
static char s[200];
switch (c) {
case 0: return "0";
case 128: return "long";
case 129: return "for";
case 131: return "plot131 ";
case 132: return "cls";
case 133: return "else";
case 135: return "next";
case 137: return "input";
case 138: return "dim";
case 141: return "goto";
case 143: return "if";
case 147: return "rem";
case 159: return "end";
case 162: return "open";
case 171: return "plot171 ";
case 176: return "def";
case 178: return "print";
case 180: return "do";
case 181: return "until";
case 185: return "while";
case 189: return "line";
case 186: return "wend";
case 190: return "fn";
case 199: return "peek";
case 204: return "to";
case 207: return "and";
case 205: return "then";
case 206: return "step";
case 213: return "len";
case 217: return "int";
case 238: return "chr$";
case 248: return "inkey$";
case 249: return "left$";
case 251: return "mid$";
default:
sprintf (s, "[%d]", c);
return s;
}
}
void
process (FILE *f, char *name)
{
while (1) {
int a, b;
int c;
a = getc (f); /* line number */
b = getc (f); /* high half of line number */
if (a == EOF || b == EOF)
return;
printf ("%05d ", a + 256 * b);
a = getc (f); /* line length */
if (a == EOF)
return;
while (a-- > 1 && (c = getc (f)) != EOF) {
if (c > 127)
printf ("%s", token (c));
else
printf ("%c", c);
}
printf ("\n");
}
}
int
main (int argc, char **argv)
{
av = argv;
if (argc < 2) {
process (stdin, "standard input");
} else if (argc == 2) {
FILE *f = fopen (argv[1], "r");
if (f) {
process (f, argv[1]);
fclose (f);
} else {
fprintf (stderr, "%s: %s: %s\n", argv[0], argv[1],
strerror (errno));
exit (EXIT_FAILURE);
}
} else {
usage (argv[0]);
exit (EXIT_FAILURE);
}
return (EXIT_SUCCESS);
}