#質問です。gaucheでdefine-classで定義したclassを文字列からインスタンス生成したいのですがどうすればいいでしょうか。
##ありがとうございます。
#すいません。ただ、makeに文字列を渡しても、Error: no applicable method for #<generic make (1)> with arguments ("hoge")と言われてしまうんですが、なにか勘違いしていますかね。
#(make クラス :スロット 値) という要領で。
###クラス名を " で囲まずに make に渡します。
#「文字列から」っていうのはクラス名を文字列で渡したいという話だったのか…。 質問を勘違いしてたかも。
#ありがとうございます。すみません、そうです。説明が下手で申し訳ありません。
#perlでいうところの require "$file.pm";
#してから$class->newというような形なんですが。
#perl 知らないのでわかんないや… (´･ω･`)
###ちょっと状況が理解できてないんですけど、 global-variable-ref 的な話かなぁ。
#おお、higeponさんありがとうございます。これで出来そうです。
#クラス名が文字列として変数に束縛されていて、その変数からインスタンスを作りたいみたいな感じかなと。
#動的に外部から渡された文字列からインスタンスを生成するのはgaucheではどうすればいいのかなと思いまして。あまりこういったことはやらないのですかね。
#上の higepon さんのコードだと new に文字列をリテラルで渡さないと駄目だと思うので、変数に入っている文字列からなら string->symbol して global-variable-ref に渡してクラスオブジェクトを取り出す必要があります。
#Gauche 的にはスジの悪い方法だと言えると思います。
#あらら。
#確かにそうだ。
#なるほど。
#Gauche に裏口ないかなあ。
#とりあえず、別の方法を模索してみます。ありがとうございました。
#global-variable-ref だと自由度が高過ぎるので、define-class を一段 wrap して 名前→クラス の対応をハッシュテーブルに書き込んでおいて、あとから参照できるようにするとかですかねえ
#(define classes (make-hash-table 'string=?))
(define (class-named name)
(hash-table-get classes name #f))
(define-syntax define-class+
(syntax-rules ()
((_ name . rest)
(begin
(define-class name . rest)
(hash-table-put! classes (symbol->string 'name) name)))))
(define-class+ <foo> () ())
(make (class-named "<foo>"))#みたいな
#ちょっとだけ似たようなことを考えていました。でもlequeさんのやつのほうがいいですね。参考にさせてもらいます。
#あれれまたtwitter bridgeが止まってたみたい。
#global-variable-refを使わざるを得ない場面もあるにはあると思います。(cf. lib/dbm.scmの dbm-type->class これは必要なモジュールのロードまでやってますが、ある程度命名規則に寄りかかってる感じ。)
Gauche > Archives > 2010/12/14