Return to pa_vdate.h CVS log

Up to [parser3project] / parser3 / src / types

Annotation of parser3/src/types/pa_vdate.h, revision 1.34

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.34    ! paf        11: static const char * const IDENT_VDATE_H="$Date: 2004/07/27 08:57:44 $";
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: 
                     47: 
1.15      paf        48:        /// VDate: method,field
1.25      paf        49:        override Value* get_element(const String& aname, Value& aself, bool looking_up) {
1.15      paf        50:                // $method
1.25      paf        51:                if(Value* result=VStateless_object::get_element(aname, aself, looking_up))
1.1       parser     52:                        return result;
                     53: 
1.27      paf        54:                // $TZ
                     55:                if(aname=="TZ") 
                     56:                        return new VString(*ftz);
                     57: 
1.1       parser     58:                // $year month day  hour minute second  weekday
1.27      paf        59: 
                     60:                const char* saved_tz=0;
                     61:                static char saved_tz_pair[MAX_STRING];
                     62:                static char temp_tz_pair[MAX_STRING];
                     63:                if(ftz_cstr) {
                     64:                        saved_tz=getenv("TZ");
                     65:                        ::set_tz(ftz_cstr, temp_tz_pair, sizeof(temp_tz_pair));
                     66:                }
1.1       parser     67:                tm *tmOut=localtime(&ftime);
1.34    ! paf        68:                if(!tmOut)
        !            69:                        throw Exception(0,
        !            70:                                0,
        !            71:                                "invalid datetime (after changing TZ)");
1.27      paf        72:                if(saved_tz)
                     73:                        ::set_tz(saved_tz, saved_tz_pair, sizeof(saved_tz_pair));
                     74: 
1.1       parser     75:                int result;
                     76:                if(aname=="year") result=1900+tmOut->tm_year;
                     77:                else if(aname=="month") result=1+tmOut->tm_mon;
                     78:                else if(aname=="day") result=tmOut->tm_mday;
                     79:                else if(aname=="hour") result=tmOut->tm_hour;
                     80:                else if(aname=="minute") result=tmOut->tm_min;
                     81:                else if(aname=="second") result=tmOut->tm_sec;
                     82:                else if(aname=="weekday") result=tmOut->tm_wday;
1.13      paf        83:                else if(aname=="yearday") result=tmOut->tm_yday;
                     84:                else if(aname=="daylightsaving") result=tmOut->tm_isdst;
1.26      paf        85:                else { return bark("%s field not found", &aname); }
1.25      paf        86:                return new VInt(result);
1.1       parser     87:        }
                     88: 
                     89: public: // usage
                     90: 
1.27      paf        91:        VDate(time_t adate) : 
                     92:                ftz(0),
                     93:                ftz_cstr(0) {
1.33      paf        94:                set_time(adate);
1.27      paf        95:        }
1.1       parser     96: 
1.32      paf        97:        VDate(tm tmIn) : 
                     98:                ftime(0),
                     99:                ftz(0),
                    100:                ftz_cstr(0) {
                    101:                set_time(tmIn);
                    102:        }
                    103: 
1.19      paf       104:        time_t get_time() const { return ftime; }
1.32      paf       105:        void set_time(time_t atime) { 
                    106:                if(atime<0)
                    107:                        throw Exception(0,
                    108:                                0,
                    109:                                "invalid datetime");
                    110:                ftime=atime; 
                    111:        }
                    112:        void set_time(tm tmIn) { 
                    113:                time_t t=mktime(&tmIn);
                    114:                if(t<0) {
                    115:                        // on some platforms mktime does not fix spring daylightsaving time hole
                    116:                        // in russia -- last sunday of march, 2am->3am hole
                    117:                        // trying to recover:
                    118:                        tmIn.tm_hour--;
                    119:                        t=mktime(&tmIn);
                    120:                }
                    121:                set_time(t);
                    122:        }
1.27      paf       123:        void set_tz(const String* atz) { 
1.30      paf       124:                if((ftz=atz))
1.27      paf       125:                        ftz_cstr=ftz->cstr();
                    126:        }
1.1       parser    127: 
                    128: private:
                    129: 
                    130:        time_t ftime;
1.27      paf       131:        const String* ftz;
                    132:        const char* ftz_cstr;
1.1       parser    133: 
                    134: };
                    135: 
                    136: #endif