Return to pa_venv.h CVS log

Up to [parser3project] / parser3 / src / types

Annotation of parser3/src/types/pa_venv.h, revision 1.26

1.10      paf         1: /** @file
1.14      paf         2:        Parser: @b env class decl.
1.10      paf         3: 
1.19      paf         4:        Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
1.20      paf         5:        Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.2       paf         6: */
                      7: 
                      8: #ifndef PA_VENV_H
                      9: #define PA_VENV_H
1.22      paf        10: 
1.26    ! paf        11: static const char* IDENT_VENV_H="$Date: 2002/08/13 15:55:43 $";
1.2       paf        12: 
1.13      paf        13: #include "pa_sapi.h"
1.8       paf        14: #include "pa_common.h"
1.10      paf        15: #include "pa_value.h"
1.3       paf        16: #include "pa_string.h"
1.15      paf        17: 
                     18: #define ENV_CLASS_NAME "env"
1.2       paf        19: 
1.10      paf        20: /// env class
                     21: class VEnv : public Value {
1.2       paf        22: public: // Value
                     23:        
                     24:        const char *type() const { return "env"; }
1.21      paf        25:        /// VEnv: 0
                     26:        VStateless_class *get_class() { return 0; }
1.2       paf        27: 
1.10      paf        28:        // VEnv: field
1.26    ! paf        29:        Value *get_element(const String& aname, Value * /*aself*/, bool /*looking_up*/) {
1.5       paf        30:                // getenv
1.3       paf        31:                String& string=*NEW String(pool());
1.13      paf        32:                const char *val=SAPI::get_env(pool(), aname.cstr());
1.11      paf        33:                string.APPEND_TAINTED(val, 0, "environment", 0);
1.3       paf        34:                return NEW VString(string);
1.2       paf        35:        }
                     36: 
                     37: public: // usage
                     38: 
1.10      paf        39:        VEnv(Pool& apool) : Value(apool) {
1.2       paf        40:        }
                     41: 
                     42: };
                     43: 
                     44: #endif