yfchen1003 发表于 2019-4-17 08:40:29

SKILL用什么工具调试

初学SKILL，大家用什么工具调试。谢谢大家

.vEフ_oo_侽生、 发表于 2019-4-18 20:14:55

;-----调试函数
procedure( gtopen_Debugfun()
let((tt)
;------将需要调试的il文件到这里。
;------ctrl+1是加载，ctrl+2是运行。
        load(strcat(gtopen_global->InstallPath "/code/gtopen_calculator.il"))
        gt_calculator_main()
t
)
)



;------环境定义
procedure( gtopen_int()
let((file port InstallPath)
        unless(boundp('gtopen_global)
                defvar(gtopen_global nil)
                gtopen_global = ncons(nil)
        )
        InstallPath = nil
        file = strcat(buildString(parseString(getShellEnvVar("HOME") "\\") "/") "/pcbenv/allegro.ilinit")
        port = infile(file)
        while(gets(n0 port)
                when(rexMatchp("load.*gtopen_main.il\")+" n0)
                        InstallPath = car(axlDMFileParts(cadr(parseString(n0 " ()\t\n\""))))
                        InstallPath = buildString(reverse(cdr(reverse(parseString(InstallPath "/\\")))) "/")
                )
        )
        close(port)
        gtopen_global->InstallPath = InstallPath
)
)
gtopen_int()
axlSetAlias( "~1" "skill load(strcat(gtopen_global->InstallPath \"/Code/gtopen_main.il\"))")
axlSetAlias( "~2" "skill gtopen_Debugfun")

.vEフ_oo_侽生、 发表于 2019-4-18 20:15:10

调试代码 收好

yfchen1003 发表于 2019-4-19 08:29:53

.vEフ_oo_侽生、 发表于 2019-4-18 20:15
调试代码 收好

谢谢！！！！！！！！！！！！！！

.vEフ_oo_侽生、 发表于 2019-4-19 22:14:07

yfchen1003 发表于 2019-4-19 08:29
谢谢！！！！！！！！！！！！！！

不用谢 论坛里面找的

f126054488 发表于 2019-4-25 15:09:58

感謝分享
页: [1]
查看完整版本: SKILL用什么工具调试