~mdw
/
bascat
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b98146e
)
More minor twiddling.
author
mdw
<mdw>
Thu, 28 Oct 1999 10:42:23 +0000
(10:42 +0000)
committer
mdw
<mdw>
Thu, 28 Oct 1999 10:42:23 +0000
(10:42 +0000)
bascat.c
patch
|
blob
|
blame
|
history
diff --git
a/bascat.c
b/bascat.c
index
139d58d
..
b685a5c
100644
(file)
--- a/
bascat.c
+++ b/
bascat.c
@@
-1,6
+1,6
@@
/* -*-c-*-
*
/* -*-c-*-
*
- * $Id: bascat.c,v 1.
3 1999/10/28 10:18:17
mdw Exp $
+ * $Id: bascat.c,v 1.
4 1999/10/28 10:42:23
mdw Exp $
*
* Display BBC BASIC programs more or less anywhere
*
*
* Display BBC BASIC programs more or less anywhere
*
@@
-29,6
+29,9
@@
/*----- Revision history --------------------------------------------------*
*
* $Log: bascat.c,v $
/*----- Revision history --------------------------------------------------*
*
* $Log: bascat.c,v $
+ * Revision 1.4 1999/10/28 10:42:23 mdw
+ * More minor twiddling.
+ *
* Revision 1.3 1999/10/28 10:18:17 mdw
* Minor name changes for new coding standards.
*
* Revision 1.3 1999/10/28 10:18:17 mdw
* Minor name changes for new coding standards.
*
@@
-79,7
+82,7
@@
* carried out on an A440 with RISC OS 3.1
*/
* carried out on an A440 with RISC OS 3.1
*/
-static const char *
bcTok_
_base[] = {
+static const char *
tok
_base[] = {
"OTHERWISE",
"AND", "DIV", "EOR", "MOD", "OR", "ERROR", "LINE", "OFF",
"STEP", "SPC", "TAB(", "ELSE", "THEN", "*", "OPENIN", "PTR",
"OTHERWISE",
"AND", "DIV", "EOR", "MOD", "OR", "ERROR", "LINE", "OFF",
"STEP", "SPC", "TAB(", "ELSE", "THEN", "*", "OPENIN", "PTR",
@@
-99,18
+102,18
@@
static const char *bcTok__base[] = {
"RETURN", "RUN", "STOP", "COLOUR", "TRACE", "UNTIL", "WIDTH", "OSCLI"
};
"RETURN", "RUN", "STOP", "COLOUR", "TRACE", "UNTIL", "WIDTH", "OSCLI"
};
-static const char *
bcTok_
_c6[] = {
+static const char *
tok
_c6[] = {
"SUM", "BEAT"
};
"SUM", "BEAT"
};
-static const char *
bcTok_
_c7[] = {
+static const char *
tok
_c7[] = {
"APPEND", "AUTO",
"CRUNCH", "DELETE", "EDIT", "HELP", "LIST", "LOAD", "LVAR", "NEW",
"OLD", "RENUMBER", "SAVE", "TEXTLOAD", "TEXTSAVE", "TWIN", "TWINO",
"INSTALL"
};
"APPEND", "AUTO",
"CRUNCH", "DELETE", "EDIT", "HELP", "LIST", "LOAD", "LVAR", "NEW",
"OLD", "RENUMBER", "SAVE", "TEXTLOAD", "TEXTSAVE", "TWIN", "TWINO",
"INSTALL"
};
-static const char *
bcTok_
_c8[] = {
+static const char *
tok
_c8[] = {
"CASE", "CIRCLE",
"FILL", "ORIGIN", "POINT", "RECTANGLE", "SWAP", "WHILE", "WAIT", "MOUSE",
"QUIT", "SYS", "INSTALL", "LIBRARY", "TINT", "ELLIPSE", "BEATS", "TEMPO",
"CASE", "CIRCLE",
"FILL", "ORIGIN", "POINT", "RECTANGLE", "SWAP", "WHILE", "WAIT", "MOUSE",
"QUIT", "SYS", "INSTALL", "LIBRARY", "TINT", "ELLIPSE", "BEATS", "TEMPO",
@@
-283,7
+286,7
@@
static int decode(int byte, FILE * fp)
/* Fall through here */
default:
keyword:
/* Fall through here */
default:
keyword:
- keyword(
bcTok_
_base[byte - 0x7F], fp);
+ keyword(
tok
_base[byte - 0x7F], fp);
break;
}
} else {
break;
}
} else {
@@
-307,15
+310,15
@@
static int decode(int byte, FILE * fp)
/* --- Double-byte token states --- */
case s_c6:
/* --- Double-byte token states --- */
case s_c6:
- return (mbtok(byte,
bcTok__c6, ITEMS(bcTok_
_c6), fp));
+ return (mbtok(byte,
tok_c6, ITEMS(tok
_c6), fp));
break;
case s_c7:
break;
case s_c7:
- return (mbtok(byte,
bcTok__c7, ITEMS(bcTok_
_c7), fp));
+ return (mbtok(byte,
tok_c7, ITEMS(tok
_c7), fp));
break;
case s_c8:
break;
case s_c8:
- return (mbtok(byte,
bcTok__c8, ITEMS(bcTok_
_c8), fp));
+ return (mbtok(byte,
tok_c8, ITEMS(tok
_c8), fp));
break;
/* --- Encoded line number states --- */
break;
/* --- Encoded line number states --- */
@@
-440,7
+443,7
@@
static void file(FILE *in, FILE *out)
die("Found data after end of program");
}
die("Found data after end of program");
}
-/* --- @sig
P
ipe@ --- *
+/* --- @sig
_p
ipe@ --- *
*
* Arguments: @int s@ = signal number
*
*
* Arguments: @int s@ = signal number
*
@@
-449,7
+452,7
@@
static void file(FILE *in, FILE *out)
* Use: Handles SIGPIPE signals, and gracefully kills the program.
*/
* Use: Handles SIGPIPE signals, and gracefully kills the program.
*/
-static void sig
P
ipe(int s)
+static void sig
_p
ipe(int s)
{
(void) s;
exit(0); /* Gracefully, oh yes */
{
(void) s;
exit(0); /* Gracefully, oh yes */
@@
-586,7
+589,7
@@
int main(int argc, char *argv[])
out = stdout;
else {
flags |= f_tty;
out = stdout;
else {
flags |= f_tty;
- signal(SIGPIPE, sig
P
ipe);
+ signal(SIGPIPE, sig
_p
ipe);
}
} else
out = stdout;
}
} else
out = stdout;