languages/pipp/src/pmc/phpboolean.pmc

   1 /*
   2 Copyright (C) 2008, The Perl Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 pmc/phpboolean.pmc - PHP Boolean
   8
   9 =head1 DESCRIPTION
  10
  11 =head2 Methods
  12
  13 =over 4
  14
  15 =cut
  16
  17 */
  18
  19 #include "php_private.h"
  20
  21 pmclass PhpBoolean
  22     extends  Boolean
  23     provides scalar
  24     provides boolean
  25     provides integer
  26     dynpmc
  27     group    php_group
  28     hll      PHP
  29     maps     Boolean {
  30
  31 /*
  32
  33 =item C<STRING* name()>
  34
  35 Return the string 'boolean'.
  36
  37 =cut
  38
  39 */
  40     STRING* name() {
  41         return const_string(INTERP, "boolean");
  42     }
  43
  44 /*
  45
  46 =item C<STRING* get_string()>
  47
  48 Return the string '1' or ''.
  49
  50 =cut
  51
  52 */
  53     STRING* get_string() {
  54         if (PMC_int_val(SELF))
  55             return const_string(INTERP, "1");
  56         else
  57             return const_string(INTERP, "");
  58     }
  59
  60
  61 /*
  62
  63 =back
  64
  65 =head2 non-Vtable Methods
  66
  67 =over 4
  68
  69 =cut
  70
  71 */
  72
  73 /*
  74
  75 =back
  76
  77 =head2 Specific Methods
  78
  79 =over 4
  80
  81 =item C<PMC* to_number()>
  82
  83 =cut
  84
  85 */
  86     METHOD PMC* to_number() {
  87         PMC     *retval = pmc_new(INTERP, dynpmc_PhpInteger);
  88         INTVAL  val = SELF.get_integer();
  89         VTABLE_set_integer_native(INTERP, retval, val);
  90         RETURN(PMC *retval);
  91     }
  92
  93 }
  94
  95 /*
  96
  97 =back
  98
  99 =head1 AUTHORS
 100
 101 Francois Perrad.
 102
 103 =cut
 104
 105 */
 106
 107
 108 /*
 109  * Local variables:
 110  *   c-file-style: "parrot"
 111  * End:
 112  * vim: expandtab shiftwidth=4:
 113  */