[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.23 and 1.63

version 1.23, 2001/04/28 13:49:13 version 1.63, 2010/10/21 15:06:27
Line 1 Line 1
 /** @file  /** @file
         Parser: @b double parser class.          Parser: @b double parser class.
   
         Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)          Copyright (c) 2001-2009 ArtLebedev Group (http://www.artlebedev.com)
           Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
   */
   
         Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)  static const char * const IDENT_DOUBLE_C="$Date$";
   
         $Id$  #include "classes.h"
 */  #include "pa_vmethod_frame.h"
   
 #include "pa_methoded.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"
   
 // externs  // externs
   
 void _string_format(Request& r, const String& method_name, MethodParams *);  void _string_format(Request& r, MethodParams&);
   
 // defines  
   
 #define DOUBLE_CLASS_NAME "double"  
   
 // class  // class
   
 class MDouble : public Methoded {  class MDouble: public Methoded {
 public:  public:
         MDouble(Pool& pool);          MDouble();
         bool used_directly() { return true; }  
 };  };
   
   // global variable
   
   DECLARE_CLASS_VAR(double, new MDouble, 0);
   
 // methods  // methods
   
 static void _int(Request& r, const String&, MethodParams *) {  static void _int(Request& r, MethodParams& params) {
         Pool& pool=r.pool();          // just checking (default) syntax validity, never really using it here, just for string.int compatibility
         VDouble *vdouble=static_cast<VDouble *>(r.self);          if(params.count()>0)
         Value& value=*new(pool) VInt(pool, (int)vdouble->as_double());                  params.as_int(0, "default must be int", r);
         r.write_no_lang(value);  
           VDouble& vdouble=GET_SELF(r, VDouble);
           r.write_no_lang(*new VInt(vdouble.as_int()));
 }  }
   
 static void _double(Request& r, const String&, MethodParams *) {  static void _double(Request& r, MethodParams& params) {
         Pool& pool=r.pool();          // just checking (default) syntax validity, never really using it here, just for string.double compatibility
         VDouble *vdouble=static_cast<VDouble *>(r.self);          if(params.count()>0)
         Value& value=*new(pool) VDouble(pool, vdouble->as_double());                  params.as_double(0, "default must be double", r);
         r.write_no_lang(value);  
           VDouble& vdouble=GET_SELF(r, VDouble);
           r.write_no_lang(*new VDouble(vdouble.as_double()));
   }
   
   static void _bool(Request& r, MethodParams& params) {
           // just checking (default) syntax validity, never really using it here, just for string.bool compatibility
           if(params.count()>0)
                   params.as_double(0, "default must be bool", r);
   
           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 53  static void __mul(VDouble& vdouble, doub Line 67  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.self);          VDouble& vdouble=GET_SELF(r, VDouble);
         double param=params->size()?          double param=params.count()?
                 r.process(                          params.as_double(0, "param must be double", r):1/*used in inc/dec*/;
                         params->get(0),          (*func)(vdouble, param);
                         0/*no name*/,  
                         false/*don't intercept string*/).as_double():1/*used in inc/dec*/;  
         (*func)(*vdouble, param);  
 }  }
   
 static void _inc(Request& r, const String&, 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&, 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&, 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&, 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&, MethodParams *params) { vdouble_op(r, params, &__mod); }  static void _mod(Request& r, MethodParams& params) { vdouble_op(r, params, &__mod); }
   
   // from string.C
   extern 
   const String* sql_result_string(Request& r, MethodParams& params,
                                   HashStringValue*& options, Value*& default_code);
   
   static void _sql(Request& r, MethodParams& params) {
           double val;
           HashStringValue* options;
           Value* default_code;
           if(const String* string=sql_result_string(r, params, options, default_code))
                   val=string->as_double();
           else
                   if(default_code)
                           val=r.process_to_value(*default_code).as_double();
                   else {
                           throw Exception(PARSER_RUNTIME,
                                   0,
                                   "produced no result, but no default option specified");
                   }
           r.write_no_lang(*new VDouble(val));
   }
   
 // constructor  // constructor
   
 MDouble::MDouble(Pool& apool) : Methoded(apool) {  MDouble::MDouble(): Methoded("double") {
         set_name(*NEW String(pool(), DOUBLE_CLASS_NAME));  
   
         // ^double.int[]          // ^double.int[]
         add_native_method("int", Method::CT_DYNAMIC, _int, 0, 0);          add_native_method("int", Method::CT_DYNAMIC, _int, 0, 1);
   
         // ^double.double[]          // ^double.double[]
         add_native_method("double", Method::CT_DYNAMIC, _double, 0, 0);          add_native_method("double", Method::CT_DYNAMIC, _double, 0, 1);
   
           // ^double.bool[]
           add_native_method("bool", Method::CT_DYNAMIC, _bool, 0, 1);
                   
         // ^double.inc[]           // ^double.inc[] 
         // ^double.inc[offset]          // ^double.inc[offset]
Line 96  MDouble::MDouble(Pool& apool) : Methoded Line 130  MDouble::MDouble(Pool& apool) : Methoded
   
         // ^double.format{format}          // ^double.format{format}
         add_native_method("format", Method::CT_DYNAMIC, _string_format, 1, 1);          add_native_method("format", Method::CT_DYNAMIC, _string_format, 1, 1);
 }          
 // global variable          // ^sql[query]
           // ^sql[query][$.limit(1) $.offset(2) $.default(0.0)]
 Methoded *double_class;          add_native_method("sql", Method::CT_STATIC, _sql, 1, 2);
   
 // creator  
   
 Methoded *MDouble_create(Pool& pool) {  
         return double_class=new(pool) MDouble(pool);  
 }  }
Removed from v.1.23  
changed lines
  Added in v.1.63

E-mail: