|
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: 680 (0x2a8)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
package Lex is
type Token is (L_Ok, L_Start, L_Int, L_Real, L_Oper, L_Id, L_Unk, L_Eof);
Currentvalue : String (1 .. 256) := (1 .. 256 => ' ');
Currenttoken : Token;
procedure Lexopen (Afile : in out Integer);
procedure Lexnext;
end Lex;
-- Exemple de type mutable
-- Auteur : Sebastien BROCHET
-- Date : 7 Novembre 93
-- remarque : il ne faut pas de type non contraint dans un record
-- il ne faut pas deux champ de meme nom fonction d'un discriminant
-- il ne faut pas de champ apres la partie variable du record
-- function "*"(left:natural;right:character) return string is
-- begin
-- return string'(1..left=>right);
-- end "*";