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
132
133
134
135
136
137
138
139
|
/*
Utility Definitions.
*/
#ifndef __UTILS_H
#define __UTILS_H
/* stuff from util.c */
extern tree root;
extern list Lnil;
extern list all;
extern BOOLEAN nonstandardFlag;
extern BOOLEAN hashIds;
extern BOOLEAN acceptPrim;
extern BOOLEAN etags;
extern BOOLEAN ignoreSCC;
extern BOOLEAN implicitPrelude;
extern BOOLEAN ignorePragmas;
extern int minAcceptablePragmaVersion;
extern int maxAcceptablePragmaVersion;
extern int thisIfacePragmaVersion;
extern unsigned hash_table_size;
extern char *input_file_dir;
extern list imports_dirlist;
extern list sys_imports_dirlist;
extern char HiSuffix[];
extern char PreludeHiSuffix[];
void process_args PROTO((int, char **));
/* end of util.c stuff */
list mklcons PROTO((void *h, list t)); /* if we have PROTO, we have "void *" */
list lapp PROTO((list l1, void *l2));
list lconc PROTO((list l1, list l2));
#define lsing(l) mklcons(l, Lnil) /* Singleton Lists */
#define ldub(l1, l2) mklcons(l1, lsing(l2)) /* Two-element Lists */
#define FN fns[icontexts]
#define SAMEFN samefn[icontexts]
#define PREVPATT prevpatt[icontexts]
id installid PROTO((char *)); /* Create a new identifier */
hstring installHstring PROTO((int, char *)); /* Create a new literal string */
id install_literal PROTO((char *));
char *id_to_string PROTO((id));
id qid_to_id PROTO((qid));
char *qid_to_string PROTO((qid));
char *qid_to_mod PROTO((qid)); /* NULL if unqual */
char *qid_to_pmod PROTO((qid)); /* "?" if unqual */
qid creategid PROTO((long));
/* partain additions */
char *xmalloc PROTO((unsigned)); /* just a GNU-style error-checking malloc */
int printf PROTO((const char *, ...));
int fprintf PROTO((FILE *, const char *, ...));
/*varies (sun/alpha): int fputc PROTO((char, FILE *)); */
int fputs PROTO((const char *, FILE *));
int sscanf PROTO((const char *, const char *, ...));
long strtol PROTO((const char *, char **, int));
size_t fread PROTO((void *, size_t, size_t, FILE *));
int fclose PROTO((FILE *));
int isatty PROTO((int));
/*extern ??? _filbuf */
/*extern ??? _flsbuf */
void pprogram PROTO((tree));
void format_string PROTO((FILE *, unsigned char *, int));
list type2context PROTO((ttype));
pbinding createpat PROTO((pbinding, binding));
void process_args PROTO((int, char **));
void hash_init PROTO((void));
void print_hash_table PROTO((void));
long int hash_index PROTO((id));
void yyinit PROTO((void));
int yyparse PROTO((void));
int yylex PROTO((void));
void setyyin PROTO((char *));
void yyerror PROTO((char *));
void error PROTO((char *));
void hsperror PROTO((char *));
void makeinfix PROTO((id, int, int, id, long, long, id, id, long, long, long, list));
struct infix *infixlookup PROTO((qid));
int pprecedence PROTO((struct infix *));
int pfixity PROTO((struct infix *));
char * infixstr PROTO((int));
long infixint PROTO((int));
void hsincindent PROTO((void));
void hssetindent PROTO((void));
void hsendindent PROTO((void));
void hsindentoff PROTO((void));
int checkfixity PROTO((char *));
void checksamefn PROTO((qid));
void checkinpat PROTO((void));
void expORpat PROTO((int,tree));
/* the "int" arg says what we want; it is one of: */
#define LEGIT_PATT 1
#define LEGIT_EXPR 2
BOOLEAN lhs_is_patt PROTO((tree));
tree function PROTO((tree));
void extendfn PROTO((binding, binding));
void checkorder PROTO((binding));
void checkdostmts PROTO((list));
void checknobangs PROTO((ttype));
void splittyconapp PROTO((ttype, qid *, list *));
/*
void precparse PROTO((tree));
void checkprec PROTO((tree, qid, BOOLEAN));
*/
BOOLEAN isconstr PROTO((char *));
void setstartlineno PROTO((void));
void find_module_on_imports_dirlist PROTO((char *, BOOLEAN, char *));
/* mattson additions */
char *xstrdup PROTO((char *)); /* Duplicate a string */
char *xstrndup PROTO((char *, unsigned)); /* Duplicate a substring */
char *xrealloc PROTO((char *, unsigned)); /* Re-allocate a string */
#endif /* __UTILS_H */
|
