DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 519 (0x207) Types: TextFile Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11 └─ ⟦129cab021⟧ »DATA« └─⟦this⟧
with Scanner; with Statements; package Unparser is procedure Start (The_Root : Statements.Node; From_File : String; To_File : String); procedure Put (The_String : String; At_Col : Natural := 0); procedure Put (The_Lexeme : Scanner.Lexeme; At_Col : Natural := 0); procedure New_Line; procedure New_Right (The_String : String); procedure New_Left (The_String : String); procedure Go (The_Root : Statements.Node); procedure Stop; end Unparser;