[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.1 and 1.77

version 1.1, 2001/03/09 08:19:46 version 1.77, 2026/05/06 20:19:02
Line 1 Line 1
 /*  /** @file
 $Id$          Parser: @b int parser class.
   
           Copyright (c) 2001-2026 Art. Lebedev Studio (https://www.artlebedev.com)
           Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */  */
   
   #include "classes.h"
   #include "pa_vmethod_frame.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"
   #include "pa_vbool.h"
   
   volatile const char * IDENT_INT_C="$Id$" IDENT_PA_VINT_H;
   
   // externs
   
 // global var  void _string_format(Request& r, MethodParams&);
   
 VClass *int_class;  // class
   
   class MInt: public Methoded {
   public:
           MInt();
   };
   
   // global variable
   
   DECLARE_CLASS_VAR(int, new MInt);
   
 // methods  // methods
   
 static void _int(Request& r, Array *) {  static void _int(Request& r, MethodParams&) {
         Pool& pool=r.pool();          VInt& vint=GET_SELF(r, VInt);
         VInt *vint=static_cast<VInt *>(r.self);          r.write(*new VInt(vint.get_int()));
         Value& value=*new(pool) VInt(pool, vint->get_int());  
         r.wcontext->write(value);  
 }  }
   
 static void _double(Request& r, Array *) {  static void _double(Request& r, MethodParams&) {
         Pool& pool=r.pool();          VInt& vint=GET_SELF(r, VInt);
         VInt *vint=static_cast<VInt *>(r.self);          r.write(*new VDouble(vint.as_double()));
         Value& value=*new(pool) VDouble(pool, vint->get_double());  
         r.wcontext->write(value);  
 }  }
   
 static void _inc(Request& r, Array *params) {  static void _bool(Request& r, MethodParams&) {
         VInt *vint=static_cast<VInt *>(r.self);          VInt& vint=GET_SELF(r, VInt);
         int increment=params->size()?          r.write(VBool::get(vint.as_bool()));
                 static_cast<int>(static_cast<Value *>(params->get(0))->get_double()):1;  
         vint->inc(increment);  
 }  }
   
 void initialize_int_class(Pool& pool) {  typedef void (*vint_op_func_ptr)(VInt& vint, double param);
         int_class=new(pool) VClass(pool);  
   
         // ^int.int[]  static void __inc(VInt& vint, double param) { vint.inc(param); }
         String& INT_NAME=*new(pool) String(pool);  static void __dec(VInt& vint, double param) { vint.inc(-param); }
         INT_NAME.APPEND_CONST("int");  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(clip2wint(param)); }
   
   static void vint_op(Request& r, MethodParams& params, vint_op_func_ptr func) {
           VInt& vint=GET_SELF(r, VInt);
           double param=params.count()?params.as_double(0, "param must be numerical", r):1;
           (*func)(vint, param);
   }
   
         Method& INT_METHOD=*new(pool) Method(pool,  static void _inc(Request& r, MethodParams& params) { vint_op(r, params, &__inc); }
                 INT_NAME,  static void _dec(Request& r, MethodParams& params) { vint_op(r, params, &__dec); }
                 0, 0, // min,max numbered_params_count  static void _mul(Request& r, MethodParams& params) { vint_op(r, params, &__mul); }
                 0/*params_names*/, 0/*locals_names*/,  static void _div(Request& r, MethodParams& params) { vint_op(r, params, &__div); }
                 0/*parser_code*/, _int  static void _mod(Request& r, MethodParams& params) { vint_op(r, params, &__mod); }
         );  
         int_class->add_method(INT_NAME, INT_METHOD);  static void _plus_plus(Request& r, MethodParams& params) {
           VInt& vint=GET_SELF(r, VInt);
           r.write(*new VInt(vint));
           vint.inc(1);
   }
   
         // ^int.int[]  static void _minus_minus(Request& r, MethodParams& params) {
         String& DOUBLE_NAME=*new(pool) String(pool);          VInt& vint=GET_SELF(r, VInt);
         DOUBLE_NAME.APPEND_CONST("int");          r.write(*new VInt(vint));
           vint.inc(-1);
   }
   
         Method& DOUBLE_METHOD=*new(pool) Method(pool,  // from string.C
                 DOUBLE_NAME,  extern const String* sql_result_string(Request& r, MethodParams& params, Value*& default_code);
                 0, 0, // min,max numbered_params_count  
                 0/*params_names*/, 0/*locals_names*/,  static void _sql(Request& r, MethodParams& params) {
                 0/*parser_code*/, _int          pa_wint val;
         );          Value* default_code=0;
         int_class->add_method(DOUBLE_NAME, DOUBLE_METHOD);          if(const String* string=sql_result_string(r, params, default_code))
                   val=string->as_wint();
         // ^int.inc[] ^int.inc[offset]          else
         String& INC_NAME=*new(pool) String(pool);                  if(default_code)
         INC_NAME.APPEND_CONST("inc");                          val=r.process(*default_code).as_wint();
                   else {
         Method& INC_METHOD=*new(pool) Method(pool,                          throw Exception(PARSER_RUNTIME, 0, "produced no result, but no default option specified");
                 INC_NAME,                  }
                 0, 1, // min,max numbered_params_count          r.write(*new VInt(val));
                 0/*params_names*/, 0/*locals_names*/,  
                 0/*parser_code*/, _inc  
         );  
         int_class->add_method(INC_NAME, INC_METHOD);  
 }  }
   
   // constructor
   
   MInt::MInt(): Methoded("int") {
           // ^int.int[]
           // ^int.int[default for ^string.int compatibility]
           add_native_method("int", Method::CT_DYNAMIC, _int, 0, 1);
           // ^int.double[]
           // ^int.double[default for ^string.double compatibility]
           add_native_method("double", Method::CT_DYNAMIC, _double, 0, 1);
           // ^int.bool[]
           // ^int.bool[default for ^string.bool compatibility]
           add_native_method("bool", Method::CT_DYNAMIC, _bool, 0, 1);
   
           // ^int.inc[]
           // ^int.inc[offset]
           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.++[]
           add_native_method("++", Method::CT_DYNAMIC, _plus_plus, 0, 0);
           // ^int.--[]
           add_native_method("--", Method::CT_DYNAMIC, _minus_minus, 0, 0);
   
           // ^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);
   }
Removed from v.1.1  
changed lines
  Added in v.1.77

E-mail: