FILE名：FILE_for_xc.hsp
//%2と%4を省略したい場合は""を引数に渡してください
#define for_in(%1,%2,%3,%4,%5,%6):\
if %2=""{%5=0}else{%5=%2}:\
if %4=""{%6=1}else{%6=%4}:\
for %1,%5,%3,%6
#define for2c(%1,%2,%3,%4,%5,%6,%7,%8):\
for_in %1,%2,%3,%4,_for_p2,_for_p4:\
for_in %5,%6,%7,%8,_for_p6,_for_p8
#define for3c(%1,%2,%3,%4,%5,%6,%7,%8,%9,%10,%11,%12):\
for_in %1,%2,%3,%4,_for_p2,_for_p4:\
for_in %5,%6,%7,%8,_for_p6,_for_p8:\
for_in %9,%10,%11,%12,_for_p10,_for_p12
#define for4c(%1,%2,%3,%4,%5,%6,%7,%8,%9,%10,%11,%12,%13,%14,%15,%16):\
for_in %1,%2,%3,%4,_for_p2,_for_p4:\
for_in %5,%6,%7,%8,_for_p6,_for_p8:\
for_in %9,%10,%11,%12,_for_p10,_for_p12:\
for_in %13,%14,%15,%16,_for_p14,_for_p16
#define for5c(%1,%2,%3,%4,%5,%6,%7,%8,%9,%10,%11,%12,%13,%14,%15,%16,%17,%18,%19,%20):\
for_in %1,%2,%3,%4,_for_p2,_for_p4:\
for_in %5,%6,%7,%8,_for_p6,_for_p8:\
for_in %9,%10,%11,%12,_for_p10,_for_p12:\
for_in %13,%14,%15,%16,_for_p14,_for_p16:\
for_in %17,%18,%19,%20,_for_p18,_for_p20
#define next2c next:next
#define next3c next:next:next
#define next4c next:next:next:next
#define next5c next:next:next:next:next
/*以下 TESTCODE
for2c i,"",3,"",ii,"",5,""
logmes str(i)+" "+str(ii)
next2c
for3c i,"",2,"",ii,"",3,"",iii,"",4,""
logmes str(i)+" "+str(ii)+" "+str(iii)
next3c
for4c i,"",2,"",ii,"",3,"",iii,"",4,"",iiii,"",2,""
logmes str(i)+" "+str(ii)+" "+str(iii)+" "+str(iiii)
next4c
for5c i,"",2,"",ii,"",3,"",iii,"",4,"",iiii,"",2,"",iiiii,"",3,""
logmes str(i)+" "+str(ii)+" "+str(iii)+" "+str(iiii)+" "+str(iiiii)
next5c
// 多重loopなのでgotoで脱出してください
for3c i,"",2,"",ii,"",3,"",iii,"",4,""
logmes str(i)+" "+str(ii)+" "+str(iii)
if i==1&&ii==2&&iii==1:goto *loop_end
next3c
*loop_end*/ |