1, 在emacs C-x C-W 文件另存为保存所有REPL过程
由于 (load "foo.lisp")时只有定义语句可以正确执行, 执行语句不可正确被 (load "foo.lisp")解析执行
所以脚本写成了这个样子, 脚本名 parse_lisp_code.sh
#!/bin/bash
if [ -n "$1" ]; then
sed 's/CL-USER>//' $1 | expand -t 8 | egrep '^ *\(def|^ {8,}' >> "code_${1}"
else
echo "please input lisp file name"
fi
运行脚本 sh parse_lisp_code.sh cd.lisp
命令解释:
使用sed 删除提示符 CL-USER
lisp定义语句以(def 开头 或是 制表符开头, 如下
CL-USER> (defun dump-db ()$
^I (dolist (cd *db*)$
^I (format t "~{~a: ~10t~a~%~}~%" cd)))$
所以使用grep 过滤出每行开始n个空格后加(def或制表符的行,
但是发现grep 不能匹配制表符,
所以使用 expand -t 8 foo > bar 把制表符转化成8个空格
P.S. 定义出错的函数也会被提取出来
自由之思想,独立之意志