1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
/**********************************************************************
* *
* *
* Declarations *
* *
* *
**********************************************************************/
#include "hspincl.h"
#include "constants.h"
#include "utils.h"
tree root; /* The root of the built syntax tree. */
list Lnil;
BOOLEAN nonstandardFlag = FALSE; /* Set if non-std Haskell extensions to be used. */
BOOLEAN etags = FALSE; /* Set if we're parsing only to produce tags. */
BOOLEAN hashIds = FALSE; /* Set if Identifiers should be hashed. */
BOOLEAN ignoreSCC = TRUE; /* Set if we ignore/filter scc expressions. */
BOOLEAN warnSCC = FALSE; /* Set if we want to inform the user what _scc_s are
being ignored. */
/**********************************************************************
* *
* *
* Utility Functions *
* *
* *
**********************************************************************/
# include <stdio.h>
# include "constants.h"
# include "hspincl.h"
# include "utils.h"
void
process_args(argc,argv)
int argc;
char **argv;
{
BOOLEAN keep_munging_option = FALSE;
while (argc > 0 && argv[0][0] == '-') {
keep_munging_option = TRUE;
while (keep_munging_option && *++*argv != '\0') {
switch(**argv) {
case 'D':
#ifdef HSP_DEBUG
{ extern int yydebug;
yydebug = 1;
}
#endif
break;
case 'E':
etags = TRUE;
break;
/* -Hn -- Use Hash Table, Size n (if given) */
case 'H':
hashIds = TRUE;
if(*(*argv+1)!= '\0')
hash_table_size = atoi(*argv+1);
break;
case 'N':
nonstandardFlag = TRUE;
break;
case 'S':
ignoreSCC = FALSE;
break;
case 'W':
warnSCC = TRUE;
break;
}
}
argc--, argv++;
}
if(argc >= 1 && freopen(argv[0], "r", stdin) == NULL) {
fprintf(stderr, "Cannot open %s.\n", argv[0]);
exit(1);
}
if(argc >= 2 && freopen(argv[1], "w", stdout) == NULL) {
fprintf(stderr, "Cannot open %s.\n", argv[1]);
exit(1);
}
}
void
error(s)
char *s;
{
fprintf(stderr, "PARSER: Error %s\n", s);
exit(1);
}
list
lconc(l1, l2)
list l1;
list l2;
{
list t;
if (tlist(l1) == lnil)
return(l2);
for(t = l1; tlist(ltl(t)) != lnil; t = ltl(t))
;
ltl(t) = l2;
return(l1);
}
list
lapp(list l1, VOID_STAR l2)
{
list t;
if (tlist(l1) == lnil)
return(mklcons(l2, mklnil()));
for(t = l1; tlist(ltl(t)) != lnil; t = ltl(t))
;
ltl(t) = mklcons(l2, mklnil());
return(l1);
}
|
