本文主要是介绍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 nodesedges;; 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方法。
这篇关于newLISP FOOP 类的方法以及实现的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!