src/ops/var.ops

31 =item B<store_lex>(in STR, invar PMC)
35 implementation of the LexPad PMC. Requires that the lexical is
36 stored in a PMC register.
44 implementation of the LexPad PMC. Requires that the lexical is
53 implementation of the LexPad PMC. Requires that the lexical is
62 implementation of the LexPad PMC. Requires that the lexical is
69 op store_lex(in STR, invar PMC) {
70     PMC     * const ctx      = CURRENT_CONTEXT(interp);
72     PMC     * const lex_pad  = Parrot_sub_find_pad(interp, lex_name, ctx);
84     PMC     * const ctx      = CURRENT_CONTEXT(interp);
86     PMC     * const lex_pad  = Parrot_sub_find_pad(interp, lex_name, ctx);
98     PMC     * const ctx      = CURRENT_CONTEXT(interp);
100     PMC     * const lex_pad  = Parrot_sub_find_pad(interp, lex_name, ctx);
112     PMC     * const ctx      = CURRENT_CONTEXT(interp);
114     PMC     * const lex_pad  = Parrot_sub_find_pad(interp, lex_name, ctx);
127 =item B<store_dynamic_lex>(in STR, invar PMC)
136 op store_dynamic_lex(in STR, invar PMC) {
138     PMC     * const ctx      =
140     PMC     * const lex_pad  =
156 =item B<find_lex>(out PMC, in STR)
159 Null PMC if the variable is not found. Requires that the lexical
160 be in a PMC register.
179 op find_lex(out PMC, in STR) {
180     PMC     * const ctx      = CURRENT_CONTEXT(interp);
182     PMC     * const lex_pad  = Parrot_sub_find_pad(interp, lex_name, ctx);
184     PMC * const result =
192     PMC     * const ctx      = CURRENT_CONTEXT(interp);
194     PMC     * const lex_pad  = Parrot_sub_find_pad(interp, lex_name, ctx);
204     PMC     * const ctx      = CURRENT_CONTEXT(interp);
206     PMC     * const lex_pad  = Parrot_sub_find_pad(interp, lex_name, ctx);
216     PMC     * const ctx      = CURRENT_CONTEXT(interp);
218     PMC     * const lex_pad  = Parrot_sub_find_pad(interp, lex_name, ctx);
229 =item B<find_dynamic_lex>(out PMC, in STR)
232 and store it in $1.  Return a Null PMC if the lexical variable
238 op find_dynamic_lex(out PMC, in STR) {
240     PMC     * const ctx      =
242     PMC     * const lex_pad  =
246     PMC     * const result =
255 =item B<find_caller_lex>(out PMC, in STR)
262 op find_caller_lex(out PMC, in STR) {
264     PMC     * ctx            = CURRENT_CONTEXT(interp);
265     PMC     * result         = PMCNULL;
271         PMC * const lex_pad = Parrot_sub_find_pad(interp, lex_name, ctx);
291 =item B<get_namespace>(out PMC)
295 =item B<get_namespace>(out PMC, in PMC)
302 op get_namespace(out PMC) {
303     PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
307 op get_namespace(out PMC, in PMC) {
308     PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
309     PMC * const ns     = Parrot_ns_get_namespace_keyed(interp, cur_ns, $2);
314 =item B<get_hll_namespace>(out PMC)
318 =item B<get_hll_namespace>(out PMC, in PMC)
326 op get_hll_namespace(out PMC) {
327     PMC * const hll_ns = Parrot_hll_get_ctx_HLL_namespace(interp);
331 op get_hll_namespace(out PMC, in PMC) {
332     PMC * const hll_ns = Parrot_hll_get_ctx_HLL_namespace(interp);
336         PMC * const ns = Parrot_ns_get_namespace_keyed(interp, hll_ns, $2);
341 =item B<get_root_namespace>(out PMC)
345 =item B<get_root_namespace>(out PMC, in PMC)
352 op get_root_namespace(out PMC) {
353     PMC * const root_ns = interp->root_namespace;
357 op get_root_namespace(out PMC, in PMC) {
358     PMC * const root_ns = interp->root_namespace;
362         PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, $2);
377 =item B<get_global>(out PMC, in STR)
382 =item B<get_global>(out PMC, in PMC, in STR)
390 op get_global(out PMC, in STR) {
391     PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
393     PMC * const result = Parrot_ns_find_global_from_op(interp, cur_ns, name, expr NEXT());
399 op get_global(out PMC, in PMC, in STR) {
400     PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
405         PMC * const ns = Parrot_ns_get_namespace_keyed(interp, cur_ns, $2);
413 =item B<get_hll_global>(out PMC, in STR)
418 =item B<get_hll_global>(out PMC, in PMC, in STR)
426 op get_hll_global(out PMC, in STR) {
427     PMC * const hll_ns = Parrot_hll_get_ctx_HLL_namespace(interp);
431 op get_hll_global(out PMC, in PMC, in STR) {
432     PMC * const hll_ns = Parrot_hll_get_ctx_HLL_namespace(interp);
437         PMC * const ns = Parrot_ns_get_namespace_keyed(interp, hll_ns, $2);
445 =item B<get_root_global>(out PMC, in STR)
450 =item B<get_root_global>(out PMC, in PMC, in STR)
458 op get_root_global(out PMC, in STR) {
459     PMC * const root_ns = interp->root_namespace;
463 op get_root_global(out PMC, in PMC, in STR) {
464     PMC * const root_ns = interp->root_namespace;
468         PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, $2);
486 =item B<set_global>(in STR, invar PMC)
490 =item B<set_global>(in PMC, in STR, invar PMC)
498 op set_global(in STR, invar PMC) {
499     PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
503 op set_global(in PMC, in STR, invar PMC) {
504     PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
505     PMC * const ns     = Parrot_ns_make_namespace_keyed(interp, cur_ns, $1);
510 =item B<set_hll_global>(in STR, invar PMC)
514 =item B<set_hll_global>(in PMC, in STR, invar PMC)
522 op set_hll_global(in STR, invar PMC) {
523     PMC * const hll_ns = Parrot_hll_get_ctx_HLL_namespace(interp);
527 op set_hll_global(in PMC, in STR, invar PMC) {
528     PMC * const hll_ns = Parrot_hll_get_ctx_HLL_namespace(interp);
529     PMC * const ns     = Parrot_ns_make_namespace_keyed(interp, hll_ns, $1);
534 =item B<set_root_global>(in STR, invar PMC)
538 =item B<set_root_global>(in PMC, in STR, invar PMC)
546 op set_root_global(in STR, invar PMC) {
547     PMC * const root_ns = interp->root_namespace;
551 op set_root_global(in PMC, in STR, invar PMC) {
552     PMC * const root_ns = interp->root_namespace;
553     PMC * const ns      = Parrot_ns_make_namespace_keyed(interp, root_ns, $1);
574 =item B<find_name>(out PMC, in STR)
584 op find_name(out PMC, in STR) {
595 =item B<find_sub_not_null>(out PMC, in STR)
602 inline op find_sub_not_null(out PMC, in STR)  {
604     PMC      * const sub  = Parrot_ns_find_named_item(interp, $2, dest);