12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097 |
- /* fcc/fm2/fpc
- Driver for fast ACK compilers.
- Derived from the C compiler driver from Minix.
- You can create cc-compatible versions by compiling with
- cc -O '-DFASTDIR="<this directory>"' -DF?? driver.c
- where F?? is either FCC, FM2, or FPC.
- Install resulting binaries in a public place (f.i. /usr/local/bin).
- Suggested names: fcc, fm2, and fpc.
- If you have ACK, you can create ACK-compatible versions by compiling
- this file with
- cc -O -DACK_BIN -I<ACK home directory>/h -DF?? driver.c
- where F?? is either FCC, FPC, or FM2.
- Install the resulting binaries in the EM bin directory.
- Suggested names: afcc, afm2, and afpc.
- The ACK compatible version afpc is not compatible with the 4th
- ACK distribution, and thus is not on the tape.
- */
- #ifndef vax
- #ifndef sun
- In this case, no fast ACK compiler available
- #endif
- #endif
- #if FM2+FPC+FCC > 1
- Something wrong here! Only one of FM2, FPC, or FCC must be defined
- #endif
- #include <errno.h>
- #include <signal.h>
- #include <varargs.h>
- #include <stdio.h>
- #ifdef ACK_BIN
- #include <em_path.h>
- #define M2DEF "/lib/m2"
- #define FASTDIR EM_DIR
- #else
- #define M2DEF "/def"
- #define TMP_DIR "/tmp"
- #endif ACK_BIN
- #ifndef ACK_BIN
- #define BINDIR "/bin/"
- #define LIBDIR "/lib/"
- #else ACK_BIN
- #define BINDIR "/lib/"
- #ifdef sun
- #define LIBDIR "/lib/sun3/"
- #endif sun
- #ifdef vax
- #define LIBDIR "/lib/vax4/"
- #endif vax
- #define CCINCL "/include/_tail_cc"
- #endif ACK_BIN
- char *ROOT_DIR = FASTDIR;
- /*
- #ifndef ACK_BIN
- Version producing VAX or SUN .o files in one pass.
- #else ACK_BIN
- Version producing ACK .o files in one pass.
- #endif ACK_BIN
- */
- #define MAXARGC 256 /* maximum number of arguments allowed in a list */
- #define USTR_SIZE 128 /* maximum length of string variable */
- typedef char USTRING[USTR_SIZE];
- USTRING INCLUDE = "-I";
- struct arglist {
- int al_argc;
- char *al_argv[MAXARGC];
- };
- #define LD "/bin/ld"
- #define AS "/bin/as"
- #define CPP "*cpp"
- #if ACK_BIN && !vax
- #undef LD
- #undef AS
- #define LD "*em_led"
- #define CV "~cv" /* machine dependent; resides in lib directory */
- #endif ACK_BIN && !vax
- #define SHELL "/bin/sh"
- /* flags passed to linker */
- #define TO_LD "dnNrsSi"
- #if ACK_BIN && !vax
- #undef TO_LD
- #define TO_LD "rs"
- #endif ACK_BIN && !vax
- int kids = -1;
- int ecount = 0;
- struct arglist CPP_FLAGS = {
- #ifdef vax
- 8,
- #endif
- #ifdef sun
- 10,
- #endif
- {
- "-Dunix",
- "-DEM_WSIZE=4",
- "-DEM_PSIZE=4",
- "-DEM_SSIZE=2",
- "-DEM_LSIZE=4",
- "-DEM_FSIZE=4",
- "-DEM_DSIZE=8",
- #ifdef vax
- "-Dvax"
- #endif
- #ifdef sun
- "-Dmc68000",
- "-Dsun",
- "-Dmc68020"
- #endif
- }
- };
- struct arglist COMP_FLAGS;
- #ifdef FCC
- struct arglist LD_HEAD = {
- #ifdef ACK_BIN
- 2,
- {
- "~head_em",
- "~head_cc"
- }
- #else ACK_BIN
- #ifdef sun
- #ifdef SunOs4
- 7,
- #else
- 5,
- #endif
- {
- "-e",
- "start",
- "-X",
- #ifdef SunOs4
- "-L/usr/lib/fsoft",
- "-Bstatic",
- #endif
- "/lib/crt0.o",
- "/lib/Fcrt1.o"
- }
- #endif
- #ifdef vax
- 2,
- {
- "-X",
- "/lib/crt0.o"
- }
- #endif
- #endif ACK_BIN
- };
- struct arglist LD_TAIL = {
- #ifdef ACK_BIN
- #ifdef sun
- 6,
- {
- "~tail_cc.1s",
- "~tail_cc.2g",
- "*m68020/tail_fp",
- "*m68020/tail_em",
- "~tail_mon",
- "*m68020/end_em"
- }
- #endif sun
- #ifdef vax
- 4,
- {
- "~tail_cc.1s",
- "~tail_cc.2g",
- "~tail_em",
- "~tail_mon"
- }
- #endif vax
- #else ACK_BIN
- #ifdef sun
- 2,
- {
- "~tail_ext",
- "-lc"
- }
- #endif
- #ifdef vax
- 2,
- {
- "~tail_em",
- "-lc"
- }
- #endif
- #endif ACK_BIN
- };
- #endif FCC
- #ifdef FPC
- struct arglist LD_HEAD = {
- #ifdef ACK_BIN
- 2,
- {
- "~head_em",
- #ifdef vax
- "~head_pc"
- #endif
- #ifdef sun
- "*m68020/head_pc"
- #endif
- }
- #else ACK_BIN
- #ifdef sun
- #ifdef SunOs4
- 7,
- #else
- 5,
- #endif
- {
- "-e",
- "begtext",
- "-X",
- #ifdef SunOs4
- "-L/usr/lib/fsoft",
- "-Bstatic",
- #endif
- "~head_em",
- "~head_pc"
- }
- #endif sun
- #ifdef vax
- 3,
- {
- "-X",
- "~head_em",
- "~head_pc"
- }
- #endif vax
- #endif ACK_BIN
- };
- struct arglist LD_TAIL = {
- #ifndef ACK_BIN
- #ifdef sun
- 3,
- {
- "~tail_pc",
- "~tail_ext",
- "-lc"
- }
- #endif sun
- #ifdef vax
- 3,
- {
- "~tail_pc",
- "~tail_em",
- "-lc"
- }
- #endif vax
- #else ACK_BIN
- #ifdef sun
- 5,
- {
- "*m68020/tail_pc",
- "*m68020/tail_fp",
- "*m68020/tail_em",
- "~tail_mon",
- "*m68020/end_em"
- }
- #endif sun
- #ifdef vax
- 3,
- {
- "~tail_pc",
- "~tail_em",
- "~tail_mon"
- }
- #endif vax
- #endif ACK_BIN
- };
- #endif FPC
- #ifdef FM2
- struct arglist LD_HEAD = {
- #ifdef ACK_BIN
- 2,
- {
- "~head_em",
- "~head_m2"
- }
- #else ACK_BIN
- #ifdef sun
- #ifdef SunOs4
- 7,
- #else
- 5,
- #endif
- {
- "-e",
- "begtext",
- "-X",
- #ifdef SunOs4
- "-L/usr/lib/fsoft",
- "-Bstatic",
- #endif
- "~head_em",
- "~head_m2"
- }
- #endif sun
- #ifdef vax
- 3,
- {
- "-X",
- "~head_em",
- "~head_m2"
- }
- #endif vax
- #endif ACK_BIN
- };
- struct arglist LD_TAIL = {
- #ifndef ACK_BIN
- #ifdef sun
- 3,
- {
- "~tail_m2",
- "~tail_ext",
- "-lc"
- }
- #endif sun
- #ifdef vax
- 3,
- {
- "~tail_m2",
- "~tail_em",
- "-lc"
- }
- #endif vax
- #else ACK_BIN
- #ifdef sun
- 5,
- {
- "~tail_m2",
- "*m68020/tail_fp",
- "*m68020/tail_em",
- "~tail_mon",
- "*m68020/end_em"
- }
- #endif sun
- #ifdef vax
- 3,
- {
- "~tail_m2",
- "~tail_em",
- "~tail_mon"
- }
- #endif vax
- #endif ACK_BIN
- };
- #endif FM2
- #if ACK_BIN && !vax
- #ifdef sun
- struct arglist def_align = {
- 5,
- {
- "-a0:4",
- "-a1:4",
- "-a2:0x20000",
- "-a3:4",
- "-b0:0x2020"
- }
- };
- struct arglist n_align = {
- 5,
- {
- "-a0:4",
- "-a1:4",
- "-a2:0x20000",
- "-a3:4",
- "-b0:0x2000"
- }
- };
- struct arglist N_align = {
- 5,
- {
- "-a0:4",
- "-a1:4",
- "-a2:4",
- "-a3:4",
- "-b0:0x2000"
- }
- };
- #endif sun
- struct arglist *sect_align = &def_align;
- #endif ACK_BIN && !vax
- char *o_FILE = "a.out"; /* default name for executable file */
- #define remove(str) ((noexec || unlink(str)), (str)[0] = '\0')
- #define cleanup(str) (str && str[0] && remove(str))
- #define init(al) ((al)->al_argc = 1)
- char ProgCall[128];
- struct arglist SRCFILES;
- struct arglist LDFILES;
- struct arglist GEN_LDFILES;
- int RET_CODE = 0;
- struct arglist LD_FLAGS;
- struct arglist CALL_VEC;
- int o_flag = 0;
- int c_flag = 0;
- int v_flag = 0;
- int O_flag = 0;
- char *mkstr();
- char *malloc();
- char *alloc();
- char *extension();
- USTRING ofile;
- USTRING BASE;
- USTRING tmp_file;
- int noexec = 0;
- extern char *strcat(), *strcpy(), *mktemp(), *strchr();
- trapcc(sig)
- int sig;
- {
- signal(sig, SIG_IGN);
- if (kids != -1) kill(kids, sig);
- cleanup(ofile);
- cleanup(tmp_file);
- exit(1);
- }
- #ifdef FCC
- #define lang_suffix() "c"
- #ifndef ACK_BIN
- #define comp_name() "*cemcom_ce"
- #else
- #ifdef vax
- #define comp_name() "~cemcom_ce"
- #endif
- #ifdef sun
- #define comp_name() "*m68020/cemcom_ce"
- #endif
- #endif ACK_BIN
- #endif FCC
- #ifdef FM2
- #define lang_suffix() "mod"
- #ifndef ACK_BIN
- #define comp_name() "*m2_ce"
- #else
- #ifdef vax
- #define comp_name() "~m2_ce"
- #endif
- #ifdef sun
- #define comp_name() "*m68020/m2_ce"
- #endif
- #endif ACK_BIN
- #endif FM2
- #ifdef FPC
- #define lang_suffix() "p"
- #ifndef ACK_BIN
- #define comp_name() "*pc_ce"
- #else
- #ifdef vax
- #define comp_name() "~pc_ce"
- #endif
- #ifdef sun
- #define comp_name() "*m68020/pc_ce"
- #endif
- #endif ACK_BIN
- #endif FPC
- #ifdef FCC
- int
- lang_opt(str)
- char *str;
- {
- switch(str[1]) {
- case '-': /* debug options */
- case 'w': /* disable warnings */
- case 'R': /* strict K&R C. */
- append(&COMP_FLAGS, str);
- return 1;
- }
- return 0;
- }
- #endif FCC
- #ifdef FM2
- int
- lang_opt(str)
- char *str;
- {
- switch(str[1]) {
- case '-': /* debug options */
- case 'w': /* disable warnings */
- case 'R': /* no runtime checks */
- case 'W': /* add warnings */
- case 'L': /* no line numbers */
- case 'A': /* extra array bound checks */
- case '3': /* only accept 3rd edition Modula-2 */
- append(&COMP_FLAGS, str);
- return 1;
- case 'I':
- append(&COMP_FLAGS, str);
- break; /* !!! */
- case 'U': /* underscores in identifiers allowed */
- if (str[2] == '\0') {
- append(&COMP_FLAGS, str);
- return 1;
- }
- break;
- case 'e': /* local extension for Modula-2 compiler:
- procedure constants
- */
- str[1] = 'l';
- append(&COMP_FLAGS, str);
- return 1;
- }
- return 0;
- }
- #endif FM2
- #ifdef FPC
- int
- lang_opt(str)
- char *str;
- {
- switch(str[1]) {
- case '-': /* debug options */
- case 'a': /* enable assertions */
- case 'd': /* allow doubles (longs) */
- case 'i': /* set size of integer sets */
- case 't': /* tracing */
- case 'w': /* disable warnings */
- case 'A': /* extra array bound checks */
- case 'C': /* distinguish between lower case and upper case */
- case 'L': /* no FIL and LIN instructions */
- case 'R': /* no runtime checks */
- append(&COMP_FLAGS, str);
- return 1;
- case 'u':
- case 'U':
- /* underscores in identifiers */
- case 's':
- /* only compile standard pascal */
- case 'c':
- /* C type strings */
- if (str[2] == '+' && str[3] == '\0') {
- str[2] = 0;
- append(&COMP_FLAGS, str);
- return 1;
- }
- }
- return 0;
- }
- #endif FPC
- main(argc, argv)
- char *argv[];
- {
- char *str;
- char **argvec;
- int count;
- char *ext;
- register struct arglist *call = &CALL_VEC;
- char *file;
- char *ldfile = 0;
- USTRING COMP;
- int compile_cnt = 0;
- setbuf(stdout, (char *) 0);
- basename(*argv++,ProgCall);
- strcat(INCLUDE, ROOT_DIR);
- #ifdef FM2
- strcat(INCLUDE, M2DEF);
- #endif FM2
- #ifdef FCC
- #ifdef ACK_BIN
- strcat(INCLUDE, CCINCL);
- #else
- INCLUDE[0] = '\0';
- #endif ACK_BIN
- #endif FCC
- #ifdef FPC
- INCLUDE[0] = '\0';
- #endif FPC
- strcpy(COMP,comp_name());
- if (signal(SIGHUP, SIG_IGN) != SIG_IGN)
- signal(SIGHUP, trapcc);
- if (signal(SIGINT, SIG_IGN) != SIG_IGN)
- signal(SIGINT, trapcc);
- if (signal(SIGQUIT, SIG_IGN) != SIG_IGN)
- signal(SIGQUIT, trapcc);
- while (--argc > 0) {
- if (*(str = *argv++) != '-') {
- append(&SRCFILES, str);
- continue;
- }
- if (lang_opt(str)) {
- }
- else switch (str[1]) {
- case 'c': /* stop after producing .o files */
- c_flag = 1;
- break;
- case 'D': /* preprocessor #define */
- case 'U': /* preprocessor #undef */
- append(&CPP_FLAGS, str);
- break;
- case 'I': /* include directory */
- append(&CPP_FLAGS, str);
- break;
- case 'o': /* target file */
- if (argc-- >= 0) {
- o_flag = 1;
- o_FILE = *argv++;
- ext = extension(o_FILE);
- if (ext != o_FILE && ! strcmp(ext, lang_suffix())
- #ifndef ACK_BIN
- || !strcmp(ext, "s")
- #endif
- ) {
- error("-o would overwrite %s", o_FILE);
- }
- }
- break;
- case 'u': /* mark identifier as undefined */
- append(&LD_FLAGS, str);
- if (argc-- >= 0)
- append(&LD_FLAGS, *argv++);
- break;
- case 'O': /* use built in peephole optimizer */
- if (! O_flag) strcat(COMP, "opt");
- O_flag = 1;
- break;
- case 'v': /* verbose */
- v_flag++;
- if (str[2] == 'n')
- noexec = 1;
- break;
- case 'l': /* library file */
- append(&SRCFILES, str);
- break;
- case 'M': /* use other compiler (for testing) */
- strcpy(COMP, str+2);
- break;
- #if ACK_BIN && !vax
- case 'n': /* text portion sharable, read-only. No
- demand paging
- */
- sect_align = &n_align;
- break;
- case 'N': /* text portion not sharable, not read-only */
- sect_align = &N_align;
- break;
- case 'd': /* force definition of common storage */
- append(&LD_FLAGS, "-c");
- break;
- #endif ACK_BIN && !vax
- default:
- #ifdef sun
- if (! strcmp(str, "-sun3")) {
- /* SunOs4.0 make passes this flag to
- $(CC). Ignore it silently.
- */
- break;
- }
- #endif
- if (strchr(TO_LD, str[1]) == 0)
- warning("%s flag ignored", str);
- else {
- append(&LD_FLAGS, str);
- }
- break;
- }
- }
- if (ecount) exit(1);
- #if FCC && !ACK_BIN
- append(&COMP_FLAGS, "-L"); /* disable line number and filename admin */
- #endif FCC && !ACK_BIN
- count = SRCFILES.al_argc;
- argvec = &(SRCFILES.al_argv[0]);
- while (count-- > 0) {
- ext = extension(*argvec);
- if (*argvec[0] != '-' &&
- ext != *argvec++ && (! strcmp(ext, lang_suffix())
- #ifndef ACK_BIN
- || !strcmp(ext, "s")
- #endif
- )) {
- compile_cnt++;
- }
- }
- if (compile_cnt > 1 && c_flag && o_flag) {
- warning("-o flag ignored");
- o_flag = 0;
- }
- count = SRCFILES.al_argc;
- argvec = &(SRCFILES.al_argv[0]);
- while (count-- > 0) {
- register char *f;
- basename(file = *argvec++, BASE);
- ext = extension(file);
- if (file[0] != '-' &&
- ext != file && (!strcmp(ext, lang_suffix())
- #ifndef ACK_BIN
- || !strcmp(ext, "s")
- #endif
- )) {
- #ifndef ACK_BIN
- if (compile_cnt > 1)
- printf("%s:\n", file);
- #else
- printf("%s\n", file);
- #endif
- ldfile = c_flag ? ofile : alloc((unsigned)strlen(BASE)+3);
- if (
- #ifdef FCC
- !strcmp(ext, "s") &&
- #endif
- needsprep(file)) {
- strcpy(tmp_file, TMP_DIR);
- strcat(tmp_file, "/F_XXXXXX");
- mktemp(tmp_file);
- init(call);
- append(call, CPP);
- concat(call, &CPP_FLAGS);
- append(call, INCLUDE);
- append(call, file);
- if (runvec(call, tmp_file)) {
- file = tmp_file;
- }
- else {
- remove(tmp_file);
- tmp_file[0] = '\0';
- continue;
- }
- }
- init(call);
- if (o_flag && c_flag) {
- f = o_FILE;
- }
- else f = mkstr(ldfile, BASE, ".o", (char *)0);
- #ifndef ACK_BIN
- if (strcmp(ext, "s")) {
- #endif
- append(call, COMP);
- #ifdef FCC
- concat(call, &CPP_FLAGS);
- #endif
- concat(call, &COMP_FLAGS);
- #if FM2 || FCC
- append(call, INCLUDE);
- #endif
- append(call, file);
- append(call, f);
- #ifndef ACK_BIN
- }
- else {
- append(call, AS);
- append(call, "-o");
- append(call, f);
- #ifdef sun
- append(call, "-mc68020");
- #endif
- append(call, file);
- }
- #endif
- if (runvec(call, (char *) 0)) {
- file = f;
- }
- else {
- remove(f);
- continue;
- }
- cleanup(tmp_file);
- tmp_file[0] = '\0';
- }
- else if (file[0] != '-' &&
- strcmp(ext, "o") && strcmp(ext, "a")) {
- warning("file with unknown suffix (%s) passed to the loader", ext);
- }
- if (c_flag)
- continue;
- append(&LDFILES, file);
- if (ldfile) {
- append(&GEN_LDFILES, ldfile);
- ldfile = 0;
- }
- }
- /* *.s to a.out */
- if (RET_CODE == 0 && LDFILES.al_argc > 0) {
- #ifndef ACK_BIN
- if (compile_cnt > 1) {
- printf("Linking:\n");
- }
- #endif
- init(call);
- append(call, LD);
- concat(call, &LD_HEAD);
- concat(call, &LD_FLAGS);
- append(call, "-o");
- #if ACK_BIN && !vax
- strcpy(tmp_file, TMP_DIR);
- strcat(tmp_file, "/LF_XXXXXX");
- mktemp(tmp_file);
- append(call, tmp_file);
- concat(call, sect_align);
- #else ACK_BIN && !vax
- append(call, o_FILE);
- #endif ACK_BIN && !vax
- concat(call, &LDFILES);
- concat(call, &LD_TAIL);
- #if ACK_BIN && !vax
- if (! runvec(call, (char *) 0)) {
- cleanup(tmp_file);
- exit(RET_CODE);
- }
- init(call);
- append(call, CV);
- append(call, tmp_file);
- append(call, o_FILE);
- #endif ACK_BIN && !vax
- if (runvec(call, (char *) 0) && GEN_LDFILES.al_argc == 1)
- #ifdef ACK_BIN
- ;
- #else
- remove(GEN_LDFILES.al_argv[0]);
- #endif ACK_BIN
- #if ACK_BIN && !vax
- cleanup(tmp_file);
- #endif ACK_BIN && !vax
- }
- exit(RET_CODE);
- }
- needsprep(name)
- char *name;
- {
- int file;
- char fc;
- file = open(name,0);
- if (file < 0) return 0;
- if (read(file, &fc, 1) != 1) fc = 0;
- close(file);
- return fc == '#';
- }
- char *
- alloc(u)
- unsigned u;
- {
- char *p = malloc(u);
- if (p == 0)
- panic("no space");
- return p;
- }
- append(al, arg)
- struct arglist *al;
- char *arg;
- {
- if (!arg || !*arg) return;
- if (al->al_argc >= MAXARGC)
- panic("argument list overflow");
- if (*arg == '~' || *arg == '*') {
- char *p;
- char *lb = *arg == '~' ? LIBDIR : BINDIR;
- p = alloc((unsigned)strlen(ROOT_DIR)+strlen(lb)+strlen(arg+1)+1);
- strcpy(p, ROOT_DIR);
- strcat(p, lb);
- strcat(p, arg+1);
- arg = p;
- }
- al->al_argv[(al->al_argc)++] = arg;
- }
- concat(al1, al2)
- struct arglist *al1, *al2;
- {
- register i = al2->al_argc;
- register char **p = &(al1->al_argv[al1->al_argc]);
- register char **q = &(al2->al_argv[0]);
- if ((al1->al_argc += i) >= MAXARGC)
- panic("argument list overflow");
- while (i-- > 0) {
- if (**q == '~' || **q == '*') {
- char *lb = **q == '~' ? LIBDIR : BINDIR;
- *p = alloc((unsigned)strlen(ROOT_DIR)+strlen(lb)+strlen(*q+1)+2);
- strcpy(*p, ROOT_DIR);
- strcat(*p, lb);
- strcat(*p++, *q+1);
- q++;
- }
- else *p++ = *q++;
- }
- }
- /*VARARGS*/
- char *
- mkstr(va_alist)
- va_dcl
- {
- va_list ap;
- char *dst;
- va_start(ap);
- {
- register char *p;
- register char *q;
- dst = q = va_arg(ap, char *);
- p = va_arg(ap, char *);
- while (p) {
- while (*q++ = *p++);
- q--;
- p = va_arg(ap, char *);
- }
- }
- va_end(ap);
- return dst;
- }
- basename(str, dst)
- char *str;
- register char *dst;
- {
- register char *p1 = str;
- register char *p2 = p1;
- while (*p1)
- if (*p1++ == '/')
- p2 = p1;
- p1--;
- while (*p1 != '.' && p1 >= p2) p1--;
- if (p1 >= p2) {
- *p1 = '\0';
- while (*dst++ = *p2++);
- *p1 = '.';
- }
- else
- while (*dst++ = *p2++);
- }
- char *
- extension(fn)
- char *fn;
- {
- register char *c = fn;
- while (*c++) ;
- while (*--c != '.' && c >= fn) { }
- if (c++ < fn || !*c) return fn;
- return c;
- }
- runvec(vec, outp)
- struct arglist *vec;
- char *outp;
- {
- int pid, status;
- if (v_flag) {
- pr_vec(vec);
- putc('\n', stderr);
- }
- if ((pid = fork()) == 0) { /* start up the process */
- if (outp) { /* redirect standard output */
- close(1);
- if (creat(outp, 0666) != 1)
- panic("cannot create output file");
- }
- ex_vec(vec);
- }
- if (pid == -1)
- panic("no more processes");
- kids = pid;
- wait(&status);
- if (status) switch(status & 0177) {
- case SIGHUP:
- case SIGINT:
- case SIGQUIT:
- case SIGTERM:
- case 0:
- break;
- default:
- error("%s died with signal %d\n", vec->al_argv[1], status&0177);
- }
- kids = -1;
- return status ? ((RET_CODE = 1), 0) : 1;
- }
- /*VARARGS1*/
- error(str, s1, s2)
- char *str, *s1, *s2;
- {
- fprintf(stderr, "%s: ", ProgCall);
- fprintf(stderr, str, s1, s2);
- putc('\n', stderr);
- ecount++;
- }
- /*VARARGS1*/
- warning(str, s1, s2)
- char *str, *s1, *s2;
- {
- fprintf(stderr, "%s: (warning) ", ProgCall);
- fprintf(stderr, str, s1, s2);
- putc('\n', stderr);
- }
- panic(str)
- char *str;
- {
- error(str);
- trapcc(SIGINT);
- }
- pr_vec(vec)
- register struct arglist *vec;
- {
- register char **ap = &vec->al_argv[1];
- vec->al_argv[vec->al_argc] = 0;
- fputs(*ap, stderr);
- while (*++ap) {
- putc(' ', stderr);
- fputs(*ap, stderr);
- }
- }
- extern int errno;
- ex_vec(vec)
- register struct arglist *vec;
- {
- if (noexec)
- exit(0);
- vec->al_argv[vec->al_argc] = 0;
- execv(vec->al_argv[1], &(vec->al_argv[1]));
- if (errno == ENOEXEC) { /* not an a.out, try it with the SHELL */
- vec->al_argv[0] = SHELL;
- execv(SHELL, &(vec->al_argv[0]));
- }
- if (access(vec->al_argv[1], 1) == 0) {
- /* File is executable. */
- error("cannot execute %s", vec->al_argv[1]);
- } else {
- error("%s is not executable", vec->al_argv[1]);
- }
- exit(1);
- }
|