小ワザ
repeat〜loop構文は定型的に変数を要求する場合が多いので、要求されそうな変数をマクロにしてみた。
repeat〜loop構文を拡張してみた一例 †
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
| #cmpopt ppout 1
#module im_refloop
#deffunc set_refloop int ii
refloop = ii
return
#defcfunc get_refloop
return refloop
#global
#define global refloop get_refloop()
#undef repeat
#undef break
#undef loop
#define global nowcnt nowcnt@im_refllop
#define global repeat(%1=-1,%2=0,%3=nowcnt) \
: %trepeattotal %i @im_refloop = %1 \
: breaknest@im_refloop = 0 \
: repeat@hsp %trepeattotal %p0 @im_refloop, %2 \
: %3 = cnt \
: %trepeatcnt %i @im_refloop = cnt
#define global break(%1=1) \
: set_refloop %1 \
: break@hsp
#define global loop(%1=0) \
: if breaknest@im_refloop > 0 { breaknest@im_refloop- : break refloop } \
: set_refloop %1 \
: loop@hsp \
: %trepeattotal %o0 \
: %trepeatcnt %o0
#define global cnt0 %trepeatcnt %p0 @im_refloop
#define global cnt1 %trepeatcnt %p1 @im_refloop
#define global cnt2 %trepeatcnt %p2 @im_refloop
#define global cnt3 %trepeatcnt %p3 @im_refloop
#define global plurbreak(%1=1,%2=1) \
: breaknest@im_refloop = %1-1 \
: break %2
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
| gsel 0
repeat 8, , x
repeat 6, , y
color x*30+15, y*40+15, 192
boxf x*40, y*20, x*40+39, y*20+19
pos x*40, y*20
color
mes "("+x+","+y+")"
loop
loop
redraw 1
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-
|
-
|
!
| repeat rnd(5)+5
if cnt>5 : break 1
loop 0
if refloop = 1 {
dialog "break命令で抜け出しました"
} else {
dialog "普通に抜け出しました"
}
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
-
|
|
!
| #module
#defcfunc area_checker array dimen, local k
repeat length(dimen)
repeat length2(dimen)
repeat length3(dimen)
repeat length4(dimen)
if dimen(cnt3,cnt2,cnt1,cnt0) = "ひゃっはー" {
k = cnt3, cnt2, cnt1, cnt0
break
}
loop
if refloop : break
loop
if refloop : break
loop
if refloop : break
loop
if refloop : return "ひゃっはーは("+k(0)+","+k(1)+","+k(2)+","+k(3)+")座標に存在します"
return "ひゃっはーは存在しません"
#global
#define l 10
sdim dimension, 12, l, l, l, l
dimension(rnd(l),rnd(l),rnd(l),rnd(l)) = "ひゃっはー"
mes area_checker(dimension)
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
-
|
|
!
| #module
#defcfunc area_checker2 array dimen, local k
repeat length4(dimen)
repeat length3(dimen)
repeat length2(dimen)
repeat length(dimen)
if dimen(cnt0, cnt1, cnt2, cnt3) = "ひゃっはー" {
k = cnt0, cnt1, cnt2, cnt
plurbreak 4
}
loop
loop
loop
loop
if refloop : return "ひゃっはーは("+k(0)+","+k(1)+","+k(2)+","+k(3)+")座標に存在します"
return "ひゃっはーは存在しません"
#global
#define ll 10
sdim dimension, 12, ll, ll, ll, ll
dimension(rnd(ll),rnd(ll),rnd(ll),rnd(ll)) = "ひゃっはー"
mes area_checker2(dimension)
|
repeat p1,p2,p3
p1=1〜(-1) : ループ回数
p2=0〜(0) : システム変数cntのスタート値
p3=(nowcnt) : cntに対応させる変数
repeat命令には新たに第３引数を定義しました。第３引数に当てられた変数は、そのrepeat〜loop構文中のcntと同じ値を返します。
これによって、二重にrepeat命令を使い、各repeat〜loop構文中のcntを参照したい際に、代入用の変数を定義する手間が省けます。
第３引数を省略した場合、nowcntがcntと同じ値を返します。
この第３引数は、あくまでrepeat命令直後のcnt用変数定義を省略する為の物です。厳密にcntと第３引数が同期しているわけではないので、第３引数に値を代入したりすれば、cntと値がずれてしまいます。
break p1
p1=(1) : break時にrefloopに渡す返り値
breakには新規に引数を定義しました。この第１引数に書かれた値を、ループから抜ける際に、新規定義マクロrefloopへと渡します。
break命令で抜ける事無く、規定の回数分の処理を終えてrepeat〜loop構文から抜けた場合、基本的に0が返ります。(loopの第１引数によりますが)ですので、refloopの値によって、break命令を通ったか通っていないかを判別できます。
その他には第１引数にcntを与える事により、抜け出す原因となったcnt値を返す事ができます。これは、配列変数全体からある条件を満たす配列番号を呼び出す際に利用できます。
loop p1
p1=(0) : 普通にループを終えた時にrefloopに渡す返り値
break命令の新規第１引数と同じく、refloopに第１引数を渡します。loop命令では、break命令を使用する事無くループを終了した際にその引数を返します。
デフォルト値は0です。
refloop
break命令やloop命令で返される値の保管先です。
refloopには整数値しか与えられません。また、システム変数に近いマクロなのでbreak命令やloop命令以外で直に値を代入する事はできません。
nowcnt
repeat命令で第３引数を定義しない際に勝手にcntの値のコピー先となる変数です。利用価値はありません。
plurbreak p1,p2
p1=1〜(1) : 抜け出すループネストの数
p2=(1) : plurbreak時にrefloopに渡す返り値
break命令の拡張版です。第１引数の値分ループネストを抜け出します。
第１引数のデフォルト値は1ですので、省略した場合break命令と同じ挙動になります。
第２引数はbreak命令の第１引数と同じくrefloopに渡す値を定義します。
cnt0、cnt1、cnt2、cnt3
cnt0はcntと同値です。
cnt1は現状より１つ浅いループのcnt値を返します。cnt2なら２つ浅いcnt値、cnt3なら３つ浅いcnt値を返します。
このマクロを利用する事で浅いループのcnt値をわざわざ別変数に保管せずとも取得する事ができるようになります。
