Annotation of parser3/src/types/pa_vstring.h, revision 1.41
1.23 paf 1: /** @file
2: Parser: @b string parser class decl.
1.13 paf 3:
1.40 paf 4: Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
1.41 ! paf 5: Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.1 paf 6:
1.41 ! paf 7: $Id: pa_vstring.h,v 1.40 2002/02/08 07:27:55 paf Exp $
1.1 paf 8: */
9:
10: #ifndef PA_VSTRING_H
11: #define PA_VSTRING_H
12:
13: #include <stdlib.h>
14:
1.4 paf 15: #include "pa_vstateless_object.h"
1.1 paf 16: #include "pa_vdouble.h"
1.24 paf 17:
18: extern Methoded *string_class;
1.1 paf 19:
1.13 paf 20: /// value of type 'string'. implemented with @c String
1.4 paf 21: class VString : public VStateless_object {
1.1 paf 22: public: // Value
23:
24: const char *type() const { return "string"; }
1.31 parser 25: /// VString: eq ''=false, ne ''=true
1.38 paf 26: bool is_defined() const { return fstring->size()!=0; }
1.32 parser 27: /// VString: 0 or !0
1.34 parser 28: bool as_bool() const { return as_double()!=0; }
1.16 paf 29: /// VString: true
1.17 paf 30: bool is_string() const { return true; }
1.14 paf 31: /// VString: fstring as VDouble or this depending on return_string_as_is
1.16 paf 32: Value *as_expr_result(bool return_string_as_is=false) {
1.14 paf 33: if(return_string_as_is)
34: return this;
35: else
1.16 paf 36: return NEW VDouble(pool(), as_double());
1.14 paf 37: }
1.13 paf 38: /// VString: fstring
1.38 paf 39: const String *get_string() { return fstring; };
1.13 paf 40: /// VString: fstring
1.38 paf 41: double as_double() const { return fstring->as_double(); }
1.26 parser 42: /// VString: fstring
1.38 paf 43: int as_int() const { return fstring->as_int(); }
1.20 paf 44:
45: /// VString: vfile
1.29 parser 46: VFile *as_vfile(String::Untaint_lang lang=String::UL_UNSPECIFIED,
47: bool origins_mode=false);
1.9 paf 48:
1.21 paf 49: /// VString: $method
1.9 paf 50: Value *get_element(const String& name) {
1.21 paf 51: // $method
1.9 paf 52: if(Value *result=VStateless_object::get_element(name))
53: return result;
54:
55: // bad $string.field
1.36 parser 56: bark("(%s) does not have fields",
57: "%s method not found", &name); return 0;
1.9 paf 58: }
1.12 paf 59:
60: protected: // VAliased
61:
1.15 paf 62: /// disable .CLASS element. @see VAliased::get_element
1.19 paf 63: bool hide_class() { return true; }
1.1 paf 64:
65: public: // usage
66:
1.4 paf 67: VString(Pool& apool) : VStateless_object(apool, *string_class),
1.38 paf 68: fstring(new(apool) String(apool)) {
1.1 paf 69: }
70:
1.4 paf 71: VString(const String& avalue) : VStateless_object(avalue.pool(), *string_class),
1.38 paf 72: fstring(&avalue) {
1.1 paf 73: }
74:
1.38 paf 75: const String& string() { return *fstring; }
76: void set_string(const String& astring) { fstring=&astring; }
1.1 paf 77:
78: private:
1.38 paf 79: const String *fstring;
1.1 paf 80:
81: };
82:
83: #endif
E-mail: