|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
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⟧
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