|
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 - metrics - download
Length: 719 (0x2cf)
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«
└─⟦f713fbf02⟧
└─⟦this⟧
--
-- ======> P O U R M A T H I S & C O
-- ======> P O U R M A T H I S & C O
-- ======> P O U R M A T H I S & C O
--
package Lex is
type Token is (Integer, Float, Id, '+', '-', Etc);
end Lex;
with Lex;
procedure Test_Lex is
T1 : Lex.Token;
T2 : Lex.Token := Lex.Float;
T3 : Lex.Token := Lex.Token'(Lex.Id);
Entier : constant Lex.Token := Lex.Integer;
function Float return Lex.Token renames Lex.Float;
begin
T1 := Entier;
T2 := Float;
declare
use Lex;
begin
T3 := '+';
T3 := Token'('-');
T3 := Etc;
end;
end Test_Lex;
--
-- ceci fonctionne parfaitement. B. Thirion
-