|
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 - metrics - downloadIndex: B T
Length: 688 (0x2b0)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
with Lex;
with Statements;
with Object;
with Text_Io;
with Unparser;
procedure Essai_Unparse (The_File : String) is
Node : Statements.Node;
Bool : Boolean;
Monobjet : Object.Reference;
package Io is new Text_Io.Integer_Io (Integer);
begin
Lex.Open (The_File);
Lex.Next_Token;
Text_Io.Put_Line
("------------------- HI! HI! HI! JE PARSE LE FICHIER -----------------------");
Statements.Parse (Node, Bool);
Lex.Close (The_File);
Unparser.Create ("tata");
Text_Io.Put_Line
("------------------ HI! HI! HI! J'UNPARSE LE FICHIER -----------------------");
Statements.Unparse (Node);
Unparser.Close ("tata");
end Essai_Unparse;