1package Opt67_Pkg is
2
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;
7
8  type TSS_Name_Type is new String (1 .. 2);
9  subtype TNT is TSS_Name_Type;
10
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";
16
17  function Make_TSS_Name (Typ : Entity_Id; Nam : TSS_Name_Type) return Name_Id;
18
19  function Stream_Operation_OK (N : Entity_Id; Name : TNT) return Boolean;
20
21  procedure Append_To (N1 : Natural; N2 : Node_Id);
22
23  function Predef (Loc : Source_Ptr; Name : Name_Id; E : Entity_Id)
24    return Node_Id;
25
26  function Init return Natural;
27
28end Opt67_Pkg;
29