(******************************************************************************
*                                DATE11 .DEF                                  *
*                              ABO Software Dep.                              *
* Purpose : To provide a simple date class                                    *
*                                                                             *
*   Notes :                                                                   *
*                                                                             *
*         Version Date : 10/6/92                                              *
******************************************************************************)
DEFINITION MODULE DATE11;

FROM DATA21 IMPORT Tuple,TuplePtr;
FROM OBJ11 IMPORT Object;
FROM FIO IMPORT File;
CONST

TYPE

CLASS Date(Tuple);
	y,m,d:INTEGER;
PROCEDURE create(d,m,y:INTEGER);
PROCEDURE untill(VAR d:Date):Date;
VIRTUAL PROCEDURE clear;
VIRTUAL PROCEDURE copy(VAR o:Object);
VIRTUAL PROCEDURE eq(VAR t:Tuple ):BOOLEAN ;
VIRTUAL PROCEDURE lt(VAR t:Tuple ):BOOLEAN ;
VIRTUAL PROCEDURE gt(VAR t:Tuple ):BOOLEAN ;
VIRTUAL PROCEDURE rd(f:File);
VIRTUAL PROCEDURE wr(f:File);
VIRTUAL PROCEDURE wrheader(f:File);
VIRTUAL PROCEDURE rdheader(f:File);
END Date;

END DATE11.