24ac4a67e88b0760e3833e5ba299289eaa5e36bd
2 (* ================================================================ *)
3 (* *)
4 (* Module of the V1.4+ gpcp tool to create symbol files from *)
5 (* the metadata of .NET assemblies, using the PERWAPI interface. *)
6 (* *)
7 (* Copyright QUT 2004 - 2005. *)
8 (* *)
9 (* This code released under the terms of the GPCP licence. *)
10 (* *)
11 (* This Module: <N2State> *)
12 (* Holds global state for the process, plus utilities. *)
13 (* Original module, kjg December 2004 *)
14 (* *)
15 (* ================================================================ *)
19 CompState,
20 LitValue,
21 ProgArgs,
22 Console,
23 Error,
24 GPText,
25 ForeignName,
32 RTS;
34 (* ---------------------------------------------------------- *)
40 (* ---------------------------------------------------------- *)
44 (* ---------------------------------------------------------- *)
48 (* ---------------------------------------------------------- *)
58 (* ---------------------------------------------------------- *)
70 (* ---------------------------------------------------------- *)
75 (* ---------------------------------------------------------- *)
78 BEGIN
82 (* ---------------------------------------------------------- *)
85 BEGIN
90 (* ---------------------------------------------------------- *)
93 BEGIN
107 (* ------------------------------------- *)
110 BEGIN
119 (* ------------------------------------- *)
122 BEGIN
129 (* ------------------------------------- *)
132 BEGIN
135 ELSE
139 (* ------------------------------------- *)
146 BEGIN
147 (*
148 * Clear the "dump" marker from non built-in types
149 *)
170 (* ---------------------------------------------------------- *)
173 BEGIN
178 BEGIN
185 BEGIN
190 BEGIN
198 BEGIN
209 ELSE
220 (* ---------------------------------------------------------- *)
224 BEGIN
230 BEGIN
245 BEGIN
250 ELSE
268 (* ---------------------------------------------------------- *)
271 BEGIN
295 ELSE
300 (* ---------------------------------------------------------- *)
303 BEGIN
310 (* ---------------------------------------------------------- *)
312 BEGIN