TYPE
Address = POINTER TO AddressRec;
AddressRec =
RECORD
(Objects.ObjectRec)
name, email, address: ARRAY 128 OF CHAR;
phone: ARRAY 32 OF CHAR;
END;
PROCEDURE HashByName
(object: Objects.Object) : Hashes.HashValue;
PROCEDURE HashByPhone
(object: Objects.Object) : Hashes.HashValue;
PROCEDURE HashByEmail
(object: Objects.Object) : Hashes.HashValue;
PROCEDURE EqualByName
(object1, object2: Objects.Object) : BOOLEAN;
PROCEDURE EqualByPhone
(object1, object2: Objects.Object) : BOOLEAN;
PROCEDURE EqualByEmail
(object1, object2: Objects.Object) : BOOLEAN;
PROCEDURE Hashable(object: Objects.Object) : BOOLEAN;
PROCEDURE ReadFromFile(s: Streams.Stream;
VAR address: Address) : BOOLEAN;
PROCEDURE WriteToFile(s: Streams.Stream;
address: Address) : BOOLEAN;
PROCEDURE ReadFromUser(s: Streams.Stream;
VAR address: Address) : BOOLEAN;
PROCEDURE PrettyPrint(s: Streams.Stream; address: Address);
|