version 1.16, 1999/09/14 08:23:09 |
version 1.17, 1999/09/14 08:35:16 |
|
|
|
|
void |
void |
eval(argv, argc, td) |
eval(argv, argc, td) |
register char *argv[]; |
char *argv[]; |
register int argc; |
int argc; |
register int td; |
int td; |
{ |
{ |
register int c, n; |
int c, n; |
static int sysval = 0; |
static int sysval = 0; |
|
|
#ifdef DEBUG |
#ifdef DEBUG |
|
|
*/ |
*/ |
void |
void |
expand(argv, argc) |
expand(argv, argc) |
register char *argv[]; |
char *argv[]; |
register int argc; |
int argc; |
{ |
{ |
register char *t; |
char *t; |
register char *p; |
char *p; |
register int n; |
int n; |
register int argno; |
int argno; |
|
|
t = argv[0]; /* defn string as a whole */ |
t = argv[0]; /* defn string as a whole */ |
p = t; |
p = t; |
|
|
*/ |
*/ |
void |
void |
dodefine(name, defn) |
dodefine(name, defn) |
register char *name; |
char *name; |
register char *defn; |
char *defn; |
{ |
{ |
register ndptr p; |
ndptr p; |
|
|
if (!*name) |
if (!*name) |
errx(1, "null definition."); |
errx(1, "null definition."); |
|
|
*/ |
*/ |
void |
void |
dodefn(name) |
dodefn(name) |
char *name; |
char *name; |
{ |
{ |
register ndptr p; |
ndptr p; |
|
|
if ((p = lookup(name)) != nil && p->defn != null) { |
if ((p = lookup(name)) != nil && p->defn != null) { |
pbstr(rquote); |
pbstr(rquote); |
|
|
*/ |
*/ |
void |
void |
dopushdef(name, defn) |
dopushdef(name, defn) |
register char *name; |
char *name; |
register char *defn; |
char *defn; |
{ |
{ |
register ndptr p; |
ndptr p; |
|
|
if (!*name) |
if (!*name) |
errx(1, "null definition"); |
errx(1, "null definition"); |
|
|
*/ |
*/ |
void |
void |
dodump(argv, argc) |
dodump(argv, argc) |
register char *argv[]; |
char *argv[]; |
register int argc; |
int argc; |
{ |
{ |
register int n; |
int n; |
ndptr p; |
ndptr p; |
|
|
if (argc > 2) { |
if (argc > 2) { |
|
|
*/ |
*/ |
void |
void |
doifelse(argv, argc) |
doifelse(argv, argc) |
register char *argv[]; |
char *argv[]; |
register int argc; |
int argc; |
{ |
{ |
cycle { |
cycle { |
if (STREQ(argv[2], argv[3])) |
if (STREQ(argv[2], argv[3])) |
|
|
*/ |
*/ |
int |
int |
doincl(ifile) |
doincl(ifile) |
char *ifile; |
char *ifile; |
{ |
{ |
if (ilevel + 1 == MAXINP) |
if (ilevel + 1 == MAXINP) |
errx(1, "too many include files."); |
errx(1, "too many include files."); |
|
|
*/ |
*/ |
int |
int |
dopaste(pfile) |
dopaste(pfile) |
char *pfile; |
char *pfile; |
{ |
{ |
FILE *pf; |
FILE *pf; |
register int c; |
int c; |
|
|
if ((pf = fopen(pfile, "r")) != NULL) { |
if ((pf = fopen(pfile, "r")) != NULL) { |
while ((c = getc(pf)) != EOF) |
while ((c = getc(pf)) != EOF) |
|
|
*/ |
*/ |
void |
void |
dochq(argv, argc) |
dochq(argv, argc) |
register char *argv[]; |
char *argv[]; |
register int argc; |
int argc; |
{ |
{ |
if (argc > 2) { |
if (argc > 2) { |
if (*argv[2]) |
if (*argv[2]) |
|
|
*/ |
*/ |
void |
void |
dochc(argv, argc) |
dochc(argv, argc) |
register char *argv[]; |
char *argv[]; |
register int argc; |
int argc; |
{ |
{ |
if (argc > 2) { |
if (argc > 2) { |
if (*argv[2]) |
if (*argv[2]) |
|
|
*/ |
*/ |
void |
void |
dodiv(n) |
dodiv(n) |
register int n; |
int n; |
{ |
{ |
int fd; |
int fd; |
|
|
|
|
*/ |
*/ |
void |
void |
doundiv(argv, argc) |
doundiv(argv, argc) |
register char *argv[]; |
char *argv[]; |
register int argc; |
int argc; |
{ |
{ |
register int ind; |
int ind; |
register int n; |
int n; |
|
|
if (argc > 2) { |
if (argc > 2) { |
for (ind = 2; ind < argc; ind++) { |
for (ind = 2; ind < argc; ind++) { |
|
|
*/ |
*/ |
void |
void |
dosub(argv, argc) |
dosub(argv, argc) |
register char *argv[]; |
char *argv[]; |
register int argc; |
int argc; |
{ |
{ |
register char *ap, *fc, *k; |
char *ap, *fc, *k; |
register int nc; |
int nc; |
|
|
if (argc < 5) |
if (argc < 5) |
nc = MAXTOK; |
nc = MAXTOK; |
|
|
*/ |
*/ |
void |
void |
map(dest, src, from, to) |
map(dest, src, from, to) |
register char *dest; |
char *dest; |
register char *src; |
char *src; |
register char *from; |
char *from; |
register char *to; |
char *to; |
{ |
{ |
register char *tmp; |
char *tmp; |
register char sch, dch; |
char sch, dch; |
static char mapvec[128] = { |
static char mapvec[128] = { |
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, |
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, |
12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, |
12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, |