DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦617c845eb⟧ TextFile

    Length: 1780 (0x6f4)
    Types: TextFile
    Names: »B«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

separate (Compilation_Unit)
--with Text_IO ;
procedure Add_Token_To_Compilation_Unit
             (Token_To_Add : in Token_Package.Token;
              Unit_To_Add_To : in out Ada_Compilation_Unit) is
    --==================================================================
    -- Append a token to the end of a given compilation unit          ==
    --==================================================================

    Location_Of_Token : New_List.List;
    Tail_Of_Unit : New_List.List;
    Copy_Of_Unit : New_List.List;

begin
    -- Add_Token_To_Compilation_Unit

    New_List.Share (The_List => New_List.List (Unit_To_Add_To),
                    With_The_List => Copy_Of_Unit);

    New_List.Construct (New_Item => Token_To_Add,
                        And_The_List => Location_Of_Token);

    if New_List.Is_Equal (Copy_Of_Unit, New_List.Null_List) then

        New_List.Share (The_List => Location_Of_Token,
                        With_The_List => New_List.List (Unit_To_Add_To));

    else

        New_List.Share (The_List => New_List.Tail_Of (Copy_Of_Unit),
                        With_The_List => Tail_Of_Unit);

        New_List.Append (This_List => Tail_Of_Unit,
                         And_This_List => Location_Of_Token);

    end if;

    --   Text_IO.Put
    --      ("CLASS => " &
    --  Token_Package.Token_Class'Image
    --     (Token_Package.Class_Of(Token_To_Add))) ;
    --   case Token_Package.Class_Of(Token_To_Add) is
    --      when Token_Package.Identifier .. Token_Package.Punctuation =>
    --         Text_IO.Set_Col(30) ;
    --         Text_IO.Put_Line
    --            (Token_Package.Value_Of(Token_To_Add)) ;
    --
    --     when others =>
    --         Text_IO.New_Line ;
    --   end case ;

end Add_Token_To_Compilation_Unit;