--- runMode : "0" ... 文法チェックする HTML バージョン (DOCTYPE) を選択するダイアログを常に表示する。
--- runMode : "1" ... HTML 中に DOCTYPE 宣言がある時はそのままチェック。無い時は選択ダイアログで選ぶ。
--- runMode : "2" ... 選択ダイアログは常に出さない（ HTML-lint のデフォルト動作におまかせ）
set runMode to "1" --- 無指定時のデフォルト

---文法チェックを行うAnoher HTML-lint CGIのURL (さいごに?をつけるのお忘れなく)
---本家のCGI を使用する場合は http://openlab.ring.gr.jp/k16/htmllint/htmllint.cgi? に。
set htmllintURL to "http://najo.cc.sakura.ne.jp/~alimika/htmllint/htmllint.cgi?"

set viewSouceArg to "&ViewSource=on"
set htmlVerArg to ""

---  Finderコメント欄の文字を拾ってモードをセットする
---  アプレットとして保存してなければ無意味です。スクリプト編集プログラム自体のFinderコメントを見てしまふ。
---  いちおうOSXでも機能します。
tell application "Finder"
	set mySelf to path to me
	set runModeTmp to comment of file mySelf
	if (runModeTmp is "0") or (runModeTmp is "1") or (runModeTmp is "2") then set runMode to runModeTmp
end tell

tell application "Internet Explorer"
	set infoList to GetWindowInfo -1
	set pageURLArg to "URL=" & text item 1 of infoList
	set theSource to GetSource -1
	
	if runMode is not "2" then
		if theSource contains "<!DOCTYPE " then
			if runMode is "0" then
				set theAnswer to my pageDoctypeApply("このHTMLはDOCTYPE 宣言が記述されてます：")
				if theAnswer is false then my selectHTMLVer("以下のHTMLであるとみなしてチェックします：")
			end if
		else
			my selectHTMLVer("このHTMLにはDOCTYPE宣言がありません。" & return & ﾂ
				"以下のHTMLであるとみなしてチェックします：")
		end if
	end if
	
	Activate
	set theURL to htmllintURL & pageURLArg & viewSouceArg & htmlVerArg
	---display dialog theURL --- debug 用
	OpenURL theURL
end tell

on pageDoctypeApply(msg)
	set chooseList to {"そのままれっつごー", "他の DOCTYPE を選ぶ"}
	
	set selList to choose from list chooseList with prompt msg default items (text item 1 of chooseList)
	set sel to selList as string
	
	if sel is "FALSE" then error number -128
	if sel is (text item 1 of chooseList) then
		return true
	else
		return false
	end if
end pageDoctypeApply

on selectHTMLVer(msg)
	set htmlVerList to {"そのままれっつごー", "HTML 3.2", "HTML 4.01 Strict", "HTML 4.01 Transitional", ﾂ
		"HTML 4.01 Frameset", "XHTML 1.0 Strict", "XHTML 1.0 Transitional", "XHTML 1.0 Frameset", ﾂ
		"XHTML 1.1", "XHTML Basic", "ISO/IEC 15445", "ISO/IEC 15445 Preparation"}
	set htmlVerValue to {"", "HTML32", "HTML401-Strict", "HTML401-Transitional", ﾂ
		"HTML401-Frameset", "XHTML1-Strict", "XHTML1-Transitional", "XHTML1-Frameset", ﾂ
		"XHTML11", "XHTML-Basic", "15445", "15445-Preparation"}
	
	set selList to choose from list htmlVerList with prompt msg default items (text item 1 of htmlVerList)
	set sel to selList as string
	
	repeat with i from 1 to (number of htmlVerList)
		if sel is (text item i of htmlVerList) then
			if (text item i of htmlVerValue) is not "" then
				set htmlVerArg to "&IgnoreDOCTYPE=on&HTMLVersion=" & (text item i of htmlVerValue)
			end if
			return htmlVerArg
		end if
	end repeat
	error number -128
end selectHTMLVer