[BACK]Return to table.C CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / classes

Diff for /parser3/src/classes/table.C between versions 1.1 and 1.17

version 1.1, 2001/03/12 13:40:01 version 1.17, 2001/03/19 19:17:41
Line 6 Line 6
         $Id$          $Id$
 */  */
   
   #include "pa_common.h"
 #include "pa_request.h"  #include "pa_request.h"
 #include "_table.h"  #include "_table.h"
 #include "pa_vtable.h"  #include "pa_vtable.h"
   #include "pa_vint.h"
   
 // global var  // global var
   
 VClass *table_class;  VStateless_class *table_class;
   
 // methods  // methods
   
   static void set_or_load(
 // TODO: проверить ^set в ^menu & co                                                  Request& r, 
                                                   const String& method_name, Array *params, 
 static void _set(Request& r, const String& method_name, Array *params) {                                                  bool is_load) {
         Pool& pool=r.pool();          Pool& pool=r.pool();
         // data is last parameter          // data is last parameter
         Value *vdata=static_cast<Value *>(params->get(params->size()-1));          Value *vdata=static_cast<Value *>(params->get(params->size()-1));
         if(vdata->get_junction())          // forcing
                 R_THROW(0, 0,          // ^load[this body type] 
                         &method_name,          // ^set{this body type}
                         "body must not be a junction");          r.fail_if_junction_(is_load, *vdata, 
                   method_name, is_load?"body must not be junction":"body must be junction");
         // data string  
         char *data=vdata->as_string().cstr();          // data or file_name
           char *data_or_filename;
           {
                   Temp_lang temp_lang(r, String::Untaint_lang::TABLE);
                   data_or_filename=r.process(*vdata).as_string().cstr();
           }
           // data
           char *data=is_load?file_read(pool, r.absolute(data_or_filename)):data_or_filename;
   
         // parse columns          // parse columns
         Array *columns;          Array *columns;
 #ifndef NO_STRING_ORIGIN  #ifndef NO_STRING_ORIGIN
         const Origin& origin=method_name.origin();          const Origin& origin=method_name.origin();
         const char *file=0;//origin.file;          const char *file=origin.file;
         uint line=origin.line;          uint line=origin.line;
 #endif  #endif
         if(params->size()==2) {          if(params->size()==2) {
Line 69  static void _set(Request& r, const Strin Line 78  static void _set(Request& r, const Strin
         r.self->as_vtable().set_table(table);          r.self->as_vtable().set_table(table);
 }  }
   
 void initialize_table_class(Pool& pool, VClass& vclass) {  
         // ^table.create[data]  ^table.create[nameless;data]  static void _set(Request& r, const String& method_name, Array *params) {
           set_or_load(r, method_name, params, false);
   }
   
   static void _load(Request& r, const String& method_name, Array *params) {
           set_or_load(r, method_name, params, true);
   }
   
   static void _count(Request& r, const String&, Array *) {
           Pool& pool=r.pool();
           Value& value=*new(pool) VInt(pool, r.self->as_vtable().table().size());
           r.write_no_lang(value);
   }
   
   static void _line(Request& r, const String&, Array *) {
           Pool& pool=r.pool();
           Value& value=*new(pool) VInt(pool, 1+r.self->as_vtable().table().get_current());
           r.write_no_lang(value);
   }
   
   static void _offset(Request& r, const String&, Array *params) {
           Pool& pool=r.pool();
           Table& table=r.self->as_vtable().table();
           if(params->size()) {
                   if(int size=table.size()) {
                           int offset=
                                   (int)r.process(*static_cast<Value *>(params->get(0))).get_double();
                           table.set_current((table.get_current()+offset+size)%size);
                   }
           } else {
                   Value& value=*new(pool) VInt(pool, table.get_current());
                   r.write_no_lang(value);
           }
   }
   
   static void _menu(Request& r, const String& method_name, Array *params) {
           Value& body_code=*static_cast<Value *>(params->get(0));
           // forcing ^menu{this param type}
           r.fail_if_junction_(false, body_code, 
                   method_name, "body must be junction");
           
           Value *delim_code=params->size()==2?static_cast<Value *>(params->get(1)):0;
   
           Table& table=r.self->as_vtable().table();
           bool need_delim=false;
           for(int i=0; i<table.size(); i++) {
                   table.set_current(i);
   
                   Value& processed_body=r.process(body_code);
                   if(delim_code) { // delimiter set?
                           const String *string=processed_body.get_string();
                           if(need_delim && string && string->size()) // need delim & iteration produced string?
                                   r.write_pass_lang(r.process(*delim_code));
                           need_delim=true;
                   }
                   r.write_pass_lang(processed_body);
           }
   }
   
   static void _empty(Request& r, const String&, Array *params) {
           Table& table=r.self->as_vtable().table();
           if(table.size()==0) {
                   Value& value=r.process(*static_cast<Value *>(params->get(0)));
                   r.write_pass_lang(value);
           } else if(params->size()==2) {
                   Value& value=r.process(*static_cast<Value *>(params->get(1)));
                   r.write_pass_lang(value);
           }
   }
   
   // initialize
   
   void initialize_table_class(Pool& pool, VStateless_class& vclass) {
           // ^table.set[data]  
           // ^table.set[nameless;data]
         vclass.add_native_method("set", _set, 1, 2);          vclass.add_native_method("set", _set, 1, 2);
   
           // ^table.load[file]  
           // ^table.load[nameless;file]
           vclass.add_native_method("load", _load, 1, 2);
   
           // ^table.count[]
           vclass.add_native_method("count", _count, 0, 0);
   
           // ^table.line[]
           vclass.add_native_method("line", _line, 0, 0);
   
           // ^table.offset[]  
           // ^table.offset[offset]
           vclass.add_native_method("offset", _offset, 0, 1);
   
           // ^table.menu{code}  
           // ^table.menu{code}[delim]
           vclass.add_native_method("menu", _menu, 1, 2);
   
           // ^table.empty{code-when-empty}  
           // ^table.empty{code-when-empty}{code-when-not}
           vclass.add_native_method("empty", _empty, 1, 2);
   
 }         }       
Removed from v.1.1  
changed lines
  Added in v.1.17

E-mail: