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

Diff for /parser3/src/classes/int.C between versions 1.9 and 1.41

version 1.9, 2001/03/11 12:04:42 version 1.41, 2002/03/27 15:30:34
Line 1 Line 1
 /*  /** @file
         Parser          Parser: @b int parser class.
         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$
 */  */
   
   #include "classes.h"
 #include "pa_request.h"  #include "pa_request.h"
 #include "_int.h"  
 #include "pa_vdouble.h"  #include "pa_vdouble.h"
 #include "pa_vint.h"  #include "pa_vint.h"
   
 // global var  // externs
   
   void _string_format(Request& r, const String& method_name, MethodParams *);
   
   // defines
   
   #define INT_CLASS_NAME "int"
   
   // class
   
 VClass *int_class;  class MInt : public Methoded {
   public:
           MInt(Pool& pool);
   public: // Methoded
           bool used_directly() { return true; }
   };
   
 // methods  // methods
   
 static void _int(Request& r, Array *) {  static void _int(Request& r, const String& method_name, MethodParams *) {
         Pool& pool=r.pool();          Pool& pool=r.pool();
         VInt *vint=static_cast<VInt *>(r.self);          VInt *vint=static_cast<VInt *>(r.self);
         Value& value=*new(pool) VInt(pool, vint->get_int());          Value& result=*new(pool) VInt(pool, vint->get_int());
         r.wcontext->write(value, String::Untaint_lang::NO /*always object, not string*/);          result.set_name(method_name);
           r.write_no_lang(result);
 }  }
   
 static void _double(Request& r, Array *) {  static void _double(Request& r, const String& method_name, MethodParams *) {
         Pool& pool=r.pool();          Pool& pool=r.pool();
         VInt *vint=static_cast<VInt *>(r.self);          VInt *vint=static_cast<VInt *>(r.self);
         Value& value=*new(pool) VDouble(pool, vint->get_double());          Value& result=*new(pool) VDouble(pool, vint->as_double());
         r.wcontext->write(value, String::Untaint_lang::NO /*always object, not string*/);          result.set_name(method_name);
           r.write_no_lang(result);
 }  }
   
 static void _inc(Request& r, Array *params) {  typedef void (*vint_op_func_ptr)(VInt& vint, double param);
   
   static void __inc(VInt& vint, double param) { vint.inc((int)param); }
   static void __dec(VInt& vint, double param) { vint.inc((int)-param); }
   static void __mul(VInt& vint, double param) { vint.mul(param); }
   static void __div(VInt& vint, double param) { vint.div(param); }
   static void __mod(VInt& vint, double param) { vint.mod((int)param); }
   
   static void vint_op(Request& r, MethodParams *params, 
                                            vint_op_func_ptr func) {
         VInt *vint=static_cast<VInt *>(r.self);          VInt *vint=static_cast<VInt *>(r.self);
         int increment=params->size()?          double param=params->size()?params->as_double(0, "param must be numerical", r):1;
                 static_cast<int>(r.autocalc(          (*func)(*vint, param);
                         *static_cast<Value *>(params->get(0)),  
                         0/*no name*/,  
                         false/*don't intercept string*/).get_double()):1;  
         vint->inc(increment);  
 }  }
   
 void initialize_int_class(Pool& pool, VClass& vclass) {  static void _inc(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__inc); }
   static void _dec(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__dec); }
   static void _mul(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__mul); }
   static void _div(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__div); }
   static void _mod(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__mod); }
   
   // from string.C
   extern 
   const String* sql_result_string(Request& r, const String& method_name, MethodParams *params,
                                                                   Hash *& options, Value *& default_code);
   
   static void _sql(Request& r, const String& method_name, MethodParams *params) {
           Pool& pool=r.pool();
   
           int val;
           Hash *options;
           Value *default_code;
           if(const String *string=sql_result_string(r, method_name, params, options, default_code))
                   val=string->as_int();
           else
                   if(default_code)
                           val=r.process(*default_code).as_int();
                   else {
                           throw Exception("parser.runtime",
                                   &method_name,
                                   "produced no result, but no default option specified");
                           val=0; //calm, compiler
                   }
           VInt& result=*new(pool) VInt(pool, val);
           result.set_name(method_name);
           r.write_assign_lang(result);
   }
   
   // constructor
   
   MInt::MInt(Pool& apool) : Methoded(apool) {
           set_name(*NEW String(pool(), INT_CLASS_NAME));
   
   
         // ^int.int[]          // ^int.int[]
         vclass.add_native_method("int", _int, 0, 0);          add_native_method("int", Method::CT_DYNAMIC, _int, 0, 0);
   
         // ^int.double[]          // ^int.double[]
         vclass.add_native_method("double", _double, 0, 0);          add_native_method("double", Method::CT_DYNAMIC, _double, 0, 0);
   
         // ^int.inc[]           // ^int.inc[] 
         // ^int.inc[offset]          // ^int.inc[offset]
         vclass.add_native_method("inc", _inc, 0, 1);          add_native_method("inc", Method::CT_DYNAMIC, _inc, 0, 1);
           // ^int.dec[] 
           // ^int.dec[offset]
           add_native_method("dec", Method::CT_DYNAMIC, _dec, 0, 1);
           // ^int.mul[k] 
           add_native_method("mul", Method::CT_DYNAMIC, _mul, 1, 1);
           // ^int.div[d]
           add_native_method("div", Method::CT_DYNAMIC, _div, 1, 1);
           // ^int.mod[offset]
           add_native_method("mod", Method::CT_DYNAMIC, _mod, 1, 1);
   
   
           // ^int.format{format}
           add_native_method("format", Method::CT_DYNAMIC, _string_format, 1, 1);
   
           // ^sql[query]
           // ^sql[query][$.limit(1) $.offset(2) $.default(0)]
           add_native_method("sql", Method::CT_STATIC, _sql, 1, 2);
   }
   // global variable
   
   Methoded *int_class;
   
   // creator
   
   Methoded *MInt_create(Pool& pool) {
           return int_class=new(pool) MInt(pool);
 }  }
Removed from v.1.9  
changed lines
  Added in v.1.41

E-mail: