1 (* ==================================================================== *)
2 (* *)
3 (* FileNames Module for the Gardens Point Component Pascal Compiler. *)
4 (* Copyright (c) John Gough 1999, 2000. *)
5 (* *)
6 (* ==================================================================== *)
11 TYPE
14 (* ==================================================================== *)
15 (* Utilities *)
16 (* ==================================================================== *)
23 BEGIN
24 (* ------------------------- *)
25 (* Index 012... v--LEN *)
26 (* xxxxxxxxxxxx0 *)
27 (* ^---------------sPos *)
28 (* ^--dPos *)
29 (* ------------------------- *)
30 (* before *)
31 (* ------------------------- *)
32 (* *)
33 (* xxx/xxxxx.xx0 *)
34 (* ^-----------sPos *)
35 (* ^-----dPos *)
36 (* ------------------------- *)
37 (* after *)
38 (* ------------------------- *)
55 (* ==================================================================== *)
64 BEGIN
65 (* ------------------------- *)
66 (* Index 012... v--LEN *)
67 (* xxxxxxxxxxxx0 *)
68 (* ^---------------sPos *)
69 (* ^--dPos *)
70 (* ------------------------- *)
71 (* before *)
72 (* ------------------------- *)
73 (* *)
74 (* xxx!xxxxx.xx0 *)
75 (* ^-----------sPos *)
76 (* ^-----dPos *)
77 (* ------------------------- *)
78 (* after *)
79 (* ------------------------- *)
96 (* ==================================================================== *)
102 BEGIN
109 (* ==================================================================== *)
115 BEGIN
125 (* ==================================================================== *)
126 BEGIN