（X)HTMLコンバータ （1） 簡単なコンバータ

短期集中連載第１弾（？）、HSPスクリプトをXHTMLへコンバートするスクリプト。
HSP開発WikiのTABからスペース変換を参考にさせていただきました。kz3さんに感謝！

今回は動作イメージをつくるためのβ版です。命令や関数の色づけ、HSPスクリプトエディタ用外部ツール化などを目指します。
特にポイントと言える部分はありませんが、2バイト文字を判定するためにIsDBCSLeadByteEx()を利用していたり変わった方法で文字列を挿入していたり珍しいmemexpandを使っていたりとやや異色です。
// HSP to (X)HTML converter 2007.07.18
#uselib "kernel32.dll"
    #cfunc global IsDBCSLeadByteEx "IsDBCSLeadByteEx" sptr, sptr

#const CP_ACP           0
#const TAB_SIZE         4
#const EXPAND_SIZE      1024

*start
    dialog "hsp;*.as;*.hss;*.hsh", 16
    fileName = refstr
    on stat goto *notSelected, *openFile

// ファイルが選択されなかった → 終了
*notSelected
    end

// ファイルが選択された → ファイルを開く
*openFile
    notesel text
    noteload fileName

    gosub *replaceText

// 前後にタグを挿入（改善の余地あり？）
*addTags
    l = strlen( text )
    s = ""
    memExpand text, l + 26
    poke text, l, ""
    poke text, strlen(s), text
    repeat strlen(s)
        poke text, cnt, peek( s, cnt )
    loop

*showResult
    mesbox text, ginfo_winx, ginfo_winy
    title "変換が終了しました。"
    stop

// テキストの置換
*replaceText
    rTextSize = strlen(text)
    sdim rText, rTextSize       // ReplacedText
    i = 0 : x = 0

    repeat
        c = peek( text, cnt )

        if ( rTextSize <= i + 6 * TAB_SIZE ) {
            rTextSize += EXPAND_SIZE
            memExpand rText, rTextSize
        }

        switch c
        case 0
            break
            swbreak
        case 13
            if ( peek( text, cnt + 1 ) == 10 ) {
                // 改行
                wpoke rText, i, 2573 : x = 0 : i += 2 // 2573 = ( 10 << 8 ) | 13
                continue cnt + 2
            }
            swbreak
        case '\t'
            repeat TAB_SIZE - ( x \ TAB_SIZE )
                poke rText, i, " " : i += 6 : x++
            loop
            swbreak
        case ' '
            poke rText, i, " " : i += 6 : x++
            swbreak
        case '&'
            poke rText, i, "&"  : i += 5 : x++
            swbreak
        case '<'
            poke rText, i, "<"   : i += 4 : x++
            swbreak
        case '>'
            poke rText, i, ">"   : i += 4 : x++
            swbreak
        default
            if IsDBCSLeadByteEx( CP_ACP, c ) {
                // 2バイト文字の場合
                wpoke rText, i, wpeek( text, cnt ) : i += 2 : x += 2
                continue cnt + 2
            } else {
                poke rText, i, c : i++ : x++
            }
        swend
; await 1
    loop

    text = rText
    sdim rText, 4
    return