Trace32 在窗口的 TEXT 或 HEADER 中使用宏

Question

这里有另一个 Trace32 问题。一周前，我编写了一个新脚本，可以从一个中心位置运行我公司使用的任何命令。当我记得我正在工作的工作区时，它工作得很好(因为所有文件位置都是相对于工作区根目录的)我今天实现了以下代码:

PRINT "Workspace is &WORKSPACE"
; Select the action we want to perform.
DIALOG
(
    HEADER "Select A Task To Run"
    ; Large menu below

我已经不止一次忘记检查调试控制台，并且在忘记更改工作区时摸不着头脑。我想做如下的事情:

; Select the action we want to perform.
DIALOG
(
    HEADER &WORKSPACE

但这不能编译。尝试 HEADER "&WORKSPACE" 也不起作用，因为标题只是说 "&WORKSPACE"而不是给我实际的文件位置(C:\Files\Whatever\)。有没有办法使用宏或变量将窗口标题设置为自定义字符串？我似乎找不到解决办法。谢谢!

Answer 1

这个不错!好消息:有一个解决方案。 (但这很棘手。最终的简单替代解决方案。)

事实是，PRACTICE 脚本的宏替换在实际 PRACTICE 代码中无处不在。然而，对话描述不是 PRACTICE 代码:对话描述只是嵌入到脚本中。这就像在 HTML 文件中嵌入图像(例如通过数据 URI)。该图像也不是 HTML。

显示自定义对话框的命令是DIALOG.view <dlg-file> .然而，DIALOG.view 也可以与嵌入 block 一起使用(在圆括号中，在单独的行中)。这就是你要做的。

技巧来了:如果将左大括号替换为 (&+所有以&开头的词整个嵌入 block 内的代码将替换为 PRACTICE 宏 - 只要具有该名称的宏存在。

所以你去吧:

PRINT "Workspace is &WORKSPACE"
DIALOG
(&+
    HEADER "&WORKSPACE"
    ; Large menu here...
)

请注意，宏替换会出现在 DIALOG block 中的任何地方。这可能会导致不必要的副作用 - 特别是如果您在 DIALOG 中嵌入了 PRACTICE 代码。例如:

DIALOG
(
    BUTTON "Push me"
    (
        PRIVATE &myfile
        DIALOG.File.open *.txt
        ENTRY %LINE &myfile
        PRINT "You picked file '&myfile'"
    )
)

如果您现在启用对话 block 的宏替换，它也会替换 PRIVATE 和 ENTRY 命令的 &myfile，这通常不是您想要的。

但是，如果您明确禁用宏替换，直到使用“(&-”嵌入 DIALOG 中的 PRACTICE 脚本，它应该可以工作。所以您得到:

DIALOG
(&+
    HEADER "&WORKSPACE"        
    BUTTON "Push me"
    (&-
        PRIVATE &myfile
        DIALOG.File.open *.txt
        ENTRY %LINE &myfile
        PRINT "You picked file '&myfile'"
    )
)

其他解决方法是定义一个宏 &myfile，它实际上包含文本“&myfile”:

LOCAL &WORKSPACE &myfile
&WORKSPACE="Select A Task To Run"
&myfile="&"+"myfile"    // <- This is the trick!
DIALOG
(&+
    HEADER "&WORKSPACE"        
    BUTTON "Push me"
    (
        PRIVATE &myfile
        DIALOG.File.open *.txt
        ENTRY %LINE &myfile
        PRINT "You picked file '&myfile'"
    )
)

如果你掌握了这件事，你就接近于成为实践大师了!

---

这是自定义对话框的 TEXT 和 HEADER 的另一个更简单的解决方案:

• 在 DIALOG 命令之前用 WinPOS 命令替换 DIALOG 描述中的 HEADER 语句。
• 将DIALOG描述内的TEXT语句替换为DYNTEXT，将DIALOG描述外的文本设置为DIALOG.Set

例如:

PRIVATE &myheader &mytext
&myheader="Select A Task To Run"
&mytext="zaphod beeblebrox is an awesome frood"
WinPOS ,,,,,,,"&myheader"
DIALOG
(
  POS 0 0 30. 1
  DlgText1: DYNTEXT ""             
)
DIALOG.Set DlgText1 "&mytext"

第二种方法简单地避免了 DIALOG 描述中的宏替换。所以这不是问题的确切答案，但可能是解决实际问题的更好方法。