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     ! 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.