DataMuseum.dk

top - download

    Length: 1482 (0x5ca)
    Types: TextFile
    Names: »V«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Mac_Types;
package Mac_Text is

    Maximum : constant Integer := Integer'Last;
    subtype Index is Integer range 0 .. Maximum;
    type String is array (Natural range <>) of Mac_Types.Char;

    type Text (Maximum_Length : Index) is limited private;

    function Length (T : Text) return Index;  
    procedure Set_Length (T : in out Text; L : Index);
    function Maximum_Length (T : Text) return Index;

    function Value (T : Text) return String;
    function Value (T : Text) return Mac_Types.Str255;
    function Value (Where : Index; T : Text) return Mac_Types.Char;

    function Empty (T : Text) return Boolean;
    procedure Set_Empty (T : in out Text);

    function To_Text (S : String; Max : Index) return Text;
    function To_Text (C : Mac_Types.Char; Max : Index) return Text;
    function To_Text (S : String) return Text;
    function To_Text (C : Mac_Types.Char) return Text;

    procedure Set (T : in out Text; Value : Text);
    procedure Set (T : in out Text; Value : String);
    procedure Set (T : in out Text; Value : Mac_Types.Char);

    procedure Append (Tail : Text; To : in out Text);
    procedure Append (Tail : String; To : in out Text);
    procedure Append (Tail : Mac_Types.Char; To : in out Text);

    function As_Ptr (T : Text) return Mac_Types.Ptr;

private

    type Text (Maximum_Length : Index) is
        record
            Length : Index := 0;
            Value : String (1 .. Maximum_Length);
        end record;

end Mac_Text;