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

Diff for /parser3/src/classes/double.C between versions 1.53.2.8.2.1 and 1.67

version 1.53.2.8.2.1, 2003/03/18 15:14:13 version 1.67, 2013/07/29 15:02:17
Line 1 Line 1
 /** @file  /** @file
         Parser: @b double parser class.          Parser: @b double parser class.
   
         Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com)          Copyright (c) 2001-2012 Art. Lebedev Studio (http://www.artlebedev.com)
         Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)          Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */  */
   
 static const char* IDENT_DOUBLE_C="$Date$";  
   
 #include "classes.h"  #include "classes.h"
 #include "pa_vmethod_frame.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_DOUBLE_C="$Id$" IDENT_PA_VDOUBLE_H;
   
 // externs  // externs
   
 void _string_format(Request& r, const String& method_name, MethodParams* /*params*/);  void _string_format(Request& r, MethodParams&);
   
 // class  // class
   
 class MDouble: public Methoded {  class MDouble: public Methoded {
 public:  public:
         MDouble();          MDouble();
 public: // Methoded  
         bool used_directly() { return true; }  
 };  };
   
 // global variable  // global variable
Line 33  DECLARE_CLASS_VAR(double, new MDouble, 0 Line 32  DECLARE_CLASS_VAR(double, new MDouble, 0
   
 // methods  // methods
   
 static void _int(Request& r, const String& method_name, MethodParams* params) {  static void _int(Request& r, MethodParams&) {
         // just checking (default) syntax validity, never really using it  here, just for string.int compatibility          VDouble& vdouble=GET_SELF(r, VDouble);
         if(params->count()>0)          r.write_no_lang(*new VInt(vdouble.as_int()));
                 params->as_junction(0, "default must be int");  
   
         VDouble& vdouble=*static_cast<VDouble *>(r.get_self().get());  
         r.write_no_lang(ValuePtr(new VInt(vdouble.as_int())));  
 }  }
   
 static void _double(Request& r, const String& method_name, MethodParams* params) {  static void _double(Request& r, MethodParams&) {
         // just checking (default) syntax validity, never really using it  here, just for string.doube compatibility          VDouble& vdouble=GET_SELF(r, VDouble);
         if(params->count()>0)          r.write_no_lang(*new VDouble(vdouble.as_double()));
                 params->as_junction(0, "default must be double");  }
   
         VDouble& vdouble=*static_cast<VDouble *>(r.get_self().get());  static void _bool(Request& r, MethodParams&) {
         r.write_no_lang(ValuePtr(new VDouble(vdouble.as_double())));          VDouble& vdouble=GET_SELF(r, VDouble);
           r.write_no_lang(VBool::get(vdouble.as_bool()));
 }  }
   
 typedef void (*vdouble_op_func_ptr)(VDouble& vdouble, double param);  typedef void (*vdouble_op_func_ptr)(VDouble& vdouble, double param);
Line 59  static void __mul(VDouble& vdouble, doub Line 55  static void __mul(VDouble& vdouble, doub
 static void __div(VDouble& vdouble, double param) { vdouble.div(param); }  static void __div(VDouble& vdouble, double param) { vdouble.div(param); }
 static void __mod(VDouble& vdouble, double param) { vdouble.mod((int)param); }  static void __mod(VDouble& vdouble, double param) { vdouble.mod((int)param); }
   
 static void vdouble_op(Request& r, MethodParams* params,   static void vdouble_op(Request& r, MethodParams& params, 
                                            vdouble_op_func_ptr func) {                                             vdouble_op_func_ptr func) {
         VDouble& vdouble=*static_cast<VDouble *>(r.get_self().get());          VDouble& vdouble=GET_SELF(r, VDouble);
         double param=params->count()?          double param=params.count()?
                         params->as_double(0, "param must be double", r):1/*used in inc/dec*/;                          params.as_double(0, "param must be double", r):1/*used in inc/dec*/;
         (*func)(vdouble, param);          (*func)(vdouble, param);
 }  }
   
 static void _inc(Request& r, const String& /*method_name*/, MethodParams* params) { vdouble_op(r, params, &__inc); }  static void _inc(Request& r, MethodParams& params) { vdouble_op(r, params, &__inc); }
 static void _dec(Request& r, const String& /*method_name*/, MethodParams* params) { vdouble_op(r, params, &__dec); }  static void _dec(Request& r, MethodParams& params) { vdouble_op(r, params, &__dec); }
 static void _mul(Request& r, const String& /*method_name*/, MethodParams* params) { vdouble_op(r, params, &__mul); }  static void _mul(Request& r, MethodParams& params) { vdouble_op(r, params, &__mul); }
 static void _div(Request& r, const String& /*method_name*/, MethodParams* params) { vdouble_op(r, params, &__div); }  static void _div(Request& r, MethodParams& params) { vdouble_op(r, params, &__div); }
 static void _mod(Request& r, const String& /*method_name*/, MethodParams* params) { vdouble_op(r, params, &__mod); }  static void _mod(Request& r, MethodParams& params) { vdouble_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,  
                                                         HashStringValue*& options, ValuePtr& default_code);  
   
 static void _sql(Request& r, const String& method_name, MethodParams* params) {  static void _sql(Request& r, MethodParams& params) {
         double val;          double val;
         HashStringValue* options;          Value* default_code;
         ValuePtr 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_double();                  val=string->as_double();
         else          else
                 if(default_code)                  if(default_code)
                         val=r.process_to_value(default_code)->as_double();                          val=r.process_to_value(*default_code).as_double();
                 else {                  else {
                         throw Exception("parser.runtime",                          throw Exception(PARSER_RUNTIME,
                                 method_name,                                  0,
                                 "produced no result, but no default option specified");                                  "produced no result, but no default option specified");
                         val=0; //calm, compiler  
                 }                  }
         r.write_no_lang(ValuePtr(new VDouble(val)));          r.write_no_lang(*new VDouble(val));
 }  }
   
 // constructor  // constructor
   
 MDouble::MDouble(): Methoded("double") {  MDouble::MDouble(): Methoded("double") {
         // ^double.int[]          // ^double.int[]
           // ^double.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);
   
         // ^double.double[]          // ^double.double[]
           // ^double.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);
           // ^double.bool[]
           // ^double.bool[default for ^string.bool compatibility]
           add_native_method("bool", Method::CT_DYNAMIC, _bool, 0, 1);
                   
         // ^double.inc[]           // ^double.inc[] 
         // ^double.inc[offset]          // ^double.inc[offset]
Removed from v.1.53.2.8.2.1  
changed lines
  Added in v.1.67

E-mail: