外部读取问题

jiucheng01

read_tt如果以下面的方式写出，则laynm为nil，如果read_tt函数后加句（princ），则能正确读出laynm。不知道什么原因，特向大家请教下。
(defun read_tt(confile0 / confile x)
  (setq confile (open confile0 "r"))
(setq aa (repeat 3 (read-line confile)))
(foreach x
  '(bb cc dd ee ff gg hh ii) (set x (read-line confile))
)
(close confile)
)
(defun c:tt()
(if (setq confile0 (findfile "D:\\tt.ini"))
    (if (read_tt confile0) (setq laynm (print (list aa bb cc dd ee ff gg hh ii))))
))

Lispboy

你的函数

(if (read_tt confile0)

这个语句要依靠函数read_tt的返回值是非NIL，才能进入setq laynum里面。

所以你要保证read_tt函数的返回值非NIL了

jiucheng01

Lispboy 发表于 2013-8-3 12:19
你的函数

(if (read_tt confile0)

当read_tt中不加入（princ）时，返回的为nil，反之为t。是否跟princ的关系比较大，还是我函数写错格式。

Lispboy

jiucheng01 发表于 2013-8-3 12:25
当read_tt中不加入（princ）时，返回的为nil，反之为t。是否跟princ的关系比较大，还是我函数写错格式。
...

和你函数写的没什么关系，主要是READ_TT函数最后一个函数的返回值的问题，你把读取文件进来的表作为函数最后返回数据表就行了，如果你能保证肯定有数据读入，哪怕最后直接给个T返回也可以。

Lispboy

你把这个

(list aa bb cc dd ee ff gg hh ii)

作为返回值。

jiucheng01

Lispboy 发表于 2013-8-3 12:50
你把这个

(list aa bb cc dd ee ff gg hh ii)

谢谢lispboy，(list aa bb cc dd ee ff gg hh ii)作为结尾都是有返回值的，还是应了你的那句，必须有返回值才能向后传递。{:soso_e144:}而（princ）也是ok。
princ

在命令行打印表达式，或将表达式写入已打开的文件中

(princ [expr [file-desc]])

本函数的功能和 prin1 函数几乎相同，但本函数将使用 expr 中的控制字符的功能而不是照原样打印它们。一般，prin1 打印表达式的方式与 load 函数兼容，而 princ 打印的表达式则可以被 read-line 等函数读取。

newer

jiucheng01 发表于 2013-8-3 13:29
谢谢lispboy，(list aa bb cc dd ee ff gg hh ii)作为结尾都是有返回值的，还是应了你的那句，必须有返 ...

因为你用IF了吗，所以必须有值才能进入分支啊。

eachy

read-line就像一个指针，遇回车结束自动移到下一行，文档结束read-line也就结束了

jiucheng01

newer 发表于 2013-8-3 17:17
因为你用IF了吗，所以必须有值才能进入分支啊。

说的太对了。{:soso_e179:}

mrycm

你的函数有很多不完善的地方，建议改进。1，首先要确定什么情况下直接返回t，其余情况返回nil；2，先要判断传过来的参数文件是否存在，不存在则返回nil（未能成功读取相关参数）；3，相关文件是否能正常打开，返回值同理；4，是否正常读取相关参数（也可留在调用程序去处理，这里只管读，还要考虑空文件的情况）；还有一些出错的情况。这样，你的函数才是一个完善的函数。函数最后一句采用(pinc)始终是返回t，这要考虑对后续程序的影响。