81 lines
1.2 KiB
C
81 lines
1.2 KiB
C
|
/*
|
||
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
||
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
||
|
|
*
|
||
|
|
* Author: Ceriel J.H. Jacobs
|
||
|
|
*/
|
||
|
|
|
||
|
|
/* U S E R O P T I O N - H A N D L I N G */
|
||
|
|
|
||
|
|
/* stripped down version from the one in the Modula-2 compiler */
|
||
|
|
|
||
|
|
/* $Header$ */
|
||
|
|
|
||
|
|
#include <alloc.h>
|
||
|
|
#include "main.h"
|
||
|
|
|
||
|
|
static int ndirs = 1;
|
||
|
|
|
||
|
|
DoOption(text)
|
||
|
|
register char *text;
|
||
|
|
{
|
||
|
|
extern char *mflags;
|
||
|
|
extern char *suff;
|
||
|
|
extern char *compiler;
|
||
|
|
|
||
|
|
switch(*text++) {
|
||
|
|
|
||
|
|
case 'I' :
|
||
|
|
AddInclDir(text);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'M':
|
||
|
|
mflags = text;
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'C':
|
||
|
|
compiler = text;
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'S':
|
||
|
|
suff = text;
|
||
|
|
break;
|
||
|
|
|
||
|
|
default:
|
||
|
|
Gerror("Unrecognized option: -%s", text-1);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
AddInclDir(text)
|
||
|
|
char *text;
|
||
|
|
{
|
||
|
|
register int i;
|
||
|
|
register char *new = text;
|
||
|
|
|
||
|
|
if (! *text) {
|
||
|
|
DEFPATH[ndirs] = 0;
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (++nDEF > mDEF) {
|
||
|
|
char **n = (char **)
|
||
|
|
Malloc((unsigned)((10+mDEF)*sizeof(char *)));
|
||
|
|
|
||
|
|
for (i = 0; i < mDEF; i++) {
|
||
|
|
n[i] = DEFPATH[i];
|
||
|
|
}
|
||
|
|
free((char *) DEFPATH);
|
||
|
|
DEFPATH = n;
|
||
|
|
mDEF += 10;
|
||
|
|
}
|
||
|
|
|
||
|
|
i = ndirs++;
|
||
|
|
while (new) {
|
||
|
|
register char *tmp = DEFPATH[i];
|
||
|
|
|
||
|
|
DEFPATH[i++] = new;
|
||
|
|
new = tmp;
|
||
|
|
}
|
||
|
|
}
|