[83] | 1 | # This module is related to the ticket #36
|
---|
[70] | 2 | require 'date'
|
---|
[81] | 3 | require 'time'
|
---|
[70] | 4 |
|
---|
[297] | 5 | module OpenEHR
|
---|
[167] | 6 | module AssumedLibraryTypes
|
---|
[69] | 7 | class Any < Object
|
---|
| 8 |
|
---|
| 9 | end # of Any
|
---|
[143] | 10 |
|
---|
[69] | 11 | class Interval < Any
|
---|
[143] | 12 | attr_reader :lower, :upper
|
---|
| 13 |
|
---|
[297] | 14 | def initialize(args = {})
|
---|
| 15 | check_lower_upper(args[:lower], args[:upper])
|
---|
| 16 | self.lower_included = args[:lower_included]
|
---|
| 17 | self.upper_included = args[:upper_included]
|
---|
[4] | 18 | end
|
---|
[21] | 19 |
|
---|
[143] | 20 | def lower=(lower)
|
---|
[4] | 21 | check_lower_upper(lower, @upper)
|
---|
| 22 | end
|
---|
[21] | 23 |
|
---|
[143] | 24 | def upper=(upper)
|
---|
[4] | 25 | check_lower_upper(@lower, upper)
|
---|
| 26 | end
|
---|
[21] | 27 |
|
---|
[143] | 28 | def lower_included?
|
---|
| 29 | return @lower_included
|
---|
| 30 | end
|
---|
| 31 |
|
---|
| 32 | def lower_included=(lower_included)
|
---|
[4] | 33 | if (lower == nil) && (lower_included != nil)
|
---|
| 34 | raise ArgumentError, "lower is not set"
|
---|
| 35 | end
|
---|
| 36 | @lower_included = lower_included
|
---|
| 37 | end
|
---|
[143] | 38 |
|
---|
| 39 | def lower_unbounded?
|
---|
| 40 | return @lower.nil?
|
---|
| 41 | end
|
---|
[21] | 42 |
|
---|
[143] | 43 | def upper_included?
|
---|
| 44 | return @upper_included
|
---|
| 45 | end
|
---|
| 46 |
|
---|
| 47 | def upper_included=(upper_included)
|
---|
[297] | 48 | if (@upper.nil?) && (upper_included != nil)
|
---|
[4] | 49 | raise ArgumentError, "upper is not set"
|
---|
| 50 | end
|
---|
[143] | 51 | @upper_included = upper_included
|
---|
[4] | 52 | end
|
---|
[21] | 53 |
|
---|
[143] | 54 | def upper_unbounded?
|
---|
| 55 | return @upper.nil?
|
---|
| 56 | end
|
---|
| 57 |
|
---|
[4] | 58 | def has?(value)
|
---|
[297] | 59 | if ((@lower.nil?||@lower < value||((@lower_included == true) && (@lower == value)))&&
|
---|
| 60 | (@upper.nil?||value < @upper||((@upper_included == true) && (@upper == value))))
|
---|
[4] | 61 | true
|
---|
| 62 | else
|
---|
| 63 | false
|
---|
| 64 | end
|
---|
| 65 | end
|
---|
[21] | 66 |
|
---|
[4] | 67 | private
|
---|
[21] | 68 |
|
---|
[4] | 69 | def check_lower_upper(lower, upper)
|
---|
[297] | 70 | if lower.nil? && upper.nil?
|
---|
[4] | 71 | raise ArgumentError, "Either lower or upper must be assigned"
|
---|
| 72 | end
|
---|
[143] | 73 | unless (lower.nil? || upper.nil?)
|
---|
| 74 | if lower > upper
|
---|
| 75 | raise ArgumentError, "Upper must be larger than lower."
|
---|
| 76 | end
|
---|
[4] | 77 | end
|
---|
| 78 | @lower = lower
|
---|
| 79 | @upper = upper
|
---|
[143] | 80 | end
|
---|
[69] | 81 | end # end of Interval
|
---|
[143] | 82 |
|
---|
[297] | 83 | class TimeDefinitions < Any
|
---|
[69] | 84 | DAYS_IN_LEAP_YEAR = 366
|
---|
| 85 | DAYS_IN_WEEK = 7
|
---|
| 86 | DAYS_IN_YEAR = 365
|
---|
| 87 | HOURS_IN_DAY = 24
|
---|
| 88 | MAX_DAYS_IN_MONTH = 31
|
---|
| 89 | MAX_DAYS_IN_YEAR = 366
|
---|
| 90 | MINUTES_IN_HOUR = 60
|
---|
| 91 | MONTH_IN_YEAR = 12
|
---|
| 92 | NOMINAL_DAYS_IN_MONTH = 30.42
|
---|
| 93 | NOMINAL_DAYS_IN_YEAR = 365.24
|
---|
| 94 | SECONDS_IN_MINUTE = 60
|
---|
[70] | 95 |
|
---|
| 96 | def self.valid_year?(year)
|
---|
[297] | 97 | return !year.nil? && year >= 0
|
---|
[70] | 98 | end
|
---|
| 99 |
|
---|
| 100 | def self.valid_day?(y, m, d)
|
---|
[297] | 101 | unless y.nil? || m.nil? || d.nil?
|
---|
| 102 | return Date.valid_date?(y,m,d)
|
---|
| 103 | end
|
---|
| 104 | if (y.nil?) || (m.nil? && !d.nil?)
|
---|
| 105 | return false
|
---|
| 106 | end
|
---|
| 107 | return self.valid_year?(y) && self.valid_month?(m)
|
---|
[70] | 108 | end
|
---|
| 109 |
|
---|
[83] | 110 | def self.valid_hour?(h,m = nil, s = nil)
|
---|
[297] | 111 | if h.nil?
|
---|
| 112 | return false
|
---|
| 113 | end
|
---|
[83] | 114 | if !m.nil? and !valid_minute?(m)
|
---|
| 115 | return false
|
---|
| 116 | end
|
---|
| 117 | if !s.nil? and (!m.nil? and !valid_second?(s))
|
---|
| 118 | return false
|
---|
| 119 | end
|
---|
| 120 | (h >= 0 and h < HOURS_IN_DAY) or (h == HOURS_IN_DAY and m == 0 and s == 0)
|
---|
[70] | 121 | end
|
---|
[297] | 122 |
|
---|
[81] | 123 | def self.valid_minute?(mi)
|
---|
| 124 | mi >= 0 and mi < MINUTES_IN_HOUR
|
---|
[70] | 125 | end
|
---|
[297] | 126 |
|
---|
[70] | 127 | def self.valid_second?(s)
|
---|
| 128 | s >= 0 and s < SECONDS_IN_MINUTE
|
---|
| 129 | end
|
---|
[297] | 130 |
|
---|
[81] | 131 | def self.valid_month?(mo)
|
---|
| 132 | mo >= 1 and mo <= MONTH_IN_YEAR
|
---|
[70] | 133 | end
|
---|
[297] | 134 | end # end of TimeDefinitions
|
---|
[69] | 135 |
|
---|
[297] | 136 | module ISO8601DateModule
|
---|
[70] | 137 | attr_reader :year, :month, :day
|
---|
[297] | 138 |
|
---|
[70] | 139 | def year=(year)
|
---|
[297] | 140 | unless ISO8601Date.valid_year?(year)
|
---|
| 141 | raise ArgumentError, "Year is not valid"
|
---|
| 142 | end
|
---|
[70] | 143 | @year = year
|
---|
| 144 | end
|
---|
[297] | 145 |
|
---|
[70] | 146 | def month=(month)
|
---|
[297] | 147 | raise ArgumentError, "Month is not valid" unless month.nil? or ISO8601Date.valid_month?(month)
|
---|
[70] | 148 | @month = month
|
---|
| 149 | end
|
---|
[125] | 150 |
|
---|
[70] | 151 | def day=(day)
|
---|
[297] | 152 |
|
---|
| 153 | raise ArgumentError, "Day is not valid" unless day.nil? or ISO8601Date.valid_day?(@year, @month, day)
|
---|
[70] | 154 | @day = day
|
---|
| 155 | end
|
---|
[125] | 156 |
|
---|
[70] | 157 | def as_string
|
---|
| 158 | if (!@year.nil? and !@month.nil? and !@day.nil?)
|
---|
| 159 | Date.new(@year, @month, @day).to_s
|
---|
| 160 | elsif (!@year.nil? and !@month.nil? and @day.nil?)
|
---|
| 161 | Date.new(@year, @month).to_s[0,7]
|
---|
| 162 | elsif (!@year.nil? and @month.nil? and @day.nil?)
|
---|
| 163 | Date.new(@year).to_s[0,4]
|
---|
| 164 | end
|
---|
| 165 | end
|
---|
[125] | 166 |
|
---|
[401] | 167 | def to_days
|
---|
| 168 | days = nilthenzero(@year)*TimeDefinitions::NOMINAL_DAYS_IN_YEAR +
|
---|
| 169 | nilthenzero(@month)*TimeDefinitions::NOMINAL_DAYS_IN_MONTH +
|
---|
| 170 | nilthenzero(@day)
|
---|
| 171 | return days
|
---|
| 172 | end
|
---|
| 173 |
|
---|
[70] | 174 | def month_unknown?
|
---|
| 175 | @month.nil?
|
---|
| 176 | end
|
---|
[125] | 177 |
|
---|
[70] | 178 | def day_unknown?
|
---|
| 179 | @day.nil?
|
---|
| 180 | end
|
---|
[125] | 181 |
|
---|
[70] | 182 | def is_extended?
|
---|
| 183 | true
|
---|
| 184 | end
|
---|
[125] | 185 |
|
---|
[70] | 186 | def is_partial?
|
---|
| 187 | month_unknown? or day_unknown?
|
---|
| 188 | end
|
---|
[397] | 189 |
|
---|
[149] | 190 | protected
|
---|
| 191 | def leapyear?(year)
|
---|
| 192 | case
|
---|
| 193 | when year % 400 == 0: true
|
---|
| 194 | when year % 100 == 0: false
|
---|
| 195 | else year % 4 == 0
|
---|
| 196 | end
|
---|
| 197 | end
|
---|
[120] | 198 | end
|
---|
| 199 |
|
---|
[398] | 200 | def nilthenzero(value)
|
---|
| 201 | return value ? value : 0
|
---|
| 202 | end
|
---|
| 203 |
|
---|
[297] | 204 | class ISO8601Date < TimeDefinitions
|
---|
[398] | 205 | include ISO8601DateModule, Comparable
|
---|
[120] | 206 | def initialize(string)
|
---|
| 207 | /(\d{4})(?:-(\d{2})(?:-(\d{2})?)?)?/ =~ string
|
---|
| 208 | if $1.nil?
|
---|
| 209 | raise ArgumentError, 'data invalid'
|
---|
| 210 | else
|
---|
| 211 | self.year = $1.to_i
|
---|
| 212 | end
|
---|
| 213 | if $2.nil?
|
---|
| 214 | self.month = nil
|
---|
| 215 | else
|
---|
| 216 | self.month = $2.to_i
|
---|
| 217 | end
|
---|
| 218 | if $3.nil?
|
---|
| 219 | self.day = nil
|
---|
| 220 | else
|
---|
| 221 | self.day = $3.to_i
|
---|
| 222 | end
|
---|
| 223 | end
|
---|
[149] | 224 |
|
---|
[398] | 225 | def <=>(other)
|
---|
[401] | 226 | self.to_days <=> other.to_days
|
---|
[398] | 227 | end
|
---|
| 228 |
|
---|
[81] | 229 | def self.valid_iso8601_date?(string)
|
---|
[70] | 230 | begin
|
---|
[81] | 231 | Date.parse(string)
|
---|
[70] | 232 | rescue
|
---|
| 233 | return false
|
---|
| 234 | end
|
---|
| 235 | true
|
---|
| 236 | end
|
---|
[79] | 237 | end # end of ISO8601_DATE
|
---|
| 238 |
|
---|
[297] | 239 | module ISO8601TimeModule
|
---|
[83] | 240 | attr_reader :hour, :minute, :second, :fractional_second, :timezone
|
---|
[120] | 241 |
|
---|
[83] | 242 | def hour=(hour)
|
---|
[297] | 243 | unless ISO8601Time.valid_hour?(hour, @minute, @second)
|
---|
| 244 | raise ArgumentError, "hour is not valid"
|
---|
| 245 | end
|
---|
[83] | 246 | @hour = hour
|
---|
| 247 | end
|
---|
[124] | 248 |
|
---|
[83] | 249 | def minute_unknown?
|
---|
| 250 | @minute.nil?
|
---|
| 251 | end
|
---|
[124] | 252 |
|
---|
[83] | 253 | def minute=(minute)
|
---|
[297] | 254 | raise ArgumentError, "minute is not valid" if !minute.nil? and !ISO8601Time.valid_minute?(minute)
|
---|
[83] | 255 | @minute = minute
|
---|
| 256 | end
|
---|
[124] | 257 |
|
---|
[83] | 258 | def second_unknown?
|
---|
| 259 | @second.nil?
|
---|
| 260 | end
|
---|
[124] | 261 |
|
---|
[83] | 262 | def second=(second)
|
---|
[120] | 263 | raise ArgumentError, "minute not defined" if @minute.nil? and !second.nil?
|
---|
[297] | 264 | raise ArgumentError, "second is not valid" if !second.nil? and !ISO8601Time.valid_second?(second)
|
---|
[83] | 265 | @second = second
|
---|
| 266 | end
|
---|
[124] | 267 |
|
---|
[83] | 268 | def fractional_second=(fractional_second)
|
---|
[120] | 269 | raise ArgumentError, "minute not defined" if minute_unknown? and !fractional_second.nil?
|
---|
| 270 | raise ArgumentError, "second not defined" if second_unknown? and !fractional_second.nil?
|
---|
[297] | 271 | if !fractional_second.nil? &&
|
---|
| 272 | (fractional_second < 0.0 || fractional_second >= 1.0)
|
---|
| 273 | raise ArgumentError, 'fractional second should be between 0.0 - 1.0'
|
---|
| 274 | end
|
---|
[83] | 275 | @fractional_second = fractional_second
|
---|
| 276 | end
|
---|
[124] | 277 |
|
---|
[83] | 278 | def has_fractional_second?
|
---|
[297] | 279 | return !@fractional_second.nil?
|
---|
[83] | 280 | end
|
---|
[124] | 281 |
|
---|
[120] | 282 | def timezone=(timezone)
|
---|
| 283 | unless timezone.nil? or timezone == 'Z'
|
---|
| 284 | if /[+-](\d{2}):?(\d{2})/ =~ timezone
|
---|
| 285 | @timezone = timezone
|
---|
| 286 | else
|
---|
| 287 | raise ArgumentError, "timezone invalid"
|
---|
| 288 | end
|
---|
| 289 | else
|
---|
| 290 | @timezone = nil
|
---|
| 291 | end
|
---|
| 292 | end
|
---|
[124] | 293 |
|
---|
[83] | 294 | def is_decimal_sign_comma?
|
---|
[126] | 295 | false
|
---|
[83] | 296 | end
|
---|
[124] | 297 |
|
---|
[83] | 298 | def is_extended?
|
---|
| 299 | true
|
---|
| 300 | end
|
---|
[124] | 301 |
|
---|
[83] | 302 | def is_partial?
|
---|
| 303 | second_unknown? or minute_unknown?
|
---|
| 304 | end
|
---|
[125] | 305 |
|
---|
[81] | 306 | def as_string
|
---|
[83] | 307 | s = sprintf("%02d", @hour)
|
---|
| 308 | if !@minute.nil?
|
---|
| 309 | s += ":" + sprintf("%02d",@minute)
|
---|
| 310 | if !@second.nil?
|
---|
| 311 | s += ":" + sprintf("%02d", @second)
|
---|
| 312 | if !@fractional_second.nil?
|
---|
[125] | 313 | s += "." + @fractional_second.to_s[2..-1]
|
---|
[83] | 314 | if !@timezone.nil?
|
---|
| 315 | s += @timezone
|
---|
[81] | 316 | end
|
---|
| 317 | end
|
---|
| 318 | end
|
---|
| 319 | end
|
---|
[125] | 320 | return s
|
---|
[81] | 321 | end
|
---|
[398] | 322 |
|
---|
[401] | 323 | def to_second
|
---|
| 324 | second = (nilthenzero(@hour)*60 + nilthenzero(@minute))*60 +
|
---|
| 325 | nilthenzero(@second) +
|
---|
| 326 | nilthenzero(@fractional_second)
|
---|
| 327 | return second
|
---|
| 328 | end
|
---|
[120] | 329 | end
|
---|
| 330 |
|
---|
[297] | 331 | class ISO8601Time < TimeDefinitions
|
---|
[398] | 332 | include ISO8601TimeModule, Comparable
|
---|
[120] | 333 | def initialize(string)
|
---|
| 334 | /(\d{2}):?(\d{2})?(:?)(\d{2})?((\.|,)(\d+))?(Z|([+-](\d{2}):?(\d{2})))?/ =~ string
|
---|
| 335 | if $2.nil?
|
---|
| 336 | self.minute = nil
|
---|
| 337 | else
|
---|
| 338 | self.minute = $2.to_i
|
---|
| 339 | end
|
---|
| 340 | if $4.nil?
|
---|
| 341 | self.second = nil
|
---|
| 342 | else
|
---|
| 343 | self.second = $4.to_i
|
---|
| 344 | end
|
---|
| 345 | if $1.nil?
|
---|
| 346 | raise ArgumentError, 'data invalid'
|
---|
| 347 | else
|
---|
| 348 | self.hour = $1.to_i
|
---|
| 349 | end
|
---|
| 350 | if $7.nil?
|
---|
| 351 | self.fractional_second = nil
|
---|
| 352 | else
|
---|
| 353 | self.fractional_second = ("0." + $7).to_f
|
---|
| 354 | end
|
---|
| 355 | if $8.nil?
|
---|
| 356 | self.timezone = nil
|
---|
| 357 | else
|
---|
| 358 | self.timezone = $8
|
---|
| 359 | end
|
---|
| 360 | end
|
---|
[297] | 361 |
|
---|
[398] | 362 | def <=>(other)
|
---|
[401] | 363 | self.to_second <=> other.to_second
|
---|
[398] | 364 | end
|
---|
| 365 |
|
---|
[81] | 366 | def self.valid_iso8601_time?(s)
|
---|
[297] | 367 | if /^(\d{2}):?(\d{2})?(:?)(\d{2})?((\.|,)(\d+))?(Z|([+-](\d{2}):?(\d{2})))?$/ =~ s
|
---|
[81] | 368 | # ISO 8601 regular expression by H. Yuki
|
---|
| 369 | # http://digit.que.ne.jp/work/wiki.cgi?Perl%E3%83%A1%E3%83%A2%2FW3C%E5%BD%A2%E5%BC%8F%E3%81%AE%E6%97%A5%E6%99%82%E3%81%AE%E8%A7%A3%E6%9E%90
|
---|
| 370 | # (\d{4})(?:-(\d{2})(?:-(\d{2})(?:T(\d{2}):(\d{2})(?::(\d{2})(?:\.(\d))?)?(Z|([+-]\d{2}):(\d{2}))?)?)?)?
|
---|
| 371 | hh = $1; mm = $2; ss = $4; msec = $7; tz = $8
|
---|
[83] | 372 | if hh.to_i == HOURS_IN_DAY and (mm.nil? or mm.to_i == 0) and (ss.nil? or ss.to_i == 0) and (msec.nil? or msec.to_i==0)
|
---|
[81] | 373 | return true
|
---|
| 374 | end
|
---|
| 375 | if hh.nil? or (hh.to_i < 0 or hh.to_i >= HOURS_IN_DAY)
|
---|
| 376 | return false
|
---|
| 377 | end
|
---|
| 378 | if !mm.nil?
|
---|
| 379 | if !self.valid_minute?(mm.to_i)
|
---|
| 380 | return false
|
---|
| 381 | end
|
---|
| 382 | end
|
---|
| 383 | if !ss.nil?
|
---|
| 384 | if !self.valid_second?(ss.to_i)
|
---|
| 385 | return false
|
---|
| 386 | end
|
---|
| 387 | end
|
---|
| 388 | if !tz.nil? and tz != "Z"
|
---|
| 389 | if /[+-](\d{2}):?(\d{2})/ =~ tz
|
---|
| 390 | h = $1; m = $2
|
---|
| 391 | if h.to_i < 0 or h.to_i >= HOURS_IN_DAY
|
---|
| 392 | return false
|
---|
| 393 | end
|
---|
| 394 | if m.to_i < 0 or m.to_i >= MINUTES_IN_HOUR
|
---|
| 395 | return false
|
---|
| 396 | end
|
---|
| 397 | end
|
---|
| 398 | end
|
---|
| 399 | return true
|
---|
| 400 | else
|
---|
| 401 | return false
|
---|
| 402 | end
|
---|
| 403 | end
|
---|
[79] | 404 | end # end of ISO8601_TIME
|
---|
| 405 |
|
---|
[297] | 406 | module ISO8601DateTimeModule
|
---|
| 407 | include ISO8601DateModule, ISO8601TimeModule
|
---|
[149] | 408 | def as_string
|
---|
| 409 | if (!@year.nil? and !@month.nil? and !@day.nil?)
|
---|
| 410 | s = Date.new(@year, @month, @day).to_s
|
---|
| 411 | elsif (!@year.nil? and !@month.nil? and @day.nil?)
|
---|
| 412 | return Date.new(@year, @month).to_s[0,7]
|
---|
| 413 | elsif (!@year.nil? and @month.nil? and @day.nil?)
|
---|
| 414 | return Date.new(@year).to_s[0,4]
|
---|
| 415 | end
|
---|
| 416 | unless hour.nil?
|
---|
| 417 | s += sprintf("T%02d", @hour)
|
---|
| 418 | unless @minute.nil?
|
---|
| 419 | s += ":" + sprintf("%02d",@minute)
|
---|
| 420 | unless @second.nil?
|
---|
| 421 | s += ":" + sprintf("%02d", @second)
|
---|
| 422 | unless @fractional_second.nil?
|
---|
| 423 | s += "." + @fractional_second.to_s[2..-1]
|
---|
| 424 | unless @timezone.nil?
|
---|
| 425 | s += @timezone
|
---|
| 426 | end
|
---|
| 427 | end
|
---|
| 428 | end
|
---|
| 429 | end
|
---|
| 430 | end
|
---|
| 431 | return s
|
---|
| 432 | end
|
---|
| 433 | end
|
---|
| 434 |
|
---|
[297] | 435 | class ISO8601DateTime < ISO8601Date
|
---|
| 436 | include ISO8601DateTimeModule
|
---|
[120] | 437 | def initialize(string)
|
---|
[297] | 438 | unless /(\d{4})(?:-(\d{2})(?:-(\d{2})(?:T(\d{2}):(\d{2})(?::(\d{2})(?:\.(\d+))?)?(Z|([+-]\d{2}):?(\d{2}))?)?)?)?/ =~ string
|
---|
[120] | 439 | raise ArgumentError, 'format invalid'
|
---|
| 440 | else
|
---|
| 441 | self.year = $1.to_i
|
---|
| 442 | end
|
---|
| 443 | if $2.nil?
|
---|
| 444 | self.month = nil
|
---|
| 445 | else
|
---|
| 446 | self.month = $2.to_i
|
---|
| 447 | end
|
---|
| 448 | if $3.nil?
|
---|
| 449 | self.day = nil
|
---|
| 450 | else
|
---|
| 451 | self.day = $3.to_i
|
---|
| 452 | end
|
---|
| 453 | if $5.nil?
|
---|
| 454 | self.minute = nil
|
---|
| 455 | else
|
---|
| 456 | self.minute = $5.to_i
|
---|
| 457 | end
|
---|
| 458 | if $6.nil?
|
---|
| 459 | self.second = nil
|
---|
| 460 | else
|
---|
| 461 | self.second = $6.to_i
|
---|
| 462 | end
|
---|
| 463 | if $4.nil?
|
---|
| 464 | self.hour = nil
|
---|
| 465 | else
|
---|
| 466 | self.hour = $4.to_i
|
---|
| 467 | end
|
---|
[121] | 468 | if $7.nil? or $7.empty?
|
---|
[120] | 469 | self.fractional_second = nil
|
---|
| 470 | else
|
---|
| 471 | self.fractional_second = ("0."+$7).to_f
|
---|
| 472 | end
|
---|
| 473 | if $8.nil?
|
---|
| 474 | self.timezone = nil
|
---|
| 475 | else
|
---|
[121] | 476 | self.timezone = $9+$10
|
---|
[120] | 477 | end
|
---|
| 478 | end
|
---|
[401] | 479 |
|
---|
| 480 | def <=>(other)
|
---|
| 481 | self.magnitude <=> other.magnitude
|
---|
| 482 | end
|
---|
| 483 |
|
---|
| 484 | protected
|
---|
| 485 | def magnitude
|
---|
| 486 | return self.to_days*HOURS_IN_DAY*MINUTES_IN_HOUR*SECONDS_IN_MINUTE +
|
---|
| 487 | self.to_second
|
---|
| 488 | end
|
---|
[120] | 489 | end
|
---|
[149] | 490 |
|
---|
[297] | 491 | class ISO8601Timezone
|
---|
[79] | 492 | attr_accessor :sign, :hour, :minute
|
---|
[124] | 493 |
|
---|
[297] | 494 | def initialize(string)
|
---|
| 495 | unless /(Z|(([+-])(\d{2}):?(\d{2})))/ =~ string
|
---|
| 496 | raise ArgumentError, 'invaild format'
|
---|
| 497 | end
|
---|
| 498 | if $1 == 'Z'
|
---|
| 499 | @sign, @hour, @minute = +1, 0, 0
|
---|
| 500 | else
|
---|
| 501 | @sign, @hour, @minute = ($3+'1').to_i, $4.to_i , $5.to_i
|
---|
| 502 | end
|
---|
| 503 | end
|
---|
| 504 |
|
---|
[79] | 505 | def is_gmt?
|
---|
[297] | 506 | @sign == +1 and @hour == 0 and @minute == 0
|
---|
[79] | 507 | end
|
---|
[124] | 508 |
|
---|
[79] | 509 | def as_string
|
---|
[297] | 510 | if @sign == +1
|
---|
[80] | 511 | s = "+"
|
---|
[297] | 512 | elsif @sign == -1
|
---|
[80] | 513 | s = "-"
|
---|
| 514 | end
|
---|
[297] | 515 | sprintf("%s%02d%02d", s, @hour, @minute)
|
---|
[79] | 516 | end
|
---|
[297] | 517 | end # end of ISO8601Timezone
|
---|
[123] | 518 |
|
---|
[297] | 519 | module ISO8601DurationModule
|
---|
[126] | 520 | attr_reader :years, :months, :weeks, :days
|
---|
| 521 | attr_reader :hours, :minutes, :seconds, :fractional_second
|
---|
| 522 |
|
---|
| 523 | def years=(years)
|
---|
[128] | 524 | unless years.nil? || years >= 0
|
---|
[126] | 525 | raise ArgumentError, 'years must be above zero'
|
---|
| 526 | end
|
---|
| 527 | @years = years
|
---|
| 528 | end
|
---|
[124] | 529 |
|
---|
[126] | 530 | def months=(months)
|
---|
[128] | 531 | unless months.nil? || months >= 0
|
---|
[126] | 532 | raise ArgumentError, 'months must be above zero'
|
---|
| 533 | end
|
---|
| 534 | @months = months
|
---|
[124] | 535 | end
|
---|
[126] | 536 |
|
---|
| 537 | def weeks=(weeks)
|
---|
[128] | 538 | unless weeks.nil? || weeks >= 0
|
---|
[126] | 539 | raise ArgumentError, 'weeks must be above zero'
|
---|
| 540 | end
|
---|
| 541 | @weeks = weeks
|
---|
| 542 | end
|
---|
| 543 |
|
---|
| 544 | def days=(days)
|
---|
[128] | 545 | unless days.nil? || days >= 0
|
---|
[126] | 546 | raise ArgumentError, 'days must be above zero'
|
---|
| 547 | end
|
---|
| 548 | @days = days
|
---|
| 549 | end
|
---|
| 550 |
|
---|
| 551 | def hours=(hours)
|
---|
[128] | 552 | unless hours.nil? || hours >= 0
|
---|
[126] | 553 | raise ArgumentError, 'hours must be above zero'
|
---|
| 554 | end
|
---|
| 555 | @hours = hours
|
---|
| 556 | end
|
---|
| 557 |
|
---|
| 558 | def minutes=(minutes)
|
---|
[128] | 559 | unless minutes.nil? || minutes >= 0
|
---|
[126] | 560 | raise ArgumentError, 'minutes must be above zero'
|
---|
| 561 | end
|
---|
| 562 | @minutes = minutes
|
---|
| 563 | end
|
---|
| 564 |
|
---|
| 565 | def seconds=(seconds)
|
---|
[128] | 566 | unless seconds.nil? || seconds >= 0
|
---|
[126] | 567 | raise ArgumentError, 'seconds must be above zero'
|
---|
| 568 | end
|
---|
| 569 | @seconds = seconds
|
---|
| 570 | end
|
---|
| 571 |
|
---|
| 572 | def fractional_second=(fractional_second)
|
---|
[128] | 573 | unless fractional_second.nil? || (fractional_second >= 0 && fractional_second < 1.0)
|
---|
[126] | 574 | raise ArgumentError, 'fractional_second must be between 0.0 and 1.0'
|
---|
| 575 | end
|
---|
| 576 | @fractional_second = fractional_second
|
---|
| 577 | end
|
---|
| 578 |
|
---|
| 579 | def as_string
|
---|
| 580 | str = 'P'
|
---|
| 581 | unless @years.nil?
|
---|
| 582 | str += @years.to_s + 'Y'
|
---|
| 583 | end
|
---|
| 584 | unless @months.nil?
|
---|
| 585 | str += @months.to_s + 'M'
|
---|
| 586 | end
|
---|
| 587 | unless @weeks.nil?
|
---|
| 588 | str += @weeks.to_s + 'W'
|
---|
| 589 | end
|
---|
| 590 | unless @days.nil?
|
---|
| 591 | str += @days.to_s + 'D'
|
---|
| 592 | end
|
---|
| 593 | unless @hours.nil?
|
---|
| 594 | str += 'T' + @hours.to_s + 'H'
|
---|
| 595 | unless @minutes.nil?
|
---|
| 596 | str += @minutes.to_s + 'M'
|
---|
| 597 | unless @seconds.nil?
|
---|
| 598 | str += @seconds.to_s
|
---|
| 599 | unless @fractional_second.nil?
|
---|
| 600 | str += @fractional_second.to_s[1 .. -1]
|
---|
| 601 | end
|
---|
| 602 | str += 'S'
|
---|
| 603 | end
|
---|
| 604 | end
|
---|
| 605 | end
|
---|
| 606 | return str
|
---|
| 607 | end
|
---|
[149] | 608 | end
|
---|
[297] | 609 |
|
---|
| 610 | class ISO8601Duration < TimeDefinitions
|
---|
| 611 | include ISO8601DurationModule
|
---|
[149] | 612 | def initialize(str)
|
---|
| 613 | /^P((\d+)Y)?((\d+)M)?((\d+)W)?((\d)D)?(T((\d+)H)?((\d+)M)?((\d+)(\.\d+)?S)?)?$/ =~ str
|
---|
| 614 | self.years = $2.to_i
|
---|
| 615 | self.months = $4.to_i
|
---|
| 616 | self.weeks = $6.to_i
|
---|
| 617 | self.days = $8.to_i
|
---|
| 618 | self.hours = $11.to_i
|
---|
| 619 | self.minutes = $13.to_i
|
---|
| 620 | self.seconds = $15.to_i
|
---|
[369] | 621 | unless $16.nil?
|
---|
| 622 | self.fractional_second = $16.to_f
|
---|
| 623 | end
|
---|
[149] | 624 | end
|
---|
[297] | 625 | end # end of ISO8601Duration
|
---|
[69] | 626 | end # end of Assumed_Types
|
---|
| 627 | end # end of OpenEHR
|
---|