indexing
description: "Absolute times"
legal: "See notice at end of class."
status: "See notice at end of class."
date: "$Date: 2006-01-22 18:25:44 -0800 (Sun, 22 Jan 2006) $"
revision: "$Revision: 56675 $"
access: time
class interface
TIME
create
make (h, m, s: INTEGER_32)
minutesecond`h'`m'`s'
require
correct_time: is_correct_time (h, m, s, False)
ensure
hour_set: hour = h
minute_set: minute = m
second_set: second = s
fractional_second_set: fractional_second = 0
make_fine (h, m: INTEGER_32; s: REAL_64)
minutesecond`h'`m'
`s'
fractional_second`s'
require
correct_time: is_correct_time (h, m, s, False)
ensure
hour_set: hour = h
minute_set: minute = m
fine_second_set: fine_second = s
make_now
make_now_utc
make_by_seconds (sec: INTEGER_32)
`sec'
require
s_large_enough: sec >= 0
s_small_enough: sec < seconds_in_day
ensure
seconds_set: seconds = sec
make_by_fine_seconds (sec: REAL_64)
`sec'
require
s_large_enough: sec >= 0
s_small_enough: sec < seconds_in_day
make_from_string (s: STRING_8; code: STRING_8)
`code'
require
s_exists: s /= Void
c_exists: code /= Void
time_valid: time_valid (s, code)
make_from_string_default (s: STRING_8)
default_format_string
require
s_exists: s /= Void
time_valid: time_valid (s, default_format_string)
make_by_compact_time (c_t: INTEGER_32)
compact_time
require
c_t_valid: compact_time_valid (c_t)
ensure
compact_time_set: compact_time = c_t
feature
make (h, m, s: INTEGER_32)
minutesecond`h'`m'`s'
require
correct_time: is_correct_time (h, m, s, False)
ensure
hour_set: hour = h
minute_set: minute = m
second_set: second = s
fractional_second_set: fractional_second = 0
make_by_compact_time (c_t: INTEGER_32)
compact_time
require
c_t_valid: compact_time_valid (c_t)
ensure
compact_time_set: compact_time = c_t
make_by_fine_seconds (sec: REAL_64)
`sec'
require
s_large_enough: sec >= 0
s_small_enough: sec < seconds_in_day
make_by_seconds (sec: INTEGER_32)
`sec'
require
s_large_enough: sec >= 0
s_small_enough: sec < seconds_in_day
ensure
seconds_set: seconds = sec
make_fine (h, m: INTEGER_32; s: REAL_64)
minutesecond`h'`m'
`s'
fractional_second`s'
require
correct_time: is_correct_time (h, m, s, False)
ensure
hour_set: hour = h
minute_set: minute = m
fine_second_set: fine_second = s
make_from_string (s: STRING_8; code: STRING_8)
`code'
require
s_exists: s /= Void
c_exists: code /= Void
time_valid: time_valid (s, code)
make_from_string_default (s: STRING_8)
default_format_string
require
s_exists: s /= Void
time_valid: time_valid (s, default_format_string)
make_now
make_now_utc
feature
date_time_tools: DATE_TIME_TOOLS
TIME_UTILITY
default_format_string: STRING_8
TIME_UTILITY
generating_type: STRING_8
ANY
generator: STRING_8
ANY
hours_in_day: INTEGER_32 is 24
TIME_CONSTANTS
minutes_in_hour: INTEGER_32 is 60
TIME_CONSTANTS
origin: TIME
ensure ABSOLUTE
result_exists: Result /= Void
seconds_in_day: INTEGER_32 is 86400
TIME_CONSTANTS
seconds_in_hour: INTEGER_32 is 3600
TIME_CONSTANTS
seconds_in_minute: INTEGER_32 is 60
TIME_CONSTANTS
time_default_format_string: STRING_8
TIME_CONSTANTS
feature
duration: TIME_DURATION
require ABSOLUTE
True
ensure then
seconds_large_enough: duration.seconds_count >= 0
seconds_small_enough: duration.seconds_count < seconds_in_day
fine_seconds: REAL_64
seconds: INTEGER_32
ensure
result_definition: Result = duration.seconds_count
feature
frozen deep_equal (some: ANY; other: like arg #1): BOOLEAN
`some'`other'
ANY
ensure ANY
shallow_implies_deep: standard_equal (some, other) implies Result
both_or_none_void: (some = Void) implies (Result = (other = Void))
same_type: (Result and (some /= Void)) implies some.same_type (other)
symmetric: Result implies deep_equal (other, some)
frozen equal (some: ANY; other: like arg #1): BOOLEAN
`some'`other'
ANY
ensure ANY
definition: Result = (some = Void and other = Void) or else ((some /= Void and other /= Void) and then some.is_equal (other))
is_equal (other: like Current): BOOLEAN
`other'
COMPARABLE
require ANY
other_not_void: other /= Void
ensure ANY
symmetric: Result implies other.is_equal (Current)
consistent: standard_is_equal (other) implies Result
ensure then COMPARABLE
trichotomy: Result = (not (Current < other) and not (other < Current))
max (other: like Current): like Current
`other'
COMPARABLE
require COMPARABLE
other_exists: other /= Void
ensure COMPARABLE
current_if_not_smaller: Current >= other implies Result = Current
other_if_smaller: Current < other implies Result = other
min (other: like Current): like Current
`other'
COMPARABLE
require COMPARABLE
other_exists: other /= Void
ensure COMPARABLE
current_if_not_greater: Current <= other implies Result = Current
other_if_greater: Current > other implies Result = other
frozen standard_equal (some: ANY; other: like arg #1): BOOLEAN
`some'`other'
ANY
ensure ANY
definition: Result = (some = Void and other = Void) or else ((some /= Void and other /= Void) and then some.standard_is_equal (other))
frozen standard_is_equal (other: like Current): BOOLEAN
`other'
ANY
require ANY
other_not_void: other /= Void
ensure ANY
same_type: Result implies same_type (other)
symmetric: Result implies other.standard_is_equal (Current)
three_way_comparison (other: like Current): INTEGER_32
`other'
COMPARABLE
require COMPARABLE
other_exists: other /= Void
ensure COMPARABLE
equal_zero: (Result = 0) = is_equal (other)
smaller_negative: (Result = -1) = (Current < other)
greater_positive: (Result = 1) = (Current > other)
infix "<" (other: like Current): BOOLEAN
`other'
require PART_COMPARABLE
other_exists: other /= Void
ensure then COMPARABLE
asymmetric: Result implies not (other < Current)
infix "<=" (other: like Current): BOOLEAN
`other'
COMPARABLE
require PART_COMPARABLE
other_exists: other /= Void
ensure then COMPARABLE
definition: Result = ((Current < other) or is_equal (other))
infix ">" (other: like Current): BOOLEAN
`other'
COMPARABLE
require PART_COMPARABLE
other_exists: other /= Void
ensure then COMPARABLE
definition: Result = (other < Current)
infix ">=" (other: like Current): BOOLEAN
`other'
COMPARABLE
require PART_COMPARABLE
other_exists: other /= Void
ensure then COMPARABLE
definition: Result = (other <= Current)
feature
conforms_to (other: ANY): BOOLEAN
`other'
ANY
require ANY
other_not_void: other /= Void
same_type (other: ANY): BOOLEAN
`other'
ANY
require ANY
other_not_void: other /= Void
ensure ANY
definition: Result = (conforms_to (other) and other.conforms_to (Current))
feature
copy (other: like Current)
`other'
ANY
require ANY
other_not_void: other /= Void
type_identity: same_type (other)
ensure ANY
is_equal: is_equal (other)
frozen deep_copy (other: like Current)
copy`other'deep_twin
ANY
require ANY
other_not_void: other /= Void
ensure ANY
deep_equal: deep_equal (Current, other)
frozen deep_twin: like Current
ANY
ensure ANY
deep_equal: deep_equal (Current, Result)
frozen standard_copy (other: like Current)
`other'
ANY
require ANY
other_not_void: other /= Void
type_identity: same_type (other)
ensure ANY
is_standard_equal: standard_is_equal (other)
frozen standard_twin: like Current
`other'
ANY
ensure ANY
standard_twin_not_void: Result /= Void
equal: standard_equal (Result, Current)
frozen twin: like Current
`Current'
twincopycopy
ANY
ensure ANY
twin_not_void: Result /= Void
is_equal: Result.is_equal (Current)
feature
frozen default: like Current
ANY
frozen default_pointer: POINTER
`POINTER'
`p'default
`p'`POINTER'
ANY
default_rescue
ANY
frozen do_nothing
ANY
fine_second_add (f: REAL_64)
`f'
`f'fractional_second
hour_add (h: INTEGER_32)
`h'
hour_back
hour_forth
minute_add (m: INTEGER_32)
`m'
minute_back
minute_forth
relative_duration (other: like Current): TIME_DURATION
`other'`Current'
require ABSOLUTE
other_exists: other /= Void
ensure ABSOLUTE
result_exists: Result /= Void
second_add (s: INTEGER_32)
`s'
second_back
second_forth
infix "+" (t: TIME_DURATION): TIME
`t'
require
t_exists: t /= Void
ensure
result_exists: Result /= Void
infix "-" (other: like Current): INTERVAL [TIME]
`other'
ABSOLUTE
require ABSOLUTE
other_exists: other /= Void
other_smaller_than_current: other <= Current
ensure ABSOLUTE
result_exists: Result /= Void
result_set: Result.start_bound.is_equal (other) and then Result.end_bound.is_equal (Current)
feature
compact_time: INTEGER_32
TIME_VALUE
fine_second: REAL_64
TIME_VALUE
fractional_second: REAL_64
fine_second
TIME_VALUE
hour: INTEGER_32
TIME_VALUE
micro_second: INTEGER_32
TIME_VALUE
milli_second: INTEGER_32
TIME_VALUE
minute: INTEGER_32
TIME_VALUE
nano_second: INTEGER_32
TIME_VALUE
second: INTEGER_32
TIME_VALUE
feature
set_fine_second (s: REAL_64)
fine_second`s'
TIME_VALUE
require TIME_MEASUREMENT
s_large_enough: s >= 0
s_small_enough: s < seconds_in_minute
ensure TIME_MEASUREMENT
fine_second_set: fine_second = s
set_fractionals (f: REAL_64)
fractional_second`f'
TIME_VALUE
require TIME_MEASUREMENT
f_large_enough: f >= 0
f_small_enough: f < 1
ensure TIME_MEASUREMENT
second_same: second = old second
set_hour (h: INTEGER_32)
hour`h'
TIME_VALUE
require TIME_MEASUREMENT
h_large_enough: h >= 0
h_small_enough: h < hours_in_day
ensure TIME_MEASUREMENT
hour_set: hour = h
set_minute (m: INTEGER_32)
minute`m'
TIME_VALUE
require TIME_MEASUREMENT
m_large_enough: m >= 0
m_small_enough: m < minutes_in_hour
ensure TIME_MEASUREMENT
minute_set: minute = m
set_second (s: INTEGER_32)
second`s'
TIME_VALUE
require TIME_MEASUREMENT
s_large_enough: s >= 0
s_small_enough: s < seconds_in_minute
ensure TIME_MEASUREMENT
second_set: second = s
feature
formatted_out (s: STRING_8): STRING_8
`s'
require
s_exists: s /= Void
io: STD_FILES
ANY
out: STRING_8
time_default_format_string
print (some: ANY)
`some'
ANY
frozen tagged_out: STRING_8
ANYout
ANY
feature
operating_environment: OPERATING_ENVIRONMENT
ANY
feature
compact_time_valid (c_t: INTEGER_32): BOOLEAN
`c_t'
TIME_VALIDITY_CHECKER
is_correct_time (h, m: INTEGER_32; s: REAL_64; twelve_hour_scale: BOOLEAN): BOOLEAN
`h'`m'`code'`s'
`twelve_hour_scale'
TIME_VALIDITY_CHECKER
time_valid (s: STRING_8; code_string: STRING_8): BOOLEAN
`s'`code_string'
TIME_VALIDITY_CHECKER
require TIME_VALIDITY_CHECKER
s_exists: s /= Void
code_exists: code_string /= Void
invariant
second_large_enough: second >= 0
second_small_enough: second < seconds_in_minute
fractionals_large_enough: fractional_second >= 0
fractionals_small_enough: fractional_second < 1
minute_large_enough: minute >= 0
minute_small_enough: minute < minutes_in_hour
hour_large_enough: hour >= 0
hour_small_enough: hour < hours_in_day
COMPARABLE
irreflexive_comparison: not (Current < Current)
ANY
reflexive_equality: standard_is_equal (Current)
reflexive_conformance: conforms_to (Current)
indexing
copyright: "Copyright (c) 1984-2006, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[
Eiffel Software
356 Storke Road, Goleta, CA 93117 USA
Telephone 805-685-1006, Fax 805-685-6869
Website http://www.eiffel.com
Customer support http://support.eiffel.com
]"
end TIME