Return to Time.cr CVS log

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

BSD 4.3tahoe

Time : PROGRAM =

BEGIN

    -- This is a translation of the tm structure in <time.h>

    Time : TYPE = RECORD [
	tm_sec,
	tm_min,
	tm_hour,
	tm_mday,
	tm_mon,
	tm_year,
	tm_wday,
	tm_yday,
	tm_isdst : LONG CARDINAL
    ];

    -- Remote entry points.

    LocalTime : PROCEDURE RETURNS [time : Time]
		    = 0;

    GMTime : PROCEDURE RETURNS [time : Time]
		    = 1;
END.

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