godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Several bug fixes

Browse Source
This commit is contained in:
ceriel
1986-11-05 14:33:00 +00:00
parent 97e027db33
commit 9291d87dab
26 changed files with 401 additions and 164 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
lang/m2/comp/options.c
View File

@@ -8,9 +8,11 @@
#include "type.h"
#include "main.h"
#include "warning.h"
extern int idfsize;
static int ndirs;
int warning_classes;
DoOption(text)
register char *text;
@@ -29,6 +31,41 @@ DoOption(text)
*/
case 'w':
if (*text) {
while (*text) {
switch(*text++) {
case 'O':
warning_classes &= ~W_OLDFASHIONED;
break;
case 'R':
warning_classes &= ~W_STRICT;
break;
case 'W':
warning_classes &= ~W_ORDINARY;
break;
}
}
}
else warning_classes = 0;
break;
case 'W':
while (*text) {
switch(*text++) {
case 'O':
warning_classes |= W_OLDFASHIONED;
break;
case 'R':
warning_classes |= W_STRICT;
break;
case 'W':
warning_classes |= W_ORDINARY;
break;
}
}
break;
case 'M': { /* maximum identifier length */
char *t = text; /* because &text is illegal */
@@ -42,7 +79,7 @@ DoOption(text)
case 'I' :
if (++ndirs >= NDIRS) {
fatal("Too many -I options");
fatal("too many -I options");
}
DEFPATH[ndirs] = text;
break;