[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.22 and 1.41

version 1.22, 2001/04/28 08:43:47 version 1.41, 2001/11/05 11:46:20
Line 2 Line 2
         Parser: @b double parser class.          Parser: @b double parser class.
   
         Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)          Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
           Author: Alexander Petrosyan <paf@design.ru> (http://paf.design.ru)
         Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)  
   
         $Id$          $Id$
 */  */
Line 26  void _string_format(Request& r, const St Line 25  void _string_format(Request& r, const St
 class MDouble : public Methoded {  class MDouble : public Methoded {
 public:  public:
         MDouble(Pool& pool);          MDouble(Pool& pool);
   public: // Methoded
         bool used_directly() { return true; }          bool used_directly() { return true; }
 };  };
   
 // methods  // methods
   
 static void _int(Request& r, const String&, MethodParams *) {  static void _int(Request& r, const String& method_name, MethodParams *) {
         Pool& pool=r.pool();          Pool& pool=r.pool();
         VDouble *vdouble=static_cast<VDouble *>(r.self);          VDouble *vdouble=static_cast<VDouble *>(r.self);
         Value& value=*new(pool) VInt(pool, (int)vdouble->as_double());          Value& result=*new(pool) VInt(pool, vdouble->as_int());
         r.write_no_lang(value);          result.set_name(method_name);
           r.write_no_lang(result);
 }  }
   
 static void _double(Request& r, const String&, MethodParams *) {  static void _double(Request& r, const String& method_name, MethodParams *) {
         Pool& pool=r.pool();          Pool& pool=r.pool();
         VDouble *vdouble=static_cast<VDouble *>(r.self);          VDouble *vdouble=static_cast<VDouble *>(r.self);
         Value& value=*new(pool) VDouble(pool, vdouble->as_double());          Value& result=*new(pool) VDouble(pool, vdouble->as_double());
         r.write_no_lang(value);          result.set_name(method_name);
           r.write_no_lang(result);
 }  }
   
 typedef void (*vdouble_op_func_ptr)(VDouble& vdouble, double param);  typedef void (*vdouble_op_func_ptr)(VDouble& vdouble, double param);
Line 57  static void vdouble_op(Request& r, Metho Line 59  static void vdouble_op(Request& r, Metho
                                            vdouble_op_func_ptr func) {                                             vdouble_op_func_ptr func) {
         VDouble *vdouble=static_cast<VDouble *>(r.self);          VDouble *vdouble=static_cast<VDouble *>(r.self);
         double param=params->size()?          double param=params->size()?
                 r.process(                          params->as_double(0, "param must be double", r):1/*used in inc/dec*/;
                         params->get(0),  
                         0/*no name*/,  
                         false/*don't intercept string*/).as_double():1/*used in inc/dec*/;  
         (*func)(*vdouble, param);          (*func)(*vdouble, param);
 }  }
   
Line 70  static void _mul(Request& r, const Strin Line 69  static void _mul(Request& r, const Strin
 static void _div(Request& r, const String&, MethodParams *params) { vdouble_op(r, params, &__div); }  static void _div(Request& r, const String&, 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, const String&, MethodParams *params) { vdouble_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();
   
           double val;
           Hash *options;
           Value *default_code;
           if(const String *string=sql_result_string(r, method_name, params, options, default_code))
                   val=string->as_double();
           else
                   if(default_code)
                           val=r.process(*default_code).as_double();
                   else {
                           throw Exception(0, 0,
                                   &method_name,
                                   "produced no result, but no default option specified");
                           val=0; //calm, compiler
                   }
           VDouble& result=*new(pool) VDouble(pool, val);
           result.set_name(method_name);
           r.write_assign_lang(result);
   }
   
 // constructor  // constructor
   
 MDouble::MDouble(Pool& apool) : Methoded(apool) {  MDouble::MDouble(Pool& apool) : Methoded(apool) {
         set_name(*NEW String(pool(), DOUBLE_CLASS_NAME));          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, 0);
   
Line 96  MDouble::MDouble(Pool& apool) : Methoded Line 123  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);
           
           // ^sql[query]
           // ^sql[query][$.limit(1) $.offset(2) $.default(0.0)]
           add_native_method("sql", Method::CT_STATIC, _sql, 1, 2);
 }  }
 // global variable  // global variable
   
Removed from v.1.22  
changed lines
  Added in v.1.41

E-mail: