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