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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
/*
* compiler/core/snacc_util.h
*
* Copyright (C) 1992 Michael Sample and the University of British Columbia
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* $Header: /baseline/SNACC/compiler/core/snacc-util.h,v 1.10 2004/03/31 20:03:20 leonberp Exp $
* $Log: snacc-util.h,v $
* Revision 1.10 2004/03/31 20:03:20 leonberp
* resolved many gcc compile warnings
*
* Revision 1.9 2004/01/29 21:21:45 gronej
* Took all Init() calls out of Clear() functions in generated code
*
* Revision 1.8 2003/07/28 11:11:24 colestor
* Changes to complete handing of the "--snacc namespace" compiler directive.
* Also, updates to handle ASN.1 constant integer tag designations for C++/C.
*
* Revision 1.7 2003/07/07 21:01:19 nicholar
* no message
*
* Revision 1.6 2003/07/07 14:50:14 nicholar
* Eliminated headers and cleaned up include references
*
* Revision 1.5 2003/04/29 21:07:03 leonberp
* integerated Deepak's changes for IOB support
*
* Revision 1.4 2003/01/27 16:50:45 leonberp
* added GetLastNamedNumberValue()
*
* Revision 1.3 2002/10/21 17:15:19 mcphersc
* fixed long int
*
* Revision 1.2 2001/07/12 19:34:34 leonberp
* Changed namespace to SNACC and added compiler options: -ns and -nons. Also removed dead code.
*
* Revision 1.1.1.1 2000/08/21 20:36:02 leonberp
* First CVS Version of SNACC.
*
* Revision 1.3 1995/07/25 19:41:46 rj
* changed `_' to `-' in file names.
*
* Revision 1.2 1994/09/01 00:46:41 rj
* snacc_config.h's 2nd last macro, PrintErrLoc(), got here.
*
* Revision 1.1 1994/08/28 09:49:41 rj
* first check-in. for a list of changes to the snacc-1.1 distribution please refer to the ChangeLog.
*
*/
#define PrintErrLoc( fileName, lineNo)\
fprintf (errFileG, "%s(%ld) : ", fileName, (long int)(lineNo))
/*
* macro to allocate room for str & null & put in give STR*
*/
#define SETUP_STR( strPtr, string)\
(strPtr)->str = Malloc (strlen (string) + 1);\
strcpy ((strPtr)->str, string);\
(strPtr)->len = strlen (string) + 1
/*
* Create a new list type such that each elmt has space
* to hold a pointer
*/
#define NEWLIST() AsnListNew (sizeof (void *))
/*
* macro to append an element to the end of linked list
* - helps on left recursion when order must be maintained
*
* be careful of calling context if list is null
* that is, make sure the change to list is not lost.
*/
#define APPEND( elmt, list) \
{\
void **tmpPtr;\
if ((list) == NULL)\
(list) = NEWLIST();\
tmpPtr = (void **) AsnListAppend ((AsnList *)list);\
*tmpPtr = (void *) (elmt);\
}
/*
* like APPEND except puts elmt at head of list
*/
#define PREPEND( elmt, list) \
{\
void **tmpPtr;\
if ((list) == NULL)\
(list) = NEWLIST();\
tmpPtr = (void **)AsnListPrepend ((AsnList *)list);\
*tmpPtr = (void *) (elmt);\
}
#define CONCAT( list1, list2)\
{\
AsnListConcat(list1, list2);\
}
BasicValue * GetLastNamedNumberValue PROTO ((NamedNumberList *valueList));
void SetupType PROTO ((Type **t, enum BasicTypeChoiceId typeId, unsigned long lineNum));
void AutomaticTagNamed PROTO ((NamedTypeList *l));
void SetupMacroType PROTO ((Type **t, enum MacroTypeChoiceId macroTypeId, unsigned long lineNum));
void SetupValue PROTO ((Value **v, enum BasicValueChoiceId valId, unsigned long lineNum));
void AddPrivateImportElmt PROTO ((Module *m, char *name, char *refModuleName, long lineNo));
ImportElmt *LookupImportElmtInModule PROTO ((Module *m, char *name, ImportModule **importModule));
ImportElmt *LookupImportElmtInImportElmtList PROTO ((ImportElmtList *importElmtList, char *name));
ImportModule *LookupImportModule PROTO ((Module *m, char *importModuleName));
TypeDef *LookupType PROTO ((TypeDefList *t, char *typeName));
// Deepak: 04/Feb/2003
NamedType *LookupObjectClassFieldType PROTO ((NamedTypeList *n, char *typeName));
// Deepak: 05/Mar/2003
WithSyntax* LookupObjectClassFieldTypeWithSyntax PROTO ((WithSyntaxList *withSyntaxList, char *typeName, char* bError));
// Deepak: 05/Mar/2003
ObjectAssignment* LookupObjectClassObjectAssignment PROTO ((ObjectAssignmentList *objAssignmentList, char *objName));
// Deepak: 11/Mar/2003
ObjectSetAssignment* LookupObjectClassObjectSetAssignment PROTO ((ObjectSetAssignmentList *objSetAssignmentList, char *objSetName));
Module *LookupModule PROTO ((ModuleList *m, char *modName, OID *oid));
NamedType *LookupFieldInType PROTO ((Type *t, char *fieldName));
Type *GetType PROTO ((Type *t));
Type *ParanoidGetType PROTO ((Type *t));
enum BasicTypeChoiceId GetBuiltinType PROTO ((Type *t));
NamedNumberList *GetNamedElmts PROTO ((Type *t));
NamedNumberList *GetAllNamedElmts PROTO ((Type *t));
Type *GetParentS PROTO ((Type *ancestor, Type *child));
ValueDef *LookupValue PROTO ((ValueDefList *v, char *valueName));
Value *GetValue PROTO ((Value *v));
int CompareOids PROTO ((OID *oid1, OID *oid2));
int HasNamedElmts PROTO ((Type *t));
int TagsAreIdentical PROTO ((TagList *t1, TagList *t2));
int HasDefaultTag PROTO ((Type *t));
int IsPrimitiveByDefOrRef PROTO ((Type *t));
int IsPrimitiveByDef PROTO ((Type *t));
int IsDefinedByLibraryType PROTO ((Type *t));
int IsTypeRef PROTO ((Type *t));
int IsNewType PROTO ((Type *t));
int IsTailOptional PROTO ((NamedTypeList *e));
int NextIsTailOptional PROTO ((NamedTypeList *e));
int AllElmtsOptional PROTO ((NamedTypeList *e));
AnyRefList **GetAnyRefListHndl PROTO ((Type *t));
void AppendSubtype PROTO ((Subtype **s, Subtype *newSubtype, enum SubtypeChoiceId op));
extern FILE* errFileG; // Defined in snacc.c
|
