使用 Progress 4GL 防止调试代码投入生产？

Question

使用 Progress 4GL 时，如何防止调试代码块意外泄漏到生产环境中？

Answer 1

我通常只发布一个特殊事件 - 调试消息。 在我的开发环境中，应用程序中有一个菜单项，它将启动一个窗口，该窗口在任何地方订阅调试消息并显示生成的任何消息。 因此，我可以将调试消息插入到我的代码中，然后如果我想查看这些消息，则打开窗口。 如果我忘记整理调试代码，那么实时用户将看不到任何消息，尽管我仍然可以打开调试窗口来查看发生了什么。

（此版本的 webspeed 只会将输出写入操作系统文件）

Answer 2

如果您的测试数据库和生产数据库具有不同的名称，您可以使用以下代码：

IF DBNNAME = "TESTDB" THEN
DO:
  <DEBUG CODE>
END.

Answer 3

与我关于断言的其他答案类似，您可以设置一个包含，该包含在包含调试标志的生产站点上将为空。 在开发站点上，您只需定义该值，以便将调试代码包含在您的程序中。

通过将代码包装在预处理器中，当您将其编译到生产站点时，编译器将完全省略调试代码。

&如果已定义( debugalert ) <> 0 &然后
<代码>
&endif

然后，您可以在要包含调试代码的代码版本中使用“&global-define debug”。 不定义“debug”会导致编译器忽略代码。

---

/* debug.i 在生产中省略以下内容 */

&GLOBAL-DEFINE DEBUGALERT

---

/* test.p */
{debug.i}

DEF VAR h_ct AS INT NO-UNDO

DO h_ct = 1 TO 10:

&IF DEFINED( DEBUGALERT ) <> 0 &THEN

    MESSAGE "debug message" h_ct.
    <debug code goes here>

&ENDIF

结束。

Answer 4

解决方案基于这样的假设：开发环境具有唯一的 propath 条目，该条目在其他环境中不可用，并且代码在移动时会重新编译：

&IF DEFINED(DEBUGGING) = 0 &THEN
    &IF PROPATH MATCHES '*development*' &THEN 
        &GLOBAL-DEFINE DEBUGGING TRUE
    &ELSE
        &GLOBAL-DEFINE DEBUGGING FALSE
        &MESSAGE Remove debugging: search for DEBUG within the code. 
    &ENDIF        
&ENDIF                                

&IF DEFINED(DEBUGGING_STARTED) = 0 &THEN
    &GLOBAL-DEFINE DEBUGGING_STARTED TRUE
    IF {&DEBUGGING} THEN
    DO:
&ELSE
    END.
    &UNDEFINE DEBUGGING_STARTED
&ENDIF

用法

将文件另存为“debug”（不带扩展名）到propath指向的目录，则：

{debug}

 /* some debugging code here */

{debug/}