Return to pa_vdate.h CVS log

Up to [parser3project] / parser3 / src / types

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

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.36    ! paf        11: static const char * const IDENT_VDATE_H="$Date: 2005/03/23 08:49:59 $";
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") 
                     76:                        return new VString(*ftz);
                     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