DataMuseum.dk

top - download

    Length: 4350 (0x10fe)
    Types: TextFile
    Names: »B«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

-------------------------------------------------------------------------------
with Umps_Defs;
with Text_Io;

package body Temporary is

    Max_Index : constant Natural := 100;

    subtype Private_String is String (1 .. 200);
    type    Private_Range  is range 1 .. Max_Index;
    type    A_Table        is array (Private_Range range <>) of Private_String;

    The_Table : A_Table (Private_Range);

    Current_Index : Private_Range := Private_Range'First;
    Adding_Index  : Private_Range := Private_Range'First;

    ---------------------------------------------------------------------------
    procedure Add_Table (The_String : String) is

    begin
        if (Adding_Index in Private_Range) then
            Umps_Defs.Normalize (The_String, The_Table (Adding_Index));
            Adding_Index := Private_Range'Succ (Adding_Index);
        end if;
    end Add_Table;

    ---------------------------------------------------------------------------
    procedure Init is
    begin
        Current_Index := Private_Range'First;
        Add_Table ("Request,Register, 0, 1, 0,Date, 1,The_Date, String,");
        Add_Table ("Request,Register, 0, 1, 0,Time, 1,The_Time, Integer,");

        Add_Table
           ("Request,Register, 0, 2, 0,Open, 2,File, String,aga,Rights, string,");
        Add_Table
           ("Request,Register, 0, 2, 0,Open_File, 1,File, String,toto.c");
        Add_Table
           ("Request,Register, 0, 2, 0,Open_File, 1,File, String,toto.c");
        Add_Table ("Request,Register, 0, 2, 0,Open_@, 1,File, String,toto.c");

        Add_Table
           ("Request,Register, 0, 3, 0,Display, 1,The_Number, Integer,12");
        Add_Table
           ("Request,Register, 0, 3, 0,Open_Display, 1,Terminal, String,asperule:0");

        Add_Table ("Request,Observed, 0, 1, 0,Open_File, 1,File, String,");

        Add_Table ("Request,Query, 0, 1, 0,@, 0,");
        Add_Table ("Request,Query, 0, 1, 0,Open@, 0,");

        Add_Table ("Notice,Observed, 0, 1, 0,File,Open@, 0,");
        Add_Table ("Notice,Observed, 0, 1, 0,File,Close, 0,");

        --
        Add_Table ("Request,Send, 0, 2, 0,Date,1,The_Date, String,");
        Add_Table ("Request,Done, 0, 1, 2,Date,1,The_Date, String,16 avril 93");

        Add_Table
           ("Request,Send, 0, 1, 0,Open,2,File, String,toto.c,Rights, String,rw");
        Add_Table
           ("Request,Done, 0, 2, 1,Open,2,File, String,toto.c,Rights, String,rw");

        Add_Table ("Notice,Send, 0, 2, 3,File,Close,1,File, String,toto.c");

        Add_Table
           ("Request,Send, 0, 1, 3,Print,1,The_Date, String,16 avril 93");

        Add_Table ("Request,Send, 0, 2, 0,Date,1,The_Date, String,");
        Add_Table ("Request,Send, 0, 2, 0,Date,1,The_Date, String,");
        Add_Table ("Request,Done, 0, 1, 2,Date,1,The_Date, String,16 avril 93");

        Add_Table ("Request,Send, 0, 2, 0,Date,1,The_Date, String,");
        Add_Table ("Request,Done, 0, 1, 2,Date,1,The_Date, String,16 avril 93");



    end Init;


    ---------------------------------------------------------------------------
    procedure Put (The_Message : String; Message_Sended : out Boolean) is

    begin
        Message_Sended := True;
        Text_Io.Put_Line (The_Message);
    end Put;

    ---------------------------------------------------------------------------
    procedure Get (A_Message         : in out String;
                   Message_Size      : out    Natural;
                   A_Message_Receive : out    Boolean) is
        Index : Natural;

    begin  
        if (Current_Index < Adding_Index) then
            A_Message_Receive := True;  
            Index             := 0;
            Search_End_Char:
                for I in The_Table (Current_Index)'Range loop
                    exit Search_End_Char when
                       The_Table (Current_Index) (I) = Ascii.Nul;
                    Index := I;
                end loop Search_End_Char;
            Message_Size := Index;
            Umps_Defs.Normalize
               (The_Table (Current_Index) (1 .. Index), A_Message);
            Current_Index := Private_Range'Succ (Current_Index);
        else
            A_Message_Receive := False;
            Message_Size      := 0;
        end if;
    end Get;

end Temporary;
-------------------------------------------------------------------------------