Topspeed_JPI/gpm/M2SYM/ASCIITIM.DEF

FOREIGN DEFINITION MODULE AsciiTime;
    IMPORT IMPLEMENTATION FROM "asciitime.obj";

   (* ========================================================= *)
   (*  This module converts Time in the structure specified in  *)
   (*  the MODULE SysClock into a printable ascii string.       *)
   (*  There is also a procedure for converting time in the     *)
   (*  "seconds since 1970 " cardinal form, into a DateTime     *)
   (*  structure.                                               *)
   (*                                                           *)
   (*  Note : This module is useful in conjunction with the     *)
   (*  the procedures for obtaining the time that are present   *)
   (*  in the UxFiles, and ProgArgs MODULES.                    *) 
   (* ========================================================= *)

FROM SysClock IMPORT DateTime;

PROCEDURE StructTimeToAscii(VAR str:ARRAY OF CHAR; time:DateTime);

(*
-- Places ascii representation of 'time' in 'str'. If there is
-- not enough room in 'str' then the representation is truncated
-- as required by the strings length. If there is adequate length
-- then the string is terminated with a null character.
*)



PROCEDURE TimeToStructTime(time : CARDINAL; VAR structTime:DateTime);
(* Converts time cardinals into the structured form. *)

END AsciiTime.