|
a/ArgAccess.mod.m2cc |
|
b/ArgAccess.mod.m2cc |
1 |
IMPLEMENTATION MODULE ArgAccess;
|
1 |
IMPLEMENTATION MODULE ArgAccess;
|
2 |
|
2 |
|
3 |
(*========================================================================*)
|
3 |
(*========================================================================*)
|
4 |
(* WICHTIG: BITTE NUR DIE DATEI ArgAccess.mod.m2cc EDITIEREN !!! *)
|
4 |
(* WICHTIG: BITTE NUR DIE DATEI ArgAccess.mod.m2cc EDITIEREN !!! *)
|
5 |
(*========================================================================*)
|
5 |
(*========================================================================*)
|
|
|
6 |
(* Zugriff auf Komanndozeilenargumente und die Programmumgebung *)
|
6 |
(* Access to command line arguments programm environment *)
|
7 |
(* Access to command line arguments programm environment *)
|
7 |
(* *)
|
8 |
(* *)
|
8 |
(* Es sind 2 Versionen enthalten die mit *)
|
9 |
(* Es sind 2 Versionen enthalten die mit *)
|
9 |
(* *)
|
10 |
(* *)
|
10 |
(* m2cc -D __{Parameter}__ < ArgAccess.mod.m2cc > ArgAccess.mod *)
|
11 |
(* m2cc -D __{Parameter}__ < ArgAccess.mod.m2cc > ArgAccess.mod *)
|
|
... |
|
... |
12 |
(* mit Parameter = {XDS|GM2} erzeugt werden koennen. *)
|
13 |
(* mit Parameter = {XDS|GM2} erzeugt werden koennen. *)
|
13 |
(* *)
|
14 |
(* *)
|
14 |
(* XDS : Parameter werden fuer den XDS Modula-2 Compilter gesetzt *)
|
15 |
(* XDS : Parameter werden fuer den XDS Modula-2 Compilter gesetzt *)
|
15 |
(* GM2 : Parameter werden fuer den GNU Modula-2 Compilter gesetzt *)
|
16 |
(* GM2 : Parameter werden fuer den GNU Modula-2 Compilter gesetzt *)
|
16 |
(* *)
|
17 |
(* *)
|
|
|
18 |
(* There are two version contained, one for XDS and one for GNU M2. *)
|
|
|
19 |
(* They can be generated by the command line shown above *)
|
17 |
#ifdef __XDS__
|
20 |
#ifdef __XDS__
|
18 |
(* Version fuer XDS Modula-2 *)
|
21 |
(* Version fuer XDS Modula-2 *)
|
19 |
#endif
|
22 |
#endif
|
20 |
#ifdef __GM2__
|
23 |
#ifdef __GM2__
|
21 |
(* Version fuer GNU Modula-2 *)
|
24 |
(* Version fuer GNU Modula-2 *)
|