Skip to content

Commit

Permalink
expose Junction.eigenstates as a public method
Browse files Browse the repository at this point in the history
  • Loading branch information
moritz committed Feb 19, 2009
1 parent 444a4c8 commit 9288850
Show file tree
Hide file tree
Showing 4 changed files with 10 additions and 10 deletions.
4 changes: 2 additions & 2 deletions src/builtins/guts.pir
Expand Up @@ -147,8 +147,8 @@ subtyping relations, etc).
unless $I0 == $I1 goto not_junc
.local pmc j1, j2
.local int max, i
j1 = t1.'!eigenstates'()
j2 = t1.'!eigenstates'()
j1 = t1.'eigenstates'()
j2 = t1.'eigenstates'()
max = elements j1
i = 0
junc_loop:
Expand Down
2 changes: 1 addition & 1 deletion src/classes/ClassHOW.pir
Expand Up @@ -163,7 +163,7 @@ Dispatches to method of the given name on this class or one of its parents.
autothread_invocant:
.local pmc values, values_it, res, res_list, type
res_list = 'list'()
values = obj.'!eigenstates'()
values = obj.'eigenstates'()
values_it = iter values
values_it_loop:
unless values_it goto values_it_loop_end
Expand Down
12 changes: 6 additions & 6 deletions src/classes/Junction.pir
Expand Up @@ -53,7 +53,7 @@ Return perl representation. (This should actually be autothreaded.)
type_done:

.local pmc it
$P0 = self.'!eigenstates'()
$P0 = self.'eigenstates'()
it = iter $P0
unless it goto states_done
$P0 = shift it
Expand Down Expand Up @@ -82,7 +82,7 @@ Evaluate Junction as a boolean.
.sub 'true' :method
.local pmc eigenstates, it
.local int type
eigenstates = self.'!eigenstates'()
eigenstates = self.'eigenstates'()
it = iter eigenstates
type = self.'!type'()
if type == JUNCTION_TYPE_NONE goto none
Expand Down Expand Up @@ -127,7 +127,7 @@ Smart-matching for junctions, short-circuiting.
.param pmc topic
.local pmc eigenstates, it, state
.local int type
eigenstates = self.'!eigenstates'()
eigenstates = self.'eigenstates'()
it = iter eigenstates
type = self.'!type'()
if type == JUNCTION_TYPE_NONE goto none
Expand Down Expand Up @@ -168,7 +168,7 @@ Smart-matching for junctions, short-circuiting.

Return the type of the Junction.

=item !eigenstates()
=item eigenstates()

Return the components of the Junction.

Expand All @@ -180,7 +180,7 @@ Return the components of the Junction.
.return ($P0)
.end

.sub '!eigenstates' :method
.sub 'eigenstates' :method
$P0 = getattribute self, '@!eigenstates'
.return ($P0)
.end
Expand Down Expand Up @@ -305,7 +305,7 @@ Does a junctional dispatch. XXX Needs to support named args.

have_index:
.local pmc eigenstates, it, results
eigenstates = junc.'!eigenstates'()
eigenstates = junc.'eigenstates'()
it = iter eigenstates
results = 'list'()
thread_loop:
Expand Down
2 changes: 1 addition & 1 deletion src/classes/Signature.pir
Expand Up @@ -75,7 +75,7 @@ the Signature.
cur_list = 'all'($P0)
attr["type"] = cur_list
have_type_attr:
cur_list = cur_list.'!eigenstates'()
cur_list = cur_list.'eigenstates'()
cur_list_iter = iter cur_list
cur_list_loop:
unless cur_list_iter goto cur_list_loop_end
Expand Down

0 comments on commit 9288850

Please sign in to comment.