src/pmc/boolean.pmc

   1 /*
   2 Copyright (C) 2001-2007, Parrot Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 src/pmc/boolean.pmc - Boolean PMC
   8
   9 =head1 DESCRIPTION
  10
  11 This class implements a boolean value variable.
  12
  13 Albeit the C<Boolean PMC> is derived from the C<Integer PMC>,
  14 it doesn't morph to other types. Only its value is changed.
  15
  16 =head2 Methods
  17
  18 =over 4
  19
  20 =cut
  21
  22 */
  23
  24 pmclass Boolean extends Integer provides boolean provides scalar {
  25
  26 /*
  27
  28 =item C<PMC *instantiate(PMC *sig)>
  29
  30 Object constructor. SELF is a Boolean Class object. Return a new
  31 C<bool> object according to the passed PMC value.
  32
  33 =cut
  34
  35 */
  36     VTABLE PMC *instantiate(PMC *sig) {
  37         /* XXX other types */
  38         const int argcP = REG_INT(interp, 3);
  39         PMC * const res = pmc_new(interp, enum_class_Boolean);
  40
  41         if (argcP)
  42             SELF.set_bool(VTABLE_get_bool(interp, REG_PMC(interp, 5)));
  43
  44         return PMCNULL; /* TODO */
  45     }
  46 /*
  47
  48 =item C<STRING *get_string()>
  49
  50 Return "1" or "0".
  51
  52 =cut
  53
  54 */
  55     VTABLE STRING *get_string() {
  56         return SUPER();
  57     }
  58
  59
  60 /*
  61
  62 =item C<void set_integer_native(INTVAL value)>
  63
  64 =item C<void set_bool(INTVAL value)>
  65
  66 =item C<void set_pmc(PMC *value)>
  67
  68 =cut
  69
  70 */
  71     VTABLE void set_integer_native(INTVAL value) {
  72         SUPER((value != 0));
  73     }
  74
  75
  76     VTABLE void set_bool(INTVAL value) {
  77         SELF.set_integer_native(value);
  78     }
  79
  80 /*
  81
  82 =item C<void set_number_native(FLOATVAL value)>
  83
  84 Sets the value to C<value> evaluated in a boolean context.
  85
  86 =cut
  87
  88 */
  89
  90     VTABLE void set_number_native(FLOATVAL value) {
  91         SELF.set_bool(!FLOAT_IS_ZERO(value));
  92     }
  93
  94 /*
  95
  96 =item C<void set_string_native(STRING *value)>
  97
  98 Sets the value to C<*value> evaluated in a boolean context.
  99
 100 =cut
 101
 102 */
 103
 104     VTABLE void set_string_native(STRING *value) {
 105         SELF.set_bool(Parrot_str_boolean(INTERP, value));
 106     }
 107 }
 108
 109 /*
 110
 111 =back
 112
 113 =cut
 114
 115 */
 116
 117 /*
 118  * Local variables:
 119  *   c-file-style: "parrot"
 120  * End:
 121  * vim: expandtab shiftwidth=4:
 122  */