Return to Time.cr CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / courier / examples / time

Annotation of 43BSD/contrib/courier/examples/time/Time.cr, revision 1.1.1.1

1.1       root        1: Time : PROGRAM =
                      2: 
                      3: BEGIN
                      4: 
                      5:     -- This is a translation of the tm structure in <time.h>
                      6: 
                      7:     Time : TYPE = RECORD [
                      8:        tm_sec,
                      9:        tm_min,
                     10:        tm_hour,
                     11:        tm_mday,
                     12:        tm_mon,
                     13:        tm_year,
                     14:        tm_wday,
                     15:        tm_yday,
                     16:        tm_isdst : LONG CARDINAL
                     17:     ];
                     18: 
                     19:     -- Remote entry points.
                     20: 
                     21:     LocalTime : PROCEDURE RETURNS [time : Time]
                     22:                    = 0;
                     23: 
                     24:     GMTime : PROCEDURE RETURNS [time : Time]
                     25:                    = 1;
                     26: END.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.