//----------------------------------------------------------------------------------------- // 可変長引数(笑) | // 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
#module ED #uselib "User32.dll" #cfunc ED_GetWindow "GetWindow" int, int // EnumDescendants handle, result
#cmpopt varinit 1 dialog "ax", 16, "HSP Object File" if stat == 0 : end filename = refstr