languages/lua/src/pmc/luaboolean.pmc

   1 /*
   2 Copyright (C) 2005-2008, The Perl Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 pmc/luaboolean.pmc - Lua Boolean
   8
   9 =head1 DESCRIPTION
  10
  11 C<LuaBoolean> extends C<LuaAny> to provide a class with the behaviour of
  12 the Lua C<Boolean> type.
  13
  14 The value is stored as an Integer.
  15
  16 =head2 Methods
  17
  18 =over 4
  19
  20 =cut
  21
  22 */
  23
  24 #include "lua_private.h"
  25
  26
  27 pmclass LuaBoolean
  28     extends  LuaAny
  29     provides scalar
  30     provides boolean
  31     provides integer
  32     dynpmc
  33     group    lua_group
  34     hll      Lua
  35     maps     Boolean {
  36
  37 /*
  38
  39 =item C<void init()>
  40
  41 Initializes the Boolean with a default value of C<false>.
  42
  43 =cut
  44
  45 */
  46     void init() {
  47         PMC_int_val(SELF) = 0;
  48     }
  49
  50 /*
  51
  52 =item C<PMC new_from_string(STRING *rep)>
  53
  54 Class method to construct an Boolean from the string representation C<rep>.
  55
  56 =cut
  57
  58 */
  59     PMC* new_from_string(STRING *rep, INTVAL flags) {
  60         PMC *res;
  61         INTVAL type = PMC_type(SELF);
  62         if (flags & PObj_constant_FLAG)
  63             res = constant_pmc_new(INTERP, type);
  64         else
  65             res = pmc_new(INTERP, type);
  66         PMC_int_val(res) = (string_to_int(INTERP, rep) != 0);
  67         return res;
  68     }
  69
  70 /*
  71
  72 =item C<STRING* name()>
  73
  74 Return the string "boolean".
  75
  76 =cut
  77
  78 */
  79     STRING* name() {
  80         return const_string(INTERP, "boolean");
  81     }
  82
  83 /*
  84
  85 =item C<PMC *clone()>
  86
  87 Creates and returns a clone of the scalar.
  88
  89 =cut
  90
  91 */
  92     PMC* clone() {
  93         PMC *dest = pmc_new(INTERP, PMC_type(SELF));
  94         STRUCT_COPY(&PMC_union(dest), &PMC_union(SELF));
  95         return dest;
  96     }
  97
  98 /*
  99
 100 =item C<INTVAL get_integer()>
 101
 102 Returns the integer value of the Boolean.
 103
 104 =cut
 105
 106 */
 107     INTVAL get_integer() {
 108         return PMC_int_val(SELF);
 109     }
 110
 111 /*
 112
 113 =item C<STRING* get_string()>
 114
 115 Return the string "true" or "false".
 116
 117 =cut
 118
 119 */
 120     STRING* get_string() {
 121         if (PMC_int_val(SELF))
 122             return const_string(INTERP, "true");
 123         else
 124             return const_string(INTERP, "false");
 125     }
 126
 127
 128 /*
 129
 130 =item C<INTVAL get_bool()>
 131
 132 Returns the boolean value of the Boolean.
 133
 134 =cut
 135
 136 */
 137     INTVAL get_bool() {
 138         return PMC_int_val(SELF) ? 1 : 0;
 139     }
 140
 141 /*
 142
 143 =item C<void set_integer_native(INTVAL value)>
 144
 145 =item C<void set_bool(INTVAL value)>
 146
 147 =cut
 148
 149 */
 150     void set_integer_native(INTVAL value) {
 151         PMC_int_val(SELF) = (value != 0);
 152     }
 153
 154     void set_bool(INTVAL value) {
 155         PMC_int_val(SELF) = (value != 0);
 156     }
 157
 158 /*
 159
 160 =item C<void set_pmc(PMC *value)>
 161
 162 Sets the value of the boolean to the value in C<*value>.
 163
 164 =cut
 165
 166 */
 167     void set_pmc(PMC *value) {
 168         PMC_int_val(SELF) = VTABLE_get_bool(INTERP, value);
 169     }
 170
 171 /*
 172
 173 =item C<void freeze(visit_info *info)>
 174
 175 Used to archive the boolean.
 176
 177 =cut
 178
 179 */
 180     void freeze(visit_info *info) {
 181         IMAGE_IO *io = info->image_io;
 182         SUPER(info);
 183         VTABLE_push_integer(INTERP, io, PMC_int_val(SELF));
 184     }
 185
 186 /*
 187
 188 =item C<void thaw(visit_info *info)>
 189
 190 Used to unarchive the boolean.
 191
 192 =cut
 193
 194 */
 195     void thaw(visit_info *info) {
 196         IMAGE_IO *io = info->image_io;
 197         SUPER(info);
 198         if (info->extra_flags == EXTRA_IS_NULL)
 199             PMC_int_val(SELF) = VTABLE_shift_integer(INTERP, io);
 200     }
 201
 202 /*
 203
 204 =back
 205
 206 =head2 non-Vtable Methods
 207
 208 =over 4
 209
 210 =item C<INTVAL is_equal(PMC *value)>
 211
 212 =cut
 213
 214 */
 215     INTVAL is_equal(PMC *value) {
 216 MMD_LuaBoolean: {
 217             return (INTVAL)(PMC_int_val(SELF) == PMC_int_val(value));
 218         }
 219 MMD_DEFAULT: {
 220             return (INTVAL)0;
 221         }
 222     }
 223
 224 /*
 225
 226 =back
 227
 228 =head2 Specific Methods
 229
 230 =over 4
 231
 232 =item C<PMC* rawequal(PMC *value)>
 233
 234 =cut
 235
 236 */
 237     METHOD PMC* rawequal(PMC *value) {
 238         PMC *retval = pmc_new(INTERP, dynpmc_LuaBoolean);
 239
 240         if (PMC_type(SELF)    == PMC_type(value)
 241         &&  PMC_int_val(SELF) == VTABLE_get_integer(INTERP, value))
 242             VTABLE_set_integer_native(INTERP, retval, 1);
 243         else
 244             VTABLE_set_integer_native(INTERP, retval, 0);
 245
 246         RETURN(PMC *retval);
 247     }
 248
 249 }
 250
 251 /*
 252
 253 =back
 254
 255 =head1 AUTHORS
 256
 257 Francois Perrad.
 258
 259 Klaas-Jan Stol.
 260
 261 =cut
 262
 263 */
 264
 265
 266 /*
 267  * Local variables:
 268  *   c-file-style: "parrot"
 269  * End:
 270  * vim: expandtab shiftwidth=4:
 271  */