C++/CLI

夢に出そう...

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

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

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

ぽろろっか

επιστημη — 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でもやってみたぉ(プロジェクトに同梱)。

blogだけでは飽き足らず

επιστημη — Wed, 13 Aug 2008 22:16:00 GMT

夏も初めのごめんなさいあたりから
短期集中連載(?)してたマージ・ソートの「まとめ」をCodeZineに書きました。

マージ・ソート : 巨大データのソート法ての。
マージ・ソートのアルゴリズム解説とその実装を
VB, C#, C++/CLI でやらかしてます。

インスパイア元 → すごいひとです！
名著「アルゴリズムとデータ構造」をよこちょに置いて書いてました。
いやね、WPFとかWCFとかLINQとかXNAとか、みんなすごいなーと
思うんですよ。僕は新しいことに手を染めず、そこそこ枯れてきた頃に
美味しいとこだけ頂戴するばかりです。

もう幾度となく繰り返してることですが、近頃のビギナ(に限らんかな)は
本を読まなくなりました。大概のことはネット検索すりゃカタがつきます
しね。けども僕は本を大事にしたい。「アルゴリズムとデータ構造」はもう
30年以上前の解説書です。けども僕のプログラマ稼業でいちばん役に立った
本だし今でもときおり読み返します。

まぁ、そんな想いを若い人たちにちょっとでも伝えたくて、ほんのりカビ
臭いこんなネタを書いてみたりするわけね。

よろしく御贔屓のほどを。

なぜないのか不思議なので作ってみた

επιστημη — Thu, 24 Jul 2008 16:42:00 GMT

STL/CLRの<iterator>には
back_insert_iterator / front_insert_iterator / insert_iterator が定義されてねぇのす。

お試しにこしらえてみた。

template<typename Container>
ref class back_insert_iterator {
public:
typedef cliext::output_iterator_tag iterator_category;
typedef typename Container::value_type value_type;
back_insert_iterator(Container^ c) : container(c) {}
back_insert_iterator% operator=(value_type% val)
    { container->push_back(val); return *this; }
static back_insert_iterator% operator*(back_insert_iterator% i)
    { return i; }
back_insert_iterator% operator++()
    { return *this; }
back_insert_iterator% operator++(int)
    { return *this; }
protected:
Container^ container;
};

template<typename Container> inline
back_insert_iterator<Container>^ back_inserter(Container^ c) {
return gcnew back_insert_iterator<Container>(c);
}

int main() {
cliext::vector<String^> v0;
  v0.push_back(L"相川");
  v0.push_back(L"井上");
  v0.push_back(L"上村");
  v0.push_back(L"えぴ");
  v0.push_back(L"小田");
  cliext::vector<String^> v1;
  cliext::remove_copy(v0.begin(), v0.end(),
                      back_inserter(%v1), gcnew String(L"えぴ"));
  for each ( String^ item in v1) {
    Console::WriteLine(item);
  }
}

... こんなんでいいのかなー。
どデカい穴空いてる気がしてなんね。

あるもーん♪

επιστημη — Fri, 18 Jul 2008 23:05:00 GMT

ネタ元 → 順列生成メソッド

STL/CLRの出番だぜ。

--- myutil.h ---
namespace MyUtil {
public ref class Algrithm {
public:
    static bool NextPermutation(String^% str);
};
}

--- myutil.cpp ---
#include <cliext/algorithm>
#include <cliext/vector>
#include "myutil.h"

namespace MyUtil {
bool Algrithm::NextPermutation(String^% str) {
    cliext::vector<Char> v(str->ToCharArray());
    bool result = cliext::next_permutation(v.begin(),v.end()); // あるもーん
    str = gcnew String(v.to_array());
    return result;
}
}

--- user.cs ---
using System;
using MyUtil;

class Program {
static void Main(string[] args) {
    string str = "ABCD";
    do {
      Console.WriteLine(str);
    } while ( Algrithm.NextPermutation(ref str) );
  }
}

マージソートいちおー終結

επιστημη — Fri, 11 Jul 2008 13:46:00 GMT

テキストファイルに書かれた改行区切りの文字列群を昇順にソートします。

C#, VB.NET, C++/CLI のプロジェクトを詰め込みました。

[追記] ちょびっといぢりました。1MBを限度にメモリに読み込み、
ソートして書き出すことで連を減らしています。より高速になったかと。

暗いｼﾞﾒｼﾞﾒしたとこのご紹介

επιστημη — Mon, 07 Jul 2008 20:08:00 GMT

はい、そゆわけでおにょれ赤坂でちらっとこぼしたネタをば

CodeZine 「STL/CLRツアーガイド」に書きました。

白状すればSTL/CLRはまだまだいぢり倒してないんですよねー

夏も初めの以下省略:ふぉろー

επιστημη — Sun, 06 Jul 2008 09:46:00 GMT

C++/CLI「επιστημηさんまで私を忘れたのですか？」
書いてみた...つか、C#版を機械的にportしただけ。

using namespace System;
using namespace System::Collections::Generic;

// 二つのキューをマージ(併合)して一つにする
generic<typename T> where T : IComparable<T>
void merge(Queue<T>^ in_q1, Queue<T>^ in_q2, ICollection<T>^ out_c) {
// 入力である二つのキューが共に要素を持っている間
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()); }
}

// 一つの入力列を二つのキューに分割する
generic<typename T> where T : IComparable<T>
bool split(ICollection<T>^ in_c, Queue<T>^ out_c1, Queue<T>^ out_c2) {
T last;
Queue<T>^ out_c = out_c1;
bool switched = false;
for each ( T current in in_c ) {
    // 直前の要素より小さな要素を読み込んだら出力キューを切り替える
    if ( last != nullptr && 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;
}

generic<typename T>
void print(String^ head, IEnumerable<T>^ collection) {
Console::Write("{0} : ", head);
for each ( T item in collection ) {
Console::Write("{0} ", item);
}
Console::WriteLine();
}

generic<typename T> where T : IComparable<T>
void merge_sort(ICollection<T>^ data) {
Queue<T>^ q1 = gcnew Queue<T>();
Queue<T>^ q2 = gcnew Queue<T>();
while ( split(data, q1, q2) ) {
    Console::WriteLine(L"--------------------------------");
    print(L"input ", data);
    Console::WriteLine("split:");
    print(L"queue1 ", q1);
    print(L"queue2 ", q2);
    data->Clear();
    merge(q1, q2, data);
    Console::WriteLine(L"merge:");
    print(L"output ", data);
    q1->Clear();
    q2->Clear();
}
}

int main() {
List<int>^ data = gcnew List<int>(gcnew array<int> { 1, 3, 2, 5, 4, 7, 6, 9, 8, 0, 13, 12, 11 });
merge_sort(data);
Console::WriteLine(L"--------------------------------");
print(L"result ", data);
}

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

επιστημη — 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を破棄する */ }
};

これで十分なんだって。

雨の日は

επιστημη — Sun, 22 Jun 2008 12:40:00 GMT

まったりモードでコーディング遊び。
ネタ元 → mapの使い方教えてください

STL/CLRで書いてみた:

#include <cliext/map>

value class key_type {
public:
System::String^ mesh;
System::String^ error;
static bool operator<(key_type^ x, key_type^ y) {
return x->mesh < y->mesh ? true :
( y->mesh < x->mesh ? false : x->error < y->error );
}
};

typedef cliext::map<key_type,int> map_type;

int main() {
System::String^ str;
key_type key;
map_type ary;

System::IO::StreamReader
reader(System::IO::File::OpenRead(L"Data001.txt"));

while ( (str = reader.ReadLine()) != nullptr ) {
    if( str->IndexOf(L"メッシュ") == 0 ) {
      key.mesh = str->Substring(7,8);
    }
    if ( str->IndexOf(L"ERROR") == 0 ) {
      key.error = str->Substring(6,5);
      ary[key]++;
    }
}
reader.Close();
for each ( map_type::value_type item in ary) {
    System::Console::WriteLine(L"{0}\t{1}\t{2}件",
　　　　　　item->first.mesh, item->first.error, item->second);
}
return 0;
}

残念なのはSTL/CLRの cliext::pair がコンテナの要素になれない(きっとバグ)が
ために value class key_type をこしらえてっとこ。

BCLコレクション: Dictionary 使うとこーなる:

value class key_type {
public:
System::String^ mesh;
System::String^ error;
virtual bool Equals(System::Object^ obj) override {
    key_type^ rhs = safe_cast<key_type^>(obj);
    return mesh == rhs->mesh && error == rhs->error;
}
virtual int GetHashCode() override {
    return (mesh+error)->GetHashCode();
}
};

typedef System::Collections::Generic::Dictionary<key_type,int> map_type;

int main() {
System::String^ str;
key_type key;
map_type ary;

System::IO::StreamReader reader(System::IO::File::OpenRead(L"Data001.txt"));

while ( (str = reader.ReadLine()) != nullptr ) {
    if( str->IndexOf(L"メッシュ") == 0 ) {
      key.mesh = str->Substring(7,8);
    }
    if ( str->IndexOf(L"ERROR") == 0 ) {
      key.error = str->Substring(6,5);
      /* [※] きもちわりー */
      if ( ary.ContainsKey(key) ) ary[key]++;
      else ary.Add(key,1);
    }
}
reader.Close();
for each ( System::Collections::Generic::KeyValuePair<key_type,int>^
               item in ary) {
    System::Console::WriteLine(L"{0}\t{1}\t{2}件",
      item->Key.mesh, item->Key.error, item->Value);
}
return 0;
}

[※] ここがちょいと気になるところ。ContainsKeyによって登録済みかを
判定し、登録されてたら ary[key]++ してる。そのときも要素の検索が
行われるので、都合二回の検索が行われてることになります。
それは無駄ぢゃーんってんで

   try {
        ary[key]++;
      } catch ( System::Collections::Generic::KeyNotFoundException^ ) {
        ary.Add(key,1);
      }

正常処理に例外使うのもどーかと。C++屋のアタマでは例外処理は
コストが高く、検索二回の方がまだマシかも...とか思っちゃうです。