immutable class TIMES < $ORDERED{TIMES}, $HASH, $BINARY, $TEXT,


Ancestors
$ANCHORED_FMT $FMT $STR $TEXT
$BINARY $HASH $IS_EQ $ORDERED{_}
$IS_LT{_} $VALUE{_} $NIL $IS_NIL



Public


Features
binstr : BINSTR .. Included as binstr
build( .. Included as build
build( .. Included as build
count : CARD .. Included as count
create(str : BINSTR) : SAME .. Included as create
create( .. Included as create
create( .. Included as create
fmt( .. Included as fmt
fmt( .. Included as fmt
following( .. Included as following
hash : CARD .. Included as hash
hour : CARD .. Included as hour
is_eq( .. Included as is_eq
is_eq(other : $OB) : BOOL .. Included as is_eq
**** This is the generic equality predicate. c.f. the class $IS_EQ
is_lt( .. Included as is_lt
is_nil : BOOL .. Included as is_nil
is_time( .. Included as is_time
millisecs : CARD .. Included as millisecs
minus( .. Included as minus
minus( .. Included as minus
minute : CARD .. Included as minute
nil : SAME .. Included as nil
now : SAME .. Included as now
null : SAME
plus( .. Included as plus
previous( .. Included as previous
read(index : BIN_CURSOR) : SAME .. Included as read
second : CARD .. Included as second
str( .. Included as str
str : STR .. Included as str
write(fyle : BIN_FILE) .. Included as write


Private

const Hours_per_Day : CARD := 24 ;
const Millisecs_per_Day : CARD := Millisecs_per_Hr * Hours_per_Day ;
const Millisecs_per_Hr : CARD := Millisecs_per_Min *
const Millisecs_per_Min : CARD := Millisecs_per_Sec *
const Millisecs_per_Sec : CARD := 1000 ;
const Minutes_per_Hour : CARD := 60 ;
const Seconds_per_Min : CARD := 60 ;
scan( .. Included as scan
attr val : CARD ;
**** in milliseconds.
attr val : CARD ;
**** in milliseconds.

The Sather Home Page