← Back to branch summary

~ubuntu-branches/ubuntu/precise/rakudo/precise

« back to all changes in this revision

Viewing changes to src/builtins/compiler.pir

  • Committer: Bazaar Package Importer
  • Author(s): Ryan Niebur
  • Date: 2009-10-04 14:31:57 UTC
  • Revision ID: james.westby@ubuntu.com-20091004143157-ubq3wu0grk0f1e6a
Tags: upstream-0.1~2009.09
Import upstream version 0.1~2009.09

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/builtins/compiler.pir
 
1
## $Id$
 
2
 
 
3
=head1 NAME
 
4
 
 
5
src/builtins/compiler.pir - various Perl6::Compiler methods
 
6
 
 
7
=head1 Methods
 
8
 
 
9
=over 4
 
10
 
 
11
=cut
 
12
 
 
13
.namespace ['Perl6';'Compiler']
 
14
 
 
15
.sub 'import' :method
 
16
    .param pmc exportns
 
17
    .param pmc symbols         :slurpy
 
18
    .param pmc options         :slurpy :named
 
19
 
 
20
    $P0 = self.'parse_name'(exportns)
 
21
    exportns = get_hll_namespace $P0
 
22
    if null exportns goto end
 
23
 
 
24
    .local pmc importns
 
25
    importns = options['import_to']
 
26
    if null importns goto import_caller_ns
 
27
    $P0 = self.'parse_name'(importns)
 
28
    importns = get_hll_namespace $P0
 
29
    goto have_importns
 
30
  import_caller_ns:
 
31
    $P0 = getinterp
 
32
    $P0 = $P0['sub';1]
 
33
    importns = $P0.'get_namespace'()
 
34
  have_importns:
 
35
 
 
36
    .local pmc symbols_it
 
37
    symbols_it = iter symbols
 
38
  symbols_loop:
 
39
    unless symbols_it goto symbols_done
 
40
    .local string symtag
 
41
    symtag = shift symbols_it
 
42
    $S0 = substr symtag, 0, 1
 
43
    if $S0 == ':' goto symbols_tag
 
44
    $P0 = exportns[$S0]
 
45
    importns[$S0] = $P0
 
46
    goto symbols_loop
 
47
 
 
48
  symbols_tag:
 
49
    symtag = substr symtag, 1
 
50
    .local pmc tagns
 
51
    tagns = exportns.'get_name'()
 
52
    push tagns, 'EXPORT'
 
53
    push tagns, symtag
 
54
    tagns = get_root_namespace tagns
 
55
    if null tagns goto tagns_done
 
56
    .local pmc tagns_it
 
57
    tagns_it = iter tagns
 
58
  tagns_loop:
 
59
    unless tagns_it goto tagns_done
 
60
    $S0 = shift tagns_it
 
61
    $P0 = tagns[$S0]
 
62
    importns[$S0] = $P0
 
63
    goto tagns_loop
 
64
  tagns_done:
 
65
    goto symbols_loop
 
66
  symbols_done:
 
67
  end:
 
68
.end
 
69
 
 
70
=back
 
71
 
 
72
=cut