.NET

NUnit のカスタムConstraint

επιστημη — Sat, 27 Dec 2008 00:44:00 GMT

きょうびの NUnit では NUnit.Framework.Constraints.Constraint から
導出することで俺流検証クラスが定義できるっぽい。
ちょいとやってみる。

using System;
using NUnit.Framework;
using NUnit.Framework.SyntaxHelpers;

using Wankuma.Episteme.Extensions;

namespace Wankuma.Episteme.Extensions {

    public class LikeString : NUnit.Framework.Constraints.Constraint {
        private string key_;
        public LikeString(string key) { key_ = key; }
        // 検証メソッド
        public override bool Matches(object actual) {
          this.actual = actual;
          string val = actual as string;
          // actualが文字列であり、key_を含むならtrue
          return val != null && val.Contains(key_);
        }
        // 出力
        public override void WriteDescriptionTo(MessageWriter writer) {
          writer.WriteExpectedValue(key_);
          writer.Write("っぽい文字列");
        }
    }

    // 文字列に "っぽい" を拡張
    public static class ConstraintExtension {
      public static Constraint っぽい(this string arg) {
        return new LikeString(arg);
      }
    }
}

namespace NUnitTrial {

    [TestFixture]
    public class Class1 {
      [Test]
      public void one() {
        Assert.That( "わんくま", "くま".っぽい());
      }
      [Test]
      public void two() {
        Assert.That( "にゃんとら", "くま".っぽい());
      }
    }
}

実行結果:

お、おもしれぇぢゃねーか♪

"ぽっぷさん"からおてがみを貰う方法

επιστημη — Tue, 02 Sep 2008 15:41:00 GMT

突然降って湧いた相談事で。

メールを読み、送信者に応じて転送するちっさなアプリが欲しいんだって。
メールを送る方は Wankuma.Net.Mail が使えそう。

それはそうとして、POP3から拾ってくるのはどうすりゃえぇの?
.Net Framework の System.Net.Mail 名前空間には送り側(SMTP)しか見当たらんのですががが。

# 生socketでプロトコル実装? やれちゅーたらやるけどさぁ....

[追記] さっそく釣れたおさかなさんに訊いてみたところ、TcpClient用意して
"ぽっぷさん"に直接お伺いをたてろ、ってことのようです。
貰ったメールがmulti-partだったりしたときの分割ルーチンなんかもテメェ
でこしらえにゃならんのかな。ﾏﾝﾄﾞｸｾｰ...

それっぽくなったぞ

επιστημη — Sun, 24 Aug 2008 19:35:00 GMT

XNAで遊んでます。ゆっくりゆっくり。

なんとなくSTGぽくなってきました♪
Viewportをセットし、その中に背景貼ってうにょうにょ...
# STAGE-1:東京新宿某所の面ですねぃ

XNAのマニュアル首っ引きで思いつくままがすがす書きなぐってる
もんだからコードがコキタネーっす。まぢにゲームに仕立てるなら
簡易版でいいからタスクシステムでもこしらえ、いったんチャラに
して書き直しですねー。まだまだオモチャで遊んでるレベル。

そこでしつもーん。
Game::Draw() の中で Viewportを切り替えながら何度も
sprite.Begin()/End() を繰り返せるのでしょか。

protected override void Draw(GameTime gameTime) {
      GraphicsDevice.Clear(バック色);
      GraphicsDevice.Viewport = 画面全域
      sprite.Begin(); // [ココ]
      // 得点とか残機とか描く
      sprite.End();

      GraphicsDevice.Viewport = ゲーム領域
      sprite.Begin();
      // 背景とか"くま"とか描く
      sprite.End();

      base.Draw(gameTime);
}

ってやったらば [ココ] んとこで例外発生。
「End()がちゃんとできてないのにBegin()すな!」
って怒られました。なんでやろ。
Viewportを差し替えつつ描画する方法、教えてえらいひと。
# できんかったら代替案くだせぃ

[追記] C#で書いたらできちゃったー。赤坂さんありがとです。
↓こねくり回した結果がこれだよ!

夢に出そう...

επιστημη — Thu, 21 Aug 2008 00:14:00 GMT

オノデラさんとこからパクったPNGに差し替え、
フォントをメイリオにして"わんくま同盟"6文字分の
SpriteFontをこしらえて背景色いぢって、と。

くま弾幕。
※ プロジェクトはぽろろっかのを差し替え。

じんわりたのしい

επιστημη — Tue, 19 Aug 2008 13:14:00 GMT

XNA Game Studio、ぼちぼち触ってます。焦らずゆっくりゆっくり。

目下2Dの絵を貼るとことフォントを突っ込んで文字列を描くとこあたり。
↓避けられる程度に減らしました。弾が揺れます。にとりも回ります♪

そこいらへんに転がってるフリーのフォントをｲﾝｽｺしてXNA Game Studioに"フォント作って"
ってお願いすればSpriteFontをこさえてくれるはずなんだが、
フォントのｲﾝｽｺ直後では”そんなフォント知らないｱﾙ”とかほざきやがる。
マシン再起動したらうまくいった。そんなもんｽｶ? 教えてえらいひと。

なんてんでしょ、不思議なすがすがしさを感じます。
イベントドリブンもﾍｯﾀｸﾚもなく、キーをスキャンして/計算して/描く
をひたすら繰り返すだけ。
つまるところ、これがキモだよなーと。

なんかね、昔々たどたどしいBASICでブロック崩し作って遊んだのを
思い出します。

[追記] こゆことはオノデラさんか赤坂さんに訊けばいいのかな。
1. XNA GameStudio でこしらえたWindowsアプリで使用できるパッド
はハコサブローの「しいたけパッド」だけなんでしょーか。
ショップで売ってる980円のパッドは使えないんですかぁ?
2. 借りもんのハコサブローについてきたパッドはワイヤレス。
こいつをPCで使いたければワイヤレスアダプタが要るんですよね?
ヒモ付きしいたけパッドはハコサブロー/PCの両方で使えるんですか?

ぽろろっか

επιστημη — Sat, 16 Aug 2008 15:53:00 GMT

ふー、ようやっとVisual Studio 2008 SP1 にupdate完了。

手始めになにやろかってんで、XNA Game Studio が吐いた
C#コードをC++/CLIに移植してみた。← ﾔﾝﾈｰﾖふつー

元ネタは先日赤坂さんがやってくれた"しいたけセッション"
にあった「弾幕もどき」。

Game Studio が吐いたGame1.cs を削除し、代わりにC++/CLIで
Game1.csをポートしたアセンブリの参照を設定。
C#で書けるならC++/CLIでも書けっだろーってことで。

↑...無理。スキマがありましぇん。

プロジェクトはコレ。

[追記] ↑VBでもやってみたぉ(プロジェクトに同梱)。

夏も初めのけだるい朝は趣味のコードとたわむれる

επιστημη — Sat, 05 Jul 2008 12:02:00 GMT

なぜかマージソート。

メモリを食わずにファイルIOだけでもソートできる優れもののアルゴリズム。時間計算量はΟ(logN)。

データの振り分けと併合を繰り返してソートを行います。
元データ: 1 3|2 5|4 7|6 9|8|0 13|12|11
※ | はその位置で昇順になっていないことを表します。
ファイルを二本用意し、| の位置で出力先を切り替えながら出力します:
ファイル1: 1 3 4 7 8|12
ファイル2: 2 5 6 9|0 13|11
次にこの二本を読み、より小さいほうを取り出して一本の元データに出力します:
元データ: 1 2 3 4 5 6 7 8 9|0 12 13|11
| で区切られた要素列(これを'連'という)はソートされてて、
振り分けと併合によって連の数が減っていきます。
最終的に連の数が1になればソート完了。

C#で書いてみた。ファイルIOはめんどっちーのでBCLコレクションで:
using System;
using System.Collections.Generic;

class Program {

    // 二つのキューをマージ(併合)して一つにする
    private static void merge<T>(Queue<T> in_q1, Queue<T> in_q2, ICollection<T> out_c) where T : IComparable<T> {
      // 入力である二つのキューが共に要素を持っている間
      while ( in_q1.Count != 0 && in_q2.Count != 0 ) {
        // より小さい要素を取り出して出力する
        out_c.Add(( in_q1.Peek().CompareTo(in_q2.Peek()) < 0 )? in_q1.Dequeue():in_q2.Dequeue());
      }
      // キューに残る(取り出されなかった)要素を出力する
      while ( in_q1.Count != 0 ) { out_c.Add(in_q1.Dequeue()); }
      while ( in_q2.Count != 0 ) { out_c.Add(in_q2.Dequeue()); }
    }

    // 一つの入力列を二つのキューに分割する
    private static bool split<T>(ICollection<T> in_c, Queue<T> out_c1, Queue<T> out_c2) where T : IComparable<T> {
      T last = default(T);
      Queue<T> out_c = out_c1;
      bool switched = false;
      foreach ( T current in in_c ) {
        // 直前の要素より小さな要素を読み込んだら出力キューを切り替える
        if ( last != null && current.CompareTo(last) < 0 ) {
          out_c = (out_c == out_c1) ? out_c2 : out_c1;
        }
        out_c.Enqueue(last = current);
        // 一度でも切り替えが起こったらswitchedをtrueにする
        if ( !switched ) switched = (out_c == out_c2);
      }
      return switched;
    }

    public static void print<T>(string head, IEnumerable<T> collection) {
      Console.Write("{0} : ", head);
      foreach ( T item in collection ) {
        Console.Write("{0} ", item);
      }
      Console.WriteLine();
    }

    public static void merge_sort<T>(ICollection<T> data) where T : IComparable<T> {
      Queue<T> q1 = new Queue<T>();
      Queue<T> q2 = new Queue<T>();
      while ( split(data, q1, q2) ) {
        Console.WriteLine("--------------------------------");
        print("input ", data);
        Console.WriteLine("split:");
        print("queue1 ", q1);
        print("queue2 ", q2);
        data.Clear();
        merge(q1, q2, data);
        Console.WriteLine("merge:");
        print("output ", data);
        q1.Clear();
        q2.Clear();
      }
    }

    public static void Main() {
      List<int> data = new List<int>(new int[] { 1, 3, 2, 5, 4, 7, 6, 9, 8, 0, 13, 12, 11 });
      merge_sort(data);
      Console.WriteLine("--------------------------------");
      print("result ", data);
    }

}

...のんちゃんがVBがんがってるらしいから、
僕もグチこぼしてばっかじゃなくVBでも書いてみる:
Imports System
Imports System.Collections.Generic

Module Program

    ' 二つのキューをマージ(併合)して一つにする
    Private Sub merge(Of T As IComparable(Of T))(ByVal in_q1 As Queue(Of T), ByVal in_q2 As Queue(Of T), ByVal out_c As ICollection(Of T))
      ' 入力である二つのキューが共に要素を持っている間
      While in_q1.Count <> 0 AndAlso in_q2.Count <> 0
        ' より小さい要素を取り出して出力する
        If in_q1.Peek().CompareTo(in_q2.Peek()) < 0 Then
          out_c.Add(in_q1.Dequeue())
        Else
          out_c.Add(in_q2.Dequeue())
        End If
      End While
      ' キューに残る(取り出されなかった)要素を出力する
      While in_q1.Count <> 0
        out_c.Add(in_q1.Dequeue())
      End While
      While in_q2.Count <> 0
        out_c.Add(in_q2.Dequeue())
      End While
    End Sub

    ' 一つの入力列を二つのキューに分割する
    Private Function split(Of T As IComparable(Of T))(ByVal in_c As ICollection(Of T), ByVal out_q1 As Queue(Of T), ByVal out_q2 As Queue(Of T)) As Boolean
      Dim last As T = Nothing
      Dim out_q As Queue(Of T) = out_q1
      Dim switched As Boolean = False
      For Each current As T In in_c
        ' 直前の要素より小さな要素を読み込んだら出力キューを切り替える
        If last IsNot Nothing AndAlso current.CompareTo(last) < 0 Then
          If out_q Is out_q1 Then
            out_q = out_q2
            ' 一度でも切り替えが起こったらswitchedをtrueにする
            switched = True
          Else
            out_q = out_q1
          End If
        End If
        last = current
        out_q.Enqueue(current)
      Next
      Return switched
    End Function

    Public Sub print(Of T)(ByVal head As String, ByVal collection As IEnumerable(Of T))
      Console.Write("{0} : ", head)
      For Each item As T In collection
        Console.Write("{0} ", item)
      Next
      Console.WriteLine()
    End Sub

    Public Sub merge_sort(Of T As IComparable(Of T))(ByVal data As ICollection(Of T))
      Dim q1 As New Queue(Of T)
      Dim q2 As New Queue(Of T)
      While split(data, q1, q2)
        Console.WriteLine("-------------------------")
        print("input ", data)
        Console.WriteLine("split:")
        print("queue1 ", q1)
        print("queue2 ", q2)
        data.Clear()
        merge(q1, q2, data)
        Console.WriteLine("merge:")
        print("output ", data)
        q1.Clear()
        q2.Clear()
      End While
    End Sub

    Sub Main()
      Dim data As New List(Of Integer)(New Integer() {1, 3, 2, 5, 4, 7, 6, 9, 8, 0, 13, 12, 11})
      merge_sort(data)
      Console.WriteLine("-------------------------")
      print("result ", data)
    End Sub

End Module

こうですね、わかります。

επιστημη — Thu, 26 Jun 2008 11:01:00 GMT

/*
* 可及的速やかに破棄したい
* マネージ対象外リソースを持ったクラスのテンプレ
* C++/CLI版
*/

public ref class SampleClass : System::IDisposable {
private:
char* unmanaged_resource; // マネージ対象外リソース
protected:
bool disposed; // Dispose()済みならtrue
// Dispose()後にメソッドが呼ばれたときの用心のため、
// 各public/protectedメソッドはその処理に先立ちこいつを呼ぶことを推奨する。
void method() {
    if ( disposed ) {
      throw gcnew System::ObjectDisposedException(
               this->GetType()->ToString(),
               "has been disposed.");
    }
}

// Dispose()の実処理はココで行う
virtual void Dispose(bool disposing) {
    if ( !disposed ) {
      if ( disposing ) {
        // managed-resourceを持っている
        // ならここでDispose()
      }
      // ここでunmanaged-resourceを廃棄
      delete[] unmanaged_resource;
    }
    disposed = true;
}

public:
// コンストラクタ
SampleClass() {
    unmanaged_resource = new char[100];
    disposed = false;
}

// デストラクタ: Dispose() に相当する。
virtual ~SampleClass() {
    Dispose(true);
    // 後続するFinalize()を抑止する
    System::GC::SuppressFinalize(this);
}
// ファイナライザ: Finalize()に相当する
!SampleClass() {
    Dispose(false);
}
};

※ 修正: doDispose → Dispose

じゃないんだってさ!

ref class SampleClass {
public:
~SampleClass() { this->!SampleClass(); }
!SampleClass() { /* unmanaged-resourceを破棄する */ }
};

これで十分なんだって。

こうですか? わかりません!

επιστημη — Thu, 26 Jun 2008 09:14:00 GMT

添削お願いしますぅ > えらいひと

/*
* 可及的速やかに破棄したい
* unmanaged-resourceを持ったクラスのテンプレ
*/

public class SampleClass : System.IDisposable {

private object unmanaged_resource; // マネージ対象外リソース
protected bool disposed = false; // Dispose()済みならtrue

// コンストラクタ
public SampleClass() {
// ここでnewしなければならんわけじゃないが
unmanaged_resource = new object();
}

// Dispose()後にメソッドが呼ばれたときの用心のため、
// 各public/protectedメソッドはその処理に先立ちこいつを呼ぶことを推奨する。
protected void assertDisposed() {
    if ( disposed ) {
      throw new System.ObjectDisposedException(
        this.GetType().ToString(),
        "has been disposed.");
    }
}

// Dispose()の実処理はココで行う
protected void doDispose(bool disposing) {
    if ( !disposed ) {
      if ( disposing ) {
       // managed-resourceを持っている
       // ならここでDispose()
      }
      // ここでunmanaged-resourceを廃棄
    }
    disposed = true;
}

// Dispose
public virtual void Dispose() {
    doDispose(true);
    // 後続するFinaraize()を抑止
    System.GC.SuppressFinalize(this);
}

// デストラクタ(=Finalize)
public ~SampleClass() {
doDispose(false);
}

}

※ Finalize→~SampleClass に修正しました

C++フェチがSTL/CLRネタにC++/CLIで遊ぶ

επιστημη — Mon, 26 May 2008 14:42:00 GMT

ネタ元 → LINQ は面白い(って、わたし、この子ﾘﾝｷｭｰって呼んじゃうのよね、ついｗ）

Sub Main()
  Console.WriteLine("今日作ったファイル")
  Dim Files = From file In Directory.GetFiles("c:\wankuma") _
   Where System.IO.File.GetCreationTime(file).ToString("yyyyMMdd") _
          = Date.Today.ToString("yyyyMMdd") _
   Order By (file) _
   Select file
  For Each Todays In Files
    Console.WriteLine(Todays)
  Next
End Sub

ほほぉ、なるほど。
LINQを持ち合わせていない C++/CLI と STL/CLR でなんとかしてみる:

value class different_date {
static String^ today =
    DateTime::Now.ToString(L"yyyyMMdd");
public:
static bool exec(String^ file) {
    return File::GetCreationTime(file).ToString(L"yyyyMMdd")
             != today;
}
};

int main() {
Console::WriteLine(L"今日作ったファイル");
// ファイル名集合から
cliext::vector<String^>
    files(Directory::GetFiles(L"D:\\Program Files\\Work"));
// 条件を満たさないものを取り除き
files.erase(cliext::remove_if(files.begin(), files.end(),
              gcnew Predicate<String^>(different_month::exec)),
             files.end());
// ソートして
cliext::sort(files.begin(), files.end());
// 出力する
for each ( String^ item in files ) Console::WriteLine(item);
}

...努力は認めてくださいまし。LINQはすげーですやっぱ。