Lispp公司

Freerefill · 发表于 2022-7-6 12:28:37

回到我那堆不寻常的问题上来。

我的批处理例程可以接受来自用户的字符串，这些字符串本质上是LISP代码。当然，可以计算这些字符串，并运行LISP代码。问题是，如果用户输入的命令格式不正确怎么办？假设他们输入“I love to sing-a，about the moon-a in the June-a in the spring-a”，而不是“（vl cmdf“circle”（getpoint）5）”。我需要一种方法来确定他们键入的是不是有效的LISP代码（因此这个线程的标题）。

我做了一些思考，只有两种方法可以解决这个问题，但它们都不完全令人满意。第一个是测试字符串是否可以作为有效列表读取，这是一种（listp（read））思想。如果命令格式正确，这将起作用，因为以这种方式输入的所有命令在通过“读取”函数传递时，将返回一个列表。然而，如果用户键入了一个列表，这将始终返回true，这意味着它不会检查它是否为有效代码。另一种方法是使用eval函数，它几乎完全实现了我试图实现的功能，只是我不希望代码实际被评估。我只是想检查一下，看看是否可以评估。

回想起来，这是一个小错误，尤其是因为一个拼写错误可能会毁掉整个作品（假设有人拼写错了“circle”，它仍然是有效的LISP代码，但无法正常运行），但它激起了我的好奇心。有什么想法吗？

Lee Mac · 发表于 2022-7-6 12:37:52

好问题，但我可以看到一些限制。。。

当然，您可以使用以下方法检查有效列表：

copy


(vl-consp (read <string> ))

但是，正如您所说，这只能确定用户是否输入了列表。

我的第二个想法是：

copy


(vl-catch-all-error-p
 (vl-catch-all-apply 'eval (list (read <string>))))

并检查是否抛出错误，但当然，这意味着要评估有问题的代码。。。

Glen Smith · 发表于 2022-7-6 12:47:35

如果有10个以上的字符，其中一个不是括号，那么这显然不是有效的LISP代码。

你能试着在测试循环中评估它一次吗？如果它失败了，就返回无效？

对不起，我真的没有一个好答案，只是必须是一个聪明的亚历克。

格伦

Lee Mac · 发表于 2022-7-6 12:51:39

我怀疑你能在不计算代码的情况下检查错误-否则我认为VLIDE会有一个内置的函数。。

但是，如果你对它进行评估，它不仅会做它编程要做的事情，你还将依赖于它可能拥有的任何用户输入。。。

Freerefill · 发表于 2022-7-6 12:57:11

我们都可以看到这是两种方式之一。

检查它是否是一个列表，检查它是否有相同数量的开括号和闭括号，等等，等等。基本上，把它拆开，按件建立一张有效的支票。

或者，自上而下：使用eval函数，但捕获所有“活动”，因此实际上什么都没有做。

后者看起来确实更简洁、更容易，因为在我看来，前者需要对照一长串有效选项进行检查，以至于几乎不可能实现。

我想知道。。是否可以将代码写入脚本，运行脚本，然后撤消所有活动？我在某个地方读到，一次“撤消”将撤消脚本中的所有操作。这将允许进行评估（因此，进行测试），最终不会进行任何更改。我认为它必须是一个脚本，因为如果它是直接的LISP，就没有办法知道做了多少更改。你怎么认为？

*编辑*单个撤消可能不起作用。谁知道呢，也许什么都没做。

Lee Mac · 发表于 2022-7-6 13:04:56

为什么要使用脚本？

如果要测试代码，然后撤消更改，只需使用vla StartUndoMark/EndUndoMark或（命令“.undo”“\u begin”）/（…“\u end”）

但是，为了检查错误，您需要将代码包装在vla-catch-all-apply语句中，因此，我想您只会在标记错误时使用“undo”。