编译错误: UniData LSELECT

Question

我在火箭软件网站上找到了LSELECT程序，但我在编译它时遇到了问题。

有没有人用它成功过？

以下是错误：

:BASIC BS LSELECT

Compiling Unibasic: BS/LSELECT in mode 'm'.
main program: syntax error at or before
<line 126> GETLIST SOURCE.LIST TO 9 ELSE
           -----------------------^
Expecting: array,variable

Warning: there are some statements after END near line 132
error: the following labels are used but have not been defined:
SHOW.MESSAGE
FINISH.UP
BUILD.LIST2
LOAD.TEMP.FILE
CREATE.TEMP.FILE
  near line 243
compilation failed

Answer 1

TCL命令和基本程序有不同的风格。它允许您将代码从不同的遗留系统移植到Unidata，而不必进行完全重写。这段代码是为Unidata basic风格编写的。您可以通过执行以下操作在会话中临时切换到此状态：

:BASICTYPE "U"

或者在程序的顶部添加一个编译器指令，告诉Unidata使用哪个基本子语法。它们都非常接近，只有很小的差异。

$BASICTYPE "U"

https://docs.rocketsoftware.com/nxt/gateway.dll/RKBnew20/unidata/previous%20versions/v7.2/unidata_unibasicapplicationsdevguide_v72.pdf

Pick-style是一种常见的默认方式，因为Unidata上运行的大部分代码都是从较旧的Pick或Pick兼容的系统移植过来的。因此，许多应用程序在登录段落中设置BASICTYPE "P“和ECLTYPE "P”是为了兼容。根据"HELP BASICTYPE“的说法，M选项适用于McDonnell道格拉斯或现实口味。

ECLTYPE是另一个需要调整的常见问题-它控制如何处理某些命令参数。最有用的是DELIM或XML，它们只在ECLTYPE U中可用。这里的诀窍是，小写的命令名总是在ECLTYPE U中求值，因此您不必总是来回切换-如果您想要90年代的那些“现代”扩展，只需使用小写;-)