ページ 13 | Codetter（こーどったー）

#module
// 指定オフセットから右から検索していき見つけた位置を返す。(1byteのみ)
#defcfunc searchR1 str _in, int ps, int sh
	idx = -1
	in = _in

// http://sprocket.babyblue.jp/html/hsp_koneta3.htm
#module
#defcfunc todouble int p1
	temp = 0.0
	lpoke temp, 4, (p1 & 0x80000000) | (((p1 & 0x7fffffff) >> 3) + ((p1 & 0x7fffffff) ! 0) * 0x38000000)

#packopt name "expt"

*mkwnds
	#define wsizex 800
	#define wsizey 600

function sdl_sample()
{
	local s = sdl_window_create("SDL from Squirrel")
	local rect = {x = 80, y = 40, w = 640, h = 480}
	sdl_window_rect_set(s, rect)

#include <assert.h>
#include <stdlib.h>
#define SDL_MAIN_HANDLED
#include <SDL.h>
#include <squirrel.h>

//-----------------------------------------------------------------------------------------
// 可変長引数（笑）                                                                       |
//                                                                       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