indexing
description: "Durations of time"
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_DURATION
create
make (h, m, s: INTEGER_32)
hourminutesecond`h'`m'`s'
ensure
hour_set: hour = h
minute_set: minute = m
second_set: second = s
make_fine (h, m: INTEGER_32; s: REAL_64)
minutesecond`h'`m'
`s'
fractional_second`s'
ensure
hour_set: hour = h
minute_set: minute = m
fine_second_set: fine_second = s
make_by_seconds (s: INTEGER_32)
`s'
ensure
seconds_count_set: seconds_count = s
make_by_fine_seconds (s: REAL_64)
`s'
ensure
minute_large_enough: minute >= 0
minute_small_enough: minute < minutes_in_hour
second_large_enough: second >= 0
second_small_enough: second < seconds_in_minute
fine_seconds_set: dabs (fine_seconds_count - s) <= tolerance
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
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
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))
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)
infix "<=" (other: like Current): BOOLEAN
`other'
PART_COMPARABLE
require PART_COMPARABLE
other_exists: other /= Void
infix ">" (other: like Current): BOOLEAN
`other'
PART_COMPARABLE
require PART_COMPARABLE
other_exists: other /= Void
infix ">=" (other: like Current): BOOLEAN
`other'
PART_COMPARABLE
require PART_COMPARABLE
other_exists: other /= Void
feature
canonical: BOOLEAN
hour
minutesecond
fractional_second
hour
minutesecond
fractional_second
conforms_to (other: ANY): BOOLEAN
`other'
ANY
require ANY
other_not_void: other /= Void
is_negative: BOOLEAN
DURATION
is_positive: BOOLEAN
is_zero: BOOLEAN
DURATION
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
prefix "+": like Current
DURATION
ensure GROUP_ELEMENT
result_exists: Result /= Void
result_definition: Result.is_equal (Current)
infix "-" (other: like Current): like Current
`other'
DURATION
require GROUP_ELEMENT
other_exists: other /= Void
ensure GROUP_ELEMENT
result_exists: Result /= Void
feature
time_modulo_day: like Current
ensure
result_smaller_than_day: Result.seconds_count < seconds_in_day
result_positive: Result >= zero
to_canonical: like Current
ensure
result_canonical: Result.canonical
to_days: INTEGER_32
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 (s: REAL_64)
`s'
`s'fractional_second
hour_add (h: INTEGER_32)
`h'
ensure
hour_set: hour = old hour + h
minute_add (m: INTEGER_32)
`m'
ensure
minute_set: minute = old minute + m
second_add (s: INTEGER_32)
`s'
ensure
second_set: second = old second + s
infix "+" (other: like Current): like Current
`other'
require GROUP_ELEMENT
other_exists: other /= Void
ensure GROUP_ELEMENT
result_exists: Result /= Void
commutative: Result.is_equal (other + Current)
prefix "-": like Current
ensure GROUP_ELEMENT
result_exists: Result /= Void
result_definition: (Result + Current).is_equal (zero)
feature
fine_seconds_count: REAL_64
seconds_count: INTEGER_32
ensure
same_count: Result = fine_seconds_count.truncated_to_integer
zero: TIME_DURATION
ensure GROUP_ELEMENT
result_exists: Result /= Void
feature
fine_second: REAL_64
fractional_second: REAL_64
hour: INTEGER_32
minute: INTEGER_32
second: INTEGER_32
feature
is_equal (other: like Current): BOOLEAN
`other'
require ANY
other_not_void: other /= Void
ensure ANY
symmetric: Result implies other.is_equal (Current)
consistent: standard_is_equal (other) implies Result
infix "<" (other: like Current): BOOLEAN
`other'
require PART_COMPARABLE
other_exists: other /= Void
feature
set_fine_second (s: REAL_64)
fine_second`s'
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'
`f'second
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'
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'
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'
fractional_second
require TIME_MEASUREMENT
s_large_enough: s >= 0
s_small_enough: s < seconds_in_minute
ensure TIME_MEASUREMENT
second_set: second = s
feature
make (h, m, s: INTEGER_32)
hourminutesecond`h'`m'`s'
ensure
hour_set: hour = h
minute_set: minute = m
second_set: second = s
make_by_fine_seconds (s: REAL_64)
`s'
ensure
minute_large_enough: minute >= 0
minute_small_enough: minute < minutes_in_hour
second_large_enough: second >= 0
second_small_enough: second < seconds_in_minute
fine_seconds_set: dabs (fine_seconds_count - s) <= tolerance
make_by_seconds (s: INTEGER_32)
`s'
ensure
seconds_count_set: seconds_count = s
make_fine (h, m: INTEGER_32; s: REAL_64)
minutesecond`h'`m'
`s'
fractional_second`s'
ensure
hour_set: hour = h
minute_set: minute = m
fine_second_set: fine_second = s
feature
io: STD_FILES
ANY
out: STRING_8
ANYtagged_out
ANY
print (some: ANY)
`some'
ANY
frozen tagged_out: STRING_8
ANYout
ANY
feature
operating_environment: OPERATING_ENVIRONMENT
ANY
invariant
fractionals_large_enough: fractional_second > -1
fractionals_small_enough: fractional_second < 1
fractional_and_second_same_sign: second * fractional_second >= 0
equal_signs: canonical implies (hour >= 0 and minute >= 0 and fine_second >= 0) or (hour <= 0 and minute <= 0 and fine_second <= 0)
DURATION
sign_correctness: is_positive xor is_negative xor is_zero
ANY
reflexive_equality: standard_is_equal (Current)
reflexive_conformance: conforms_to (Current)
GROUP_ELEMENT
neutral_addition: Current.is_equal (Current + zero)
self_subtraction: zero.is_equal (Current - 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_DURATION