// Copyright 2012 The Rust Project Developers. See the COPYRIGHT // file at the top-level directory of this distribution and at // http://rust-lang.org/COPYRIGHT. // // Licensed under the Apache License, Version 2.0 or the MIT license // , at your // option. This file may not be copied, modified, or distributed // except according to those terms. use core::cmp::{Eq, Ord}; use core::int; use core::i32; use core::io::{Reader, ReaderUtil}; use core::io; use core::prelude::*; use core::result::{Result, Ok, Err}; use core::str; const NSEC_PER_SEC: i32 = 1_000_000_000_i32; pub mod rustrt { use super::Tm; #[cfg(target_os = "linux")] #[link_args = "-lrt"] pub extern {} #[abi = "cdecl"] pub extern { pub unsafe fn get_time(sec: &mut i64, nsec: &mut i32); pub unsafe fn precise_time_ns(ns: &mut u64); pub unsafe fn rust_tzset(); // FIXME: The i64 values can be passed by-val when #2064 is fixed. pub unsafe fn rust_gmtime(&&sec: i64, &&nsec: i32, &&result: Tm); pub unsafe fn rust_localtime(&&sec: i64, &&nsec: i32, &&result: Tm); pub unsafe fn rust_timegm(&&tm: Tm, sec: &mut i64); pub unsafe fn rust_mktime(&&tm: Tm, sec: &mut i64); } } /// A record specifying a time value in seconds and nanoseconds. #[auto_encode] #[auto_decode] pub struct Timespec { sec: i64, nsec: i32 } /* * Timespec assumes that pre-epoch Timespecs have negative sec and positive * nsec fields. Darwin's and Linux's struct timespec functions handle pre- * epoch timestamps using a "two steps back, one step forward" representation, * though the man pages do not actually document this. For example, the time * -1.2 seconds before the epoch is represented by `Timespec { sec: -2_i64, * nsec: 800_000_000_i32 }`. */ pub impl Timespec { static pure fn new(sec: i64, nsec: i32) -> Timespec { fail_unless!(nsec >= 0 && nsec < NSEC_PER_SEC); Timespec { sec: sec, nsec: nsec } } } impl Eq for Timespec { pure fn eq(&self, other: &Timespec) -> bool { self.sec == other.sec && self.nsec == other.nsec } pure fn ne(&self, other: &Timespec) -> bool { !self.eq(other) } } impl Ord for Timespec { pure fn lt(&self, other: &Timespec) -> bool { self.sec < other.sec || (self.sec == other.sec && self.nsec < other.nsec) } pure fn le(&self, other: &Timespec) -> bool { !other.lt(self) } pure fn ge(&self, other: &Timespec) -> bool { !self.lt(other) } pure fn gt(&self, other: &Timespec) -> bool { !self.le(other) } } /** * Returns the current time as a `timespec` containing the seconds and * nanoseconds since 1970-01-01T00:00:00Z. */ pub fn get_time() -> Timespec { unsafe { let mut sec = 0i64; let mut nsec = 0i32; rustrt::get_time(&mut sec, &mut nsec); return Timespec::new(sec, nsec); } } /** * Returns the current value of a high-resolution performance counter * in nanoseconds since an unspecified epoch. */ pub fn precise_time_ns() -> u64 { unsafe { let mut ns = 0u64; rustrt::precise_time_ns(&mut ns); ns } } /** * Returns the current value of a high-resolution performance counter * in seconds since an unspecified epoch. */ pub fn precise_time_s() -> float { return (precise_time_ns() as float) / 1000000000.; } pub fn tzset() { unsafe { rustrt::rust_tzset(); } } #[auto_encode] #[auto_decode] pub struct Tm { tm_sec: i32, // seconds after the minute ~[0-60] tm_min: i32, // minutes after the hour ~[0-59] tm_hour: i32, // hours after midnight ~[0-23] tm_mday: i32, // days of the month ~[1-31] tm_mon: i32, // months since January ~[0-11] tm_year: i32, // years since 1900 tm_wday: i32, // days since Sunday ~[0-6] tm_yday: i32, // days since January 1 ~[0-365] tm_isdst: i32, // Daylight Savings Time flag tm_gmtoff: i32, // offset from UTC in seconds tm_zone: ~str, // timezone abbreviation tm_nsec: i32, // nanoseconds } impl Eq for Tm { pure fn eq(&self, other: &Tm) -> bool { self.tm_sec == (*other).tm_sec && self.tm_min == (*other).tm_min && self.tm_hour == (*other).tm_hour && self.tm_mday == (*other).tm_mday && self.tm_mon == (*other).tm_mon && self.tm_year == (*other).tm_year && self.tm_wday == (*other).tm_wday && self.tm_yday == (*other).tm_yday && self.tm_isdst == (*other).tm_isdst && self.tm_gmtoff == (*other).tm_gmtoff && self.tm_zone == (*other).tm_zone && self.tm_nsec == (*other).tm_nsec } pure fn ne(&self, other: &Tm) -> bool { !self.eq(other) } } pub pure fn empty_tm() -> Tm { Tm { tm_sec: 0_i32, tm_min: 0_i32, tm_hour: 0_i32, tm_mday: 0_i32, tm_mon: 0_i32, tm_year: 0_i32, tm_wday: 0_i32, tm_yday: 0_i32, tm_isdst: 0_i32, tm_gmtoff: 0_i32, tm_zone: ~"", tm_nsec: 0_i32, } } /// Returns the specified time in UTC pub fn at_utc(clock: Timespec) -> Tm { unsafe { let mut Timespec { sec, nsec } = clock; let mut tm = empty_tm(); rustrt::rust_gmtime(sec, nsec, tm); tm } } /// Returns the current time in UTC pub fn now_utc() -> Tm { at_utc(get_time()) } /// Returns the specified time in the local timezone pub fn at(clock: Timespec) -> Tm { unsafe { let mut Timespec { sec, nsec } = clock; let mut tm = empty_tm(); rustrt::rust_localtime(sec, nsec, tm); tm } } /// Returns the current time in the local timezone pub fn now() -> Tm { at(get_time()) } /// Parses the time from the string according to the format string. pub pure fn strptime(s: &str, format: &str) -> Result { // unsafe only because do_strptime is annoying to make pure // (it does IO with a str_reader) unsafe {do_strptime(s, format)} } /// Formats the time according to the format string. pub pure fn strftime(format: &str, tm: &Tm) -> ~str { // unsafe only because do_strftime is annoying to make pure // (it does IO with a str_reader) unsafe { do_strftime(format, tm) } } pub impl Tm { /// Convert time to the seconds from January 1, 1970 fn to_timespec(&self) -> Timespec { unsafe { let mut sec = 0i64; if self.tm_gmtoff == 0_i32 { rustrt::rust_timegm(*self, &mut sec); } else { rustrt::rust_mktime(*self, &mut sec); } Timespec::new(sec, self.tm_nsec) } } /// Convert time to the local timezone fn to_local(&self) -> Tm { at(self.to_timespec()) } /// Convert time to the UTC fn to_utc(&self) -> Tm { at_utc(self.to_timespec()) } /** * Return a string of the current time in the form * "Thu Jan 1 00:00:00 1970". */ pure fn ctime(&self) -> ~str { self.strftime(~"%c") } /// Formats the time according to the format string. pure fn strftime(&self, format: &str) -> ~str { strftime(format, self) } /** * Returns a time string formatted according to RFC 822. * * local: "Thu, 22 Mar 2012 07:53:18 PST" * utc: "Thu, 22 Mar 2012 14:53:18 UTC" */ pure fn rfc822(&self) -> ~str { if self.tm_gmtoff == 0_i32 { self.strftime(~"%a, %d %b %Y %T GMT") } else { self.strftime(~"%a, %d %b %Y %T %Z") } } /** * Returns a time string formatted according to RFC 822 with Zulu time. * * local: "Thu, 22 Mar 2012 07:53:18 -0700" * utc: "Thu, 22 Mar 2012 14:53:18 -0000" */ pure fn rfc822z(&self) -> ~str { self.strftime(~"%a, %d %b %Y %T %z") } /** * Returns a time string formatted according to ISO 8601. * * local: "2012-02-22T07:53:18-07:00" * utc: "2012-02-22T14:53:18Z" */ pure fn rfc3339(&self) -> ~str { if self.tm_gmtoff == 0_i32 { self.strftime(~"%Y-%m-%dT%H:%M:%SZ") } else { let s = self.strftime(~"%Y-%m-%dT%H:%M:%S"); let sign = if self.tm_gmtoff > 0_i32 { '+' } else { '-' }; let mut m = i32::abs(self.tm_gmtoff) / 60_i32; let h = m / 60_i32; m -= h * 60_i32; s + fmt!("%c%02d:%02d", sign, h as int, m as int) } } } priv fn do_strptime(s: &str, format: &str) -> Result { fn match_str(s: &str, pos: uint, needle: &str) -> bool { let mut i = pos; for str::each(needle) |ch| { if s[i] != ch { return false; } i += 1u; } return true; } fn match_strs(ss: &str, pos: uint, strs: &[(~str, i32)]) -> Option<(i32, uint)> { let mut i = 0u; let len = strs.len(); while i < len { let &(needle, value) = &strs[i]; if match_str(ss, pos, needle) { return Some((value, pos + str::len(needle))); } i += 1u; } None } fn match_digits(ss: &str, pos: uint, digits: uint, ws: bool) -> Option<(i32, uint)> { let mut pos = pos; let mut value = 0_i32; let mut i = 0u; while i < digits { let range = str::char_range_at(str::from_slice(ss), pos); pos = range.next; match range.ch { '0' .. '9' => { value = value * 10_i32 + (range.ch as i32 - '0' as i32); } ' ' if ws => (), _ => return None } i += 1u; } Some((value, pos)) } fn match_digits_in_range(ss: &str, pos: uint, digits: uint, ws: bool, min: i32, max: i32) -> Option<(i32, uint)> { match match_digits(ss, pos, digits, ws) { Some((val, pos)) if val >= min && val <= max => { Some((val, pos)) } _ => None } } fn parse_char(s: &str, pos: uint, c: char) -> Result { let range = str::char_range_at(s, pos); if c == range.ch { Ok(range.next) } else { Err(fmt!("Expected %?, found %?", str::from_char(c), str::from_char(range.ch))) } } fn parse_type(s: &str, pos: uint, ch: char, tm: &mut Tm) -> Result { match ch { 'A' => match match_strs(s, pos, ~[ (~"Sunday", 0_i32), (~"Monday", 1_i32), (~"Tuesday", 2_i32), (~"Wednesday", 3_i32), (~"Thursday", 4_i32), (~"Friday", 5_i32), (~"Saturday", 6_i32) ]) { Some(item) => { let (v, pos) = item; tm.tm_wday = v; Ok(pos) } None => Err(~"Invalid day") }, 'a' => match match_strs(s, pos, ~[ (~"Sun", 0_i32), (~"Mon", 1_i32), (~"Tue", 2_i32), (~"Wed", 3_i32), (~"Thu", 4_i32), (~"Fri", 5_i32), (~"Sat", 6_i32) ]) { Some(item) => { let (v, pos) = item; tm.tm_wday = v; Ok(pos) } None => Err(~"Invalid day") }, 'B' => match match_strs(s, pos, ~[ (~"January", 0_i32), (~"February", 1_i32), (~"March", 2_i32), (~"April", 3_i32), (~"May", 4_i32), (~"June", 5_i32), (~"July", 6_i32), (~"August", 7_i32), (~"September", 8_i32), (~"October", 9_i32), (~"November", 10_i32), (~"December", 11_i32) ]) { Some(item) => { let (v, pos) = item; tm.tm_mon = v; Ok(pos) } None => Err(~"Invalid month") }, 'b' | 'h' => match match_strs(s, pos, ~[ (~"Jan", 0_i32), (~"Feb", 1_i32), (~"Mar", 2_i32), (~"Apr", 3_i32), (~"May", 4_i32), (~"Jun", 5_i32), (~"Jul", 6_i32), (~"Aug", 7_i32), (~"Sep", 8_i32), (~"Oct", 9_i32), (~"Nov", 10_i32), (~"Dec", 11_i32) ]) { Some(item) => { let (v, pos) = item; tm.tm_mon = v; Ok(pos) } None => Err(~"Invalid month") }, 'C' => match match_digits_in_range(s, pos, 2u, false, 0_i32, 99_i32) { Some(item) => { let (v, pos) = item; tm.tm_year += (v * 100_i32) - 1900_i32; Ok(pos) } None => Err(~"Invalid year") }, 'c' => { parse_type(s, pos, 'a', &mut *tm) .chain(|pos| parse_char(s, pos, ' ')) .chain(|pos| parse_type(s, pos, 'b', &mut *tm)) .chain(|pos| parse_char(s, pos, ' ')) .chain(|pos| parse_type(s, pos, 'e', &mut *tm)) .chain(|pos| parse_char(s, pos, ' ')) .chain(|pos| parse_type(s, pos, 'T', &mut *tm)) .chain(|pos| parse_char(s, pos, ' ')) .chain(|pos| parse_type(s, pos, 'Y', &mut *tm)) } 'D' | 'x' => { parse_type(s, pos, 'm', &mut *tm) .chain(|pos| parse_char(s, pos, '/')) .chain(|pos| parse_type(s, pos, 'd', &mut *tm)) .chain(|pos| parse_char(s, pos, '/')) .chain(|pos| parse_type(s, pos, 'y', &mut *tm)) } 'd' => match match_digits_in_range(s, pos, 2u, false, 1_i32, 31_i32) { Some(item) => { let (v, pos) = item; tm.tm_mday = v; Ok(pos) } None => Err(~"Invalid day of the month") }, 'e' => match match_digits_in_range(s, pos, 2u, true, 1_i32, 31_i32) { Some(item) => { let (v, pos) = item; tm.tm_mday = v; Ok(pos) } None => Err(~"Invalid day of the month") }, 'F' => { parse_type(s, pos, 'Y', &mut *tm) .chain(|pos| parse_char(s, pos, '-')) .chain(|pos| parse_type(s, pos, 'm', &mut *tm)) .chain(|pos| parse_char(s, pos, '-')) .chain(|pos| parse_type(s, pos, 'd', &mut *tm)) } 'H' => { match match_digits_in_range(s, pos, 2u, false, 0_i32, 23_i32) { Some(item) => { let (v, pos) = item; tm.tm_hour = v; Ok(pos) } None => Err(~"Invalid hour") } } 'I' => { match match_digits_in_range(s, pos, 2u, false, 1_i32, 12_i32) { Some(item) => { let (v, pos) = item; tm.tm_hour = if v == 12_i32 { 0_i32 } else { v }; Ok(pos) } None => Err(~"Invalid hour") } } 'j' => { match match_digits_in_range(s, pos, 3u, false, 1_i32, 366_i32) { Some(item) => { let (v, pos) = item; tm.tm_yday = v - 1_i32; Ok(pos) } None => Err(~"Invalid day of year") } } 'k' => { match match_digits_in_range(s, pos, 2u, true, 0_i32, 23_i32) { Some(item) => { let (v, pos) = item; tm.tm_hour = v; Ok(pos) } None => Err(~"Invalid hour") } } 'l' => { match match_digits_in_range(s, pos, 2u, true, 1_i32, 12_i32) { Some(item) => { let (v, pos) = item; tm.tm_hour = if v == 12_i32 { 0_i32 } else { v }; Ok(pos) } None => Err(~"Invalid hour") } } 'M' => { match match_digits_in_range(s, pos, 2u, false, 0_i32, 59_i32) { Some(item) => { let (v, pos) = item; tm.tm_min = v; Ok(pos) } None => Err(~"Invalid minute") } } 'm' => { match match_digits_in_range(s, pos, 2u, false, 1_i32, 12_i32) { Some(item) => { let (v, pos) = item; tm.tm_mon = v - 1_i32; Ok(pos) } None => Err(~"Invalid month") } } 'n' => parse_char(s, pos, '\n'), 'P' => match match_strs(s, pos, ~[(~"am", 0_i32), (~"pm", 12_i32)]) { Some(item) => { let (v, pos) = item; tm.tm_hour += v; Ok(pos) } None => Err(~"Invalid hour") }, 'p' => match match_strs(s, pos, ~[(~"AM", 0_i32), (~"PM", 12_i32)]) { Some(item) => { let (v, pos) = item; tm.tm_hour += v; Ok(pos) } None => Err(~"Invalid hour") }, 'R' => { parse_type(s, pos, 'H', &mut *tm) .chain(|pos| parse_char(s, pos, ':')) .chain(|pos| parse_type(s, pos, 'M', &mut *tm)) } 'r' => { parse_type(s, pos, 'I', &mut *tm) .chain(|pos| parse_char(s, pos, ':')) .chain(|pos| parse_type(s, pos, 'M', &mut *tm)) .chain(|pos| parse_char(s, pos, ':')) .chain(|pos| parse_type(s, pos, 'S', &mut *tm)) .chain(|pos| parse_char(s, pos, ' ')) .chain(|pos| parse_type(s, pos, 'p', &mut *tm)) } 'S' => { match match_digits_in_range(s, pos, 2u, false, 0_i32, 60_i32) { Some(item) => { let (v, pos) = item; tm.tm_sec = v; Ok(pos) } None => Err(~"Invalid second") } } //'s' {} 'T' | 'X' => { parse_type(s, pos, 'H', &mut *tm) .chain(|pos| parse_char(s, pos, ':')) .chain(|pos| parse_type(s, pos, 'M', &mut *tm)) .chain(|pos| parse_char(s, pos, ':')) .chain(|pos| parse_type(s, pos, 'S', &mut *tm)) } 't' => parse_char(s, pos, '\t'), 'u' => { match match_digits_in_range(s, pos, 1u, false, 1_i32, 7_i32) { Some(item) => { let (v, pos) = item; tm.tm_wday = if v == 7 { 0 } else { v }; Ok(pos) } None => Err(~"Invalid day of week") } } 'v' => { parse_type(s, pos, 'e', &mut *tm) .chain(|pos| parse_char(s, pos, '-')) .chain(|pos| parse_type(s, pos, 'b', &mut *tm)) .chain(|pos| parse_char(s, pos, '-')) .chain(|pos| parse_type(s, pos, 'Y', &mut *tm)) } //'W' {} 'w' => { match match_digits_in_range(s, pos, 1u, false, 0_i32, 6_i32) { Some(item) => { let (v, pos) = item; tm.tm_wday = v; Ok(pos) } None => Err(~"Invalid day of week") } } //'X' {} //'x' {} 'Y' => { match match_digits(s, pos, 4u, false) { Some(item) => { let (v, pos) = item; tm.tm_year = v - 1900_i32; Ok(pos) } None => Err(~"Invalid year") } } 'y' => { match match_digits_in_range(s, pos, 2u, false, 0_i32, 99_i32) { Some(item) => { let (v, pos) = item; tm.tm_year = v; Ok(pos) } None => Err(~"Invalid year") } } 'Z' => { if match_str(s, pos, ~"UTC") || match_str(s, pos, ~"GMT") { tm.tm_gmtoff = 0_i32; tm.tm_zone = ~"UTC"; Ok(pos + 3u) } else { // It's odd, but to maintain compatibility with c's // strptime we ignore the timezone. let mut pos = pos; let len = str::len(s); while pos < len { let range = str::char_range_at(s, pos); pos = range.next; if range.ch == ' ' { break; } } Ok(pos) } } 'z' => { let range = str::char_range_at(s, pos); if range.ch == '+' || range.ch == '-' { match match_digits(s, range.next, 4u, false) { Some(item) => { let (v, pos) = item; if v == 0_i32 { tm.tm_gmtoff = 0_i32; tm.tm_zone = ~"UTC"; } Ok(pos) } None => Err(~"Invalid zone offset") } } else { Err(~"Invalid zone offset") } } '%' => parse_char(s, pos, '%'), ch => { Err(fmt!("unknown formatting type: %?", str::from_char(ch))) } } } do io::with_str_reader(str::from_slice(format)) |rdr| { let mut tm = Tm { tm_sec: 0_i32, tm_min: 0_i32, tm_hour: 0_i32, tm_mday: 0_i32, tm_mon: 0_i32, tm_year: 0_i32, tm_wday: 0_i32, tm_yday: 0_i32, tm_isdst: 0_i32, tm_gmtoff: 0_i32, tm_zone: ~"", tm_nsec: 0_i32, }; let mut pos = 0u; let len = str::len(s); let mut result = Err(~"Invalid time"); while !rdr.eof() && pos < len { let range = str::char_range_at(s, pos); let ch = range.ch; let next = range.next; match rdr.read_char() { '%' => { match parse_type(s, pos, rdr.read_char(), &mut tm) { Ok(next) => pos = next, Err(e) => { result = Err(e); break; } } }, c => { if c != ch { break } pos = next; } } } if pos == len && rdr.eof() { Ok(Tm { tm_sec: tm.tm_sec, tm_min: tm.tm_min, tm_hour: tm.tm_hour, tm_mday: tm.tm_mday, tm_mon: tm.tm_mon, tm_year: tm.tm_year, tm_wday: tm.tm_wday, tm_yday: tm.tm_yday, tm_isdst: tm.tm_isdst, tm_gmtoff: tm.tm_gmtoff, tm_zone: copy tm.tm_zone, tm_nsec: tm.tm_nsec, }) } else { result } } } priv fn do_strftime(format: &str, tm: &Tm) -> ~str { fn parse_type(ch: char, tm: &Tm) -> ~str { //FIXME (#2350): Implement missing types. let die = || fmt!("strftime: can't understand this format %c ", ch); match ch { 'A' => match tm.tm_wday as int { 0 => ~"Sunday", 1 => ~"Monday", 2 => ~"Tuesday", 3 => ~"Wednesday", 4 => ~"Thursday", 5 => ~"Friday", 6 => ~"Saturday", _ => die() }, 'a' => match tm.tm_wday as int { 0 => ~"Sun", 1 => ~"Mon", 2 => ~"Tue", 3 => ~"Wed", 4 => ~"Thu", 5 => ~"Fri", 6 => ~"Sat", _ => die() }, 'B' => match tm.tm_mon as int { 0 => ~"January", 1 => ~"February", 2 => ~"March", 3 => ~"April", 4 => ~"May", 5 => ~"June", 6 => ~"July", 7 => ~"August", 8 => ~"September", 9 => ~"October", 10 => ~"November", 11 => ~"December", _ => die() }, 'b' | 'h' => match tm.tm_mon as int { 0 => ~"Jan", 1 => ~"Feb", 2 => ~"Mar", 3 => ~"Apr", 4 => ~"May", 5 => ~"Jun", 6 => ~"Jul", 7 => ~"Aug", 8 => ~"Sep", 9 => ~"Oct", 10 => ~"Nov", 11 => ~"Dec", _ => die() }, 'C' => fmt!("%02d", (tm.tm_year as int + 1900) / 100), 'c' => { fmt!("%s %s %s %s %s", parse_type('a', tm), parse_type('b', tm), parse_type('e', tm), parse_type('T', tm), parse_type('Y', tm)) } 'D' | 'x' => { fmt!("%s/%s/%s", parse_type('m', tm), parse_type('d', tm), parse_type('y', tm)) } 'd' => fmt!("%02d", tm.tm_mday as int), 'e' => fmt!("%2d", tm.tm_mday as int), 'F' => { fmt!("%s-%s-%s", parse_type('Y', tm), parse_type('m', tm), parse_type('d', tm)) } //'G' {} //'g' {} 'H' => fmt!("%02d", tm.tm_hour as int), 'I' => { let mut h = tm.tm_hour as int; if h == 0 { h = 12 } if h > 12 { h -= 12 } fmt!("%02d", h) } 'j' => fmt!("%03d", tm.tm_yday as int + 1), 'k' => fmt!("%2d", tm.tm_hour as int), 'l' => { let mut h = tm.tm_hour as int; if h == 0 { h = 12 } if h > 12 { h -= 12 } fmt!("%2d", h) } 'M' => fmt!("%02d", tm.tm_min as int), 'm' => fmt!("%02d", tm.tm_mon as int + 1), 'n' => ~"\n", 'P' => if tm.tm_hour as int < 12 { ~"am" } else { ~"pm" }, 'p' => if tm.tm_hour as int < 12 { ~"AM" } else { ~"PM" }, 'R' => { fmt!("%s:%s", parse_type('H', tm), parse_type('M', tm)) } 'r' => { fmt!("%s:%s:%s %s", parse_type('I', tm), parse_type('M', tm), parse_type('S', tm), parse_type('p', tm)) } 'S' => fmt!("%02d", tm.tm_sec as int), 's' => fmt!("%d", tm.to_timespec().sec as int), 'T' | 'X' => { fmt!("%s:%s:%s", parse_type('H', tm), parse_type('M', tm), parse_type('S', tm)) } 't' => ~"\t", //'U' {} 'u' => { let i = tm.tm_wday as int; int::to_str(if i == 0 { 7 } else { i }) } //'V' {} 'v' => { fmt!("%s-%s-%s", parse_type('e', tm), parse_type('b', tm), parse_type('Y', tm)) } //'W' {} 'w' => int::to_str(tm.tm_wday as int), //'X' {} //'x' {} 'Y' => int::to_str(tm.tm_year as int + 1900), 'y' => fmt!("%02d", (tm.tm_year as int + 1900) % 100), 'Z' => copy tm.tm_zone, 'z' => { let sign = if tm.tm_gmtoff > 0_i32 { '+' } else { '-' }; let mut m = i32::abs(tm.tm_gmtoff) / 60_i32; let h = m / 60_i32; m -= h * 60_i32; fmt!("%c%02d%02d", sign, h as int, m as int) } //'+' {} '%' => ~"%", _ => die() } } let mut buf = ~""; do io::with_str_reader(str::from_slice(format)) |rdr| { while !rdr.eof() { match rdr.read_char() { '%' => buf += parse_type(rdr.read_char(), tm), ch => str::push_char(&mut buf, ch) } } } buf } #[cfg(test)] mod tests { use time::*; use core::float; use core::os; use core::result; use core::result::{Err, Ok}; use core::str; use core::vec; pub fn test_get_time() { const some_recent_date: i64 = 1325376000i64; // 2012-01-01T00:00:00Z const some_future_date: i64 = 1577836800i64; // 2020-01-01T00:00:00Z let tv1 = get_time(); debug!("tv1=%? sec + %? nsec", tv1.sec as uint, tv1.nsec as uint); fail_unless!(tv1.sec > some_recent_date); fail_unless!(tv1.nsec < 1000000000i32); let tv2 = get_time(); debug!("tv2=%? sec + %? nsec", tv2.sec as uint, tv2.nsec as uint); fail_unless!(tv2.sec >= tv1.sec); fail_unless!(tv2.sec < some_future_date); fail_unless!(tv2.nsec < 1000000000i32); if tv2.sec == tv1.sec { fail_unless!(tv2.nsec >= tv1.nsec); } } pub fn test_precise_time() { let s0 = precise_time_s(); let ns1 = precise_time_ns(); debug!("s0=%s sec", float::to_str_digits(s0, 9u)); fail_unless!(s0 > 0.); let ns0 = (s0 * 1000000000.) as u64; debug!("ns0=%? ns", ns0); debug!("ns1=%? ns", ns0); fail_unless!(ns1 >= ns0); let ns2 = precise_time_ns(); debug!("ns2=%? ns", ns0); fail_unless!(ns2 >= ns1); } pub fn test_at_utc() { os::setenv(~"TZ", ~"America/Los_Angeles"); tzset(); let time = ::time::Timespec::new(1234567890, 54321); let utc = at_utc(time); fail_unless!(utc.tm_sec == 30_i32); fail_unless!(utc.tm_min == 31_i32); fail_unless!(utc.tm_hour == 23_i32); fail_unless!(utc.tm_mday == 13_i32); fail_unless!(utc.tm_mon == 1_i32); fail_unless!(utc.tm_year == 109_i32); fail_unless!(utc.tm_wday == 5_i32); fail_unless!(utc.tm_yday == 43_i32); fail_unless!(utc.tm_isdst == 0_i32); fail_unless!(utc.tm_gmtoff == 0_i32); fail_unless!(utc.tm_zone == ~"UTC"); fail_unless!(utc.tm_nsec == 54321_i32); } pub fn test_at() { os::setenv(~"TZ", ~"America/Los_Angeles"); tzset(); let time = ::time::Timespec::new(1234567890, 54321); let local = at(time); error!("time_at: %?", local); fail_unless!(local.tm_sec == 30_i32); fail_unless!(local.tm_min == 31_i32); fail_unless!(local.tm_hour == 15_i32); fail_unless!(local.tm_mday == 13_i32); fail_unless!(local.tm_mon == 1_i32); fail_unless!(local.tm_year == 109_i32); fail_unless!(local.tm_wday == 5_i32); fail_unless!(local.tm_yday == 43_i32); fail_unless!(local.tm_isdst == 0_i32); fail_unless!(local.tm_gmtoff == -28800_i32); // FIXME (#2350): We should probably standardize on the timezone // abbreviation. let zone = &local.tm_zone; fail_unless!(*zone == ~"PST" || *zone == ~"Pacific Standard Time"); fail_unless!(local.tm_nsec == 54321_i32); } pub fn test_to_timespec() { os::setenv(~"TZ", ~"America/Los_Angeles"); tzset(); let time = ::time::Timespec::new(1234567890, 54321); let utc = at_utc(time); fail_unless!(utc.to_timespec() == time); fail_unless!(utc.to_local().to_timespec() == time); } pub fn test_conversions() { os::setenv(~"TZ", ~"America/Los_Angeles"); tzset(); let time = ::time::Timespec::new(1234567890, 54321); let utc = at_utc(time); let local = at(time); fail_unless!(local.to_local() == local); fail_unless!(local.to_utc() == utc); fail_unless!(local.to_utc().to_local() == local); fail_unless!(utc.to_utc() == utc); fail_unless!(utc.to_local() == local); fail_unless!(utc.to_local().to_utc() == utc); } pub fn test_strptime() { os::setenv(~"TZ", ~"America/Los_Angeles"); tzset(); match strptime(~"", ~"") { Ok(ref tm) => { fail_unless!(tm.tm_sec == 0_i32); fail_unless!(tm.tm_min == 0_i32); fail_unless!(tm.tm_hour == 0_i32); fail_unless!(tm.tm_mday == 0_i32); fail_unless!(tm.tm_mon == 0_i32); fail_unless!(tm.tm_year == 0_i32); fail_unless!(tm.tm_wday == 0_i32); fail_unless!(tm.tm_isdst== 0_i32); fail_unless!(tm.tm_gmtoff == 0_i32); fail_unless!(tm.tm_zone == ~""); fail_unless!(tm.tm_nsec == 0_i32); } Err(_) => () } let format = ~"%a %b %e %T %Y"; fail_unless!(strptime(~"", format) == Err(~"Invalid time")); fail_unless!(strptime(~"Fri Feb 13 15:31:30", format) == Err(~"Invalid time")); match strptime(~"Fri Feb 13 15:31:30 2009", format) { Err(copy e) => fail!(e), Ok(ref tm) => { fail_unless!(tm.tm_sec == 30_i32); fail_unless!(tm.tm_min == 31_i32); fail_unless!(tm.tm_hour == 15_i32); fail_unless!(tm.tm_mday == 13_i32); fail_unless!(tm.tm_mon == 1_i32); fail_unless!(tm.tm_year == 109_i32); fail_unless!(tm.tm_wday == 5_i32); fail_unless!(tm.tm_yday == 0_i32); fail_unless!(tm.tm_isdst == 0_i32); fail_unless!(tm.tm_gmtoff == 0_i32); fail_unless!(tm.tm_zone == ~""); fail_unless!(tm.tm_nsec == 0_i32); } } fn test(s: &str, format: &str) -> bool { match strptime(s, format) { Ok(ref tm) => tm.strftime(format) == str::from_slice(s), Err(copy e) => fail!(e) } } for vec::each([ ~"Sunday", ~"Monday", ~"Tuesday", ~"Wednesday", ~"Thursday", ~"Friday", ~"Saturday" ]) |day| { fail_unless!(test(*day, ~"%A")); } for vec::each([ ~"Sun", ~"Mon", ~"Tue", ~"Wed", ~"Thu", ~"Fri", ~"Sat" ]) |day| { fail_unless!(test(*day, ~"%a")); } for vec::each([ ~"January", ~"February", ~"March", ~"April", ~"May", ~"June", ~"July", ~"August", ~"September", ~"October", ~"November", ~"December" ]) |day| { fail_unless!(test(*day, ~"%B")); } for vec::each([ ~"Jan", ~"Feb", ~"Mar", ~"Apr", ~"May", ~"Jun", ~"Jul", ~"Aug", ~"Sep", ~"Oct", ~"Nov", ~"Dec" ]) |day| { fail_unless!(test(*day, ~"%b")); } fail_unless!(test(~"19", ~"%C")); fail_unless!(test(~"Fri Feb 13 23:31:30 2009", ~"%c")); fail_unless!(test(~"02/13/09", ~"%D")); fail_unless!(test(~"03", ~"%d")); fail_unless!(test(~"13", ~"%d")); fail_unless!(test(~" 3", ~"%e")); fail_unless!(test(~"13", ~"%e")); fail_unless!(test(~"2009-02-13", ~"%F")); fail_unless!(test(~"03", ~"%H")); fail_unless!(test(~"13", ~"%H")); fail_unless!(test(~"03", ~"%I")); // FIXME (#2350): flesh out fail_unless!(test(~"11", ~"%I")); // FIXME (#2350): flesh out fail_unless!(test(~"044", ~"%j")); fail_unless!(test(~" 3", ~"%k")); fail_unless!(test(~"13", ~"%k")); fail_unless!(test(~" 1", ~"%l")); fail_unless!(test(~"11", ~"%l")); fail_unless!(test(~"03", ~"%M")); fail_unless!(test(~"13", ~"%M")); fail_unless!(test(~"\n", ~"%n")); fail_unless!(test(~"am", ~"%P")); fail_unless!(test(~"pm", ~"%P")); fail_unless!(test(~"AM", ~"%p")); fail_unless!(test(~"PM", ~"%p")); fail_unless!(test(~"23:31", ~"%R")); fail_unless!(test(~"11:31:30 AM", ~"%r")); fail_unless!(test(~"11:31:30 PM", ~"%r")); fail_unless!(test(~"03", ~"%S")); fail_unless!(test(~"13", ~"%S")); fail_unless!(test(~"15:31:30", ~"%T")); fail_unless!(test(~"\t", ~"%t")); fail_unless!(test(~"1", ~"%u")); fail_unless!(test(~"7", ~"%u")); fail_unless!(test(~"13-Feb-2009", ~"%v")); fail_unless!(test(~"0", ~"%w")); fail_unless!(test(~"6", ~"%w")); fail_unless!(test(~"2009", ~"%Y")); fail_unless!(test(~"09", ~"%y")); fail_unless!(result::unwrap(strptime(~"UTC", ~"%Z")).tm_zone == ~"UTC"); fail_unless!(result::unwrap(strptime(~"PST", ~"%Z")).tm_zone == ~""); fail_unless!(result::unwrap(strptime(~"-0000", ~"%z")).tm_gmtoff == 0); fail_unless!(result::unwrap(strptime(~"-0800", ~"%z")).tm_gmtoff == 0); fail_unless!(test(~"%", ~"%%")); } pub fn test_ctime() { os::setenv(~"TZ", ~"America/Los_Angeles"); tzset(); let time = ::time::Timespec::new(1234567890, 54321); let utc = at_utc(time); let local = at(time); error!("test_ctime: %? %?", utc.ctime(), local.ctime()); fail_unless!(utc.ctime() == ~"Fri Feb 13 23:31:30 2009"); fail_unless!(local.ctime() == ~"Fri Feb 13 15:31:30 2009"); } pub fn test_strftime() { os::setenv(~"TZ", ~"America/Los_Angeles"); tzset(); let time = ::time::Timespec::new(1234567890, 54321); let utc = at_utc(time); let local = at(time); fail_unless!(local.strftime(~"") == ~""); fail_unless!(local.strftime(~"%A") == ~"Friday"); fail_unless!(local.strftime(~"%a") == ~"Fri"); fail_unless!(local.strftime(~"%B") == ~"February"); fail_unless!(local.strftime(~"%b") == ~"Feb"); fail_unless!(local.strftime(~"%C") == ~"20"); fail_unless!(local.strftime(~"%c") == ~"Fri Feb 13 15:31:30 2009"); fail_unless!(local.strftime(~"%D") == ~"02/13/09"); fail_unless!(local.strftime(~"%d") == ~"13"); fail_unless!(local.strftime(~"%e") == ~"13"); fail_unless!(local.strftime(~"%F") == ~"2009-02-13"); // fail_unless!(local.strftime("%G") == "2009"); // fail_unless!(local.strftime("%g") == "09"); fail_unless!(local.strftime(~"%H") == ~"15"); fail_unless!(local.strftime(~"%I") == ~"03"); fail_unless!(local.strftime(~"%j") == ~"044"); fail_unless!(local.strftime(~"%k") == ~"15"); fail_unless!(local.strftime(~"%l") == ~" 3"); fail_unless!(local.strftime(~"%M") == ~"31"); fail_unless!(local.strftime(~"%m") == ~"02"); fail_unless!(local.strftime(~"%n") == ~"\n"); fail_unless!(local.strftime(~"%P") == ~"pm"); fail_unless!(local.strftime(~"%p") == ~"PM"); fail_unless!(local.strftime(~"%R") == ~"15:31"); fail_unless!(local.strftime(~"%r") == ~"03:31:30 PM"); fail_unless!(local.strftime(~"%S") == ~"30"); fail_unless!(local.strftime(~"%s") == ~"1234567890"); fail_unless!(local.strftime(~"%T") == ~"15:31:30"); fail_unless!(local.strftime(~"%t") == ~"\t"); // fail_unless!(local.strftime("%U") == "06"); fail_unless!(local.strftime(~"%u") == ~"5"); // fail_unless!(local.strftime("%V") == "07"); fail_unless!(local.strftime(~"%v") == ~"13-Feb-2009"); // fail_unless!(local.strftime("%W") == "06"); fail_unless!(local.strftime(~"%w") == ~"5"); // handle "%X" // handle "%x" fail_unless!(local.strftime(~"%Y") == ~"2009"); fail_unless!(local.strftime(~"%y") == ~"09"); // FIXME (#2350): We should probably standardize on the timezone // abbreviation. let zone = local.strftime(~"%Z"); fail_unless!(zone == ~"PST" || zone == ~"Pacific Standard Time"); fail_unless!(local.strftime(~"%z") == ~"-0800"); fail_unless!(local.strftime(~"%%") == ~"%"); // FIXME (#2350): We should probably standardize on the timezone // abbreviation. let rfc822 = local.rfc822(); let prefix = ~"Fri, 13 Feb 2009 15:31:30 "; fail_unless!(rfc822 == prefix + ~"PST" || rfc822 == prefix + ~"Pacific Standard Time"); fail_unless!(local.ctime() == ~"Fri Feb 13 15:31:30 2009"); fail_unless!(local.rfc822z() == ~"Fri, 13 Feb 2009 15:31:30 -0800"); fail_unless!(local.rfc3339() == ~"2009-02-13T15:31:30-08:00"); fail_unless!(utc.ctime() == ~"Fri Feb 13 23:31:30 2009"); fail_unless!(utc.rfc822() == ~"Fri, 13 Feb 2009 23:31:30 GMT"); fail_unless!(utc.rfc822z() == ~"Fri, 13 Feb 2009 23:31:30 -0000"); fail_unless!(utc.rfc3339() == ~"2009-02-13T23:31:30Z"); } pub fn test_timespec_eq_ord() { use core::cmp::{eq, ge, gt, le, lt, ne}; let a = &Timespec::new(-2, 1); let b = &Timespec::new(-1, 2); let c = &Timespec::new(1, 2); let d = &Timespec::new(2, 1); let e = &Timespec::new(2, 1); fail_unless!(eq(d, e)); fail_unless!(ne(c, e)); fail_unless!(lt(a, b)); fail_unless!(lt(b, c)); fail_unless!(lt(c, d)); fail_unless!(le(a, b)); fail_unless!(le(b, c)); fail_unless!(le(c, d)); fail_unless!(le(d, e)); fail_unless!(le(e, d)); fail_unless!(ge(b, a)); fail_unless!(ge(c, b)); fail_unless!(ge(d, c)); fail_unless!(ge(e, d)); fail_unless!(ge(d, e)); fail_unless!(gt(b, a)); fail_unless!(gt(c, b)); fail_unless!(gt(d, c)); } #[test] pub fn run_tests() { // The tests race on tzset. So instead of having many independent // tests, we will just call the functions now. test_get_time(); test_precise_time(); test_at_utc(); test_at(); test_to_timespec(); test_conversions(); test_strptime(); test_ctime(); test_strftime(); test_timespec_eq_ord(); } }