|
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: T V
Length: 741 (0x2e5)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
-- Messages Unaires :
-- Moins
-- En_Texte
-- Image
-- Attend
-- Au_Hasard
-- Messages binaires :
-- + - * /
-- = /= < > <= >=
-- Messages a Selecteurs :
-- Fois:
-- A: Repeter:
-- Puissance:
with Object;
with Message;
package Class_Integer is
function Send (This_Message : Message.Unary; To : Object.Reference)
return Object.Reference;
function Send (This_Message : Message.Binary; To : Object.Reference)
return Object.Reference;
function Send (This_Message : Message.Keyword; To : Object.Reference)
return Object.Reference;
procedure Put (An_Object : Object.Reference);
function Create (Value : Object.Index := 0) return Object.Reference;
end Class_Integer;