[Ruby] - クラなんとか or くらなんとか or cla なんとかの日記

クラス拡張ミックスイン

で Perl6 だと

普通にRole かなぁ？
- attr_checked メソッドを生やす
- add_method で適当にアクセサを作る
- store する場所はぶっちゃけ，独立したattribute じゃなくてもいいよね．

メタプログラミングRuby

posted with amazlet at 11.02.20

Paolo Perrotta
アスキー・メディアワークス
売り上げランキング: 5690

Amazon.co.jp で詳細を見る

Permalink | コメント(0) | トラックバック(0) | 09:49

メタプログラミングRuby 四日目を読んだ

Ruby, Perl6

特異クラス
クラスインスタンス変数，クラスマクロ，アラウンドエイリアス

で，

特異クラスはたぶん Role を差してやればいいと思う
alias は，なんかいい方法があるんだろうか．next とか？
- my &old_name := &thermo; &thermo = sub {}; とか普通にできるみたい(S06)

# our にすれば，class スコープに
augment class MyClass {
    our $c;
    method c { $c }
}


# 別名を付けて，上書き
augment class Str {
    .^add_method('real_chars', &chars);

    method chars {
        .real_chars > 5 ?? 'long' !! 'short'
    }
}

メタプログラミングRuby

posted with amazlet at 11.02.20

Paolo Perrotta
アスキー・メディアワークス
売り上げランキング: 5690

Amazon.co.jp で詳細を見る

Permalink | コメント(0) | トラックバック(0) | 23:02

メタプログラミングRuby 三日目を読んだ

Ruby, Perl6

Proc と lambda と instance_eval かな
scope の話

さて

block は全てがクロージャです．
method { } で，無名メソッドが作れる
- 第一引数がオブジェクト($obj.$method と $method($obj) が同じ)
-> でも，引数を受け取るクロージャが作れる
AUTOLOAD が使えればもうちょっとキレイに作れるような
- set / get を使わない方向で
:key(value) 形式は名前付きパラメータに取られてる？
our を使わないとsubで定義したのにblock を超えられなかった．逆じゃね？
require が .pm じゃないと駄目になってる？
glob() がわからん．

setup method {
    $.set('key' => 'value');
}

event "name", method {
    $.get('key');
};

メタプログラミングRuby

posted with amazlet at 11.02.20

Paolo Perrotta
アスキー・メディアワークス
売り上げランキング: 5690

Amazon.co.jp で詳細を見る

Permalink | コメント(0) | トラックバック(0) | 16:17

2011-02-17

メタプログラミングRuby 二日目を読んだ

Ruby, Perl6

Module#method_missing() と define_method(), Object#send() あたり．

AUTOLOAD(=CANDO) と動的定義か．

multi CANDO (MyPackage, $type, $name, *%args --> Container) { ... }

my $name = '&' . 'aaa';
::<$name> = method { ... }

みたく，CANDO とか動的定義でできそうだけど，

そもそもCANDO は呼ばれないような…

まだ実装されてないのかねぇ．*1

動的定義もできない？

あと eval 以外にできるのかな？

(2011/02/20 追記)

動的定義は，add_method を使えばいいのか．

http://perl6advent.wordpress.com/2010/12/22/day-22-the-meta-object-protocol/

メタプログラミングRuby

posted with amazlet at 11.02.20

Paolo Perrotta
アスキー・メディアワークス
売り上げランキング: 5690

Amazon.co.jp で詳細を見る

Permalink | コメント(0) | トラックバック(0) | 02:09

*1：Indirect name lookups not yet implemented だから？

2011-02-13

メタプログラミングRuby 一日目を読んだ

Ruby, Perl6

まとめを抜粋

オブジェクトは複数のインスタンス変数とクラスへのリンクで構成されている．
オブジェクトのメソッドはオブジェクトのクラスに住んでいる(クラスから見れば，それはインスタンスメソッドと呼ばれる)
クラスはClass クラスのオブジェクトである．クラス名は単なる定数である．
Class はModule のサブクラスである．モジュールはメソッドを集めたものである．クラスはnew() でインスタンス化したり，superclass()で階層構造を作ったりできる．
定数はファイルシステムのようにツリー上に配置されている．モジュールやクラスの名前がディレクトリ，通常の定数がファイルのようになっている
クラスはそれぞれBasicObject まで続く継承チェーンを持っている．
メソッドを呼び出すと，Ruby はレシーバのクラスに向かって一歩右へ進み，それから継承チェーンを上へ向かって進んでいく．メソッドを発見するか継承チェーンが終わるまでそれは続く．
クラスがモジュールをインクルードすると，そのクラスの真上の継承チェーンにモジュールが挿入される．
メソッドを呼び出すとき，レシーバが self になる．
モジュール(あるいはクラス)を定義するとき，モジュールが self になる．
インスタンス変数は常に self のインスタンス変数とみなされる．
レシーバを明示的に指定せずにメソッドを呼び出すと，self のメソッドだとみなされる．

#!/usr/bin/env perl6
# -*- mode: perl; coding: utf-8-unix; -*-

use v6;

class MyClass {
    has $!v;
    method my_method {
    }
}

my $obj = MyClass.new

say MyClass.WHAT; #=> MyClass()
say $obj.^parents.perl; # => (Any, Mu)
say $obj.^methods(:local).map({.name}).perl; #=> ("my_method")

メソッドサーチ，継承関係について，もうちょっと調べる必要があるな．

REPL 便利
.perl が inject 的に使える．p 的なものもある？
^XXXX と HOW.XXXX を使う
class base と prototype base の両方が使える

メタプログラミングRuby

posted with amazlet at 11.02.14

Paolo Perrotta
アスキー・メディアワークス
売り上げランキング: 41489

Amazon.co.jp で詳細を見る

Permalink | コメント(0) | トラックバック(0) | 19:17

2011-01-16

メタプログラミングRuby を読み始めた

Ruby, Perl, Perl5, Perl6

Ruby の知識は全然足りない状態で読み始めた．

とりあえず，色々調べながらで最初全然進めない感じですよ．

調べたこと - Ruby

Rakefile - test target を簡単に刺す
Rakefile - default ターゲットの指定方法

gist にしようかと思ったけど，とりあえずそのまま貼る

構成としては，

Rakefile
lib/object_model/alphanumeric.rb
test/test_object_model_alphanumeric.rb

Rakefile

require 'rake/testtask'

Rake::TestTask.new

task :default => "test"

こんな感じ．

で，Perl で書き直してみた．

Makefile.PL
lib/ObjectModel/Alphanumeric.pm
t/ObjectModel_Alphanumeric.t

Makefile.PL

use inc::Module::Install;

name 'ObjectModel-Alphanumeric';
all_from 'lib/ObjectModel/Alphanumeric.pm';

WriteAll;

lib/ObjectModel/Alphanumeric.pm

package ObjectModel::Alphanumeric;

use strict;
use warnings;

# Perl5 は，そもそもネイティブなオブジェクト指向言語ではないので
# autobox を使って，スカラにメソッドを刺せるようにする
sub to_alphanumeric {
    ($_ = shift) =~ s/[^\w\s]//g;
    $_;
}

1;

t/ObjectModel_Alphanumeric.t

#!/usr/bin/env perl

use strict;
use warnings;

use Test::More;
use FindBin;
use lib qq|$FindBin::Bin/../lib|;

use ObjectModel::Alphanumeric;
use autobox SCALAR => 'ObjectModel::Alphanumeric';

is(ObjectModel::Alphanumeric::to_alphanumeric('#3, the *Magic, Number*?'), '3 the Magic Number');
is('#3, the *Magic, Number*?'->to_alphanumeric(), '3 the Magic Number');

done_testing;