ING_DB
This commit is contained in:
Oliver Lehmann
parent
e36a55301a
commit
62f1f47075
|
|
@ -0,0 +1,157 @@
|
||||||
|
# include <stdio.h>
|
||||||
|
# ifdef MSDOS
|
||||||
|
# include "../h/gen.h"
|
||||||
|
# include <fcntl.h>
|
||||||
|
|
||||||
|
# define AA_atoi v6_atoi
|
||||||
|
# else
|
||||||
|
# include "../conf/gen.h"
|
||||||
|
# endif
|
||||||
|
|
||||||
|
# define LINES 32
|
||||||
|
# define CNTR 1000
|
||||||
|
|
||||||
|
static char cntr[CNTR];
|
||||||
|
|
||||||
|
main(argc, argv)
|
||||||
|
int argc;
|
||||||
|
char **argv;
|
||||||
|
{
|
||||||
|
register char *p;
|
||||||
|
register int i;
|
||||||
|
register int cnt;
|
||||||
|
|
||||||
|
amxfile(argv[1]);
|
||||||
|
if (argc == 2)
|
||||||
|
return (0);
|
||||||
|
cnt = 0;
|
||||||
|
p = cntr;
|
||||||
|
for (i = CNTR; i; --i)
|
||||||
|
{
|
||||||
|
if (*p)
|
||||||
|
{
|
||||||
|
cnt = i;
|
||||||
|
*p++ = '*';
|
||||||
|
}
|
||||||
|
else
|
||||||
|
*p++ = ' ';
|
||||||
|
}
|
||||||
|
cnt = CNTR - cnt;
|
||||||
|
cnt = ((cnt + 9) / 10) * 10;
|
||||||
|
p = cntr;
|
||||||
|
for (i = 0; i < cnt; i += 10, p += 10)
|
||||||
|
{
|
||||||
|
if (!(i % 100))
|
||||||
|
{
|
||||||
|
printf("------------------\n");
|
||||||
|
printf(" | 0123456789 |\n");
|
||||||
|
printf("------------------\n");
|
||||||
|
}
|
||||||
|
printf("%3d | %.10s |\n", i / 10, p);
|
||||||
|
}
|
||||||
|
return (0);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
amxfile(output)
|
||||||
|
char *output;
|
||||||
|
{
|
||||||
|
register char *p;
|
||||||
|
register int c;
|
||||||
|
register int i;
|
||||||
|
register int f;
|
||||||
|
int iff;
|
||||||
|
short ix;
|
||||||
|
long off;
|
||||||
|
char buf[2 * LINES];
|
||||||
|
# ifdef SETBUF
|
||||||
|
char inbuf[BUFSIZ];
|
||||||
|
# endif
|
||||||
|
extern long lseek();
|
||||||
|
|
||||||
|
# ifdef SETBUF
|
||||||
|
setbuf(stdin, inbuf);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
if ((f = creat(output, 0644)) < 0)
|
||||||
|
{
|
||||||
|
printf("cannot open output '%s'\n", output);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
# ifdef MSDOS
|
||||||
|
setmode(f, O_BINARY);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
/* read in the code and check for correct */
|
||||||
|
for ( ; ; )
|
||||||
|
{
|
||||||
|
p = buf;
|
||||||
|
while ((c = getchar()) != '\t')
|
||||||
|
{
|
||||||
|
if (c <= 0)
|
||||||
|
return;
|
||||||
|
*p++ = c;
|
||||||
|
}
|
||||||
|
*p = 0;
|
||||||
|
if (AA_atoi(buf, &ix))
|
||||||
|
{
|
||||||
|
printf("bad msg file '%s'\n", buf);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
iff = ix;
|
||||||
|
|
||||||
|
off = LINES * iff;
|
||||||
|
lseek(f, off, 0);
|
||||||
|
for (p = buf; p < &buf[2 * LINES]; p++)
|
||||||
|
*p = 0;
|
||||||
|
p = buf;
|
||||||
|
i = 0;
|
||||||
|
|
||||||
|
/* get the correct line */
|
||||||
|
for ( ; ; )
|
||||||
|
{
|
||||||
|
c = getchar();
|
||||||
|
i++;
|
||||||
|
if (c <= 0 || c == ERRDELIM)
|
||||||
|
{
|
||||||
|
if (iff > CNTR)
|
||||||
|
{
|
||||||
|
printf("msg no to '%d' too big\n", iff);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
if (cntr[iff]++)
|
||||||
|
{
|
||||||
|
printf("dup msg %d\n", iff);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
if (i > 2 * LINES)
|
||||||
|
{
|
||||||
|
printf("too long msg '%s'\n", buf);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
if (i > LINES)
|
||||||
|
{
|
||||||
|
iff++;
|
||||||
|
if (cntr[iff]++)
|
||||||
|
{
|
||||||
|
printf("dup msg %d\n", iff);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
i = 2 * LINES;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
i = LINES;
|
||||||
|
write(f, buf, i);
|
||||||
|
if (c <= 0)
|
||||||
|
return;
|
||||||
|
if ((c = getchar()) != '\n')
|
||||||
|
{
|
||||||
|
printf("format error\n");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
*p++ = c;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,240 @@
|
||||||
|
# include "amx.h"
|
||||||
|
# ifdef MSDOS
|
||||||
|
# include <fcntl.h>
|
||||||
|
# endif
|
||||||
|
|
||||||
|
# define OUT_FLAG "-o"
|
||||||
|
|
||||||
|
extern char *AMX;
|
||||||
|
extern char AMXF;
|
||||||
|
extern char *A_out;
|
||||||
|
extern int Argc;
|
||||||
|
extern char **Argv;
|
||||||
|
extern int Xargc;
|
||||||
|
extern char **Xargv;
|
||||||
|
extern int Xerrors;
|
||||||
|
|
||||||
|
# ifndef MSDOS
|
||||||
|
/*
|
||||||
|
** GETPATH -- initialize the AApath variable
|
||||||
|
**
|
||||||
|
** Sets AApath to the home directory of the USERDBS
|
||||||
|
** [bs.h] user.
|
||||||
|
*/
|
||||||
|
getpath()
|
||||||
|
{
|
||||||
|
char line[MAXLINE + 1];
|
||||||
|
static char path[41];
|
||||||
|
static int reenter;
|
||||||
|
register int i;
|
||||||
|
register char *lp;
|
||||||
|
register FILE *iop;
|
||||||
|
char *field[UF_NFIELDS];
|
||||||
|
|
||||||
|
if (reenter)
|
||||||
|
return;
|
||||||
|
else
|
||||||
|
reenter++;
|
||||||
|
|
||||||
|
if (!(iop = fopen(AA_PASSWD, "r")))
|
||||||
|
{
|
||||||
|
printf("Passwordfile %s nicht lesbar\n", AA_PASSWD);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
|
||||||
|
AApath = path;
|
||||||
|
do
|
||||||
|
{
|
||||||
|
/* get a line from the AA_PASSWD */
|
||||||
|
i = 0;
|
||||||
|
for (lp = line; (*lp = getc(iop)) != '\n'; lp++)
|
||||||
|
{
|
||||||
|
if (*lp == (char) -1)
|
||||||
|
{
|
||||||
|
printf("Nutzer %s im Passwordfile %s nicht verzeichnet\n", USERDBS, AA_PASSWD);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
if (++i > sizeof line - 1)
|
||||||
|
{
|
||||||
|
*lp = '\0';
|
||||||
|
printf("Zeilenpufferueberlauf bei \"%s\"\n", line);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
*lp = '\0';
|
||||||
|
for (i = 0, lp = line; *lp; lp++)
|
||||||
|
{
|
||||||
|
if (*lp == ':')
|
||||||
|
{
|
||||||
|
*lp = '\0';
|
||||||
|
field[++i] = lp + 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} while (!AAsequal(line, USERDBS));
|
||||||
|
fclose(iop);
|
||||||
|
|
||||||
|
/* check for enough fields for valid entry */
|
||||||
|
if (i < PF_HOME)
|
||||||
|
{
|
||||||
|
printf("Zu wenig Felder in dem Eintrag \"%s\"\n", line);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* check that pathname won't overflow static buffer */
|
||||||
|
if ((i = AAlength(field[PF_HOME]) + 1) > sizeof path)
|
||||||
|
{
|
||||||
|
printf("DBS-Pfadname \"%s\" ist zu lang\n", field[PF_HOME]);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* move pathname into buffer */
|
||||||
|
AAbmove(field[PF_HOME], AApath, i);
|
||||||
|
}
|
||||||
|
# endif
|
||||||
|
|
||||||
|
|
||||||
|
get_next_file()
|
||||||
|
{
|
||||||
|
register char *file;
|
||||||
|
register int extension;
|
||||||
|
register int i;
|
||||||
|
extern int end_amx();
|
||||||
|
extern char *AAcustomer();
|
||||||
|
extern char **talloc();
|
||||||
|
|
||||||
|
while (file = Argv[++Argc])
|
||||||
|
{
|
||||||
|
if (AAsequal(file, OUT_FLAG))
|
||||||
|
{
|
||||||
|
A_out = Argv[++Argc];
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
i = AAlength(file);
|
||||||
|
extension = --i;
|
||||||
|
if (--i < 0 || (!(AAsequal(file + i, ".x"))
|
||||||
|
# ifdef MSDOS
|
||||||
|
&& !AAsequal(file + i, ".X")
|
||||||
|
# endif
|
||||||
|
))
|
||||||
|
continue;
|
||||||
|
|
||||||
|
# ifdef MSDOS
|
||||||
|
printf("%s:\n", file);
|
||||||
|
# else
|
||||||
|
printf("%s -- %s/%c %s:\n",
|
||||||
|
AAcustomer(end_amx), AMX, AMXF, file);
|
||||||
|
# endif
|
||||||
|
if (!(FILE_inp = fopen(file, "r")))
|
||||||
|
{
|
||||||
|
amxerror(188, file);
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
# ifdef SETBUF
|
||||||
|
setbuf(FILE_inp, BUF_inp);
|
||||||
|
# endif
|
||||||
|
/* save source file name */
|
||||||
|
File_src = (char *) talloc(extension + 2);
|
||||||
|
AAbmove(file, File_src, extension + 2);
|
||||||
|
|
||||||
|
/* create amx file */
|
||||||
|
file[extension] = 'c';
|
||||||
|
if (!(FILE_amx = fopen(file, "w")))
|
||||||
|
yyexit(185, file);
|
||||||
|
# ifdef SETBUF
|
||||||
|
setbuf(FILE_amx, BUF_amx);
|
||||||
|
# endif
|
||||||
|
Xargv[Xargc++] = file;
|
||||||
|
|
||||||
|
/* create desc stream */
|
||||||
|
*Filespec = 'r';
|
||||||
|
close(creat(Filename, 0600));
|
||||||
|
if ((FILE_rel = open(Filename, 2)) < 0)
|
||||||
|
yyexit(1);
|
||||||
|
|
||||||
|
/* create tmp stream */
|
||||||
|
*Filespec = 'c';
|
||||||
|
if (!(FILE_tmp = fopen(Filename, "w")))
|
||||||
|
yyexit(1);
|
||||||
|
# ifdef SETBUF
|
||||||
|
setbuf(FILE_tmp, BUF_tmp);
|
||||||
|
# endif
|
||||||
|
return (1);
|
||||||
|
}
|
||||||
|
return (0);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
end_file()
|
||||||
|
{
|
||||||
|
extern int AAcc_init;
|
||||||
|
|
||||||
|
/* close files and unlink temps */
|
||||||
|
if (FILE_inp)
|
||||||
|
{
|
||||||
|
fclose(FILE_inp);
|
||||||
|
FILE_inp = (FILE *) 0;
|
||||||
|
}
|
||||||
|
if (FILE_amx)
|
||||||
|
{
|
||||||
|
fclose(FILE_amx);
|
||||||
|
FILE_amx = (FILE *) 0;
|
||||||
|
}
|
||||||
|
if (FILE_tmp)
|
||||||
|
{
|
||||||
|
fclose(FILE_tmp);
|
||||||
|
FILE_tmp = (FILE *) 0;
|
||||||
|
}
|
||||||
|
if (FILE_scn)
|
||||||
|
{
|
||||||
|
fclose(FILE_scn);
|
||||||
|
FILE_scn = (FILE *) 0;
|
||||||
|
}
|
||||||
|
if (FILE_rel)
|
||||||
|
{
|
||||||
|
close(FILE_rel);
|
||||||
|
FILE_rel = -1;
|
||||||
|
}
|
||||||
|
*Filespec = 'r';
|
||||||
|
unlink(Filename);
|
||||||
|
*Filespec = 'c';
|
||||||
|
unlink(Filename);
|
||||||
|
*Filespec = 's';
|
||||||
|
unlink(Filename);
|
||||||
|
if (AAcc_init)
|
||||||
|
{
|
||||||
|
AAinpclose(&Indes);
|
||||||
|
AAunlall();
|
||||||
|
AAam_exit();
|
||||||
|
}
|
||||||
|
# ifdef MSDOS
|
||||||
|
fcloseall();
|
||||||
|
# endif
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
end_amx(stat)
|
||||||
|
register int stat;
|
||||||
|
{
|
||||||
|
# ifndef MSDOS
|
||||||
|
register char **argv;
|
||||||
|
register char *file;
|
||||||
|
|
||||||
|
argv = Xargv;
|
||||||
|
argv[Xargc] = (char *) 0;
|
||||||
|
while (file = *argv++)
|
||||||
|
unlink(file);
|
||||||
|
close(FILE_msg);
|
||||||
|
fflush(stdout);
|
||||||
|
# else
|
||||||
|
fcloseall();
|
||||||
|
# endif
|
||||||
|
exit(stat? stat: Xerrors);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
AAndxsearch(d)
|
||||||
|
register DESC *d;
|
||||||
|
{
|
||||||
|
yyexit(207, d->reldum.relid);
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,147 @@
|
||||||
|
# include "amx.h"
|
||||||
|
|
||||||
|
tmp(db, uflag)
|
||||||
|
register char *db;
|
||||||
|
char *uflag;
|
||||||
|
{
|
||||||
|
register char *p;
|
||||||
|
register int argc;
|
||||||
|
register char *id;
|
||||||
|
char *argv[4];
|
||||||
|
char arg[MAXNAME + 3];
|
||||||
|
char buf[MAXLINE + 1];
|
||||||
|
static char db_buf[MAXNAME + 1];
|
||||||
|
|
||||||
|
/* setup argvector for initucode */
|
||||||
|
AAbmove(db, db_buf, MAXNAME + 1);
|
||||||
|
*argv = db = db_buf;
|
||||||
|
argc = 1;
|
||||||
|
if (uflag)
|
||||||
|
{
|
||||||
|
argv[argc++] = p = arg;
|
||||||
|
*p++ = '-';
|
||||||
|
AAbmove(uflag, p, MAXNAME + 2);
|
||||||
|
}
|
||||||
|
argv[argc++] = db;
|
||||||
|
argv[argc] = (char *) 0;
|
||||||
|
switch (initucode(argc, argv, TRUE, (char *) 0, M_SHARE))
|
||||||
|
{
|
||||||
|
case 0: /* everything is ok */
|
||||||
|
case 5: /* ok, but there was an indirect token */
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 1: /* the database does not exist */
|
||||||
|
case 6: /* dto., but there was an indirect token */
|
||||||
|
yyexit(9, db);
|
||||||
|
|
||||||
|
case 2: /* you are not authorisized to access this database */
|
||||||
|
yyexit(7, db);
|
||||||
|
|
||||||
|
case 3: /* you are not a valid DBS user */
|
||||||
|
yyexit(5, USERDBS);
|
||||||
|
|
||||||
|
case 4: /* no database name specified */
|
||||||
|
/* cannot happen */
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* open data base */
|
||||||
|
# ifdef MSDOS
|
||||||
|
AAdatabase = Parmvect[0];
|
||||||
|
# endif
|
||||||
|
AAam_start();
|
||||||
|
|
||||||
|
if (AAdmin.adhdr.adflags & A_DBCONCUR)
|
||||||
|
setbit(A_DBCONCUR, Xlocks);
|
||||||
|
else
|
||||||
|
No_locks++;
|
||||||
|
|
||||||
|
if (AArelopen(&Indes, 0, AA_INDEX))
|
||||||
|
yyexit(8, AA_INDEX);
|
||||||
|
|
||||||
|
/* make believe catalog AA_REL is read only for concurrency */
|
||||||
|
/* that means, readed pages are not locked */
|
||||||
|
AAdmin.adreld.relopn = RELROPEN(AAdmin.adreld.relfp);
|
||||||
|
|
||||||
|
/* setup file name for scan temps */
|
||||||
|
*Filespec = 's';
|
||||||
|
|
||||||
|
/* write include files */
|
||||||
|
fprintf(FILE_amx, msg(49), AApath);
|
||||||
|
|
||||||
|
# ifdef AMX_SC
|
||||||
|
if (ExpImp < 0)
|
||||||
|
goto lookup;
|
||||||
|
# endif
|
||||||
|
/* write variables */
|
||||||
|
for (argc = 126; argc < 130; argc++)
|
||||||
|
fprintf(FILE_amx, msg(argc));
|
||||||
|
fprintf(FILE_amx, msg(30), AAusercode);
|
||||||
|
fprintf(FILE_amx, msg(31), AApath);
|
||||||
|
# ifdef MSDOS
|
||||||
|
fprintf(FILE_amx, msg(32));
|
||||||
|
for (argc = DBP_STD; argc < DBP_MAX; argc++)
|
||||||
|
fprintf(FILE_amx, msg(206), AAdbpath[argc]);
|
||||||
|
fprintf(FILE_amx, msg(201));
|
||||||
|
fprintf(FILE_amx, msg(204), AAdatabase);
|
||||||
|
|
||||||
|
if (Xbufs)
|
||||||
|
fprintf(FILE_amx, msg(35), (Xbufs * sizeof (ACCBUF)) / sizeof (int));
|
||||||
|
# else
|
||||||
|
fprintf(FILE_amx, msg(32), AAdbpath);
|
||||||
|
|
||||||
|
/* get user and group id of (alter ego) user */
|
||||||
|
getuser(AAusercode, p = buf);
|
||||||
|
getuser((char *) 0);
|
||||||
|
for (argc = -2; argc < 2; argc++)
|
||||||
|
{
|
||||||
|
id = p;
|
||||||
|
while (*p != ':')
|
||||||
|
p++;
|
||||||
|
*p++ = 0;
|
||||||
|
if (argc >= 0)
|
||||||
|
fprintf(FILE_amx, msg(28 + argc), id);
|
||||||
|
}
|
||||||
|
# endif
|
||||||
|
|
||||||
|
|
||||||
|
# ifdef AMX_SC
|
||||||
|
lookup:
|
||||||
|
# endif
|
||||||
|
/* lookup catalogs */
|
||||||
|
rel_lookup(AA_REL, AMX_INTERNAL); /* = AA_0 */
|
||||||
|
rel_lookup(AA_ATT, AMX_INTERNAL); /* = AA_1 */
|
||||||
|
rel_lookup(AA_INDEX, AMX_INTERNAL); /* = AA_2 */
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
# ifndef MSDOS
|
||||||
|
char *AArelpath(rel)
|
||||||
|
register char *rel;
|
||||||
|
{
|
||||||
|
extern char *AAztack();
|
||||||
|
|
||||||
|
return (AAztack(AAztack(AAdbpath, "/"), rel));
|
||||||
|
}
|
||||||
|
# endif
|
||||||
|
|
||||||
|
|
||||||
|
# ifdef AMX_SC
|
||||||
|
import(file)
|
||||||
|
register char *file;
|
||||||
|
{
|
||||||
|
register FILE *inp;
|
||||||
|
|
||||||
|
ExpImp = -1;
|
||||||
|
if (!(inp = fopen(file, "r")))
|
||||||
|
yyexit(188, file);
|
||||||
|
# ifdef SETBUF
|
||||||
|
setbuf(inp, (char *) 0);
|
||||||
|
# endif
|
||||||
|
FILE_exp = FILE_inp;
|
||||||
|
FILE_inp = inp;
|
||||||
|
Line_exp = Line;
|
||||||
|
Line = 1;
|
||||||
|
backup('\n');
|
||||||
|
}
|
||||||
|
# endif
|
||||||
|
|
@ -0,0 +1,104 @@
|
||||||
|
# include <stdio.h>
|
||||||
|
# include "gen.h"
|
||||||
|
# include "constants.h"
|
||||||
|
# include "globals.h"
|
||||||
|
|
||||||
|
/*
|
||||||
|
** NAME -- Process an identifier or keyword token.
|
||||||
|
**
|
||||||
|
** Name gets the identifier that follows in the std.
|
||||||
|
** input, and checks if it is a keyword.
|
||||||
|
** An identifier is defined as a sequence of
|
||||||
|
** MAXNAME or fewer alphanumerics, starting with an
|
||||||
|
** alphabetic character.
|
||||||
|
**
|
||||||
|
** Parameters:
|
||||||
|
** chr - the first character of the identifier
|
||||||
|
**
|
||||||
|
** Returns:
|
||||||
|
** Tokens.sp_name - for a user-defined name
|
||||||
|
** Tokens.sp_struct_var -- if the name is declared
|
||||||
|
** a structurw variable
|
||||||
|
** other - lexical codes for keys
|
||||||
|
**
|
||||||
|
** Side Effects:
|
||||||
|
** Adds a token to the symbol space.
|
||||||
|
** yylval is set to the new node in the space.
|
||||||
|
** If the identifier is a keyword, sets Opcode to
|
||||||
|
** op_code from tokens.y.
|
||||||
|
**
|
||||||
|
*/
|
||||||
|
name(chr)
|
||||||
|
int chr;
|
||||||
|
{
|
||||||
|
register int i;
|
||||||
|
register char *cp;
|
||||||
|
register char c;
|
||||||
|
register struct optab *op;
|
||||||
|
register int lval;
|
||||||
|
char wbuf[MAXNAME + 1];
|
||||||
|
extern char *yylval;
|
||||||
|
extern char *addsym();
|
||||||
|
extern char *salloc();
|
||||||
|
extern struct optab *getkey();
|
||||||
|
extern char *getcvar();
|
||||||
|
|
||||||
|
c = chr;
|
||||||
|
cp = wbuf;
|
||||||
|
for (i = 0; i <= MAXNAME; i++)
|
||||||
|
{
|
||||||
|
lval = CMAP(c);
|
||||||
|
if (i < MAXNAME &&
|
||||||
|
(lval == ALPHA || lval == NUMBR))
|
||||||
|
{
|
||||||
|
*cp++ = c;
|
||||||
|
c = getch();
|
||||||
|
}
|
||||||
|
else if (lval == ALPHA || lval == NUMBR)
|
||||||
|
{
|
||||||
|
/* {i == MAXNAME && "c is legal" &&
|
||||||
|
* cp == &wbuf[MAXNAME]}
|
||||||
|
*/
|
||||||
|
*cp = '\0';
|
||||||
|
yysemerr("name too long", wbuf);
|
||||||
|
/* chomp to end of identifier */
|
||||||
|
|
||||||
|
do
|
||||||
|
{
|
||||||
|
c = getch();
|
||||||
|
lval = CMAP(c);
|
||||||
|
} while (lval == ALPHA || lval == NUMBR);
|
||||||
|
backup(c);
|
||||||
|
|
||||||
|
/* take first MAXNAME characters as IDENTIFIER
|
||||||
|
* (non-key)
|
||||||
|
*/
|
||||||
|
yylval = addsym(salloc(wbuf));
|
||||||
|
return (Tokens.sp_name);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
/* {cp <= &wbuf[MAXNAME] && i <= MAXNAME
|
||||||
|
* && "c is not part of id"}
|
||||||
|
*/
|
||||||
|
backup(c);
|
||||||
|
*cp = '\0';
|
||||||
|
i = 0;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
op = getkey(wbuf);
|
||||||
|
|
||||||
|
/* Is it a keyword ? */
|
||||||
|
if (op)
|
||||||
|
{
|
||||||
|
yylval = addsym(op->op_term);
|
||||||
|
Opcode = op->op_code;
|
||||||
|
return (op->op_token);
|
||||||
|
}
|
||||||
|
/* user-defined name */
|
||||||
|
yylval = addsym(salloc(wbuf));
|
||||||
|
if ((cp = getcvar(wbuf)) && ((struct cvar *) cp)->c_type == opSTRUCT)
|
||||||
|
return (Tokens.sp_struct_var);
|
||||||
|
return (Tokens.sp_name);
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue