[原创]发布一个的程序

tengte

有经验的编程人员都有一个好习惯：程序的函数和变量都要有封装性，尽量少用全局的函数和变量，以防止不同程序之间发生冲突。而LSP程序的封装性比较差，为了检查程序中用到的函数和变量的作用域，特编写这个程序，现发布出来与网友共享。希望有人能够喜欢和支持，并提出意见，以便改进和完善，谢谢！

 

用法：先加载Common.fas和解析LSP程序的变量和函数.fas，再执行tbP命令即可。

实例：以附件中的＜测试文件.lsp＞为例，结果生成＜测试文件.lsp.txt＞，其内容如下：

★语句完整★

函数名:nil
全局变量:
继承变量:
局部变量:
未用变量:
符号表:
私有子函数:
重载子函数:C:tbCount

函数名:C:tbCount
全局变量:
继承变量:
局部变量:
未用变量:fuzz
符号表:
私有子函数:Main Unique
重载子函数:

函数名:C:tbCount.Main
全局变量:
继承变量:fuzz
局部变量:lst tmp ids2 ids1 acme2 acme1 enType en el SSet SS
未用变量:
符号表:
私有子函数:
重载子函数:

函数名:C:tbCount.Main.lambda
全局变量:
继承变量:en
局部变量:x
未用变量:
符号表:
私有子函数:
重载子函数:

函数名:C:tbCount.Main.lambda
全局变量:
继承变量:en
局部变量:x
未用变量:
符号表:
私有子函数:
重载子函数:

函数名:C:tbCount.Unique
全局变量:
继承变量:
局部变量:lst b el a
未用变量:
符号表:
私有子函数:
重载子函数:

函数名:C:tbCount.Unique.lambda
全局变量:
继承变量:fuzz b a
局部变量:x
未用变量:
符号表:
私有子函数:
重载子函数:

carrot1983

很好，支持一下。

能不能讲一下怎么解析的？？？

nonsmall

支持

不知道是否支持set函数定义的变量

目前的编辑器都没有支持set函数变量定义的解析

tengte

回3楼，我没有特别针对set函数变量定义的解析，但可能会将其归为符号表中。

至于解析的原理，很简单：先读取源程序，再根据LISP的语法分解出各部分，利用堆、栈及递归调用，结合上下文，逐个分析每部分的含义，以区别符号、函数、变量说明、参数、注释、字符串、表等。

感兴趣的朋友可以测试一下。

caoyin

还有一种思路，不知是否可行，缺点可能速度太慢：

1.储存当前所有符号

 (setq symlst (atoms-family 0)
       vallst (mapcar 'eval symlst)
 )

2.运行测试程序：

3.获取新符号列表

 (setq newSymlst (atoms-family 0)
       newvallst (mapcar 'eval newsymlst)
 )

 比较 vallst 和 newsymlst 得到新产生的符号和变化的符号
 这就是我们要得到的东东

4.恢复原有符号

  (mapcar '(lambda (a b) (set a b))
          symlst
          vallst
  )

tengte

回6楼和7楼：

你说的把参数变成局部变量这个问题确实存在，我在变量的分类时，是按其作用域分的，参数与局部变量的作用域是一样的，所以都放在一起，当然也可以将其分开。但你说这样会把人害惨，我认为没有这么严重吧，这个程序是用来检查LSP程序的变量和函数作用域的辅助工具，不会有人根据这个结果去将参数改成局部变量吧。

至于vlax-vbDouble，难道不是全局变量吗？

还有“；；；；上面的有好多不对啊，”，请详细指出好吗？如果程序有问题，我好分析并改正程序，谢谢！

cwmfj

支持原创 ！赞一个

tengte

请各位网友测试这个程序，如果大家到源代码有兴趣，我也愿意提供。