newLISP FOOP 对象模型

标签：newlisp   面向对象   

对象之间的关系

对象可以包含对象，就像一般面向对象的对象树一样。在lisp中，其实很简单, 因为对象就是list, 对象包含对象也就是list里面包含list，此嵌套关系可以有很多层。

下面这个例子同样来自manual

; create classes
(new Class ‘Person)
(new Class ‘Address)
(new Class ‘City)
(new Class ‘Street)

; create an object containing other objects
(set ‘JohnDoe (Person (Address (City "Boston") (Street 123 "Main Street"))))
→ (Person (Address (City "Boston") (Street 123 "Main Street")))

类的继承

可以用new来创建某个类的子类

比如下面的代码：

> (new Class ‘Bird)
Bird
> (new Bird ‘Hawk)
Hawk

> (define (Bird:fly) (println "bird fly"))
(lambda () (println "bird fly"))
> (Hawk:fly)

ERR: invalid function : (Hawk:fly)
> (Bird:fly)
bird fly
"bird fly"
> (new Bird ‘Hawk true)
Hawk
> (Hawk:fly)
bird fly
"bird fly"
> 

用FOOP构造大型程序

1. 首先是分模块编写，将类的代码按照context的写法放到不同的文件中，此举和写context没太大区别，不过在创建symbol前用类名加冒号前缀。

2. 在调用代码的地方，要用(new Class ..来创建类，之后就可以用前面介绍的调用类的方法。下面的例子来自于manual

这是调用代码：

; file MAIN.lsp - declare all classes used in MAIN

(new Class ‘Rectangle)
(new Class ‘Circle)

; start up code

(load "Rectangle.lsp")
(load "Circle.lsp")

; main control code

; end of file

; file Rectangle.lsp - class methods for rectangles

(context Rectangle)

(define (Rectangle:area)
(mul (self 3) (self 4)))

(define (Rectangle:move dx dy)
(inc (self 1) dx) 
(inc (self 2) dy))

; end of file

; file Circle.lsp - class methods for circles

(context Circle)

(define (Circle:area)
    (mul (pow (self 3) 2) (acos 0) 2))

(define (Circle:move dx dy)
    (inc (self 1) dx) 
    (inc (self 2) dy))

; end of file

有一段视频介绍了FOOP,链接地址：http://neglook.com/movies/what-the-foop-H264.mov

newLISP FOOP 对象模型

标签：newlisp   面向对象   

原文地址：http://blog.csdn.net/csfreebird/article/details/41926471