[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_$%#.cl ***
a=private variant a[10]
%0=5, $0=0, #0=0
%()=variant %()[(1),1..5]
$()=variant $()[(1),1..65536]
#()=variant #()[(1),1..0]
$0=2
$(1,2,3)=1, $11=11
*%()="1","2","3","4","5"
$()=variant $()[(1),1..65536]
$0=11
*$()=1,"A",100,,,,,,,,11
*#()=
%()[1]="1"
%()[2]="2"
$()[1]=1
$()[2]="A"
*** end   test_$%#.cl ***
*** start test_10.cl ***
$1-=$1/10=90, "ASDFG"
$1-=$1/10=81, "ASDFG"
$1-=$1/10=73, "ASDFG"
$1-=$1/10=66, "ASDFG"
$1-=$1/10=60, "ASDFG"
$1-=$1/10=54, "ASDFG"
$1-=$1/10=49, "ASDFG"
$1-=$1/10=45, "ASDFG"
$1-=$1/10=41, "ASDFG"
$1-=$1/10=37, "ASDFG"
*** end   test_10.cl ***
*** start test_abs.cl ***
[coal] cl_gx_get_all_var_ent: $abs(abs)͖`łB
abs(-10)=10, $abs=##ERROR##
[coal] cl_gx_func_bexp: ]ȃp[^(nparm=2)܂B
abs(-1,-2)=##ERROR##
[coal] Parm1:: ȊO̕[ABC]܂(pos=1)B
abs('ABC')=##ERROR##
abs(SYSDATE)=(2022/03/31 18:53:59)
ERRMSG="Parm1:: ȊO̕[ABC]܂(pos=1)B"
*** end   test_abs.cl ***
*** start test_agg.cl ***
a=private Char(10) a hash(10)
*a=[ABC]="10",[XYZ]="20", *aa=[ABC]=30,[XYZ0]=40
"*a + *aa=", *y=[ABC]=30,[XYZ]="20",[XYZ0]=40
"*a - *aa=", *y=[XYZ]="20"
"*a & *aa=", *y=[ABC]="10"
"*a ^ *aa=", *y=[XYZ]="20",[XYZ0]=40
x=local const x{char(3) Index, char(2) Value}, *x={Index="XYZ",Value="20"}
x=local const x{char(4) Index, int Value}, *x={Index="XYZ0",Value=40}
b=private const variant b[10], *b=[1,,3,4,5,"A","B",{"C",,"E"},8]
c=private const variant c[10], *c=[1,2,,4,5,6,7,8,9,10]
"*b | *c=", y=local variant y[2], *y=[1,,3,4,5,"A","B",{"C",,"E"},8],[1,2,,4,5,6,7,8,9,10]
"*b - *c=", y=local variant y[1], *y=[1,,3,4,5,"A","B",{"C",,"E"},8]
"*b & *c=", y=local variant y[1], *y=
"*b ^ *c=", y=local variant y[2], *y=[1,,3,4,5,"A","B",{"C",,"E"},8],[1,2,,4,5,6,7,8,9,10]
[coal] 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)=19 aux=0x01 0x12 auxlen=0000 200bd550 data=200bdd58(VarIndex=00000000 Attr=1 0 0 0 size=10 xhp=200bc768  pInfoType=00000000 index=[0,10,149,1](_xhash Id=HX keylen=0 max=10 pre=7 ha=200c46a0 next=00000000 datlen=4 dreg=200c48f8)) 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=200c3d6c(VarIndex=200c3e00 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)=118 aux=0x07 0x12 auxlen=0000 200fb250 data=200cd8c0(VarIndex=200cc9c0 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)=118 aux=0x07 0x12 auxlen=0000 200fb270 data=200c17f0(VarIndex=200bdf10 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="20220331", DATETIME="2022/03/31 18:54:00", $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
###### akxm_free: (cl_array.c)[568],invalid free addr: 7ff30008
*** 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)=170 aux=0x00 0x11 auxlen=0000 200fb2b0 data=200b11e0(VarIndex=200f98b8 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 ----+----+----+-
2011c488     0 31 32 33 34 35 31 30 33                         12345103
2011c498     8 (DATA END)

x=**BULK**
x="12345     "
x=(1970/01/01 00:00:00)
x=(2021/05/18 00:00:00)
x=22
x=(2023/01/31 18:54:00)
x=(2022/03/31 00:00:00)
x=(2022/03/10 18:54:00)
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"
[coal] cl_gx_bexp: Zq(SBS)Ɍ肪܂Bope kinds=5
[coal] cl_gx_compute: 񍀉ZɌ肪܂B
[coal] clerrdisp:rc=-11001(ffffd507) at script=[test_bexp_func.cl] line=71
[coal]  ---> [bexp x = a SBS b c]
*** 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 lp1"
*** 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 ----+----+----+-
200b2f30     0 00 00 00 01                                     ....
200b2f40     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200b35e0     0 49 96 02 d2                                     I...
200b35f0     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 ----+----+----+-
200b2fe0     0 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 1234567890123456
200b2ff0    16 37 38 39 30                                     7890
200b3000    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 ----+----+----+-
201450c0     0 00 00 00 01                                     ....
201450d0     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20145780     0 49 96 02 d2                                     I...
20145790     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 ----+----+----+-
200fec28     0 00 00 00 01                                     ....
200fec38     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200ff2d8     0 49 96 02 d2                                     I...
200ff2e8     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 ----+----+----+-
200fecd8     0 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 1234567890123456
200fece8    16 37 38 39 30                                     7890
200fecf8    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 ----+----+----+-
20102cd8     0 31 32 33                                        123
20102ce8     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 ----+----+----+-
20102cc9     0 00 00 00 01                                     ....
20102cd9     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 ----+----+----+-
20102cca     0 00                                              .
20102cda     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 ----+----+----+-
20102c60     0 00 00 00 01                                     ....
20102c70     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 ----+----+----+-
20102c60     0 3f f0 00 00 00 00 00 00                         ?.......
20102c70     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)=537738632 hlen=0 pos=537736344(200d3498) aux=0x00 0x11 auxlen=0000 200d30e8 data=200b7820 [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)=537995344 hlen=0 pos=537901632(200fba40) aux=0x00 0x11 auxlen=0000 200c4038 data=20104e70 [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] cl_gx_str_rep: ؂ow܂͕ҏWw肪łB
[coal] cl_gx_ex_obj_sub: [CBULK CAST xyz]Ă܂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 ***
[coal] cl_gx_str_rep: ؂ow܂͕ҏWw肪łB
[coal] cl_gx_ex_obj_sub: [pos]Ă܂B
[coal] let_compute_sub_opt: Ă܂(rc=-11001)B
[coal] clerrdisp:rc=-11791(ffffd1f1) at script=[lib_util.cl] line=17
[coal]  ---> [LET s = s.pos]
[coal] _ex_conv_parm_opt: ֐(comma)̖߂l̃f[^ݒłB
comma('-12345678.9')=##ERROR##
comma('-5678.9')="-5,876.9"
comma('-678.9')="-678.9"
comma('-78.9')="-78.9"
comma('-8.9')="-8.9"
comma('-.9')="-.9"
[coal] cl_gx_str_rep: ؂ow܂͕ҏWw肪łB
[coal] cl_gx_ex_obj_sub: [pos]Ă܂B
[coal] let_compute_sub_opt: Ă܂(rc=-11001)B
[coal] clerrdisp:rc=-11791(ffffd1f1) at script=[lib_util.cl] line=17
[coal]  ---> [LET s = s.pos]
[coal] _ex_conv_parm_opt: ֐(comma)̖߂l̃f[^ݒłB
comma(-12345678.9)=##ERROR##
comma(-5678.9)="-5,876.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/04/05 18:54:002022/04/03 18:54:002022/04/01 18:54:00"
*(SYSDATE..(SYSDATE+5)..'D')=(2022/03/31 18:54:00),(2022/04/01 18:54:00),(2022/04/02 18:54:00),(2022/04/03 18:54:00),(2022/04/04 18:54:00),(2022/04/05 18:54:00)
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/03/31 18:54:00)
b=(2022/04/01 18:54:00)
"a <> b"
a == b=0
a == (CDATE)'2014/05/10'=0
a > (CDATE)'2014/05/10'=1
a MAX (CDATE)'2014/05/10'=(2022/03/31 18:54:00)
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/03/31 18:54:00)
MIN(a,(CDATE)'2014/05/08',(CDATE)'2013/05/10')=(2013/05/10 00:00:00)
CBIN(SYSDATE)=1648720440
CDBL(SYSDATE)=1648720440
CDEC(SYSDATE)=1648720440
***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2013b23c     0 14 16 03 1f 12 36 00 0b 6b 6b 01 04 00 59       .....6..kk...Y
2013b24c    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 ----+----+----+-
2013b240     0 14 16 03 1f 12 36 00 0b 6b 6b 01 04 00 59       .....6..kk...Y
2013b250    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 ----+----+----+-
2013b240     0 14 16 03 1f 12 36 00 0b 6b 6b 01 04 00 59       .....6..kk...Y
2013b250    14 (DATA END)

TO_BULKS(SYSDATE)=**BULK**
SYSDATE=1416031f1236000b6b6b01040059
date_diff('y',a,c)=1922
date_diff('m',a,c)=23066
date_diff('d',a,c)=702085
date_diff('h',a,c)=16850058
date_diff('mi',a,c)=1011003534
date_diff('s',a,c)=60660212040
date_diff('q',a,c)=7688.666666666667
date_diff('ww',a,c)=100297.8571428571
*** end   test_date.cl ***
*** start test_date1.cl ***
SYSDATE=(2022/03/31 18:54:00)
SYSDATE+1=(2022/04/01 18:54:00)
SYSDATE-1=(2022/03/30 18:54:00)
[coal] cl_cmpt_date: Z(+)͎gpł܂B
SYSDATE+SYSDATE=##ERROR##
SYSDATE..SYSDATE=(2022/03/31 18:54:00)..(2022/03/31 18:54:00)
*(SYSDATE..(SYSDATE+3))=(2022/03/31 18:54:00),(2022/04/01 18:54:00),(2022/04/02 18:54:00),(2022/04/03 18:54:00)
to_char(SYSDATE..SYSDATE,'YYYY-MM-DD HH:MI:SS.U P DAY DDD')="2022-03-31 18:54:00.748395 PM Thursday 89"
1.5..3.5=1.5..3.5
(BIN)SYSDATE=1648720440
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 201220d8 data=201220d8 [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 ----+----+----+-
200dffa8     0 31 32 33 34 35 36 37 38 39 30                   1234567890
200dffb8    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=1648720246
i=10 val=724819200
i=11 val=1648720246
i=12 val=724819200
i=13 val=1648720246
i=14 val=724819200
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 ***
[coal] cl_gx_str_rep: ؂ow܂͕ҏWw肪łB
[coal] cl_gx_ex_obj_sub: [0]Ă܂B
(1).0=##ERROR##
[coal] cl_gx_str_rep: ؂ow܂͕ҏWw肪łB
[coal] cl_gx_ex_obj_sub: [0]Ă܂B
(1).(0)=##ERROR##
[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 ***
text="123%456ABC/7845%90/abc%8def", a="#*%*/", %1=
text.a="7845%90/abc%8def"
[coal] cl_gx_str_rep: ؂ow܂͕ҏWw肪łB
[coal] cl_gx_ex_obj_sub: [' ']Ă܂B
text.' '=##ERROR##
[coal] cl_gx_str_rep: ؂ow܂͕ҏWw肪łB
[coal] cl_gx_ex_obj_sub: [%1]Ă܂B
text.%1=##ERROR##
[coal] _ex_conv_parm_opt: $1̃f[^ݒłB
text.$1=##ERROR##
text.'#45*8'="123%45%90/abc%8def"
text.'##45*8'="123%def"
text.'#*%*/'="7845%90/abc%8def"
text.'##*%*/'="abc%8def"
text.'%45*8'="123%456ABC/78def"
text.'%%45*8'="123%def"
text.'%/*%*'="123%456ABC/7845%90"
text.'%%/*%*'="123%456ABC"
text.'/45/XYZ'="123%XYZ56ABC/7845%90/abc%8def"
text.'//45/XYZ'="123%XYZ56ABC/78XYZ5%90/abc%8def"
text.'#/*'="123%456ABC"
text.'##/*'="123%456ABC"
text.'%*/'="abc%8def"
text.'%%*/'="abc%8def"
text.'#123%'="456ABC/7845%90/abc%8def"
text.'##123%'="456ABC/7845%90/abc%8def"
text.'#56/78'="123%456ABC/7845%90/abc%8def"
text.'##56/78'="123%456ABC/7845%90/abc%8def"
text.'#%8def'="123%456ABC/7845%90/abc"
text.'##%8def'="123%456ABC/7845%90/abc"
text.'#^23'="123%456ABC/7845%90/abc%8def"
text.'#de$'="123%456ABC/7845%90/abc%8def"
text.'%^123'="%456ABC/7845%90/abc%8def"
text.'%def$'="123%456ABC/7845%90/abc%8"
[coal] cl_gx_get_all_var_ent: s(s)͖`łB
text.'s/45/XY/'=##ERROR##
[coal] cl_shsbs: ҏWw肪łB
shsbs(text,' ')=##ERROR##
[coal] cl_shsbs: ҏWw肪łB
shsbs(text,%1)=##ERROR##
[coal] f[^ݒłB
shsbs(text,$1)=##ERROR##
shsbs(text,'%/*%*')="123%456ABC/7845%90"
shsbs(text,'/45/XY')="123%XY56ABC/7845%90/abc%8def"
[coal] _gx_str_rep: ҏWw[45]Ă܂B
shsbs(text,'/45')=##ERROR##
[coal] _gx_str_rep: ҏWw[/*%*]Ă܂B
shsbs(text,'s/*%*')=##ERROR##
shsbs(text,'s/abc/XY/gi')="123%456XY/7845%90/XY%8def"
shsbs(text,'S/abc/XY/gi')="123%456XY/7845%90/XY%8def"
[coal] _gx_str_rep: ҏWw[/abc/XY]Ă܂B
shsbs(text,'s/abc/XY')=##ERROR##
shsbs(text,5,10,'s/abc/XY/i')="456XY/784"
text2="123%456txt/7845%90/abc%8def.txt"
shsbs(text2,'s/.txt/_txt/g')="123%45_txt/7845%90/abc%8def_txt"
shsbs(text2,'s/\\.txt/_txt/g')="123%456txt/7845%90/abc%8def_txt"
shsbs(text,'S/45/XYZ/')="123%XYZ6ABC/7845%90/abc%8def"
shsbs(text,'S/45/XYZ/g')="123%XYZ6ABC/78XYZ%90/abc%8def"
*** 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/03/31 18:54:00)}
*$x={Index=1,Value=(2022/04/01 18:54:00)}
*$x={Index=2,Value=(2022/04/02 18:54:00)}
*** 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=0022ac2c id=0x20[ ] attr=2 scale=0x40 code=0 dlen=4 len(gid)=4 hlen=0 pos=100(00000064) aux=0x02 0x11 auxlen=0000 20101ff8 data=0022ac34 100
[coal] y= pInfo=0022ac2c 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=200b1978 [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 538047152"
edit('%i %i %i %i %i','12',1,10.5,10.5D,$b)="12 1 10 10 538047152"
edit('%u %u %u %u %u','12',-1,10.5,-10.5D,$b)="12 4294967295 10 4294967286 538047152"
edit('%x %x %x %X %X','12',123,10.5,-10.5D,$b)="c 7b a FFFFFFF6 2011F2B0"
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')="0x2010d2c9 0x200d37f0 0x2010d320 0x200d3830 0x2011f2b0 0x2010d3a4"
*** 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 ----+----+----+-
200ce628     0 41 42 43 44 45 46                               ABCDEF
200ce638     6 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20123470     0 41 42 43 44 45 46                               ABCDEF
20123480     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/03/31 18:54:01)
*** 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 ----+----+----+-
200ce628     0 41 42 43 44 45 46                               ABCDEF
200ce638     6 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
20118e28     0 41 42 43 44 45 46                               ABCDEF
20118e38     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 ----+----+----+-
200c2e68     0 41 42 43 44 45 46                               ABCDEF
200c2e78     6 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2011f2b0     0 41 42 43 44 45 46                               ABCDEF
2011f2c0     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 ----+----+----+-
2011e4f0     0 41 42 43 44 45 46                               ABCDEF
2011e500     6 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2011bc90     0 41 42 43 44 45 46 00 00 00 00                   ABCDEF....
2011bca0    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 ----+----+----+-
2013d220     0 41 42 43 44 45 46                               ABCDEF
2013d230     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 ----+----+----+-
2011c2c0     0 41 42 43 44 45 46                               ABCDEF
2011c2d0     6 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200ce628     0 41 42 43 44 45 46                               ABCDEF
200ce638     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 ----+----+----+-
200fba48     0 41 42 43 44                                     ABCD
200fba58     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2011e4f0     0 41 42 43 44 00                                  ABCD.
2011e500     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 ----+----+----+-
200fba48     0 41 42 43 44                                     ABCD
200fba58     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2011e4f0     0 41 42 43 44 00                                  ABCD.
2011e500     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 ----+----+----+-
200fba48     0 41 42 43 44                                     ABCD
200fba58     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2011e4f0     0 41 42 43 44                                     ABCD
2011e500     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 ----+----+----+-
200fba48     0 41 42 43 44                                     ABCD
200fba58     4 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
2011e4f0     0 41 42 43 44                                     ABCD
2011e500     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)=1516 aux=0x00 0x00 auxlen=0000 20122818 data=200effa0(VarIndex=200d51f0 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)=1516 aux=0x80 0x00 auxlen=0000 20122818 data=200f0700(VarIndex=200f07b8 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 ----+----+----+-
200ee41f     0 20 43 44 45                                      CDE
200ee42f     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 ----+----+----+-
200ee418     0 41 42 20 43 44 45 00 00 00 03                   AB CDE....
200ee428    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/3/31"
'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 ----+----+----+-
200f0290     0 31 32 33 34 35 36 37 38 39 30                   1234567890
200f02a0    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 ----+----+----+-
2011b578     0 31 32 33 34 35 36 37 38 39 30                   1234567890
2011b588    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)=1.64
gettime(0)=1.64
*** 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)=1345001
*$()=1168,9123,235,1664,1332811
*** 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"
n=2, *a=12,5,17,5
pos=a[k++]=12, len=a[k++]=5, substr(x,pos,len)="ABCDE"
pos=a[k++]=17, len=a[k++]=5, substr(x,pos,len)="abcde"
*** 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=0
$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')=0
is(' -0xff ','N')=1
is(' -123.45 ','N')=0
is(' -123.45A ','N')=0
is('XYZ-123.45 ',4,'N')=0
is('XYZ-123.45 ',4,6,'N')=0
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 = 0
$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 ----+----+----+-
200d4f40     0 31 32 33 34 35                                  12345
200d4f50     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/03/31 18:54:07)
*** 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=20102380 [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_get_all_var_ent: a(a)͖`łB
(char)a = 1=##ERROR##
[coal] cl_gx_get_all_var_ent: a(a)͖`ł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 ***
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
*** 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..int}
$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)=2346
[coal] cl_gx_get_all_var_ent: $func1(func1)͖`łB
func1()=[1,2,3], $func1=##ERROR##
nofree(0)=2353
*** 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
2147483648, const dec
-2147483648, const int
-2147483648-0=-2147483648, -2147483648-0=int
-2147483648-1=-2147483649, -2147483648-1=dec
-(2147483648)=-2147483648, -(2147483648)=int
2147483648, const dec
+(2147483648)=2147483648, +(2147483648)=dec
2147483649, const dec
-2147483649, const dec
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
10**12=1000000000000
9223372036854775807L=9223372036854775807
-9223372036854775808L-1=-9223372036854775809
-(9223372036854775808)=-9223372036854775808
+9223372036854775808L=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=200bb408 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="185419"
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/03/31 18:54:19), m=0, xx=10
SYSDATE=(2022/03/31 18:54:19), m=1, xx=10
SYSDATE=(2022/03/31 18:54:19), m=2, xx=10
SYSDATE=(2022/03/31 18:54:19), 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/03/31 18:54:20), 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=2522
"Hellow world!!"
ERROR=0, ERRMSG=""
line="aaaaaaaaaaa"
line="bbbb"
line="cccccc"
line=""
line="ddddd"
ERROR=-11100, ERRMSG=""
Enter :BBB
zzzzz
***2: i=1 nofree no=2528
*** 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, a=local dec
'+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 ----+----+----+-
2015aa90     0 43 44 45 46 47                                  CDEFG
2015aaa0     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 ----+----+----+-
2015aa88     0 41 42 43 44 45 46 47 00 00 00 03                ABCDEFG....
2015aa98    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/07/01 18:54:32)
SYSDATE LAST_DAY 0=(2022/03/31 00:00:00)
SYSDATE TO_CHAR 'y-m-d'="22-3-31"
'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 ***
"*** no set option"
[coal] _ex_conv_parm_opt: $a[]̃f[^ݒłB
[coal] _ex_conv_parm_opt: $1̃f[^ݒłB
[coal] cl_gx_get_all_var_ent: $x(x)͖`łB
$a[0]=##ERROR##, $1=##ERROR##, $x=##ERROR##
"*** option 1 1"
[coal] cl_gx_get_all_var_ent: $x(x)͖`łB
$a[0]="", $1="", $x=##ERROR##
"*** option 1 2"
$a[0]="", $1="", $x=""
"*** undef a"
[coal] cl_gx_array3: [$a]͔z񖼂ł͂܂B
$a[0]=##ERROR##, $1="", $x=""
"*** undef a x"
"*** option 1 0x12"
[coal] _conv_arg_opt: [$a]͖`łB
[coal] _conv_arg_opt: [$x]͖`łB
$a[0]=##ERROR##, $1="", $x=##ERROR##
"*** 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.105   16000 3.141448494 4.588737e-05   3897 1468050
 2    12.315   32000 3.141520773 2.288031e-05   2598 1469482
*** 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/03/31 18:54:44
SYSDATE=(2022/03/31 18:54:44)
*** 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=200f17f0 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=200e99e0 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 20101c20 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 20101c40 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 20101c60 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 20101c80 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 200c1698 data=200c1698 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 201018a8 data=201018a8 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 201018d8 data=201018d8 [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 20104760 data=20104760 [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 201018d8 data=201018d8 [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 20104760 data=20104760 [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 201018d8 data=201018d8 [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 20104760 data=20104760 [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 201018d8 data=201018d8 [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 20104760 data=20104760 [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=200c2b20 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=20128c10 [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=200e99e0 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/03/31 18:54:44)..(2022/04/02 18:54:44)
*e=(2022/03/31 18:54:44),(2022/04/01 18:54:44),(2022/04/02 18:54:44)
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/03/31 18:54:44)..(2022/04/02 18:54:44)
*e=(2022/03/31 18:54:44),(2022/04/01 18:54:44),(2022/04/02 18:54:44)
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 ----+----+----+-
200622b0     0 30 31 32 33 34 35 36 37 38 39                   0123456789
200622c0    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 ----+----+----+-
20137710     0 58 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 X012345678901234
20137720    16 35 36 37 38                                     5678
20137730    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 ----+----+----+-
200f03a0     0 31 32 33 34 35 36 37 38 39 30                   1234567890
200f03b0    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 ----+----+----+-
200b7880     0 39 38 37 36 35                                  98765
200b7890     5 (DATA END)

***** BULK *****
  addr    loc   0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 ----+----+----+-
200b7889     0 00 00 04 d2                                     ....
200b7899     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)=2480 aux=0x01 0x12 auxlen=0000 2008e4a8 data=200fe930(VarIndex=200fe8b8 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)=2480 aux=0x01 0x12 auxlen=0000 2008e4a8 data=200fe930(VarIndex=20100f00 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 ----+----+----+-
200dd2c0     0 00 00 00 0c                                     ....
200dd2d0     4 (DATA END)

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

[coal] DUMP3= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=2480 aux=0x05 0x12 auxlen=0000 2008e4c8 data=200dd350(VarIndex=200dd2c0 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 ----+----+----+-
20101040     0 00 00 00 0c                                     ....
20101050     4 (DATA END)

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

[coal] DUMP3= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=2480 aux=0x05 0x12 auxlen=0000 2008e4c8 data=200dd350(VarIndex=20101000 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)=2480 aux=0x01 0x12 auxlen=0000 2008e4e8 data=200dd4a0(VarIndex=200dd3f8 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)=2480 aux=0x01 0x12 auxlen=0000 2008e4e8 data=200dd4a0(VarIndex=200ffed0 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 ----+----+----+-
200dd768     0 00 00 00 0c                                     ....
200dd778     4 (DATA END)

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

[coal] DUMP3= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=2480 aux=0x05 0x12 auxlen=0000 2008e508 data=200dd698(VarIndex=200dd5f0 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 ----+----+----+-
200c2fd8     0 00 00 00 0c                                     ....
200c2fe8     4 (DATA END)

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

[coal] DUMP3= pInfo=0022c508 id=R attr=5 scale=0x20 dlen=148 len(pScCT)=00000000 hlen(gid)=2480 aux=0x05 0x12 auxlen=0000 2008e508 data=200dd698(VarIndex=200c2fd8 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)=45.151
gettime(0)=45.245
getmemused(aa,5)=1374903, *aa=2848,15171,398,1764,1354722
*** end   test_seinou.cl ***
*** start test_seinou2.cl ***
gettime(0)=45.245
gettime(0)=45.807
gettime(0)=46.15
getmemused(aa,5)=1409494, *aa=9200,15200,398,1764,1382932
*** 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
