|
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: 897 (0x381)
Types: TextFile
Names: »V«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─⟦124ff5788⟧ »DATA«
└─⟦this⟧
with Bounded_String_Generic;
with Signature;
package Method is
type Object is private;
function Create (Name : String; Signature : Standard.Signature.Object)
return Method.Object;
function Image (Method : Standard.Method.Object) return String;
function Value (Of_String : String) return Method.Object;
function Is_Equal (Left, Right : Method.Object) return Boolean;
function Is_Compatible (Left, Right : Method.Object) return Boolean;
function Get_Name (Method : Standard.Method.Object) return String;
function Get_Signature (Method : Standard.Method.Object)
return Signature.Object;
private
package Bs is new Bounded_String_Generic (Size => 80);
type Object is
record
Name : Bs.Variable_String;
Signature : Standard.Signature.Object;
end record;
end Method;