[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.46 and 1.72

version 1.46, 2002/08/01 11:41:12 version 1.72, 2023/11/16 23:54:54
Line 1 Line 1
 /** @file  /** @file
         Parser: @b int parser class.          Parser: @b int parser class.
   
         Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)          Copyright (c) 2001-2023 Art. Lebedev Studio (http://www.artlebedev.com)
         Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)          Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */  */
   
 static const char* IDENT_INT_C="$Date$";  
   
 #include "classes.h"  #include "classes.h"
   #include "pa_vmethod_frame.h"
   
 #include "pa_request.h"  #include "pa_request.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  // externs
   
 void _string_format(Request& r, const String& method_name, MethodParams *);  void _string_format(Request& r, MethodParams&);
   
 // class  // class
   
 class MInt : public Methoded {  class MInt: public Methoded {
 public:  public:
         MInt(Pool& pool);          MInt();
 public: // Methoded  
         bool used_directly() { return true; }  
 };  };
   
   // global variable
   
   DECLARE_CLASS_VAR(int, new MInt);
   
 // methods  // methods
   
 static void _int(Request& r, const String& method_name, MethodParams *params) {  static void _int(Request& r, MethodParams&) {
         Pool& pool=r.pool();          VInt& vint=GET_SELF(r, VInt);
          // just checking (default) syntax validity, never really using it  here, just for string.int compatibility          r.write(*new VInt(vint.get_int()));
         if(params->size()>0)  }
                 params->as_junction(0, "default must be int");  
   static void _double(Request& r, MethodParams&) {
         VInt *vint=static_cast<VInt *>(r.self);          VInt& vint=GET_SELF(r, VInt);
         r.write_no_lang(*new(pool) VInt(pool, vint->get_int()));          r.write(*new VDouble(vint.as_double()));
 }  }
   
 static void _double(Request& r, const String& method_name, MethodParams *params) {  
         Pool& pool=r.pool();  
          // just checking (default) syntax validity, never really using it  here, just for string.doube compatibility  
         if(params->size()>0)  
                 params->as_junction(0, "default must be double");  
   
         VInt *vint=static_cast<VInt *>(r.self);  static void _bool(Request& r, MethodParams&) {
         r.write_no_lang(*new(pool) VDouble(pool, vint->as_double()));          VInt& vint=GET_SELF(r, VInt);
           r.write(VBool::get(vint.as_bool()));
 }  }
   
 typedef void (*vint_op_func_ptr)(VInt& vint, double param);  typedef void (*vint_op_func_ptr)(VInt& vint, double param);
   
 static void __inc(VInt& vint, double param) { vint.inc((int)param); }  static void __inc(VInt& vint, double param) { vint.inc(clip2int(param)); }
 static void __dec(VInt& vint, double param) { vint.inc((int)-param); }  static void __dec(VInt& vint, double param) { vint.inc(clip2int(-param)); }
 static void __mul(VInt& vint, double param) { vint.mul(param); }  static void __mul(VInt& vint, double param) { vint.mul(param); }
 static void __div(VInt& vint, double param) { vint.div(param); }  static void __div(VInt& vint, double param) { vint.div(param); }
 static void __mod(VInt& vint, double param) { vint.mod((int)param); }  static void __mod(VInt& vint, double param) { vint.mod(clip2int(param)); }
   
 static void vint_op(Request& r, MethodParams *params,   static void vint_op(Request& r, MethodParams& params, vint_op_func_ptr func) {
                                          vint_op_func_ptr func) {          VInt& vint=GET_SELF(r, VInt);
         VInt *vint=static_cast<VInt *>(r.self);          double param=params.count()?params.as_double(0, "param must be numerical", r):1;
         double param=params->size()?params->as_double(0, "param must be numerical", r):1;          (*func)(vint, param);
         (*func)(*vint, param);  
 }  }
   
 static void _inc(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__inc); }  static void _inc(Request& r, MethodParams& params) { vint_op(r, params, &__inc); }
 static void _dec(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__dec); }  static void _dec(Request& r, MethodParams& params) { vint_op(r, params, &__dec); }
 static void _mul(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__mul); }  static void _mul(Request& r, MethodParams& params) { vint_op(r, params, &__mul); }
 static void _div(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__div); }  static void _div(Request& r, MethodParams& params) { vint_op(r, params, &__div); }
 static void _mod(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__mod); }  static void _mod(Request& r, MethodParams& params) { vint_op(r, params, &__mod); }
   
 // from string.C  // from string.C
 extern   extern const String* sql_result_string(Request& r, MethodParams& params, Value*& default_code);
 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();  
   
   static void _sql(Request& r, MethodParams& params) {
         int val;          int val;
         Hash *options;          Value* default_code=0;
         Value *default_code;          if(const String* string=sql_result_string(r, params, default_code))
         if(const String *string=sql_result_string(r, method_name, params, options, default_code))  
                 val=string->as_int();                  val=string->as_int();
         else          else
                 if(default_code)                  if(default_code)
                         val=r.process_to_value(*default_code).as_int();                          val=r.process(*default_code).as_int();
                 else {                  else {
                         throw Exception("parser.runtime",                          throw Exception(PARSER_RUNTIME, 0, "produced no result, but no default option specified");
                                 &method_name,  
                                 "produced no result, but no default option specified");  
                         val=0; //calm, compiler  
                 }                  }
         r.write_no_lang(*new(pool) VInt(pool, val));          r.write(*new VInt(val));
 }  }
   
 // constructor  // constructor
   
 MInt::MInt(Pool& apool) : Methoded(apool, "int") {  MInt::MInt(): Methoded("int") {
         // ^int.int[]          // ^int.int[]
           // ^int.int[default for ^string.int compatibility]
         add_native_method("int", Method::CT_DYNAMIC, _int, 0, 1);          add_native_method("int", Method::CT_DYNAMIC, _int, 0, 1);
   
         // ^int.double[]          // ^int.double[]
           // ^int.double[default for ^string.double compatibility]
         add_native_method("double", Method::CT_DYNAMIC, _double, 0, 1);          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[] 
         // ^int.inc[offset]          // ^int.inc[offset]
Line 123  MInt::MInt(Pool& apool) : Methoded(apool Line 118  MInt::MInt(Pool& apool) : Methoded(apool
         // ^sql[query][$.limit(1) $.offset(2) $.default(0)]          // ^sql[query][$.limit(1) $.offset(2) $.default(0)]
         add_native_method("sql", Method::CT_STATIC, _sql, 1, 2);          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.46  
changed lines
  Added in v.1.72

E-mail: