blog/content/post/2010/10/24/2010-10-24-クラスのインスタンスを作成すると...

2.5 KiB
Raw Blame History

title author date url wordtwit_post_info categories
クラスのインスタンスを作成するとき (@shibuyalisp Hackathon) kazu634 2010-10-24 /2010/10/24/_1603/
O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:5369;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}
gauche

値が束縛されているときだけ、スロットに束縛するにはどうすればいいのかなやりたいことはこういうことなんだけど、「malformed if」と怒られた:

(define-class <photo-data> ()
((width :init-keyword :width :init-value )
(url-with-slug :init-keyword :url-with-slug :init-value "")))
(define (make-photo-data-list sxml)
(make <photo-data>
;; 与えられたSXMLにwidth要素が存在するとき、スロットに値をセットしたい
;; でも、これだとエラーになる
(if ((if-car-sxpath '(// width)) sxml)
:width (cadr ((car-sxpath '(// width)) sxml))
:width )
:url-with-slug (cadr ((car-sxpath '(// url-with-slug))
sxml))))