program timebug(output); (*
Dr. Thomas D. Schneider National Cancer Institute Laboratory of Experimental and Computational Biology Frederick, Maryland 21702-1201 toms@ncifcrf.gov permanent email: toms@alum.mit.edu http://www.lecb.ncifcrf.gov/~toms/
According to: 8.255 TimeStamp http://agnes.dida.physik.uni-essen.de/~gnu-pascal/gpc_389.html#SEC389 and
7.10.8 Date And Time Routines http://agnes.dida.physik.uni-essen.de/~gnu-pascal/gpc_109.html#SEC109
and also http://agnes.dida.physik.uni-essen.de/~gnu-pascal/gpc_114.html#SEC114 (TIME HANDLING ROUTINES)
but
timebug.p: In function `pascal_main_program': timebug.p:57: TimeStamp record type parameter required
What did I do wrong?
*)
const
version = 1.00; (* of timebug.p 2000 July 17 origin 2000 Jul 17 *)
type
TimeStamp = {@@packed} record DateValid, TimeValid : Boolean; Year : Integer; Month : 1 .. 12; Day : 1 .. 31; DayOfWeek : 0 .. 6; { 0 means Sunday } Hour : 0 .. 23; Minute : 0 .. 59; Second : 0 .. 61; { to allow for leap seconds } MicroSecond : 0 .. 999999 end;
var t: TimeStamp;
begin GetTimeStamp(t); end.
-
Tom Schneider