@flat_taさんが投稿したコード一覧

  • タグ:
  • タグはありません

配列の自動拡張

常識なのかもしれませんが、自分は先ほど初めて知りました
常識なのかもしれませんが、自分は先ほど初めて知りました
// 配列の自動拡張のテスト

#module
#deffunc func var p
	return
コードを見る
  • タグ:
  • タグはありません

HSPで例外(マクロ)

マクロで実装。 その特性上、関数やサブルーチン内から外に向けたthrowは行えません。(内部で例外ブロックを使用することは可能。) また、finallyの実装が完全ではありません。 finallyの実...
マクロで実装。 その特性上、関数やサブルーチン内から外に向けたthrowは行えません。(内部で例外ブロックを使用することは可能。) また、finallyの実装が完全ではありません。 finallyの実...
#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

コードを見る

キュー

様々なデータタイプを格納できるキューのモジュールです(メモリが許す限りデータを格納できます) そのままでは配列等は格納できませんが、DataContainerモジュールを変更すれば格納できます
様々なデータタイプを格納できるキューのモジュールです(メモリが許す限りデータを格納できます) そのままでは配列等は格納できませんが、DataContainerモジュールを変更すれば格納できます
// データを保存するだけのモジュール
// 各種データをモジュール変数として扱う用
#module DataContainer m_data, m_size, m_rsize
#modinit var p_data, int p_size, \
local index
コードを見る
  • タグ:
  • タグはありません

子孫ウィンドウを列挙する

正常に動作するかは確認していません。 また、再帰を使用しているので深さが512付近になると落ちます。 そこまで深くネストした親子関係はないと思いますが。
正常に動作するかは確認していません。 また、再帰を使用しているので深さが512付近になると落ちます。 そこまで深くネストした親子関係はないと思いますが。
#module ED
#uselib "User32.dll"
#cfunc ED_GetWindow "GetWindow" int, int

// EnumDescendants handle, result
コードを見る
  • タグ:
  • タグはありません
  • タグ:
  • タグはありません