languages/lua/src/pmc/luathread.pmc

   1 /*
   2 Copyright (C) 2005-2008, The Perl Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 pmc/luathread.pmc - Lua Thread
   8
   9 =head1 DESCRIPTION
  10
  11 C<LuaThread> extends C<LuaAny> to provide a class with the behaviour
  12 of the Lua C<Thread> type.
  13 This implementation is based on C<Parrot::Coroutine>.
  14
  15 =head2 Overloaded Methods
  16
  17 =over 4
  18
  19 =cut
  20
  21 */
  22
  23 #include "lua_private.h"
  24
  25 static PMC* curr_func(PARROT_INTERP) {
  26     parrot_context_t *ctx = CONTEXT(interp);
  27     PMC *sub = ctx->current_sub;
  28     return sub;
  29 }
  30
  31 static PMC* getcurrenv(PARROT_INTERP) {
  32     PMC *env = NULL;
  33     PMC *sub = curr_func(interp);
  34     if (sub) {
  35         env = PMC_metadata(sub);
  36     }
  37     return env;
  38 }
  39
  40
  41 pmclass LuaThread
  42     extends LuaAny
  43     dynpmc
  44     need_ext
  45     group lua_group
  46     hll Lua {
  47
  48 /*
  49
  50 =item C<void init()>
  51
  52 Raises an exception. Use C<init_pmc()>.
  53
  54 =cut
  55
  56 */
  57     void init() {
  58         real_exception(INTERP, NULL, E_Exception,
  59                        "LuaThread init without sub");
  60     }
  61
  62 /*
  63
  64 =item C<void init_pmc(PMC *sub)>
  65
  66 =cut
  67
  68 */
  69     void init_pmc(PMC *sub) {
  70         PMC *classobj = Parrot_oo_get_class_str(INTERP,
  71                           const_string(INTERP, "Parrot::Coroutine"));
  72         PMC *init_args;
  73
  74         if (PMC_IS_NULL(classobj))
  75             real_exception(INTERP, NULL, E_Exception,
  76                            "Parrot::Coroutine not found");
  77
  78         init_args = pmc_new(INTERP, enum_class_Hash);
  79         VTABLE_set_pmc_keyed_str(INTERP, init_args,
  80                                  const_string(INTERP, "initial_sub"), sub);
  81         PMC_pmc_val(SELF) = VTABLE_instantiate(INTERP, classobj, init_args);
  82         PMC_metadata(SELF) = getcurrenv(INTERP);
  83         PObj_custom_mark_SET(SELF);
  84     }
  85
  86 /*
  87
  88 =item C<void mark()>
  89
  90 Marks the Parrot::Coroutine as live.
  91
  92 =cut
  93
  94 */
  95     void mark() {
  96         if (PMC_pmc_val(SELF))
  97             pobject_lives(INTERP, (PObj *)PMC_pmc_val(SELF));
  98         if (PMC_metadata(SELF))
  99             pobject_lives(INTERP, (PObj *)PMC_metadata(SELF));
 100     }
 101
 102 /*
 103
 104 =item C<STRING* name()>
 105
 106 Return the string "thread".
 107
 108 =cut
 109
 110 */
 111     STRING* name() {
 112         return const_string(INTERP, "thread");
 113     }
 114
 115 /*
 116
 117 =item C<PMC* clone()>
 118
 119 =cut
 120
 121 */
 122     PMC* clone() {
 123         return SELF;
 124     }
 125
 126 /*
 127
 128 =item C<PMC* get_attr_str(STRING *key)>
 129
 130 =cut
 131
 132 */
 133     PMC* get_attr_str(STRING *key) {
 134         return PMC_pmc_val(SELF);
 135     }
 136
 137 /*
 138
 139 =item C<STRING* get_string()>
 140
 141 =cut
 142
 143 */
 144     STRING* get_string() {
 145         return Parrot_sprintf_c(INTERP, "thread: %08X", SELF);
 146     }
 147
 148 /*
 149
 150 =item C<void set_pmc(PMC *value)>
 151
 152 =cut
 153
 154 */
 155     void set_pmc(PMC *value) {
 156         PMC_pmc_val(SELF) = PMC_pmc_val(value);
 157     }
 158
 159 /*
 160
 161 =back
 162
 163 =head2 non-Vtable Methods
 164
 165 =over 4
 166
 167 =item C<INTVAL is_equal(PMC *value)>
 168
 169 =cut
 170
 171 */
 172     INTVAL is_equal(PMC *value) {
 173 MMD_LuaThread: {
 174             if (SELF == value)
 175                 return (INTVAL)1;
 176             else
 177                 return (INTVAL)0;
 178         }
 179 MMD_DEFAULT: {
 180             return (INTVAL)0;
 181         }
 182     }
 183
 184 /*
 185
 186 =back
 187
 188 =head2 Specific Methods
 189
 190 =over 4
 191
 192 =item C<PMC *getfenv()>
 193
 194 =cut
 195
 196 */
 197     METHOD PMC* getfenv() {
 198         PMC *retval = PMC_metadata(SELF);
 199
 200         if (!retval)
 201             retval = pmc_new(INTERP, dynpmc_LuaNil);
 202
 203         RETURN(PMC *retval);
 204     }
 205
 206 /*
 207
 208 =item C<PMC* rawequal(PMC *value)>
 209
 210 =cut
 211
 212 */
 213     METHOD PMC* rawequal(PMC *value) {
 214         PMC *retval = pmc_new(INTERP, dynpmc_LuaBoolean);
 215
 216         if (PMC_type(SELF) == PMC_type(value) && SELF == value)
 217             VTABLE_set_integer_native(INTERP, retval, 1);
 218         else
 219             VTABLE_set_integer_native(INTERP, retval, 0);
 220
 221         RETURN(PMC *retval);
 222     }
 223
 224 /*
 225
 226 =item C<void setfenv(PMC *env)>
 227
 228 =cut
 229
 230 */
 231     METHOD void setfenv(PMC *env) {
 232         PMC_metadata(SELF) = env;
 233     }
 234
 235 }
 236
 237 /*
 238
 239 =back
 240
 241 =head1 AUTHORS
 242
 243 Francois Perrad
 244
 245 =cut
 246
 247 */
 248
 249 /*
 250  * Local variables:
 251  *   c-file-style: "parrot"
 252  * End:
 253  * vim: expandtab shiftwidth=4:
 254  */