|
|
| version 1.55, 2001/03/16 09:26:42 | version 1.130, 2002/04/15 11:34:24 |
|---|---|
| Line 1 | Line 1 |
| /* | /** @file |
| Parser | Parser: request class decl. |
| Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com) | |
| Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf) | Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com) |
| Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru) | |
| $Id$ | $Id$ |
| */ | */ |
| Line 17 | Line 18 |
| #include "pa_vclass.h" | #include "pa_vclass.h" |
| #include "pa_vobject.h" | #include "pa_vobject.h" |
| #include "pa_venv.h" | #include "pa_venv.h" |
| #include "pa_vstatus.h" | |
| #include "pa_vform.h" | #include "pa_vform.h" |
| #include "pa_vmath.h" | |
| #include "pa_vrequest.h" | |
| #include "pa_vresponse.h" | |
| #include "pa_vcookie.h" | |
| #include "pa_sql_driver_manager.h" | |
| #ifdef RESOURCES_DEBUG | |
| #include <sys/resource.h> | |
| #endif | |
| // consts | |
| const uint ANTI_ENDLESS_EXECUTE_RECOURSION=500; | |
| // defines | |
| #ifndef NO_STRING_ORIGIN | #ifndef NO_STRING_ORIGIN |
| # define COMPILE_PARAMS \ | # define COMPILE_PARAMS \ |
| Line 37 | Line 54 |
| #endif | #endif |
| class Temp_lang; | class Temp_lang; |
| class Methoded; | |
| class VMethodFrame; | |
| /// Main workhorse. | |
| class Request : public Pooled { | class Request : public Pooled { |
| friend Temp_lang; | friend class Temp_lang; |
| friend class Temp_connection; | |
| public: | public: |
| struct Info { | #ifdef RESOURCES_DEBUG |
| /// measures | |
| double sql_connect_time; | |
| double sql_request_time; | |
| #endif | |
| /// some information from web server | |
| class Info { | |
| public: | |
| const char *document_root; | const char *document_root; |
| const char *path_translated; | const char *path_translated; |
| const char *request_method; | const char *method; |
| const char *query_string; | const char *query_string; |
| const char *request_uri; | const char *uri; |
| const char *content_type; | const char *content_type; |
| size_t content_length; | size_t content_length; |
| const char *cookie; | |
| const char *user_agent; | |
| }; | }; |
| Request(Pool& apool, | Request(Pool& apool, |
| Info& ainfo, | Info& ainfo, |
| String::Untaint_lang alang | uchar adefault_lang, ///< all tainted data default untainting lang |
| bool status_allowed ///< status class allowed | |
| ); | ); |
| ~Request() {} | ~Request(); |
| // global classes | /// global classes |
| Hash& classes() { return fclasses; } | Hash& classes() { return fclasses; } |
| // core request processing | /** |
| char *core( | core request processing |
| const char *sys_auto_path1, | |
| const char *sys_auto_path2); | |
| void execute(const Array& ops); | BEWARE: may throw exception to you: catch it! |
| */ | |
| void core( | |
| const char *root_config_filespec, ///< system config filespec | |
| bool root_config_fail_on_read_problem, ///< fail if system config file not found | |
| const char *site_config_filespec, ///< site config filespec | |
| bool site_config_fail_on_read_problem, ///< fail if site config file not found | |
| bool header_only); | |
| /// executes ops | |
| void execute(const Array& ops); // execute.C | |
| /// execute ops with anti-recoursion check | |
| void recoursion_checked_execute(const String *name, const Array& ops) { | |
| // anti_endless_execute_recoursion | |
| if(++anti_endless_execute_recoursion==ANTI_ENDLESS_EXECUTE_RECOURSION) { | |
| anti_endless_execute_recoursion=0; // give @exception a chance | |
| throw Exception("parser.runtime", | |
| name, | |
| "call canceled - endless recursion detected"); | |
| } | |
| execute(ops); // execute it | |
| anti_endless_execute_recoursion--; | |
| } | |
| /// compiles the file, maybe forcing it's class @a name and @a base_class. | |
| VStateless_class *use_file( | VStateless_class *use_file( |
| const char *file, bool fail_on_read_problem=true, | const String& file_name, |
| bool ignore_class_path=false, bool fail_on_read_problem=true, | |
| const String *name=0, | const String *name=0, |
| VStateless_class *base_class=0); // core.C | VStateless_class *base_class=0); // core.C |
| /// compiles a @a source buffer | |
| VStateless_class *use_buf( | VStateless_class *use_buf( |
| const char *source, const char *file, | const char *source, const char *file, |
| VStateless_class *aclass=0, const String *name=0, | VStateless_class *aclass=0, const String *name=0, |
| VStateless_class *base_class=0); // core.C | VStateless_class *base_class=0); // core.C |
| Value& process( | |
| Value& value, | /// processes any code-junction there may be inside of @a value |
| const String *name=0, | StringOrValue process(Value& input_value, bool intercept_string); // execute.C |
| bool intercept_string=true); // execute.C | //@{ convinient helpers |
| const String& process_to_string(Value& input_value) { | |
| // write(const) = clean | return process(input_value, true/*intercept_string*/).as_string(); |
| void write(const String& astring) { | } |
| wcontext->write(astring, String::Untaint_lang::NO); | Value& process_to_value(Value& input_value, bool intercept_string=true) { |
| } | return process(input_value, intercept_string).as_value(); |
| // appending, sure of clean string inside | } |
| void write_no_lang(String& astring) { | //@} |
| wcontext->write(astring, String::Untaint_lang::NO); | |
| /// appending, sure of clean string inside | |
| void write_no_lang(const String& astring) { | |
| wcontext->write(astring, | |
| String::UL_CLEAN | flang&String::UL_OPTIMIZE_BIT); | |
| } | |
| /// appending string, passing language built into string being written | |
| void write_pass_lang(const String& astring) { | |
| wcontext->write(astring, String::UL_PASS_APPENDED); | |
| } | } |
| // appending possible string, assigning untaint language | /// appending possible string, assigning untaint language |
| void write_assign_lang(Value& avalue) { | void write_assign_lang(Value& avalue) { |
| wcontext->write(avalue, flang); | wcontext->write(avalue, flang); |
| } | } |
| // appending possible string, passing language built into string being written | /// appending string, assigning untaint language |
| void write_assign_lang(const String& astring) { | |
| wcontext->write(astring, flang); | |
| } | |
| /// appending possible string, passing language built into string being written | |
| void write_pass_lang(Value& avalue) { | void write_pass_lang(Value& avalue) { |
| wcontext->write(avalue, String::Untaint_lang::PASS_APPENDED); | wcontext->write(avalue, String::UL_PASS_APPENDED); |
| } | } |
| // appending sure value, that would be converted to clean string | /// appending sure value, that would be converted to clean string |
| void write_no_lang(Value& avalue) { | void write_no_lang(Value& avalue) { |
| wcontext->write(avalue, String::Untaint_lang::NO); | if(wcontext->get_in_expression()) |
| wcontext->write(avalue); | |
| else | |
| wcontext->write(avalue, | |
| String::UL_CLEAN | flang&String::UL_OPTIMIZE_BIT); | |
| } | } |
| // appending sure value, not VString | /// appending sure value, not VString |
| void write_expr_result(Value& avalue) { | void write_expr_result(Value& avalue) { |
| wcontext->write(avalue); | wcontext->write(avalue); |
| } | } |
| void fail_if_junction_(bool is, Value& value, const String& method_name, char *msg); | /// returns relative to @a path path to @a file |
| const String& relative(const char *apath, const String& relative_name); | |
| /// returns an absolute @a path to relative @a name | |
| const String& absolute(const String& relative_name); | |
| /// returns the mime type of 'user_file_name_cstr' | |
| const String& mime_type_of(const char *user_file_name_cstr); | |
| /// returns current SQL connection if any | |
| SQL_Connection *connection(const String *source) { | |
| if(!fconnection && source) | |
| throw Exception("parser.runtime", | |
| source, | |
| "outside of 'connect' operator"); | |
| char *relative(const char *path, const char *file); | return fconnection; |
| char *absolute(const char *name); | } |
| public: | public: |
| // | /// info from web server |
| Info& info; | Info& info; |
| /// user's post data | |
| char *post_data; size_t post_size; | |
| // default base | /// operators are methods of this class |
| VClass root_class; | Methoded& OP; |
| // $env:fields here | /// $env:fields |
| VEnv env_class; | VEnv env; |
| // $form:elements here | /// $status:fields |
| VForm form_class; | VStatus status; |
| /// $form:elements | |
| VForm form; | |
| /// $math:constants | |
| VMath math; | |
| /// $request:elements | |
| VRequest request; | |
| /// $response:elements | |
| VResponse response; | |
| /// $cookie:elements | |
| VCookie cookie; | |
| // contexts | //@{ request processing status |
| /// execution stack | |
| Stack stack; | |
| /// contexts | |
| Value *self, *root, *rcontext; | Value *self, *root, *rcontext; |
| /// contexts | |
| WContext *wcontext; | WContext *wcontext; |
| /// exception stack trace | |
| Stack exception_trace; | |
| //@} | |
| /// 'MAIN' class conglomerat | |
| VStateless_class *main_class; | |
| /// classes configured data | |
| Hash classes_conf; | |
| private: // core data | private: // core data |
| // classes | /// classes |
| Hash fclasses; | Hash fclasses; |
| // execution stack | /// already used files to avoid cyclic uses |
| Stack stack; | Hash used_files; |
| /** endless execute(execute(... preventing counter | |
| @see ANTI_ENDLESS_EXECUTE_RECOURSION | |
| */ | |
| uint anti_endless_execute_recoursion; | |
| private: // compile.C | private: // compile.C |
| Line 141 private: // compile.C | Line 256 private: // compile.C |
| private: // execute.C | private: // execute.C |
| char *execute_method(Value& aself, const Method& method, bool return_cstr=true); | const String *execute_method(Value& aself, const Method& method, |
| char *execute_method(Value& aself, const String& method_name, bool return_cstr=true); | bool return_cstr); |
| const String& execute_method(VMethodFrame& amethodFrame, const Method& method); | |
| const String *execute_virtual_method(Value& aself, const String& method_name); | |
| const String *execute_nonvirtual_method(VStateless_class& aclass, | |
| const String& method_name, | |
| bool return_cstr); | |
| Value *get_element(); | Value *get_element(bool can_call_operator); |
| private: // lang&raw | private: // defaults |
| String::Untaint_lang flang; | const uchar fdefault_lang; |
| Value *default_content_type; | |
| private: // mime types | |
| /// $MAIN:MIME-TYPES | |
| Table *mime_types; | |
| private: // lang manipulation | private: // lang manipulation |
| String::Untaint_lang set_lang(String::Untaint_lang alang) { | uchar set_lang(uchar alang) { |
| String::Untaint_lang result=flang; | uchar result=flang; |
| flang=alang; | flang=alang; |
| return result; | return result; |
| } | } |
| void restore_lang(String::Untaint_lang alang) { | void restore_lang(uchar alang) { |
| flang=alang; | flang=alang; |
| } | } |
| private: // lang&raw | |
| uchar flang; | |
| private: // connection manipulation | |
| SQL_Connection *set_connection(SQL_Connection *aconnection) { | |
| SQL_Connection *result=fconnection; | |
| fconnection=aconnection; | |
| return result; | |
| } | |
| void restore_connection(SQL_Connection *aconnection) { | |
| fconnection=aconnection; | |
| } | |
| private: | |
| /// connection | |
| SQL_Connection *fconnection; | |
| void output_result(const VFile& body_file, bool header_only); | |
| }; | }; |
| /// Auto-object used for temporary changing Request::flang. | |
| class Temp_lang { | class Temp_lang { |
| Request& frequest; | Request& frequest; |
| String::Untaint_lang saved_lang; | uchar saved_lang; |
| public: | public: |
| Temp_lang(Request& arequest, String::Untaint_lang alang) : | Temp_lang(Request& arequest, uchar alang) : |
| frequest(arequest), | frequest(arequest), |
| saved_lang(arequest.set_lang(alang)) { | saved_lang(arequest.set_lang(alang)) { |
| } | } |
| Line 176 public: | Line 325 public: |
| } | } |
| }; | }; |
| /// Auto-object used for temporary changing Request::fconnection. | |
| class Temp_connection { | |
| Request& frequest; | |
| SQL_Connection *saved_connection; | |
| public: | |
| Temp_connection(Request& arequest, SQL_Connection *aconnection) : | |
| frequest(arequest), | |
| saved_connection(arequest.set_connection(aconnection)) { | |
| } | |
| ~Temp_connection() { | |
| frequest.restore_connection(saved_connection); | |
| } | |
| }; | |
| /** | |
| @b method parameters passed in this array. | |
| contains handy typecast ad junction/not junction ensurers | |
| */ | |
| class MethodParams : public Array { | |
| public: | |
| MethodParams(Pool& pool, const String& amethod_name) : Array(pool), | |
| fmethod_name(amethod_name) { | |
| } | |
| /// handy typecast. I long for templates | |
| Value& get(int index) { | |
| return *static_cast<Value *>(Array::get(index)); | |
| } | |
| /// handy is-value-a-junction ensurer | |
| Value& as_junction(int index, const char *msg) { | |
| return get_as(index, true, msg); | |
| } | |
| /// handy value-is-not-a-junction ensurer | |
| Value& as_no_junction(int index, const char *msg) { | |
| return get_as(index, false, msg); | |
| } | |
| /// handy expression auto-processing to double | |
| double as_double(int index, const char *msg, Request& r) { | |
| return get_processed(index, msg, r).as_double(); | |
| } | |
| /// handy expression auto-processing to int | |
| int as_int(int index, const char *msg, Request& r) { | |
| return get_processed(index, msg, r).as_int(); | |
| } | |
| /// handy expression auto-processing to bool | |
| bool as_bool(int index, const char *msg, Request& r) { | |
| return get_processed(index, msg, r).as_bool(); | |
| } | |
| /// handy string ensurer | |
| const String& as_string(int index, const char *msg) { | |
| return as_no_junction(index, msg).as_string(); | |
| } | |
| private: | |
| /// handy value-is/not-a-junction ensurer | |
| Value& get_as(int index, bool as_junction, const char *msg) { | |
| Value& result=get(index); | |
| if((result.get_junction()!=0) ^ as_junction) | |
| throw Exception("parser.runtime", | |
| &fmethod_name, | |
| "%s (parameter #%d)", msg, 1+index); | |
| return result; | |
| } | |
| Value& get_processed(int index, const char *msg, Request& r) { | |
| return r.process_to_value(as_junction(index, msg), 0/*no name*/); | |
| } | |
| private: | |
| const String& fmethod_name; | |
| }; | |
| #endif | #endif |