hspkeyword2.hsp

sample\misc\hspkeyword2.hsp » Plain Format

#include "hspcmp.as"

;hspcmp.dllを呼び出して、HSP3ソース解析リストを取得します
;
	sdim mesbuf,$10000

	fname="mkfont.hsp" ; スクリプトファイル名
	objname="obj" ; オブジェクトファイル名

	size=0

	hsc_ini fname
	hsc_objname objname
	hsc3_analysis "",ANALYSIS_MODE_ALL+ANALYSIS_MODE_REFERENCE
	hsc_comp 16 ; キーワード解析リスト作成
	res=stat:if res<0 : dialog "ERROR" : goto *goerror

	hsc3_kwlsize size
	if size<=0 : goto *goerror
	sdim mesbuf,size
	hsc3_kwlbuf mesbuf
	hsc3_kwlclose
	objmode 1
	mesbox mesbuf,636,446,5
	stop

*goerror
	title "Error"
	hsc3_messize size
	sdim mesbuf,size
	hsc_getmes mesbuf
	objmode 1
	mesbox mesbuf,636,446,5
	stop