[coal] No     flg grplevel sz_max fl_max option filename  no check grppriority
[coal]  0 0000001 00000001      0      3 000000 debug_log  0     0 00000000
*** 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] Xg͎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]
{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}
{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=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=7 aux=0x01 0x12 auxlen=0000 200af7b8 data=200affc0(VarIndex=00000000 Attr=1 0 0 0 size=10 xhp=200ae9d0  pInfoType=00000000 index=[0,10,149,1](_xhash Id=HX keylen=0 max=10 pre=7 ha=200b8910 next=00000000 datlen=4 dreg=200b8b68)) varnam=[a]
a=private Char(10) a hash(10), *a=[ABC]="10",[XYZ]="20", a=#DUMP3#
[coal] DUMP3= pInfo=0022c508 id=R attr=5 scale=0x08 dlen=148 len(pScCT)=00000000 hlen(gid)=0 aux=0x00 0x00 auxlen=0000 00000000 data=200b7fdc(VarIndex=200b8070 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
*** 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] z(b)͎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 ***
*** start test_array.cl ***
b=global variant b[10] *b=
a=private variant a[(1),3,2,4], b=global variant b[10], *b="AA","BB","CC","DD"
a=private variant a[(1),3,2,4], *a=1000,2000,3000
a[0,0,0]=1000, a[0,0,1]=2000, a[0,0,2]=3000
[coal] _ex_conv_parm_opt: a[]̃f[^ݒłB
[coal] _ex_conv_parm_opt: a[]̃f[^ݒłB
a[0,0,0]=1000, a[1,0,0]=##ERROR##, a[2,0,0]=##ERROR##
[coal] _ex_conv_parm_opt: a[]̃f[^ݒłB
[coal] cl_gx_conv_index:[a]̃CfbNX͈͊OłBi=2 index=2 (def=0..1)
a[0,0,0]=1000, a[0,1,0]=##ERROR##, a[0,2,0]=##ERROR##
$i=0, $j=0, $a[$i,$j]=0
$i=0, $j=1, $a[$i,$j]=1
$i=1, $j=0, $a[$i,$j]=1
$i=1, $j=1, $a[$i,$j]=2
$i=2, $j=0, $a[$i,$j]=2
$i=2, $j=1, $a[$i,$j]=3
arraymap(b,2)=variant b[8]
*** end   test_array.cl ***
*** start test_array_global.cl ***
ab=global variant ab[2,3,4], xx=global variant xx[10]
$ab[0,0,0]=1
[coal] cl_pr_ex_def_array_engine:(W)ϐ[ab]ւ̃f[^𖳎܂B
[coal] cl_pr_ex_def_scalar_attr_info:(W)ϐ[gw]ւ̃f[^𖳎܂B
$ab[0,0,0]=1
$ab[0,0,0]=1, $xx[1]=10
gw="AA"
*** end   test_array_global.cl ***
*** start test_array_global1.cl ***
$ab[0,0,0]=100
*** end   test_array_global1.cl ***
*** start test_array_int.cl ***
$a[1]=11, $a[$a[0]]=11
$a[1]=11, $d[2]=2.5, $c[3]="ABCD", $c[4]="XYZ0"
$c[3]="ABCD"
$dec[0]=4.0, $dec[1]=0.55, $dec[0]*$dec[1]=2.2, ++$dec[0]=5.0, $dec[0]=5.0, $dec[2]=4.0
*** end   test_array_int.cl ***
*** start test_array_int2.cl ***
i=10000
*** end   test_array_int2.cl ***
*** start test_array_map.cl ***
%()=variant %()[(1),1..10], %a=private variant %a[(1),10]
$a=private variant a[(1),10], $b=private variant b[(2),10]
*%()="1","2","3","4","5","6","7","8","9","10", *%a="1","2","3","4","5","6","7","8","9","10"
*$a="A","B","C","D","E", *$b="B","C","D","E"
%()[1]="1"
(%a)[0]="1"
(a[2])[0]="1", a[2]=variant %a[(1),10]
%()=variant %()[(1),1..10], $()=variant $()[(1),1..65536], #()=variant #()[(1),1..0]
$0=11, $a[0]=1
[coal] _ex_conv_parm_opt: 萔(%a[])ւ̑͂ł܂B
%a[0] = 'C'=##ERROR##
[coal] cl_gx_conv_index:[%a]̃CfbNX͈͊OłBi=1 index=10 (def=0..9)
%0=10, %a[0]="1", %a[10]=##ERROR##
[coal] _ex_conv_parm_opt: #a[]̃f[^ݒłB
#0=0, #a[0]=##ERROR##
*x={Index=0,Value="1"}
*x={Index=1,Value="2"}
*x={Index=2,Value="3"}
*x={Index=3,Value="4"}
*x={Index=4,Value="5"}
*x={Index=5,Value="6"}
*x={Index=6,Value="7"}
*x={Index=7,Value="8"}
*x={Index=8,Value="9"}
*x={Index=9,Value="10"}
*x={Index=0,Value="1"}
*x={Index=1,Value="2"}
*x={Index=2,Value="3"}
*x={Index=3,Value="4"}
*x={Index=4,Value="5"}
*x={Index=5,Value="6"}
*x={Index=6,Value="7"}
*x={Index=7,Value="8"}
*x={Index=8,Value="9"}
*x={Index=9,Value="10"}
*%a="1","2","3","4","5","6","7","8","9","10"
*(%())="1","2","3","4","5","6","7","8","9","10"
*x={Index=0,Value=1}
*x={Index=1,Value="B"}
*x={Index=2,Value=*("1","2","3","4","5","6","7","8","9","10")}
*x={Index=3,Value="D"}
*x={Index=4,Value="E"}
*x={Index=0,Value=1}
*x={Index=1,Value="B"}
*x={Index=2,Value=*("1","2","3","4","5","6","7","8","9","10")}
*x={Index=3,Value="D"}
*x={Index=4,Value="E"}
*$a=1,"B",*("1","2","3","4","5","6","7","8","9","10"),"D","E",,,,,
%()[1]="1"
%()=variant %()[(1),1..10], $()=variant $()[(1),1..65536], #()=variant #()[(1),1..1]
y=local variant y[16]
*y="1","2","3","4","5","6","7","8","9","10",1,"B",*(,,,,,,,,,),"D","E",11
*** end   test_array_map.cl ***
*** start test_array_name.cl ***
a[4]=5.0
$($x)[0]=100.0
*a=100.0,2.0,3.0,4.0,5.0
*** end   test_array_name.cl ***
*** start test_array_name1.cl ***
$item=2, $$item=0
$$item="XXX", $$tbl[0]="XXX"
*** end   test_array_name1.cl ***
*** start test_array1.cl ***
[coal] DUMP1= pInfo=0022c508 id=A attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=106 aux=0x07 0x12 auxlen=0000 200d8b70 data=200b0378(VarIndex=200b01b8 Attr=7 0 0 0 size=4 xhp=00000000  pInfoType=00000000 index=[1,10,6,2,10,0]) varnam=[%parm]
[coal] DUMP2= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=106 aux=0x07 0x12 auxlen=0000 200d8b90 data=200b90f0(VarIndex=200b0410 Attr=7 0 0 0 size=4 xhp=00000000  pInfoType=00000000 index=[1,10,0,1,10,0]) varnam=[ha]
%parm=#DUMP1#, ha=#DUMP2#
*%parm="B","C","D","E","F","G", *ha=
countv(%parm)=6, m=countv(%parm,1)=6
%parm[i]="B"
%parm[i]="C"
%parm[i]="D"
%parm[i]="E"
%parm[i]="F"
%parm[i]="G"
$$i="B"
$$i="C"
$$i="D"
$$i="E"
$$i="F"
$$i="G"
*$()="B","C","D","E","F","G"
*** end   test_array1.cl ***
*** start test_array2.cl ***
$a[0]=111, $a[1]=223, $DATE="20220119", DATETIME="2022/01/19 09:48:35", $1="XXX"
[coal] cl_gx_get_all_var_ent: $xyz(xyz)͖`łB
$xyz=##ERROR##
*** end   test_array2.cl ***
*** start test_array3.cl ***
a=private variant a[(2),3,3]
$()=variant $()[(1),1..65536]
$i=0, $j=0, $a[$i,$j]=0
$i=1, $j=1, $a[$i,$j]=2
*a=0,,,,2, countv(a)=2, countv(a,OPT==>1)=5
*$()=,0,,,,2, countv($())=2, countv($(),OPT==>1)=6
a[0]=0
*a=0,,,,2,,"A", countv(a)=3, countv(a,OPT==>1)=7
*$()=,0,,,,2,,"A", countv($())=3, countv($(),OPT==>1)=8
*** end   test_array3.cl ***
*** start test_array4.cl ***
$a[0]=111, $a[1]=223, a=private variant a[10,8,6,4,2]
$i=0, $j=0, $b[$i,$j]=0
$i=0, $j=1, $b[$i,$j]=1
$i=1, $j=0, $b[$i,$j]=1
$i=1, $j=1, $b[$i,$j]=2
$i=2, $j=0, $b[$i,$j]=2
$i=2, $j=1, $b[$i,$j]=3
*** end   test_array4.cl ***
*** start test_array5.cl ***
*a=5
$b="20"
[coal] _ex_conv_parm_opt: a[]̃f[^ݒłB
$a[1]=2, $a=private variant a[10], $b="20", a[3]=##ERROR##
x[0]={1,2,3,4,5}, x[1]={10,{11,12},13}
*** end   test_array5.cl ***
*** start test_array6.cl ***
[coal] cl_gx_ex_obj_sub: [$$a]indexw肪܂B
$a=private variant a[10], $a[1]=101, $$a=##ERROR##, $$a[1]=2000
$$a[1]=2000
[coal] cl_gx_ex_obj_sub: [$$a]indexw肪܂B
$$a=##ERROR##, $="$()"
$$="$$()"
[coal] cl_gx_func: [$$a]͊֐ł͂܂B
$$a(1)=##ERROR##
*** end   test_array6.cl ***
*** start test_array7.cl ***
%11=
%a[0]=
[coal] _ex_conv_parm_opt: #a[]̃f[^ݒłB
#a[0]=##ERROR##
[coal] włȂz(%a)łB
setarray(%a,0,1,2)=##ERROR##
[coal] włȂz(#a)łB
setarray(#a,0,1,2)=##ERROR##
setarray($a,0,1,2)=2
setarray(ah,,'ABC',11,'XYZ',22,,33,'OPQ',44)=3
x.Index="ABC", x.Value=11
x.Index="XYZ", x.Value=22
x.Index="OPQ", x.Value=44
*** end   test_array7.cl ***
*** start test_array8.cl ***
A
X
X
*** end   test_array8.cl ***
*** start test_array9.cl ***
a=local variant gaa[10]
$g[0]=1, $g[1]=2
$g[0]=1, $g[1]=2
$g=global variant gaa[10]
gam=global variant gaa[8]
gm=global variant gaa[8]
$ga[0]=10, $ga[1]=20
[coal] cl_gx_get_all_var_ent: $ga(ga)͖`łB
[coal] cl_gx_get_all_var_ent: $ga(ga)͖`łB
$ga[0]=##ERROR##, $ga[1]=##ERROR##
[coal] cl_gx_get_all_var_ent: $ga(ga)͖`łB
$ga=##ERROR##
*** end   test_array9.cl ***
*** skip  #test_array9sub.cl ***
*** start test_array10.cl ***
a=2, b=local variant b[10], x=private variant x[10]
*b=100,200,["A","B"],300
*x=[1,2,[3,4],5,6,7,8,9,10,11]
[coal] cl_pr_ex_def_array_engine: [x]͔zł͂܂B
[coal] clerrdisp:rc=-11001(ffffd507) at script=[test_array10.cl] line=25
[coal]  ---> [LET array x]
*** end   test_array10.cl ***
*** start test_array11.cl ***
bb=private variant bb[5,3]
x0=local z:x0{Int a, variant b}
aa[0]=z:x0{Int a, z:y0{Int a, variant b}}
aa[0].b=z:y0{Int a, variant b}
aa[0].b.a=100
*aa=*({a=0,b=*({a=100,b=**no data**})}),*({a=200,b="XXX"}),*({a=200,b="XXX"})
y0.a=200
*** end   test_array11.cl ***
*** start test_array12.cl ***
aa=private variant aa[2,3,4]
%am=private variant %am[(5),10], *%am="5","6","7","8","9","10","11","12","13","14"
bb[0,3,0]=21
a=local variant aa[14], *a=11,12,13,14,15,16,17,18,19,20,21,22,23,24
a=local variant %am[(8),7], *a=,,,,,,
aam=local variant aa[4], *aam=21,22,23,24
bbm[-1,1,0]=21
[coal] DUMP2= pInfo=0022c508 id=R attr=5 scale=0x00 dlen=148 len(pScCT)=00000000 hlen(gid)=158 aux=0x00 0x11 auxlen=0000 2008e690 data=200ae910(VarIndex=200b04a0 Attr=7 0 0 0 size=4 xhp=00000000  pInfoType=00000000 index=[3,24,4,21,1,1,4,-1,1,0]) varnam=[bb]
bbm=local variant bb[-1..-1,1..1,4], bbm=#DUMP2#
*bbm=21,22,23,24
a=10, b=2, IP_SHIGYO=13.46
*** end   test_array12.cl ***
*** start test_array13.cl ***
countv(x)=1
[coal] _ex_conv_parm_opt: aa[]̃f[^ݒłB
aa[0]=##ERROR##
countv(aa)=0
aa[0]=3
countv(aa)=1
[coal] _ex_conv_parm_opt: f[^ݒłB
hh['A']=##ERROR##
countv(hh)=0
hh['A']=2
countv(hh)=1
aa[0]=4
hh['A']=3
aa[0]=5
hh['A']=4
aa[0]=14
$$1=10
$aa[0]=1, $$aa[0]=2
*** end   test_array13.cl ***
*** start test_array14.cl ***
aa=private variant aa[10], *aa=1,2,3,4,5,6,7,8,9,10
aa[1]=2
%am=private variant %am[(2),1..10], *%am="2","3","4","5","6","7","8","9","10","11"
%am[1]="2"
bb=private variant bb[-2..2], *bb=11,12,13,14,15
bb[0]=13
aa=private variant aa[10], *aa=
*** end   test_array14.cl ***
*** start test_array15.cl ***
aa=private variant aa[(2),15], *aa=1,2,3,4,5, ax=private variant ax[3,5]
$()=variant $()[(1),1..65536], *$()=100,1,2,3,4,5,200
aa=private variant aa[(2),15], *aa=1,2,3,4,5,200
*$()=100,1,2,3,4,5,"X","Y","Z"
%parm=private variant %parm[(1),5], *%parm="1","2","3","4","5"
*** end   test_array15.cl ***
*** start test_array16.cl ***
b=local variant a[10]
*a=1,2,3,4,5,6,7, *b=1,2,3,4,5,6, b[6]=7
x=private variant x[5], *x=
*x=1
*(a+1)=2,3,4,5,6,7
%()[3]="3"
*** end   test_array16.cl ***
*** start test_array17.cl ***
%()=variant %()[(1),1..3], *%()="1","2","3"
$()=variant $()[(1),1..65536], *$()="A","B","C"
$i=1, $(i)="A", %$i="1", %(i)="1"
$i=2, $(i)="B", %$i="2", %(i)="2"
$i=3, $(i)="C", %$i="3", %(i)="3"
%()[2]="2"
*** end   test_array17.cl ***
*** start test_arraybxp.cl ***
*x={Index=0,Value=1}
*x={Index=1,Value=2}
*x={Index=2,Value=3}
*x={Index=3,Value=4}
*x={Index=4,Value=5}
*x={Index=5,Value="AB"}
*x={Index=6,Value="BC"}
*x={Index=7,Value="CD"}
*x={Index=8,Value="DE"}
*x={Index=9,Value="EF"}
*x={Index=0,Value=1}
*x={Index=1,Value=2}
*x={Index=2,Value=3}
*x={Index=3,Value=4}
*x={Index=4,Value=5}
*x={Index=5,Value=6}
*x={Index=6,Value=7}
*x={Index=7,Value=8}
*x={Index=8,Value=9}
*x={Index=9,Value=10}
arraybxp(b,0,b,0,c,0,5,'+')=5
[coal] ֐(abs)͎wł܂B
arraybxp(abs,0,b,0,c,0,5,'+')=##ERROR##
[coal] ֐(abs)͎wł܂B
arraybxp(b,0,abs,0,c,0,5,'+')=##ERROR##
[coal] ֐(abs)͎wł܂B
arraybxp(b,0,b,0,abs,0,5,'+')=##ERROR##
*x={Index=0,Value=2}
*x={Index=1,Value=4}
*x={Index=2,Value=6}
*x={Index=3,Value=8}
*x={Index=4,Value=10}
*x={Index=5,Value="AB"}
*x={Index=6,Value="BC"}
*x={Index=7,Value="CD"}
*x={Index=8,Value="DE"}
*x={Index=9,Value="EF"}
*(*b + *c)=2,4,6,8,10,"AB","BC","CD","DE","EF",1,2,3,4,5,6,7,8,9,10
*(*b - *c)="AB","BC","CD","DE","EF"
*(*b & *c)=2,4,6,8,10
*(*b | *c)=2,4,6,8,10,"AB","BC","CD","DE","EF",1,3,5,7,9
*** end   test_arraybxp.cl ***
*** start test_arrayclr.cl ***
x.Index=0, x.Value=1
x.Index=1, x.Value=2
x.Index=2, x.Value=3
x.Index=3, x.Value=4
x.Index=4, x.Value=5
x.Index=5, x.Value="A"
x.Index=6, x.Value="B"
x.Index=7, x.Value="C"
x.Index=8, x.Value="D"
x.Index=9, x.Value="E"
x.Index=0, x.Value=1
x.Index=1, x.Value=2
x.Index=2, x.Value=3
x.Index=3, x.Value=4
x.Index=4, x.Value=5
x.Index=5, x.Value=6
x.Index=6, x.Value=7
x.Index=7, x.Value=8
x.Index=8, x.Value=9
x.Index=9, x.Value=10
arrayclr(b,0,'',5)=5
arrayclr(c)=10
x.Index=0, x.Value=""
x.Index=1, x.Value=""
x.Index=2, x.Value=""
x.Index=3, x.Value=""
x.Index=4, x.Value=""
x.Index=5, x.Value="A"
x.Index=6, x.Value="B"
x.Index=7, x.Value="C"
x.Index=8, x.Value="D"
x.Index=9, x.Value="E"
[coal] ֐(abs)͎wł܂B
arrayclr(abs,-1,'',5)=##ERROR##
*** end   test_arrayclr.cl ***
*** start test_arraycmp.cl ***
arraycmp(b,0,c,0,5,'EQ')=5
[coal] cl_conv_const_n_str: : ȊO̕[AB]܂(pos=1)B
[coal] cl_conv_const_n_str: : ȊO̕[BC]܂(pos=1)B
[coal] cl_conv_const_n_str: : ȊO̕[CD]܂(pos=1)B
[coal] cl_conv_const_n_str: : ȊO̕[DE]܂(pos=1)B
[coal] cl_conv_const_n_str: : ȊO̕[EF]܂(pos=1)B
arraycmp(b,0,c,0)=5
arraycmp(b,5,a,0,,'like')=5
*c==*d=10
arraycmp(wb,0,wc,0,5,'EQ')=5
[coal] cl_conv_const_n_str: : ȊO̕[AB]܂(pos=1)B
arraycmp(wb,0,wc,0)=5
arraycmp(wb,5,wa,0,,'like')=5
wc==wd=10
arraycmp(xb,0,xc,0,5,'EQ')=5
[coal] cl_conv_const_n_str: : ȊO̕[AB]܂(pos=1)B
arraycmp(xb,0,xc,0)=5
arraycmp(xb,5,xa,0,,'like')=5
xc==xd=10
*** end   test_arraycmp.cl ***
*** start test_arraycpy.cl ***
*x={Index=0,Value=1}
*x={Index=1,Value=2}
*x={Index=2,Value=3}
*x={Index=3,Value=4}
"each x in a", *a=[A]="aaa",[B]={"bbb",123}
*x={Index="A",Value="aaa"}
*x={Index="B",Value={"bbb",123}}
"each x in b", *b=1,2,3,4,5,"A","B","C","D","E"
*x={Index=0,Value=1}
*x={Index=1,Value=2}
*x={Index=2,Value=3}
*x={Index=3,Value=4}
*x={Index=4,Value=5}
*x={Index=5,Value="A"}
*x={Index=6,Value="B"}
*x={Index=7,Value="C"}
*x={Index=8,Value="D"}
*x={Index=9,Value="E"}
"each x in c", *c=1,2,3,4,5,6,7,8,9,10
*x={Index=0,Value=1}
*x={Index=1,Value=2}
*x={Index=2,Value=3}
*x={Index=3,Value=4}
*x={Index=4,Value=5}
*x={Index=5,Value=6}
*x={Index=6,Value=7}
*x={Index=7,Value=8}
*x={Index=8,Value=9}
*x={Index=9,Value=10}
arraycpy($m,0,b,1,4)=4
[coal] włȂz(%p)łB
arraycpy(%p,0,b,1,4)=##ERROR##
[coal] włȂz(#s)łB
arraycpy(#s,0,b,1,4)=##ERROR##
[coal] _array_cpy: array_from Azzł͂܂B
arraycpy(a,0,b,1,4)=##ERROR##
[coal] _array_cpy: array_from Azzł͂܂B
arraycpy(a,0,b,2,5)=##ERROR##
[coal] _array_cpy: array_to Azzł͂܂B
arraycpy(b,0,a,1,4)=##ERROR##
arraycpy(b,1,c,2,10)=8
arraycpy(aa,,a,,1)=1
[coal] ֐(abs)͎wł܂B
arraycpy(abs,,a,,1)=##ERROR##
[coal] ֐(abs)͎wł܂B
arraycpy(aa,,abs,,1)=##ERROR##
"each x in a", *a=[A]="bbb",[B]={"bbb",123}
*x={Index="A",Value="bbb"}
*x={Index="B",Value={"bbb",123}}
"each x in b", *b=1,3,4,5,6,7,8,9,10,"E"
*x={Index=0,Value=1}
*x={Index=1,Value=3}
*x={Index=2,Value=4}
*x={Index=3,Value=5}
*x={Index=4,Value=6}
*x={Index=5,Value=7}
*x={Index=6,Value=8}
*x={Index=7,Value=9}
*x={Index=8,Value=10}
*x={Index=9,Value="E"}
"each x in aa", *aa=[A]="aaa"
*x={Index="A",Value="aaa"}
arraycmp(aa,,a)=2
arraybxp(a3,,aa,,a,,,'&+')=3
"each x in a3", *a3=[A]="aaabbb",[KA]="aaaaaa",[KB]="123123"
*x={Index="A",Value="aaabbb"}
*x={Index="KA",Value="aaaaaa"}
*x={Index="KB",Value="123123"}
arraybxp(d,0,b,0,c,0,5,'+')=5
"each x in d", *d=2,5,7,9,11
*x={Index=0,Value=2}
*x={Index=1,Value=5}
*x={Index=2,Value=7}
*x={Index=3,Value=9}
*x={Index=4,Value=11}
arraycpy(c,1,c,0)=9
"each x in c", *c=0,0,0,0,0,0,0,0,0,0
*x={Index=0,Value=0}
*x={Index=1,Value=0}
*x={Index=2,Value=0}
*x={Index=3,Value=0}
*x={Index=4,Value=0}
*x={Index=5,Value=0}
*x={Index=6,Value=0}
*x={Index=7,Value=0}
*x={Index=8,Value=0}
*x={Index=9,Value=0}
arraycpy(z=1,0,b,1,4)=4
*$()=3,4,5,6,,,,,,,2,3,4,5
*** end   test_arraycpy.cl ***
*** start test_arraycpy1.cl ***
arraycpy(1,0,a)=10
*x={Index=0,Value=4}
*x={Index=1,Value=2}
*x={Index=2,Value=1}
*x={Index=3,Value=5}
*x={Index=4,Value=3}
*x={Index=5,Value="E"}
*x={Index=6,Value="D"}
*x={Index=7,Value="A"}
*x={Index=8,Value="C"}
*x={Index=9,Value="B"}
m=private variant m[(2),10], *m=2,1,5,3,"E","D","A","C","B"
countv(m)=9
x=private variant x[(21),10], *x=1,2,3,4,5,"A","B","C","D","E"
*** end   test_arraycpy1.cl ***
*** start test_asc.cl ***
" ", asc(' ')=32
x.value="A", asc(x.value)=65
x.value="B", asc(x.value)=66
x.value="C", asc(x.value)=67
x.value="D", asc(x.value)=68
x.value="E", asc(x.value)=69
x.value="F", asc(x.value)=70
x.value="G", asc(x.value)=71
x.value="H", asc(x.value)=72
x.value="I", asc(x.value)=73
x.value="J", asc(x.value)=74
x.value="K", asc(x.value)=75
x.value="L", asc(x.value)=76
x.value="M", asc(x.value)=77
x.value="N", asc(x.value)=78
x.value="O", asc(x.value)=79
x.value="P", asc(x.value)=80
x.value="Q", asc(x.value)=81
x.value="R", asc(x.value)=82
x.value="S", asc(x.value)=83
x.value="T", asc(x.value)=84
x.value="U", asc(x.value)=85
x.value="V", asc(x.value)=86
x.value="W", asc(x.value)=87
x.value="X", asc(x.value)=88
x.value="Y", asc(x.value)=89
x.value="Z", asc(x.value)=90
000, "not ascii"
001, "not ascii"
002, "not ascii"
003, "not ascii"
004, "not ascii"
005, "not ascii"
006, "not ascii"
007, "not ascii"
008, "not ascii"
009, "not ascii"
010, "not ascii"
011, "not ascii"
012, "not ascii"
013, "not ascii"
014, "not ascii"
015, "not ascii"
016, "not ascii"
017, "not ascii"
018, "not ascii"
019, "not ascii"
020, "not ascii"
021, "not ascii"
022, "not ascii"
023, "not ascii"
024, "not ascii"
025, "not ascii"
026, "not ascii"
027, "not ascii"
028, "not ascii"
029, "not ascii"
030, "not ascii"
031, "not ascii"
032, " "
033, "!"
034, """
035, "#"
036, "$"
037, "%"
038, "&"
039, "'"
040, "("
041, ")"
042, "*"
043, "+"
044, ","
045, "-"
046, "."
047, "/"
048, "0"
049, "1"
050, "2"
051, "3"
052, "4"
053, "5"
054, "6"
055, "7"
056, "8"
057, "9"
058, ":"
059, ";"
060, "<"
061, "="
062, ">"
063, "?"
064, "@"
065, "A"
066, "B"
067, "C"
068, "D"
069, "E"
070, "F"
071, "G"
072, "H"
073, "I"
074, "J"
075, "K"
076, "L"
077, "M"
078, "N"
079, "O"
080, "P"
081, "Q"
082, "R"
083, "S"
084, "T"
085, "U"
086, "V"
087, "W"
088, "X"
089, "Y"
090, "Z"
091, "["
092, "\"
093, "]"
094, "^"
095, "_"
096, "`"
097, "a"
098, "b"
099, "c"
100, "d"
101, "e"
102, "f"
103, "g"
104, "h"
105, "i"
106, "j"
107, "k"
108, "l"
109, "m"
110, "n"
111, "o"
112, "p"
113, "q"
114, "r"
115, "s"
116, "t"
117, "u"
118, "v"
119, "w"
120, "x"
121, "y"
122, "z"
123, "{"
124, "|"
125, "}"
126, "~"
127, "not ascii"
128, "not ascii"
129, "not ascii"
130, "not ascii"
131, "not ascii"
132, "not ascii"
133, "not ascii"
134, "not ascii"
135, "not ascii"
136, "not ascii"
137, "not ascii"
138, "not ascii"
139, "not ascii"
140, "not ascii"
141, "not ascii"
142, "not ascii"
143, "not ascii"
144, "not ascii"
145, "not ascii"
146, "not ascii"
147, "not ascii"
148, "not ascii"
149, "not ascii"
150, "not ascii"
151, "not ascii"
152, "not ascii"
153, "not ascii"
154, "not ascii"
155, "not ascii"
156, "not ascii"
157, "not ascii"
158, "not ascii"
159, "not ascii"
160, "not ascii"
161, "not ascii"
162, "not ascii"
163, "not ascii"
164, "not ascii"
165, "not ascii"
166, "not ascii"
167, "not ascii"
168, "not ascii"
169, "not ascii"
170, "not ascii"
171, "not ascii"
172, "not ascii"
173, "not ascii"
174, "not ascii"
175, "not ascii"
176, "not ascii"
177, "not ascii"
178, "not ascii"
179, "not ascii"
180, "not ascii"
181, "not ascii"
182, "not ascii"
183, "not ascii"
184, "not ascii"
185, "not ascii"
186, "not ascii"
187, "not ascii"
188, "not ascii"
189, "not ascii"
190, "not ascii"
191, "not ascii"
192, "not ascii"
193, "not ascii"
194, "not ascii"
195, "not ascii"
196, "not ascii"
197, "not ascii"
198, "not ascii"
199, "not ascii"
200, "not ascii"
201, "not ascii"
202, "not ascii"
203, "not ascii"
204, "not ascii"
205, "not ascii"
206, "not ascii"
207, "not ascii"
208, "not ascii"
209, "not ascii"
210, "not ascii"
211, "not ascii"
212, "not ascii"
213, "not ascii"
214, "not ascii"
215, "not ascii"
216, "not ascii"
217, "not ascii"
218, "not ascii"
219, "not ascii"
220, "not ascii"
221, "not ascii"
222, "not ascii"
223, "not ascii"
224, "not ascii"
225, "not ascii"
226, "not ascii"
227, "not ascii"
228, "not ascii"
229, "not ascii"
230, "not ascii"
231, "not ascii"
232, "not ascii"
233, "not ascii"
234, "not ascii"
235, "not ascii"
236, "not ascii"
237, "not ascii"
238, "not ascii"
239, "not ascii"
240, "not ascii"
241, "not ascii"
242, "not ascii"
243, "not ascii"
244, "not ascii"
245, "not ascii"
246, "not ascii"
247, "not ascii"
248, "not ascii"
249, "not ascii"
250, "not ascii"
251, "not ascii"
252, "not ascii"
253, "not ascii"
254, "not ascii"
255, "not ascii"
*** end   test_asc.cl ***
*** start test_bexp.cl ***
$1=1
$2=3, $1+$2=4
$x="abcd11"
$1=2, $2=3
$1=12
$1="12wxy"
$1=3.162277660168379
*$()=2,12,3,17,3, *$()=variant $()[(1),1..65536]
XYZ12345
$1="56ABC"
*** end   test_bexp.cl ***
*** start test_bexp_func.cl ***
x=1
x=5
x=12345
x=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2011c568     0 31 32 33 34 35 31 30 33                         12345103
2011c578     8 (DATA END)

x=**BULK**
x="12345     "
x=(1970/01/01 00:00:00)
x=(2021/05/18 00:00:00)
x=22
x=(2022/11/19 09:48:35)
x=(2022/01/31 00:00:00)
x=(2022/01/10 09:48:35)
x=12345
x=0
x=0
x=0
x=0
x="3"
x="10"
x=12345
x=5
x=5
x=5
x="12345"
x="''12345''"
x=""
x=""
x=""
x=""
x="12345103"
x="12345103"
x="12345103"
x=1, *$()=,,,,,,,,,"12345","",""
x=-1, *$()=,,,,,,,,,12345,"",0,0,0,0
x=1, *$()=,,,,,,,,,"12345","",0,0,0,0
x=0
x=0
x=12
x=12
x=12
x=12
x=12
x="2345"
x="12345123451234512345123451234512345123451234512345"
x="12345"
x="12345"
x="12345"
x="12345"
x="1234533333"
x="3333312345"
x="1234533333"
x="3333312345"
x="9
"
x=49
x=49
x="12345"
x="12345"
x=""
x="12345"
x=1, *$()=21,1,,,,,,,,"12345","",0,0,0,0
x="12355"
x="12348"
x="12345"
x="zzzzzzzzzzzzzzz"
12345103
x=9
x="zzzzzzzzzz"
   103x=7
         x=10
x=0
x=0
x=7, *$()=1,2228241,0,0,3,0,"print_log",,,"12345","",0,0,0,0
x=2
x=1
a
x=0
x=1638
x=0
x=0
x=0
x=0
x="987"
x=1.31
x=12345
999
x=0
x="12345"
x="12345"
x="12345"
x=0
x=""
x="10"
x=537970792
x=0
x=948185, *$()=127470,2320,51,3704,814640,0,"print_log",,,"12345","",0,0,0,0
"12345", "10", "3"
x=0
"12345", "10", "3"
x=0
12345 10 3
x=0
12345 10 3
x=0
12345x=5
x=127470
x=1
x="abs()"
x=3, *$()="3",12,13,3704,814640,0,"print_log",,,"12345","",0,0,0,0
x=20, *$()="3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3"
x=10, *$()="3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3"
x=10
x=10, *$()="3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3",6,6,6,6,6,6,6,6,6,6
x=local variant ar[7]
x=3, *$()="3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3","3",6,6,6,6,6,6,6,6,6,6,"X","Y","Z"
x=2, *st={a1=10,a2="3"}
x=3
x={"10","3"}
x={"12345","10","3"}
xx={"12345","10","3"}
x="12345"
x={"3"}
x={"12345","10","3"}
x="10"
x=4
x=3
x=12345
a="10", b="3"
x="Instance as CLSABC"
33333333333333333333x=1
x=0
x=111.1080555135405
x=-0.9937716364556811
x=0.1114357867841272
x=-8.917885942518717
x=1.570715322339828
x=9.42100640177928
x=9.42100640177928
x=4.091491094267951
x=0.0
x=82207405646327460000000000000000000000000
[coal] func_math: RAND1 𖳎܂B
x=0.3964647737602753
x=0.0000000000000000000
[coal] func_math: DRAND48 𖳎܂B
x=0.2253285127962989
x=0.0000000000000000000
x=23.11161874980726
x=0.0
x=0.0
x=1
x=-0.0
x=12345
x=12345
x=12345
x="12345"
x="12345"
x="12345"
x=12345
x=12345
x=12345
x=12345
x=12345
x=12345
x=12345
x=12345
x=12345.000
x=12345.000
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20123aa0     0 31 32 33 34 35                                  12345
20123ab0     5 (DATA END)

x=**BULK**
x=(2021/05/10 00:00:00)
x="12345"
x="12345"
x="12345"
x="103"
x="103"
x=0
x=0
x=4
x=3
x=3
x=2
x=0
[coal] unlink([12345]) errno=2 No such file or directory
x=-1
fp=537003016
x="aa"
x=0
fp=538069616
x="."
x=0
x=5, *$()=5,-789786384,79202,33188,1,1006,513,0,12,1617369772,685268200,1642553315,895722300,1642553315,895722300,65536,1,"3","3","3",6,6,6,6,6,6,6,6,6,6,"X","Y","Z",,,,,,,,"3","3","3"
x=5
x=5, *$()=5,-789786384,79202,33188,1,1006,513,0,12,1617369772,685268200,1642553315,895722300,1642553315,895722300,65536,1,"3","3","3",6,6,6,6,6,6,6,6,6,6,"X","Y","Z",,,,,,,,"3","3","3"
x=0
ERRMSG="unlink([12345]) errno=2 No such file or directory"
*** end   test_bexp_func.cl ***
*** start test_bexp2.cl ***
1234, -456
*** end   test_bexp2.cl ***
*** start test_break.cl ***
"loop1", $i=0
"loop2", $i=0
"loop2", $i=1
"break"
"loop1", $i=1
"loop2", $i=1
"break"
"loop1", $i=1
"loop2", $i=1
"break"
*** end   test_break.cl ***
*** start test_break2.cl ***
"loop1 $i=", $i=0
"loop2 $i=", $i=0
"loop2 $i=", $i=1
"break 2"
"loop1 $i=", $i=1
"loop2 $i=", $i=1
"break 2"
"loop1 $i=", $i=1
"loop2 $i=", $i=1
"break 2"
*** end   test_break2.cl ***
*** start test_break3.cl ***
"loop1", $i=0
"case 0"
"loop2", $i=0
"loop2", $i=1
"break 2"
"loop1", $i=1
"case 0"
"loop2", $i=1
"break 2"
"loop1", $i=1
"case 0"
"loop2", $i=1
"break 2"
*** end   test_break3.cl ***
*** start test_cast.cl ***
(CCHAR)1="1", (CBIN)'2'=2, (CDOUBLE)3=3, (char)4.5="4.5", (cstring)4.5="4.5"
((FUNC)'ABS')(-10)=10
ff('ABS')(-10)=10
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200d5178     0 00 00 00 01                                     ....
200d5188     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200d5828     0 49 96 02 d2                                     I...
200d5838     4 (DATA END)

(CBULK)1=**BULK**, (CBULK)1234567890=**BULK**
(CCHAR)ABS(1-2)="1"
(CCHAR)MAX(1,2)="2"
(CCHAR)LENG(1)="4"
[coal] cl_gx_func: [XXX]͊֐ł͂܂B
(CCHAR)XXX(1-2)=##ERROR##
[coal] cl_gx_compile: [FUNC]͗\łB
(CCHAR)+(FUNC)=##ERROR##
(CINT)'1'+2=3
(CINT)'1'=1
(CUINT)'-1'=4294967295
(CCHAR)(CBULK)1="00000001"
(CINTE)'1'=1
'A' & (CCHAR)12="A12"
(CDEC)'12.345'=12.345
x=12.35
(CCHAR(10))'123456789012345'="1234567890"
(CINT(8))'1'=1
(CDOUBLE(8))3=3
(CDBL(8))3.5=3.5
(CFLOAT)3.14=3.14
(CFLT)0.456=0.456
(CDEC(10,2))'12.345'=12.35
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200d5228     0 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 1234567890123456
200d5238    16 37 38 39 30                                     7890
200d5248    20 (DATA END)

(CBULK(20))'1234567890123456789012345'=**BULK**
[coal] cl_gx_mk_cast: A܂́AxAʎ̎w萔(0)słB
(CCHAR())'1'=##ERROR##
[coal] cl_get_def_attr_check: : ȊO̕[A]܂(pos=1)B
[coal] cl_get_def_attr_check: TCY(A)Ă܂Brc=1
(CCHAR('A'))'1'=##ERROR##
[coal] cl_get_def_attr_check: TCY(0)Ă܂B
(CCHAR(0))'1'=##ERROR##
[coal] cl_get_def_attr_check: TCY(-1)Ă܂B
(CCHAR(-1))'1'=##ERROR##
[coal] cl_get_def_attr_check: x(0)Ă܂B
(CDEC(,2))'12.345'=##ERROR##
(CDEC(10,))'12.345'=12
[coal] cl_get_def_attr_check: : ȊO̕[A]܂(pos=1)B
[coal] cl_get_def_attr_check: x(A)Ă܂Brc=1
(CDEC('A',2))'12.345'=##ERROR##
[coal] cl_get_def_attr_check: : ȊO̕[A]܂(pos=1)B
[coal] cl_get_def_attr_check: ʎ(A)Ă܂Brc=1
(CDEC(10,'A'))'12.345'=##ERROR##
[coal] cl_get_def_attr_check: x(0)Ă܂B
(CDEC(0,2))'12.345'=##ERROR##
[coal] cl_get_def_attr_check: x(-1)Ă܂B
(CDEC(-1,2))'12.345'=##ERROR##
[coal] cl_get_def_attr_check: ʎ(1000)Ă܂B
(CDEC(10,1000))'12.345'=##ERROR##
[coal] cl_get_def_attr_check: ʎ(-1000)Ă܂B
(CDEC(10,-1000))'12.345'=##ERROR##
[coal] cl_gx_compile: Zq܂BCPOINTER '12.345'
(CPOINTER)'12.345'=##ERROR##
(CCHAR(10))'123456789012345'="1234567890"
[coal] cl_gx_mk_cast: A܂́AxAʎ̎w萔(0)słB
(CCHAR())123.4567=##ERROR##
[coal] cl_gx_mk_cast: A܂́AxAʎ̎w萔(3)słB
(CDEC(15,2,3))'123456789.012345'=##ERROR##
[coal] cl_gx_compile: Zq܂B֐l 123.4567
(CPOINTER(0))123.4567=##ERROR##
[coal] cl_gx_mk_cast: [FUNC]ɂ́AA܂́AxAʎ͎wł܂B
((FUNC(0))'ABS')(-10)=##ERROR##
(CCHAR(123.4567))="123.4567"
CDEC('123456789.012345',15,2)=123456789.01
(CINT)'1'=1
(CDEC(15,2))'123456789.012345'=123456789.01
(CDATE('YYYY/DD/MM'))'2021/01/02'=(2021/02/01 00:00:00)
(CDATE)'2021/01/02'=(2021/01/02 00:00:00)
CDATE('2021/01/02','YYYY/DD/MM')=(2021/02/01 00:00:00)
CDATE('2021/01/02')=(2021/01/02 00:00:00)
*** end   test_cast.cl ***
*** start test_cast_func.cl ***
CCHAR(1)="1", CBIN('2')=2, CDOUBLE(3)=3, cchar(4.5)="4.5", cstring(4.5)="4.5"
CSTR(123.4567)="123.4567"
CCHAR('123456789012345',10)="1234567890"
CINT('1')+2=3
CBIN('1346')=1346
CLONG('9999')=9999
CLNG('888888')=888888
CFLOAT('12.345')=12.345
CFLT('12.345')=12.345
CDOUBLE('12.345')=12.345
CDBL('12.345')=12.345
CDEC('12.345')=12.345
[coal] cl_get_def_attr_check: x(0)Ă܂B
CDEC('12.345',,2)=##ERROR##
CDEC('12.345',10,)=12
CDECIMAL('123456789.012345',15,2)=123456789.01
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200b6f48     0 00 00 00 01                                     ....
200b6f58     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200b7608     0 49 96 02 d2                                     I...
200b7618     4 (DATA END)

CBULK(1)=**BULK**, CBULK(1234567890)=**BULK**
CDATE('')=(1970/01/01 00:00:00)
CDATE('2021/01/05','YYYY/DD/MM')=(2021/05/01 00:00:00)
CVARI('12.345')="12.345"
CVARIANT(12.345)=12.345
ff('ABS')(-10)=10
*** end   test_cast_func.cl ***
*** start test_cast2.cl ***
(CCHAR(%1))a[0]*2=2
(CCHAR(%1))(a[0]*2)="2"
cdec(x)=10000000.0
cstr(x)="10000000.0"
round(x,48,0x10)=10.0
w=10.000000000000000
*** end   test_cast2.cl ***
*** start test_cast3.cl ***
(CHAR)1="1", (BIN)'2'=2, (DOUBLE)3=3, (char)4.5="4.5", (string)4.5="4.5"
((FUNC)'ABS')(-10)=10
ff('ABS')(-10)=10
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200fcf18     0 00 00 00 01                                     ....
200fcf28     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200fd5c8     0 49 96 02 d2                                     I...
200fd5d8     4 (DATA END)

(BULK)1=**BULK**, (BULK)1234567890=**BULK**
(CHAR)ABS(1-2)="1"
(CHAR)MAX(1,2)="2"
(CHAR)LENG(1)="4"
[coal] cl_gx_func: [XXX]͊֐ł͂܂B
(CHAR)XXX(1-2)=##ERROR##
[coal] cl_gx_compile: [CHAR]͗\łB
(CHAR)+(FUNC)=##ERROR##
(INT)'1'+2=3
(INT)'1'=1
(CHAR)(BULK)1="00000001"
(INTE)'1'=1
'A' & (CHAR)12="A12"
(DEC)'12.345'=12.345
x=12.35
(CHAR(10))'123456789012345'="1234567890"
(INT(8))'1'=1
(DOUBLE(8))3=3
(DEC(10,2))'12.345'=12.35
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200fcfc8     0 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 1234567890123456
200fcfd8    16 37 38 39 30                                     7890
200fcfe8    20 (DATA END)

(BULK(20))'1234567890123456789012345'=**BULK**
[coal] cl_gx_mk_cast: A܂́AxAʎ̎w萔(0)słB
(CHAR())'1'=##ERROR##
[coal] cl_get_def_attr_check: : ȊO̕[A]܂(pos=1)B
[coal] cl_get_def_attr_check: TCY(A)Ă܂Brc=1
(CHAR('A'))'1'=##ERROR##
[coal] cl_get_def_attr_check: TCY(0)Ă܂B
(CHAR(0))'1'=##ERROR##
[coal] cl_get_def_attr_check: TCY(-1)Ă܂B
(CHAR(-1))'1'=##ERROR##
[coal] cl_get_def_attr_check: x(0)Ă܂B
(DEC(,2))'12.345'=##ERROR##
(DEC(10,))'12.345'=12
[coal] cl_get_def_attr_check: : ȊO̕[A]܂(pos=1)B
[coal] cl_get_def_attr_check: x(A)Ă܂Brc=1
(DEC('A',2))'12.345'=##ERROR##
[coal] cl_get_def_attr_check: : ȊO̕[A]܂(pos=1)B
[coal] cl_get_def_attr_check: ʎ(A)Ă܂Brc=1
(DEC(10,'A'))'12.345'=##ERROR##
[coal] cl_get_def_attr_check: x(0)Ă܂B
(DEC(0,2))'12.345'=##ERROR##
[coal] cl_get_def_attr_check: x(-1)Ă܂B
(DEC(-1,2))'12.345'=##ERROR##
[coal] cl_get_def_attr_check: ʎ(1000)Ă܂B
(DEC(10,1000))'12.345'=##ERROR##
[coal] cl_get_def_attr_check: ʎ(-1000)Ă܂B
(DEC(10,-1000))'12.345'=##ERROR##
[coal] cl_gx_compile: Zq܂BPOINTER '12.345'
(POINTER)'12.345'=##ERROR##
(INT)'1'=1
(CHAR(10))'123456789012345'="1234567890"
[coal] cl_gx_mk_cast: A܂́AxAʎ̎w萔(0)słB
(CHAR())123.4567=##ERROR##
[coal] cl_gx_mk_cast: A܂́AxAʎ̎w萔(3)słB
(DEC(15,2,3))'123456789.012345'=##ERROR##
[coal] cl_gx_compile: Zq܂B֐l 123.4567
(POINTER(0))123.4567=##ERROR##
[coal] cl_gx_mk_cast: [FUNC]ɂ́AA܂́AxAʎ͎wł܂B
((FUNC(0))'ABS')(-10)=##ERROR##
(CCHAR(123.4567))="123.4567"
CDEC('123456789.012345',15,2)=123456789.01
(DBL(8))3=3
*** end   test_cast3.cl ***
*** start test_cast4.cl ***
(DEC(%1,%2))%3=-12345.679
(DEC)%3=-12345.6789
[coal] cl_gx_cast:  is not suported cast attr.
(%4)(%3)=##ERROR##
ff($1)(%3)=12345.6789
[coal] cl_func_f: []֐ł͂܂B
ff(%4)(%3)=##ERROR##
a=123
(cbrt)(1000.0)=10
[coal] cl_gx_compile: Zq܂B'cchar' (
('cchar')(1000.0)=##ERROR##
*** end   test_cast4.cl ***
*** start test_ch.cl ***
ERROR=0, ERRNO=0, ERRMSG="", $ch=0
*** end   test_ch.cl ***
*** start test_chr.cl ***
chr('48',0x30,0x30+1.5)="001"
to(asc('ABC'),'x')="00000041"
to_bulks(asc('ABC'))&+''="00000041"
1.2539, to(1.2539,'X')="4D5000002800030000000000011927"
1, to(1.0F,'X')="3FF0000000000000"
to(100,'x')="00000064"
to_bulks($a)&+987="436445000000014d500000280002000000000001320000000000000000000000000000000000000000000000000000987"
substr('1234',1)="1234"
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200e2d38     0 31 32 33                                        123
200e2d48     3 (DATA END)

to_bulk('123',1)=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200e2d29     0 00 00 00 01                                     ....
200e2d39     4 (DATA END)

to_bulk(1,1,4)=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200e2d2a     0 00                                              .
200e2d3a     1 (DATA END)

to_bulk(0,1,1)=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200e2cc0     0 00 00 00 01                                     ....
200e2cd0     4 (DATA END)

to_bulk(1)=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200e2cc0     0 3f f0 00 00 00 00 00 00                         ?.......
200e2cd0     8 (DATA END)

to_bulk(1.0F)=**BULK**
to_bulk('')=**BULK**
asc('`a')=15711393, ascb('`a')=239
to(asc('`a'),'x')="00efbca1", to(ascb('`a'),'x')="000000ef"
*** end   test_chr.cl ***
*** start test_class.cl ***
x="Instance as aaa"
"aaa", x=2
"aaa", x=1, y=2
"bbb", x="A", y="B"
x.bbb('A','B')=0
"fun", x=10, y=20, z=30
"fun", a=1, b=2, ca="A", cb="B"
x.fun(10,20,30)=2
*** end   test_class.cl ***
*** start test_class_extends.cl ***
"class super_xxx", c="ABCD"
"class super_aaa", b=20
"class aaa", b=10
"super_xxx", x=10
xx.a="asdf"
xx.b=10
[coal] cl_set_instance_method: \bh[d]͖`łB
xx.d=##ERROR##
"bbb", x=30
xx.b=30
"ccc", x="AAA"
xx.c="AAA"
*** end   test_class_extends.cl ***
*** start test_class_math.cl ***
Math.sind(30.0)=0.4999999999999999
Math.cosd(60.0)=0.5000000000000001
Math.tand(45.0)=0.9999999999999998
*** end   test_class_math.cl ***
*** start test_class_static.cl ***
[coal] cl_gx_get_all_var_ent: xx(xx)͖`łB
xx=##ERROR##
Counter.XXX._X()=2000
[coal] cl_gx_get_all_var_ent: xx(xx)͖`łB
xx=##ERROR##
Counter.f._X()=2000
System.putline
system.putline('System.putline')=15
Counter._count()=1
Counter.ccc="ABC"
Counter.s_f(123)=0
Counter.('ccc')="123"
*** end   test_class_static.cl ***
*** start test_class2.cl ***
g.('name')="Hellow"
My.name&' World!!'="Hellow World!!"
h.name="Good night"
My.name&' World!!'="Good night World!!"
*** end   test_class2.cl ***
*** start test_class3.cl ***
c()=1
c()=2
d()=11
d()=12
c()=3
x()=102
x()=103
*** end   test_class3.cl ***
*** start test_class4.cl ***
xx=200
f="_count()", x="Instance as XXX", x._X()=2000
[coal] DUMP2= pInfo=0022c508 id=0x4d[M] attr=1 scale=0x00 code=5 dlen=14 len(gid)=537735792 hlen=0 pos=537941280(20105520) aux=0x00 0x11 auxlen=0000 200c0148 data=200b6138 [Counter._count]
c="Counter._count()", c=#DUMP2#
*** end   test_class4.cl ***
*** start test_class5.cl ***
xx=200
f="_count()", x="Instance as XXX", x._X()=2000
[coal] DUMP2= pInfo=0022c508 id=0x4d[M] attr=1 scale=0x00 code=5 dlen=14 len(gid)=537999152 hlen=0 pos=537996680(20112d88) aux=0x00 0x11 auxlen=0000 200ebc88 data=2008b228 [Counter._count]
c="Counter._count()", c=#DUMP2#
*** end   test_class5.cl ***
*** start test_class6.cl ***
"ABC"
EFGH
'ABCDEF'.leng()=6
'ABCDEF'.3="CDEF"
"X"
"X"
"X"
"X"
"X"
'ABCDEF'.leng()+10=16
'ABCDEF'.xyz="CDEF"
'ABCDEF'.'xyz'="CDEF"
[coal] str_posi: p[^̌^(5)l^ł͂܂B
'ABCDEF'.(CBULK)xyz=##ERROR##
'ABCDEF'.(a[0])="BCDEF"
[coal] cl_gx_ex_obj_sub: [a]Ă܂B
a[2].a[0]=##ERROR##
a[1](-2)=2
('ABCDEF'.3).(2)="DEF"
'ABCDEF'.3="CDEF"
('ABCDEF'.3).2="DEF"
[coal] cl_gx_compile: Zq܂B3. (
'ABCDEF'.3.(2)=##ERROR##
'ABCDEF'.(3).2="DEF"
'ABCDEF'.3.2="CDEF"
'ABCDEF'.leng()=6
'ABCDEF'.((func)'leng')()=6
'ABCDEF'.(3..5)="CDE"
'ABCDEF'.'3..5'="CDE"
'ABCDEF'.'3,2'="CD"
'ABCDEF'.(2)="BCDEF"
'ABCDEF'.2="BCDEF"
*** end   test_class6.cl ***
*** start test_class7.cl ***
sex="j", name="", year=20, addr=""
name="`ab", year=30, addr="", tel="06-3456-9999"
*** end   test_class7.cl ***
*** start test_cmd.cl ***
$a['XAA']=1
***
*** end   test_cmd.cl ***
*** start test_cmdobj.cl ***
sub1(123)=0, a="123", a=private Char(3)
sub1(234)=0, a="23", a=private Char(2)
sub1('XYZ')=0, a="X", a=private Char(1)
*** end   test_cmdobj.cl ***
*** start test_comma.cl ***
comma('-12345678.9')="-12,345,678.9"
comma('-5678.9')="-5,678.9"
comma('-678.9')="-678.9"
comma('-78.9')="-78.9"
comma('-8.9')="-8.9"
comma('-.9')="-.9"
comma(-12345678.9)="-12,345,678.9"
comma(-5678.9)="-5,678.9"
comma(-678.9)="-678.9"
comma(-78.9)="-78.9"
comma(-8.9)="-8.9"
comma(-.9)="-0.9"
*** end   test_comma.cl ***
*** start test_comment.cl ***
$1="XYZ123", "ABC"
*** end   test_comment.cl ***
*** start test_comp.cl ***
1 MAX '2'=2
$x=1 $y=2
[coal] 1: ȊO̕[3ab]܂(pos=2)B
[coal] let_compute_sub_opt: Ă܂(rc=-2)B
[coal] clerrdisp:rc=-11791(ffffd1f1) at script=[test_comp.cl] line=12
[coal]  ---> [LET $max = max('1a','2b','3ab',423)]
*** end   test_comp.cl ***
*** start test_comp1.cl ***
1 == 1=1
1 == 0=0
1 != 1=0
1 != 0=1
1 NOT= 1=0
1 NOT= 0=1
1 <> 1=0
1 <> 0=1
1 >< 1=0
1 >< 0=1
[coal] _ex_conv_parm_opt: ϐ(1)ւ̑͂ł܂B
1 ^= 1=##ERROR##
[coal] _ex_conv_parm_opt: ϐ(1)ւ̑͂ł܂B
1 ^= 0=##ERROR##
2 >= 1=1
2 >= 2=1
2 >= 3=0
2 <= 1=0
2 <= 2=1
2 <= 3=1
2 => 1=1
2 => 2=1
2 => 3=0
2 =< 1=0
2 =< 2=1
2 =< 3=1
2 > 1=1
2 > 2=0
2 > 3=0
2 < 1=0
2 < 2=0
2 < 3=1
1 EQ 1=1
1 EQ 0=0
1 NE 1=0
1 NE 0=1
2 GE 1=1
2 GE 2=1
2 GE 3=0
2 LE 1=0
2 LE 2=1
2 LE 3=1
2 GT 1=1
2 GT 2=0
2 GT 3=0
2 LT 1=0
2 LT 2=0
2 LT 3=1
'A' iEQ 'A'=1
'A' iEQ 'a'=1
'A' iNE 'a'=0
'B' iNE 'a'=1
2 le 3=1
*** end   test_comp1.cl ***
*** start test_comp2.cl ***
[coal] aŏzQƂ܂B
arraycmp(a,,b)=2
[coal] aŏzQƂ܂B
arraycmp(a1,,a2)=3
arraycmp(a1,,a2)=3
*** end   test_comp2.cl ***
*** start test_comp3.cl ***
$()=variant $()[(1),1..65536], *$()=1,2,3
%ma=private variant %ma[(1),10], %()=variant %()[(1),1..5]
*%ma="1","2","3","4","5", *%()="1","2","3","4","5", *ma=1,2,3
arraycmp(ma,,%())=3
[coal] _ex_conv_parm_opt: ֐($)̖߂l̃f[^ݒłB
[coal] cl_gx_conv_index:[ma]̃CfbNX͈͊OłBi=1 index=11 (def=0..9)
$(65)=##ERROR##, ma[11]=##ERROR##
$(1)=1
*** end   test_comp3.cl ***
*** start test_compile.cl ***
[coal] ֐(ABS)͎wł܂B
[coal] cl_gx_bexp: ZpZ̑1Ɍ肪܂B
FF($x)+(-1)=##ERROR##
FF($x)(-1)=1
FF($x='abs')(-2)=2
($x = abs)(-1)=1
[coal] _ex_conv_parm_opt: $1̃f[^ݒłB
$1=##ERROR##
*** end   test_compile.cl ***
*** start test_compile_91_92.cl ***
'ABCD'.2="BCD"
a.2="YZ"
[coal] cl_gx_get_all_var_ent: y(y)͖`łB
x=1, y=##ERROR##
a.x="XYZ"
f()="func"
[coal] cl_gx_get_all_var_ent: ỹf[^ݒłB
x=2, y=##ERROR##
a.x="Z"
f()="func"
*** end   test_compile_91_92.cl ***
*** start test_compile_loop.cl ***
$n=4
$n=3
$n=2
$n=1
$n=0
*** end   test_compile_loop.cl ***
*** start test_compile2.cl ***
%0=1, %1="ABC", $1=2
%0=0, %1=
[coal] _ex_conv_parm_opt: 萔(#0)ւ̑͂ł܂B
[coal] let_compute_sub_opt: Ă܂(rc=-11001)B
[coal] clerrdisp:rc=-11791(ffffd1f1) at script=[test_compile2.cl] line=13
[coal]  ---> [let #0 = 10]
*** end   test_compile2.cl ***
*** start test_compile3.cl ***
b=13
b=13
*** end   test_compile3.cl ***
*** start test_compile4.cl ***
---c=-2, c=1, -++c=-2, c=2, ++-c=-1, c=2
[coal] cl_get_mapped_array: mapʒu(0)͈͊OłB
--(c=a)=##ERROR##
[coal] _ex_conv_parm_opt: ϐ(1)ւ̑͂ł܂B
[coal] _ex_conv_parm_opt: ϐ(3)ւ̑͂ł܂B
++1=##ERROR##, --3=##ERROR##, --abs(-4)=3
[coal] cl_gx_bexp: Zq=-ȀWZ͂ł܂B
[coal] cl_gx_bexp: Zq=-ȀWZ͂ł܂B
b=private const variant b[3], -*b=##ERROR##, *(-*b)=##ERROR##
*(*a-*b)=1,3,5
*** end   test_compile4.cl ***
*** start test_concat.cl ***
$a="12", $b="104", $c="104", $d="104", $e="104", concat('A','B')="AB"
$a="123", $b="1045", $c="1045"
'ABC' & 'XYZ'="ABCXYZ"
'123' | '456'="123456"
123 & 456=72
3 | 4=7
'A' concat .5e2="A50"
.5e2=50
x="PQRS"
x="ABCDEQRS"
concat(aa)="ABXYZCDE"
concat({1,2,3,4,5,6,aa})="123456ABXYZCDE"
concat([10,11,'A','B',aa])="1011ABABXYZCDE"
concat(('A'..'Z'))="A"
*('Z'..'A'..(-1))="Z","Y","X","W","V","U","T","S","R","Q","P","O","N","M","L","K","J","I","H","G","F","E","D","C","B","A"
concat(*('A'..'Z'))="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
concat(**('A'..'Z'))="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
concat(*(1..10))="12345678910"
*(1.5..10.5..0.5)=1.5,2,2.5,3,3.5,4,4.5,5,5.5,6,6.5,7,7.5,8,8.5,9,9.5,10,10.5
concat(*(1.5..10.5..0.5))="1.522.533.544.555.566.577.588.599.51010.5"
concat(*((SYSDATE+5)..SYSDATE..'D-2'))="2022/01/24 09:48:362022/01/22 09:48:362022/01/20 09:48:36"
*(SYSDATE..(SYSDATE+5)..'D')=(2022/01/19 09:48:36),(2022/01/20 09:48:36),(2022/01/21 09:48:36),(2022/01/22 09:48:36),(2022/01/23 09:48:36),(2022/01/24 09:48:36)
a="A9"
*bb=
concat(bb)=""
*hh=[AMC]="AA",[XGN]=[8,9,10],[PAW]="CC"
concat(hh)="AA8910CC"
[coal] T(\)͎wł܂B
concat(zz)=##ERROR##
concat(aa)="ABXYZDE"
[coal] O(葱)͎wł܂B
concat(main)=##ERROR##
[coal] F(֐)͎wł܂B
concat(abs)=##ERROR##
[coal] z(aa)ŏzQƂ܂B
concat(bb,aa,bb)="HABXYZDEH"
[coal] z(aa)ŏzQƂ܂B
[coal] z(aa)ŏzQƂ܂B
concat(aa)="ABXZDE"
[coal] aaŏzQƂ܂B
[coal] aaŏzQƂ܂B
*aa="A","B",{"X",,"Z"},*(),"D","E"
[coal] aaŏzQƂ܂B
[coal] aaŏzQƂ܂B
[coal] aaŏzQƂ܂B
[coal] ŏzQƂ܂B
*xx="A","B",{"X","A","B",{"X",,"Z"},*(),"D","E","Z"},*(),"D","E"
concat($())="$1$2$3"
[coal] MAPPEDz($())ŏzQƂ܂B
concat($())="$1XZ$3"
*** end   test_concat.cl ***
*** start test_const.cl ***
cX="cX", gcX="gcX", cgX="cgX", pcX="pcX", cpX="cpX", prcX="prcX", cprX="cprX"
[coal] _ex_conv_parm_opt: 萔(cX)ւ̑͂ł܂B
[coal] _ex_conv_parm_opt: 萔(gcX)ւ̑͂ł܂B
[coal] _ex_conv_parm_opt: 萔(cgX)ւ̑͂ł܂B
[coal] _ex_conv_parm_opt: 萔(pcX)ւ̑͂ł܂B
[coal] _ex_conv_parm_opt: 萔(cpX)ւ̑͂ł܂B
[coal] _ex_conv_parm_opt: 萔(prcX)ւ̑͂ł܂B
[coal] _ex_conv_parm_opt: 萔(cprX)ւ̑͂ł܂B
cX=1=##ERROR##, gcX=2=##ERROR##, cgX=3=##ERROR##, pcX=4=##ERROR##, cpX=5=##ERROR##, prcX=6=##ERROR##, cprX=7=##ERROR##
[coal] cl_gx_get_all_var_ent: a(a)͖`łB
[coal] cl_gx_get_all_var_ent: b(b)͖`łB
a=##ERROR##, b=##ERROR##, c=3, d=4
[coal] _ex_conv_parm_opt: 萔(c)ւ̑͂ł܂B
[coal] _ex_conv_parm_opt: 萔(d)ւ̑͂ł܂B
c=0=##ERROR##, d=0=##ERROR##
[coal] cl_pr_ex_def_scalar_attr_info: GLOBAL:(W)LOCALϐ[d]`ς݂łB
[coal] cl_pr_ex_def_scalar_attr_info: CONSTϐ[d]`ς݂łB
[coal] clerrdisp:rc=-11001(ffffd507) at script=[test_const.cl] line=22
[coal]  ---> [LET const global d = 444]
*** end   test_const.cl ***
*** start test_const2.cl ***
d=444, d=global const int
[coal] _ex_conv_parm_opt: ^`(aa)ւ̑͂ł܂B
[coal] let_compute_sub_opt: Ă܂(rc=-11001)B
[coal] clerrdisp:rc=-11791(ffffd1f1) at script=[test_const2.cl] line=9
[coal]  ---> [LET aa = 1]
*** end   test_const2.cl ***
*** start test_continue.cl ***
$i=0, $x=0
$i=2, $x=2
$i=4, $x=4
$i=6, $x=6
$i=8, $x=8
*** end   test_continue.cl ***
*** start test_conv.cl ***
a=local char(2), d1=local dec(3,0), d2=local dec(9,0), d3=local dec(3,0), d4=local dec(9,0), d5=local dec(3,0), d6=local dec(9,0), d7=local dec(11,0)
A0   2    373000   2    373000   1    450425   1382925
a=local char(2), d1=local dec(3,0), d2=local dec(9,0), d3=local dec(3,0), d4=local dec(9,0), d5=local dec(3,0), d6=local dec(9,0), d7=local dec(11,0)
A2   4    979240   4    979240   1    449765   2897865
*** end   test_conv.cl ***
*** start test_count.cl ***
countv(10)=1
countv($1)=5, countv(*$1)=5
countv($())=1, countv(*$())=1
countv(%())=7, countv(*%())=7
$a=private variant a[10], countv($a)=3
countv(*$a)=4
$b=private Int b[10], countv($b)=3
countv($b)=4
countv($m)=3, countv(*$m)=3
countv(%p)=5, countv(*%p)=5
countv([1,2,3,4,5,6,7,8,9])=9
countv(*[1,2,3,4,5,6,7,8,9])=9
[1,2,3,4,5,6,7,8,9]=[1,2,3,4,5,6,7,8,9]
countv(1..5)=1, countv(*(1..5))=5, countv(**(1..5))=4
countv(a,b)=9
countv(a,b,1)=11
countv(a,b,OPT==>1)=11
countv(a,b,OPT==>1,1)=12
1,2,3,4,5=1, 2, 3, 4, 5
*** end   test_count.cl ***
*** start test_count2.cl ***
*%()="A","B","C"
countv(%())=3
*** end   test_count2.cl ***
*** start test_csv.cl ***
x.value="1"
x.value="1"
x.value="f[^"
x.value="CD_DATA_CNTL"
x.value="VC2"
x.value="1"
x.value=""
x.value=""
x.value=""
x.value=""
x.value=""
x.value=""
x.value=""
x.value=""
x.value=""
x.value="tb^["
x.value=""
x.value=""
x.value=""
*** end   test_csv.cl ***
*** start test_d.cl ***
is($1,'T')=1, is(a,'T')=3, is(b,'T')=3
$a=-1.2, $b=2.4, $c=-3.6, $d=-2.88, $e=-0.5
*** end   test_d.cl ***
*** start test_data_mode.cl ***
xx=**(3.1..5.6)=5.1
x1=5.1
x2={3.1,4.2,5.3}, x2[0]=3.1, x2[1]=4.2
x3=5,6,7
ta=private a_t:ta{int a, char(1) b}, *ta={a=1,b="A"}
[coal] \͎̂wł܂B
[coal] \͎̂wł܂B
[coal] cl_gx_bexp: ZpZ̑1,2Ɍ肪܂B
*ta + *tb=##ERROR##
(2..5) + (-1.5..2.5)=0.5
f=2,3,4,5, g=-1.5,-0.5,0.5,1.5,2.5, f + g=0.5
z="2A"
c=private variant c[10], *c=*(11,12,13), c[0]=11..13
d=private variant d[10], *d=2,4,6,8,10,"A","B", d[0]=2
[coal] cl_gx_ex_obj_sub: d'**'͎wł܂B
**d=##ERROR##
"----------"
x=local variant x[10], *x=1,,3,4,5,"A","B",{"C",,"E"},8
y=local variant y[10], *y=*(11,12,13)
f=2,3,4,5, *f=2,3,4,5, countv(f)=4
g=2.1..5.9, *g=2.1,3.1,4.1,5.1, countv(g)=1, countv(*g)=4
h="AX".."ZY", *h="A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z", countv(h)=1, countv(*h)=26
*z={Index=0,Value="A"}
*z={Index=1,Value="B"}
*z={Index=2,Value="C"}
*z={Index=3,Value="D"}
*z={Index=4,Value="E"}
*z={Index=5,Value="F"}
*z={Index=6,Value="G"}
*z={Index=7,Value="H"}
*z={Index=8,Value="I"}
*z={Index=9,Value="J"}
*z={Index=10,Value="K"}
*z={Index=11,Value="L"}
*z={Index=12,Value="M"}
*z={Index=13,Value="N"}
*z={Index=14,Value="O"}
*z={Index=15,Value="P"}
*z={Index=16,Value="Q"}
*z={Index=17,Value="R"}
*z={Index=18,Value="S"}
*z={Index=19,Value="T"}
*z={Index=20,Value="U"}
*z={Index=21,Value="V"}
*z={Index=22,Value="W"}
*z={Index=23,Value="X"}
*z={Index=24,Value="Y"}
*z={Index=25,Value="Z"}
"----------"
i=2..5, countv(i)=1, countv(*i)=4
*z={Index=0,Value=2}
*z={Index=1,Value=3}
*z={Index=2,Value=4}
*z={Index=3,Value=5}
"----------"
{Index=0 Value=2.1}
{Index=1 Value=3.1}
{Index=2 Value=4.1}
{Index=3 Value=5.1}
2..5=2..5, *(2..5)=2,3,4,5, *('AB'..'DE')="A","B","C","D"
2..5 2 3 4 5 A B C D
**(2..5)=2, 3, 4, 5, **('AB'..'DE')="A", "B", "C", "D"
2,3,4,5=2, 3, 4, 5
h={1,2,3,4,5}
i=[1,2,3,4,5]
*** end   test_data_mode.cl ***
*** start test_data_mode1.cl ***
*x={Index=0,Value="5"}
*x={Index=1,Value="6"}
*x={Index=2,Value="7"}
*x={Index=3,Value="8"}
*x={Index=4,Value="9"}
*** end   test_data_mode1.cl ***
*** start test_date.cl ***
date_add('s',3661,'0000/00/00 00:00:00')=(1970/01/01 01:01:01)
date_add('s',14009,'')=(1970/01/01 03:53:29)
add_to_date('0000/00/00 00:00:00','s',3661)=(1970/01/01 01:01:01)
add_to_date('','s',14009)=(1970/01/01 03:53:29)
(CDATE)''=(1970/01/01 00:00:00)
(CDATE)'2014/05/10'=(2014/05/10 00:00:00)
(CDATE)'20140510'=(2014/05/10 00:00:00)
(CDATE)'14/05/10'=(2014/05/10 00:00:00)
(CDATE)'2014/05'=(2014/05/01 00:00:00)
(CDATE)'140510'=(2014/05/10 00:00:00)
(CDATE)'14/05'=(2014/05/01 00:00:00)
(CDATE)'2014'=(2014/01/01 00:00:00)
a=(2022/01/19 09:48:36)
b=(2022/01/20 09:48:36)
"a <> b"
a == b=0
a == (CDATE)'2014/05/10'=0
a > (CDATE)'2014/05/10'=1
a MAX (CDATE)'2014/05/10'=(2022/01/19 09:48:36)
a MIN (CDATE)'2014/05/10'=(2014/05/10 00:00:00)
1.2 MAX 2.4=2.4
1.2 MIN 2.4=1.2
MAX(1.2,2.4,0.5)=2.4
MIN(1.2,2.4,0.5)=0.5
MAX('1.2','2.4','0.5')="2.4"
MIN('1.2','2.4','0.5')="0.5"
MAX(a,(CDATE)'2014/05/12',(CDATE)'2015/05/10')=(2022/01/19 09:48:36)
MIN(a,(CDATE)'2014/05/08',(CDATE)'2013/05/10')=(2013/05/10 00:00:00)
CBIN(SYSDATE)=1642553316
CDBL(SYSDATE)=1642553316
CDEC(SYSDATE)=1642553316
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200f1d54     0 14 16 01 13 09 30 24 04 1f 2b 00 03 00 12       .....0$..+....
200f1d64    14 (DATA END)

CBULK(SYSDATE)=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200f1d58     0 14 16 01 13 09 30 24 04 1f 2b 00 03 00 12       .....0$..+....
200f1d68    14 (DATA END)

TO_BULK(SYSDATE)=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200f1d58     0 14 16 01 13 09 30 24 04 1f 2b 00 03 00 12       .....0$..+....
200f1d68    14 (DATA END)

TO_BULKS(SYSDATE)=**BULK**
SYSDATE=14160113093024041f2b00030012
date_diff('y',a,c)=1922
date_diff('m',a,c)=23064
date_diff('d',a,c)=702014
date_diff('h',a,c)=16848345
date_diff('mi',a,c)=1010900748
date_diff('s',a,c)=60654044916
date_diff('q',a,c)=7688
date_diff('ww',a,c)=100287.7142857142
*** end   test_date.cl ***
*** start test_date1.cl ***
SYSDATE=(2022/01/19 09:48:36)
SYSDATE+1=(2022/01/20 09:48:36)
SYSDATE-1=(2022/01/18 09:48:36)
[coal] cl_cmpt_date: Z(+)͎gpł܂B
SYSDATE+SYSDATE=##ERROR##
SYSDATE..SYSDATE=(2022/01/19 09:48:36)..(2022/01/19 09:48:36)
*(SYSDATE..(SYSDATE+3))=(2022/01/19 09:48:36),(2022/01/20 09:48:36),(2022/01/21 09:48:36),(2022/01/22 09:48:36)
to_char(SYSDATE..SYSDATE,'YYYY-MM-DD HH:MI:SS.U P DAY DDD')="2022-01-19 09:48:36.270123 AM Wednesday 18"
1.5..3.5=1.5..3.5
(BIN)SYSDATE=1642553316
ERRMSG="cl_cmpt_date: Z(+)͎gpł܂B"
*** end   test_date1.cl ***
*** start test_def.cl ***
a=private (no data), b=private (no data), c=private (no data)
[coal] cl_gx_get_all_var_ent: y(y)͖`łB
[coal] cl_gx_get_all_var_ent: z(z)͖`łB
x=private variant x[10], y=##ERROR##, z=##ERROR##
$aa=private Char(10) aa[10]
x[0]=100
a=private int, b=private (no data), c=private (no data)
w=100, w=local int
w=200, w=local int
*** end   test_def.cl ***
*** start test_define.cl ***
yd=private Dec(5,2)
yd=345.67, ss="ABCD"
ss="1234567890"
ss="dfrgsds"
ss="123"
ss="123"
ss="qwert"
ss=123.45
*** end   test_define.cl ***
*** start test_define_error.cl ***
ERRMSG="cl_gx_compile: [dec]͗\łB
clerrdisp:rc=-11001(ffffd507) at script=[test_define_error.cl] line=2
 ---> [define dd dec(10,5)]
cl_exe_scr_set_up: Error occured Define Process
clerrdisp:rc=-33543431(fe002af9) at script=[exec_all_test.cl] line=46
 ---> [exec sc $f $*]"
*** end   test_define_error.cl ***
*** start test_define1.cl ***
MAX_LOOP_WHILE=public int
$(x)="1234567890"
[coal] cl_pr_ex_def_scalar_attr_info: PRIVATE:(W)LOCALϐ[ss]`ς݂łB
3, ss="1234567890", ss=local Char
yd=0.0000, yd=private Dec(10,3)
yd=1234.5678, yd=private Dec(10,4)
yd2=1234.568, yd2=private Dec(10,3)
4, ss="abcdefghijk", ss=local Char
5, ss="0987654321", ss=local Char(10)
6, ss=""
aa=local variant aa[5], *aa=1,2,3,4
[coal] cl_pr_ex_def_scalar_attr_info: PRIVATE:(W)LOCALϐ[ss]`ς݂łB
7, $(x)="XYZ"
[coal] _ex_conv_parm_opt: ֐($)̖߂l̃f[^ݒłB
8, global $(x)=##ERROR##
9, private $(x)="XYZ"
10, private ss="XYZ"
11, local $(x)="XYZ"
12, global gg=global variant gaa[10]
*** end   test_define1.cl ***
*** start test_define2.cl ***
a=private variant a[-1..2,-2..0], ma=private variant ma[(1),1..3,2..3]
i=0 j=0 index=0
i=0 j=1 index=4
i=0 j=2 index=8
i=1 j=0 index=1
i=1 j=1 index=5
i=1 j=2 index=9
i=2 j=0 index=2
i=2 j=1 index=6
i=2 j=2 index=10
i=3 j=0 index=3
i=3 j=1 index=7
i=3 j=2 index=11
ma[3,3]=100
%mb=private variant %mb[(1),4], *%mb="1","2","3","4"
*x={Index=0,Value="1"}
*x={Index=1,Value="2"}
*x={Index=2,Value="3"}
*x={Index=3,Value="4"}
%mc=private variant %mc[(1),10], *%mc="1","2","3","4","5","6","7","8","9","10"
md=private variant md[(1),10], *md=11,21,31,41,,100
*** end   test_define2.cl ***
*** start test_define3.cl ***
ma=private variant ma[(3),20], *ma=1,2,3,4,5
a=local z:a{Int a[5,3,2], Char(5) b, Dec(10,2) c[10], Bulk(20) d, Double e hash(10), variant f}
x=private z:x{Int a[5,3,2], Char(5) b, Dec(10,2) c[10], Bulk(20) d, Double e hash(10), variant f}, aa=private variant aa[10], aa[0]="A"
x=10, aa=local variant aa[20], aa[0]="B"
x=private z:x{Int a[5,3,2], Char(5) b, Dec(10,2) c[10], Bulk(20) d, Double e hash(10), variant f}, aa=private variant aa[10], aa[0]="A"
x=10, aa=local variant aa[20], aa[0]="B"
x=10, xx=private variant xx[10]
*** end   test_define3.cl ***
*** start test_define4.cl ***
a=private variant a[3,20]
a=private variant a[3,20], b=private variant b[3,20], c=private Char(10) c[3,20], d=private Char(10) d[3,20], aa=private variant aa[10]
*b=1,2,3,4,5
[coal] cl_gx_get_all_var_ent: la(la)͖`łB
la=##ERROR##, lb=local variant lb[5], lc=local variant lc[5]
[coal] cl_gx_get_all_var_ent: xb(xb)͖`łB
xx=100, xa=local variant xa[10], xb=##ERROR##, xc="12345", xd=local Char(5) xd[3,20], xe=local Char(5) xe[3,20]
*** end   test_define4.cl ***
*** start test_define5.cl ***
ss=private const type ss{Int i[5], Double e, Char(10) a, Bulk(20) b}
[coal] cl_func_conv_parm: z[xyz]́Aϐɕϊł܂B
$$%(1)=##ERROR##
$%(1)=private variant xyz[10]
$$m[0]="XYZ"
*** end   test_define5.cl ***
*** start test_define6.cl ***
c=private Char c[10], *c="a","xx","1",""
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=1 scale=0x00 code=5 dlen=6 len(gid)=0 hlen=0 pos=2(00000002) aux=0x01 0x00 auxlen=0000 200f08c8 data=200f08c8 [123456]
c[0]="123456", c[0]=#DUMP2#
*** end   test_define6.cl ***
*** start test_define7.cl ***
a=local variant a[4,1,1], *a=2,"B",20
f3(3)=0
$$x=local variant a[10,1,1], *$$x=1,"A",10
yy=private variant a[10,1,1], *yy=1,"A",10
y=private variant y[10,1,1], *y=1,"A",10
[coal] _ex_conv_parm_opt: ϐ(yy)̔z͖ł(gid hash ix=0)B
[coal] _ex_conv_parm_opt: yỹf[^ݒłB
yy=##ERROR##, *yy=##ERROR##
$$x=local variant b[5,1,1], *$$x=1,"A",10
yy=private variant b[5,1,1], *yy=1,"A",10
y=private variant y[5,1,1], *y=1,"A",10
*** end   test_define7.cl ***
*** start test_define8.cl ***
xxx=private variant xxx[10]
[coal] cl_func_conv_parm: z[ZZZ]́Aϐɕϊł܂B
$$N=private variant ZZZ[10], $% (1)=private variant ZZZ[10], $$%(1)=##ERROR##
*aa=2,4
$$N=private variant ZZZ[10]
$$N=private variant ZZZ[10]
f2()=0, f2()=0
*** end   test_define8.cl ***
*** start test_define9.cl ***
c=private const variant c[10], *c=1,2,3
mb=private variant mb[(1),10]
ma=private variant ma[(1),10], *ma=1,2,"A",4,5
ma=local variant ma[1], *ma=11
a=local variant a[1], *a=33
c=local const variant c[10], *c=4
*** end   test_define9.cl ***
*** start test_define10.cl ***
i=5, j=private Int
t.x=Char(10) x[2]
t.x=Char(10) x[5], *t.x="abc","ABC"
*** end   test_define10.cl ***
*** start test_define11.cl ***
[coal] cl_gx_get_all_var_ent: B(B)͖`łB
[coal] cl_gx_get_all_var_ent: B(B)͖`łB
A=local Int A[2], B=##ERROR##, *A=1,2, *B=##ERROR##
x="X", x=local Char
[coal] cl_gx_get_all_var_ent: A(A)͖`łB
[coal] cl_gx_get_all_var_ent: A(A)͖`łB
A=##ERROR##, B=local Int B[2], *A=##ERROR##, *B=1,2
x="X", x=local Char
*** end   test_define11.cl ***
*** start test_deftype.cl ***
za=private const type Char za[10,7], zm=private const type variant zm[(2),4,6]
$zmv=private variant zmv[(2),4,6], %zmv=private variant %zmv[(2),4,6], #zmv=private variant #zmv[(2),4,6]
%zmv[0]=
xa=private Char xa[10,7], *xa="X","Y1234","Z56"
[coal] cl_gx_ex_obj_sub: z'*'͎wł܂B
private const type z{Int a[5,3,2], Char(5) b, Dec(10,2) c[10], Bulk(20) d, Double e hash(10), variant f, variant g} ##ERROR##
*hh=[A]=123.45
x=private z:x{Int a[5,3,2], Char(5) b, Dec(10,2) c[10], Bulk(20) d, Double e hash(10), variant f, variant g}
*x={a=*(),b="",c=*(),d=**BULK**,e=*([A]=123.45),f=**no data**,g=**no data**}
dd=private Dec(5,2) dd[5], *dd=
hh=private Double hh hash(12), *hh=[A]=123.45
[coal] cl_gx_get_all_var_ent: xx(xx)͖`łB
xx=##ERROR##
xx=local Int xx[10], *xx=10,20,30
x.c[0]=10.0, x.c[1]=20.0, x.c[2]=30.0
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2011c368     0 31 32 33 34 35 36 37 38 39 30                   1234567890
2011c378    10 (DATA END)

x.d=**BULK**
x.f="1234567890"
x.g="1234567890"
*** end   test_deftype.cl ***
*** start test_deftype_error.cl ***
ERRMSG="cl_get_def_type: ^w肪Ă܂Btype=[zz]
clerrdisp:rc=-11811(ffffd1dd) at script=[test_deftype_error.cl] line=9
 ---> [LET var y as zz]
cl_exe_scr_set_up: Error occured Define Process
clerrdisp:rc=-33542621(fe002e23) at script=[exec_all_test.cl] line=46
 ---> [exec sc $f $*]"
*** end   test_deftype_error.cl ***
*** start test_deftype2.cl ***
z=local const type z{Int a[5,3,2], Char(5) b, Dec(10,2) c[10], Bulk(20) d, Double e hash(10), variant f, variant g}, x=local z:x{Int a[5,3,2], Char(5) b, Dec(10,2) c[10], Bulk(20) d, Double e hash(10), variant f, variant g}, a=local z:a{Int a[5,3,2], Char(5) b, Dec(10,2) c[10], Bulk(20) d, Double e hash(10), variant f, variant g}
za=local const type Char za[10,7], xa=local Char xa[10,7], *xa="X","Y","Z"
zm=local const type variant zm[(2),4,6], $zmv=local variant zmv[(2),4,6], %zmv=local variant %zmv[(2),4,6], #zmv=local variant #zmv[(2),4,6]
y=23.45, v="AADDD", hh=local Double hh hash(12), *hh=[AA]=1234
xx=local variant xx[10,5,4], *xx=1,2,3,4,5,6
%ymv=private variant %ymv[(1),10]
*** end   test_deftype2.cl ***
*** start test_deftype3.cl ***
[coal] cl_gx_get_all_var_ent: hx(hx)͖`łB
[coal] cl_gx_get_all_var_ent: aa(aa)͖`łB
hx=##ERROR##, aa=##ERROR##, aaa=private const type Int aaa[5]
x=private Dec(5,2) x[5], *x=23.45
xx="1234567890"
y=private variant y[3], z=private variant z[2,3,4], *y=, *z=1,2,3
s=private variant s[7], a="A"
yy=private (private const type Int aaa[5]) yy[3], *yy=*(4,5,6,7)
[coal] cl_gx_get_all_var_ent: zz(zz)͖`łB
[coal] cl_gx_get_all_var_ent: zz(zz)͖`łB
zz=##ERROR##, zz[0]=##ERROR##
yy=private (private const type Int aaa[5]) yy[3], *yy=*(1,2,3,4,5,6,7),*(8,9,10,11,12),*(13)
[coal] cl_gx_get_all_var_ent: %ym͎gpł܂B
%ym=##ERROR##
%ymv=private variant %ymv[(1),10], *%ymv=
[coal] cl_gx_get_all_var_ent: %yma͎gpł܂B
[coal] cl_gx_get_all_var_ent: %yma͎gpł܂B
%yma=##ERROR##, *%yma=##ERROR##
*** end   test_deftype3.cl ***
*** start test_deftype4.cl ***
z=private const type z{Int a, Char(5) b, Dec(10,2) c[10]}
x=private variant x[10]
*x1={a=1,b="qwe",c=*(123.46)}
*x=*({a=1,b="qwe",c=*(123.46)})
*x=*({a=1,b="qwe",c=*(123.46)}),*({a=2,b="fghjk",c=*(0.09)})
y=0.00823, w=0.1823
y1=12.00823, w1=345.1823
*** end   test_deftype4.cl ***
*** start test_deftype5.cl ***
z=private const type z{Int a, Char(5) b, variant c[5]}
x1=private z:x1{Int a, Char(5) b, variant c[5]}
*x1={a=10,b="ABC",c=*(1.1,2.2,3.3,4.4,5.5)}
x2=private (private const type z{Int a, Char(5) b, variant c[5]}) x2[3]
*x2=*({a=10,b="ABC",c=*(1.1,2.2,3.3,4.4,5.5)}),*({a=20,b="XYZ",c=*(11,22,33,44,55)}),*({a=66,b="",c=*()})
x1.a=1, x1.b="qwe"
*x1={a=1,b="qwe",c=*(123.456,2.2,3.3,4.4,5.5)}, x1.c[0]=123.456
y=10
[coal] cl_gx_get_all_var_ent: ww(ww)͖`łB
[coal] cl_gx_get_all_var_ent: ww(ww)͖`łB
[coal] cl_gx_get_all_var_ent: ww(ww)͖`łB
ww=##ERROR##, *ww=##ERROR##, ww[1]=##ERROR##, w[1]=""
*w="","","","XXX"
*x2[0]={a=2,b="fghjk",c=*(0.0876,2.2,3.3,4.4,5.5)}
xa=private variant xa[5]
*x1={a=30,b="DEF",c=*(123.456,6,3.3,4.4,5.5)}
*x2=*({a=2,b="fghjk",c=*(0.0876,2.2,3.3,4.4,5.5)}),*({a=20,b="XYZ",c=*(11,22,33,44,55)}),*({a=66,b="",c=*()})
*x2[2]={a=66,b="",c=*()}
*x1={a=25,b="abcde",c=*(50,*(60,70,80,90,100),110,120,5.5)}
*$()="XXXX",70,80,90,100
*x1={a=25,b="abcde",c=*(50,*("XXXX",70,80,90,100),110,120,5.5)}
*** end   test_deftype5.cl ***
*** start test_deftype6.cl ***
x=private z:x{Int a, Dec(10,2) c[10]}
[coal] f[^ݒłB
[coal] let_compute_sub_opt: Ă܂(rc=-11033)B
[coal] clerrdisp:rc=-11791(ffffd1f1) at script=[test_deftype6.cl] line=13
[coal]  ---> [LET local w++ = 1]
*** end   test_deftype6.cl ***
*** start test_deftype7.cl ***
z=private const type z{Int a, Char(5) b, Dec(10,2) c[10]}
p=public int
y=global z:y{Int a, Char(5) b, Dec(10,2) c[10]}
g=global (no data)
global g=global (no data)
[coal] _ex_conv_parm_opt: g̃f[^ݒłB
g=##ERROR##
[coal] _ex_conv_parm_opt: <G>g̃f[^ݒłB
global g=##ERROR##
x=global (private const type z{Int a, Char(5) b, Dec(10,2) c[10]}) x[5]
x[0]=z:z{Int a, Char(5) b, Dec(10,2) c[10]}
x[0]=z:z{Int a, Char(5) b, Dec(10,2) c[10]}
*x[0]={a=100,b="XY",c=*(11.0,22.0,33.0)}
x[1].b="ABC"
*y={a=100,b="ABC",c=*(1.0,2.0,3.0,4.0,5.0,6.0)}
*** end   test_deftype7.cl ***
*** start test_deftype8.cl ***
z=private const type z{Int a, Char(5) b, Dec(10,2) c}, zz=local type z{Int a, Char(5) b, Dec(10,2) c}
yy=local z:y{Int a, Char(5) b, Dec(10,2) c}, *yy={a=1,b="XYZ",c=123.45}, y=private z:y{Int a, Char(5) b, Dec(10,2) c}, *y={a=1,b="XYZ",c=123.45}
yy=local z:yy{Int a, Char(5) b, Dec(10,2) c}, *yy={a=1,b="12345",c=123.45}, y=private z:y{Int a, Char(5) b, Dec(10,2) c}, *y={a=1,b="XYZ",c=123.45}
x=local z:x{Int a, Char(5) b, Dec(10,2) c}, *x={a=10,b="XYZ",c=-21.5}
f('XYZ')=0
x=local z:x{Int a, Char(5) b, Dec(10,2) c}, *x={a=10,b="KJHG",c=-21.5}
f('KJHG')=0
x=local z:x{Int a, Char(5) b, Dec(10,2) c}, *x={a=10,b="UP",c=-21.5}
f('UP')=0
w=private (private const type z{Int a, Char(5) b, Dec(10,2) c}) w[2], *w=*({a=2,b="X",c=23.5}),*({a=10,b="Y",c=99.9})
*ww=*({a=2,b="X",c=23.5}),*({a=10,b="ZZ",c=99.9}), *w=*({a=2,b="X",c=23.5}),*({a=10,b="ZZ",c=99.9})
*xx=*({a=2,b="X",c=23.5}),*({a=10,b="AA",c=99.9}), *w=*({a=2,b="X",c=23.5}),*({a=10,b="ZZ",c=99.9})
aa=private variant aa[2], *aa=10,20
*bb=10,100, *aa=10,100
*cc=10,200, *aa=10,100
*** end   test_deftype8.cl ***
*** start test_detab.cl ***
123dvdrtvj	сl
ssd	344	xcdv
*** end   test_detab.cl ***
*** start test_dir.cl ***
*** . ***
i=0 val=3
i=1 val=-789786384
i=2 val=352559
i=3 val=16895
i=4 val=1
i=5 val=1006
i=6 val=513
i=7 val=0
i.Value=4d50 Z 2800 Z Z 0001 Z Z Z Z Z Z Z Z Z Z Z Z Z Z
i=8 val=0
i=9 val=1355598491
i=10 val=411015800
i=11 val=1355598491
i=12 val=411015800
i=13 val=1489774716
i=14 val=208077700
i=15 val=65536
i=16 val=4
*** .. ***
i=0 val=3
i=1 val=-789786384
i=2 val=352191
i=3 val=16895
i=4 val=1
i=5 val=1006
i=6 val=513
i=7 val=0
i.Value=4d50 Z 2800 Z Z 0001 Z Z Z Z Z Z Z Z Z Z Z Z Z Z
i=8 val=0
i=9 val=1642553316
i=10 val=285723000
i=11 val=1642553316
i=12 val=285723000
i=13 val=1642553316
i=14 val=285723000
i=15 val=65536
i=16 val=160
*** b ***
i=0 val=5
i=1 val=-789786384
i=2 val=352560
i=3 val=33279
i=4 val=1
i=5 val=1006
i=6 val=513
i=7 val=0
i.Value=4d50 Z 2800 0100 Z Z 5400 Z Z Z Z Z Z Z Z Z Z Z Z Z
i=8 val=84
i=9 val=1355598491
i=10 val=364215700
i=11 val=1193412927
i=12 val=0
i=13 val=1362487504
i=14 val=778717900
i=15 val=65536
i=16 val=1
*** coal_nofree.log ***
i=0 val=5
i=1 val=-789786384
i=2 val=352561
i=3 val=33279
i=4 val=1
i=5 val=1006
i=6 val=513
i=7 val=0
i.Value=4d50 Z 2800 0100 Z Z 2d00 Z Z Z Z Z Z Z Z Z Z Z Z Z
i=8 val=45
i=9 val=1355598491
i=10 val=379815800
i=11 val=1195564180
i=12 val=0
i=13 val=1362487504
i=14 val=778717900
i=15 val=65536
i=16 val=1
*** debug_log ***
i=0 val=5
i=1 val=-789786384
i=2 val=352562
i=3 val=33279
i=4 val=1
i=5 val=1006
i=6 val=513
i=7 val=0
i.Value=4d50 Z 2800 0200 0100 Z 0341 Z Z Z Z Z Z Z Z Z Z Z Z Z
i=8 val=365
i=9 val=1355598491
i=10 val=379815800
i=11 val=1279853742
i=12 val=0
i=13 val=1362487504
i=14 val=778717900
i=15 val=65536
i=16 val=1
*** error_log ***
i=0 val=5
i=1 val=-789786384
i=2 val=352563
i=3 val=33279
i=4 val=1
i=5 val=1006
i=6 val=513
i=7 val=0
i.Value=4d50 Z 2800 0200 0100 Z 053d Z Z Z Z Z Z Z Z Z Z Z Z Z
i=8 val=561
i=9 val=1355598491
i=10 val=379815800
i=11 val=1229931517
i=12 val=0
i=13 val=1362487504
i=14 val=778717900
i=15 val=65536
i=16 val=1
*** grant.sql ***
i=0 val=5
i=1 val=-789786384
i=2 val=352564
i=3 val=33279
i=4 val=1
i=5 val=1006
i=6 val=513
i=7 val=0
i.Value=4d50 Z 2800 0100 Z Z 3c00 Z Z Z Z Z Z Z Z Z Z Z Z Z
i=8 val=60
i=9 val=1355598491
i=10 val=411015800
i=11 val=1244313244
i=12 val=0
i=13 val=1489774716
i=14 val=192477700
i=15 val=65536
i=16 val=1
[coal] _func_readdir: end of dir
*** end   test_dir.cl ***
*** start test_do.cl ***
"do2"
"do1"
"do1_1 $i=", $i=1
"do2_1 $i=", $i=2
"do2_2 $i=", $i=3
"do1_2 $i=", $i=4
*** end   test_do.cl ***
*** start test_do_for.cl ***
i=0, d[i]=1, s[i]=1
i=1, d[i]=2, s[i]=2
i=2, d[i]=3, s[i]=3
i=3, d[i]=4, s[i]=4
i=4, d[i]=5, s[i]=5
i=5, d[i]=6, s[i]=6
i=6, d[i]=7, s[i]=7
i=7, d[i]=8, s[i]=8
i=8, d[i]=9, s[i]=9
i=9, d[i]=10, s[i]=10
*** end   test_do_for.cl ***
*** start test_do_while.cl ***
MAX_LOOP_WHILE=100000
MAX_LOOP_WHILE=10
"do while", $i=0
"do while", $i=1
"do while", $i=2
"do while", $i=3
"do while", $i=4
*** end   test_do_while.cl ***
*** start test_dot.cl ***
(1).0="1"
(1).(0)="1"
[coal] cl_gx_compile: Zq܂B1. (
1.(0)=##ERROR##
1
1
(1).print()=0, 1.print()=0
"AA"
System.print('AA')=0
[coal] cl_gx_compile: [.]̌[*]̈ʒusłB
x.*y=##ERROR##
[coal] cl_gx_compile: [.]̌[/]̈ʒusłB
[coal] cl_gx_compile: [.]̌[/]̈ʒusłB
x./y=##ERROR##, 1./y=0.5, (1)./y=##ERROR##
x=1
s.a=100
text.6="67890"
text.b="345678"
text.c="34567"
[coal] _get_pos: ͈͎w肪擪ȊOɂ܂Bi=1
text.d=##ERROR##
[coal] str_pos1: ȊO̕[XYZ]܂(pos=1)B
text.e=##ERROR##
x=10, y=20
s.a=100
text.b="3456"
s.a=100
text.b="3456"
x="AAAA"
s.a=100
text.6="6"
text.b="3456"
text.c="3456"
[coal] _get_pos: ͈͎w肪擪ȊOɂ܂Bi=1
text.d=##ERROR##
[coal] str_pos1: ȊO̕[XYZ]܂(pos=1)B
text.e=##ERROR##
x="BBBB", y="CCC"
s.a=100
text.b="3456"
s.a=100
text.b="3456"
*('A'..'Z')="A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"
*** end   test_dot.cl ***
*** start test_dot2.cl ***
x="BBBB", y="CCC"
(-1).abs()=1
(-1).(abs(2))="1"
'abs'.ff()(-3)=3
'abs'.f(-3)=3
(-10).('abs'.ff())()=10
x.abs()=10
*** end   test_dot2.cl ***
*** start test_dot3.cl ***
e="XYZ".."3..8", *e="X"
[coal] str_pos1: ȊO̕[XYZ]܂(pos=1)B
text.e=##ERROR##
*** end   test_dot3.cl ***
*** start test_each.cl ***
$x=local const $x{char(1) Index, int Value}, *$x={Index="A",Value=1}, countv($x.Value)=1
$x=local const $x{char(11) Index, int Value}, *$x={Index="B```,,`,``C",Value=2}, countv($x.Value)=1
$x=local const $x{char(1) Index, {int,int,int}}, *$x={Index="C",Value={1,2,3}}, countv($x.Value)=3
$x=local const $x{int Index, int Value}, *$x={Index=0,Value=1}, countv($x.Value)=1
$x=local const $x{int Index, int Value}, *$x={Index=1,Value=2}, countv($x.Value)=1
$x=local const $x{int Index, int Value}, *$x={Index=2,Value=3}, countv($x.Value)=1
$x=local const $x{int Index, int Value}, *$x={Index=0,Value=1}
$x=local const $x{int Index, int Value}, *$x={Index=1,Value=2}
$x=local const $x{int Index, char Value}, *$x={Index=2,Value=}
$x=local const $x{int Index, char(1) Value}, *$x={Index=3,Value="A"}
$b[2]="X", $b[4]="Y"
$x=local const $x{int Index, char(1) Value}, *$x={Index=0,Value="A"}
$x=local const $x{int Index, char(1) Value}, *$x={Index=2,Value="X"}
*c=1,2,3,0,100
$x=local const x{int Index, int Value}, *$x={Index=0,Value=1}
$x=local const x{int Index, int Value}, *$x={Index=1,Value=2}
$x=local const x{int Index, int Value}, *$x={Index=2,Value=3}
$x=local const x{int Index, int Value}, *$x={Index=3,Value=0}
$x=local const x{int Index, int Value}, *$x={Index=4,Value=100}
$x=local const $x{int Index, char(2) Value}, *$x={Index=0,Value="AA"}
$x=local const $x{int Index, char(1) Value}, *$x={Index=0,Value="B"}
$x=local const $x{int Index, char(1) Value}, *$x={Index=0,Value="A"}
$x=local const $x{int Index, char(1) Value}, *$x={Index=2,Value="X"}
$x.Value=1, $x.Index=0
$x.Value=2, $x.Index=1
$x.Value=3, $x.Index=2
$x.Value=4, $x.Index=3
$x.Value=5, $x.Index=4
xlist={1,2,3,4,5,"A","B"}
ylist={"A","B"}
*$x={Index=0,Value=(2022/01/19 09:48:36)}
*$x={Index=1,Value=(2022/01/20 09:48:36)}
*$x={Index=2,Value=(2022/01/21 09:48:36)}
*** end   test_each.cl ***
*** start test_each_range.cl ***
a=2..5, *a=2,3,4,5, 3..6=3..6, 'A'..'Z'="A".."Z"
"a"
*x={Index=0,Value=2}, x.value=2
*x={Index=1,Value=3}, x.value=3
*x={Index=2,Value=4}, x.value=4
*x={Index=3,Value=5}, x.value=5
"*a"
*x={Index=0,Value=2}
*x={Index=1,Value=3}
*x={Index=2,Value=4}
*x={Index=3,Value=5}
"**a"
*x={Index=0,Value=2}
*x={Index=1,Value=3}
*x={Index=2,Value=4}
*x={Index=3,Value=5}

*x={Index=0,Value=*(2,3,4,5)}, x.value=2..5
*x={Index=1,Value=*(10,11,12,13,14,15)}, x.value=10..15
*** end   test_each_range.cl ***
*** start test_each1.cl ***
x=private variant x[10]
x="xxx"
x=local const x{char(1) Index, int Value}
x.value=1, x.index="A"
x=local const x{char(11) Index, int Value}
x.value=2, x.index="B```,,`,``C"
[coal] cl_gx_get_lg_var_ent: x̃f[^ݒłB
local x=##ERROR##
private x=private variant x[10]
*** end   test_each1.cl ***
*** start test_each2.cl ***
[coal] DUMP1= pInfo=0022c508 id=0x20[ ] attr=2 scale=0x40 code=0 dlen=4 len(gid)=0 hlen=0 pos=9(00000009) aux=0x00 0x80 auxlen=0000 00000000 data=0022c510 9
(1,2,3,4,5,6,7,8,9)=#DUMP1#
x.Index=0, x.Value=1
x.Index=1, x.Value=2
x.Index=2, x.Value=3
x.Index=3, x.Value=4
x.Index=4, x.Value=5
x.Index=5, x.Value=6
x.Index=6, x.Value=7
x.Index=7, x.Value=8
x.Index=8, x.Value=9
*x={Index=0,Value=1}
*x={Index=1,Value=2}
*x={Index=2,Value=3}
*x={Index=3,Value=4}
*x={Index=4,Value=5}
*x={Index=5,Value="A"}
*x={Index=6,Value="B"}
*x={Index=7,Value="C"}
*** end   test_each2.cl ***
*** start test_ecmd.cl ***
ecmd('',0)=0, ERROR=0
[coal] cl_tree_main: [DEFINE]͎gpł܂B
[coal] cllex:Create tree error=-11110 at script=[MEM:] line=1
[coal]  ---> [define y]
ecmd('print 1 2;print ''AA'';define y;')=##ERROR##, ERROR=0
[coal] _ecmd_chk: define͎gpł܂B
ecmd('define x;')=##ERROR##, ERROR=0
x=100
ecmd('dim x as int=100;print x;')=0, ERROR=0
x=100
[coal] _ecmd_chk: loop͎gpł܂B
ecmd('loop 5;')=##ERROR##, ERROR=0
[coal] Outside of loop or switch!!
ecmd('break;')=##ERROR##, ERROR=0
[coal] Outside of loop or switch!!
ecmd('continue;')=##ERROR##, ERROR=0
ecmd('BEXP $1 = ''A'' concat 6;')=0, ERROR=0
[coal] _ecmd_chk: SQL͎gpł܂B
ecmd('SQL '''' c ''select * from table'';')=##ERROR##, ERROR=0
[coal] Yf[^i[GAID݂Ȃ
ecmd('READ;',%1)=##ERROR##, ERROR=0
ecmd('OUTPUT tx x y;')=0, ERROR=0
[coal] _ecmd_chk: SLEEP͎gpł܂B
ecmd('SLEEP;')=##ERROR##, ERROR=0
[coal] _ecmd_chk: LEAVE͎gpł܂B
ecmd('LEAVE aaaa;')=##ERROR##, ERROR=0
[coal] x=100, "ab`ab"
ecmd('LPRINT x ''ab`ab'';')=0, ERROR=0
100 ab`ab
ecmd('ECHO x y;')=0, ERROR=0
100 ab`ab
ecmd('SAY x y;')=0, ERROR=0
[coal] x= pInfo=0022a58c id=0x20[ ] attr=2 scale=0x40 code=0 dlen=4 len(gid)=4 hlen=0 pos=100(00000064) aux=0x02 0x11 auxlen=0000 200fd908 data=0022a594 100
[coal] y= pInfo=0022a58c id=0x20[ ] attr=1 scale=0x00 code=5 dlen=29 len(gid)=0 hlen=0 pos=2(00000002) aux=0x00 0x11 auxlen=0000 00000000 data=200f5f18 [ab`ab]
ecmd('DUMP x y;')=0, ERROR=0
100 y=ab`ab
ecmd('PRINTF f x y;')=0, ERROR=0
[coal] 100 y=ab`ab
ecmd('LPRINTF f x y;')=0, ERROR=0
ecmd('LOGPARM;')=0, ERROR=0
ecmd('REDEFINE dec(10,3) dd;')=0, ERROR=0
dd=12345.679
ecmd('REDEF dec(7,2) dd;')=0, ERROR=0
dd=12345.68
ecmd('UNDEFINE dd;')=0, ERROR=0
[coal] _undefine: [dd]͖`łB
ecmd('UNDEF dd;')=0, ERROR=0
[coal] _ecmd_chk: IMPORT͎gpł܂B
ecmd('IMPORT;')=##ERROR##, ERROR=0
ecmd('THROW 100;')=0, ERROR=0
ecmd('RAISE 200;')=0, ERROR=0
ERRMSG="_ecmd_chk: IMPORT͎gpł܂B"
*** end   test_ecmd.cl ***
*** start test_ecmd2.cl ***
1
2
1
2
*** end   test_ecmd2.cl ***
*** start test_edit.cl ***
edit('%11s',$a)=" 2000/04/20"
edit('%-11s',$a)="2000/04/20 "
edit('%9s',$a)="2000/04/20"
edit('%-9s',$a)="2000/04/20"
edit('%d %d %d %d %d','12',1,10.5,10.5D,$b)="12 1 10 10 537644936"
edit('%i %i %i %i %i','12',1,10.5,10.5D,$b)="12 1 10 10 537644936"
edit('%u %u %u %u %u','12',-1,10.5,-10.5D,$b)="12 4294967295 10 4294967286 537644936"
edit('%x %x %x %X %X','12',123,10.5,-10.5D,$b)="c 7b a FFFFFFF6 200BCF88"
edit('%e %e %e %e %e','12',1,10.5,10.5D,$b)="1.200000e+01 1.000000e+00 1.050000e+01 1.050000e+01 (ERR)"
edit('[%c] [%c] [%c] [%c] [%c]','12',1,10.5,10.5D,$b)="[1] [] [
] [
] []"
[coal] cl_edit_sub:BIN:: ȊO̕[2000/04/20]܂(pos=5)B
[coal] cl_edit_sub:BIN:: ȊO̕[2000/04/20]܂(pos=5)B
[coal] cl_edit_sub:DOUBLE:: ȊO̕[2000/04/20]܂(pos=5)B
[coal] cl_edit_sub:DOUBLE:: ȊO̕[2000/04/20]܂(pos=5)B
$a="2000/04/20", edit('(%s) %x %d %f %e [%c]',$a,$a,$a,$a,$a,$a)="(2000/04/20) (ERR) (ERR) (ERR) (ERR) [2]"
$a=65, $c="(65) 41 65 65.000000 6.500000e+01 [A]"
$a=65, $c="(65) 41 65 65.000 6.500000e+01 [A] 65 0x1.04p+6"
[coal] cl_edit_sub:DOUBLE:: ȊO̕[1.2z]܂(pos=2)B
[coal] cl_edit_sub:BIN:: ȊO̕[X]܂(pos=1)B
[coal] cl_conv_const_mpasub: wĂ܂B
[coal] Xg͎wł܂B
edit('%.3f %d %g %S','1.2z','X','12ec',list(1))="(ERR) (ERR) (ERR) (ERR)"
[coal] cl_edit_sub:DOUBLE:: ȊO̕[1.2z]܂(pos=2)B
[coal] cl_edit_sub:BIN:: ȊO̕[X]܂(pos=1)B
[coal] cl_conv_const_mpasub: wĂ܂B
eedit('%.3f %d %g %S','1.2z','X','12ec',list(1))="(ERR) (ERR) (ERR) <{1}>"
eedit('%.3f %d %g %s','1.2','99','12e1',list(1))="1.200 99 120 <{1}>"
edit('%r %r %8.3r %r %r %r','12',1,10.5,10.5D,$b,'ABC')="12 1   10.500 10.5 000003db ABC"
[coal] cl_edit_sub:DOUBLE:: ȊO̕[ABC]܂(pos=1)B
edit('%a %a %8.3a %a %a %a','12',1,10.5,10.5D,$b,'ABC')="0x1.8p+3 0x1p+0 0x1.500p+3 0x1.5p+3 (ERR) (ERR)"
edit('%p %p %8.3p %p %p %p','12',1,10.5,10.5D,$b,'ABC')="0x20181621 0x200ecf40 0x20181678 0x200ecf80 0x200bcf88 0x201816fc"
*** end   test_edit.cl ***
*** start test_elseif.cl ***
"%1=", %1=
"%1=", %1=
*** end   test_elseif.cl ***
*** start test_elsel.cl ***
"else", %1=
"else", %1=
%4=
%4=
"D"
*** end   test_elsel.cl ***
*** start test_env.cl ***
getenv('LOGNAME')="koba"
getenv('HOST')="KOBA-PC"
getenv('SCRIPTPATH')="/tmp/tools:/tmp/coal_new/src/appl/coal/test:~/develop/src/appl/seikei_tools:~/ostreet/script/bunsho:~/ostreet/script/kanri:~/ostreet/script/tools:~/ostreet/script/common:~/develop/src/appl/coal/test"
*** end   test_env.cl ***
*** start test_errmsg.cl ***
[coal] fopen([rrr],[r]) errno=2 No such file or directory
ERRNO=2, STRERROR="No such file or directory", EXCEPTION=0x86010002
ERROR=-1, ERRMSG="fopen([rrr],[r]) errno=2 No such file or directory"
ERRMSG="fopen([rrr],[r]) errno=2 No such file or directory"
*** end   test_errmsg.cl ***
*** start test_error.cl ***
[coal] zerofBoCh܂B
[coal] let_compute_sub_opt: Ă܂(rc=-1)B
[coal] clerrdisp:rc=-11791(ffffd1f1) at script=[test_error.cl] line=15
[coal]  ---> [LET 1/0]
[coal] _ex_conv_parm_opt: ֐(funcf)̖߂l̃f[^ݒłB
[coal] let_compute_sub_opt: Ă܂(rc=-11056)B
[coal] clerrdisp:rc=-11791(ffffd1f1) at script=[test_error.cl] line=4
[coal]  ---> [LET a = funcf()]
ERRMSG="zerofBoCh܂B
let_compute_sub_opt: Ă܂(rc=-1)B
clerrdisp:rc=-11791(ffffd1f1) at script=[test_error.cl] line=15
 ---> [LET 1/0]
_ex_conv_parm_opt: ֐(funcf)̖߂l̃f[^ݒłB
let_compute_sub_opt: Ă܂(rc=-11056)B
clerrdisp:rc=-11791(ffffd1f1) at script=[test_error.cl] line=4
 ---> [LET a = funcf()]"
*** end   test_error.cl ***
*** start test_eval.cl ***
[coal] cl_gx_exp_gp_obj_opt: ܂B
[coal] cl_ex_eval: ܂B
eval('',1)=##ERROR##, ERROR=0
[coal] cl_gx_exp_gp_obj_opt: ܂B
[coal] cl_ex_eval: ܂B
eval('',2)="", ERROR=100
eval('1+1')=2, ERROR=0
eval('1+1',1)=2, ERROR=0
eval('$x+1',1)=##ERROR##, ERROR=0
[coal] cl_gx_get_all_var_ent: $x(x)͖`łB
[coal] cl_ex_eval: Ă܂(rc=-11012)B
eval('$x+1',2)="", ERROR=-11012
ERRMSG="cl_gx_get_all_var_ent: $x(x)͖`łB
cl_ex_eval: Ă܂(rc=-11012)B"
*** end   test_eval.cl ***
*** skip  #test_exit.cl ***
*** skip  #test_exit_sub.cl ***
*** start test_felwrite1.cl ***
$ERROR=0, $ERRMSG=""
$ERROR=0, $ERRMSG=""
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20189320     0 41 42 43 44 45 46                               ABCDEF
20189330     6 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200c3cc8     0 41 42 43 44 45 46                               ABCDEF
200c3cd8     6 (DATA END)

$a="ABCDEF", $aa="ABCDEF", $b=100, $bb=100, $c=12.4, $cc=12.4, $d=25.3, $dd=25.300000000000000, $e=**BULK**, $ee=**BULK**, $ff=(2022/01/19 09:48:36)
*** end   test_felwrite1.cl ***
*** start test_felwrite1_0.cl ***
$ERROR=0, $ERRMSG=""
$ERROR=0, $ERRMSG=""
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20116688     0 41 42 43 44 45 46                               ABCDEF
20116698     6 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200e9928     0 41 42 43 44 45 46                               ABCDEF
200e9938     6 (DATA END)

$a="ABCDEF", $aa="ABCDEF", $b=100, $bb=100, $c=12.4, $cc=12.4, $d=25.3, $dd=25, $e=**BULK**, $ee=**BULK**
*** end   test_felwrite1_0.cl ***
*** start test_felwrite1_1.cl ***
$ERROR=0, $ERRMSG=""
felwrite1($fp,$a,1)=1
felwrite1($fp,$b,1)=1
[coal] _func_felwrite1: attr=3 size(3) is few!!
felwrite1($fp,$c,3)=##ERROR##
[coal] _felwrite1: m_pack_size: size(2) is few!!
felwrite1($fp,$d,2)=##ERROR##
felwrite1($fp,$e,1)=1
$ERROR=0, $ERRMSG="_felwrite1: m_pack_size: size(2) is few!!"
[coal] _func_felread1: attr=3 size(3) is few!!
[coal] let_compute_sub_opt: Ă܂(rc=-1)B
[coal] clerrdisp:rc=-11791(ffffd1f1) at script=[test_felwrite1_1.cl] line=20
[coal]  ---> [LET $cc = felread1($fp,3,3)]
ERRMSG="_func_felread1: attr=3 size(3) is few!!
let_compute_sub_opt: Ă܂(rc=-1)B
clerrdisp:rc=-11791(ffffd1f1) at script=[test_felwrite1_1.cl] line=20
 ---> [LET $cc = felread1($fp,3,3)]"
*** end   test_felwrite1_1.cl ***
*** start test_felwrite1_2.cl ***
$ERROR=0, $ERRMSG=""
felwrite1($fp,$a,6)=6
felwrite1($fp,$b,9)=9
felwrite1($fp,$c,9)=9
felwrite1($fp,$d,3)=0
felwrite1($fp,$e,6)=6
$ERROR=0, $ERRMSG=""
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
201204b8     0 41 42 43 44 45 46                               ABCDEF
201204c8     6 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200bc618     0 41 42 43 44 45 46                               ABCDEF
200bc628     6 (DATA END)

$a="ABCDEF", $aa="ABCDEF", $b=100, $bb=100, $c=12.4, $cc=12.4, $d=25.3, $dd=25.3, $e=**BULK**, $ee=**BULK**
*** end   test_felwrite1_2.cl ***
*** start test_felwrite1_3.cl ***
$ERROR=0, $ERRMSG=""
felwrite1($fp,$a,10)=10
felwrite1($fp,$b,9)=9
felwrite1($fp,$c,9)=9
felwrite1($fp,$d,5,2)=0
felwrite1($fp,$e,10)=10
$ERROR=0, $ERRMSG=""
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
201193f8     0 41 42 43 44 45 46                               ABCDEF
20119408     6 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200ebe70     0 41 42 43 44 45 46 00 00 00 00                   ABCDEF....
200ebe80    10 (DATA END)

$a="ABCDEF", $aa="ABCDEF    ", $b=-100, $bb=-100, $c=12.4, $cc=12.4, $d=-25.3, $dd=-25.3, $e=**BULK**, $ee=**BULK**
*** end   test_felwrite1_3.cl ***
*** start test_felwrite1_4.cl ***
$ERROR=0, $ERRMSG=""
felwrite1($fp,$d,,4)=0
$ERROR=0, $ERRMSG=""
[coal] cl_gx_get_all_var_ent: $aa(aa)͖`łB
[coal] cl_gx_get_all_var_ent: $bb(bb)͖`łB
[coal] cl_gx_get_all_var_ent: $cc(cc)͖`łB
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200bcf88     0 41 42 43 44 45 46                               ABCDEF
200bcf98     6 (DATA END)

[coal] cl_gx_get_all_var_ent: $ee(ee)͖`łB
$a="ABCDEF", $aa=##ERROR##, $b=-100, $bb=##ERROR##, $c=12.4, $cc=##ERROR##, $d=-25.3, $dd=-25.300, $e=**BULK**, $ee=##ERROR##
*** end   test_felwrite1_4.cl ***
*** start test_felwrite1_5.cl ***
$ERROR=0, $ERRMSG=""
felwrite1($fp,$a,8,8)=8
felwrite1($fp,$b,3,3)=3
felwrite1($fp,$c,8,8)=8
felwrite1($fp,$d,3,1)=0
felwrite1($fp,$e,8,8)=8
$ERROR=0, $ERRMSG=""
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200bf578     0 41 42 43 44 45 46                               ABCDEF
200bf588     6 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200bcf88     0 41 42 43 44 45 46                               ABCDEF
200bcf98     6 (DATA END)

$a="ABCDEF", $aa="ABCDEF  ", $b=-100, $bb=-100, $c=12.4, $cc=12.4, $d=-25.3, $dd=-25.3, $e=**BULK**, $ee=**BULK**
*** end   test_felwrite1_5.cl ***
*** start test_felwrite1_6.cl ***
$ERROR=0, $ERRMSG=""
felwrite1($fp,$b,5,1)=5
felwrite1($fp,$c,5,1)=5
felwrite1($fp,$b,5,2)=5
felwrite1($fp,$c,5,2)=5
felwrite1($fp,$b,5,4)=5
felwrite1($fp,$c,5,4)=5
felwrite1($fp,$b,5,5)=5
felwrite1($fp,$c,5,5)=5
$b=-100, $bb=-100, $c=12.4, $cc=12.39999961853027
$b=-100, $bb=-100, $c=12.4, $cc=12.39999961853027
$b=-100, $bb=-100, $c=12.4, $cc=12.39999961853027
$b=-100, $bb=-100, $c=12.4, $cc=12.39999961853027
*** end   test_felwrite1_6.cl ***
*** start test_skip_opt.cl ***
[coal] cl_func_comp: p[^܂B
text="aaaaa2222AAAAAAAxxYYyzZz%ppppppAA  ", w=12, skip_opt(text,w)=##ERROR##
skip_opt(text,'a')=1
skip_opt(text,'')=1
text skip_opt 'a2'=1
skip_opt(text,'a2','N')=10
skip_opt(text,'%',0x08)=27
skip_opt(text,'',0x08)=28
skip_opt(text,'yz',0x08)=21
skip_opt(text,'aA',0x02|0x08)=36
Skip_opt(text,'yz',0x01|0x08)=19
*** end   test_skip_opt.cl ***
*** start test_felwrite1_7.cl ***
$ERROR=0, $ERRMSG=""
felwrite1($fp,$b,9,1)=9
felwrite1($fp,$c,9,1)=9
[coal] cl_gx_get_all_var_ent: $felwrite1(felwrite1)͖`łB
felwrite1($fp,$b,9,2)=9, $felwrite1=##ERROR##
felwrite1($fp,$c,9,2)=9
[coal] cl_gx_get_all_var_ent: $felwrite1(felwrite1)͖`łB
felwrite1($fp,$b,9,4)=9, $felwrite1=##ERROR##
felwrite1($fp,$c,9,4)=9
felwrite1($fp,$b,9,8)=9
felwrite1($fp,$c,9,8)=9
felwrite1($fp,$b,9,9)=9
felwrite1($fp,$c,9,9)=9
$ERROR=0, $ERRMSG="cl_gx_get_all_var_ent: $felwrite1(felwrite1)͖`łB"
$b=-100, $bb=-100, $c=12.4, $cc=12.39999961853027
$b=-100, $bb=-100, $c=12.4, $cc=12.39999961853027
$b=-100, $bb=-100, $c=12.4, $cc=12.39999961853027
$b=-100, $bb=-100, $c=12.4, $cc=12.4
$b=-100, $bb=-100, $c=12.4, $cc=12.4
*** end   test_felwrite1_7.cl ***
*** start test_felwrite1_8.cl ***
$ERROR=0, $ERRMSG=""
felwrite1($fp,$b,9,-1)=9
felwrite1($fp,$c,9,-1)=9
felwrite1($fp,$b,9,-2)=9
felwrite1($fp,$c,9,-2)=9
felwrite1($fp,$b,9,-4)=9
felwrite1($fp,$c,9,-4)=9
felwrite1($fp,$b,9,-8)=9
felwrite1($fp,$c,9,-8)=9
felwrite1($fp,$b,9,-9)=9
felwrite1($fp,$c,9,-9)=9
$ERROR=0, $ERRMSG=""
$b=-100, $bb=-100, $c=12.4, $cc=12.39999961853027
$b=-100, $bb=-100, $c=12.4, $cc=12.39999961853027
$b=-100, $bb=-100, $c=12.4, $cc=12.39999961853027
$b=-100, $bb=-100, $c=12.4, $cc=12.4
$b=-100, $bb=-100, $c=12.4, $cc=12.4
*** end   test_felwrite1_8.cl ***
*** start test_felwrite1_9.cl ***
$ERROR=0, $ERRMSG=""
felwrite1($fp,$a,8,5)=8
felwrite1($fp,$e,8,5)=8
felwrite1($fp,$a,8,-5)=8
felwrite1($fp,$e,8,-5)=8
felwrite1($fp,$a,8,4)=8
felwrite1($fp,$e,8,4)=8
felwrite1($fp,$a,8,-4)=8
felwrite1($fp,$e,8,-4)=8
n=felwrite1($fp,$f,15)=15
$ERROR=0, $ERRMSG=""
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200bcf88     0 41 42 43 44                                     ABCD
200bcf98     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
201204b8     0 41 42 43 44 00                                  ABCD.
201204c8     5 (DATA END)

$a="ABCD", $aa="ABCD    ", $e=**BULK**, $ee=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200bcf88     0 41 42 43 44                                     ABCD
200bcf98     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
201204b8     0 41 42 43 44 00                                  ABCD.
201204c8     5 (DATA END)

$a="ABCD", $aa="ABCD ", $e=**BULK**, $ee=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200bcf88     0 41 42 43 44                                     ABCD
200bcf98     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
201204b8     0 41 42 43 44                                     ABCD
201204c8     4 (DATA END)

$a="ABCD", $aa="ABCD    ", $e=**BULK**, $ee=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200bcf88     0 41 42 43 44                                     ABCD
200bcf98     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
201204b8     0 41 42 43 44                                     ABCD
201204c8     4 (DATA END)

$a="ABCD", $aa="ABCD", $e=**BULK**, $ee=**BULK**
$f="`ab", $ff="`ab   ", $ff=e38182efbca1efbca2efbca3202020
*** end   test_felwrite1_9.cl ***
*** start test_fgetline.cl ***
%0=2
ERRMSG="fgetline: end of file
let_compute_sub_opt: Ă܂(rc=-2046623743)B
clerrdisp:rc=-2046623743(86030001) at script=[test_fgetline.cl] line=15
 ---> [LET a = fgetline(fpr)]"
*** end   test_fgetline.cl ***
*** start test_file.cl ***
[coal] z(x)͎wł܂B
elwrite1(x)=##ERROR##
[coal] \͎̂wł܂B
elwrite1(xx)=##ERROR##
aaaaaa123
   d       %0      ABCDEF
270\͎̂wł܂B
zzzzzzzzz
*** end   test_file.cl ***
*** start test_for.cl ***
$x=0, $i=1
$x=1, $i=2
$x=2, $i=3
$x=3, $i=4
$x=0, $i=5
[coal] zerofBoCh܂B
[coal] let_compute_sub_opt: Ă܂(rc=-1)B
[coal] clerrdisp:rc=-11791(ffffd1f1) at script=[test_for.cl] line=12
[coal]  ---> [for ($x=0 ;$x<4;x++,x/0) AS lfor]
ERRMSG="zerofBoCh܂B
let_compute_sub_opt: Ă܂(rc=-1)B
clerrdisp:rc=-11791(ffffd1f1) at script=[test_for.cl] line=12
 ---> [for ($x=0 ;$x<4;x++,x/0) AS lfor]"
*** end   test_for.cl ***
*** start test_for_loopmax.cl ***
1
2
3
4
5
6
7
8
9
10
10
9
8
7
6
5
4
3
2
1
0
1
2
3
4
5
6
7
8
9
10
9
8
7
6
5
4
3
2
1
*** end   test_for_loopmax.cl ***
*** start test_for_to_step.cl ***
5
3
1
*** end   test_for_to_step.cl ***
*** start test_for2.cl ***
$a['A']=1, $a['B',,'C']=2
"  for", $x=0
"    ", $y.Value=1, $y.Index="A"
"    ", $y.Value=2, $y.Index="B`,`,C"
"  for", $x=1
"    ", $y.Value=1, $y.Index="A"
"    ", $y.Value=2, $y.Index="B`,`,C"
"  for", $x=2
"    ", $y.Value=1, $y.Index="A"
"    ", $y.Value=2, $y.Index="B`,`,C"
"  for", $x=1
"    ", $y.Value=1, $y.Index="A"
"    ", $y.Value=2, $y.Index="B`,`,C"
"  for", $x=2
"    ", $y.Value=1, $y.Index="A"
"    ", $y.Value=2, $y.Index="B`,`,C"
*** end   test_for2.cl ***
*** start test_for3.cl ***
0
2
4
6
8
10
10
8
6
4
2
0
0
1
2
3
*** end   test_for3.cl ***
*** start test_func.cl ***
aaaaaa123
$ERROR=0, $ERRMSG=""
$ERROR=0, $ERRMSG=""
$a=100, $x=100, $b=25.3, $y=25.300000000000000, $c="ABCDEF", $z="ABCDEF"
*** end   test_func.cl ***
*** start test_func_array.cl ***
[coal] cl_gx_array_bexp: CfbNXw肳Ă܂B
a[]=##ERROR##
[coal] z(a)͎wł܂B
a[a]=##ERROR##
[coal] ֐(max)͎wł܂B
a[max]=##ERROR##
[coal] z(a)͎wł܂B
abs(a)=##ERROR##
[coal] ֐(max)͎wł܂B
abs(max)=##ERROR##
[coal] cl_gx_func_bexp: ֐[max]̈܂B
abs(max())=##ERROR##
getargs('1 2 3 4 5 6',a,10)=6
[coal] Xg͎wł܂B
a[{1,2}]=##ERROR##
[coal] 葱(main)͎wł܂B
a[main]=##ERROR##
[coal] NX(cc)͎wł܂B
a[cc]=##ERROR##
[coal] NXECX^X(ii)͎wł܂B
a[ii]=##ERROR##
[coal] ^`(z)͎wł܂B
a[z]=##ERROR##
[coal] ^`(za)͎wł܂B
a[za]=##ERROR##
[coal] ^`(zm)͎wł܂B
a[zm]=##ERROR##
[coal] \͎̂wł܂B
a[zx]=##ERROR##
[coal] MAPPEDz(ma)͎wł܂B
a[ma]=##ERROR##
ERRMSG="MAPPEDz(ma)͎wł܂B"
*** end   test_func_array.cl ***
*** start test_func_array2.cl ***
[coal] DUMP1= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=1507 aux=0x00 0x00 auxlen=0000 20137bb0 data=200eb710(VarIndex=200c3f98 Attr=7 0 0 0 size=4 xhp=00000000  pInfoType=00000000 index=[1,5,5,1,5,0]) varnam=[]
[coal] DUMP2= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=1507 aux=0x80 0x00 auxlen=0000 20137bb0 data=200eb710(VarIndex=200c3f98 Attr=7 0 0 0 size=4 xhp=00000000  pInfoType=00000000 index=[1,5,5,1,5,0]) varnam=[]
fun(5)=#DUMP1#, *fun(5)=#DUMP2#
aa=local variant aa[5], *aa=1,2,3,4,5
*** end   test_func_array2.cl ***
*** start test_func_concat.cl ***
a="ABCabc", b="aaaaaa"
*** end   test_func_concat.cl ***
*** start test_func_decode.cl ***
decode(%1,'A','a','B','b','','NULL','x')="NULL"
decode(%1,'A','a','B','b',3,3)=""
*** end   test_func_decode.cl ***
*** start test_func_default.cl ***
aa="10", bb=12, cc=1000, dd=""
func1(10,12)=0
aa="XYZ", bb=120, cc=1000, dd=""
func1(aa==>'XYZ')=0
aa="200", bb=99, cc=1000, dd=""
func1(bb==>99)=0
[coal] cl_process_proc: (bb)̃ftHgl܂B
[coal] clerrdisp:rc=-11001(ffffd507) at script=[test_func_default.cl] line=23
[coal]  ---> [function func2(char aa = '200', bb as int =)]
[coal] _ex_conv_parm_opt: ֐(func2)̖߂l̃f[^ݒłB
func2()=##ERROR##
[coal] cl_process_proc: (aa)̃ftHgl܂B
[coal] clerrdisp:rc=-11001(ffffd507) at script=[test_func_default.cl] line=28
[coal]  ---> [function func3(char aa = , bb as int = 0)]
[coal] _ex_conv_parm_opt: ֐(func3)̖߂l̃f[^ݒłB
func3()=##ERROR##
[coal] cl_process_proc: (aa)̌ɗ]ȕ(XX)܂B
[coal] clerrdisp:rc=-11001(ffffd507) at script=[test_func_default.cl] line=33
[coal]  ---> [function func4(char aa XX , bb )]
[coal] _ex_conv_parm_opt: ֐(func4)̖߂l̃f[^ݒłB
func4()=##ERROR##
[coal] cl_process_proc: (bb)̑̌ɗ]ȕ(as)܂B
[coal] clerrdisp:rc=-11001(ffffd507) at script=[test_func_default.cl] line=38
[coal]  ---> [function func5(char aa, bb as int as)]
[coal] _ex_conv_parm_opt: ֐(func5)̖߂l̃f[^ݒłB
func5()=##ERROR##
*** end   test_func_default.cl ***
*** start test_func_direct.cl ***
A=1, b=""
My.name&+' World!!'="Hellow World!!"
*** end   test_func_direct.cl ***
*** start test_func_math.cl ***
abs(-10.0f)=10
sqrt(4.0)=2
sqrt(2.0)=1.414213562373095048801688724209698078569671875377
(CDEC)PI=3.1415926535897931
(CDEC)PI/180.0=0.017453292519943295
sin(30.0d*PI_180)=0.4999999999999999
cos(60.0d*PI_180)=0.5000000000000001
tan(45.0d*PI_180)=0.9999999999999998
asin(0.5d)=0.5235987755982989
acos(0.5d)=1.047197551196597
atan(1.0d)=0.7853981633974482
atan2(1.0d,2.0d)=0.463647609000806
sind(30.0d)=0.4999999999999999
cosd(60.0d)=0.5000000000000001
tand(45.0d)=0.9999999999999998
asin(0.5d)=0.5235987755982989
acos(0.5d)=1.047197551196597
asind(0.5d)=30
acosd(0.5d)=60
atand(1.0d)=45
cbrt(10.0d)=2.154434690031883
cbrt(10.0)=2.154434690031883721759293566519350495259344942192
log10(M_E2)=0.13326448623927063243739002419211205552620712434155597
1.0/log10(M_E2)=7.5038746497288344835433742634156255925569009093352991
1.0/log(10.0)=0.434294481903251827651128918916605082294397005803661469
log10(10.0)=1
log10(10.0d)=1
log10(10.1)=1.296708621881338620938550716501555113548900526255651463
log10(10.1d)=1.004321373782642
log(2.0)=0.693147180559945309417232121458176568075500134360255254
log(9000.0)=8.41183267575841112542723271643996746402278544717163
log(9000.0d)=9.104979856318356
log(10.1d)=2.312535423847213
log(10.1)=2.98578194270082291058700821859828003398792201304899
log(0.99d)=-0.01005033585350145
log(0.99)=-0.683096844706443868233683263899628861989985126685625405
log(0.1)=-2.302585092994045684017991454684364207601101488628800
log(0.05)=-3.68887945411393630285245569760071734375210175734934
log(0.05d)=-2.99573227355399
ln(10.0)=2.302585092994045684017991454684364207601101488628800
a=0.693147180559945309417073593
b=2.30258509299404568401751587
c=0.3010299956639811952137322225703340775057982821300602319
c*b=0.693147180559945309417073593
(9.99e-307)= 9.990000000000018E-307
log(10.0d)=2.302585092994045
log(10.0)=2.302585092994045684017991454684364207601101488628800
log10(10.0)=1
-5.3
-5
-12345.67891234567
12345.67891234567
123456789123456800
0.001234567891234567
"AAA", 0.1251, 1234567890, 1234567890
exp(0.0)=1
power(3.0d,2.0d)=9
3.0**2=9, 4*3**2=36, 3**2*4=36, 4**3**2=262144
rand1()=0.9646303857016427
rand1()=0.8855718896697624
rand1()=0.6191841084893319
srand1(100)=0.0000000000000000000
rand1()=0.2510589026651395
rand1()=0.2089484048514975
rand1()=0.9409279099583152
[coal] cl_gx_compile: Zq܂B3 power
3 power 2=##ERROR##
[coal] cl_gx_compile: Zq܂B3 sqrt
3 sqrt 0=##ERROR##
3 concat 0="30"
*** end   test_func_math.cl ***
*** start test_func_name.cl ***
[coal] cl_gx_func: [$x]͊֐ł͂܂B
$x(1,2)=##ERROR##
"ABS:", x=-1
$a=1
[coal] cl_func_f: słB
ff(0)(-1)=##ERROR##
[coal] cl_gx_compile: Zq܂B'$' (
'$'(1)=##ERROR##
[coal] cl_gx_get_info_parm_opt:$-1̓p[^Ɍ肪܂B
ff('$')(-1)=##ERROR##
"ABS:", x=-1
ff('A' &+ 'BS')(-1)=1
[coal] cl_gx_compile: Zq܂B'ff' (
'ff'('ABS')(-1)=##ERROR##
"ABS:", x=-2
$x(-2)=2
"ABS:", x=-1
ff('ABS')(-1)=1
"ABS:", x=-1
A[0]="ABS()", A[0](-1)=1
"func1:", x=1000
ff('func1')(1000)=0
*** end   test_func_name.cl ***
*** start test_func_opr.cl ***
[coal] cl_conv_const_n_str: : ȊO̕[AB CDE]܂(pos=1)B
x EQ y=##ERROR##
x EQ 'XX'=0
x iEQ 'XX'=0
x iNE 'XX'=1
x IS 'N'=0
x TO 'L'="ab cde"
x REP 'B'="AB CDE"
x CONDAS '//zz/'=""
x SUBSTR y=" CDE"
x MID y=" CDE"
x CONCAT y="AB CDE3"
[coal] cl_gx_compile: Zq܂Bx GETARGS
x GETARGS y=##ERROR##
x TRIM y="AB CDE"
x STRINGS y="AB CDEAB CDEAB CDE"
x LEFT y="AB "
x RIGHT y="CDE"
'%d' EDIT y="3", edit('%d',y)="3"
[coal] cl_gx_func_bexp: ֐[REPLIKE]̈܂B
x REPLIKE y=##ERROR##
x SUBSTRB y=" CDE"
x MIDB y=" CDE"
x LEFTB y="AB "
x RIGHTB y="CDE"
[coal] cl_gx_compile: Zq܂Bx GETWORD
x GETWORD y=##ERROR##
x LPAD y="CDE"
x LPADB y="CDE"
x RPAD y="AB "
x RPADB y="AB "
x STR_ADD y="AB CDH"
x STR_CONV y="AB CDE"
[coal] cl_gx_func_bexp: ֐[STR_EXP]̈܂B
x STR_EXP y=##ERROR##
[coal] cl_gx_compile: Zq܂Bx SPLIT
x SPLIT y=##ERROR##, split(x,y)=2
x ASC y=65
41 CHR 42=")*"
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2013d8bf     0 20 43 44 45                                      CDE
2013d8cf     4 (DATA END)

x TO_BULK y=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2013d8b8     0 41 42 20 43 44 45 00 00 00 03                   AB CDE....
2013d8c8    10 (DATA END)

x TO_BULKS y=**BULK**
'765' TO_NUMBER y=765, to_number('765',y)=765
y TO_CHAR y="3  "
SYSDATE TO_CHAR 'y/m/d'="22/1/19"
'2021/04/23' TO_DATE 'y/m/d'=(1921/04/23 00:00:00)
[coal] cl_gx_compile: Zq܂Bn ABS
n ABS y=##ERROR##
n MAX y=12345, x MAX w="C"
n MIN y=3, x MIN w="AB CDE"
n MOD y=0
x LIKE z=1
x iLIKE z=1
x REGEX z=0
x iREGEX z=0
x IN w=0
x iIN w=0
x INSTR w=4
x INiSTR w=4
x INRSTR w=4
x INiRSTR w=4
[coal] cl_gx_compile: Zq܂Bx INLIKE
x INLIKE w=##ERROR##
x SKIP_OPT w=4
*** end   test_func_opr.cl ***
*** start test_func_pname.cl ***
x=1, a=2, c=3
fff(1,2,3)=0
x=3, a=1, c=2
fff(1 <== 'a', 2 <== 'c', 3<=='x')=0
x=3, a=1, c=2
fff(1 <== a, 2 <== c, 3<==x)=0
x=3, a=1, c=100
fff(100,1 <== a, 3<==x)=0
x=3, a=1, c=2
fff(1 <== $p1, 2 <== $p2, 3<==$$2)=0
[coal] cl_gx_ex_obj_sub: [ERROR]Ă܂Battr=2
fff(1 <== a, 2 <== c, 3<==ERROR)=##ERROR##
[coal] cl_gx_ex_obj_sub: [DATE]Ă܂Battr=1
fff(1 <== a, 2 <== c, 3<==DATE)=##ERROR##
[coal] cl_gx_ex_obj_sub: ['and']Ă܂Battr=1
fff(1 <== a, 2 <== c, 3<=='and')=##ERROR##
1="XXX", 2=""
֐('XXX'<==1,''<==2)=0
"proc", x="CCC", y="AA", z="BBB"
"proc", x="CCC", y="AA", z="BBB"
aa=y==>"AA", 'AA'<==y=y==>"AA"
(2<==x) + (3<==y)=5
bb=z==>char(2) pointer
x=3, a=1, c=2
fff('a' ==> 1, 'c' ==> 2, 'x'==>3)=0
x=3, a=1, c=2
fff(a ==> 1, c ==> 2, x==>3)=0
x=3, a=1, c=100
fff(100,a ==> 1, x==>3)=0
[coal] cl_gx_ex_obj_sub: [$p1]Ă܂Battr=2
fff($p1 ==> 1, $p2 ==> 2, $$2==>3)=##ERROR##
[coal] cl_gx_ex_obj_sub: [ERROR]Ă܂Battr=2
fff(a ==> 1, c ==> 2, ERROR==>3)=##ERROR##
[coal] cl_gx_ex_obj_sub: [DATE]Ă܂Battr=1
fff(a ==> 1, c ==> 2, DATE==>3)=##ERROR##
[coal] cl_gx_ex_obj_sub: ['and']Ă܂Battr=1
fff(a ==> 1, c ==> 2, 'and'==>3)=##ERROR##
1="XXX", 2=""
֐(1==>'XXX',2==>'')=0
"proc", x="CCC", y="AA", z="BBB"
"proc", x="CCC", y="AA", z="BBB"
aa=y==>"AA", y==>'AA'=y==>"AA"
(x==>2) + (y==>3)=5
bb=z==>"BB"
x=, a=10, c=2, p1=, p2=, p3=
ffff(a==>10,c==>2)=0
x="A", a=, c="B", p1=, p2=, p3=
ffff('A',,'B')=0
*** end   test_func_pname.cl ***
*** start test_func_struct.cl ***
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200ba3a0     0 31 32 33 34 35 36 37 38 39 30                   1234567890
200ba3b0    10 (DATA END)

a=10, b="XYZ", c=12345.67, d=**BULK**
func1(x.a,x.b,x.c,x.d)=20
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200b6138     0 31 32 33 34 35 36 37 38 39 30                   1234567890
200b6148    10 (DATA END)

xx.a=10, xx.b="XYZ", xx.c=12345.67, xx.d=**BULK**
func2(x)=20
*** end   test_func_struct.cl ***
*** start test_func_syntax.cl ***
f1()=0
*** end   test_func_syntax.cl ***
*** start test_func_val.cl ***
%()=variant %()[(1),1..0], *%()=, %m=private variant %m[(1),10], *%m=
aa="10", bb=12.0, cc=102.000
$argc=3, %argv=local variant %argv[(1),3], *%argv=10,12,102
*x={Index=0,Value=10}
*x={Index=1,Value=12}
*x={Index=2,Value=102}
[coal] cl_gx_get_all_var_ent: $func1(func1)͖`łB
func1(10,12,102)="22", $func1=##ERROR##
*** end   test_func_val.cl ***
*** start test_func2.cl ***
[coal] cl_gx_func: [Func11]͊֐ł͂܂B
Func11()=##ERROR##
"called func"
1+func1()=1
*** end   test_func2.cl ***
*** start test_func3.cl ***
%1=
gettime(0)=2.277
gettime(0)=2.277
*** end   test_func3.cl ***
*** start test_getargs.cl ***
$a="|2| 3 , 4 '5 6'"
$n=4
$i=1, $$i="|2|"
$i=2, $$i="3"
$i=3, $$i="4"
$i=4, $$i="5 6"
$n=6
*** end   test_getargs.cl ***
*** start test_getline.cl ***
1,2,3,4
$n=4, *$()="1","2","3","4","","","","","",""
A B , 'C ,D',E
$n=4, *$()="A B","'C","D'","E","","","","","",""
*** end   test_getline.cl ***
*** start test_getmemused.cl ***
getmemused(1)=864833
*$()=1168,9103,235,1664,852663
*** end   test_getmemused.cl ***
*** start test_getwd.cl ***
a="  1 ,2, (3) , 4 '5 6'"
i=1, n=1, *$()=4,"1",1,0,0,0
i=2, n=1, *$()=6,",",172,0,0,0
i=3, n=1, *$()=7,"2",1,0,0,0
i=4, n=1, *$()=8,",",172,0,0,0
i=5, n=1, *$()=10,"(",168,0,0,0
i=6, n=1, *$()=11,"3",1,0,0,0
i=7, n=1, *$()=12,")",169,0,0,0
i=8, n=1, *$()=14,",",172,0,0,0
i=9, n=1, *$()=16,"4",1,0,0,0
i=10, n=3, *$()=22,"5 6",5,0,0,0
n=-1
$()=variant $()[(1),1..65536], sspl=private variant sspl[7]
*** end   test_getwd.cl ***
*** start test_hash.cl ***
hp.ha_maxreg=10, hp.ha_prereg=7, hp.ha_reg=local Char ha_reg[10]
hp.store((char)(i+=100))=2
hp.store((char)(i+=100))=6
hp.store((char)(i+=100))=3
hp.store((char)(i+=100))=7
hp.store((char)(i+=100))=4
hp.store((char)(i+=100))=1
hp.store((char)(i+=100))=5
hp.store((char)(i+=100))=8
hp.store((char)(i+=100))=9
hp.store((char)(i+=100))=10
hp.store((char)(i+=100))=0
hp.refer((char)(i+=100))=2
hp.refer((char)(i+=100))=6
hp.refer((char)(i+=100))=3
hp.refer((char)(i+=100))=7
hp.refer((char)(i+=100))=4
hp.refer((char)(i+=100))=1
hp.refer((char)(i+=100))=5
hp.refer((char)(i+=100))=8
hp.refer((char)(i+=100))=9
hp.refer((char)(i+=100))=10
hp.refer((char)(i+=100))=0
*** end   test_hash.cl ***
*** start test_hash_array.cl ***
a=private variant a hash(10), b=private variant b hash(100)
a['ABCD','XYZ',,,1]=100
x.Value=100, x.Index="ABCD`,XYZ`,`,`,1"
a[x.Index]=100
x.Value=200, x.Index="AB,CD`,XY,Z`,1"
a[x.Index]=200
x.Value=300, x.Index="AB``CD`,XY``Z`,1"
a[x.Index]=300
*** end   test_hash_array.cl ***
*** start test_hash_array2.cl ***
$a['ABC`D']=100
$a['ABCD',0]=
$a['ABCD',0,0]=
$x[5]=200
[coal] cl_gx_array_bexp: (2)܂B
$x[5,0]=200
[coal] cl_gx_array_bexp: (3)܂B
$x[5,0,0]=200
$y[5]=300
$y[5,0]=300
[coal] cl_gx_array_bexp: (3)܂B
$y[5,0,0]=300
$z[5]=400
$z[5,0]=400
$z[5,0,0]=400
*a=[ABC``D]=100
*** end   test_hash_array2.cl ***
*** start test_hash_array3.cl ***
a['A']=1, a['B']=2, a['C']=3, *a=[A]=1,[B]=2,[C]=3
x.value=1, x.Index="A"
x.value=2, x.Index="B"
x.value=3, x.Index="C"
*** end   test_hash_array3.cl ***
*** start test_hash_class.cl ***
xhp="Instance as Hash", $1=1, $2=2, $3=3
$i=1, $j=1
$9="ABCD", $10="X123"
$i=2, $j=2
$9="XYZZ", $10=100
$i=3, $j=3
$9=10, $10=100
$i=4, $j=0
$i=5, $j=0
$i=6, $j=0
$i=7, $j=0
$i=8, $j=0
$i=9, $j=0
$i=10, $j=0
$u=3, $m=10
*** end   test_hash_class.cl ***
*** start test_iconv.cl ***
[coal] ϊf[^^Cv(WTF-8)Ă܂B
str_conv('ABCDEFG','WTF-8')=##ERROR##
str_conv('ABCDEFG\\~','UTF-8')="ABCDEFG\~"
str_conv('ABCDEFG',5)="ABCDEFG"
s = str_conv('AZaz09`ab@',5)="AZaz09`ab@", ERROR=0
str_conv(s,0,5)="AZaz09`ab@"
[coal] ϊqɌ肪܂B
s=to('abcd','Q')=##ERROR##, s="AZaz09`ab@"
str_conv('ABCDEFGXYZ12345.67890ACEPA^','WIDE')="`abcdefwxyPQRSTDUVWXOACEACEP`^"
str_conv('`abDEFGwxyPQR4567WXOACEK','NARROW')="ABCDEFGXYZ1234567890"
*** end   test_iconv.cl ***
*** start test_iconv_error.cl ***
s = str_conv('',5)="", ERROR=0
str_conv('ABCDEFGXYZ12345.67890ACEPA^','WIDE')="`abcdefwxyPQRSTDUVWXOACEACEP`^"
str_conv('`abDEFGwxyPQR4567WXOACE','NARROW')="ABCDEFGXYZ1234567890"
s = str_conv('AZaz09`ab@','JIS')="AZaz09$@#A#B#C(B??$@$"$$-!$&", ERROR=0
str_conv(s,0,'JIS')="AZaz09`ab@"
*** end   test_iconv_error.cl ***
*** start test_if.cl ***
"elseif", %1="3"
*** end   test_if.cl ***
*** start test_if2.cl ***
"if", %1="1"
"if if", %2="1"
*** end   test_if2.cl ***
*** start test_if3.cl ***
%1="1", %2="2", %3="3"
(%1 == %2 && %3)=0
(%1 + %2 && %3)=1
((%1 |+ %2) && %3)=1
x=1, "<>0.0"
*** end   test_if3.cl ***
*** start test_iif.cl ***
iif((CDEC(10,2))%1,'True','False')="True"
iif((CBIN)%1,'True','False')="True"
*** end   test_iif.cl ***
*** start test_import.cl ***
[coal] cl_gx_get_all_var_ent: opt(opt)͖`łB
[coal] cl_gx_get_all_var_ent: repc(repc)͖`łB
opt=##ERROR##, repc=##ERROR##
[coal] cl_gx_get_all_var_ent: opt(opt)͖`łB
[coal] clerrdisp:rc=-11551(ffffd2e1) at script=[lib_iconv.cl] line=61
[coal]  ---> [if (opt)]
[coal] _ex_conv_parm_opt: ֐(conv)̖߂l̃f[^ݒłB
conv('ABC123',6)=##ERROR##
sind(30d)=0.4999999999999999
"called fun"
*** end   test_import.cl ***
*** start test_import2.cl ***
"func1: called"
proc1="proc1()"
N=20, g="ZZ"
$a[1,2,3]=8, NULL=, countv($am)=0, countv($ac)=0
countv($a)=1, countv($ah)=0
[coal] Print: %0=8
"func2: ret proc1"
[coal] cl_gx_get_all_var_ent: $func2(func2)͖`łB
$func2=##ERROR##
proc1="proc1()"
[coal] cl_pr_ex_def_scalar_attr_info:(W)ϐ[N]ւ̃f[^𖳎܂B
[coal] cl_pr_ex_def_scalar_attr_info:(W)ϐ[g]ւ̃f[^𖳎܂B
N=20, g="ZZ"
$a[1,2,3]=8, NULL=, countv($am)=0, countv($ac)=0
countv($a)=1, countv($ah)=0
[coal] Print: %0=8
"func2: ret proc1"
func1(0)="101010"
proc1="proc1()"
[coal] cl_pr_ex_def_scalar_attr_info:(W)ϐ[N]ւ̃f[^𖳎܂B
[coal] cl_pr_ex_def_scalar_attr_info:(W)ϐ[g]ւ̃f[^𖳎܂B
N=20, g="ZZ"
$a[1,2,3]=8, NULL=, countv($am)=0, countv($ac)=0
countv($a)=1, countv($ah)=0
[coal] Print: %0=8
*** end   test_import2.cl ***
*** start test_import3.cl ***
a="aaa"
conv('ABC' & chr(0xf1) & chr(0xf2) & chr(0xf3),6)=a1a2a3313233
sind(30d)=0.4999999999999999
*** end   test_import3.cl ***
*** start test_in.cl ***
in('yy','yy','A')=1
iin('YY','yy','A')=1
a=2, b=2
in('yy','xx','A')=0
iin('YY','XX','A')=0
a=0, b=0
in('','','K','')=3
in('','','K','Y',2)=2
in('`B','AB','`B')=2
in('`B','AB','`B',2)=1
in('ABC','AB','`Bb',2)=2
x=2
in('',aa,2)="1 2"
in(100,1,2,3,10,100,4)=5
in(60,bb)="1 3 3 2"
in(5,bb)=0
80 in bb="1 3 4"
[coal] p[^̃f[^hc(id1=[ ] id2=[R])Ă܂B
10 == bb=##ERROR##
[coal] ϐ(cc)͖`łB
in(50,cc)=##ERROR##
*** end   test_in.cl ***
*** start test_index.cl ***
"***"
[coal] cl_gx_array_bexp: (3)܂B
[coal] cl_gx_conv_index:[a]̃CfbNX͈͊OłBi=2 index=5 (def=0..3)
indexa($a,0,0,0)=0, indexa($a,1,2)=6, indexa($a,4,3)=19, indexa($a,1,5)=##ERROR##
[coal] cl_func_index: f[^ݒłB
indexa($ha,'ABCDE')=##ERROR##
$ha['ABCDE']=100, $a[3,2]=200
indexa($ha,'ABCDE')=0
indexa($ha,'XYZ')=1
*ha=[ABCDE]=100,[XYZ]=200
"***"
[coal] cl_gx_array_bexp: (3)܂B
[coal] cl_gx_conv_index:[a]̃CfbNX͈͊OłBi=2 index=5 (def=0..3)
indexa($a,0,0,0)=0, indexa($a,1,2)=11, indexa($a,4,3)=19, indexa($a,1,5)=##ERROR##
indexa($ha,'ABCDE')=0
$ha['ABCDE']=100, $a[3,2]=200
indexa($ha,'ABCDE')=0
indexa($ha,'XYZ')=1
*ha=[ABCDE]=100,[XYZ]=200
*** end   test_index.cl ***
*** start test_inlike.cl ***
n=5, *$()=1,1,2,1,6,1,7,1,8,1
n=2, *a=12,3,17,3
pos=a[k++]=12, len=a[k++]=3, substr(x,pos,len)="ABC"
pos=a[k++]=17, len=a[k++]=3, substr(x,pos,len)="abc"
n=2, *a=7,3,12,3
pos=a[k++]=7, len=a[k++]=3, substr(x,pos,len)="234"
pos=a[k++]=12, len=a[k++]=3, substr(x,pos,len)="ABC"
n=1, *a=7,3,12,3
pos=a[k++]=7, len=a[k++]=3, substr(x,pos,len)="234"
n=0, *a=7,3,12,3
n=2, *a=7,3,12,3
pos=a[k++]=7, len=a[k++]=3, substr(x,pos,len)="ABC"
pos=a[k++]=12, len=a[k++]=3, substr(x,pos,len)="abc"
*** end   test_inlike.cl ***
*** start test_inner.cl ***
local y="local y"
b=100
e="local e"
d="AA", c="A", b=100, x=100
[coal] cl_gx_get_lg_var_ent: x̃f[^ݒłB
local x=##ERROR##, e="local e"
f_g_h()=0
f_g()=0
f()=0
[coal] cl_gx_get_all_var_ent: c(c)͖`łB
[coal] cl_gx_get_all_var_ent: b(b)͖`łB
d="AA", c=##ERROR##, b=##ERROR##, x=100
[coal] cl_gx_get_lg_var_ent: x̃f[^ݒłB
[coal] cl_gx_get_all_var_ent: e(e)͖`łB
local x=##ERROR##, e=##ERROR##
f.f_g.f_g_h()=0
*** end   test_inner.cl ***
*** start test_instr.cl ***
text="abcdefg1234ABCDEFxxYYzZ%pQrabcABC", w="123", instr(text,w)=8
instr(text,'yy','A')=12
inistr(text,'yy','A')=20
text instr 'yy'=0
instr(text,'%')=26
instr(text,'')=27
inrstr(text,'yy','A')=34
inirstr(text,'yy','A')=20
inrstr(text,10,'yy','A')=25
inirstr(text,10,'yy','A')=11
instr(text,10,10,'yy','A')=3
instr(text,5..10,'yy','A')=0
instr('XYAB','','K','Y','X',2)=5
instr('XYAB','K','Y',2)=2
instr('XYAB','','B',2)=5
instr('XYAB',aa,2)=1
*** end   test_instr.cl ***
*** skip  #test_inter.cl ***
*** start test_io.cl ***
edit('%08x',$STDOUT)="611fb040"
Endter :$n="aaaaaaaaa"
*** end   test_io.cl ***
*** start test_ip.cl ***
"func1: called"
"func2: ret proc1", a=1010
func2="func2()", a="101010"
func1(0)="101010"
"proc1"
*** end   test_ip.cl ***
*** start test_is.cl ***
%1="123.456", " is ", %2="N", " = ", $1=3
$2="xcv", " is ", "m", " = ", $m=3
$2="xcv"
$2="xcv", " is ", "m", " = ", $m=1
$2="cv"
$2="cv", " is ", "m", " = ", $m=3
$2="v"
$2="v", " is ", "m", " = ", $m=3
$2=""
*** end   test_is.cl ***
*** start test_is2.cl ***
$1=1, is($1,'t')=2
is(' -123 A ','N')=0
is(' -123F ','N')=2
is(' -0xff ','N')=1
is(' -123.45 ','N')=3
is(' -123.45A ','N')=0
is('XYZ-123.45 ',4,'N')=3
is('XYZ-123.45 ',4,6,'N')=3
is('XYZ-123.45 ',4..6,'N')=1
is(123.45,3,'N')=3
chr(is(123.45,3,'I'))=" "
is(123.45,3,'T')=4
*** end   test_is2.cl ***
*** start test_kab.cl ***
$kai_kab_ka=4080, $kai_kab_su=3000, $kai_ka=12240000, $kai_tesu=63304
$uri_kab_ka=3960, $kai_kab_su=3000, $uri_ka=11880000, $uri_tesu=61928
$arari=-485232, $rieki=-485232
$kai_kab_ka=250, $kai_kab_su=20000, $kai_ka=5000000, $kai_tesu=31226
$uri_kab_ka=243, $kai_kab_su=20000, $uri_ka=4860000, $uri_tesu=30433
$arari=-201659, $rieki=-201659
$rieki_total=-686891
*** end   test_kab.cl ***
*** start test_kanma.cl ***
setarray(aa,0,1,2,,3,4)=4
*aa=1,2,,3,4
*bb=1,2,3,,,4,5
*cc=[1,2,3,,,4,5]
a=10, b=, c=20
f1(10,,20)=0
[,1,2,,3,4]=[,1,2,,3,4]
{,1,2,,3,4}={,1,2,,3,4}
*x={Index=0,Value=1}
*x={Index=1,Value=2}
*x={Index=2,Value=3}
*x={Index=3,Value=}
*x={Index=4,Value=}
*x={Index=5,Value=4}
*x={Index=6,Value=5}
*y={Index=0,Value=}
*y={Index=1,Value=1}
*y={Index=2,Value=2}
*y={Index=3,Value=}
*y={Index=4,Value=3}
*y={Index=5,Value=4}
*** end   test_kanma.cl ***
*** start test_kara.cl ***
ERRMSG="col_mn_tr_file_end: Lȕ܂B
cllex:Create tree error=-11101 at script=[test_kara.cl] line=2
 ---> []
clerrdisp:rc=-33542433(fe002edf) at script=[exec_all_test.cl] line=46
 ---> [exec sc $f $*]"
*** end   test_kara.cl ***
*** start test_leave.cl ***
[coal] zXghchoAhX擾łȂ !!
[coal] clerrdisp:rc=-11999(ffffd121) at script=[test_leave.cl] line=3
[coal]  ---> [leave SV01]
*** end   test_leave.cl ***
*** start test_left.cl ***
$a="12345678l", $b="1", $c="12345"
leftb($a,7)="1", left($a,7)="12345"
leftb($a,-7)="1234567", left($a,-7)="123"
leftb($a,-17)="", left($a,-12)=""
*** end   test_left.cl ***
*** start test_len.cl ***
1234.56 is N = 3
$2="xcv\~", is($2,'L')=6
leng($2)=6, lenb($2)=12, lenw($2)=9
leng($a)=32, lenb($a)=32, a=private variant a[10]
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200fb6d0     0 31 32 33 34 35                                  12345
200fb6e0     5 (DATA END)

leng($b)=5, lenb($b)=5, b=**BULK**
leng($c)=32, lenb($c)=32, c={123}
leng($d)=40, lenb($d)=40, d=123.45
leng($e)=8, lenb($e)=8, e=123.45
leng(abs)=32, lenb(abs)=32, abs="abs()"
leng(f)=32, lenb(f)=32, f="f()"
leng(Cclass)=32, lenb(Cclass)=32, Cclass="Class Cclass"
leng(x)=32, lenb(x)=32, x="Instance as Cclass"
leng(pp)=32, lenb(pp)=32, pp="pp()"
leng(v)=4, lenb(v)=4, v=0
leng(y)=14, lenb(y)=14, y=(2022/01/19 09:48:42)
*** end   test_len.cl ***
*** start test_LET.cl ***
N=20, g="ZZ"
$a[1,2,3]=, NULL=, countv($am)=0, countv($ac)=0
countv($a)=0, countv($ah)=0
[coal] Print: %0=7
*** end   test_LET.cl ***
*** start test_LET_narabi.cl ***
*xa=1,2,3,4,5,6,7,8,9,10
*xb=[1,2,3,[4,5,[6,7]],8,9,10]
*xc=10
*xc=20
*x={Index=0,Value=1}
*x={Index=1,Value=2}
*x={Index=2,Value=[3,4]}
*x={Index=3,Value=5}
*y={Index=0,Value=1}
*y={Index=1,Value=2}
*y={Index=2,Value=[3,4]}
*y={Index=3,Value=5}
[100,200]=[100,200]
[coal] cl_gx_get_all_var_ent: y(y)͖`łB
[100,200,y]=##ERROR##
[coal] cl_gx_get_all_var_ent: x(x)͖`łB
x=##ERROR##
a=1
a=11, b=12, c=13
[coal] cl_gx_get_all_var_ent: d(d)͖`łB
a=11, d=##ERROR##
a=11, b=12, c=[4,5]
a=6, b=7, c=8
a=8, b=8, c=8
a="A", b="A", c="A"
a="B", b="B", c="B"
a=9, b=10, c="B"
a=111, b=112, c=113
[1,2,3]+[4,5,6]=[1,2,3,4,5,6]
"func1", x=[1,2,3,4,5]
"proc1", x=[1,2,3,4,5]
z=[10,20], x1=10, y1=20
z=[100,200,300], x1=10, y1=20
z1={"X","Y","Z"}
[coal] cl_gx_get_all_var_ent: x2(x2)͖`łB
[coal] _rep_info_set: `ϐ܂ł܂B
[coal] let_compute_sub_opt: Ă܂(rc=-11012)B
[coal] clerrdisp:rc=-11791(ffffd1f1) at script=[test_LET_narabi.cl] line=62
[coal]  ---> [LET [x1,y1] = [x2,y2]]
*** end   test_LET_narabi.cl ***
*** start test_LET_narabi2.cl ***
[x,y] = 10=[10,10]
a="A", b="B", c=["A","B"]
a="X", b=, c="Z"
a="A".."C", b="A".."C", c="A".."C"
a="A","B","C", b="A","B","C", c="A","B","C"
a="A", b="B", c="C"
[coal] _ex_conv_parm_opt: ϐ()ւ̑͂ł܂B
[] = 'XX'=##ERROR##
[coal] _ex_conv_parm_opt: ϐ()ւ̑͂ł܂B
() = 'XX'=##ERROR##
*** end   test_LET_narabi2.cl ***
*** start test_LET_narabi3.cl ***
z=[10,20], x1=10, y1=20
z=[100,200,300], x1=10, y1=20
z1={"X","Y","Z"}
*** end   test_LET_narabi3.cl ***
*** start test_LET_narabi4.cl ***
x[0]=10, y[1]="B"
%()[2]="2"
*** end   test_LET_narabi4.cl ***
*** start test_LET2.cl ***
$1=, $2=2, $3=3
$1=2, $2=1, $3=4
$1=4, $2=2
[coal] cl_gx_func: [$1]͊֐ł͂܂B
$1(1)=##ERROR##
$x=1, $y=10, $1=4
$w=20, $z=20
++$w=21, $z++=20
$1=4, $2=2, $3=4
$1=4, $2=2, $3=200
(1,2,3)=3
[coal] cl_gx_get_all_var_ent: a1(a1)͖`łB
[coal] cl_gx_get_all_var_ent: b2(b2)͖`łB
a1=##ERROR##, b2=##ERROR##, c3="A"
(a1,b2,c3)="A"
{x}={1}
x=1, y=10
[coal] cl_gx_get_all_var_ent: b3(b3)͖`łB
cl_gx_get_all_var_ent: b2(b2)͖`łB
cl_gx_get_all_var_ent: b1(b1)͖`łB
cl_gx_get_all_var_ent: a2(a2)͖`łB
cl_gx_get_all_var_ent: a1(a1)͖`łB
[a1,[b1,b2,b3],a2]=##ERROR##
[1,[2,3,4],5]=[1,[2,3,4],5]
*** end   test_LET2.cl ***
*** start test_LET3.cl ***
%1=, $1="F", $2=0, $3=0, $4="C"
x=, y=
*** end   test_LET3.cl ***
*** start test_LET3kou.cl ***
b+2=4
*** end   test_LET3kou.cl ***
*** start test_LET4.cl ***
$nameX="1", 1, "A", 1+2+abs(1)=4
1 1 A 4
1 1 A 4
$nameX=2
[coal] DUMP1= pInfo=0022c508 id=0x46[F] attr=1 scale=0x00 code=5 dlen=3 len(gid)=0 hlen=0 pos=0(00000000) aux=0x00 0x02 auxlen=0000 00000000 data=20123530 [abs]
$1=#DUMP1#
$1(-1)=1
*** end   test_LET4.cl ***
*** start test_LET5.cl ***
"AB%CD"
$((%1))="AB%CD"
*** end   test_LET5.cl ***
*** start test_LET6.cl ***
a=private Dec(10,2) a[10]
a[0]=123456.79, a[1]=123.45, a[2]=0.03, a[3]=0.00, a[4]=-123.45, a[5]=123.4, a[6]=12.0
edit('%e',to_number('123.456f'))="1.234560e+02"
to_number('123.456')=123.456
to_number('123.456',CLDEC)=123.456
to_number('123.456',CLDEC,5,0)=123
to_number('123.456',CLDECI,5,-1)=120
to_number('123.456',CLDECIM,5,-4)=00000
to_number('123.456',CLDECIM,10,5)=123.45600
[coal] (W)cl_mpa_scale: MPA( 1.234567891E8) I[ot[! set to MAX.
to_number('123456789.1',CLDECIMA,5,-4)=90000
to_number('0.00000123456',CLDECIMAL,10,10)=0.0000012346
to_number('1.2345678901234567890123456789012345678901234-86',CLDECIMAL,32,30)=0.000000000000000000000000000000
to_number('1.2345678901234567890123456789012345678901234-86',CLDECIMAL,42,40)=0.0000000000000000000000000000000000000000
[coal] (W)cl_mpa_scale: MPA( 1.2345678901234567890123456789012345678901234E168) I[ot[! set to MAX.
to_number('1.2345678901234567890123456789012345678901234+168',CLDECIMAL,42,-40)=990000000000000000000000000000000000000000
[coal] (W)cl_mpa_scale: MPA( 1.2345679E5) I[ot[! set to MAX.
(CDEC(5,1))a[0]=9999.9
*** end   test_LET6.cl ***
*** start test_LET7.cl ***
[,]=[,]
x.Index=0, x.Value=
x.Index=1, x.Value=
{}=
[]=
*** end   test_LET7.cl ***
*** start test_LET8.cl ***
func1(1.1,2.2,3.3,4.4)=[2.1,4.2,6.3,8.4,10]
func2(1.1,2.2,3.3,4.4)=20
d=[1,2,[3,4,5],6]
*w={Index=0,Value={1,2}}
*w={Index=1,Value=[2,4,6,8,10]}
*w={Index=2,Value=6}
*** end   test_LET8.cl ***
*** start test_LET9.cl ***
[coal] _ex_conv_parm_opt: [y . b]͖`łB
[coal] _rep_info_set: `ϐ܂ł܂B
y.b=1=##ERROR##
[coal] cl_gx_ex_obj_sub: [y . b]͖`łB
y.b=##ERROR##
a=abs="abs()"
a=1=1
[coal] _ex_conv_parm_opt: ֐(abs)ւ̑͂ł܂B
abs=1=##ERROR##
[coal] _ex_conv_parm_opt: ֐(f)ւ̑͂ł܂B
f=1=##ERROR##
[coal] _ex_conv_parm_opt: 葱(p)ւ̑͂ł܂B
p=1=##ERROR##
[coal] cl_gx_get_all_var_ent: x(x)͖`łB
p="p()", f="f()", x=##ERROR##
*** end   test_LET9.cl ***
*** start test_LET10.cl ***
$public=private Char public[1]
x=1, y=2, z=3
[coal] cl_gx_ex_obj_sub: x'*'͎wł܂B
*x=##ERROR##
*** end   test_LET10.cl ***
*** start test_LET11.cl ***
++a=2, a++=2
b=1,2,3,4,5,6,7,8,9,10
c=10
*** end   test_LET11.cl ***
*** start test_LET12.cl ***
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
(char)a = 1=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
b = (char)a = 'A'=##ERROR##
*** end   test_LET12.cl ***
*** start test_lex.cl ***
$a="aaff@'bf"
$1=1, i=0
$1=2, i=1
$1=3, i=2
$1=4, i=3
$1=5, i=4
$1=6, i=5
$1=7, i=6
$1=8, i=7
$1=9, i=8
"("
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
(=##ERROR##
")"
")"
{1,2,3,4,5}={1,2,3,4,5}, (1,2,3,4,5)=5
'abc'..'wxyz'="abc".."wxyz"
a..3=1..3
{12.3..3.0}={12.3..3}
(2.4..10.0)=2.4..10
*x={Index=0,Value="a"}
*x={Index=1,Value="b"}
*x={Index=2,Value="c"}
*x={Index=3,Value="d"}
z={-3.299999999999999..5}
*x={Index=0,Value=*(-3.299999999999999,-2.299999999999999,-1.299999999999999,-0.2999999999999998,0.7000000000000001,1.7,2.7,3.7,4.7)}
abs(-2..3)=2
setarray(aa,0,-2..3)=1
*aa=*(-2,-1,0,1,2,3)
a=5..8
*x={Index=0,Value=5}
*x={Index=1,Value=6}
*x={Index=2,Value=7}
*x={Index=3,Value=8}
*x={Index=0,Value=1}
*x={Index=1,Value=*(5.5,6.5,7.5,8.5,9.5)}
*** end   test_lex.cl ***
*** start test_lex_label.cl ***
a=3
*** end   test_lex_label.cl ***
*** start test_lex0.cl ***
"proc1_1"
"Func aaa", x=1
"func1_1"
func1_1()=0
"Proc bbb"
"Func bbb"
x=1
bbb()=0
"Func aaa2", x="A"
main.aaa2('A')=0
aaa(1)=0
*** end   test_lex0.cl ***
*** start test_lex1.cl ***
3 eq 2 + 2=0
$rep="A123BC456de", $condas="YesABC", $1="null", $ff=2
*** end   test_lex1.cl ***
*** start test_lex2.cl ***
s="123456"
x=123456
y=123456
*** end   test_lex2.cl ***
*** start test_lex3.cl ***
a=1, g="GLOBAL"
x[0]=10, f()=0, b=100, y[0]=10
*** end   test_lex3.cl ***
*** start test_lex4.cl ***
ma=private variant ma[(101),10], %mb=private variant %mb[(2),5], #mc=private variant #mc[(1),5]
[coal] _ex_conv_parm_opt: #mc[]̃f[^ݒłB
ma=private variant ma[(101),10], %mb[0]=, #mc[0]=##ERROR##
dd.Index=0, dd.value=200
a.a=1, a.c[1]=12.3
a=local z:a{Int a, Char(5) b, Dec(10,2) c[10], Bulk(20) d, Double e hash(10), variant f, variant g}, b=local variant b[5]
dd.Index=0, dd.value=20
dd.Index=0, dd.value=10
dd.Index="ABC", dd.value=10
dd.Index="DEF", dd.value=20
dd.Index="ABC", dd.value=10
dd.Index="DEF", dd.value=20
*** end   test_lex4.cl ***
*** start test_lex5.cl ***
[coal] cl_gx_get_all_var_ent: bb(bb)͖`łB
d=local (no data), bb=##ERROR##
*** end   test_lex5.cl ***
*** start test_lex6.cl ***
s="2,123,456,579"
s="2,123,456,579,123,"
a[0] is 'N'=1
a[0] is(123,'N')=1
0 is 'N'=1
0 + is(123,'N')=1
z="bc"
0A10
*** end   test_lex6.cl ***
*** start test_lex7.cl ***
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
(])=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
(})=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
a[)]=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
a[}]=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
{)}=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
{}}=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
([)=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
({)=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
a[(]=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
a[{]=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
{(}=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
{{}=##ERROR##
*** end   test_lex7.cl ***
*** start test_lex8.cl ***
abs((1,(2,-3)))=3
max((1,(2,3)),((3,4),5))=5
(a=1,b=2)=2, a=1, b=2
*(2..7)=2,3,4,5,6,7
*('ab'..'za')="a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"
*('`a'..'yz')="`","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y"
(1 + *(2..3))*3=9
1, 2, 3=1, 2, 3
[coal] _ex_conv_parm_opt: [<L>x . y]͖`łB
[coal] _rep_info_set: `ϐ܂ł܂B
[coal] let_compute_sub_opt: Ă܂(rc=-11012)B
[coal] clerrdisp:rc=-11791(ffffd1f1) at script=[test_lex8.cl] line=13
[coal]  ---> [LET (local x.y = 1+2)]
*** end   test_lex8.cl ***
*** start test_LG.cl ***
x=private Int x[10], *x=1,2,3,4,5,6,7,8,9,10
xl=private Int xl[10], *xl=101,102,103,104,105,106,107,108,109,110
a=3, la=5, ga=6, lb=11, gb=11
gg=local variant gg[10], gg[0]="GG"
[coal] cl_gx_get_all_var_ent: la(la)͖`łB
[coal] cl_gx_get_all_var_ent: lb(lb)͖`łB
[coal] cl_gx_get_all_var_ent: gg(gg)͖`łB
a=3, la=##ERROR##, ga=6, lb=##ERROR##, gb=11, gg=##ERROR##
[coal] cl_get_mapped_array: mapʒu(0)͈͊OłB
x-1=##ERROR##
[coal] cl_gx_ex_obj_sub: xx'*'͎wł܂B
xx=0, *xx=##ERROR##
private x[0]=21
private xl[0]=121
x=10, x=local int
xl=110, xl=local int
*** end   test_LG.cl ***
*** start test_LG2.cl ***
a=155
b=12345.67890
b=0.00, b=local Dec(5,2)
*x=1,2,3,4,5,6,7
x=private variant x[10], *x=8,9
*** end   test_LG2.cl ***
*** start test_LG3.cl ***
[coal] cl_pr_ex_def_scalar_attr_info: GLOBAL:(W)LOCALϐ[gg]`ς݂łB
gg=local variant gg[10], gg[0]="GG"
gg="CC"
[coal] cl_pr_ex_def_scalar_attr_info: GLOBAL:(W)LOCALϐ[gg]`ς݂łB
[coal] cl_pr_ex_def_scalar_attr_info: CONSTϐ[gg]`ς݂łB
[coal] clerrdisp:rc=-11001(ffffd507) at script=[test_LG3.cl] line=15
[coal]  ---> [LET global const gg = 'CC']
gg="CC"
*** end   test_LG3.cl ***
*** start test_like.cl ***
'123' LIKE 123=1
123456789 LIKE '%567%'=1
x=1, y=1
a=2
a=1, b=1
a=0, b=0
ilike('abcDefghiJk',3,'%Cde%',2)=1
ilike('abcDefghiJk',3,2,'%Cde%')=0
ilike('abcDefghiJk',3..5,'%Cde%')=1
like('abccefghiJk','%cDe%',2)=1
ilike('abccefghiJk','%cDe%',2)=1
ilike('abccefghiJk','%Cde%',2)=1
like('abccefghiJk','%Cde%',2)=0
like('abcDefghiJk','%Cde%')=0
ilike('abcDefghiJk',3,2,4)=0
like('x','%x%')=1
*** end   test_like.cl ***
*** start test_LIST.cl ***
$1={1 2 3 variant a[10] t_a:ta{Int a, Char b, variant c[3]},1..3}, *$1={1,2,3,"X","Y","Z",{a=100,b="AAA",c=*(10,"XXX",20)},1,2,3}, $1={int,int,int,variant a[10],t_a:ta{Int a, Char b, variant c[3]},int(3,64)..int(3,64)}
$1.first()=1
$2={"A","s"}, *$2={"A","s"}, $2={char(1),char(1)}
$1&+$2="123XYZ1As"
$3=1
$1={2,3,variant a[10],t_a:ta{Int a, Char b, variant c[3]},1..3}
$3=2
$1={3,variant a[10],t_a:ta{Int a, Char b, variant c[3]},1..3}
$3=3
$1={variant a[10],t_a:ta{Int a, Char b, variant c[3]},1..3}
$3=private variant a[10]
$1={t_a:ta{Int a, Char b, variant c[3]},1..3}
$3=private t_a:ta{Int a, Char b, variant c[3]}
$1={1..3}
$3=1..3
$1={**NIL**}
first($1)="", $1.first()=""
$a[0]={1,2,3}, $a[1]={"A","s"}, LIST($a[0],$a[1])={{1,2,3},{"A","s"}}
countv($a[0])=3, countv($a[1])=2, countv(LIST($a[0],$a[1]))=2, countv(10)=1
$5={1,2,3,"A","s","XYZ"}, countv($5)=6
*x={Index=0,Value={1,2,3}}
*x={Index=1,Value={"A","s"}}
*x={Index=2,Value="Z"}
*** end   test_LIST.cl ***
*** start test_LIST_mem.cl ***
nofree(0)=2316
[coal] cl_gx_get_all_var_ent: $func1(func1)͖`łB
func1()=[1,2,3], $func1=##ERROR##
nofree(0)=2323
*** end   test_LIST_mem.cl ***
*** start test_LIST2.cl ***
a={1,2,3,["A",3.5]}
{1,2,3,["A",3.5]}
a.first()=1
rest(a)={2,3,["A",3.5]}
CONS(a, [10,20,30], 'XYZ')={1,2,3,["A",3.5],[10,20,30],"XYZ"}
CONS(a, {10,20,30}, 'XYZ')={1,2,3,["A",3.5],10,20,30,"XYZ"}
b=[1,2,3,{"A",3.5}]
[1,2,3,{"A",3.5}]
b.first()=1
rest(b)=[2,3,{"A",3.5}]
CONS(b, {10,20,30}, 'XYZ')=[1,2,3,{"A",3.5},{10,20,30},"XYZ"]
CONS(b, [10,20,30], 'XYZ')=[1,2,3,{"A",3.5},10,20,30,"XYZ"]
{1,2}
*** end   test_LIST2.cl ***
*** start test_log.cl ***
[coal]  2000/04/20
logout(1,'%11s',$a)=0
[coal] 2000/04/20 
logout(1,'%-11s',$a)=0
[coal] 2000/04/20
logout(1,'%9s',$a)=0
[coal] 2000/04/20
logout(1,'%-9s',$a)=0
[coal] 1 10.5 000003db
logout(1,'%s %s %s',1,10.5,to_bulks(987))=0
[coal] cl_edit_sub:BIN:: ȊO̕[2000/04/20]܂(pos=5)B
[coal] (2000/04/20) (ERR) (N/A)
[coal] 268 10c 2.680000e+02
[coal] 1.250 1 1.25 0x1.4p+0
n=7, bb=private variant bb[10], *bb=2,2228224,0,0,3,0,"debug_log"
setlogparm('DEBUG_LOG',1,10,'10k')=4
getlogparm('DEBUG_LOG',aa)=7, aa=private variant aa[10], *aa=2,2228225,10,10000,3,0,"debug_log", aa[1]=0x00220001
reslogparm(bb,n)=7
getlogparm('DEBUG_LOG',aa)=7, aa=private variant aa[10], *aa=2,2228224,0,0,3,0,"debug_log", aa[1]=0x00220000
*** end   test_log.cl ***
*** start test_loop.cl ***
"loop1", $i=0
"loop3"
"loop1", $i=1
"loop2 sleep2"
"loop3"
"loop1", $i=2
"loop2 sleep2"
"loop2 sleep2"
"loop3"
*** end   test_loop.cl ***
*** start test_loop_do.cl ***
"loop1", i=0
"loop3"
"loop1", i=1
"for", j=0
"loop3"
"loop1", i=2
"for", j=0
"for", j=1
"loop3"
*** end   test_loop_do.cl ***
*** start test_loop1.cl ***
"loop1 i=", i=0
"loop1 i=", i=1
"continue"
"loop1 i=", i=2
"loop1 i=", i=3
"loop1 i=", i=4
"loop1 i=", i=5
"loop1 i=", i=6
"loop1 i=", i=7
"loop1 i=", i=8
"loop1 i=", i=9
"loop1 i=", i=10
*** end   test_loop1.cl ***
*** start test_loop2.cl ***
$i=0, $j=0
$i=0, $j=1
$i=0, $j=2
$i=1, $j=0
$i=1, $j=1
$i=1, $j=2
*** end   test_loop2.cl ***
*** start test_loop3.cl ***
Enter any key
line="xyz"
100 thread=ABC
200 thread=ABC
300 thread=ABC
400 thread=ABC
500 thread=ABC
600 thread=ABC
700 thread=ABC
800 thread=ABC
900 thread=ABC
1000 thread=ABC
*** end   test_loop3.cl ***
*** start test_loop4.cl ***
"loop1", i=0
"loop1", i=1
"loop1", i=2
"loop1", i=3
"loop1", i=4
"loop1", i=5
"loop1", i=6
"loop1", i=7
"loop1", i=8
"loop1", i=9
"loop1", i=10
"loop1", i=11
"loop1", i=12
"loop1", i=13
"loop1", i=14
"loop1", i=15
"loop1", i=16
"loop1", i=17
"loop1", i=18
"loop1", i=19
"loop1", i=20
*** end   test_loop4.cl ***
*** start test_math.cl ***
30.0 + 2.0 = 32
30.0 - 2.0 = 28
30.0 * 2.0 = 60
30.0 / 2.0 = 15
30.0 % 2.0 = 0
30**9=19683000000000
30.0**9=19683000000000
30D**9=19683000000000
2**31=2147483648
[coal] DUMP1= pInfo=0022c508 id=0x20[ ] attr=4 scale=0x00 code=0 dlen=40 len(gid)=0 hlen=0 pos=0(00000000) aux=0x00 0x80 auxlen=1000 00000000 data=20189a48 2147483648
2147483648=#DUMP1#
[coal] DUMP1= pInfo=0022c508 id=0x20[ ] attr=4 scale=0x00 code=0 dlen=40 len(gid)=0 hlen=0 pos=0(00000000) aux=0x00 0x00 auxlen=0000 00000000 data=2018a0e8 -2147483649
-2147483648-1=#DUMP1#
[coal] DUMP1= pInfo=0022c508 id=0x20[ ] attr=2 scale=0x40 code=5 dlen=4 len(gid)=0 hlen=0 pos=-2147483648(80000000) aux=0x00 0x00 auxlen=0000 00000000 data=0022c510 -2147483648
-(2147483648)=#DUMP1#
[coal] DUMP1= pInfo=0022c508 id=0x20[ ] attr=4 scale=0x00 code=0 dlen=40 len(gid)=0 hlen=0 pos=0(00000000) aux=0x00 0x80 auxlen=1000 00000000 data=20189a48 2147483648
+2147483648=#DUMP1#
+(2147483648)=2147483648
2147483647*(-2)=-4294967294
-2147483647*2=-4294967294
-2147483647*(-2)=4294967294
2147483647+1=2147483648
-2147483647-2=-2147483649
46340*46340=2147395600
(-46340)*46340=-2147395600
46340*(-46340)=-2147395600
(-46340)*(-46340)=2147395600
46341*46341=2147488281
(-46341)*46341=-2147488281
46341*(-46341)=-2147488281
(-46341)*(-46341)=2147488281
2**(-1)=0
2**(-1.0)=0.5
2.0**(-1)=0.5
2.0**(-1.0)=0.5
2**(11)=2048
2**(11.0)=2048
2.0**(11)=2048
2.0**(11.0)=2048
2**(-11)=0
2**(-11.0)=0.00048828125
2.0**(-11)=0.00048828125
2.0**(-11.0)=0.00048828125
0**5=0
0.0d**5=0.0000000000000000000
0.0**5=0
123**0=1
123.5d**0=1
123.5**0=1
9223372036854775807
-9223372036854775808-1=-9223372036854775809
-(9223372036854775808)=-9223372036854775808
9223372036854775808
+(9223372036854775808)=9223372036854775808
9223372036854775807*(-2)=-18446744073709551614
-9223372036854775807*2=-18446744073709551614
-9223372036854775807*(-2)=18446744073709551614
9223372036854775807+1=9223372036854775808
-9223372036854775807-2=-9223372036854775809
3037000499*3037000499=9223372030926249001
(-3037000499)*3037000499=-9223372030926249001
3037000499*(-3037000499)=-9223372030926249001
(-3037000499)*(-3037000499)=9223372030926249001
3037000500*3037000500=9223372037000250000
(-3037000500)*3037000500=-9223372037000250000
3037000500*(-3037000500)=-9223372037000250000
(-3037000500)*(-3037000500)=9223372037000250000
ERRMSG=""
*** end   test_math.cl ***
*** start test_max.cl ***
[coal] cl_gx_get_all_var_ent: $65537̃CfbNX(65537)͔͈͊OłB
$65536=1, $65537=##ERROR##
*** end   test_max.cl ***
*** start test_mbslex.cl ***
"POf'X"
[coal] cl_gx_get_all_var_ent: AAJi(AAJi)͖`łB
AAJi=##ERROR##
*A=[1]
*** end   test_mbslex.cl ***
*** start test_mbslex_u8.cl ***
"POf"
[coal] cl_gx_get_all_var_ent: AAJi(AAJi)͖`łB
AAJi=##ERROR##
*** end   test_mbslex_u8.cl ***
*** start test_method.cl ***
x.leng()=5
asdfg
3.162277660168379331998893544432718533719555139325
[coal] cl_gx_compile: Zq܂B20 sqrt
20 sqrt 0=##ERROR##
10. mod 3=1
14.14213562373095
14.14213562373095
-10.345E1.cbrt()=-4.694364756598779494617088973492425539627333893134, 'abs'.ff()(-2)=2
x=123
1.sort(aa)=6, *$()=1,2,3,4,5,8
'abcdef' left 3="abc"
*** end   test_method.cl ***
*** start test_mmpp.cl ***
++$1=2, $1++=2
++a[0]=2, a[0]++=2
++$dec[0]=3.0, $dec[1]=2.0
$dec[0]++=4.0, $dec[0]=4.0
x++=1
$dec[0]++=2.0
i++=2, i=3
*** end   test_mmpp.cl ***
*** start test_mod.cl ***
10 mod 3=1
10.0 mod 3.6=2.8
x=3
y=2.8
*** end   test_mod.cl ***
*** start test_mojisu.cl ***
mojisu(%1)=8
mojisu('anccq')=7
*** end   test_mojisu.cl ***
*** start test_mpa.cl ***
[coal] DUMP4= pInfo=0022c508 id=0x20[ ] attr=4 scale=0x00 code=0 dlen=40 len(gid)=0 hlen=0 pos=0(00000000) aux=0x00 0x00 auxlen=0000 00000000 data=200ccfd0 0.0123
'123-3'+0=0.123, '123-2'+0=1.23, '123-1'+0=12.3, '.00123+1'+0=#DUMP4#
*** end   test_mpa.cl ***
*** start test_mpa_cbrt.cl ***
edit('%.50e',%1+0)="1.00000000000000000000000000000000000000000000000000e+01"
cbrt(%1+0)=2.154434690031883721759293566519350495259344942192
x0=3.333333333333333333333333333333333333333333333333333333
dd= 8.1111111111111111111E-01
i=1, x1= 2.5222222222222222222E0, d= 2.4333333333333333333E-1
dd= 3.1676395097187272467E-01
i=2, x1= 2.2054582712503494976E0, d= 1.255892316628570274E-1
dd= 4.9852246826728799889E-02
i=3, x1= 2.1556060244236206977E0, d= 2.2604030861334710839E-2
dd= 1.1706980158282768474E-03
i=4, x1= 2.1544353264077924208E0, d= 5.43094611243301E-4
dd= 6.3637572072671105154E-07
i=5, x1= 2.1544346900320716941E0, d= 2.9537935668172273027E-7
dd= 1.8797234353469944587E-13
i=6, x1= 2.1544346900318837218E0, d= 8.7249033077861005652E-14
dd= 1.6400405218784429166E-26
i=7, x1= 2.1544346900318837218E0, d= 7.6123937730234550397E-27
dd= 1.4362897933545891478E-51
i=8, x1= 2.1544346900318837218E0, d= 6.6653215650679504895E-52
u_cbrt(%1+0)=2.1544346900318837217592935665193504952593449421921
*** end   test_mpa_cbrt.cl ***
*** start test_mpa_ln.cl ***
b=10
X=0.333333333333333333333333333333333333333333333333333333
X=0.11111111111111111111111111111111111111111111111111111
i=1, x1=0.3456790123456790123456790123456790123456790123456790116
a=3, y= 1.23456790123456790123456790123E-02
i=2, x1=0.346502057613168724279835390946502057613168724279835390
a=5, y= 8.23045267489711934156378600823E-04
i=3, x1=0.3465673786661440982428636749624403945391599712587366899
a=7, y= 6.53210529753739630282840159383E-05
i=4, x1=0.3465730236954135750051006871613486458784431654420985306
a=9, y= 5.64502926947676223701219890825E-06
i=5, x1=0.3465735368798926183471222337248857596365598194587677888
a=11, y= 5.13184479043342021546563537114E-07
i=6, x1=0.3465735851280060326784234047693208728958699322295657533
a=13, y= 4.82481134143313011710444351133E-08
i=7, x1=0.3465735897741206577621783323513775875060257208667537054
a=15, y= 4.64611462508375492758205671461E-09
i=8, x1=0.3465735902296220915939190115260890301148645236743211517
a=17, y= 4.55501433831740679174711442609E-10
i=9, x1=0.3465735902749058598695891375259141442923514221990500791
a=19, y= 4.52837682756701259998251141775E-11
i=10, x1=0.3465735902794581963629104729438859811673368776062979607
a=21, y= 4.55233649332133541797183687499E-12
i=11, x1=0.3465735902799200276013633620442599356329151122128303545
a=23, y= 4.61831238452889100373954465578E-13
i=12, x1=0.3465735902799672370168496573745203843116186650837203325
a=25, y= 4.72094154862953302604486787036E-14
i=13, x1=0.3465735902799720939525992762356582905542836396589147747
a=27, y= 4.85693574961886113790624266497E-15
i=14, x1=0.3465735902799725963942285471523277291311110508218659239
a=29, y= 5.02441629270916669438576827411E-16
i=15, x1=0.3465735902799726486193441344519098571552257279678357566
a=31, y= 5.22251155872995821280241146771E-17
i=16, x1=0.346573590279972654070450475213819102841244431643004325
a=33, y= 5.45110634076190924568601870368E-18
i=17, x1=0.3465735902799726546415187585317334047702559148851648417
a=35, y= 5.71068283317914301929011483242E-19
i=18, x1=0.3465735902799726547015409504720547277958276924031096407
a=37, y= 6.00221919403213230255717775179E-20
i=19, x1=0.3465735902799726547078680761181854655506600450189613717
a=39, y= 6.32712564613073775483235261585E-21
i=20, x1=0.3465735902799726547085367967149309906792195619621001725
a=41, y= 6.68720596745525128559516943139E-22
x2=0.693147180559945309417073593429861981358439123924200345
x1=5
x=0.693147180559945309417073593429861981358439123924200345
x1=2.5
x=1.38629436111989061883414718685972396271687824784840069
x1=1.25
x=2.079441541679835928251220780289585944075317371772601035
X=0.1111111111111111111111111111111111111111111111111111111
X=0.012345679012345679012345679012345679012345679012345679
i=1, x1=0.1115683584819387288523090992226794695930498399634202101
a=3, y= 4.57247370827617741197988111568E-04
i=2, x1=0.1115717454995004149096513065420244203966197564734373145
a=5, y= 3.38701756168605734220731934495E-06
i=3, x1=0.1115717753673801475909329838552461571761926834267884353
a=7, y= 2.98678797326812816773132217368E-08
i=4, x1=0.1115717756541773466701771151874718803002763740834049756
a=9, y= 2.86797199079244131332225723124E-10
i=5, x1=0.1115717756570742880750179649989085037661762093425627184
a=11, y= 2.89694140484084981143662346590E-12
i=6, x1=0.1115717756571045505208425132875369965089348970803127043
a=13, y= 3.02624458245482886284927427587E-14
i=7, x1=0.1115717756571048743165591545449461902584458953853256671
a=15, y= 3.23795716641257409193749510998E-16
i=8, x1=0.1115717756571048778437456103320639374670462330574935643
a=17, y= 3.52718645578711774720860033767E-18
i=9, x1=0.1115717756571048778827073840477111120625928254814226444
a=19, y= 3.89617737156471745955465924239E-20
i=10, x1=0.1115717756571048778831425831662280411145125111110844037
a=21, y= 4.35199118516929051919685629662E-22
x=2.302585092994045684017505946622042026304342393994769842
u_ln(10.0) =  2.302585092994045684017505946622042026304342393994769842E0
  ln(10.0) =  2.302585092994045684017991454684364207601101488628800
*** end   test_mpa_ln.cl ***
*** start test_mpa_me.cl ***
i=1, kaijou=1, 1
a= 1.00000000000000000000000000000E+00
napier=2
i=2, kaijou=2, 1
a= 5.00000000000000000000000000000E-01
napier=2.5
i=3, kaijou=6, 1
a= 1.66666666666666666666666666667E-01
napier=2.666666666666666666666666666666666666666666666666666666
i=4, kaijou=24, 2
a= 4.16666666666666666666666666667E-02
napier=2.708333333333333333333333333333333333333333333333333332
i=5, kaijou=120, 3
a= 8.33333333333333333333333333333E-03
napier=2.716666666666666666666666666666666666666666666666666665
i=6, kaijou=720, 3
a= 1.38888888888888888888888888889E-03
napier=2.718055555555555555555555555555555555555555555555555553
i=7, kaijou=5040, 4
a= 1.98412698412698412698412698413E-04
napier=2.718253968253968253968253968253968253968253968253968251
i=8, kaijou=40320, 5
a= 2.48015873015873015873015873016E-05
napier=2.718278769841269841269841269841269841269841269841269838
i=9, kaijou=362880, 6
a= 2.75573192239858906525573192240E-06
napier=2.718281525573192239858906525573192239858906525573192236
i=10, kaijou=3628800, 7
a= 2.75573192239858906525573192240E-07
napier=2.718281801146384479717813051146384479717813051146384475
i=11, kaijou=39916800, 8
a= 2.50521083854417187750521083854E-08
napier=2.71828182619849286515953182619849286515953182619849286
i=12, kaijou=479001600, 9
a= 2.08767569878680989792100903212E-09
napier=2.718281828286168563946341724119501897279675057452835225
i=13, kaijou=6227020800, 10
a= 1.60590438368216145993923771702E-10
napier=2.71828182844675900231455787011342566898122453678009233
i=14, kaijou=87178291200, 11
a= 1.14707455977297247138516979787E-11
napier=2.71828182845822974791228759482727736695990664244632498
i=15, kaijou=1307674368000, 13
a= 7.64716373181981647590113198579E-13
napier=2.71828182845899446428546957647486748015848544949074049
i=16, kaijou=20922789888000, 14
a= 4.77947733238738529743820749112E-14
napier=2.718281828459042259058793450327841862233396624931016459
i=17, kaijou=355687428096000, 15
a= 2.81145725434552076319894558301E-15
napier=2.718281828459045070516047795848605061178979635251032692
i=18, kaijou=6402373705728000, 16
a= 1.56192069685862264622163643501E-16
napier=2.718281828459045226708117481710869683342623135824366927
i=19, kaijou=121645100408832000, 18
a= 8.22063524662432971695598123687E-18
napier=2.718281828459045234928752728335199400298604372696647676
i=20, kaijou=2432902008176640000, 19
a= 4.11031762331216485847799061844E-19
napier=2.718281828459045235339784490666415886146403434540261713
i=21, kaijou=51090942171709440000, 20
a= 1.95729410633912612308475743735E-20
napier=2.718281828459045235359357431729807147377251008913767143
i=22, kaijou=1124000727777607680000, 22
a= 8.89679139245057328674889744250E-22
napier=2.718281828459045235360247110869052204705925898658017389
i=23, kaijou=25852016738884976640000, 23
a= 3.86817017063068403771691193152E-23
napier=2.718281828459045235360285792570758511546303067777332617
i=24, kaijou=620448401733239439360000, 24
a= 1.61173757109611834904871330480E-24
napier=2.718281828459045235360287404308329607664652116490637418
i=25, kaijou=15511210043330985984000000, 26
a= 6.44695028438447339619485321920E-26
napier=2.71828182845904523536028746877783245150938607843916961
i=26, kaijou=403291461126605635584000000, 27
a= 2.47959626322479746007494354585E-27
napier=2.718281828459045235360287471257428714734183538514113155
i=27, kaijou=10888869450418352160768000000, 29
a= 9.18368986379554614842571683647E-29
napier=2.718281828459045235360287471349265613372138999998370323
i=28, kaijou=304888344611713860501504000000, 30
a= 3.27988923706983791015204172731E-30
napier=2.718281828459045235360287471352545502609208837908522364
i=29, kaijou=8841761993739701954543616000000, 31
a= 1.13099628864477169315587645769E-31
napier=2.718281828459045235360287471352658602238073315077837951
i=30, kaijou=265252859812191058636308480000000, 33
a= 3.76998762881590564385292152565E-33
napier=2.718281828459045235360287471352662372225702130983481803
i=31, kaijou=8222838654177922817725562880000000, 34
a= 1.21612504155351794962997468569E-34
napier=2.718281828459045235360287471352662493838206286335276765
i=32, kaijou=263130836933693530167218012160000000, 36
a= 3.80039075485474359259367089279E-36
napier=2.718281828459045235360287471352662497638597041190020357
i=33, kaijou=8683317618811886495518194401280000000, 37
a= 1.15163356207719502805868814933E-37
napier=2.718281828459045235360287471352662497753760397397739859
i=34, kaijou=295232799039604140847618609643520000000, 39
a= 3.38715753552116184723143573332E-39
napier=2.71828182845904523536028747135266249775714755493326102
i=35, kaijou=10333147966386144929666651337523200000000, 41
a= 9.67759295863189099208981638092E-41
napier=2.718281828459045235360287471352662497757244330862847338
i=36, kaijou=371993326789901217467999448150835200000000, 42
a= 2.68822026628663638669161566137E-42
napier=2.718281828459045235360287471352662497757247019083113624
i=37, kaijou=13763753091226345046315979581580902400000000, 44
a= 7.26546017915307131538274503072E-44
napier=2.718281828459045235360287471352662497757247091737715415
i=38, kaijou=523022617466601111760007224100074291200000000, 45
a= 1.91196320504028192510072237651E-45
napier=2.71828182845904523536028747135266249775724709364967862
i=39, kaijou=20397882081197443358640281739902897356800000000, 47
a= 4.90246975651354339769415993976E-47
napier=2.718281828459045235360287471352662497757247093698703317
i=40, kaijou=815915283247897734345611269596115894272000000000, 48
a= 1.22561743912838584942353998494E-48
napier=2.718281828459045235360287471352662497757247093699928934
i=41, kaijou=33452526613163807108170062053440751665152000000000, 50
a= 2.98931082714240451078912191449E-50
napier=2.718281828459045235360287471352662497757247093699958827
i=42, kaijou=1405006117752879898543142606244511569936384000000000, 52
a= 7.11740673129143931140267122497E-52
napier=2.718281828459045235360287471352662497757247093699959538
0 M_E2=2.71828182845904523536028747135266249775724709369995957
11 PI2=3.14159265358979323846264338327950288419716939937510582
*** end   test_mpa_me.cl ***
*** start test_mpa_pi.cl ***
i++=1, x=2.91421356237309504880168872420969807856967187537694
i++=2, x=3.1405792505221682483113312689758233117734402375129446
d=-2.26365688149073199509642544766E-01
i++=3, x=3.141592646213542282149344431982695774314437223345596
d=-1.01339569137403383801316300687E-03
i++=4, x=3.1415926535897932382795127748018639743812255048354357
d=-7.37625095613016834281916820007E-09
i++=5, x=3.1415926535897932384626433832795028841971146782836473
d=-1.83130608477638909815889173448E-19
i++=6, x=3.1415926535897932384626433832795028841971693993750987
d=-5.47210914514000000000000000000E-41
i++=7, x=3.1415926535897932384626433832795028841971693993750987
d= 0.00000000000000000000000000000E+00
0 x=3.1415926535897932384626433832795028841971693993750987
PI2=3.14159265358979323846264338327950288419716939937510582
*** end   test_mpa_pi.cl ***
*** start test_mpa_sqrt.cl ***
2.236067977499789696409173668731276235440618359612
x0=2.5
d= 2.5E-01
i=1, x0=2.25
d= 1.3888888888888888889E-02
i=2, x0=2.236111111111111111111111111111111111111111111111111112
d= 4.3133195307108350587E-05
i=3, x0=2.236067977915804002760524499654934437543133195307110119
d= 4.1601430631265167133E-10
i=4, x0=2.236067977499789696447872828327110358371497154548675901
d= 3.8699159595834122931E-20
i=5, x0=2.236067977499789696409173668731276235440953238731592776
d= 3.3487912006694368319E-40
i=6, x0=2.236067977499789696409173668731276235440618359611525833
d= 0.E+00
i=7, x0=2.236067977499789696409173668731276235440618359611525833
d= 0.E+00
2.23606797749978969640917366873127623544061835961
*** end   test_mpa_sqrt.cl ***
*** start test_mpa2.cl ***
17.3205080756887729352744634150587236694280525381039
0.123456789012345678901234567890123456789012345678901234
123456789012345678901234567890123456789012345678901234.0
*** end   test_mpa2.cl ***
*** start test_mpa3.cl ***
"Enter dec:"
(CDEC)s=123.456
"Enter dec:"
(CDEC)s=0.123
"Enter dec:"
*** end   test_mpa3.cl ***
*** start test_mpa4.cl ***
(dec)%1/(dec)%2=1.5647148288973384030418250950570342205323193916349809
(dec)%1*(dec)%2=9740.6784
*** end   test_mpa4.cl ***
*** start test_msg.cl ***
[coal] _set_que_and_output: socket closed
ERROR=-9088, ERRMSG="Socket closed", TIME="094855"
ERRMSG="Socket closed"
*** end   test_msg.cl ***
*** start test_name.cl ***
a=3, private a=2
a=2
*** end   test_name.cl ***
*** start test_narabi.cl ***
[coal] cl_gx_ex_obj_sub: 1'*'͎wł܂B
*1=##ERROR##
[(2..5)]=[2..5]
b[0]=2..5
[*('2'..'5')]=["2","3","4","5"]
*a="2","3","4","5"
*a=2,3,4,5
*** end   test_narabi.cl ***
*** start test_narusist.cl ***
SYSDATE=(2022/01/19 09:48:55), m=0, xx=10
SYSDATE=(2022/01/19 09:48:55), m=1, xx=10
SYSDATE=(2022/01/19 09:48:55), m=2, xx=10
SYSDATE=(2022/01/19 09:48:55), m=3, xx=100
i=153, *sa=1,125,27
i=370, *sa=27,343,0
i=371, *sa=27,343,1
i=407, *sa=64,0,343
SYSDATE=(2022/01/19 09:48:56), m=4, xx=1000
i=1634, *sa=1,1296,81,256
i=8208, *sa=4096,16,0,4096
i=9474, *sa=6561,256,2401,256
*** end   test_narusist.cl ***
*** start test_net.cl ***
[coal] zXg[YH03]dchostsɂȂAAhX擾ł܂B ret=-1
[coal] clerrdisp:rc=-11631(ffffd291) at script=[test_net.cl] line=2
[coal]  ---> [SQL YH03  select ABCD]
ERRMSG="zXg[YH03]dchostsɂȂAAhX擾ł܂B ret=-1
clerrdisp:rc=-11631(ffffd291) at script=[test_net.cl] line=2
 ---> [SQL YH03  select ABCD]"
*** end   test_net.cl ***
*** start test_nofree.cl ***
%1="test", %2="1"
***1: i=1 nofree no=2486
"Hellow world!!"
ERROR=0, ERRMSG=""
line="aaaaaaaaaaa"
line="bbbb"
line="cccccc"
line=""
line="ddddd"
[coal] fgetline: end of file
ERROR=-11100, ERRMSG="fgetline: end of file"
Enter :BBB
zzzzz
***2: i=1 nofree no=2491
*** end   test_nofree.cl ***
*** start test_null.cl ***
NULL=
NULL+NULL=0
NULL&NULL=""
*** end   test_null.cl ***
*** start test_num.cl ***
%1=
'' + 0=0
[coal] cl_conv_const_mpasub: dĂ܂B
' - - 0.' + 0=##ERROR##
[coal] cl_conv_const_mpasub: dĂ܂B
' + + 0.' + 0=##ERROR##
[coal] cl_conv_const_mpasub: dĂ܂B
' - + 0.' + 0=##ERROR##
[coal] cl_conv_const_mpasub: dĂ܂B
' + - 0.' + 0=##ERROR##
[coal] Parm1:: ȊO̕[-123 A]܂(pos=5)B
' -123 A ' + 0=##ERROR##
' -123F ' + 0=-123
' -123d ' + 0=-123
' -0xff ' + 0=-255
' -0b111 ' + 0=-7
' -0o7 ' + 0=-7
' -123.45 ' + 0=-123.45
-123.45 + 0=-123.45
' -123.45E0   ' + 0=-123.45
1.23456789012345678901234567890123456789
123456.7890119999
0.0000000001234567890123456
'1.234567890123456789012345678901234567890-10'+0=0.000000000123456789012345678901234567890123456789
(CDEC)12345=12345
0, 123, 0.12
0, 0.12
0xf12d=61741, "ASD"
0.0000000000000000000
1.0/3.0=0.333333333333333333333333333333333333333333333333333333
10.0/3.0=3.333333333333333333333333333333333333333333333333333333
3.0*3.0=9
a=123456789012345
'+1.23+65535'+0= 1.23E65535
'-1.23-65536'+0=-1.23E-65536
 1.23E65535
 1.23E-65536
 1.229999999999999E308
 1.229999999999935E-309
[coal] (W)cl_mpa_scale: MPA( 1.234567897E6) I[ot[! set to MAX.
(CDEC(5,2))1234567.897=999.99
[coal] cl_conv_const_mpasub: wĂ܂B
1.23e++3+=##ERROR##
[coal] cl_conv_const_n_str: : ȊO̕[0x012X]܂(pos=6)B
0x012X=##ERROR##
[coal] (1)[+]܂B
'+'+0=##ERROR##
ERRMSG="(1)[+]܂B"
*** end   test_num.cl ***
*** start test_num_error.cl ***
[coal] cl_conv_const_n_str: : ȊO̕[10.9a]܂(pos=3)B
$b = 10.9a TO 'D'=##ERROR##
[coal] cl_cmpt_to_number.FLOA: ȊO̕[1.4a]܂(pos=2)B
TO_NUMBER('1.4a',$CLFLOAT)=##ERROR##
[coal] cl_cmpt_to_number.BINA: ȊO̕[2.5a]܂(pos=2)B
TO_NUMBER('2.5a',$CLINT)=##ERROR##
[coal] cl_cmpt_to_number.DECI: ȊO̕[3.6a]܂(pos=2)B
TO_NUMBER('3.6a',$CLDEC)=3
[coal] cl_cmpt_to_number.DECI: ȊO̕[3.6a]܂(pos=2)B
TO_NUMBER('3.6a',$CLDEC,2,0)=3
[coal] cl_conv_const_n_str: : ȊO̕[1s]܂(pos=2)B
1s + 1=##ERROR##
[coal] cl_conv_const_n_str: : ȊO̕[2s]܂(pos=2)B
2s + 1.2=##ERROR##
[coal] cl_conv_const_n_str: : ȊO̕[3s]܂(pos=2)B
3s + 1.3D=##ERROR##
[coal] cl_conv_const_mpasub: dĂ܂B
'++1.0'+0=##ERROR##
ERRMSG="cl_conv_const_mpasub: dĂ܂B"
*** end   test_num_error.cl ***
*** start test_nval.cl ***
nval(1,'null')=1
nval('','null')="null"
nsval('','null')="null"
nsval(' ','null')="null"
nsval('X','null')="X"
ndef('$a','')=2
ndef('$x','')=""
nval(ndef('$x','YYYY'),'XXX')="YYYY"
nval(ndef('$x',''),'X01')="X01"
nval(ndef('$x'),'X02')="X02"
nval(ndef('$b[0]'),'B0')="B0"
ndef('b[0]','NOT' & 'DEFINE',2+3)=2
ndef('b[0]','NULL',0)="NULL"
[coal] cl_gx_exp_gp_obj_opt: ܂B
ndef(,'NULL',0)=##ERROR##
ndef('h[0]',,1)=3
[coal] cl_gx_exp_gp_obj_opt: ܂B
ndef(,)=##ERROR##
ndef('c','c is not defined.')="c is not defined."
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
iif(1,'null',100,200)=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
nval(1,'null',100)=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
nsval(1,'null',100)=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: SYNTAXG[B
ndef('b[0]','NULL',0,100)=##ERROR##
*** end   test_nval.cl ***
*** start test_on_def_node.cl ***
a=private variant a[5], b=private variant b[3]
*** end   test_on_def_node.cl ***
*** start test_opr.cl ***
$a=3, $b=4, $c=4, $d=4, $e=-4, $f=-4, $g=0, $h=1, $m=2147483647
h=1, ~~h=-2, h~~=-2, !!h=0, h!!=0
h=1, i=-2
j=0, k=0
$a="AB", $b="AB", $c="XY", $d="XY"
a=1, b=10
*** end   test_opr.cl ***
*** start test_opr_func.cl ***
%0=0, %1=
argc=0, %argv[0]=
'ABCDEFG' IS 'l'=7
'ABCDEFG' TO 'z'="`abcdef"
'&0&(&1&, &2&, &3&)' REP '0.5%ȉ&&1g&&105&&1'="0.5%ȉ(1g, 105, 1)"
%1 CONDAS '//null/''%s'''="null"
'ABCDEFG' CONCAT 3="ABCDEFG3"
'ABC=%d' EDIT 3="ABC=3"
[coal] cl_gx_compile: Zq܂B'AB,D,FG' GETARGS
'AB,D,FG' GETARGS 1=##ERROR##
'ABCDEFG' LEFT 3="ABC"
'ABCDEFG' RIGHT 3="EFG"
'ABCDEFG' LEFTB 3="ABC"
'ABCDEFG' RIGHTB 3="EFG"
'ABCDEFG' LPAD 3="EFG"
'ABCDEFG' LPADB 3="EFG"
'ABCDEFG' RPAD 3="ABC"
'ABCDEFG' RPADB 3="ABC"
'ABCDEFG' STRINGS 3="ABCDEFGABCDEFGABCDEFG"
'ABCDEFG' SUBSTR 3="CDEFG"
'ABCDEFG' MID 3="CDEFG"
'ABCDEFG' SUBSTRB 3="CDEFG"
'ABCDEFG' MIDB 3="CDEFG"
' CDEF ' TRIM 0="CDEF"
'A' asc 0=65
60 chr 0="<"
'AB' IN 'AB'=1
'CD' iIN 'cD'=1
'ABCDEFG' INSTR 'F'=6
'ABCDCFC' INiSTR 'c'=3
'ABCDCFG' INRSTR 'C'=5
'ABCDCFG' INiRSTR 'c'=5
'ABCDEFG' LIKE '%_F_%'=1
'ABCDEFG' iLIKE '%_f_%'=1
2 MAX 3=3
5 MIN 3=3
10 MOD 3=1
7 SUM 3=10
6 AVG 3=4.5
'AB/123/FG' REGEX '/[0-9]+/'=1
'ABCDEFG' iREGEX 'cde'=1
'ABCDEFG' SKIP_OPT 'ABC'=1
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
201c6198     0 43 44 45 46 47                                  CDEFG
201c61a8     5 (DATA END)

'ABCDEFG' TO_BULK 3=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
201c6190     0 41 42 43 44 45 46 47 00 00 00 03                ABCDEFG....
201c61a0    11 (DATA END)

'ABCDEFG' TO_BULKS 3=**BULK**
1234567 TO_CHAR 3="123"
'123.456' TO_NUMBER 3=123.456
SYSDATE ADD_MONTHS 3=(2022/04/19 09:49:10)
SYSDATE LAST_DAY 0=(2022/01/31 00:00:00)
SYSDATE TO_CHAR 'y-m-d'="22-1-19"
'2021-08-04' TO_DATE 'yyyy-mm-dd'=(2021/08/04 00:00:00)
*** end   test_opr_func.cl ***
*** start test_opr2.cl ***
$a=1, $b=4, $c=8, $d=64
i>>1=-1, i >>> 1=2147483647
ui>>1=2147483647
dd=-1
*** end   test_opr2.cl ***
*** start test_opr3.cl ***
100 % 13=9
*** end   test_opr3.cl ***
*** start test_option.cl ***
"*** option 1 0x0"
[coal] _ex_conv_parm_opt: b̃f[^ݒłB
b=##ERROR##
ndef('b',,1)=2
[coal] cl_gx_get_all_var_ent: c(c)͖`łB
c=##ERROR##
ndef('c',,1)=1
h['A']=
ndef('h[''A'']',,1)=0
"*** option 1 0x4"
[coal] _ex_conv_parm_opt: f[^ݒłB
h['B']=##ERROR##
ndef('h[''B'']',,1)=2
*** end   test_option.cl ***
*** start test_output.cl ***
$1="123"
*** end   test_output.cl ***
*** start test_pad.cl ***
lpad('12345',10,'0')="0000012345"
rpad('12345',10,'0')="1234500000"
lpad(vstr,len,pad)="     12345"
rpad(vstr,len,pad)="12345     "
lpadb(vstr,len,pad)="     12345"
rpadb(vstr,len,pad)="12345     "
lpad('12`ab',10,'X')="XXXXX12`ab"
rpad('12`ab',10,'w')="12`abwwwww"
lpadb('12345',10,'0')="0000012345"
rpadb('12345',10,'0')="1234500000"
lpadb('12`ab',15,'X')="XXXX12`ab"
lpadb('123`a',15,'XY')="XYXYXY123`a"
rpadb('123`a',15,'w')="123`aww"
lpad('12`ab34567890',-5)="34567890"
rpad('12`ab34567890',-5)="12`ab345"
lpadb('12`ab34567890',-5)="ab34567890"
rpadb('12`ab34567890',-5)="12`ab345"
*** end   test_pad.cl ***
*** skip  #test_pi.cl ***
*** start test_pi2.cl ***
 0     0.000       0 3.141592654 <-- pi
 1     4.635   16000 3.141448494 4.588737e-05   3451 977972
 2    14.436   32000 3.141520773 2.288031e-05   2216 979404
*** end   test_pi2.cl ***
*** start test_pointer.cl ***
x=local int
*a="A", a=local char(1) pointer
f(&x,'A')=0
x="A"
*a="B", a=local char(1) pointer
f(&ax[1],'B')=0
ax[1]="B"
[coal] cl_gx_bexp: |C^́AZł܂B
[coal] |C^͎wł܂B
y=private int pointer, *y=10, y+1=##ERROR##, *y+2=12, chr(y is 'I')="S", ++y=##ERROR##, ++(*y)=11, *y=11
*a="C", a=local char(1) pointer
f(y,'C')=0
x="C"
*** end   test_pointer.cl ***
*** start test_power.cl ***
n=2, m=1
n=3, m=2
n=4, m=6
n=5, m=24
n=6, m=120
n=7, m=720
n=8, m=5040
n=9, m=40320
n=10, m=362880
3628800
*** end   test_power.cl ***
*** start test_prepro.cl ***
Strings(' ',10)="          "
[coal] cl_gx_get_all_var_ent: x32(x32)͖`łB
x32 + '1'=##ERROR##
[coal] cl_gx_func: [xyz]͊֐ł͂܂B
xyz('XXX',123)=##ERROR##
'XXX' &+ ',' &+ 123 &+ '12345'="XXX,12312345"
[coal] cl_gx_get_all_var_ent: yh02(yh02)͖`łB
[coal] cl_gx_get_all_var_ent: A(A)͖`łB
yh02 + 	12=##ERROR##, A=##ERROR##
[coal] cl_gx_get_all_var_ent: AAA(AAA)͖`łB
AAA=##ERROR##
"AA"
"AA"
"AA"
"else"
x={1,2,3,4,5}
*** end   test_prepro.cl ***
*** start test_print.cl ***
[coal] Print: %1="A", %2="B", %3="C", x=1000
[coal] Print: %1="A", %2="B", %3="C", x=1000
%1="A", %2="B", %3="C", x=1000
[coal] %1="A", %2="B", %3="C", x=1000
A B C 1000
A B C 1000
abs="abs()"
(%1,%2,%3,x)=1000
"A", "B", "C", 1000
"A", "B", "C", 1000
"A", "B", "C", 1000
A B C 1000
A B C 1000
ABC1000
%1="A", %2="B", *x="A","B","C"
"A", "B", "A","B","C"
ABA
[1,2,3]=[1,2,3], x=[1,2,3]
[1,2,3]=[const int,const int,const int], x=[int,int,int]
{1,2,3}={1,2,3}, x={1,2,3}
{1,2,3}={const int,const int,const int}, x={int,int,int}
{1,2,3}, {1,2,3}
{1 2 3} {1 2 3}
<{1 2 3}><{1 2 3}><private variant a[5]>
*** end   test_print.cl ***
*** start test_print_d.cl ***
123.45	12345678901234560000.0
date_diff('mi','2020/01/13','2020/01/01')=17280.0
*** end   test_print_d.cl ***
*** start test_print2.cl ***
XXX, "YYYY"
1 2 3, 4, 5, 6
-1,234,567,890.0, -1,234,567,890.0, -1.23456789E+09
-1.2346E+09, -1,234,567,890.0, -1.2345678E+07, -1.23456E+05
-12,345.0, -1.2345E+04, -1.2345E+4
0.0,  0.0E+00,  0.0E+0
1.0,  1.0E+00,  1.0E+0
123.45, 12345678901234560000.0
0.99999999999999996
(dec(10,-2))12345.678=12,300
1+2=3	"A"
*** end   test_print2.cl ***
*** start test_printf.cl ***
1 AA <private variant a[10]> xxxx%dyyy
2 XYZ 3.500000
*** end   test_printf.cl ***
*** start test_printf2.cl ***
BB 2
1 AA
[coal] 2 XYZ 3.500000
3..5 "A","B","C" <[1,2,3]> <{4,5}> <"ABS()"> <private variant a[10]> <private tt:x{Int a, Char b}> <{1}>
 1   13.450   100 3.142500000 5.000000e-03
*** end   test_printf2.cl ***
*** start test_private.cl ***
$a=1, $la=3, $ga=4, $lb=7, $gb=7, $gg=local variant gg[10]
*** end   test_private.cl ***
*** start test_proc.cl ***
"called proc-1"
"proc-1 loop"
"proc-1 loop loop"
$a=102
"called proc-1"
"proc-1 loop"
"proc-1 loop loop"
$a=102
*** end   test_proc.cl ***
*** start test_proc_inner.cl ***
main.('proc-1')="main.proc-1()"
"called proc-1"
x=102
"called proc-1"
x="proc-1"
"called proc-1"
x="proc-1"
"called proc-1"
x="proc-1"
*** end   test_proc_inner.cl ***
*** start test_proc_parm.cl ***
%argv[0]="10"
PROCNAME="main"
%0=5
$argc=5, %argv[0]="10", %argv[1]="20", %argv[2]="30", %argv[3]="40"
$aa="10", $bb="20", $cc="30", $dd="40"
[coal] cl_gx_exp_gp_obj_opt: ܂B
PROCNAME="proc1"
[coal] cl_gx_compile: [%0]ɃANZXCq͎wł܂B
local %0=##ERROR##
[coal] cl_gx_conv_index:[%argv]̃CfbNX͈͊OłBi=1 index=4 (def=0..3)
$argc=4, %argv[0]="A", %argv[1]="B", %argv[2]=3, %argv[3]=, %argv[4]=##ERROR##
$aa="A", $bb="B", $cc=3, $dd=
nval($dd,'NULL')="NULL", ndef('$dd','NULL')="NULL"
[coal] _ex_conv_parm_opt: 萔(argc)ւ̑͂ł܂B
argc=0=##ERROR##
[coal] _ex_conv_parm_opt: 萔(%argv[])ւ̑͂ł܂B
%argv[0]=0=##ERROR##
PROCNAME="func1"
$argc=4, %argv=local variant %argv[(1),4]
[coal] cl_gx_conv_index:[%argv]̃CfbNX͈͊OłBi=1 index=4 (def=0..3)
%argv[0]="10", %argv[1]="20", %argv[2]="30", %argv[3]="40", %argv[4]=##ERROR##
$aa="10", $bb="20", $cc="30", $dd="40"
nval($dd,'NULL')="40", ndef('$dd','NULL')="40"
func1(%1,%2,%3,%4)=0
*** end   test_proc_parm.cl ***
*** start test_proc_var.cl ***
[coal] _ex_conv_parm_opt: ãf[^ݒłB
%0=0, $argc=0, a=##ERROR##
[coal] cl_gx_exp_gp_obj_opt: ܂B
[coal] z(w)͎wł܂B
[coal] cl_func_list: w肪słB
FL($ee)=##ERROR##
$argc=5, %argv[4]=const variant w[10], $aa="A", $bb="B", $cc=3, $dd=, ee=local variant w[10]
$x[0]="func"
$m[0]="MAPPED"
$a="main"
$w[0]="func"
$21="MAPPED"
*** end   test_proc_var.cl ***
*** start test_proc2.cl ***
chr(is(z,'I'))="L"
x[0]=1
*a={Index=0,Value=1}
*a={Index=1,Value=2}
*a={Index=2,Value=3}
*a={Index=3,Value=4}
*a={Index=0,Value=10}
*a={Index=1,Value=20}
*a={Index=2,Value=30}
*a={Index=3,Value=40}
*a={Index=4,Value=50}
*aa={Index=0,Value="AAA"}
*aa={Index=1,Value="BBB"}
z={10,20,30,40,50,{"AAA","BBB"}}, *x=1,2,3,4
*** end   test_proc2.cl ***
*** start test_proc3.cl ***
"called proc-1"
x=102
"called proc-1"
x="proc-1"
*** end   test_proc3.cl ***
*** start test_proc4.cl ***
%0=0, argc=0, countv(%argv)=0, *%argv=
%argv=local variant %argv[(1),512]
[coal] cl_gx_exp_gp_obj_opt: ܂B
argc=4, countv(%argv)=4, *%argv=102,"A",,"C"
%argv=local variant %argv[(1),4]
*** end   test_proc4.cl ***
*** start test_proc5.cl ***
gn=2
[coal] cl_pr_ex_def_scalar_attr_info:(W)ϐ[gn]ւ̃f[^𖳎܂B
gn=1
*** end   test_proc5.cl ***
*** start test_putline.cl ***
x=58595a0a0a2052540a
1234567890

ABCD

XYZ

 RT

XYZ

 RT

$1=11, $r=6, $n=1, $2=10, $3=12
0.0001,0.0001
0.0001, 0.0001
2022/01/19 09:49:25
SYSDATE=(2022/01/19 09:49:25)
*** end   test_putline.cl ***
*** start test_quot.cl ***
[coal] cl_gx_get_all_var_ent: XXX12(XXX12)͖`łB
[coal] cl_gx_get_all_var_ent: A(A)͖`łB
'Zy''/*Z' + 	XXX12=##ERROR##, A=##ERROR##
[coal] cl_gx_get_all_var_ent: X(X)͖`łB
[coal] cl_gx_get_all_var_ent: A(A)͖`łB
'y' + X=##ERROR##, A=##ERROR##
X &+ 'xxz''PQR' &+ Y="1xxz'PQRaa"
*** end   test_quot.cl ***
*** start test_range.cl ***
x={-3.299999999999999..5}
1..10=1..10
*(1..10)=1,2,3,4,5,6,7,8,9,10
*aa=*(1,2,3,4,5,6,7,8,9,10)
*aa=*(1,2,3,4,5,6,7,8,9,10)
c3="123", c="12345".."12350", *c="1","2"
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=4 scale=0x00 code=0 dlen=40 len(gid)=0 hlen=0 pos=0(00000000) aux=0x00 0x11 auxlen=0004 00000000 data=20131fa8 2.5..5.6 e/z/l=0/0/2 num=+2 50 
a=2.5..5.6, a=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=4 scale=0x00 code=0 dlen=40 len(gid)=0 hlen=0 pos=0(00000000) aux=0x80 0x11 auxlen=0004 00000000 data=200bf498 2.5..5.6 e/z/l=0/0/2 num=+2 50 
b=2.5,3.5,4.5,5.5, b=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=2 scale=0x40 code=0 dlen=4 len(gid)=4 hlen=0 pos=2(00000002) aux=0x02 0x11 auxlen=0000 20141398 data=0022c510 2
ia=2, ia=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=2 scale=0x40 code=0 dlen=4 len(gid)=4 hlen=0 pos=2(00000002) aux=0x02 0x11 auxlen=0000 201413b8 data=0022c510 2
ib=2, ib=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=3 scale=0x40 code=0 dlen=8 len(gid)=8 hlen=1074003968 pos=0(00000000) aux=0x03 0x11 auxlen=0000 201413d8 data=0022c510 2.500000e+00
fa=2.5, fa=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=3 scale=0x40 code=0 dlen=8 len(gid)=8 hlen=1074003968 pos=0(00000000) aux=0x03 0x11 auxlen=0000 201413f8 data=0022c510 2.500000e+00
fb=2.5, fb=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=4 scale=0x00 code=0 dlen=40 len(gid)=40 hlen=0 pos=0(00000000) aux=0x04 0x11 auxlen=0000 20146f60 data=20146f60 2.5
da=2.5, da=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=4 scale=0x00 code=0 dlen=40 len(gid)=40 hlen=0 pos=0(00000000) aux=0x04 0x11 auxlen=0000 20123f80 data=20123f80 2.5
db=2.5, db=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=1 scale=0x00 code=5 dlen=4 len(gid)=0 hlen=0 pos=2(00000002) aux=0x01 0x11 auxlen=0004 2011f828 data=2011f828 [ABC]..[BY]
ca="ABC".."BY", ca=#DUMP2#
*x={Index=0,Value="A"}
*x={Index=1,Value="B"}
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=1 scale=0x00 code=5 dlen=4 len(gid)=0 hlen=0 pos=2(00000002) aux=0x81 0x11 auxlen=0004 2011f8e0 data=2011f8e0 [ABC]..[BY]
cb="A","B", cb=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=1 scale=0x00 code=5 dlen=2 len(gid)=0 hlen=0 pos=2(00000002) aux=0x01 0x11 auxlen=0004 2011f828 data=2011f828 [1]..[5]
ca="1".."5", ca=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=1 scale=0x00 code=5 dlen=2 len(gid)=0 hlen=0 pos=2(00000002) aux=0x81 0x11 auxlen=0004 2011f8e0 data=2011f8e0 [1]..[5]
cb="1","2","3","4","5", cb=#DUMP2#
ca="1".."5"
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=1 scale=0x00 code=5 dlen=4 len(gid)=0 hlen=0 pos=2(00000002) aux=0x01 0x11 auxlen=0004 2011f828 data=2011f828 [3.2]..[6.4]
ca="3.2".."6.4", ca=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=1 scale=0x00 code=5 dlen=4 len(gid)=0 hlen=0 pos=2(00000002) aux=0x81 0x11 auxlen=0004 2011f8e0 data=2011f8e0 [3.2]..[6.4]
cb="3","4","5","6", cb=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=1 scale=0x00 code=5 dlen=4 len(gid)=0 hlen=0 pos=2(00000002) aux=0x01 0x11 auxlen=0004 2011f828 data=2011f828 [2.5]..[7.5]
ca="2.5".."7.5", ca=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=1 scale=0x00 code=5 dlen=4 len(gid)=0 hlen=0 pos=2(00000002) aux=0x81 0x11 auxlen=0004 2011f8e0 data=2011f8e0 [2.5]..[7.5]
cb="2","3","4","5","6","7", cb=#DUMP2#
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=4 scale=0x00 code=0 dlen=40 len(gid)=0 hlen=0 pos=0(00000000) aux=0x00 0x00 auxlen=0004 00000000 data=20113f80 3.2..6.4 e/z/l=0/0/2 num=+3 20 
aa[0]=3.2..6.4, aa[0]=#DUMP2#
i=2
[coal] cl_gx_ex_obj_sub: 1'*'͎wł܂B
[coal] cl_gx_ex_obj_sub: i'*'͎wł܂B
[coal] cl_gx_get_all_var_ent: x(x)͖`łB
*1=##ERROR##, *i=##ERROR##, *x=##ERROR##
[coal] DUMP1= pInfo=0022c508 id=0x20[ ] attr=2 scale=0x40 code=0 dlen=4 len(gid)=0 hlen=0 pos=4(00000004) aux=0x00 0x80 auxlen=0000 00000000 data=0022c510 4
(1,2,3,4)=#DUMP1#
[coal] DUMP1= pInfo=0022c508 id=0x20[ ] attr=2 scale=0x40 code=0 dlen=4 len(gid)=0 hlen=0 pos=1(00000001) aux=0x00 0x80 auxlen=0000 00000000 data=0022c510 1
[coal] DUMP2= pInfo=0022c508 id=0x20[ ] attr=1 scale=0x00 code=5 dlen=1 len(gid)=0 hlen=0 pos=2(00000002) aux=0x00 0x80 auxlen=0000 00000000 data=201000e0 [A]
[coal] DUMP3= pInfo=0022c508 id=0x20[ ] attr=4 scale=0x00 code=0 dlen=40 len(gid)=0 hlen=0 pos=0(00000000) aux=0x80 0x11 auxlen=0004 00000000 data=200bf498 2.5..5.6 e/z/l=0/0/2 num=+2 50 
#DUMP1# #DUMP2# #DUMP3#
*** end   test_range.cl ***
*** start test_range1.cl ***
a=range(1,10)=1..10
*a=1,2,3,4,5,6,7,8,9,10
a=range(1,10,2)=1..10..2
*a=1,3,5,7,9
*range(10,1,-2)=10,8,6,4,2
b=range(1.2f,3.5f)=1.2..3.5
*b=1.2,2.2,3.2
b=range(1.4f,8.9f,3.2f)=1.4..8.9..3.2
*b=1.4,4.6,7.8
*range(9.4f,3.9f,-2.5f)=9.4,6.9,4.4
c=range(1.5,3.4)=1.5..3.4
*c=1.5,2.5, print="print()", c=range(1.5,8.8,3.1)=1.5..8.8..3.1
*c=1.5,4.6,7.7
*range(10.5,3.8,-2.5)=10.5,8,5.5
d=range('A','C')="A".."C"
*d="A","B","C"
d=range('A','I',3)="A".."I"..3
*d="A","D","G"
*range('Z','H',-3)="Z","W","T","Q","N","K","H"
e=range(SYSDATE,SYSDATE+2)=(2022/01/19 09:49:25)..(2022/01/21 09:49:25)
*e=(2022/01/19 09:49:25),(2022/01/20 09:49:25),(2022/01/21 09:49:25)
e=range((DATE)'2021/06/05',(DATE)'2021/12/06','M 2')=(2021/06/05 00:00:00)..(2021/12/06 00:00:00)..'M 2'
*e=(2021/06/05 00:00:00),(2021/08/05 00:00:00),(2021/10/05 00:00:00),(2021/12/05 00:00:00)
*range((DATE)'2030/06/05',(DATE)'2021/12/06','Y-2')=(2030/06/05 00:00:00),(2028/06/05 00:00:00),(2026/06/05 00:00:00),(2024/06/05 00:00:00),(2022/06/05 00:00:00)
a=1 .. 5=1..5
*a=1,2,3,4,5
a=1 .. 5 .. 3=1..5..3
*a=1,4
b=1.2f..3.5f=1.2..3.5
*b=1.2,2.2,3.2
b=1.4f..8.9f..3.2f=1.4..8.9..3.2
*b=1.4,4.6,7.8
c=1.5..3.4=1.5..3.4
*c=1.5,2.5, print="print()", c=1.5..8.8..3.1=1.5..8.8..3.1
*c=1.5,4.6,7.7
d='A'..'C'="A".."C"
*d="A","B","C"
d='A'..'I'..3="A".."I"..3
*d="A","D","G"
e=SYSDATE..(SYSDATE+2)=(2022/01/19 09:49:25)..(2022/01/21 09:49:25)
*e=(2022/01/19 09:49:25),(2022/01/20 09:49:25),(2022/01/21 09:49:25)
e=(DATE)'2021/06/05'..(DATE)'2021/12/06'..'M 2'=(2021/06/05 00:00:00)..(2021/12/06 00:00:00)..'M 2'
*e=(2021/06/05 00:00:00),(2021/08/05 00:00:00),(2021/10/05 00:00:00),(2021/12/05 00:00:00)
*** end   test_range1.cl ***
*** start test_redefine.cl ***
z=private const type z{Int a[5,3,2], Char(5) b, Dec(10,2) c[10], Bulk(65536) d, Double e hash(10), variant f}
a=private z:a{Int a[5,3,2], Char(5) b, Dec(10,2) c[10], Bulk(65536) d, Double e hash(10), variant f}
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200c3ee8     0 30 31 32 33 34 35 36 37 38 39                   0123456789
200c3ef8    10 (DATA END)

x=private Bulk(10) x[10], x[0]=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2011f0f0     0 58 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 X012345678901234
2011f100    16 35 36 37 38                                     5678
2011f110    20 (DATA END)

x=private Bulk(20) x[10], x[0]=**BULK**
[coal] clerrdisp:rc=   -11(fffffff5) at script=[test_redefine.cl] line=22
[coal]  ---> [redefine int a.a 10 = '012345678901.','-12345678901.','012345678901','-012345678901','0x123456789','-0x123456789']
*** end   test_redefine.cl ***
*** start test_redefine2.cl ***
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20146170     0 31 32 33 34 35 36 37 38 39 30                   1234567890
20146180    10 (DATA END)

x[0]=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20120458     0 39 38 37 36 35                                  98765
20120468     5 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20120461     0 00 00 04 d2                                     ....
20120471     4 (DATA END)

x[0]=**BULK**, x[1]=**BULK**
a=private z:a{Int a[5,3,2], Char(5) b, Dec(10,2) c[10], Bulk(20) d, Double e hash(10), variant f, variant g}
a.a[0]=98765, a.a[0,0,1]=1234
cc="9876543210"
cc="98765"
cc="012334567890asd"
ma=private variant ma[(1),3,2,4], *ma=
ma=private variant ma[(2),10], *ma=1000,2000,3000
ma=private variant ma[(2),10], *ma=1000,2000,3000
*** end   test_redefine2.cl ***
*** start test_redefine3.cl ***
[coal] DUMP3= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=2470 aux=0x01 0x12 auxlen=0000 20136f50 data=2012d1a8(VarIndex=2012d130 Attr=1 0 0 0 size=10 xhp=00000000  pInfoType=00000000 index=[1,10,3,1,10,0]) varnam=[ca]
ca=private Char(10) ca[10], *ca="ABCD","1234567890","", ca=#DUMP3#
[coal] DUMP3= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=2470 aux=0x01 0x12 auxlen=0000 20136f50 data=2012d1a8(VarIndex=20088f60 Attr=1 0 0 0 size=0 xhp=00000000  pInfoType=00000000 index=[1,5,3,1,5,0]) varnam=[ca]
ca=private Char ca[5], *ca="ABCD","1234567890","", ca=#DUMP3#
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2012d250     0 00 00 00 0c                                     ....
2012d260     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2012d25e     0 58 59 5a                                        XYZ
2012d26e     3 (DATA END)

[coal] DUMP3= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=2470 aux=0x05 0x12 auxlen=0000 20136f70 data=2012d2e0(VarIndex=2012d250 Attr=5 0 0 0 size=10 xhp=00000000  pInfoType=00000000 index=[1,10,3,1,10,0]) varnam=[ba]
ba=private Bulk(10) ba[10], *ba=**BULK**,**BULK**,**BULK**, ba=#DUMP3#
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20089078     0 00 00 00 0c                                     ....
20089088     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200fb660     0 58 59 5a                                        XYZ
200fb670     3 (DATA END)

[coal] DUMP3= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=2470 aux=0x05 0x12 auxlen=0000 20136f70 data=2012d2e0(VarIndex=20089060 Attr=5 0 0 0 size=0 xhp=00000000  pInfoType=00000000 index=[1,5,3,1,5,0]) varnam=[ba]
ba=private Bulk ba[5], *ba=**BULK**,**BULK**,**BULK**, ba=#DUMP3#
[coal] DUMP3= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=2470 aux=0x01 0x12 auxlen=0000 20136f90 data=200bd7c8(VarIndex=200bd720 Attr=1 0 0 0 size=0 xhp=00000000  pInfoType=00000000 index=[1,5,3,1,5,0]) varnam=[cax]
cax=private Char cax[5], *cax="ABCD","1234567890","", cax=#DUMP3#
[coal] DUMP3= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=2470 aux=0x01 0x12 auxlen=0000 20136f90 data=200bd7c8(VarIndex=200bdee0 Attr=1 0 0 0 size=5 xhp=00000000  pInfoType=00000000 index=[1,8,3,1,8,0]) varnam=[cax]
cax=private Char(5) cax[8], *cax="ABCD","12345","", cax=#DUMP3#
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200bda80     0 00 00 00 0c                                     ....
200bda90     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200bdab8     0 58 59 5a 41 42 43 44                            XYZABCD
200bdac8     7 (DATA END)

[coal] DUMP3= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=2470 aux=0x05 0x12 auxlen=0000 20136fb0 data=200bd9b0(VarIndex=200bd908 Attr=5 0 0 0 size=0 xhp=00000000  pInfoType=00000000 index=[1,5,3,1,5,0]) varnam=[bax]
bax=private Bulk bax[5], *bax=**BULK**,**BULK**,**BULK**, bax=#DUMP3#
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20102840     0 00 00 00 0c                                     ....
20102850     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20102849     0 58 59 5a 41 42                                  XYZAB
20102859     5 (DATA END)

[coal] DUMP3= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=2470 aux=0x05 0x12 auxlen=0000 20136fb0 data=200bd9b0(VarIndex=20102840 Attr=5 0 0 0 size=5 xhp=00000000  pInfoType=00000000 index=[1,8,3,1,8,0]) varnam=[bax]
bax=private Bulk(5) bax[8], *bax=**BULK**,**BULK**,**BULK**, bax=#DUMP3#
*** end   test_redefine3.cl ***
*** start test_redefine4.cl ***
a=10, a=local Double
a=10.00000, a=local Dec(10,5)
a=-123456789, a=local Int
[coal] (W)cl_mpa_scale: MPA(-1.23456789E8) I[ot[! set to MAX.
a=-999.99, a=local Dec(5,2)
*** end   test_redefine4.cl ***
*** start test_redefine5.cl ***
z=private Dec(10,0) z[3], *z=1234567,2345678
[coal] (W)cl_mpa_scale: MPA( 1.234567E6) I[ot[! set to MAX.
[coal] (W)cl_mpa_scale: MPA( 2.345678E6) I[ot[! set to MAX.
z=private Dec(5,0) z[3], *z=99999,99999
y=private Char(10) y[3], *y="1234567","ABCDEFG"
y=private Char(5) y[3], *y="12345","ABCDE"
*** end   test_redefine5.cl ***
*** start test_REF.cl ***
$1={1,2,3,"A","s"}
[coal] cl_ope_list LIST_REF: Qƈʒu(-1)słB
list_ref($1,$i)=##ERROR##
list_ref($1,$i)=1
list_ref($1,$i)=2
list_ref($1,$i)=3
list_ref($1,$i)="A"
list_ref($1,$i)="s"
list_ref($1,$i)=""
*** end   test_REF.cl ***
*** start test_regex.cl ***
'12' REGEX '2'=1
REGEX('aBcDeF','C.E')=0
REGEX('aBcDeF','c.e')=1
'abcDefg' iREGEX 'Cd'=1
iREGEX('abcDefg','Cd')=1
REGEX('abc*D_efg','c\\*D')=1
REGEX('abc*D?efg','D\\?e')=1
REGEX('abcxD.efg','c\\*D')=0
REGEX('abcyD.efg','D\\?e')=0
REGEX('asd','')=1
REGEX('asd','()')=1
REGEX('','')=1
REGEX('','()')=1
REGEX('abcDefg','Cd','cde','bc?e')=0
REGEX('abcDefg',3,'Cd','cde','c.e')=3
REGEX('abcDefg',3,3,'Cd','cde','c.e')=3
REGEX('abcDefg',3..4,'Cd','cde','c.e')=0
*** end   test_regex.cl ***
*** start test_rep_condas.cl ***
a="&0&(&1&,&2&,&3&)", b="0.5%ȉ&&1g&&105&&1", rep(a,b)="0.5%ȉ(1g,105,1)"
a="&0&(&1&,&2&,&3&)", b="0.5%ȉ&&1g&&105&&1", rep(a,4,b)="(1g,105,1)"
a="&0&(&1&,&2&,&3&)", b="0.5%ȉ&&1g&&105&&1", rep(a,5,3,b)="1g"
a="&0&(&1&,&2&,&3&)", b="0.5%ȉ&&1g&&105&&1", rep(a,5..11,b)="1g,105"
%1 CONDAS '//null/''%q'''="'1234567890'"
CONDAS(%1,'//null/''%q''')="'1234567890'"
CONDAS(%1,4,'//null/''%q''')="'4567890'"
CONDAS(%1,4,2,'//null/''%q''')="'45'"
CONDAS(%1,4..6,'//null/''%q''')="'456'"
*** end   test_rep_condas.cl ***
*** start test_replike.cl ***
12345123456WXYZDEabcdef67890
12345123456WXYZDEWXYZdef67890
12345123456WXYZf67890
12345123456WXYZWXYZf67890
WXYZ5123456ABCDEabcdef67890
WXYZ12345123456ABCDEabcdef67890
12345123456ABCDEabcdef6WXYZ
12345123456ABCDEabcdef67890WXYZ
WXYZ
WXYZ12345123456ABCDEabcdef67890WXYZ
WXYZ
WXYZ
12345123456ABCDEabcdef67890
12345123456WXYZDEabcdef67890
12345123456ABCDEabcdef678AB
12345123456ABCDEabcBCDEWXYZd
*** end   test_replike.cl ***
*** start test_replike2.cl ***
$x="12345$ABC^123$^456", replike($x,'\\$','WXYZ','g')="12345WXYZABC^123WXYZ^456"
$y="$^", replike($y,'\$\^','WXYZ','g')="WXYZ"
$x="12345$ABC^123$^456", replike($x,'%$%^%','WXYZ','iG')="12345WXYZ123WXYZ456"
$x="12345$ABC^123$^456", replike($x,'$%','WXYZ','g')="12345$ABC^123$^456"
$y="$ABC", replike($y,'$%','WXYZ','g')="WXYZABC"
$x="12345$ABC^123$^456", replike($x,'%^','WXYZ','g')="12345$ABC^123$^456"
$y="ABC^", replike($y,'%^','WXYZ','g')="ABCWXYZ"
$x="12345$ABC^123$^456", replike($x,'_B_','WXYZ','g')="12345$WXYZ^123$^456"
$x="12345$ABC^123$^456", replike($x,'___','WXYZ','g')="WXYZWXYZWXYZWXYZWXYZWXYZ"
replike('abc','ABC','WXYZ','ig')="WXYZ"
*** end   test_replike2.cl ***
*** start test_replike3.cl ***
x="12345$67\", y="\\"
x="12345$67\", replike(x,'\\$','|','g')="12345|67\"
*** end   test_replike3.cl ***
*** start test_replike4.cl ***
x="pPacket->SrcInf.ucDispos |= opt;", y="pPacket[A\-Z]>SrcInf"
x="pPacket->SrcInf.ucDispos |= opt;", replike(x,y,'abc','g')="abc.ucDispos |= opt;"
x="abwfdr123bcaefgf789", replike(x,'[a-c3-7]','X','g')="XXwfdr12XXXXefgfX89"
x="ABC 	 DEF ", replike(x,'[ \t]','X','g')="ABCXXXDEFX"
*** end   test_replike4.cl ***
*** start test_REST.cl ***
$1={1,2,3,"A","s"}
rest($1)={2,3,"A","s"}
i=0, rest($1,i)={1,2,3,"A","s"}
i=1, rest($1,i)={2,3,"A","s"}
i=2, rest($1,i)={3,"A","s"}
i=3, rest($1,i)={"A","s"}
i=4, rest($1,i)={"s"}
i=5, rest($1,i)={**NIL**}
*** end   test_REST.cl ***
*** start test_right.cl ***
$a="12345678l", $b="l", $c="678l"
rightb($a,6)="l", right($a,5)="678l"
rightb($a,-6)="12345678l", right($a,-5)="45678l"
*** end   test_right.cl ***
*** start test_round.cl ***
round(%1,%2,%3)=234.563
*** end   test_round.cl ***
*** start test_say.cl ***
I loVE ry aA,df.fg_ty 
I LoVE Ry AA,Df.Fg_ty 
I Love Ry Aa,Df.Fg_ty 
I *LOVE* RtaY AA,DF.FG_TY 
I *love* ry aA,df.fg_ty 
I *love* ry aA,df.fg_ty 
I *love* ry aA,df.fg_ty 
I *love* ry aA,df.fg_ty 
I *love* ry aA,df.fg_ty 
I *Love* Ry AA,Df.Fg_ty 
I *Love* Ry Aa,Df.Fg_ty 
I *love* ry aA,df.fg_ty 
*** end   test_say.cl ***
*** start test_sc_loop.cl ***
++$count=1
[coal] cl_pr_ex_def_scalar_attr_info:(W)ϐ[count]ւ̃f[^𖳎܂B
[coal] cl_pr_ex_def_scalar_attr_info:(W)ϐ[val]ւ̃f[^𖳎܂B
++$count=2
*** end   test_sc_loop.cl ***
*** start test_scparm.cl ***
%0=3, *%()=*(,100,"ABS()"),"max()",{1,2,3,4,5,{"AAA"}}
%1=private const variant a[10]
$x[1]=100
$x[2](-3)=3, %2(5,8)=8
%3={1,2,3,4,5,{"AAA"}}, %4=
$a[0]=10
*** end   test_scparm.cl ***
*** skip  #test_scparm2.cl ***
*** start test_scproc.cl ***
%0=1, %1="ABC"
$a="ABC"
%0=1, %1="PROC"
$a="PROC"
ݽ=100, b=200
ݽ=10, b=20
*** end   test_scproc.cl ***
*** skip  #test_scproc1.cl ***
*** start test_scrmem.cl ***
[coal] cl_gx_get_all_var_ent: pr(pr)͖`łB
pr=##ERROR##, "XXXXXX", %1=
PROCNAME="yyyy", %1=
*** end   test_scrmem.cl ***
*** start test_seinou.cl ***
gettime(0)=51.048
gettime(0)=51.157
getmemused(aa,5)=894513, *aa=2848,15187,398,1764,874316
*** end   test_seinou.cl ***
*** start test_seinou2.cl ***
gettime(0)=51.173
gettime(0)=51.875
gettime(0)=52.28
getmemused(aa,5)=929104, *aa=9200,15216,398,1764,902526
*** end   test_seinou2.cl ***
*** start test_setarray.cl ***
$n=7, countv($a)=7
[coal] _ex_conv_parm_opt: $a[]̃f[^ݒłB
$i=0, $a[$i]=##ERROR##
[coal] _ex_conv_parm_opt: $a[]̃f[^ݒłB
$i=1, $a[$i]=##ERROR##
$i=2, $a[$i]=11
$i=3, $a[$i]=12
$i=4, $a[$i]=13
$i=5, $a[$i]=14
$i=6, $a[$i]=15
$i=7, $a[$i]=16
$i=8, $a[$i]=17
[coal] _ex_conv_parm_opt: $a[]̃f[^ݒłB
$i=9, $a[$i]=##ERROR##
*** end   test_setarray.cl ***
*** start test_shell.cl ***
v 5
-rwxrwxrwx 1 koba None  84 10 27  2007 b
-rwxrwxrwx 1 koba None  45 11 20  2007 coal_nofree.log
-rwxrwxrwx 1 koba None 365 7  23  2010 debug_log
-rwxrwxrwx 1 koba None 561 12 22  2008 error_log
-rwxrwxrwx 1 koba None  60 6   7  2009 grant.sql
shell('ls -l test_dir')=0
*** end   test_shell.cl ***
*** start test_shift.cl ***
%0=5, %1="1", %2="2", %3="3", %4="4"
[coal] _ex_conv_parm_opt: ãf[^ݒłB
a=##ERROR##
argc=4, %argv[0]="1", %argv[1]="2", %argv[2]="3", %argv[3]="4"
argc=4, %argv[0]="1"
argc=3, %argv[0]="2"
argc=2, %argv[0]="3"
func1(%1,%2,%3,%4)=0
argc=5, %argv[0]="1", %argv[1]="2", %argv[2]="3", %argv[3]="4"
argc=5, %argv[0]="1"
argc=4, %argv[0]="2"
argc=3, %argv[0]="3"
%0=5, %1="1"
%0=4, %1="2"
%0=3, %1="3"
[coal] cl_gx_get_all_var_ent: argc(argc)͖`łB
[coal] _ex_conv_parm_opt: ϐ(x)̔z͖ł(gid hash ix=0)B
argc=##ERROR##, x=##ERROR##
*** end   test_shift.cl ***
*** start test_shift2.cl ***
%0=3, %1="1"
%0=2, %1="2"
%0=1, %1="3"
*** end   test_shift2.cl ***
*** start test_skip.cl ***
%1="0", leng(text)=36, text="abcdefg1234ABCDEFxxYYzZ%pQrabcABC"
skip_opt(text,'','T')=1
skip_opt(text,'','RT')=0
skip_opt(text,'','N')=1
skip_opt(text,'','RN')=0
skip_opt(text,'y','T')=0
skip_opt(text,'y','RT')=0
skip_opt(text,'a','N')=2
skip_opt(text,'C','RN')=35
skip_opt(text,'1','T')=8
skip_opt(text,'1','RT')=8
skip_opt(text,'cdab','N')=5
skip_opt(text,'cdab','RN')=36
skip_opt(text,'')=27
skip_opt(text,text,'N')=37
skip_opt(text,text,'RN')=0
skip_opt(text,10,'xY','T')=18
skip_opt(text,10,'abc','RT')=33
skip_opt(text,10,10,'CD','T')=14
skip_opt(text,5..10,'xY','T')=0
text skip_opt 'EF'=16
*** end   test_skip.cl ***
*** start test_skip_opt.cl ***
[coal] cl_func_comp: p[^܂B
text="aaaaa2222AAAAAAAxxYYyzZz%ppppppAA  ", w=12, skip_opt(text,w)=##ERROR##
skip_opt(text,'a')=1
skip_opt(text,'')=1
text skip_opt 'a2'=1
skip_opt(text,'a2','N')=10
skip_opt(text,'%',0x08)=27
skip_opt(text,'',0x08)=28
skip_opt(text,'yz',0x08)=21
skip_opt(text,'aA',0x02|0x08)=36
Skip_opt(text,'yz',0x01|0x08)=19
*** end   test_skip_opt.cl ***
*** start test_sleep.cl ***
TIME="094927", gettime(0)=52.421, gettime(1)=52.436
ERROR=0, ERRMSG="", TIME="094930", gettime(0)=55.948, gettime(1)=55.964
*** end   test_sleep.cl ***
*** start test_sleep_timeout.cl ***
$1=15, gettime()=55.948
$1=10, gettime()=60.973
$1=5, gettime()=65.999
*** end   test_sleep_timeout.cl ***
*** start test_sort.cl ***
%parm[i]="m"
%parm[i]="M"
%parm[i]="100"
%parm[i]="20"
%parm[i]="10"
%parm[i]="A"
%parm[i]="a"
"----------"
$$i="10"
$$i="100"
$$i="20"
$$i="A"
$$i="M"
$$i="a"
$$i="m"
*** end   test_sort.cl ***
*** start test_sort2.cl ***
$$i=1
$$i=10
$$i=2
$$i=3.2
$$i="4.5"
$$i=5.67
$$i=6
$$i="7"
$$i=8
$$i=9

$$i=1
$$i=2
$$i=3.2
$$i="4.5"
$$i=5.67
$$i=6
$$i="7"
$$i=8
$$i=9
$$i=10
*** end   test_sort2.cl ***
*** start test_split.cl ***
%1="", %2="", %3="2"
$a="|2|  wA  , 4 ' 5 '' 6 ' BCwaD,,"
$n=8
$i=1, $$i="|2|"
$i=2, $$i=""
$i=3, $$i="wA"
$i=4, $$i=""
$i=5, $$i=","
$i=6, $$i="4"
$i=7, $$i=" 5 ' 6 "
$i=8, $$i="BCwaD,,"
*** end   test_split.cl ***
*** start test_sql.cl ***
[coal] zXg[SV01]dchostsɂȂAAhX擾ł܂B ret=-1
[coal] clerrdisp:rc=-11631(ffffd291) at script=[test_sql.cl] line=31
[coal]  ---> [SQL SV01  select * from '%{1}' ABCDEFG]
ERRMSG="zXg[SV01]dchostsɂȂAAhX擾ł܂B ret=-1
clerrdisp:rc=-11631(ffffd291) at script=[test_sql.cl] line=31
 ---> [SQL SV01  select * from '%{1}' ABCDEFG]"
*** end   test_sql.cl ***
*** start test_sql2.cl ***
[coal] _set_que_and_output: socket closed
ERROR=-9088, ERRMSG="Socket closed"
ERRMSG="Socket closed"
*** end   test_sql2.cl ***
*** start test_stack.cl ***
$a=59
$a=59
$a=60
$a=60
*** end   test_stack.cl ***
*** start test_stat.cl ***
stat(%1,1,20)=3
*$()=3,-789786384,352559,16895,1,1006,513,0,0,1355598491,411015800,1355598491,411015800,1489774716,208077700,65536,4
name= test_dir is not file.
*** end   test_stat.cl ***
*** start test_str_add.cl ***
a="A  "
a-1="Z  "
++a="B  "
z-1="-Y"
z++="Z"
++z="B"
str_add('AB0',-1)="AA9"
str_add('AB0',10)="AC0"
str_add('000',-1)="-999"
str_add('',1)="1"
str_add('',-1)="-"
str_add('A',-1)="Z"
'1+2/3'*2="2+4/6"
'13'+'7'="20"
'OCNU'+'@LS'="܇DRO"
'56'*10="560"
'56'+5="61"
'56'-5="51"
'-56'-5="-61"
'56'*'11'="616"
'-56'*'11'="-616"
'56'*'-11'="-616"
'-56'*'-11'="616"
'6'+'@B3'="@B9"
str_exp('A_B','+','123')="1C_E"
str_exp('A_B','+',10)="A_L"
str_exp('A_B','+','10')="B_B"
*** end   test_str_add.cl ***
*** start test_str_conv.cl ***
???????@?`?a?b??
s="@`ab"
*** end   test_str_conv.cl ***
*** start test_str_pos.cl ***
f()="BCDde", f()="BCDde"
*** end   test_str_pos.cl ***
*** start test_string.cl ***
$a="1234567890"
leng($a)=10, $a is 'L'=10
lenb($a)=10, $a is 'LB'=10
substr($a,1)="1234567890", substr($a,-3)="890"
substr($a,1,5)="12345"
substr($a,4,5)="45678", substr($a,-8,5)="34567"
substrb($a,1)="1234567890", substrb($a,-3)="890"
substrb($a,1,5)="12345"
substrb($a,5,5)="56789", substrb($a,-8,5)="34567"
left($a,0)="", left('',3)=""
leftb($a,0)="", leftb('',3)=""
right($a,0)="", right('',3)=""
rightb($a,3)="890", rightb($a,0)="", rightb('',3)=""
right($a,3)="890", right($a,0)="", right('',3)=""
strings('Aa',10)="AaAaAaAaAaAaAaAaAaAa", strings('Aa',0)=, strings('',10)=
$a substr '1,3'="123", $a mid '1,3'="123"
substr($a,1.0)="1234567890"
substr($a,1,5.5)="12345"
substr($a,4.0f,5.0f)="45678"
left($a,1.0)="1", left(a,1.0f)="1"
right($a,1.0)="0", right(a,3.0f)="890"
strings('Aa',10.0)="AaAaAaAaAaAaAaAaAaAa", strings('Aa',10.0f)="AaAaAaAaAaAaAaAaAaAa"
$a="1Q34TUV89O"
leng($a)=10, $a is 'L'=10
lenb($a)=20, $a is 'LB'=20
substr($a,1)="1Q34TUV89O", substr($a,-3)="89O"
substr($a,1,5)="1Q34T"
substr($a,4,5)="4TUV8", substr($a,-8,5)="34TUV"
substrb($a,1)="1Q34TUV89O", substrb($a,-3)="O"
substrb($a,1,5)="1Q3"
substrb($a,5,5)="34T", substrb($a,-8,5)="V89"
left($a,0)="", left('',3)=""
leftb($a,0)="", leftb('',3)=""
right($a,0)="", right('',3)=""
rightb($a,3)="O", rightb($a,0)="", rightb('',3)=""
right($a,3)="89O", right($a,0)="", right('',3)=""
strings('Aa',10)="AaAaAaAaAaAaAaAaAaAa", strings('Aa',0)=, strings('',10)=
$a substr '1,3'="1Q3", $a mid '1,3'="1Q3"
*** end   test_string.cl ***
*** start test_string_error.cl ***
$a="1234567890"
[coal] Jnʒuł͂܂B
substr($a,'f')=##ERROR##
[coal] substr_len: p[^̌^(5)Ă܂B
substr($a,to_bulk(1))=##ERROR##
[coal] substr.p3: p[^̌^(5)l^ł͂܂B
substr($a,1,to_bulk(1))=##ERROR##
substr($a,4.0f,5.0f)="45678"
[coal] Right/Left.num:: ȊO̕[A]܂(pos=1)B
[coal] Right/Left.num:: p[^̌^(5)l^ł͂܂B
left($a,'A')=##ERROR##, left($a,to_bulk(1))=##ERROR##
right($a,1.0)="0", right(a,3.0f)="890"
strings('Aa',10.0)="AaAaAaAaAaAaAaAaAaAa", strings('Aa',10.0f)="AaAaAaAaAaAaAaAaAaAa"
[coal] Strings.num:: ȊO̕[X]܂(pos=1)B
[coal] Strings.num:: p[^̌^(5)l^ł͂܂B
strings('Aa','X')=##ERROR##, strings('Aa',to_bulk(1))=##ERROR##
*** end   test_string_error.cl ***
*** start test_struct_class.cl ***
My.name&' World!!'="Hellow World!!"
My.name&' World!!'="Good night World!!"
*** end   test_struct_class.cl ***
*** start test_struct_class2.cl ***
My.name&' World!!'="Hellow World!!"
My.name&' World!!'="Good night World!!"
h=local Greeter:{"_salute()", "{func _salute;
	print My.name&' World!!';
	return 0;
end func;}()", char(10) name}
abs="abs()"
*** end   test_struct_class2.cl ***
*** start test_switch.cl ***
"case", $1=1
"$2!=1"
%3="XAZ"
*** end   test_switch.cl ***
*** start test_switch2.cl ***
"case 1"
%3="12A"
*** end   test_switch2.cl ***
*** start test_sysdate.cl ***
*dd=(2022/01/19 09:49:45),(2022/01/19 09:49:45)
a=(2022/01/19 09:49:45)
to_char(SYSDATE)="2022/01/19 09:49:45"
to_date('2014/4/2 13:5:35','%Y/%m/%d %H:%M:%S')=(2014/04/02 13:05:35)
to_date('4','%m')=(2022/04/19 09:49:45)
to_date('4 10','%m %M')=(2022/04/19 09:10:45)
to_date('4','m')=(2022/04/01 00:00:00)
to_date('4 10','m mi')=(2022/04/19 09:10:00)
b=(2022/04/29 09:49:45), b-a=100
(CDATE)'2015/01/01 00:00:00'=(2015/01/01 00:00:00)
(CDATE)30=(1970/01/01 09:00:30)
CDATE(100)=(1970/01/01 09:01:40)
(CDATE)'2015'=(2015/01/01 00:00:00)
(CDATE)'151230'=(2015/12/30 00:00:00)
CDATE('2015/12 00:00:01')=(2015/12/01 00:00:01)
CDATE('20151203')=(2015/12/03 00:00:00)
CDATE('2015-12-03')=(2015/12/03 00:00:00)
yyyy=(2023/01/19 09:49:45), q=(2022/04/19 09:49:45), m=(2022/12/19 09:49:45), ww=(2022/02/09 09:49:45), w=(2022/02/09 09:49:45), d=(2022/02/18 09:49:45), h=(2022/01/20 10:49:45), n=(2022/01/19 09:54:45), s=(2022/01/19 09:49:51)
yyyy=(2023/01/19 09:49:45), date_diff('yyyy',yyyy,a)=1
q=(2022/04/19 09:49:45), date_diff('q',q,a)=1, date_diff('m',q,a)=3, date_diff('q',m,a)=3.666666666666666
m=(2022/12/19 09:49:45), date_diff('m',m,a)=11
ww=(2022/02/09 09:49:45), date_diff('ww',ww,a)=3, date_diff('d',ww,a)=21
w=(2022/02/09 09:49:45), date_diff('w',w,a)=3
d=(2022/02/18 09:49:45), date_diff('d',d,a)=30
h=(2022/01/20 10:49:45), date_diff('h',h,a)=25, h=(2022/01/20 10:49:45), date_diff('h',d,a)=720
n=(2022/01/19 09:54:45), date_diff('n',n,a)=5
s=(2022/01/19 09:49:51), date_diff('s',s,a)=246
add_months(a,7)=(2022/08/19 09:49:45)
date_add('year',8,a)=(2030/01/19 09:49:45)
date_add('mi',9,a)=(2022/01/19 09:58:45)
date_add('s',1,'2020/12/31 23:59:59')=(2021/01/01 00:00:00)
to_date('2014.04.15 21:46:33','yyyy.mm.dd hh:mi:ss')=(2014/04/15 21:46:33)
to_char(SYSDATE,'"sysdate"=yyyy.mm.dd hh:mi:ss.uuuuuu ddd')="sysdate=2022.01.19 09:49:45.765650 18"
to_char(SYSDATE,'hh24 h24 hh12 h12 month mon day dy uuu P')="09 9 09 9 January Jan Wednesday Wed 765650 AM"
last_day(a)=(2022/01/31 00:00:00)
set_date_part(SYSDATE,'01/20','MM/DD')=(2022/01/20 09:49:45)
set_date_part(SYSDATE,'5/20','MM/D')=(2022/05/20 09:49:45)
set_date_part(SYSDATE,'2015/02','YYYY/M')=(2015/02/19 09:49:45)
set_date_part(SYSDATE,'02/15 PM8','M/D PHH')=(2022/02/15 20:49:45)
set_date_part(SYSDATE,'10','DDD')=(2022/01/11 09:49:45)
to_date('01/20','MM/DD')=(2022/01/20 00:00:00)
to_date('5/20','MM/D')=(2022/05/20 00:00:00)
to_date('2015/02','YYYY/M')=(2015/02/01 00:00:00)
to_date('02/15 PM8','M/D PHH')=(2022/02/15 20:00:00)
to_date('10','DDD')=(2022/01/11 00:00:00)
CBIN(SYSDATE)=1642553385
CDBL(SYSDATE)=1642553385
CDEC(SYSDATE)=1642553385
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20124e44     0 14 16 01 13 09 31 2d 0b ae d2 00 03 00 12       .....1-.......
20124e54    14 (DATA END)

CBULK(SYSDATE)=**BULK**
abs(SYSDATE)=(2022/01/19 09:49:45)
leng(SYSDATE)=14
UNIX_DATE_FORMAT="%Y/%m/%d %H:%M:%S"
SQL_DATE_FORMAT="YYYY/MM/DD HH24:MI:SS"
*** end   test_sysdate.cl ***
*** start test_sysvar.cl ***
[coal] fopen([qweeewew],[r]) errno=2 No such file or directory
$ERROR=-1, $ERRMSG="fopen([qweeewew],[r]) errno=2 No such file or directory", $ERRNO=2, $STRERROR="No such file or directory", $EXCEPTION=-2046754814
$ERROR	= -1
$ERRMSG	= fopen([qweeewew],[r]) errno=2 No such file or directory
$ERRNO	= 0
$STRERR	= No error
$EXCEPTION= -2046754814
$TUPLE	= 0
$COLUMN	= 0
$USERID	= 
$DATE	= 20220119
$TIME	= 094945
$DATETIME= 2022/01/19 09:49:45
$HID  	=     
$TRNSHID= 
$USERINF=                                                                     
$VERSION= V/R=7.2.1 (new)
$MAKEDATE= DATE=2022/01/18 10:54:32
$STDIN	= 611FAFD0
$STDOUT	= 611FB040
$STDERR	= 611FB0B0
$SCRIPTNAME = test_sysvar.cl
$PROCNAME = main
$SCRIPTLINE = 26
$CLCHAR	= 1
$CLBINARY= 2
$CLFLOAT= 3
$CLDECIMAL= 4
$CLBULK	= 5
$CLVARIANT= 7
$CLINTEGER= 2
$CLDOUBLE = 3
$PI	= 3.141592654
$M_E	= 2.718281828
$CODETYPE = 5
$TRNSHID  = HID
$MAX_LOOP_WHILE= 100000
ERRMSG="fopen([qweeewew],[r]) errno=2 No such file or directory"
*** end   test_sysvar.cl ***
*** start test_sysvar2.cl ***
[coal] fopen([qweeewew],[r]) errno=2 No such file or directory
ERRNO	= 2
STRERROR= No error
ERRMSG	= fopen([qweeewew],[r]) errno=2 No such file or directory
ERROR	= 0
EXCEPTION= -2046754814
TUPLE	= 0
COLUMN	= 0
USERID	= 
DATE	= 20220119
TIME	= 094945
DATETIME= 2022/01/19 09:49:45
HID  	=     
USERINF=                                                                     
VERSION= V/R=7.2.1 (new)
MAKEDATE= DATE=2022/01/18 10:54:32
STDIN	= 1629466576
STDOUT	= 1629466688
STDERR	= 1629466800
SCRIPTNAME = test_sysvar2.cl
PROCNAME = main
SCRIPTLINE = 30
SYSDATE	= 2022/01/19 09:49:45
NULL	= 
PI	= 3.141592654
PI2 = 3.14159265358979323846264338327950288419716939937510582
M_E = 2.718281828
M_E2 = 2.71828182845904523536028747135266249775724709369995957
CODETYPE = 5
CLCHAR	= 1
CLSTRING	= 1
CLBINARY	= 2
CLFLOAT	= 3
CLDECIMAL= 4
CLBULK	= 5
CLVARIANT = 7
CLINTEGER = 2
CLLONG 	= 2
CLDOUBLE	= 3
CLSYSCODE = 0
CLEUC	= 1
CLSJISX	= 2
CLJIS	= 3
CLEBCDIC	= 4
CLUTF8	= 5
CLUNICODE= 6
CLEBCDIK	= 7
CLNARROW	= 257
CLWIDE	= 258
SYSDATE	= 2022/01/19 09:49:45
CHAR_MIN	= -128
CHAR_MAX	= 127
UCHAR_MAX= 255
SHORT_MIN= -32768
SHORT_MAX= 32767
USHORT_MAX= 65535
INT_MIN	= -2147483648
INT_MAX	= 2147483647
UINT_MAX	= 4294967295
LONG_MIN	= -2147483648
LONG_MAX	= 2147483647
ULONG_MAX= 4294967295
CLCHAR	= 1
CLSTR	= 1
CLBIN	= 2
CLFLOAT	= 3
CLDEC	= 4
CLBULK	= 5
CLVARI	= 7
CLINT	= 2
CLLNG	= 2
CLDOUBLE = 3
CLFLT	= 3
CLDBL	= 3
PROCNAME = func1
[coal] _ex_conv_parm_opt: ϐ(ERROR)ւ̑͂ł܂B
ERROR++=##ERROR##
[coal] _ex_conv_parm_opt: ϐ(ERROR)ւ̑͂ł܂B
[coal] let_compute_sub_opt: Ă܂(rc=-11001)B
[coal] clerrdisp:rc=-11791(ffffd1f1) at script=[test_sysvar2.cl] line=92
[coal]  ---> [LET ERROR = 0]
ERRMSG="_ex_conv_parm_opt: ϐ(ERROR)ւ̑͂ł܂B
let_compute_sub_opt: Ă܂(rc=-11001)B
clerrdisp:rc=-11791(ffffd1f1) at script=[test_sysvar2.cl] line=92
 ---> [LET ERROR = 0]"
*** end   test_sysvar2.cl ***
*** start test_thenl.cl ***
%1="1"
"then", %1="1"
"then", %1="1"
%1="1", %2="2"
%3="3"
%1="1"
*** end   test_thenl.cl ***
*** start test_THREE.cl ***
** Enter two unequal number 1 to 9 in ascending oeder **
The number 1 letter of the alphabet is A
The number 9 letter of the alphabet is I
The sum number 10 letter of the alphabet is J
Deference number 8 letter of the alphabet is H
The string of letters from position 1 to 9 is ABCDEFGHI
*** end   test_THREE.cl ***
*** start test_time.cl ***
gettime(0)=71.242
gettime(0)=71.242
*** end   test_time.cl ***
*** start test_times_func.cl ***
1, 2, 3
1, 2, 3
1, 2, 3
times(3)=""
name&' World!!'="AAA World!!"
name&' World!!'="AAA World!!"
name&' World!!'="AAA World!!"
times(3,(FUNC)'{func _salute(name);
	print name&'' World!!'';
	return 0;
end func;}','AAA')=0
X Y
X Y
X Y
X Y
X Y
X Y
X Y
X Y
0
1
2
*** end   test_times_func.cl ***
*** start test_to.cl ***
'' to 'Z'="ACEGI"
p1="Z", p2="H", $1="!"#$%&'()=~|-^\`{@[+*};:]<>?_,./ \"
p1="Z", $2="Ihfij`b|OMom{pGFnHQCD^@"
p2="H", $3="!"#$%&'()=~|-^\`{@[+*};:]<>?_,./ \"
p1="Z", p2="H", $1="Բմܦ"
p1="Z", $2="ACEGIJLNPRTVXZ\^`cegijklmnqtwz}~CG"
p2="H", $3="Բմܦ"
p1="Z", p2="H", $1="޷޸޹޺޻޼޽޾޿ߧ"
p1="Z", $2="KMOQSUWY[]_adfhorux{psvy|@BDFHb"
p2="H", $3="޷޸޹޺޻޼޽޾޿ߧ"
p1="H", p2="Z", $1="ACEGIJLNPRTVXZ\^`cegijklmnqtwz}~"
p1="H", $2="Բմܦ"
p2="Z", $3="ACEGIJLNPRTVXZ\^`cegijklmnqtwz}~CG"
p1="H", p2="Z", $1="KMOQSUWY[]_adfhorux{psvy|@BDFHb[???]"
p1="H", $2="޷޸޹޺޻޼޽޾޿ߧ޶--"
p2="Z", $3="KMOQSUWY[]_adfhorux{psvy|@BDFHbJP[||"
p1="H", p2="Z", $1="Ihfij`b|OMom{pGFnHQCD^@"
p1="H", $2="!"#$%&'()=~|-^\`{@[+*};:]<>?_,./ \"
p2="Z", $3="Ihfij`b|OMom{pGFnHQCD^@"
*** end   test_to.cl ***
*** start test_to_bulk.cl ***
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200b6138     0 30 31 32 33 34 35 36 37 38 39                   0123456789
200b6148    10 (DATA END)

a=to_bulk($x,,,0)=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200ce2dc     0 01 23 45 67 89                                  .#Eg.
200ce2ec     5 (DATA END)

to_bulk($x,,,1)=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200ce490     0 30 31 32 33 34 35 36 37 38 39 01 23 45 67 89    0123456789.#Eg.
200ce4a0    15 (DATA END)

to_bulks(to_bulk($x,),to_bulk($x,,,1))=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200ce2d5     0 00 00 00 01                                     ....
200ce2e5     4 (DATA END)

to_bulk(1,,,0)=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200ce2d5     0 01 00 00 00                                     ....
200ce2e5     4 (DATA END)

to_bulk(1,,,1)=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200ce329     0 4d 50 00 00 28 00 01 00 00 00 00 00 01 00 00 00 MP..(...........
200ce339    16 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
200ce349    32 00 00 00 00 00 00 00 00                         ........
200ce359    40 (DATA END)

to_bulk(1.0,,,0)=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200ce329     0 4d 50 00 00 28 00 01 00 00 00 00 00 01 00 00 00 MP..(...........
200ce339    16 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
200ce349    32 00 00 00 00 00 00 00 00                         ........
200ce359    40 (DATA END)

to_bulk(1.0,,,1)=**BULK**
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200b6138     0 30 31 32 33 34 35 36 37 38 39                   0123456789
200b6148    10 (DATA END)

a=**BULK**
*** end   test_to_bulk.cl ***
*** start test_to_char.cl ***
TO_CHAR(SYSDATE)="2022/01/19 09:49:45"
TO_CHAR(0.012345)="0.012345"
TO_CHAR(12345)="12345"
TO_CHAR('ABC')="ABC"
a="12345", a=local char(5)
TO_CHAR(123456789,15)="123456789      "
[coal] cl_func_to_char: x(-15)Ă܂B
TO_CHAR(123456789,-15)=##ERROR##
[coal] to_char.p2: ȊO̕[A]܂(pos=1)B
TO_CHAR(123456789,'A')=##ERROR##
*** end   test_to_char.cl ***
*** start test_to_cp.cl ***
x="aBcD123_XyZ"
x to 'C'="ABcD123_XyZ"
x to 'P'="Abcd123_xyz"
x="acPQRQwy"
x to 'P'="`PQRQ"
x to 'C'="`acPQRQwy"
*** end   test_to_cp.cl ***
*** start test_to_num.cl ***
$a=10
$b=10
$b=10.35
$b=10
$b=10
$b=10.35
$b=10.35, is(b,'T')=4
to(' 10.35 ','Dec')=10.35
to('123456.789',3..8,'Dec')=3,456.7
to('123456.789',3,7,'Dec')=3456.78
[coal] _get_pos: ͈͎w肪擪ȊOɂ܂Bi=1
to('123456.789',3..8,3..6,'Dec')=##ERROR##
to('123,456.789','Dec')=123456.789
to('123,456+2','Dec')=12345600
$c=1
$d=2
TO_NUMBER(2.5,$CLINT)=2
$ff=123
TO_NUMBER(123,$CLFLOAT)=123
$f=3.5
g=3.0
[coal] cl_cmpt_to_number.DECI: ȊO̕[1,234,567,890]܂(pos=2)B
TO_NUMBER('1,234,567,890',4,15,-3)=00000
TO_NUMBER('0.012345')=0.012345
h=2147483647, h=local int
i=2147483648, i=local dec
j=2147483648, j=local uint
k=2147483648, k=local uint
TO_NUMBER('9876543210',4)=9876543210
TO_NUMBER('9876543210',3)=9876543210
TO_NUMBER('9876543210',4)=9,876,543,210
TO_NUMBER('9876543210',3)=9876543210
m=2147483648, m=local uint
*** end   test_to_num.cl ***
*** start test_to_start.cl ***
to(123,2,'I')=123
to(123,'F')=123
a=123
TO_NUMBER(123,$CLFLOAT)=123
to(123,2,'D')=123
to(123,2,'X')="0000007B"
to(123,'Xs')="7B"
to(123f,2,'X')="405EC00000000000"
to(123.0,2,'X-1')="4D50000028000200010000000117"
to('12345',2,'I')=2345
to('PQRST',2,'H')="2345"
to(12345.6,2,'Z')="QRSTDU"
to('abcde',2,'U')="BCDE"
to('ABCDE',2,'L')="bcde"
123.45=4d500000 28000300 01000000 01172d00 Z Z Z Z Z Z, 100=0x00000064, 123.45f=cdccccccccdc5e40, '123.45'=3132332e 3435
to('123456',2,'D')=23456
to('123456',2,3,'D')=234
to('123456',2..5,'D')=2345
*** end   test_to_start.cl ***
*** start test_to2.cl ***
'abc123' to 'x'="616263313233"
12345 to 'x'="00003039"
123.45 to 'x'="4d500000280003000100000001172d"
123,45D to 'x'=123, "4046800000000000"
(BULK)12345 to 'x'="00003039"
(DATE)'' to 'x'="1346010100000000000000030012"
abs to 'x'="616273"
a to 'x'="070000000400000028da0b20010000000a00000000000000010000000a0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
ss to 'x'="040000000000000002000000d8b90e2038610b20"
s to 'x'="040000000000000002000000d8b90e2080ef0820"
'abc123' to 'x-4'="61626331 3233"
12345 to 'x-4'="00003039"
123.45 to 'x-4'="4d500000280003000100000001172d"
123,45D to 'x-4'=123, "4046800000000000"
(BULK)12345 to 'x-4'="00003039"
(DATE)'' to 'x-4'="1346010100000000000000030012"
abs to 'x-4'="616273"
a to 'x-4'="07000000 04000000 28da0b20 01000000 0a000000 Z 01000000 0a000000 Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z"
ss to 'x-4'="04000000 Z 02000000 d8b90e20 38610b20"
s to 'x-4'="04000000 Z 02000000 d8b90e20 80ef0820"
*** end   test_to2.cl ***
*** start test_trim.cl ***
$a="  2000N  04/20 	  "
trim($a)="2000N  04/20"
trim($a,0)="2000N  04/20"
trim($a,1)="  2000N  04/20"
trim($a,2)="2000N  04/20 	  "
$b="", trim($b)="", trim($b,0)="", trim($b,1)=""
replike($a,'[ \t]','','g')="2000N04/20"
trim($a,'0 A\t')="2000N  04/2"
[coal] Parm1:: ȊO̕[0 A]܂(pos=2)B
'0 A'+1=##ERROR##
trim(' 01234.560~ ',' 0~')="1234.56"
trim(' 01234.560~ ',,2)="01234.560~ "
ERRMSG="Parm1:: ȊO̕[0 A]܂(pos=2)B"
*** end   test_trim.cl ***
*** start test_try.cl ***
$1=1
EXCEPTION=0xfc000003
(EXCEPTION & 1)=1
(EXCEPTION & 2)=2
"Finally"
EXCEPTION=0
"Finally0"
"last"
*** end   test_try.cl ***
*** start test_try_func.cl ***
line="aaaa"
line="bbbbbbb"
ERRMSG="fgetline: end of file
clprret: Ă܂(rc=-2046623743)B
clerrdisp:rc=-2046623743(86030001) at script=[test_try_func.cl] line=24
 ---> [return getline()]
clerrdisp:rc=-2046623743(86030001) at script=[test_try_func.cl] line=9
 ---> [LET line = f()]"
"Finally"
*** end   test_try_func.cl ***
*** start test_try_loop.cl ***
ERRMSG="fgetline: end of file
let_compute_sub_opt: Ă܂(rc=-2046623743)B
clerrdisp:rc=-2046623743(86030001) at script=[test_try_loop.cl] line=6
 ---> [LET h[getline()] = 1]", ERRNO=0, ERROR=0
x.index="AA"
x.index="BB"
x.index="CC"
*** end   test_try_loop.cl ***
*** start test_try2.cl ***
$1=1
"pp:Finally"
(-EXCEPTION & 1)=1
ERRMSG="fopen([xxxxx],[r]) errno=2 No such file or directory
let_compute_sub_opt: Ă܂(rc=-2046754814)B
clerrdisp:rc=-2046754814(86010002) at script=[test_try2.cl] line=7
 ---> [LET fopen('xxxxx')]
cl_gx_func: [a]͊֐ł͂܂B
let_compute_sub_opt: Ă܂(rc=-11044)B
clerrdisp:rc=-33542641(fe002e0f) at script=[test_try2.cl] line=11
 ---> [LET a()]"
"Finally"
ERRMSG="fopen([xxxxx],[r]) errno=2 No such file or directory
let_compute_sub_opt: Ă܂(rc=-2046754814)B
clerrdisp:rc=-2046754814(86010002) at script=[test_try2.cl] line=7
 ---> [LET fopen('xxxxx')]
cl_gx_func: [a]͊֐ł͂܂B
let_compute_sub_opt: Ă܂(rc=-11044)B
clerrdisp:rc=-33542641(fe002e0f) at script=[test_try2.cl] line=11
 ---> [LET a()]"
EXCEPTION=0
ERRMSG=""
*** end   test_try2.cl ***
*** start test_try3.cl ***
file="."
file=".."
file="b"
file="coal_nofree.log"
file="debug_log"
file="error_log"
file="grant.sql"
"out catch", ERRMSG="_func_readdir: end of dir
clerrdisp:rc=-2046623743(86030001) at script=[test_try3.cl] line=7
 ---> [while file=readdir(dp)]", EXCEPTION=0x86030001
[coal] ope=10048 fpcloseς݂łB
ERRMSG="ope=10048 fpcloseς݂łB", EXCEPTION=0x86000000
ERRMSG="ope=10048 fpcloseς݂łB"
*** end   test_try3.cl ***
*** start test_try4.cl ***
"Finally", EXCEPTION=0x00000000
EXCEPTION=0x00000000
*** end   test_try4.cl ***
*** start test_try5.cl ***
"Finally", EXCEPTION=0x00000000
EXCEPTION=0x00000000
*** end   test_try5.cl ***
*** start test_try6.cl ***
"catch", ERRMSG="cl_gx_exp_gp_obj_opt: SYNTAXG[B
zerofBoCh܂B
let_compute_sub_opt: Ă܂(rc=-1)B
clerrdisp:rc=-2080309247(84010001) at script=[test_try6.cl] line=8
 ---> [LET a = 1/0]", EXCEPTION=0x84010001
"Finally", EXCEPTION=0x84010001
"Finally", ERRMSG="cl_gx_exp_gp_obj_opt: SYNTAXG[B
zerofBoCh܂B
let_compute_sub_opt: Ă܂(rc=-1)B
clerrdisp:rc=-2080309247(84010001) at script=[test_try6.cl] line=8
 ---> [LET a = 1/0]"
ERRMSG="cl_gx_exp_gp_obj_opt: SYNTAXG[B
zerofBoCh܂B
let_compute_sub_opt: Ă܂(rc=-1)B
clerrdisp:rc=-2080309247(84010001) at script=[test_try6.cl] line=8
 ---> [LET a = 1/0]
cl_gx_get_all_var_ent: B(B)͖`łB
let_compute_sub_opt: Ă܂(rc=-11012)B
clerrdisp:rc=-33542641(fe002e0f) at script=[test_try6.cl] line=15
 ---> [LET a = B]"
[coal] zerofBoCh܂B
2/0=##ERROR##
EXCEPTION=0x84010001, ERROR=0x00000000
ERRMSG="zerofBoCh܂B"
ERRMSG="zerofBoCh܂B"
*** end   test_try6.cl ***
*** start test_undef.cl ***
$1={1,2,3,"A","s",variant a[10]}
[coal] cl_gx_get_all_var_ent: a(a)͖`łB
[coal] _print_info_array: Rs[̔z[a]łB
[coal] cl_get_array_index_tbl_ref: Rs[̔z[a]łB
a=##ERROR##, x=local ##ERROR##,variant a[10], x[0]=##ERROR##
[coal] _print_info_array: Rs[̔z[a]łB
$1={1,2,3,"A","s",##ERROR##,variant a[10]}
$ah['A']=10
[coal] cl_gx_get_all_var_ent: $ah(ah)͖`łB
$ah['A']=##ERROR##
*** end   test_undef.cl ***
*** start test_undef2.cl ***
$x=10, $x=local int
x=1, x=global int
$x=1, $x=global int
x=1, x=global int
[coal] cl_gx_get_all_var_ent: $x(x)͖`łB
$x=##ERROR##
*** end   test_undef2.cl ***
*** start test_undef3.cl ***
x=10, private x=30
x=30
*** end   test_undef3.cl ***
*** start test_user_func.cl ***
"func1: called"
proc1="proc1()"
N=20, g="ZZ"
$a[1,2,3]=8, NULL=, countv($am)=0, countv($ac)=0
countv($a)=1, countv($ah)=0
[coal] Print: %0=8
"func2: ret proc1"
[coal] cl_gx_get_all_var_ent: $func2(func2)͖`łB
$func2=##ERROR##
proc1="proc1()"
[coal] cl_pr_ex_def_scalar_attr_info:(W)ϐ[N]ւ̃f[^𖳎܂B
[coal] cl_pr_ex_def_scalar_attr_info:(W)ϐ[g]ւ̃f[^𖳎܂B
N=20, g="ZZ"
$a[1,2,3]=8, NULL=, countv($am)=0, countv($ac)=0
countv($a)=1, countv($ah)=0
[coal] Print: %0=8
"func2: ret proc1"
func1(0)="101010"
*** end   test_user_func.cl ***
*** start test_user_func_first.cl ***
ABS(-1.25)=1.25
"user func"
abs(%1)=0
*** end   test_user_func_first.cl ***
*** start test_var_func.cl ***
TEST
*** end   test_var_func.cl ***
*** start test_vnest.cl ***
[coal] _ex_conv_parm_opt: $1̃f[^ݒłB
[coal] _ex_conv_parm_opt: ֐($)̖߂l̃f[^ݒłB
$1=##ERROR##, $(1)=##ERROR##
*$()=2,"A"
[coal] _ex_conv_parm_opt: 萔(%1)ւ̑͂ł܂B
%1 = 1=##ERROR##
[coal] cl_gx_get_all_var_ent: #1̃CfbNX(1)͔͈͊OłB
#1 = 1=##ERROR##
$$1="A"
$$a="A"
$$b[1]="A"
$$i(-2)=2
%$i=
%$i=
*x={Index=0,Value="abs()"}
*x={Index=1,Value="A"}
%ma=private variant %ma[(2),5..9], *%ma=
b=private variant b[10], *b="X",2,"Z"
c=private variant c[-3..3], *c=100,110,120
x=local variant x[1..0], *x=
xc=local variant xc[-3..3], *xc=100,110,120, xc[-2]=110
xm=local variant xm[5..9]
*xm=
*** end   test_vnest.cl ***
*** start test_while.cl ***
MAX_LOOP_WHILE=100000
MAX_LOOP_WHILE=10
"loop1", $i=0
"loop1", $i=1
"loop1", $i=2
"loop1", $i=3
"loop1", $i=4
"loop1", $i=5
"loop1", $i=6
"loop1", $i=7
"loop1", $i=8
"loop1", $i=9
*** end   test_while.cl ***
*** start test_while1.cl ***
$f=0.1
$i=0, $f=0.1
$i=1, $f=1.1
$i=2, $f=2.1
$i=3, $f=3.1
$i=4, $f=4.1
$i=5, $f=5.1
$i=6, $f=6.1
$i=7, $f=7.1
$i=8, $f=8.1
$i=9, $f=9.1
*** end   test_while1.cl ***
*** start test_while2.cl ***
MAX_LOOP_WHILE=100000
MAX_LOOP_WHILE=10
x=5, i=4
x=4, i=3
x=3, i=2
x=2, i=1
x=1, i=0
*** end   test_while2.cl ***
*** start test_xhash.cl ***
"S", $i=101, $loc=1
"S", $i=114, $loc=2
"S", $i=127, $loc=3
"S", $i=140, $loc=4
"S", $i=153, $loc=5
"S", $i=166, $loc=6
"S", $i=179, $loc=7
"S", $i=192, $loc=8
"S", $i=205, $loc=9
"S", $i=218, $loc=10
"R", $i=101, $loc=1
"R", $i=114, $loc=2
"R", $i=127, $loc=3
"R", $i=140, $loc=4
"R", $i=153, $loc=5
"R", $i=166, $loc=6
"R", $i=179, $loc=7
"R", $i=192, $loc=8
"R", $i=205, $loc=9
"R", $i=218, $loc=10
*** end   test_xhash.cl ***
*** start test_xhash2.cl ***
$xhp=537432128, $i=2, $j=1, $1="X123"
$xhp=537432128, $i=2, $j=2, $1="X123", $2=100, $a[0]=100
*** end   test_xhash2.cl ***
*** start test_xhash3.cl ***
to($xhp,'x')="200ae820", $1=1, $2=2, $3=3, $4=4
$i=1, $j=1
$9="ABCD", $10="X123"
$i=2, $j=2
$9="XYZZ", $10=100
$i=3, $j=3
$9=10, $10=200
$i=4, $j=4
$9=456.780, $10=12.345
$i=5, $j=5
$9=56.7, $10=2.34
$i=6, $j=6
$9=56800, $10=0.3456
$i=7, $j=0
$i=8, $j=0
$i=9, $j=0
$i=10, $j=0
to($xhp,'X')="200AE820", $u=6, $m=10
*x={Index="ABCD",Value="X123"}
*x={Index="XYZZ",Value=100}
*x={Index="10",Value=200}
*x={Index="456.78",Value=12.345}
xhp=local int
*** end   test_xhash3.cl ***
*** start test_XML.cl ***
a[8]=67, *a=5,-789786384,352264,33279,1,1006,513,0,67,1355598490,521814300,1630569889,872278300,1630569889,872278300,65536,1
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20113f68     0 3c 70 61 72 65 6e 74 3e 0d 0a 0d 0a 20 20 3c 62 <parent>....  <b
20113f78    16 6f 79 3e 41 41 0d 0a 20 20 3c 2f 62 6f 79 3e 0d oy>AA..  </boy>.
20113f88    32 0a 20 20 3c 67 69 72 6c 3e 0d 0a 81 40 3c 2f 67 .  <girl>...@</g
20113f98    48 69 72 6c 3e 0d 0a 0d 0a 3c 2f 70 61 72 65 6e 74 irl>....</parent
20113fa8    64 3e 0d 0a                                        >..
20113fb8    67 (DATA END)

$1=**BULK**
"proc-1", %0=5
,99003,0,2,"","parent"
"proc-1", %0=5
,99003,0,2,"","boy"
"proc-2", %0=3
,0,1,"AA
"
"proc-3", %0=5
,99009,0,2,"","boy"
"proc-1", %0=5
,99003,0,2,"","girl"
"proc-2", %0=3
,0,1,"?@"
"proc-3", %0=5
,99009,0,2,"","girl"
"proc-3", %0=5
,99009,0,2,"","parent"
EXCEPTION=0, ERRNO=0, ERRMSG=""
*** end   test_XML.cl ***
*** start test_xml2.cl ***
a[8]=58
$1="<update xmln="urn:yahoo:jp:toolbar">
1234567890
</update>
"
EXCEPTION=0, ERRNO=0, ERRMSG="cl_search_ontbl: GR=99003 Tag=[update] not found.
cl_input_xml_tag: skip data
cl_input_dt: skip data"
*** end   test_xml2.cl ***
*** start test_xml3.cl ***
%1=""
a[8]=1551
$1="<?xml version="1.0" encoding="utf-8"?>

<update xmln="urn:yahoo:jp:toolbar">

	<fileEnable>true</fileEnable>

	<default>
		<basicInfo>
			<userAgent>YTBAPI</userAgent>
		</basicInfo>
	
		<update>true</update>
		<download>
			<url><![CDATA[http://downloads.yahoo.co.jp/toolbar/dl/installs/yt7jup_for7104.exe]]></url>
		</download>
		<message><![CDATA[Yahoo!c[o[ o[W7.1.0.4p̂q܂

Yahoo!c[o[\tgEGA̕ssC܂B
݂̉ʂ\Ă邨q܂ɂ܂ẮA
ŐV(Ver.7.1.0.5jւ̍XV肢܂B

[͂]{^ƍŐṼvO_E[hăCXg[Jn܂B
CXg[ɂ͐b܂Bo[WAbvs܂H]]></message>
		<condition>
			<os>
				<minVersion>5.0</minVersion>
				<maxVersion>6.5</maxVersion>
			</os>
			<toolbar>
				<minVersion>7.1.0.4</minVersion>
				<maxVersion>7.1.0.4</maxVersion>
			</toolbar>
			<browser>
				<minVersion>5.0</minVersion>
				<maxVersion>9.0</maxVersion>
			</browser>
		</condition>
	</default>

	<additional>

		<basicInfo>
			<server><![CDATA[http://fe.toolbar.kids.yahoo.co.jp/api/getdomain?pc=kids]]></server>
		</basicInfo>

		<update>false</update>

		<condition>
			<partner>kids</partner>
			<toolbar>
				<minVersion>7.0.0.0</minVersion>
				<maxVersion>7.99.99.99</maxVersion>
			</toolbar>
		</condition>

	</additional>

</update>
"
*** procX-1
%1 = 99001
%2 = 0
%3 = 6
%4 = 
%5 = xml
%6 = version
%7 = 1.0
%8 = encoding
%9 = utf-8
*** p-1
%1 = 99003
%2 = 0
%3 = 4
%4 = 
%5 = update
%6 = xmln
%7 = urn:yahoo:jp:toolbar
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = fileEnable
*** p-2
%1 = 0
%2 = 1
%3 = true
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = fileEnable
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = default
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = basicInfo
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = userAgent
*** p-2
%1 = 0
%2 = 1
%3 = YTBAPI
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = userAgent
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = basicInfo
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = update
*** p-2
%1 = 0
%2 = 1
%3 = true
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = update
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = download
*** procT-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = url
*** procD-1
%1 = 99002
%2 = 0
%3 = 2
%4 = 
%5 = http://downloads.yahoo.co.jp/toolbar/dl/installs/yt7jup_for7104.exe
*** procT-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = url
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = download
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = message
*** procD-1
%1 = 99002
%2 = 0
%3 = 2
%4 = 
%5 = Yahoo!c[o[ o[W7.1.0.4p̂q܂

Yahoo!c[o[\tgEGA̕ssC܂B
݂̉ʂ\Ă邨q܂ɂ܂ẮA
ŐV(Ver.7.1.0.5jւ̍XV肢܂B

[͂]{^ƍŐṼvO_E[hăCXg[Jn܂B
CXg[ɂ͐b܂Bo[WAbvs܂H
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = message
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = condition
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = os
*** procT-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = minVersion
*** procT-2
%1 = 0
%2 = 1
%3 = 5.0
*** procT-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = minVersion
*** procT-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = maxVersion
*** procT-2
%1 = 0
%2 = 1
%3 = 6.5
*** procT-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = maxVersion
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = os
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = toolbar
*** procT-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = minVersion
*** procT-2
%1 = 0
%2 = 1
%3 = 7.1.0.4
*** procT-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = minVersion
*** procT-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = maxVersion
*** procT-2
%1 = 0
%2 = 1
%3 = 7.1.0.4
*** procT-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = maxVersion
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = toolbar
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = browser
*** procT-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = minVersion
*** procT-2
%1 = 0
%2 = 1
%3 = 5.0
*** procT-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = minVersion
*** procT-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = maxVersion
*** procT-2
%1 = 0
%2 = 1
%3 = 9.0
*** procT-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = maxVersion
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = browser
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = condition
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = default
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = additional
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = basicInfo
*** procT-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = server
*** procD-1
%1 = 99002
%2 = 0
%3 = 2
%4 = 
%5 = http://fe.toolbar.kids.yahoo.co.jp/api/getdomain?pc=kids
*** procT-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = server
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = basicInfo
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = update
*** p-2
%1 = 0
%2 = 1
%3 = false
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = update
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = condition
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = partner
*** p-2
%1 = 0
%2 = 1
%3 = kids
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = partner
*** p-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = toolbar
*** procT-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = minVersion
*** procT-2
%1 = 0
%2 = 1
%3 = 7.0.0.0
*** procT-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = minVersion
*** procT-1
%1 = 99003
%2 = 0
%3 = 2
%4 = 
%5 = maxVersion
*** procT-2
%1 = 0
%2 = 1
%3 = 7.99.99.99
*** procT-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = maxVersion
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = toolbar
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = condition
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = additional
*** p-3
%1 = 99009
%2 = 0
%3 = 2
%4 = 
%5 = update
*** end   test_xml3.cl ***
*** start test_xor.cl ***
!X&Y | X&!Y | A&X | A&Y=0
!X&Y | X&!Y | A&X | A&Y=0
!X&Y | X&!Y | A&X | A&Y=0
!X&Y | X&!Y | A&X | A&Y=0
!X&Y | X&!Y | A&X | A&Y=0
!X&Y | X&!Y | A&X | A&Y=1
!X&Y | X&!Y | A&X | A&Y=0
!X&Y | X&!Y | A&X | A&Y=0
*** end   test_xor.cl ***
*** start test_yen.cl ***
[coal] cl_conv_const_n_str: : ȊO̕[123\AVC]܂(pos=4)B
123\AVC=##ERROR##
"ABCD XYZ"
"ABCD'XYZ"
"ABCD'XY~Z"
"A	A"
A
BXX
"AB"
"X"
"abc
def
ghijklmnopqrstu"
"XYZ"ABC@DE"
i=0
i=1
0.0000000000000000000, 0.0000000000000000000
*** end   test_yen.cl ***
*** start test1.cl ***
bu="ABC"
[coal] cl_gx_get_all_var_ent: wt(wt)͖`łB
ff()=0, bu="ABC", wt=##ERROR##
*** end   test1.cl ***
*** start test2.cl ***
la=0
*** end   test2.cl ***
*** start test3.cl ***
x.aaa(-1)=1
"func aaa"
"func aaa"
main.aaa()=0, aaa()=0
[coal] O(葱)͎wł܂B
main&'A'=##ERROR##
x.aaa.bbb="Y.BBB"
"proc ppp-1"
*** end   test3.cl ***
*** start test4.cl ***
main.(m)()="func mf"
xz.(n)=123
'12345'.(m+1)="45"
[coal] cl_gx_ex_obj_sub: [$b]Ă܂B
[coal] cl_gx_ex_obj_sub: [$c]Ă܂B
$xz.$b=##ERROR##, $xz.$c=##ERROR##
$xz.b="A1234", $xz.c=-123450000000000
$xz.a[0]=0
$$1="A"
$$a[1]="AA"
$$i(-2)=2
%$i=
%$i=
*** end   test4.cl ***
*** start test5.cl ***
d0=0.00, d1=1.0, d0+d1=1.0, d0-d1=-1.0, d0*d1=0, d0/d1=0, d1/d2=0.5
[coal] zerofBoCh܂B
d0=0.00, d1=1.0, d1+d0=1.0, d1-d0=1.0, d1*d0=0, d1/d0=##ERROR##
ERRMSG="zerofBoCh܂B"
*** end   test5.cl ***
*** start test6.cl ***
c="12345"
c10="1234567890"
a=private Char a[5], *a="abc","xy","","123","ABCDE"
a=private Char a[10], *a="abc","xy","","123","ABCDE"
a=private Char(3) a[10], *a="abc","xy","","123","ABC"
a=private Char a[4], *a="abc","xy","","123"
*** end   test6.cl ***
*** start test7.cl ***
a=10, b=2, d1=13.46
a=5, b=3, d1=13.457
*** end   test7.cl ***
*** start test8.cl ***
[coal] cl_set_instance_method: \bh[sind]͖`łB
Math.sind(30.0)=##ERROR##
[coal] cl_set_instance_method: \bh[cosd]͖`łB
Math.cosd(60.0)=##ERROR##
[coal] cl_set_instance_method: \bh[tand]͖`łB
Math.tand(45.0)=##ERROR##
*** end   test8.cl ***
*** start test9.cl ***
a=1
TEST.a=1, TEST.f="TEST.XX()", TEST.f()=0
*** end   test9.cl ***
*** start test10.cl ***
pa="X", ga=200, $proc=1
[coal] cl_def_var_mult: ϐ͏ȗł܂
[coal] clerrdisp:rc=-11811(ffffd1dd) at script=[test10.cl] line=11
[coal]  ---> [LET local = 1]
*** end   test10.cl ***
*** start test11.cl ***
[*(2..5)]=[2,3,4,5]
b=[2,3,4,5], b=[int(5,64)..int(5,64)]
[*('2'..'5')]=["2","3","4","5"]
a="2".."5", *a="2","3","4","5"
a="3".."", *a="3"
a="".."4", *a="","","","","","","","","","	","
","","","
","","","","","","","","","","","","","","","","","",""," ","!",""","#","$","%","&","'","(",")","*","+",",","-",".","/","0","1","2","3","4"
[coal] ֐(abs)͎wł܂B
[coal] cl_gx_bexp: ZpZ̑1Ɍ肪܂B
abs*10=##ERROR##
*** end   test11.cl ***
*** start test12.cl ***
%(i)="B"
%(i)="C"
%(i)="D"
%(i)="E"
%(i)=
*** end   test12.cl ***
*** start test13.cl ***
gettime(0)=73.912
gettime(0)=73.912
*** end   test13.cl ***
*** start test14.cl ***
a=public variant a[2,3], a=public variant a[2,3]
a=public Dec a[2,4], a=public Dec a[2,4]
*a=1,2,3
a=public Char a[10], a=public Char a[10]
*a="AAA"
ix=private Int ix[10], *ix=1,2,3
[coal] cl_gx_ex_obj_sub: ix'*'͎wł܂B
ix="10", *ix=##ERROR##, ix=local Char
[coal] cl_gx_ex_obj_sub: i'*'͎wł܂B
*i=##ERROR##
aa=100, aa=local int
*** end   test14.cl ***
*** start test15.cl ***
func1()=0
[coal] _ex_conv_parm_opt: ϐ(x)̔z͖ł(gid hash ix=0)B
x[0]=1=##ERROR##
func1()=0
[coal] _ex_conv_parm_opt: ϐ(x)̔z͖ł(gid hash ix=0)B
x[0]=##ERROR##
*** end   test15.cl ***
*** start testd.cl ***
$d=11.5
felwrite($fp,'AAAAA',$d,123456789012345.1234567890123456,10)=33
$r1="AAAAA", $r2=11.5, $r3=123456789012345.123456789012346, $r4=10
*** end   testd.cl ***
*** start sample.cl ***
(int)concat(cc)=1234
(dec)'123.45'=123.45
*** end   sample.cl ***
*** start sample_count_digit.cl ***
[coal] getchar: end of file
*ndigit=0,1,1,1,1,1
nwhite=1, nother=0
*** end   sample_count_digit.cl ***
*** start sample_dentaku.cl ***

3
[coal] getchar: end of file
*** end   sample_dentaku.cl ***
*** start sample_dentaku2.cl ***

200
[coal] fgetline: end of file
*** end   sample_dentaku2.cl ***
*** start sample_fgetline.cl ***
line="aaaaaaaaaaa
"
line="bbbb
"
line="cccccc
"
*** end   sample_fgetline.cl ***
*** start sample_fukuri1.cl ***
  0  1.00  10000
  1  1.05  10500
  2  1.10  11025
  3  1.16  11576
  4  1.22  12155
  5  1.28  12762
  6  1.34  13400
  7  1.41  14071
  8  1.48  14774
  9  1.55  15513
 10  1.63  16288
*** end   sample_fukuri1.cl ***
*** start sample_fukuri2.cl ***
  0  1.00  10000
  1  1.05  10500
  2  1.10  11025
  3  1.16  11576
  4  1.22  12154
  5  1.28  12761
  6  1.34  13399
  7  1.41  14068
  8  1.48  14771
  9  1.55  15509
 10  1.63  16284
*** end   sample_fukuri2.cl ***
*** start sample_fukuri3.cl ***
  0  1.00  10000
  1  1.05  10500
  2  1.10  11025
  3  1.16  11576
  4  1.22  12154
  5  1.28  12761
  6  1.34  13399
  7  1.41  14068
  8  1.48  14771
  9  1.55  15509
 10  1.63  16284
*** end   sample_fukuri3.cl ***
*** start sample_getchar.cl ***
xxx
[coal] getchar: end of file
*** end   sample_getchar.cl ***
*** start sample_getint.cl ***
buf="1123", c="1"
pos=2, c="1"
c="1"
pos=3, c="2"
c="2"
pos=4, c="3"
c="3"
[coal] fgetline: end of file
*pn=123
*** end   sample_getint.cl ***
*** start sample_getline.cl ***
n=5
n=9
n=13
*** end   sample_getline.cl ***
*** start sample_kojin.cl ***
kojin_table=private (private const type PERSONAL{(private const type FAMILY{Int fa_zokugara, Char fa_name, Char fa_furi, Char fa_sex, Char fa_birth, type ADDR{Char zip_code, Char jusho, Char build, Char tel}}) pa_family[10], type KINMU{Char km_name, Char km_furi, type ADDR{Char zip_code, Char jusho, Char build, Char tel}}}) kojin_table[2]
*kojin_table=*({pa_family=*(*({fa_zokugara=0,fa_name="",fa_furi="RoV",fa_sex="j",fa_birth="1951/05/28",fa_addr=*({zip_code="",jusho="",build="",tel=""})})),pa_kinmu=*({km_name="",km_furi="RoV",km_addr=*({zip_code="j",jusho="1951/05/28",build="",tel=""})})})
countv(family_tab)=1
countv(kojin_table)=1
  0  RoV j 1951/05/28    
*kojin_table[0].pa_family[0]={fa_zokugara=0,fa_name="XXXXX",fa_furi="RoV",fa_sex="j",fa_birth="1951/05/28",fa_addr=*({zip_code="",jusho="",build="",tel=""})}
*** end   sample_kojin.cl ***
*** start sample_struct_list.cl ***
Enter next family mamber:Enter next family mamber:[coal] fgetline: end of file
  1 aaa bbbb ccc ddd
*** end   sample_struct_list.cl ***
*** start sample_wc.cl ***
[coal] getchar: end of file
nl=1, nw=1, nc=8
*** end   sample_wc.cl ***
*** start sample1.cl ***
aa="AAA"
aa="BBB"
*** end   sample1.cl ***
*** start sample2.cl ***
   0  -17.8
  20   -6.7
  40    4.4
  60   15.6
  80   26.7
 100   37.8
 120   48.9
 140   60.0
 160   71.1
 180   82.2
 200   93.3
 220  104.4
 240  115.6
 260  126.7
 280  137.8
 300  148.9
*** end   sample2.cl ***
[coal] file[Ba]N[Y܂B
[coal] file[ w_in.txt]N[Y܂B
[coal] file[ w_out.txt]N[Y܂B
