HSPTV!掲示板

すみません、御質問よろしくお願いいたします。

#module

	a(0) = 4
	a(1) = 5
	a(2) = 6
	a(3) = 7

	#defcfunc newfunc int p1

	return p1+b@+a(p1)
#global


*main
	b = 10
	dialog newfunc(2)
end

あまりこのようなプログラムはよろしくないかと思いますが、例えば上記のような
#module〜#global間において定義された配列型変数をdefcfuncの中で使うためにはどのように
記述すればよろしいでしょうか？
newfunc(2)が18として返ってくることを期待しております。

ご回答よろしくお願いいたします。

これでどうでしょうか

#module

	#deffunc newfunc_init
	dim a, 4
	a(0) = 4
	a(1) = 5
	a(2) = 6
	a(3) = 7
	return

	#defcfunc newfunc int p1, int p2

	return p1+p2+a(p1)
#global
newfunc_init

*main
	a = 2
	b = 10
	dialog newfunc(a, b)
end

Naya さま

ありがとうございます。
これで動くのは理解できるのですが、ここの配列変数が400近くあり、命令が読み出されるたびに、
毎回変数を代入したくないと思い、お聞きしました

Defunc内からmodule内の変数読み出しは難しいでしょうか。

>Area39さま

「これで動くのは理解できるのですが、ここの配列変数が400近くあり、命令が読み出されるたびに、
毎回変数を代入したくないと思い、お聞きしました」より指摘事項の整理です。

"ここの配列変数が400近くあり"という配列変数は、モジュール内で用意した配列変数aのことでしょうか？
"命令が読みだされるたび"という命令は、newfunc_initのことでしょうか。

nayaさまが記述されたスクリプトでは、最初に提示されたArea39さまのプログラムから
モジュール内にnewfunc_init命令が追加されており、newfunc関数と併せて2つあります。

以下、nayaさまのスクリプトの解説です。

/*モジュール--------------------------------------------------------*/
#module

	/*モジュール内で共有される変数(配列変数)を初期化(準備)する自作命令*/
	#deffunc newfunc_init
		//配列変数が400近くあるというのが、aという配列変数のことと仮定
		//400近くの配列変数というものがはここで代入します。
		dim a, 4
		a(0) = 4
		a(1) = 5
		a(2) = 6
		a(3) = 7
	return


	//モジュール内の自作関数newfunc(何らかな処理結果を返す)
	#defcfunc newfunc int p1, int p2
	return p1+p2+a(p1)

#global



/*メインプログラム--------------------------------------------------*/

newfunc_init	//モジュールの初期化
				//(最初に1回だけ配列変数aを初期化して代入まで処理する)


*main	//メイン
	a = 2	//newfuncの引数aで使う変数2を代入
	b = 10	//newfuncの引数bで使う変数に10を代入
	
	dialog newfunc(a, b)	//newfuncの結果をダイアログで表示
							//初期化したモジュール内配列変数aは既に代入されているので
							//再度モジュール内配列変数aに代入する処理(newfunc_init)はしていません。
end

説明不足でした。すみません。
Drakuji様サポートをありがとうございます。

スクリプトではnewfunc_initという初期化用の別命令を用意してそこでモジュール用の配列変数aを初期化しています。
そして、モジュール外から一度だけnewfunc_initを実行することでモジュール内で有効な配列変数の確保と値の代入を行います。

こうすることでモジュール内の他の命令、関数から配列変数aの値を参照する事が可能になります。
HSPのモジュールではこの様に初期化命令を別に用意して、プログラムの最初に一度だけ命令を実行するのが方法となりますね。

ではでは(^^)

Drakujiさま、nayaさま

ありがとうございます、早とちりしておりました。
別命令として作っておいて一度だけ実行すればいいわけですね。
希望動作が理解出来ました、ありがとうございました。

Area39様
お役に立てて良かったです！