HSPTV!掲示板

HSPのソースをオートフォーマットするプログラムを作ってみました。
以下のような機能があり、一般的と言われているフォーマットに修正できます。

・無駄な空白と空行の削除
・１行に複数のステートメントがある場合に改行を挿入する
・モジュール、複数行のdefine、ラベル、関数、制御ステートメントの本文にインデントを挿入する
・モジュール、ラベル、関数の終わりに空行を挿入する
・区切り文字や演算子の前後のスペースを調整する
・define, const, enumの後のスペースを合わせる
・elseifはelse:ifとして処理する

バグ報告などしてもらえると嬉しいです。

ダウンロードはこちらの"Click here to start download"から
http://www.mediafire.com/file/ddmjajzvnlu/HSPAutoFormatter.lzh

ーー以降サンプルーー

○入力ファイル

#define global elseif else:if
#define multiLineDefine \
mes "line 1" \
mes "line 2"
//module
#module "moduleA"
#define defineB 1
#const constA 1
#enum enumA = 0
#enum enumB
//deffunc
#defcfunc functionA int _val
if(_val=0):return:else:if(_val=1):return "a":elseif (_val=2):return "b":else:mes "c"
return "d"
//deffunc
#deffunc functionB int _val
switch _val:case 0:mes "0":swbreak:case 1:mes "1":swbreak:default:mes "2":swbreak:swend:return
#global
//label
*label1:a = 1*2*((3+4)/-5):mes functionA(a):goto *label2:stop
//label
*label2:functionB 1:stop

○出力ファイル

#define global elseif else : if
#define multiLineDefine \
	mes "line 1" \
	mes "line 2"
//module
#module "moduleA"
	#define defineB 1
	#const  constA 1
	#enum   enumA = 0
	#enum   enumB
	//deffunc
	#defcfunc functionA int _val
		if (_val = 0) {
			return
		} else : if (_val = 1) {
			return "a"
		} elseif (_val = 2) {
			return "b"
		} else {
			mes "c"
		}
		return "d"

	//deffunc
	#deffunc functionB int _val
		switch _val
		case 0
			mes "0"
			swbreak
		case 1
			mes "1"
			swbreak
		default
			mes "2"
			swbreak
		swend
		return

#global

//label
*label1
	a = 1 * 2 * ((3 + 4) / -5)
	mes functionA(a)
	goto *label2
	stop

//label
*label2
	functionB 1
	stop

ファイルアイコンへD&Dしても「0件のファイルのフォーマットが完了しました」としか出てきません。
何故でしょう?使い方が間違っているんですか?

あ、一応実行環境の情報を追加

Windows 7(32bit)で[サンプル.hsp]を[Sample.hsp]にリネームして
アイコンへD&Dしたところ「0件のファイルのフォーマットが完了しました
とダイアログが表示されました。

ドラッグ＆ドロップされたファイル名の取得に失敗してそうですね。
試しに以下のスクリプトから実行ファイルを作って、適当なファイルをD&Dしてもらえませんか？
現れるダイアログボックスで"ファイルパス"といった形にダブルクォーテーションがあるか確認して下さい。

dialog dirinfo(4)

ちゃんとフルパスで出ました。

あ、さっきはパス名に2バイト文字と空白を含んでいたので、
パス名に空白と2バイト文字を含んでないところでやりましたが
上手くいかなかったです。

パス名に空白がある場合はダブルクォーテーションはあったのでしょうか？
プログラムを確認したところダブルクォーテーションで囲まれている場合のみ正常に処理できるようになってました。
つまりパス名に空白がある場合は処理され、パス名に空白がない場合は無視されるはずです。

この辺りは修正するつもりです。

パス名に空白の有無にかかわらずあなたのプログラムの動作は上手くいってません。
ちょっと、説明が誤解されてしまったような気がするので補足しておきます。

ちょっとわかりにくい文章ですいませんでした。

なるほど、ではWindows 7では動かないということですね。
報告ありがとうございました。

> Windows 7では動かないということですね。
そういうことです。
dialog dirinfo(4)はきちんと動くんですけどね。

今頃になって申し訳ありませんが

パスの両端のダブルクォーテーションを取り除く件について
PathUnquoteSpaces関数を使ってダブルクォーテーションを
削除してみたらどうでしょうか？
以下にサンプルを置いておきますので
EXE化して確認してみてください

#uselib "SHLWAPI.DLL"
#func PathUnquoteSpaces "PathUnquoteSpacesA" var
sdim path
path = dirinfo(4)
print "コマンドラインで来たパス："+path
PathUnquoteSpaces path
print "ダブルクォーテーションを削除したパス："+path

尚、ダブルクォーテーションが付いてない場合で
PathUnquoteSpaces関数
を実行しても支障はありませんので、
パスを変数に代入したらPathUnquoteSpaces関数を呼び出せばいいと思います。

使おうとしたら、セキュリティソフトに削除されてしまいました。
大丈夫なのでしょうか？