Author: allison
Date: Fri Oct 5 18:12:16 2007
New Revision: 21900
Modified:
branches/pdd15oo/examples/japh/japh4.pasm
branches/pdd15oo/examples/japh/japh5.pasm
branches/pdd15oo/examples/japh/japh6.pasm
Log:
[pdd15oo] You can no longer call vtable overrides on the class, you have to
call them on an object. Also updating to the :vtable flag from "__" prefixed
names since the latter will be deprecated (at some point).
Modified: branches/pdd15oo/examples/japh/japh4.pasm
==============================================================================
--- branches/pdd15oo/examples/japh/japh4.pasm (original)
+++ branches/pdd15oo/examples/japh/japh4.pasm Fri Oct 5 18:12:16 2007
@@ -1,9 +1,10 @@
-newclass P2, "Japh"
+newclass P1, "Japh"
+new P2, "Japh"
print P2
end
.namespace ["Japh"]
-.pcc_sub __get_string:
+.pcc_sub :vtable get_string:
set S3, "Just another Parrot Hacker\n"
set_returns "0", S3
returncc
Modified: branches/pdd15oo/examples/japh/japh5.pasm
==============================================================================
--- branches/pdd15oo/examples/japh/japh5.pasm (original)
+++ branches/pdd15oo/examples/japh/japh5.pasm Fri Oct 5 18:12:16 2007
@@ -1,12 +1,13 @@
# JaPH utilizing an object
newclass P0, "Japh"
+ new P0, "Japh"
set P0[1], "Just"
set P0[2], "another"
set P0[3], "Parrot"
set P0[0], "Hacker"
end
.namespace ["Japh"]
-.pcc_sub __set_string_keyed:
+.pcc_sub :vtable set_string_keyed:
get_params "0,0,0", P5, I5, S5
print S5
if I5, sp
Modified: branches/pdd15oo/examples/japh/japh6.pasm
==============================================================================
--- branches/pdd15oo/examples/japh/japh6.pasm (original)
+++ branches/pdd15oo/examples/japh/japh6.pasm Fri Oct 5 18:12:16 2007
@@ -1,4 +1,5 @@
newclass P0, "Japh"
+ new P0, "Japh"
set I0, 0
set S0, P0[I0]
print S0
@@ -7,7 +8,7 @@
print S0
end
.namespace ["Japh"]
-.pcc_sub __get_string_keyed:
+.pcc_sub :vtable get_string_keyed:
get_params "0,0", P1, I1
unless I1, x
set S1, "Parrot Hacker\n"
