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: <PeToCps> *)
12 (* Base module. Command line processing etcetera. *)
13 (* Original module, kjg December 2004 *)
14 (* *)
15 (* ================================================================ *)
19 GPFiles,
20 FileNames,
25 IdDesc;
27 TYPE
30 VAR
42 (* ==================================================================== *)
46 BEGIN
57 (* ------------------------------------------------------- *)
62 BEGIN
70 (* ------------------------------------------------------- *)
80 BEGIN
93 ELSE
98 (* ------------------------------------------------------- *)
103 BEGIN
112 (* ==================================================================== *)
122 BEGIN
136 (*
137 * Define BlkId for every namespace
138 *)
145 (*
146 * Define TypIds in every namespace
147 *)
153 (*
154 * Define structure of every class
155 *)
159 (*
160 * Write out symbol file(s)
161 *)
174 (* ==================================================================== *)
175 (* Main Argument Loop *)
176 (* ==================================================================== *)
178 BEGIN
188 ELSE
199 (*
200 * Return the result code of the final compilation
201 *)