/* date/time example 10-19-00, revised 08-02-01, 03-02-02 AG */

/* the following require a UNIXish date command */

public curdate;	// date and time info in ASCII format, split into a tuple
		// (day of week, month, day, time of day, timezone, year)
public curtime;	// current time as (h,m,s) tuple

curdate		= tuple (filter (<>"")
                         (split " " (freads (popen "date" "r"))));
curtime		= tuple (map (flip sscanf "%d") (split ":" (curdate!3)));