home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / turbo_part1.lha / modula / ansi-c / Time.def < prev   
Encoding:
Text File  |  1995-01-24  |  1.1 KB  |  44 lines
  1. DEFINITION FOR C MODULE Time ;
  2.  
  3. FROM SYSTEM IMPORT STRING, ADDRESS ;
  4.  
  5. CONST
  6.   CLOCKS_PER_SEC = 50 ;
  7.  
  8. TYPE
  9.   clock_t = LONGCARD ;(* Make sure range checking is off when you use clock_t *)
  10.  
  11.   time_t  = LONGINT ;
  12.  
  13.   tm = RECORD
  14.     sec   : LONGINT ;   (*  0-59            *)
  15.     min   : LONGINT ;   (*  0-59            *)
  16.     hour  : LONGINT ;   (*  0-23            *)
  17.     mday  : LONGINT ;   (*  1-31            *)
  18.     mon   : LONGINT ;   (*  0-11            *)
  19.     year  : LONGINT ;   (*  n+1900            *)
  20.     wday  : LONGINT ;   (*  (sun)0-6            *)
  21.     yday  : LONGINT ;   (*  0-366            *)
  22.     isdst : LONGINT ;   (* daylight savings time flag    *)
  23.   END ;
  24.   tmPtr = POINTER TO tm ;
  25.  
  26. PROCEDURE asctime( VAR ctm : tm ) : STRING ;
  27. PROCEDURE clock( ) : clock_t  ;
  28. PROCEDURE time( VAR tp : time_t ) ;
  29.  
  30. PROCEDURE ctime( VAR ctm : time_t ) : STRING ;
  31. PROCEDURE gmtime( VAR t : time_t ) : tmPtr ;
  32. PROCEDURE localtime( VAR ctm : time_t ) : tmPtr ;
  33. PROCEDURE mktime( VAR t : tm ) : time_t ;
  34.  
  35. PROCEDURE strftime(     str  : STRING ;
  36.                 smax : LONGINT ;
  37.                 fmt  : STRING ;
  38.             VAR tmm  : tm ) : LONGINT ;
  39.  
  40. PROCEDURE difftime( t1 , t2 : time_t ) : LONGREAL ;
  41.  
  42. END Time.
  43.  
  44.