|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1669 (0x685) Types: TextFile Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦478e60046⟧ └─⟦this⟧
package CALENDAR is type time is private; subtype year_number is integer range 1901 .. 2099; subtype month_number is integer range 1 .. 12; subtype day_number is integer range 1 .. 31; subtype day_duration is duration range 0.0 .. 86_400.0; function clock return time; function year (date: time) return year_number; function month (date: time) return month_number; function day (date: time) return day_number; function seconds(date: time) return day_duration; procedure split (date : in time; year : out year_number; month : out month_number; day : out day_number; seconds: out day_duration); function time_of(year : year_number; month : month_number; day : day_number; seconds: day_duration := 0.0) return time; function "+" (left: time; right: duration) return time; function "+" (left: duration;right: time) return time; function "-" (left: time; right: duration) return time; function "-" (left: time; right: time) return duration; function "<" (left, right: time) return boolean; function "<=" (left, right: time) return boolean; function ">" (left, right: time) return boolean; function ">=" (left, right: time) return boolean; time_error : exception; private type time is record julian_day: integer; -- Julian Day Number sec: duration; end record; end