@@@@@@@@@@ start case1
*** start test_$%#.cl ***
a=private variant a[10]
%0=5, $0=0, #0=0
%()=variant %()[(1),1..5]
$()=variant $()[(1),1..65536]
#()=variant #()[(1),1..0]
$0=2
$(1,2,3)=1, $11=11
*%()="1","2","3","4","5"
$()=variant $()[(1),1..65536]
$0=11
*$()=1,"A",100,,,,,,,,11
*#()=
%()[1]="1"
%()[2]="2"
$()[1]=1
$()[2]="A"
*** end   test_$%#.cl ***
*** start test_10.cl ***
$1-=$1/10=90, "ASDFG"
$1-=$1/10=81, "ASDFG"
$1-=$1/10=73, "ASDFG"
$1-=$1/10=66, "ASDFG"
$1-=$1/10=60, "ASDFG"
$1-=$1/10=54, "ASDFG"
$1-=$1/10=49, "ASDFG"
$1-=$1/10=45, "ASDFG"
$1-=$1/10=41, "ASDFG"
$1-=$1/10=37, "ASDFG"
*** end   test_10.cl ***
*** start test_abs.cl ***
[coal] cl_gx_get_all_var_ent: $abs(abs)͖`łB
abs(-10)=10, $abs=##ERROR##
[coal] cl_gx_func_bexp: ]ȃp[^(nparm=2)܂B
abs(-1,-2)=##ERROR##
[coal] cl_conv_const_n_str: : ȊO̕[ABC]܂(pos=1)B
abs('ABC')=##ERROR##
abs(SYSDATE)=(2023/01/03 14:21:09)
*** end   test_abs.cl ***
*** start test_agg.cl ***
a=private Char(10) a hash(10)
*a=[ABC]="10",[XYZ]="20", *aa=[ABC]=30,[XYZ0]=40
"*a + *aa=", *y=[ABC]=30,[XYZ]="20",[XYZ0]=40
"*a - *aa=", *y=[XYZ]="20"
"*a & *aa=", *y=[ABC]="10"
"*a ^ *aa=", *y=[XYZ]="20",[XYZ0]=40
x=local const x{char(3) Index, char(2) Value}, *x={Index="XYZ",Value="20"}
x=local const x{char(4) Index, int Value}, *x={Index="XYZ0",Value=40}
b=private const variant b[10], *b=[1,,3,4,5,"A","B",{"C",,"E"},8]
c=private const variant c[10], *c=[1,2,,4,5,6,7,8,9,10]
"*b | *c=", y=local variant y[2], *y=[1,,3,4,5,"A","B",{"C",,"E"},8],[1,2,,4,5,6,7,8,9,10]
"*b - *c=", y=local variant y[1], *y=[1,,3,4,5,"A","B",{"C",,"E"},8]
"*b & *c=", y=local variant y[1], *y=
"*b ^ *c=", y=local variant y[2], *y=[1,,3,4,5,"A","B",{"C",,"E"},8],[1,2,,4,5,6,7,8,9,10]
[coal] X͎wł܂B
[coal] z(b)͎wł܂B
[coal] cl_gx_bexp: ZpZ̑1,2Ɍ肪܂B
{1,2,3}+*b=##ERROR##
{1,2,3}+3={1,2,3,3}
[1,2,3]|3=[1,2,3]
3+[1,2,3]=[3,1,2,3]
3|[1,2,3]=[3,[1,2,3]]
{1,2,3,4}-{4,1}={2,3}
{1,2,3,4}-4={1,2,3}
3-{4,1}={3}
{1,2,3,4}&{4,1,5}={1,4}
{1,2,3,4}&4={4}
1&{4,1}=""
{1,2,3,4}^{4,1,5}={2,3,5}
{1,2,3,4}^4={1,2,3}
2^{4,1}={2,{4,1}}
(x1|x2)-(x1&x2)={2,3,5}
''-x1={""}, ''&x1="", ''^x1={"",{1,2,3,4}}
%1-x1=""
a-{1,2}={""}
a-{1,2}=""
f('')=0, f(,)=0
y=local Char(10) a hash(10), *y=[ABC]="10",[XYZ]="20"
y=local Char(10) y hash(10), *y=[ABC]="10",[XYZ]="20"
[coal] DUMP3= pInfo=0022c3b8 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=28 aux=0x01 0x12 auxlen=0000 200d6f60 data=200d7768(VarIndex=00000000 Attr=1 0 0 0 size=10 xhp=200d6170  pInfoType=00000000 index=[0,10,149,1](_xhash Id=HX keylen=0 max=10 pre=7 ha=200dd1e8 next=00000000 datlen=4 dreg=200dd408)) varnam=[a]
a=private Char(10) a hash(10), *a=[ABC]="10",[XYZ]="20", a=#DUMP3#
[coal] DUMP3= pInfo=0022c3b8 id=R attr=5 scale=0x08 dlen=148 len(pScCT)=00000000 hlen(gid)=0 aux=0x00 0x00 auxlen=0000 00000000 data=200dc8dc(VarIndex=200dc970 Attr=7 0 0 0 size=4 xhp=00000000  pInfoType=00000000 index=[1,1,1,1,1,0]) varnam=[(null)]
''-(*a)=variant (null)[1], *(''-(*a))="", ''-(*a)=#DUMP3#
*b=[1,,3,4,5,"A","B",{"C",,"E"},8]
*c=[1,2,,4,5,6,7,8,9,10]
*(*b + *c)=[1,,3,4,5,"A","B",{"C",,"E"},8],[1,2,,4,5,6,7,8,9,10]
*(*b - *c)=[1,,3,4,5,"A","B",{"C",,"E"},8]
*(*b & *c)=
*(*b | *c)=[1,,3,4,5,"A","B",{"C",,"E"},8],[1,2,,4,5,6,7,8,9,10]
*** end   test_agg.cl ***
*** start test_agg1.cl ***
{1,2,3,4}+{4,1,5}={1,2,3,4,4,1,5}
{1,2,3,4}-{4,1,5}={2,3}
{1,2,3,4}&{4,1,5}={1,4}
{1,2,3,4}|{4,1,5}={1,2,3,4,5}
{1,2,3,4}^{4,1,5}={2,3,5}
[1,2,3,4]+{4,1,5}=[1,2,3,4,{4,1,5}]
[1,2,3,4]-{4,1,5}=[1,2,3,4]
[1,2,3,4]&{4,1,5}=""
[1,2,3,4]|{4,1,5}=[1,2,3,4,{4,1,5}]
[1,2,3,4]^{4,1,5}=[1,2,3,4,{4,1,5}]
[1,2,3,4.5,[6,7]]&[4.5,1,5,[6,7]]=[1,4.5,[6,7]]
[1,2,3,4.5,[6,7],abs]|[4.5,1,5,[6,7],ABS]=[1,2,3,4.5,[6,7],"abs()",5,"ABS()"]
*** end   test_agg1.cl ***
*** start test_agg2.cl ***
{'Tokyo','Osaka','Nagoya','Aomori','Fukuoka'}-{'Fukuoka','Osaka'}="Tokyo","Nagoya","Aomori"
cities-visited={"Tokyo" "Nagoya" "Aomori"}
I still need to visit the following cities:<"Tokyo","Nagoya","Aomori">
I still need to visit the following cities: Tokyo Nagoya Aomori
I still need to visit the following cities:<Tokyo,Nagoya,Aomori>
I still need to visit the following cities: Tokyo Nagoya Aomori
cities-visited={const char(5),const char(6),const char(6)}
*(cities-visited)={const char(5),const char(6),const char(6)}
const int, const char(1)
123456.7
*x={Index=0,Value="Tokyo"}
*x={Index=1,Value="Nagoya"}
*x={Index=2,Value="Aomori"}
*x={Index=3,Value="Osaka"}
*x={Index=4,Value="Fukuoka"}
*** end   test_agg2.cl ***
*** start test_agg3.cl ***
{1,2,,3,4}-{4,1}={2,3}
{1,2,3,4}-4={1,2,3}
3-{4,1}={3}
[coal] z(a)͎wł܂B
[coal] cl_gx_bexp: ZpZ̑1,2Ɍ肪܂B
a|b=##ERROR##
*(*a+*b)=1,2,3,4,5,[4,1],[4,1],3,2
*(*a|*b)=1,2,3,4,5,[4,1]
*(*a-*b)=1,4,5
*(*a&*b)=2,3,[4,1]
{1,2,3,4,[5,6]}-{{5,6},4,1}={2,3}
[coal] z(a)͎wł܂B
[coal] f[^ю͎wł܂B
[coal] cl_gx_bexp: ZpZ̑1,2Ɍ肪܂B
*(*a&[2,3])=##ERROR##
[coal] f[^ю͎wł܂B
[coal] z(a)͎wł܂B
[coal] cl_gx_bexp: ZpZ̑1,2Ɍ肪܂B
*([2,3]&*a)=##ERROR##
x+y={"A","B","C","D","E",["A","E"]}
x-y={"A","B","C","D","E"}
*** end   test_agg3.cl ***
*** start test_args.cl ***
$n=5, *$()="1","2","3","4","5"
$(1)=1
$(2)=2
$(3)=3
$(4)=4
$(5)=5
*** end   test_args.cl ***
*** start test_args2.cl ***
$args[0] = 1 2
$args[1] = 3 4
$args[2] = 5 6
*** end   test_args2.cl ***
*** start test_args3.cl ***
$n=6
$i=0, $args[$i]="1"
$i=1, $args[$i]="2"
$i=2, $args[$i]="3"
$i=3, $args[$i]="4"
$i=4, $args[$i]="5"
$i=5, $args[$i]="6"
$i=6, $args[$i]=""
$i=7, $args[$i]=""
$i=8, $args[$i]=""
$i=9, $args[$i]=""
*** end   test_args3.cl ***
@@@@@@@@@@ end case1
