DataMuseum.dk

top - download

    Length: 849 (0x351)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 

TextFile

package body Tad_Parameter is

    procedure Create_New_Param (The_Object : out Object; The_Order : Natural) is
        New_Name : String (1 .. 20) := ("noname              ");
    begin
        The_Object := Object'(New_Name, The_Order);
    end Create_New_Param;

    procedure Set_Name (The_Object : in out Object; The_Name : String) is
    begin
        The_Object.Name (1 .. The_Name'Last) := The_Name;
    end Set_Name;

    function Get_Order (The_Object : Object) return Natural is
    begin
        return The_Object.Order;
    end Get_Order;

    function Get_Name (The_Object : Object) return String is
    begin
        return The_Object.Name;
    end Get_Name;

    function Compare_Order (Object1, Object2 : Object) return Integer is
    begin
        return Object1.Order - Object2.Order;
    end Compare_Order;

end Tad_Parameter;