DataMuseum.dk

top - download

    Length: 1620 (0x654)
    Types: TextFile
    Notes: R1k Text-file segment

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦20d3fed8f⟧ 
            └─⟦this⟧ 

TextFile

With INT_LIB, LISTS, BOUNDED_STRING;
Package Table is
 
Procedure PUT(In_Table : INT_LIB.I_Table; At_Index : Natural ; The_String : String);

End Table;

Package body Table is
  Procedure PUT(In_Table : INT_LIB.I_Table; At_Index : Natural ; The_String : String) is
  Tmp_String : INT_LIB.I_String;

  BEGIN
   BOUNDED_STRING.COPY(Tmp_String,The_String);
   LISTS.ATTACH(Tmp_String,In_Table(At_Index));
  END;

END TABLE;

With LISTS, INT_LIB, TEXT_IO, TOKEN_PKG, TABLE;
Package INTEGER_IO is New TEXT_IO.INTEGER_IO(INTEGER);
With INTEGER_IO;

Procedure Test_int is
Verb : INT_LIB.I_Table(1..4);
Object : INT_LIB.I_Table(1..4);
Direction :INT_LIB.I_Table(1..4);
tab : INT_LIB.I_Result;
BEGIN
  TABLE.PUT(Verb,1,"MANGER");
  TABLE.PUT(Verb,1,"BOUFFER");
  TABLE.PUT(Verb,2,"PRENDRE");
  TABLE.PUT(Verb,3,"UTILISER");
  TABLE.PUT(Verb,4,"REGARDER");
  TABLE.PUT(Verb,4,"EXAMINER");

  TABLE.PUT(Object,1,"POMME");
  TABLE.PUT(Object,2,"CLE_EN_OR");
  TABLE.PUT(Object,3,"PORTE");
  TABLE.PUT(Object,4,"LAMPE");

  TABLE.PUT(Direction,1,"NORD");
  TABLE.PUT(Direction,1,"N");
  TABLE.PUT(Direction,2,"SUD");
  TABLE.PUT(Direction,2,"S");
  TABLE.PUT(Direction,3,"EST");
  TABLE.PUT(Direction,3,"E");
  TABLE.PUT(Direction,4,"OUEST");
  TABLE.PUT(Direction,4,"O");

  For i in 1..10
  Loop
   INT_LIB.INTERPRETOR(Verb,Object,Direction,Tab);
   index := 1;
   While Tab(index).Token /= Token_Pkg.T_END
   Loop
    TEXT_IO.PUT(TOKEN_Pkg.TOKEN'IMAGE(Tab(index).Token));
    TEXT_IO.PUT(" - index : ");
    INTEGER_IO.PUT(Tab(index).Index,2,10);
    TEXT_IO.NEW_LINE;
    index := index + 1;
   End Loop;
  End Loop;
End Test_int