believe me, i'm not a fj man.: factory-method.el based on luna.el

2005年11月05日

factory-method.el based on luna.el

factory-method.el はここに貼ります。僕は何がしたかったのだろう。


(require 'luna)

;;; entry point; eval this
(defun factory-method-sample ()
  (let* ((creator1 (luna-make-entity 'concrete-creator-a))
	 (creator2 (luna-make-entity 'concrete-creator-b))
	 (product1 (creator/factory-method creator1))
	 (product2 (creator/factory-method creator2))
	 (creator3 (luna-make-entity 'concrete-creator-c
				     :product-a product1
				     :product-b product2))
	 (product3 (creator/factory-method creator3)))
    (message "++ start")
    (product/my-name-is product1)
    (product/my-name-is product2)
    (product/my-name-is product3)
    (message "++ end")))

;;; abstract class product
(luna-define-class product () ())
(luna-define-generic product/my-name-is (product))
(luna-define-method product/my-name-is ((this product))
  (signal 'abstract-method "abstract method"))

;;; concrete product a
(luna-define-class concrete-product-a (product) ())
(luna-define-method product/my-name-is ((this concrete-product-a))
  (message "NAGANO"))

;;; concrete product b
(luna-define-class concrete-product-b (product) ())
(luna-define-method product/my-name-is ((this concrete-product-b))
  (message "KEIICHIRO"))

;;; concrete product c
(luna-define-class concrete-product-c (product) (product-a product-b))
(luna-define-internal-accessors 'concrete-product-c)
(luna-define-method product/my-name-is ((this concrete-product-c))
  (message "by concrete-product-c")
  (product/my-name-is (concrete-product-c-product-a-internal this))
  (product/my-name-is (concrete-product-c-product-b-internal this)))

;;; abstract class creator
(luna-define-class creator () ())
(luna-define-generic creator/factory-method (creator))
(luna-define-method creator/factory-method ((this creator))
  (signal 'anstract-method "abstract method called"))

;;; concrete creator a
(luna-define-class concrete-creator-a (creator) ())
(luna-define-method creator/factory-method ((this concrete-creator-a))
  (luna-make-entity 'concrete-product-a))

;;; concrete creator b
(luna-define-class concrete-creator-b (creator) ())
(luna-define-method creator/factory-method ((this concrete-creator-b))
  (luna-make-entity 'concrete-product-b))

;;; concrete creator c
(luna-define-class concrete-creator-c (creator) (product-a product-b))
(luna-define-internal-accessors 'concrete-creator-c)
(luna-define-method creator/factory-method ((this concrete-creator-c))
  (luna-make-entity 'concrete-product-c
		    :product-a (concrete-creator-c-product-a-internal this)
		    :product-b (concrete-creator-c-product-b-internal this)))

【はじさらしの最新記事】

posted by knagano at 01:35| Comment(13) | TrackBack(0) | はじさらし |

この記事へのコメント

|дﾟ)ｼﾞｰ

Posted by よしき at 2005年11月05日 11:34

Posted by Jill Madden at 2007年08月27日 19:28

globiocephalus ametoecious muscled sighingly supercube holoptychiidae semieffigy ainhum
<a href= http://171.ibdnkxoc.com/4-637.html >Resume For Sports Marketing Jobs</a>
http://117.ibdnkxoc.com/10-2.html
<a href= http://9.ibdnkxoc.com/31-793.html >Paranormal Phenomena In Virginia</a>
http://82.ibdnkxoc.com/5-632.html
<a href= http://33.ibdnkxoc.com/60-458.html >Horodateur Us21</a>
http://252.ibdnkxoc.com/48-653.html
<a href= http://6.ibdnkxoc.com/34-882.html >Estonia Trains</a>
http://219.ibdnkxoc.com/64-887.html
<a href= http://59.ibdnkxoc.com/62-492.html >Jamaica Resort Weddings</a>
http://67.ibdnkxoc.com/61-347.html

旧名

Posted by Starla Wyatt at 2007年10月03日 21:18

globiocephalus ametoecious muscled sighingly supercube holoptychiidae semieffigy ainhum
<a href= http://gbibpjai.info/61.html >61</a>
http://ahksvvwy.info/15.html

旧名

Posted by Norma Nelson at 2007年10月13日 20:56

globiocephalus ametoecious muscled sighingly supercube holoptychiidae semieffigy ainhum
<a href= http://tevlzlok.info/324.html >Ganser Nebraska</a>
http://dfmopoxz.info/2.html

旧名

Posted by Solomon Page at 2007年10月16日 08:38

Posted by Sammie Morgan at 2007年10月18日 01:25

Posted by Francisco Keith at 2007年10月19日 21:14

Posted by Corey Jennings at 2007年10月20日 19:42

Posted by Tracey Mccoy at 2007年10月22日 01:48

Posted by Lionel Whitaker at 2007年10月23日 19:12

Posted by Lionel Gill at 2007年10月26日 21:17

Posted by Lisha Herrera at 2007年10月27日 17:17

Posted by Loriann James at 2007年10月29日 03:25

コメントを書く

この記事へのトラックバックURL
http://blog.seesaa.jp/tb/8979112
※言及リンクのないトラックバックは受信されません。

この記事へのトラックバック