企画「マイナー言語を使ってみよまいか」

今後

鶏唐揚 — Sat, 22 May 2010 11:07:00 GMT

お久しぶりです。最近仕事が市外へ出ているので全然更新できません…

さてマイナー言語の今後ですが、いろいろ候補を挙げていたものの
時間がなく全部やるのは厳しくなりました。

そこで、しぃ言語やIMWはやれることに限界があるのと、
MixJuiceはマイナーではなかった＆普通にJavaの拡張なので
マイナー言語として紹介するのも…というわけで
既に着手しているMysticSLだけに絞ってやっていこうかなと思っています。

今後おもしろそうなマイナー言語を発見したらやるかもしれませんが
基本デスクトップアプリ向けのものしかやりません
（ゲーム向け、Webアプリ向けはやらない）

[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

[MysticSL] 文字列を返すAPIの使い方

鶏唐揚 — Sat, 22 Nov 2008 15:05:00 GMT

どうも。じっちゃん入院です。土地問題は地域問題にまで発展して色々やばげです。
モチベーションあがらないので新しいことができませんが
既に着手しているMysticSLのネタをば。

WinAPIの中には、文字列へのポインタを返すものがありますが
VBタンはそいつを普通にString型で扱ってくれます
MysticSLはVBベースなので…と思いきや、#declareで宣言した関数の
戻り値はInteger型でしか受け取れません
そこで、C言語のようにメモリ操作をするサンプルをご紹介します


#declare [GetCommandLine, "kernel32", "GetCommandLineW"]
#declare [lstrlen, "kernel32", "lstrlenW", ByVal strAddr As Integer]
//↓実際は1行で書くこと
#declare [CopyMemory, "kernel32", "RtlMoveMemory", _
                                  ByVal Destination As Integer, _
                                  ByVal Source As Integer, _
                                  ByVal Length As Integer]

Integer [VarAddr, RetAddr, length]
String [CmdLineBuff]

    //コマンドライン取得
    GetCommandLine [RetAddr]
    
    //長さ取得
    lstrlen [RetAddr, length]
    
    //長さ確保してポインタ取得
    ZeroString [CmdLineBuff, length]
    GetPtr [VarAddr, CmdLineBuff]
    
    //めもりこぴー
    CopyMemory [VarAddr, RetAddr, length * 2]
    
    Print [CmdLineBuff]
    
    Stop

簡単なGetCommandLineを使ってみました
MysticSLの文字列はUnicodeなのでGetCommandLineW/lstrlenWで。

デバッグ実行だと、どんなコマンドライン引数でスクリプト実行されているかまるわかりｗ

こちらがビルドしたEXEでの実行

[しぃ言語] (*ﾟヮﾟ)< :"調べてみたよ！";

鶏唐揚 — Wed, 24 Sep 2008 11:35:00 GMT

しぃ言語公式サイト

リファレンス見たけど…制御文ないよ！ソート無理！

あるのは…

・変数の宣言（数値型・文字列型）
　代入は宣言時のみ可能
・コンソール出力
・ダイアログ出力
・終了処理

なんだかしぃ言語独自実装したくなってきた（時間ねぇって）

[MysticSL] フォールスルーを使った変な書き方

鶏唐揚 — Mon, 22 Sep 2008 13:12:00 GMT

だいぶ間が空いてしまいました。
今回は再びMysticSLの奇妙な仕様の紹介

MysticSLは基本仕様として、すべての処理を上から下へ貫通しますので、
適宜制御してやらないとメソッドとかで変なことになります。
しかし、あえて貫通させつつ正常な動作を生むことが出来ます

例として、テキストファイルを読み込むメソッドFOpenとFAutoOpenを作るとします
（オーバーロードがないので別メソッドとなります）

FOpenは第2引数に指定されたファイルから読み込んだ内容を第1引数に返す仕様
対するFAutoOpenは実行スクリプトと同パスのdefine.iniからファイル名を取得して
そのファイルから読み込んだ内容を第1引数に返す仕様とします。
どちらもファイルが存在しない場合はヌル文字を返却するようにします。


//通常の書き方

#method [FOpen, 2, *~FOpen]
#method [FAutoOpen, 1, *~FAutoOpen]

*~FAutoOpen
    String [FileName]
    
    //INIファイルオープン
    OpenINI [0, MSL.Path + "define.ini"]
        GetStrData [0, "TEST", "FileName", "", FileName]
    CloseINI [0]
    
    FOpen [Argument0, FileName]
    
    MethodReturn

*~FOpen
    Integer [ExistFlg]
    
    File [Argument1, ExistFlg]
    If [Argument1 != "" && ExistFlg == True]
        //あればオープン
        FileRead [Argument1, Argument0]
    Else
        //なければヌル文字返却
        Argument0 = MSL.NullC
    End If
    
    MethodReturn

おそらく多くの言語で（オーバーロードしない形式なら）こう書くと思います
これを、貫通させつつ同じ動作を実現してみます


//処理貫通

#method [FOpen, 2, *~FOpen]
#method [FAutoOpen, 1, *~FAutoOpen]

*~FAutoOpen
    String [FileName]
    
    OpenINI [0, MSL.Path + "define.ini"]
        GetStrData [0, "TEST", "FileName", "", FileName]
    CloseINI [0]
    
*~FOpen
    Integer [ExistFlg, VarTypeBuff]
    
    VarType [VarTypeBuff, FileName]
    If [VarTypeBuff == 0]
        //FOpen呼び出しのため宣言
        String [FileName]
        
        FileName = Argument1
    End If
    
    File [FileName, ExistFlg]
    If [FileName != "" && ExistFlg == True]
        FileRead [FileName, Argument0]
    Else
        Argument0 = MSL.NullC
    End If
    
    MethodReturn

メソッド内にメソッドがあるような状態なので、他言語にもある内部メソッドかと
思われるかもしれませんが、概念は全然違うものです（思う人もいないかなｗ）
単純にFAutoOpen呼出し後、MethodReturnが来るまで処理し続けるので
FOpen処理内にも突っ込んでるだけですね。

尚、通常は宣言されていない変数は参照・代入ともにエラーとなるのですが
VarType内だけはエラーになりません。これはVarTypeが
変数の種類を調べる命令であり参照・代入処理が行われないためです。
上記の例ですと、FileName変数の種類が0（未定義）だった場合にのみ
宣言するようコーディングしてあります

MysticSLの変数スコープはグローバルかメソッドローカルのみで、
ブロック単位のローカルは作れません。

さてこの手法にはデメリットしかありませんｗ
1.フォールスルーに関わるメソッド全ての連携を考慮した
　複雑な設計をしないといけない
2.保守が（1.に関連して）非常に辛い
3.遅い

100回FAutoOpenをループ実行させるテストをしましたが、
デバッグモードで約100ミリ秒、リリースビルドしても10～20ミリ秒遅い結果となりました
（ディスクアクセスがあるので状況によります）

メソッド呼び出しするほうがオーバーヘッド関係上遅くなりそうな気がしますが、
MysticSLの場合呼び出し元のデータ丸投げしてるだけなので
むしろフォールスルー後の条件処理もろもろで遅くなっているわけですね。

ぶっちゃけこんな変な組み方する人はいないと思いますが、
こんなのも出来ますよ、という紹介でしたｗ

[MysticSL] 修正版うｐ

鶏唐揚 — Fri, 22 Aug 2008 17:05:00 GMT

はい、というわけでよーやくジョイパッドぶち抜いたときにキーボード操作になるよう修正。
一応操作法。

☆ジョイパッドの場合
　方向キーで移動、1ボタンでダッシュ、2ボタンで死亡モーション

☆キーボードの場合
　矢印キーで移動、スペースでダッシュ、バックスペースで死亡モーション

ジョイパッドとキーボードは排他となっているので
どちらか片方のみでの操作となります（ジョイパッド優先）

ダウンロード(264KB)

[MystuicSL] DirectDrawサンプルのバグ修正

鶏唐揚 — Tue, 29 Jul 2008 13:11:00 GMT

まだ手ぇ付けてません。やること多すぎ…
ちなみにどんなバグかというと。

ジョイパッドぶち抜くとキャラが左上に向かって暴走します

二次会にて発見しましたｗ
修正＆改造は今週末にでもやろうかなと思ってますので。

[MysticSL] うほっ　いいライブラリ…

鶏唐揚 — Tue, 15 Jul 2008 22:19:00 GMT

ぶへーとわんくまブログ新着を見てたらJZ5さんの
Live Messenger 表示メッセージを外部アプリから設定を見つけて
「んー？どっかで見たような…」と思ったらやっぱりありました。
MysticSL公式サイトの「MysticSL作品」に。

#include [MSNMD.msm]

MSNMusicDisp ["揚げすぎた鶏"]
Stop

短っ！

なおクリアするのはMSNMusicDispStopです。これやらずにアプリ終わらせると
メッセンジャ再起動させるまでずっと残ったままですｗ

あと付属のヘルプ見たらMSNMusicDispExなんてのもあるみたいです。
アーティスト名・曲名・アルバム名をそれぞれ引数に渡すことで、
"アーティスト名 - 曲名(アルバム名)"という形に整形して表示してくれるそうです。
メソッド名からしてMSNMessenger時代のライブラリですが、
Windows Live Messengerでも正常に動作しました。

[名古屋勉強会#3]準備中…

鶏唐揚 — Mon, 14 Jul 2008 11:25:00 GMT

名古屋勉強会#3のページが出来上がりましたね。
セッション内容はこんな感じとなってます。
なお私のセッション内容、公式ページでは未定のままですが決定してます。

・13:40～14:30 「りょーいちのデジタルカメラ写真講座」 byりょーいちさん
・14:40～15:30 「勝手にインフラ隊に学ぶネットワーク講座」byまーるさん
・15:40～16:30 「マイナー言語出張版"MysticSLを使い倒してみた"」 by鶏唐揚
・16:40～17:30 「タダで始めるテストファースト入門～ C# Express + NUnit」 by biacさん
・17:40～18:30 「組み込み系のネタ(仮)」 by あんどちんさん
・19:00～懇親会～

現在資料を作ってますがどこまでふざけて良いのやら…ｗ
私の見た中ではゆーちさんが一番ハジけてましたが、あそこまでやる勇気もない…
かといって中途半端にネタ仕込んでもさぶいだけ。
なんで大真面目に行こうかなと。

でも内容が内容だけに、ネタで盛り上げないと誰も反応示さなさそうな…難しいデスネorz

DのIDEはちょっと後回しです。どのみちリッチテキストの挙動にイラってて停滞してますがｗ
楽しみにしてる方（いらっしゃるかわかりませんが1名は確認ｗ）は申し訳ないですが
気長にお待ちください。

そして。
自己紹介やら身の上話やらしても50分も持たせる自信がありません
誰かネタくだｓ（ｒｙ

[どーでもいい追記]
まだ2週間弱あるのに今まさに超緊張して腕が痺れて指が上手く動かなくなってまいりました。
耳も痺れてきて耳鳴りが…ｗ極度のアガり症なのでお手柔らかにお願いしますｗ
#当日座ってお喋りさせてもらえるのでしょうか。立ってやるとなると
　倒れるかもしんないｗｗ