ラベル格納用変数の管理モジュール：ver02

今まで書きためていたものを読んで思いました
命令の名前が安易で競合の可能性がある！

適当にsetとかつけるもんだから
これ絶対、後でsetとかいう名前の命令を作るだろう。とか思いました

やったことは命令の後ろに_at_モジュール名　をつけただけ
でもこれだけで、かなり命令の名前の競合が減るんですよね
ちなみにglobalキーワードをつけていないマクロは
@モジュール名をつける必要があるんで変更していません

FILE名：FILE_set_get_label_0_2.hsp

#module set_get_label *null stop #define ctype def_l(%1,%2):\ l_%1_%2_0=*null:l_%1_%2_1=*null:l_%1_%2_2=*null:l_%1_%2_3=*null:\ l_%1_%2_4=*null:l_%1_%2_5=*null:l_%1_%2_6=*null:l_%1_%2_7=*null:\ l_%1_%2_8=*null:l_%1_%2_9=*null #define ctype def_l_b(%1):\ def_l(%1,0):def_l(%1,1):def_l(%1,2):def_l(%1,3):def_l(%1,4):\ def_l(%1,5):def_l(%1,6):def_l(%1,7):def_l(%1,8):def_l(%1,9) #deffunc init_at_set_get_label tmp_l=*null tmp_r=*null def_l_b(0):def_l_b(1):def_l_b(2):def_l_b(3):def_l_b(4) def_l_b(5):def_l_b(6):def_l_b(7):def_l_b(8):def_l_b(9) return #define ctype set_c(%1,%2):\ if c==0{l_%1_%2_0=tmp_l}:\ if c==1{l_%1_%2_1=tmp_l}:\ if c==2{l_%1_%2_2=tmp_l}:\ if c==3{l_%1_%2_3=tmp_l}:\ if c==4{l_%1_%2_4=tmp_l}:\ if c==5{l_%1_%2_5=tmp_l}:\ if c==6{l_%1_%2_6=tmp_l}:\ if c==7{l_%1_%2_7=tmp_l}:\ if c==8{l_%1_%2_8=tmp_l}:\ if c==9{l_%1_%2_9=tmp_l} #define ctype set_b(%1):\ if b==0{set_c(%1,0)}:\ if b==1{set_c(%1,1)}:\ if b==2{set_c(%1,2)}:\ if b==3{set_c(%1,3)}:\ if b==4{set_c(%1,4)}:\ if b==5{set_c(%1,5)}:\ if b==6{set_c(%1,6)}:\ if b==7{set_c(%1,7)}:\ if b==8{set_c(%1,8)}:\ if b==9{set_c(%1,9)} #define ctype set_a_1:\ if a==0{set_b(0)}:\ if a==1{set_b(1)}:\ if a==2{set_b(2)}:\ if a==3{set_b(3)}:\ if a==4{set_b(4)} #define ctype set_a_2:\ if a==5{set_b(5)}:\ if a==6{set_b(6)}:\ if a==7{set_b(7)}:\ if a==8{set_b(8)}:\ if a==9{set_b(9)} #deffunc set_label_at_set_get_label int index if index<0: dialog "error ネストが浅すぎます",1:stop if index>999: dialog "error ネストが深すぎます",1:stop a=index/100 b=(index\100)/10 c=index\10 set_a_1() set_a_2() return #define ctype get_c(%1,%2):\ if c==0{tmp_r=l_%1_%2_0}:\ if c==1{tmp_r=l_%1_%2_1}:\ if c==2{tmp_r=l_%1_%2_2}:\ if c==3{tmp_r=l_%1_%2_3}:\ if c==4{tmp_r=l_%1_%2_4}:\ if c==5{tmp_r=l_%1_%2_5}:\ if c==6{tmp_r=l_%1_%2_6}:\ if c==7{tmp_r=l_%1_%2_7}:\ if c==8{tmp_r=l_%1_%2_8}:\ if c==9{tmp_r=l_%1_%2_9} #define ctype get_b(%1):\ if b==0{get_c(%1,0)}:\ if b==1{get_c(%1,1)}:\ if b==2{get_c(%1,2)}:\ if b==3{get_c(%1,3)}:\ if b==4{get_c(%1,4)}:\ if b==5{get_c(%1,5)}:\ if b==6{get_c(%1,6)}:\ if b==7{get_c(%1,7)}:\ if b==8{get_c(%1,8)}:\ if b==9{get_c(%1,9)} #define ctype get_a_1:\ if a==0{get_b(0)}:\ if a==1{get_b(1)}:\ if a==2{get_b(2)}:\ if a==3{get_b(3)}:\ if a==4{get_b(4)} #define ctype get_a_2:\ if a==5{get_b(5)}:\ if a==6{get_b(6)}:\ if a==7{get_b(7)}:\ if a==8{get_b(8)}:\ if a==9{get_b(9)} #deffunc get_label_at_set_get_label int index if index<0: dialog "error ネストが浅すぎます",1:stop if index>999: dialog "error ネストが深すぎます",1:stop a=index/100 b=(index\100)/10 c=index\10 get_a_1() get_a_2() return #global

gotoを使用したサブルーチン：ver04

軽量版のスクリプトを不要な部分を削ってみると
大分すっきりしたのでもう一方の方も
不要な部分を削ります

注：スクリプトは書き換えたので削除

軽量版、gotoを使用したサブルーチン：ver03

下書きを整理していて思いました
数値の配列とアクセスいらんやん

ラベルが順に上から下に蓄積され
下から上に破棄される仕組みが
予想はしつつも、上手くのみこめなくて
数値の配列とアクセスを使用していました

例外は起きるかな？と思っていましたが
起こらなそうなので
数値の配列とアクセスを取り除いてみました

注：スクリプトは書き換えたので削除

gotoを使用したサブルーチン：下書き

スクリプトを単にダダダーッと並べても
動作がよくわからないかもしれないので
下書きをテキスト形式で表現してみます

01:call(s_a)
02:*l_a
03:stop
04:
05:*s_a
06:mes "a"
07:call(s_b)
08:*l_b
09:call(s_c)
10:*l_c
11:back
12:
13:*s_b
14:mes "b"
15:back
16:
17:*s_c
18:mes "c"
19:back

1.
01:call(s_a)
02:*l_a
;*s_aにジャンプし
;*l_aをスタックに積む
;call命令の後ろにラベル

-stackの内容
0
*l_a
prev:-1

現在地 0

2.
05:*s_a
06:mes "a"
07:call(s_b)
08:*l_b
;*s_bにジャンプし
;*l_bをスタックに積む
;call命令の後ろにラベル

-stackの内容
0
*l_a
prev-1

1
*l_b
prev0
現在地 1

3.
13:*s_b
14:mes "b"
15:back
;*l_bをスタックから取り出す
;スタックを上の位置に移動（ここでは0）
;現在地の値をprevの値に書き換える
;取り出した*l_bへジャンプ

-stackの内容
0
*l_a
prev-1
現在地 0

4.
09:call(s_c)
10:*l_c
;*s_cにジャンプし
;*l_cをスタックに積む
;call命令の後ろにラベル

-stackの内容
0
*l_a
prev-1

1
*l_c
prev0
現在地 1

5.
17:*s_c
18:mes "c"
19:back
;*l_cをスタックから取り出す
;スタックを上の位置に移動（ここでは0）
;現在地の値をprevの値に書き換える
;取り出した*l_cへジャンプ

-stackの内容
0
*l_a
prev-1
現在地 0

6.
11:back
;*l_aをスタックから取り出す
;スタックを上の位置に移動（ここでは-1）
;現在地の値をprevの値に書き換える
;取り出した*l_aへジャンプ

-stackの内容
現在地 -1

軽量版、gotoを使用したサブルーチン：ユニークラベル使用

９９９回ネストできるversionにユニークラベルを使う変更をほどこしたので
ネストは９９回versionにも、同様の変更を行います

注：スクリプトは書き換えたので削除

gotoを使用したサブルーチン：ユニークラベル使用

call命令の引数をユニークラベルを使用して減らすことは
現在の課題でしたが
マクロのタグは一時期、色々試行錯誤して遊んでいたので
実際に使ってみると、すんなり使えました
というわけで
gotoを使用したサブルーチン：ユニークラベル使用　の
スクリプトです

注：スクリプトは書き換えたので削除

gotoを使用したサブルーチン軽量版：ネストは９９回まで

ラベルを９９個、定義、入力、値の取得ができるモジュールを
書いたので、gotoを使用したサブルーチンを
軽量版ラベル格納用変数の管理モジュール を使用したversionに変更してみる

注：スクリプトは書き換えたので削除

軽量版、ラベル格納用変数の管理モジュール

ラベルを格納する変数を９９９個用意した状態で
デバッグウィンドゥを見てみましょう
ハイ。似たような変数でデバッグウィンドゥがいっぱいですね
デバッグウィンドゥのみやすさ。という観点から
スクリプトを見ると変数を９９９個用意するのは
よくないかもしれません

という訳で
そんなに頻繁にたくさんネストする訳でもないので
ネストが９９回まで。ということで
軽量版ラベル格納用変数の管理モジュール を作成してみました

注：スクリプトは書き換えたので削除

gotoを使用したサブルーチン：ネストが９９９回まで可能

さっきラベルを９９９個、定義、入力、値の取得ができるモジュールを
書いたので、さっそくgotoを使用したサブルーチンを
ネストが９９９回できるように変更してみる

注：スクリプトは書き換えたので削除

大量のラベル格納用変数の管理モジュール

下記のスクリプトはネストが１０までしかできません
ネスト１０回じゃ、やっぱ少ないっすよね
labelを配列に格納できたら
ネストの回数を増やすことも簡単なのでしょうが
できないもんは仕方ありません

というわけで
ネストの回数を増やすべく
macroを駆使して、９９９個の、ラベルを確保するための変数を用意しました
これでネストが９９９回まで対応できます

注：スクリプトは書き換えたので削除