58faf91453
* *
% remove brandings and homepage [1] from copyright header. Pass 1 - using script.
[1] nobody has access to it anymore AFAIK - and it's also just
a redirect since long
! update url in copyright header
; this should make the diff between 3.4 and 3.2 easier to manage
360 lines
17 KiB
Plaintext
360 lines
17 KiB
Plaintext
/*
|
|
* demonstration/test code for shared class variables casting and allocating
|
|
* in multiinherited classes
|
|
*
|
|
* Copyright 2006 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
|
|
*
|
|
*/
|
|
|
|
#xtranslate QQOUT([<x,...>]) => [OUTSTD(<x>)]
|
|
#xtranslate QOUT([<x,...>]) => OUTSTD(hb_eol())[;OUTSTD(<x>)]
|
|
|
|
#include "hbclass.ch"
|
|
|
|
proc main()
|
|
local o:=myclass4():new(), i, cbErr
|
|
|
|
? DATE(), TIME(), VERSION(), OS()
|
|
?
|
|
|
|
? "myclass1 shared class vars:", str( __CLS_CNTSHRDATA(o:myclass1:classH), 3), " => should be: 3"
|
|
? "myclass2 shared class vars:", str( __CLS_CNTSHRDATA(o:myclass2:classH), 3), " => should be: 3"
|
|
? "myclass3 shared class vars:", str( __CLS_CNTSHRDATA(o:myclass3:classH), 3), " => should be: 3"
|
|
cbErr := errorBlock( {| oErr | break( oErr ) } )
|
|
begin sequence
|
|
? "myclass4 shared class vars:", str( __CLS_CNTSHRDATA(o:myclass4:classH), 3), " => should be: 3"
|
|
recover
|
|
? "ERROR: no selfclass casting"
|
|
end
|
|
errorBlock(cbErr)
|
|
? "myclass4 shared class vars:", str( __CLS_CNTSHRDATA(o:classH), 3), " => should be: 3"
|
|
?
|
|
|
|
/* direct assignment, possible because the variables have differ names */
|
|
? "instance variables ["+ltrim(str(len(o)))+"]:"; ?
|
|
for i:=1 to len(o); ?? "",o[i]; next
|
|
? " => shoule be [0]:"
|
|
?
|
|
? "[1] MYCLASS1 VARS:", o:myclass1:x1, o:myclass1:y1, o:myclass1:z1, " => should be: (x1) (y1) (z1)"
|
|
? "[2] MYCLASS1 VARS:", o:myclass2:x1, o:myclass2:y1, o:myclass2:z1, " => should be: (x1) (y1) (z1)"
|
|
? "[2] MYCLASS2 VARS:", o:myclass2:x2, o:myclass2:y2, o:myclass2:z2, " => should be: (x2) (y2) (z2)"
|
|
? "[3] MYCLASS1 VARS:", o:myclass3:x1, o:myclass3:y1, o:myclass3:z1, " => should be: (x1) (y1) (z1)"
|
|
? "[3] MYCLASS2 VARS:", o:myclass3:x2, o:myclass3:y2, o:myclass3:z2, " => should be: (x2) (y2) (z2)"
|
|
? "[3] MYCLASS3 VARS:", o:myclass3:x3, o:myclass3:y3, o:myclass3:z3, " => should be: (x3) (y3) (z3)"
|
|
cbErr := errorBlock( {| oErr | break( oErr ) } )
|
|
begin sequence
|
|
? "[4] MYCLASS1 VARS:", o:myclass4:x1, o:myclass4:y1, o:myclass4:z1, " => should be: (x1) (y1) (z1)"
|
|
? "[4] MYCLASS2 VARS:", o:myclass4:x2, o:myclass4:y2, o:myclass4:z2, " => should be: (x2) (y2) (z2)"
|
|
? "[4] MYCLASS3 VARS:", o:myclass4:x3, o:myclass4:y3, o:myclass4:z3, " => should be: (x3) (y3) (z3)"
|
|
? "[4] MYCLASS4 VARS:", o:myclass4:x4, o:myclass4:y4, o:myclass4:z4, " => should be: (x4) (y4) (z4)"
|
|
recover
|
|
? "ERROR: no selfclass casting"
|
|
end
|
|
errorBlock(cbErr)
|
|
? " MYCLASS1 VARS:", o:x1, o:y1, o:z1, " => should be: (x1) (y1) (z1)"
|
|
? " MYCLASS2 VARS:", o:x2, o:y2, o:z2, " => should be: (x2) (y2) (z2)"
|
|
? " MYCLASS3 VARS:", o:x3, o:y3, o:z3, " => should be: (x3) (y3) (z3)"
|
|
? " MYCLASS4 VARS:", o:x4, o:y4, o:z4, " => should be: (x4) (y4) (z4)"
|
|
?
|
|
? "initialization..."
|
|
o:x1:=" X1 "; o:y1:=" Y1 "; o:z1:=" Z1 "
|
|
o:x2:=" X2 "; o:y2:=" Y2 "; o:z2:=" Z2 "
|
|
o:x3:=" X3 "; o:y3:=" Y3 "; o:z3:=" Z3 "
|
|
o:x4:=" X4 "; o:y4:=" Y4 "; o:z4:=" Z4 "
|
|
|
|
? "[1] MYCLASS1 VARS:", o:myclass1:x1, o:myclass1:y1, o:myclass1:z1, " => should be: X1 Y1 Z1"
|
|
? "[2] MYCLASS1 VARS:", o:myclass2:x1, o:myclass2:y1, o:myclass2:z1, " => should be: X1 Y1 Z1"
|
|
? "[2] MYCLASS2 VARS:", o:myclass2:x2, o:myclass2:y2, o:myclass2:z2, " => should be: X2 Y2 Z2"
|
|
? "[3] MYCLASS1 VARS:", o:myclass3:x1, o:myclass3:y1, o:myclass3:z1, " => should be: X1 Y1 Z1"
|
|
? "[3] MYCLASS2 VARS:", o:myclass3:x2, o:myclass3:y2, o:myclass3:z2, " => should be: X2 Y2 Z2"
|
|
? "[3] MYCLASS3 VARS:", o:myclass3:x3, o:myclass3:y3, o:myclass3:z3, " => should be: X3 Y3 Z3"
|
|
cbErr := errorBlock( {| oErr | break( oErr ) } )
|
|
begin sequence
|
|
? "[4] MYCLASS1 VARS:", o:myclass4:x1, o:myclass4:y1, o:myclass4:z1, " => should be: X1 Y1 Z1"
|
|
? "[4] MYCLASS2 VARS:", o:myclass4:x2, o:myclass4:y2, o:myclass4:z2, " => should be: X2 Y2 Z2"
|
|
? "[4] MYCLASS3 VARS:", o:myclass4:x3, o:myclass4:y3, o:myclass4:z3, " => should be: X3 Y3 Z3"
|
|
? "[4] MYCLASS4 VARS:", o:myclass4:x4, o:myclass4:y4, o:myclass4:z4, " => should be: X4 Y4 Z4"
|
|
recover
|
|
? "ERROR: no selfclass casting"
|
|
end
|
|
errorBlock(cbErr)
|
|
? " MYCLASS1 VARS:", o:x1, o:y1, o:z1, " => should be: X1 Y1 Z1"
|
|
? " MYCLASS2 VARS:", o:x2, o:y2, o:z2, " => should be: X2 Y2 Z2"
|
|
? " MYCLASS3 VARS:", o:x3, o:y3, o:z3, " => should be: X3 Y3 Z3"
|
|
? " MYCLASS4 VARS:", o:x4, o:y4, o:z4, " => should be: X4 Y4 Z4"
|
|
?
|
|
|
|
? "instance variables ["+ltrim(str(len(o)))+"]:"; ?
|
|
for i:=1 to len(o); ?? "",o[i]; next
|
|
? " => shoule be [0]:"
|
|
?
|
|
|
|
? "Setting MYCLASS1 class variables..."
|
|
o:myclass1:x1:="[X1]"
|
|
o:myclass1:y1:="[Y1]"
|
|
o:myclass1:z1:="[Z1]"
|
|
? "[1] MYCLASS1 VARS:", o:myclass1:x1, o:myclass1:y1, o:myclass1:z1, " => should be: [X1] [Y1] [Z1]"
|
|
? "[2] MYCLASS1 VARS:", o:myclass2:x1, o:myclass2:y1, o:myclass2:z1, " => should be: [X1] [Y1] [Z1]"
|
|
? "[2] MYCLASS2 VARS:", o:myclass2:x2, o:myclass2:y2, o:myclass2:z2, " => should be: X2 Y2 Z2"
|
|
? "[3] MYCLASS1 VARS:", o:myclass3:x1, o:myclass3:y1, o:myclass3:z1, " => should be: [X1] [Y1] [Z1]"
|
|
? "[3] MYCLASS2 VARS:", o:myclass3:x2, o:myclass3:y2, o:myclass3:z2, " => should be: X2 Y2 Z2"
|
|
? "[3] MYCLASS3 VARS:", o:myclass3:x3, o:myclass3:y3, o:myclass3:z3, " => should be: X3 Y3 Z3"
|
|
cbErr := errorBlock( {| oErr | break( oErr ) } )
|
|
begin sequence
|
|
? "[4] MYCLASS1 VARS:", o:myclass4:x1, o:myclass4:y1, o:myclass4:z1, " => should be: [X1] [Y1] [Z1]"
|
|
? "[4] MYCLASS2 VARS:", o:myclass4:x2, o:myclass4:y2, o:myclass4:z2, " => should be: X2 Y2 Z2"
|
|
? "[4] MYCLASS3 VARS:", o:myclass4:x3, o:myclass4:y3, o:myclass4:z3, " => should be: X3 Y3 Z3"
|
|
? "[4] MYCLASS4 VARS:", o:myclass4:x4, o:myclass4:y4, o:myclass4:z4, " => should be: X4 Y4 Z4"
|
|
recover
|
|
? "ERROR: no selfclass casting"
|
|
end
|
|
errorBlock(cbErr)
|
|
? " MYCLASS1 VARS:", o:x1, o:y1, o:z1, " => should be: [X1] [Y1] [Z1]"
|
|
? " MYCLASS2 VARS:", o:x2, o:y2, o:z2, " => should be: X2 Y2 Z2"
|
|
? " MYCLASS3 VARS:", o:x3, o:y3, o:z3, " => should be: X3 Y3 Z3"
|
|
? " MYCLASS4 VARS:", o:x4, o:y4, o:z4, " => should be: X4 Y4 Z4"
|
|
?
|
|
|
|
? "Setting MYCLASS2 class variables..."
|
|
o:myclass2:x1:="{X1}"
|
|
o:myclass2:y1:="{Y1}"
|
|
o:myclass2:z1:="{Z1}"
|
|
o:myclass2:x2:="{X2}"
|
|
o:myclass2:y2:="{Y2}"
|
|
o:myclass2:z2:="{Z2}"
|
|
? "[1] MYCLASS1 VARS:", o:myclass1:x1, o:myclass1:y1, o:myclass1:z1, " => should be: {X1} {Y1} {Z1}"
|
|
? "[2] MYCLASS1 VARS:", o:myclass2:x1, o:myclass2:y1, o:myclass2:z1, " => should be: {X1} {Y1} {Z1}"
|
|
? "[2] MYCLASS2 VARS:", o:myclass2:x2, o:myclass2:y2, o:myclass2:z2, " => should be: {X2} {Y2} {Z2}"
|
|
? "[3] MYCLASS1 VARS:", o:myclass3:x1, o:myclass3:y1, o:myclass3:z1, " => should be: {X1} {Y1} {Z1}"
|
|
? "[3] MYCLASS2 VARS:", o:myclass3:x2, o:myclass3:y2, o:myclass3:z2, " => should be: {X2} {Y2} {Z2}"
|
|
? "[3] MYCLASS3 VARS:", o:myclass3:x3, o:myclass3:y3, o:myclass3:z3, " => should be: X3 Y3 Z3"
|
|
cbErr := errorBlock( {| oErr | break( oErr ) } )
|
|
begin sequence
|
|
? "[4] MYCLASS1 VARS:", o:myclass4:x1, o:myclass4:y1, o:myclass4:z1, " => should be: {X1} {Y1} {Z1}"
|
|
? "[4] MYCLASS2 VARS:", o:myclass4:x2, o:myclass4:y2, o:myclass4:z2, " => should be: {X2} {Y2} {Z2}"
|
|
? "[4] MYCLASS3 VARS:", o:myclass4:x3, o:myclass4:y3, o:myclass4:z3, " => should be: X3 Y3 Z3"
|
|
? "[4] MYCLASS4 VARS:", o:myclass4:x4, o:myclass4:y4, o:myclass4:z4, " => should be: X4 Y4 Z4"
|
|
recover
|
|
? "ERROR: no selfclass casting"
|
|
end
|
|
errorBlock(cbErr)
|
|
? " MYCLASS1 VARS:", o:x1, o:y1, o:z1, " => should be: {X1} {Y1} {Z1}"
|
|
? " MYCLASS2 VARS:", o:x2, o:y2, o:z2, " => should be: {X2} {Y2} {Z2}"
|
|
? " MYCLASS3 VARS:", o:x3, o:y3, o:z3, " => should be: X3 Y3 Z3"
|
|
? " MYCLASS4 VARS:", o:x4, o:y4, o:z4, " => should be: X4 Y4 Z4"
|
|
?
|
|
|
|
? "Setting MYCLASS3 class variables..."
|
|
o:myclass3:x1:="<X1>"
|
|
o:myclass3:y1:="<Y1>"
|
|
o:myclass3:z1:="<Z1>"
|
|
o:myclass3:x2:="<X2>"
|
|
o:myclass3:y2:="<Y2>"
|
|
o:myclass3:z2:="<Z2>"
|
|
o:myclass3:x3:="<X3>"
|
|
o:myclass3:y3:="<Y3>"
|
|
o:myclass3:z3:="<Z3>"
|
|
? "[1] MYCLASS1 VARS:", o:myclass1:x1, o:myclass1:y1, o:myclass1:z1, " => should be: <X1> <Y1> <Z1>"
|
|
? "[2] MYCLASS1 VARS:", o:myclass2:x1, o:myclass2:y1, o:myclass2:z1, " => should be: <X1> <Y1> <Z1>"
|
|
? "[2] MYCLASS2 VARS:", o:myclass2:x2, o:myclass2:y2, o:myclass2:z2, " => should be: <X2> <Y2> <Z2>"
|
|
? "[3] MYCLASS1 VARS:", o:myclass3:x1, o:myclass3:y1, o:myclass3:z1, " => should be: <X1> <Y1> <Z1>"
|
|
? "[3] MYCLASS2 VARS:", o:myclass3:x2, o:myclass3:y2, o:myclass3:z2, " => should be: <X2> <Y2> <Z2>"
|
|
? "[3] MYCLASS3 VARS:", o:myclass3:x3, o:myclass3:y3, o:myclass3:z3, " => should be: <X3> <Y3> <Z3>"
|
|
cbErr := errorBlock( {| oErr | break( oErr ) } )
|
|
begin sequence
|
|
? "[4] MYCLASS1 VARS:", o:myclass4:x1, o:myclass4:y1, o:myclass4:z1, " => should be: <X1> <Y1> <Z1>"
|
|
? "[4] MYCLASS2 VARS:", o:myclass4:x2, o:myclass4:y2, o:myclass4:z2, " => should be: <X2> <Y2> <Z2>"
|
|
? "[4] MYCLASS3 VARS:", o:myclass4:x3, o:myclass4:y3, o:myclass4:z3, " => should be: <X3> <Y3> <Z3>"
|
|
? "[4] MYCLASS4 VARS:", o:myclass4:x4, o:myclass4:y4, o:myclass4:z4, " => should be: X4 Y4 Z4"
|
|
recover
|
|
? "ERROR: no selfclass casting"
|
|
end
|
|
errorBlock(cbErr)
|
|
? " MYCLASS1 VARS:", o:x1, o:y1, o:z1, " => should be: <X1> <Y1> <Z1>"
|
|
? " MYCLASS2 VARS:", o:x2, o:y2, o:z2, " => should be: <X2> <Y2> <Z2>"
|
|
? " MYCLASS3 VARS:", o:x3, o:y3, o:z3, " => should be: <X3> <Y3> <Z3>"
|
|
? " MYCLASS4 VARS:", o:x4, o:y4, o:z4, " => should be: X4 Y4 Z4"
|
|
?
|
|
|
|
|
|
|
|
|
|
? "Setting MYCLASS4 class variables..."
|
|
cbErr := errorBlock( {| oErr | break( oErr ) } )
|
|
begin sequence
|
|
o:myclass4:x1:="|X1|"
|
|
o:myclass4:y1:="|Y1|"
|
|
o:myclass4:z1:="|Z1|"
|
|
o:myclass4:x2:="|X2|"
|
|
o:myclass4:y2:="|Y2|"
|
|
o:myclass4:z2:="|Z2|"
|
|
o:myclass4:x3:="|X3|"
|
|
o:myclass4:y3:="|Y3|"
|
|
o:myclass4:z3:="|Z3|"
|
|
o:myclass4:x4:="|X4|"
|
|
o:myclass4:y4:="|Y4|"
|
|
o:myclass4:z4:="|Z4|"
|
|
recover
|
|
? "ERROR: no selfclass casting"
|
|
end
|
|
errorBlock(cbErr)
|
|
? "[1] MYCLASS1 VARS:", o:myclass1:x1, o:myclass1:y1, o:myclass1:z1, " => should be: |X1| |Y1| |Z1|"
|
|
? "[2] MYCLASS1 VARS:", o:myclass2:x1, o:myclass2:y1, o:myclass2:z1, " => should be: |X1| |Y1| |Z1|"
|
|
? "[2] MYCLASS2 VARS:", o:myclass2:x2, o:myclass2:y2, o:myclass2:z2, " => should be: |X2| |Y2| |Z2|"
|
|
? "[3] MYCLASS1 VARS:", o:myclass3:x1, o:myclass3:y1, o:myclass3:z1, " => should be: |X1| |Y1| |Z1|"
|
|
? "[3] MYCLASS2 VARS:", o:myclass3:x2, o:myclass3:y2, o:myclass3:z2, " => should be: |X2| |Y2| |Z2|"
|
|
? "[3] MYCLASS3 VARS:", o:myclass3:x3, o:myclass3:y3, o:myclass3:z3, " => should be: |X3| |Y3| |Z3|"
|
|
cbErr := errorBlock( {| oErr | break( oErr ) } )
|
|
begin sequence
|
|
? "[4] MYCLASS1 VARS:", o:myclass4:x1, o:myclass4:y1, o:myclass4:z1, " => should be: |X1| |Y1| |Z1|"
|
|
? "[4] MYCLASS2 VARS:", o:myclass4:x2, o:myclass4:y2, o:myclass4:z2, " => should be: |X2| |Y2| |Z2|"
|
|
? "[4] MYCLASS3 VARS:", o:myclass4:x3, o:myclass4:y3, o:myclass4:z3, " => should be: |X3| |Y3| |Z3|"
|
|
? "[4] MYCLASS4 VARS:", o:myclass4:x4, o:myclass4:y4, o:myclass4:z4, " => should be: |X4| |Y4| |Z4|"
|
|
recover
|
|
? "ERROR: no selfclass casting"
|
|
end
|
|
errorBlock(cbErr)
|
|
? " MYCLASS1 VARS:", o:x1, o:y1, o:z1, " => should be: |X1| |Y1| |Z1|"
|
|
? " MYCLASS2 VARS:", o:x2, o:y2, o:z2, " => should be: |X2| |Y2| |Z2|"
|
|
? " MYCLASS3 VARS:", o:x3, o:y3, o:z3, " => should be: |X3| |Y3| |Z3|"
|
|
? " MYCLASS4 VARS:", o:x4, o:y4, o:z4, " => should be: |X4| |Y4| |Z4|"
|
|
?
|
|
|
|
|
|
? "Setting MYCLASS3:MYCLASS1 class variables..."
|
|
o:myclass3:myclass1:x1:="^X1^"
|
|
o:myclass3:myclass1:y1:="^Y1^"
|
|
o:myclass3:myclass1:z1:="^Z1^"
|
|
? "[1] MYCLASS1 VARS:", o:myclass1:x1, o:myclass1:y1, o:myclass1:z1, " => should be: ^X1^ ^Y1^ ^Z1^"
|
|
? "[2] MYCLASS1 VARS:", o:myclass2:x1, o:myclass2:y1, o:myclass2:z1, " => should be: ^X1^ ^Y1^ ^Z1^"
|
|
? "[2] MYCLASS2 VARS:", o:myclass2:x2, o:myclass2:y2, o:myclass2:z2, " => should be: |X2| |Y2| |Z2|"
|
|
? "[3] MYCLASS1 VARS:", o:myclass3:x1, o:myclass3:y1, o:myclass3:z1, " => should be: ^X1^ ^Y1^ ^Z1^"
|
|
? "[3] MYCLASS2 VARS:", o:myclass3:x2, o:myclass3:y2, o:myclass3:z2, " => should be: |X2| |Y2| |Z2|"
|
|
? "[3] MYCLASS3 VARS:", o:myclass3:x3, o:myclass3:y3, o:myclass3:z3, " => should be: |X3| |Y3| |Z3|"
|
|
cbErr := errorBlock( {| oErr | break( oErr ) } )
|
|
begin sequence
|
|
? "[4] MYCLASS1 VARS:", o:myclass4:x1, o:myclass4:y1, o:myclass4:z1, " => should be: ^X1^ ^Y1^ ^Z1^"
|
|
? "[4] MYCLASS2 VARS:", o:myclass4:x2, o:myclass4:y2, o:myclass4:z2, " => should be: |X2| |Y2| |Z2|"
|
|
? "[4] MYCLASS3 VARS:", o:myclass4:x3, o:myclass4:y3, o:myclass4:z3, " => should be: |X3| |Y3| |Z3|"
|
|
? "[4] MYCLASS4 VARS:", o:myclass4:x4, o:myclass4:y4, o:myclass4:z4, " => should be: |X4| |Y4| |Z4|"
|
|
recover
|
|
? "ERROR: no selfclass casting"
|
|
end
|
|
errorBlock(cbErr)
|
|
? " MYCLASS1 VARS:", o:x1, o:y1, o:z1, " => should be: ^X1^ ^Y1^ ^Z1^"
|
|
? " MYCLASS2 VARS:", o:x2, o:y2, o:z2, " => should be: |X2| |Y2| |Z2|"
|
|
? " MYCLASS3 VARS:", o:x3, o:y3, o:z3, " => should be: |X3| |Y3| |Z3|"
|
|
? " MYCLASS4 VARS:", o:x4, o:y4, o:z4, " => should be: |X4| |Y4| |Z4|"
|
|
?
|
|
|
|
? "Setting MYCLASS3:MYCLASS2 class variables..."
|
|
o:myclass3:myclass2:x1:="=X1="
|
|
o:myclass3:myclass2:y1:="=Y1="
|
|
o:myclass3:myclass2:z1:="=Z1="
|
|
o:myclass3:myclass2:x2:="=X2="
|
|
o:myclass3:myclass2:y2:="=Y2="
|
|
o:myclass3:myclass2:z2:="=Z2="
|
|
? "[1] MYCLASS1 VARS:", o:myclass1:x1, o:myclass1:y1, o:myclass1:z1, " => should be: =X1= =Y1= =Z1="
|
|
? "[2] MYCLASS1 VARS:", o:myclass2:x1, o:myclass2:y1, o:myclass2:z1, " => should be: =X1= =Y1= =Z1="
|
|
? "[2] MYCLASS2 VARS:", o:myclass2:x2, o:myclass2:y2, o:myclass2:z2, " => should be: =X2= =Y2= =Z2="
|
|
? "[3] MYCLASS1 VARS:", o:myclass3:x1, o:myclass3:y1, o:myclass3:z1, " => should be: =X1= =Y1= =Z1="
|
|
? "[3] MYCLASS2 VARS:", o:myclass3:x2, o:myclass3:y2, o:myclass3:z2, " => should be: =X2= =Y2= =Z2="
|
|
? "[3] MYCLASS3 VARS:", o:myclass3:x3, o:myclass3:y3, o:myclass3:z3, " => should be: |X3| |Y3| |Z3|"
|
|
cbErr := errorBlock( {| oErr | break( oErr ) } )
|
|
begin sequence
|
|
? "[4] MYCLASS1 VARS:", o:myclass4:x1, o:myclass4:y1, o:myclass4:z1, " => should be: =X1= =Y1= =Z1="
|
|
? "[4] MYCLASS2 VARS:", o:myclass4:x2, o:myclass4:y2, o:myclass4:z2, " => should be: =X2= =Y2= =Z2="
|
|
? "[4] MYCLASS3 VARS:", o:myclass4:x3, o:myclass4:y3, o:myclass4:z3, " => should be: |X3| |Y3| |Z3|"
|
|
? "[4] MYCLASS4 VARS:", o:myclass4:x4, o:myclass4:y4, o:myclass4:z4, " => should be: |X4| |Y4| |Z4|"
|
|
recover
|
|
? "ERROR: no selfclass casting"
|
|
end
|
|
errorBlock(cbErr)
|
|
? " MYCLASS1 VARS:", o:x1, o:y1, o:z1, " => should be: =X1= =Y1= =Z1="
|
|
? " MYCLASS2 VARS:", o:x2, o:y2, o:z2, " => should be: =X2= =Y2= =Z2="
|
|
? " MYCLASS3 VARS:", o:x3, o:y3, o:z3, " => should be: |X3| |Y3| |Z3|"
|
|
? " MYCLASS4 VARS:", o:x4, o:y4, o:z4, " => should be: |X4| |Y4| |Z4|"
|
|
?
|
|
|
|
? "Setting SUPER class variables..."
|
|
o:super:x1:="*X1*"
|
|
o:super:y1:="*Y1*"
|
|
o:super:z1:="*Z1*"
|
|
o:super:x2:="*X2*"
|
|
o:super:y2:="*Y2*"
|
|
o:super:z2:="*Z2*"
|
|
o:super:x3:="*X3*"
|
|
o:super:y3:="*Y3*"
|
|
o:super:z3:="*Z3*"
|
|
? "[1] MYCLASS1 VARS:", o:myclass1:x1, o:myclass1:y1, o:myclass1:z1, " => should be: *X1* *Y1* *Z1*"
|
|
? "[2] MYCLASS1 VARS:", o:myclass2:x1, o:myclass2:y1, o:myclass2:z1, " => should be: *X1* *Y1* *Z1*"
|
|
? "[2] MYCLASS2 VARS:", o:myclass2:x2, o:myclass2:y2, o:myclass2:z2, " => should be: *X2* *Y2* *Z2*"
|
|
? "[3] MYCLASS1 VARS:", o:myclass3:x1, o:myclass3:y1, o:myclass3:z1, " => should be: *X1* *Y1* *Z1*"
|
|
? "[3] MYCLASS2 VARS:", o:myclass3:x2, o:myclass3:y2, o:myclass3:z2, " => should be: *X2* *Y2* *Z2*"
|
|
? "[3] MYCLASS3 VARS:", o:myclass3:x3, o:myclass3:y3, o:myclass3:z3, " => should be: *X3* *Y3* *Z3*"
|
|
cbErr := errorBlock( {| oErr | break( oErr ) } )
|
|
begin sequence
|
|
? "[4] MYCLASS1 VARS:", o:myclass4:x1, o:myclass4:y1, o:myclass4:z1, " => should be: *X1* *Y1* *Z1*"
|
|
? "[4] MYCLASS2 VARS:", o:myclass4:x2, o:myclass4:y2, o:myclass4:z2, " => should be: *X2* *Y2* *Z2*"
|
|
? "[4] MYCLASS3 VARS:", o:myclass4:x3, o:myclass4:y3, o:myclass4:z3, " => should be: *X3* *Y3* *Z3*"
|
|
? "[4] MYCLASS4 VARS:", o:myclass4:x4, o:myclass4:y4, o:myclass4:z4, " => should be: |X4| |Y4| |Z4|"
|
|
recover
|
|
? "ERROR: no selfclass casting"
|
|
end
|
|
errorBlock(cbErr)
|
|
? " MYCLASS1 VARS:", o:x1, o:y1, o:z1, " => should be: *X1* *Y1* *Z1*"
|
|
? " MYCLASS2 VARS:", o:x2, o:y2, o:z2, " => should be: *X2* *Y2* *Z2*"
|
|
? " MYCLASS3 VARS:", o:x3, o:y3, o:z3, " => should be: *X3* *Y3* *Z3*"
|
|
? " MYCLASS4 VARS:", o:x4, o:y4, o:z4, " => should be: |X4| |Y4| |Z4|"
|
|
?
|
|
|
|
|
|
? "instance variables ["+ltrim(str(len(o)))+"]:"; ?
|
|
for i:=1 to len(o); ?? "",o[i]; next
|
|
? " => shoule be [0]:"
|
|
?
|
|
? "myclass1 shared class vars:", str( __CLS_CNTSHRDATA(o:myclass1:classH), 3), " => should be: 3"
|
|
? "myclass2 shared class vars:", str( __CLS_CNTSHRDATA(o:myclass2:classH), 3), " => should be: 3"
|
|
? "myclass3 shared class vars:", str( __CLS_CNTSHRDATA(o:myclass3:classH), 3), " => should be: 3"
|
|
cbErr := errorBlock( {| oErr | break( oErr ) } )
|
|
begin sequence
|
|
? "myclass4 shared class vars:", str( __CLS_CNTSHRDATA(o:myclass4:classH), 3), " => should be: 3"
|
|
recover
|
|
? "ERROR: no selfclass casting"
|
|
end
|
|
errorBlock(cbErr)
|
|
? "myclass4 shared class vars:", str( __CLS_CNTSHRDATA(o:classH), 3), " => should be: 3"
|
|
?
|
|
|
|
|
|
return
|
|
|
|
|
|
create class myclass1
|
|
export:
|
|
class var x1 init "(x1)" shared
|
|
class var y1 init "(y1)" shared
|
|
class var z1 init "(z1)" shared
|
|
endclass
|
|
|
|
create class myclass2 from myclass1
|
|
export:
|
|
class var x2 init "(x2)" shared
|
|
class var y2 init "(y2)" shared
|
|
class var z2 init "(z2)" shared
|
|
endclass
|
|
|
|
create class myclass3 from myclass1, myclass2
|
|
export:
|
|
class var x3 init "(x3)" shared
|
|
class var y3 init "(y3)" shared
|
|
class var z3 init "(z3)" shared
|
|
endclass
|
|
|
|
create class myclass4 from myclass3, myclass2
|
|
export:
|
|
class var x4 init "(x4)" shared
|
|
class var y4 init "(y4)" shared
|
|
class var z4 init "(z4)" shared
|
|
endclass
|