3 type Source_Ptr
is new Natural;
4 type Entity_Id
is new Natural;
5 type Node_Id
is new Natural;
6 type Name_Id
is new Natural;
8 type TSS_Name_Type
is new String (1 .. 2);
9 subtype TNT
is TSS_Name_Type
;
11 TSS_Stream_Input
: constant TNT
:= "SI";
12 TSS_Stream_Output
: constant TNT
:= "SO";
13 TSS_Stream_Read
: constant TNT
:= "SR";
14 TSS_Stream_Write
: constant TNT
:= "SW";
15 TSS_To_Any
: constant TNT
:= "TA";
17 function Make_TSS_Name
(Typ
: Entity_Id
; Nam
: TSS_Name_Type
) return Name_Id
;
19 function Stream_Operation_OK
(N
: Entity_Id
; Name
: TNT
) return Boolean;
21 procedure Append_To
(N1
: Natural; N2
: Node_Id
);
23 function Predef
(Loc
: Source_Ptr
; Name
: Name_Id
; E
: Entity_Id
)
26 function Init
return Natural;