ING_DB
This commit is contained in:
Oliver Lehmann
parent
d333b1dff1
commit
b0bb3cced7
|
|
@ -0,0 +1,276 @@
|
|||
# include "amx.h"
|
||||
# ifdef MSDOS
|
||||
# include <fcntl.h>
|
||||
# endif
|
||||
|
||||
# define AMX_MODE 06755
|
||||
static char DUMMY[] = "-DAMX";
|
||||
char *AMX = "AMX";
|
||||
static char *CC = "cc";
|
||||
static char *LIBA = "/lib/libamx.a";
|
||||
static char *IX = "/sys/etc/amx_ixc6.3";
|
||||
char AMXF = 'c';
|
||||
|
||||
# ifdef F77
|
||||
# define F77_FLAG 'f'
|
||||
# define LIB_F77 "-lF77"
|
||||
# define LIB_I77 "-lI77"
|
||||
# define LIB_U77 "-lU77"
|
||||
# endif
|
||||
|
||||
# ifdef MEM_S
|
||||
# define SEG_FLAG 's'
|
||||
# ifdef P8000
|
||||
static char *SAMX = "SAMX";
|
||||
static char *SCC = "scc";
|
||||
static char *SLIBA = "/lib/slibamx.a";
|
||||
# endif
|
||||
# endif
|
||||
|
||||
# ifdef MEM_O
|
||||
# define OVL_FLAG 'o'
|
||||
static char *OAMX = "OAMX";
|
||||
static char *OCC = "cc";
|
||||
# endif
|
||||
|
||||
char *A_out;
|
||||
int Argc;
|
||||
char **Argv;
|
||||
int Xargc;
|
||||
char **Xargv;
|
||||
int Xerrors;
|
||||
extern int (*AAexitfn)();
|
||||
|
||||
# ifdef STACK
|
||||
# ifdef INP_STACK
|
||||
static char meminp[BUFSIZ];
|
||||
# endif
|
||||
# ifdef AMX_STACK
|
||||
static char memamx[BUFSIZ];
|
||||
# endif
|
||||
# ifdef SCN_STACK
|
||||
static char memscn[BUFSIZ];
|
||||
# endif
|
||||
# ifdef TMP_STACK
|
||||
static char memtmp[BUFSIZ];
|
||||
# endif
|
||||
static char memreltab[MAX_RELS * (MAXNAME + 1)];
|
||||
static AMX_REL memrel[3];
|
||||
# endif
|
||||
|
||||
main(argc, argv, env)
|
||||
int argc;
|
||||
char **argv;
|
||||
char **env;
|
||||
{
|
||||
# ifdef F77
|
||||
register int pid;
|
||||
# endif
|
||||
# ifndef STACK
|
||||
# ifdef INP_STACK
|
||||
char meminp[BUFSIZ];
|
||||
# endif
|
||||
# ifdef AMX_STACK
|
||||
char memamx[BUFSIZ];
|
||||
# endif
|
||||
# ifdef SCN_STACK
|
||||
char memscn[BUFSIZ];
|
||||
# endif
|
||||
# ifdef TMP_STACK
|
||||
char memtmp[BUFSIZ];
|
||||
# endif
|
||||
char memreltab[MAX_RELS * (MAXNAME + 1)];
|
||||
AMX_REL memrel[3];
|
||||
# endif
|
||||
extern char **talloc();
|
||||
extern char *AAztack();
|
||||
extern int end_amx();
|
||||
# ifdef MSDOS
|
||||
extern char *Fileset;
|
||||
extern char *getenv();
|
||||
extern char *mkfileset();
|
||||
# endif
|
||||
|
||||
# ifdef INP_STACK
|
||||
BUF_inp = meminp;
|
||||
# endif
|
||||
# ifdef AMX_STACK
|
||||
BUF_amx = memamx;
|
||||
# endif
|
||||
# ifdef SCN_STACK
|
||||
BUF_scn = memscn;
|
||||
# endif
|
||||
# ifdef TMP_STACK
|
||||
BUF_tmp = memtmp;
|
||||
# endif
|
||||
Reltab = memreltab;
|
||||
Temp_rel = memrel;
|
||||
Temp_rel[0].rel_uniq = MAX_RELS;
|
||||
Temp_rel[1].rel_uniq = MAX_RELS;
|
||||
Temp_rel[2].rel_uniq = MAX_RELS;
|
||||
AAtTrace(&argc, argv, 'A');
|
||||
AAexitfn = end_amx;
|
||||
# ifdef MSDOS
|
||||
/* get pathname entry into 'AApath' variable */
|
||||
if (!(AApath = getenv("INDP")))
|
||||
AAsyserr("shell-Variable INDP nicht gesetzt");
|
||||
/* create msg file */
|
||||
if ((FILE_msg = open(AAztack(AApath, "/files/amx_msc6.3"), 0)) <= 0)
|
||||
AAsyserr("cannot open file amx_msc6.3\n");
|
||||
setmode(FILE_msg, O_BINARY);
|
||||
Fileset = mkfileset();
|
||||
# else
|
||||
/* get pathname entry into 'AApath' variable */
|
||||
getpath();
|
||||
|
||||
# ifdef F77
|
||||
pid = AAlength(*argv) - 1;
|
||||
if ((*argv)[pid] == F77_FLAG)
|
||||
IX[15] = AMXF = F77_FLAG;
|
||||
# endif
|
||||
|
||||
/* open msg file */
|
||||
if ((FILE_msg = open(AAztack(AApath, IX), 0)) <= 0)
|
||||
{
|
||||
printf("cannot open file %s\n", IX);
|
||||
exit(1);
|
||||
}
|
||||
# endif
|
||||
|
||||
if (argc < 2)
|
||||
{
|
||||
amxerror(182);
|
||||
return;
|
||||
}
|
||||
|
||||
Argv = argv;
|
||||
Argc = 0;
|
||||
if (!(Xargv = talloc((argc + 1) * sizeof (char *))))
|
||||
yyexit(194, 1);
|
||||
Xargc = 0;
|
||||
|
||||
/*
|
||||
** setup temp file names:
|
||||
** MSDOS '###pid##'
|
||||
** else '/tmp/#.#pid#'
|
||||
*/
|
||||
AA_itoa(getpid(), &Filename[Filepos + 2]);
|
||||
main1(argc, argv, env);
|
||||
}
|
||||
|
||||
static int main1(argc, argv, env)
|
||||
int argc;
|
||||
char **argv;
|
||||
char **env;
|
||||
{
|
||||
register AMX_REL *r;
|
||||
register int pid;
|
||||
extern char **talloc();
|
||||
extern char *AAztack();
|
||||
|
||||
# ifdef MEM_S
|
||||
if (**argv == SEG_FLAG)
|
||||
{
|
||||
AMX = SAMX;
|
||||
CC = SCC;
|
||||
LIBA = SLIBA;
|
||||
}
|
||||
# endif
|
||||
|
||||
# ifdef MEM_O
|
||||
if (**argv == OVL_FLAG)
|
||||
{
|
||||
AMX = OAMX;
|
||||
CC = OCC;
|
||||
}
|
||||
# endif
|
||||
|
||||
while (get_next_file())
|
||||
{
|
||||
AAusercode = (char *) 0;
|
||||
Line = 1;
|
||||
Newline = 1;
|
||||
Xlocks = DB_SHARE;
|
||||
No_locks = 0;
|
||||
Relcount = 0;
|
||||
Xbufs = 0;
|
||||
Cvarindex = 0;
|
||||
AP_stmt = 0;
|
||||
# ifdef AMX_SC
|
||||
ExpImp = 0;
|
||||
# endif
|
||||
|
||||
pid = parse();
|
||||
Line = 0;
|
||||
if (pid)
|
||||
{
|
||||
Xerrors++;
|
||||
amxerror(186);
|
||||
unlink(Argv[Argc]);
|
||||
Argv[Argc] = DUMMY;
|
||||
}
|
||||
free_sym();
|
||||
init_ctbl();
|
||||
}
|
||||
|
||||
if (Xerrors)
|
||||
yyexit(192);
|
||||
|
||||
# ifndef MSDOS
|
||||
if (A_out
|
||||
# ifdef MEM_O
|
||||
&& **argv != OVL_FLAG
|
||||
# endif
|
||||
)
|
||||
{
|
||||
if (!(Argv = talloc((argc +
|
||||
# ifdef F77
|
||||
((AMXF == F77_FLAG)? 5: 2)
|
||||
# else
|
||||
2
|
||||
# endif
|
||||
) * sizeof (char *))))
|
||||
yyexit(194, 2);
|
||||
AAbmove(argv, Argv, argc * sizeof (char *));
|
||||
Argv[argc++] = AAztack(AApath, LIBA);
|
||||
# ifdef F77
|
||||
if (AMXF == F77_FLAG)
|
||||
{
|
||||
Argv[argc++] = LIB_U77;
|
||||
Argv[argc++] = LIB_F77;
|
||||
Argv[argc++] = LIB_I77;
|
||||
}
|
||||
# endif
|
||||
Argv[argc] = (char *) 0;
|
||||
}
|
||||
|
||||
fflush(stdout);
|
||||
if ((pid = fork()) < 0)
|
||||
yyexit(135, CC);
|
||||
if (!pid)
|
||||
{
|
||||
Argv[0] = CC;
|
||||
execvp(CC, Argv);
|
||||
yyexit(103, CC);
|
||||
}
|
||||
my_wait(pid);
|
||||
}
|
||||
|
||||
static int my_wait(pid)
|
||||
register int pid;
|
||||
{
|
||||
int stat;
|
||||
|
||||
signal(2, (int (*)()) 1);
|
||||
while (wait(&stat) != pid)
|
||||
continue;
|
||||
|
||||
if (stat)
|
||||
yyexit(136, CC);
|
||||
|
||||
if (A_out && chmod(A_out, AMX_MODE))
|
||||
yyexit(191, A_out, AMX_MODE);
|
||||
# endif
|
||||
|
||||
end_amx(0);
|
||||
}
|
||||
Loading…
Reference in New Issue