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
|
/*
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 etags;
extern BOOLEAN ignoreSCC;
extern unsigned hash_table_size;
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));
/* 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 */
|
