Annotation of parser3/src/types/pa_vdate.h, revision 1.37
1.1 parser 1: /** @file
2: Parser: @b date parser class decl.
3:
1.31 paf 4: Copyright (c) 2001-2004 ArtLebedev Group (http://www.artlebedev.com)
1.8 paf 5: Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.1 parser 6: */
7:
8: #ifndef PA_VDATE_H
9: #define PA_VDATE_H
1.11 paf 10:
1.37 ! paf 11: static const char * const IDENT_VDATE_H="$Date: 2005/04/19 10:59:38 $";
1.1 parser 12:
13: #include "classes.h"
14: #include "pa_common.h"
15: #include "pa_vstateless_object.h"
16: #include "pa_vint.h"
17:
1.9 paf 18: // defines
19:
20: #define VDATE_TYPE "date"
1.20 paf 21:
1.9 paf 22: // externs
23:
1.25 paf 24: extern Methoded* date_class;
1.1 parser 25:
1.27 paf 26: inline void set_tz(const char* tz, char* buf, size_t buf_size) {
27: snprintf(buf, buf_size, "TZ=%s", tz?tz:"");
28: putenv(buf);
29: tzset();
30: }
31:
1.1 parser 32: /// value of type 'date'. implemented with @c time_t
1.25 paf 33: class VDate: public VStateless_object {
1.1 parser 34: public: // Value
35:
1.25 paf 36: override const char* type() const { return VDATE_TYPE; }
37: override VStateless_class *get_class() { return date_class; }
1.10 paf 38:
1.1 parser 39: /// VDate: ftime -> float days
1.28 paf 40: override Value& as_expr_result(bool /*return_string_as_is=false*/) { return *new VDouble(as_double()); }
1.1 parser 41:
42: /// VDate: ftime -> float days
1.25 paf 43: override double as_double() const { return ((double)ftime)/ SECS_PER_DAY; }
1.1 parser 44: /// VDate: 0 or !0
1.25 paf 45: override bool as_bool() const { return ftime!=0; }
1.1 parser 46:
1.35 paf 47: tm *get_localtime()
48: {
49: const char* saved_tz=0;
50: static char saved_tz_pair[MAX_STRING];
51: static char temp_tz_pair[MAX_STRING];
52: if(ftz_cstr) {
53: saved_tz=getenv("TZ");
54: ::set_tz(ftz_cstr, temp_tz_pair, sizeof(temp_tz_pair));
55: }
56: tm *result=::localtime(&ftime);
1.36 paf 57: if(ftz_cstr)
1.35 paf 58: ::set_tz(saved_tz, saved_tz_pair, sizeof(saved_tz_pair));
59: if(!result)
60: throw Exception(0,
61: 0,
62: "invalid datetime (after changing TZ)");
63:
64: return result;
65: }
66:
1.1 parser 67:
1.15 paf 68: /// VDate: method,field
1.25 paf 69: override Value* get_element(const String& aname, Value& aself, bool looking_up) {
1.15 paf 70: // $method
1.25 paf 71: if(Value* result=VStateless_object::get_element(aname, aself, looking_up))
1.1 parser 72: return result;
73:
1.27 paf 74: // $TZ
75: if(aname=="TZ")
1.37 ! paf 76: return ftz? new VString(*ftz): new VString();
1.27 paf 77:
1.1 parser 78: // $year month day hour minute second weekday
1.35 paf 79: tm *tmOut=get_localtime();
1.27 paf 80:
1.1 parser 81: int result;
82: if(aname=="year") result=1900+tmOut->tm_year;
83: else if(aname=="month") result=1+tmOut->tm_mon;
84: else if(aname=="day") result=tmOut->tm_mday;
85: else if(aname=="hour") result=tmOut->tm_hour;
86: else if(aname=="minute") result=tmOut->tm_min;
87: else if(aname=="second") result=tmOut->tm_sec;
88: else if(aname=="weekday") result=tmOut->tm_wday;
1.13 paf 89: else if(aname=="yearday") result=tmOut->tm_yday;
90: else if(aname=="daylightsaving") result=tmOut->tm_isdst;
1.26 paf 91: else { return bark("%s field not found", &aname); }
1.25 paf 92: return new VInt(result);
1.1 parser 93: }
94:
95: public: // usage
96:
1.27 paf 97: VDate(time_t adate) :
98: ftz(0),
99: ftz_cstr(0) {
1.33 paf 100: set_time(adate);
1.27 paf 101: }
1.1 parser 102:
1.32 paf 103: VDate(tm tmIn) :
104: ftime(0),
105: ftz(0),
106: ftz_cstr(0) {
107: set_time(tmIn);
108: }
109:
1.19 paf 110: time_t get_time() const { return ftime; }
1.32 paf 111: void set_time(time_t atime) {
112: if(atime<0)
113: throw Exception(0,
114: 0,
115: "invalid datetime");
116: ftime=atime;
117: }
118: void set_time(tm tmIn) {
119: time_t t=mktime(&tmIn);
120: if(t<0) {
121: // on some platforms mktime does not fix spring daylightsaving time hole
122: // in russia -- last sunday of march, 2am->3am hole
123: // trying to recover:
124: tmIn.tm_hour--;
125: t=mktime(&tmIn);
126: }
127: set_time(t);
128: }
1.27 paf 129: void set_tz(const String* atz) {
1.30 paf 130: if((ftz=atz))
1.27 paf 131: ftz_cstr=ftz->cstr();
132: }
1.1 parser 133:
134: private:
135:
136: time_t ftime;
1.27 paf 137: const String* ftz;
138: const char* ftz_cstr;
1.1 parser 139:
140: };
141:
142: #endif
E-mail:
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pa_vdate.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / src / types