PC全般

[WWS2008][MysticSL]CGI練習その2

鶏唐揚 — Sat, 30 May 2009 03:01:00 GMT

本日は重力語翻訳を作りますｗ

重力語にも様々な方言があるのですが、
今回はカタカナの相違が激しいヂッハベ弁とします


'#!MSL.exe -h -e
#include [CGI.msm]
'/////標準入力定数/////
'///POST_DATA:POSTされたデータ(NullC区切り)
'///QUERY_STRING:アドレス付属データ(NullC区切り)
'///HTTP_COOKIE:クッキー
'/////標準出力はPrint命令を使用します。/////

    MysticCGI [False]
    GetData []
    
    '/////ここから開始/////
#method [gLangEnc, 2, *~gLangEnc]

String [postDat, retGLang]

    Print ["<html>\n"]
    Print ["<head><title></title></head>\n"]
    Print ["<body>\n"]
    
    SplitEx [postDat, POST_DATA, MSL.NullC]
    Replace [postDat, "text=", "", postDat]
    QueryDecode [postDat, postDat]
    
    Print ["<big><strong>"]
    Print ["重力語(ヂッハベ弁) 翻訳"]
    Print ["</strong></big><br />\n<br />\n"]
    
    //フォーム部
    Print ["<div>\n"]
    Print ["日本語を入力してください。\n"]
    Print ["<form method=\qPOST\q action=\qglang.mgi\q>\n"]
    Print ["<textarea name=\qtext\q rows=5 cols=32>\n"]
    Print [postDat]
    Print ["</textarea>\n"]
    Print ["<input type=\qsubmit\q value=\q翻訳\q>\n"]
    Print ["</form>\n"]
    Print ["</div>\n"]
    
    If [postDat <> ""]
        Print ["-----↓翻訳後↓-----<br /><br />\n"]
        
        //翻訳
        gLangEnc [postDat, retGLang]
        
        //改行をbrタグに変換
        Replace [retGLang, "\n", "<br />\n", retGLang]
        Print [retGLang + "\n"]
    End If
    
    Print ["</body>\n"]
    Print ["</html>"]
    
    Exit


//gLangEnc [日本語?, 重力語ヂッハベ弁]
*~gLangEnc
Integer [forI, binLen, strLen] As Local
Integer [binDat] As Local
String [srcStr, destStr] As Local

    //LenB命令はShift-JISでのサイズを返すので
    //文字コード変換前に取得
    LenB [strLen, Argument0]
    
    //Shift-JISに変換(末尾null必要)
    StrConv [srcStr, Argument0 + MSL.NullC, False]
    
    //確保
    BinaryAlloc [0, strLen + 1]
    
    //バイト配列に変換
    StringToBinary [0, srcStr]
    GetDataSize [0, binLen]
    
    //変換
    For [forI, 0, binLen, 1]
        BinaryGet [0, binDat, forI]
        If [binDat >= 0x41 && binDat <= 0x5A]
            BinaryPut [0, binDat + 0x20, forI]
        End If
    Next
    
    //文字列に戻す
    BinaryToString [0, destStr]
    StrConv [destStr, destStr, True]
    
    //句読点のみ正常に戻す
    Replace [destStr, "｜", "。", destStr]
    Replace [destStr, "∥", "、", destStr]
    
    //返却
    Argument1 = destStr
    
    MethodReturn

日本語入力してくれと言いますがひらがなは変化しません
あと長文は例によって応答遅めです。

重力語(ヂッハベ弁)簡易翻訳

[WWS2008][MysticSL]CGIに挑戦

鶏唐揚 — Sun, 17 May 2009 15:09:00 GMT

設定が悪かったのか相性が悪かったのかわかりませんが
IIS7.0 + MysticSLが動かなかったので急遽 AnHTTPD を導入…

MysticSLでCGI、といっても、
Print命令の出力先がブラウザになることと
POST、GETの受け取りができる・クエリデコード命令が使えるというだけで、
後はMysticSLそのもの。なのでCGIに特化したphpやperlに比べると
ひっじょーに面倒な記述となりますｗ


'#!MSL.exe -h -e
#include [CGI.msm]
'/////標準入力定数/////
'///POST_DATA:POSTされたデータ(NullC区切り)
'///QUERY_STRING:アドレス付属データ(NullC区切り)
'///HTTP_COOKIE:クッキー
'/////標準出力はPrint命令を使用します。/////
    MysticCGI [False]
    GetData []
    
    '/////ここから開始/////
    String [postDat]
    
    'HTMLタグ吐き出し開始
    Print ["<html>\n"]
    Print ["<head>\n<title>テストCGI</title>\n</head>\n"]
    Print ["<body>\n"]
    
    'POSTデータ整形
    SplitEx [postDat, POST_DATA, MSL.NullC]
    Replace [postDat, "input=", "", postDat]
    If [postDat == ""]
        '初期
        Print ["何か入力<br />\n"]
        Print ["<div>\n"]
        Print ["<form method=\qPOST\q action=\qtest.mgi\q>\n"]
        Print ["<input type=\qtext\q name=\qinput\q>\n"]
        Print ["<input type=\qsubmit\q value=\q送る\q>\n"]
        Print ["</form>\n"]
        Print ["</div>\n"]
    Else
        'POST
        QueryDecode [postDat, postDat]
        EscDecode [postDat, postDat]
        Print ["入力したデータは「" + postDat + "」\n"]
    End If
    
    Print ["</body>\n"]
    Print ["</html>"]

フォーム入力からMysticSLで書くとこんなにぐだぐだ…
あとやっぱり遅いです。

テストCGI

[雑] ATOKすげーと思った瞬間

鶏唐揚 — Fri, 03 Apr 2009 23:37:00 GMT

長年MS-IME2003以前しか使ったこと無かった私が
ATOK2009に乗り換えてまず体験したサプライズ。

ひなみざわ…

まぁ出ないだろうと予想してたのでESCで入力し直し
「ひな」変換

「みる」変換の後バックスペースで「る」削除

「さわ」変換…

！？

辞書登録の手間が省けた。

生存報告

鶏唐揚 — Wed, 01 Apr 2009 00:05:00 GMT

一応生きてますよと。
あと近況報告↓

1.ATOK2009導入
2.Kingsoft Office2010導入
3.CorelDRAW X4導入
4.ASIO対応オーディオカード導入
5.DAW導入
6.Ruby勉強中
7.ESS試用中
a.土日も仕事

('A`)

Google先生ご乱心？

鶏唐揚 — Sat, 31 Jan 2009 23:53:00 GMT

↓天下のヤフーも危険サイト扱いの図↓

あらゆるサイトが「コンピュータに損害を与える可能性」があるそうです。

そんなばかな。

#12:40　復活したぽい

[静的HP] トリカラール仮開設

鶏唐揚 — Fri, 12 Dec 2008 20:37:00 GMT

どうも。まだ仕事中です。これからも仕事中です。
土日も仕事中です。

勉強会への出席が一般参加ですら無理ぽになってきています
中代表並びに他の名古屋スタッフの皆様、ご迷惑をお掛けして申し訳ありません

せめてオンラインのほうだけでもと思い、12/07に静的HPを仮開設しました
こちらではPG以外の創作物もアゲていきたいと思っています

数年前の簡素なページみたくなってますが
いつかデザインします。

トリカラール（仮）
（右のリンクからもいけます）

[DAP] iriver Clix2購入

鶏唐揚 — Sun, 12 Oct 2008 17:47:00 GMT

いままでSAMSUGNのYP-Z5Fを使ってましたが、
SAMSUGNがDAP分野から撤退した（のか？オフィシャルに一切製品情報なくなってる）ことと
ファームウェアにまだけっこうバグが残ってたことから、
データ保持兼保険プレーヤーとして現役引退させ別のに買い換えました。

それがiriverのClix2。そんな新型ってわけでもない（1年くらい前）ですが、
8GB限定モデル再入荷＆値下げしてたので即決。
こいつ、Flash Lite2.1積んでて操作画面等のテーマもFlashで作られており、
TrueTypeのフォントも使えるようなのでカスタマイズがかなり自由にやれます

サポートコンテンツの特徴には、韓国DAPに多く見られるOGGの他に
FlashゲームやDivX(XviD)/WMVで30fpsまで可能な動画再生もサポートしているので
クリエイター魂に火をつける好機…って時間ねぇYO！

そんなこんなで（韓国/アメリカの）有志によるテーマ・ゲームを
ばりばりダウンロードしてはいろいろいじくってる休日でした
FlashLite2.1なファイル作るにはやっぱ製品いるよね…

[募集]

鶏唐揚 — Mon, 06 Oct 2008 01:09:00 GMT

SWFファイルがどのバージョン向けで作成されているか
確認するツール/方法/情報

O|￣|＿

鶏唐揚 — Fri, 08 Aug 2008 23:34:00 GMT

雷で窓が痺れてます。風も強いです。明日は雨かな？
でも明日は出かけなきゃいけない…MISAO避け直してないし…

どーでもいいですけど「終端」って打とうとしたのに「シュウたん」って出るのは
普通ですかそうですか。
グダグダです。月蝕グランギニョルいいね。
じっちゃんすまねぇ、おらもうだめだ

>土日の予定
とりあえずMISAO避けのバグ直しはしますがゲーム化は後回しにします。
別のもの作ってます。

[Vista] あれ…

鶏唐揚 — Thu, 31 Jul 2008 11:22:00 GMT

アイコンのキャプションとかメニューのキャプションのメイリオフォント、
いつのまにかアンチエイリアスがかかってない…

テーマをいったん他のにしてからAeroに戻すとアンチエイリアスかかるんですが
一部アプリは相変わらずジャギーってるし、Vista再起動するとまた戻る…

なんとなく拡大鏡使ってからこんななってる気がしますが
どうやったら戻せるんでしょうか。