newLISP FOOP 类的方法以及实现

定义类的方法

创建类的方法和创建类的构造函数几乎一样，只是方法名称不再是类的名称而已。比如：

;; class methods for rectangles

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

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

用save可以将一个类保存到文本文件中，比如下面有一个类Graph

;; @syntax Class Graph
;; @description FOOP class Graph
(new Class 'Graph)

;; @syntax (Graph:create nodes edges)
;; @description Create a Graph object from Nodes and Edges.
(define (Graph:create nodes edges)
  (let ((simple-nodes (map (fn (n) (n 1)) nodes))
        (simple-edges (map (fn (e) (list (e 1) (e 2))) edges)))
    (Graph nodes
         edges
         ;; parents-alist: assocs look like (node (parent-node ...))
         (map (fn (sn)
                (list sn
                      (map first
                           (filter (fn (se) (= sn (last se)))
                                   simple-edges))))
              simple-nodes)
         ;; children-alist: assocs look like (node (child-node ...))
         (map (fn (sn)
                (list sn
                      (map last
                           (filter (fn (se) (= sn (first se)))
                                   simple-edges))))
              simple-nodes))))

(save "graph.txt" 'Graph) 方法生成了graph.txt，内容如下：

(context 'Graph)

(define (Graph:Graph )
  (cons (context) (args)))

(define (create MAIN:nodes MAIN:edges)
  (let ((MAIN:simple-nodes (map (lambda (MAIN:n) (MAIN:n 1)) MAIN:nodes)) (MAIN:simple-edges 
     (map (lambda (MAIN:e) (list (MAIN:e 1) (MAIN:e 2))) MAIN:edges))) 
   (Graph MAIN:nodes MAIN:edges (map (lambda (MAIN:sn) (list MAIN:sn (map first (
         filter 
         (lambda (MAIN:se) (= MAIN:sn (last MAIN:se))) MAIN:simple-edges)))) MAIN:simple-nodes) 
    (map (lambda (MAIN:sn) (list MAIN:sn (map last (filter (lambda (MAIN:se) (= MAIN:sn 
           (first MAIN:se))) MAIN:simple-edges)))) MAIN:simple-nodes))))
(context MAIN)

在两个(context)语句之间的是默认构造函数和create方法。

这里可以看出，类不会保存任何对象属性，因为那其实只是一个普通的list，开头第一个子元素是类的名字而已。

多态的运用

前一篇已经说过，这里的多态与继承无关，而是使用一个方法的名称，可以调用不同类的同名方法。比如：

(:area myrect) → 200 
(:area mycircle) → 314.1592654 

方法area用：号前缀， 后面紧跟对象，第一个表达式是myrect，因此调用的是Rectangle:area，第二个调用的是Circle:area方法。