global local @命令関数の自作 スコープ

//sample1モジュール//////////////////////////////////////////
#module sample1

#const _TEISU	(3)	//sample1だけの_TEISUを定義
#const global TEISU	(5)	//どこからでも見れるTEISUを定義

#global

//sample2モジュール//////////////////////////////////////////
#module sample2

#const _TEISU	(4)	//sample2だけの_TEISUを定義
;#const global TEISU	(5)	//【エラー】(※1)

#global

//外部モジュール//////////////////////////////////////////////
mes _TEISU	//・・・0(モジュール内の定義は参照できない)
mes TEISU	//・・・5(グローバルにするとはどこからでも参照できる)

//sample1モジュール//////////////////////////////////////////
#module sample1
#deffunc Init1
	dim a	//a@sample1(※1)
return 

#deffunc Test1 int b, local c	//(※2)
	dim a	//a@sample1(※1)
return
#global

//sample2モジュール//////////////////////////////////////////
#module sample2
#deffunc Init2
	dim a	//a@sample2(※1)
return

#deffunc Test2 b, local c	//(※2)
	dim a	//a@sample2(※1)
return
#global

//無名のモジュール//////////////////////////////////////////////
dim a	//a@(※3)

//sample1モジュール//////////////////////////////////////////
#module sample1
dim a	//a@sample1

//sample1の変数aを返す関数
#defcfunc GetA
return a

//sample1の変数aに代入する命令
#deffunc SetA int val
	a = val
return
#global

//無名のモジュール//////////////////////////////////////////////
dim a	//a@

//以下の書き方はこのモジュールの変数aしか操作できない
a = 123	//a@に234を代入
mes a	//・・・321(a@の内容を表示)

//sample1の変数aを無名のモジュールで操作したいとき
SetA 234	//sample1の変数aに234を代入する
mes GetA()	//・・・234(a@sample1の内容を表示)

//sample1モジュール//////////////////////////////////////////
#module sample1

#defcfunc GetTest1
return GetTestSub()	//sample1のGetTestSub関数を呼び出す

#defcfunc local GetTestSub	//sample1に属するのGetTestSub関数
return 3

#global

//sample2モジュール//////////////////////////////////////////
#module sample2

#defcfunc GetTest2
return GetTestSub()	//sample2のGetTestSub関数を呼び出す

#defcfunc local GetTestSub	//sample2に属するのGetTestSub関数
return 5

#global

//外部モジュール//////////////////////////////////////////////
mes GetTest1()	//・・・3
mes GetTest2()	//・・・5