HSPのコード一覧 | ページ 7 | Codetter（こーどったー）

#packopt name "expt"

*mkwnds
	#define wsizex 800
	#define wsizey 600

//-----------------------------------------------------------------------------------------
// 可変長引数（笑）                                                                       |
//                                                                       2015/07/04  Flat |
//-----------------------------------------------------------------------------------------

// モジュール配列の自動拡張のテスト

#module
#deffunc func var p
	return

// 配列の自動拡張のテスト

#module
#deffunc func var p
	return

#define global try %tException %i=0:%i=0:if'%i'
#define global finally %tException if 1
#define global ctype catch(%1) %tException *%o:%1=%o:if %o
#define global throw(%1) %tException %p1=%1:%p2=1:goto*%p0

// データを保存するだけのモジュール
// 各種データをモジュール変数として扱う用
#module DataContainer m_data, m_size, m_rsize
#modinit var p_data, int p_size, \
local index

#module
#defcfunc findUnusedModuleIndex array modules, \
local index
	index = 0
	foreach modules

	screen 1, 256, 256
	title "base color : bottom layer"
	repeat 256
		y = cnt

#module ED
#uselib "User32.dll"
#cfunc ED_GetWindow "GetWindow" int, int

// EnumDescendants handle, result

// 例1
// '}'が内側のifに対応すると判断される。
// '}' の前に改行があると問題なし
if 1 { if 1 : mes "a" : else : mes "b" } mes "c"