2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / gcc.c-torture / compile / 980825-1.c
blob34e35bf83c4c4880178c8989408b4636809f4a36
1 typedef enum { FALSE, TRUE } boolean;
2 enum _errorTypes { FATAL = 1, WARNING = 2, PERROR = 4 };
3 typedef struct _optionValues {
4 struct _include {
5 boolean classNames;
6 boolean defines;
7 boolean enumerators;
8 } include;
9 } optionValues;
10 extern optionValues Option;
11 static void applyTagInclusionList( list )
12 const char *const list;
14 boolean mode = TRUE;
15 const char *p;
16 for (p = list ; *p != '\0' ; ++p)
17 switch (*p)
19 case '=':
20 clearTagList();
21 mode = TRUE;
22 break;
23 case '+': mode = TRUE; break;
24 case '-': mode = FALSE; break;
25 case 'c': Option.include.classNames = mode; break;
26 case 'd': Option.include.defines = mode; break;
27 case 'e': Option.include.enumerators = mode; break;
28 default: error(FATAL, "-i: Invalid tag option '%c'", *p); break;