请问各位大神，有没有可以方便地检查TCL脚本的语法的工具？

barpdista

本人做TCL的脚本，经常需要花很多时间检查语法的Bug，很浪费时间，用什么工具可以检查TCL语法？或者什么方法可以方便的查处错误。
自己平时做都是一行一行地puts。

林瑞

用TCLpro debug

hwynhh@163.com

同问，楼主作为过来人能指点一下吗

Challensys

国产 TclOK 工具可以完成这类检查。比如检查最近流行的 贪吃蛇脚本 ：

   

        

            
1. TclOK(TM) Script Checker
   
2. Copyright(c) 2025, Challensys, Ltd. All rights reserved.
   
3. 
   
4. Version:     v2025.06-Alpha3, build 2025/07/23
   
5. Date:        2025/08/02 16:23:07 / PID 5223
   
6. Host:        wenhengdeMacBook-Air.local / 8 Threads
   
7. Launch:      tclok -v snake.tcl -log tclok.log
   
8. Feedback:    support@challensys.com
   
9. 
   
10. Info: checked out license 'FusionShell-Lint'. (LIC-CO)
    
11. 
    
12. checking: set ::grid_size 20
    
13. checking: set ::cell_size 10
    
14. checking: set ::snake { {5 5} {5 6} {5 7} }
    
15. checking: expr int(rand()*15)
    
16. ( expr ): { int(rand()*15) }
    
17. ( expr ): <internal> ::tcl::mathop::* 0.5162100800708124 15
    
18. ( expr ): <internal> ::tcl::mathfunc::int 7.743151201062186
    
19. ( expr ): <internal> return 7
    
20. checking: expr int(rand()*15)
    
21. ( expr ): { int(rand()*15) }
    
22. ( expr ): <internal> ::tcl::mathop::* 0.7671742836157501 15
    
23. ( expr ): <internal> ::tcl::mathfunc::int 11.507614254236252
    
24. ( expr ): <internal> return 11
    
25. checking: list 7 11
    
26. checking: set ::food {7 11}
    
27. checking: set ::direction RIGHT
    
28. checking: set ::game_over 0
    
29. checking: catch {delete_obj [get_db gui_shapes]}
    
30. checking: get_db gui_shapes
    
31. <info> line 8: calling unknown command 'get_db', returning result will be unknown.
    
32. checking: delete_obj ...
    
33. <info> line 8: calling unknown command 'delete_obj', returning result will be unknown.
    
34. checking: catch {delete_obj [get_db gui_texts]}
    
35. checking: get_db gui_texts
    
36. checking: delete_obj ...
    
37. checking: proc create_game_area {} ...
    
38. checking: proc delete_game_element name ...
    
39. checking: proc create_snake_segment {x y} ...
    
40. checking: proc create_food {x y} ...
    
41. checking: proc move_snake {} ...
    
42. checking: proc check_collision pos ...
    
43. checking: proc key_control key ...
    
44. checking: bindKey Up {key_control Up}
    
45. <info> line 116: calling unknown command 'bindKey', returning result will be unknown.
    
46. checking: bindKey Down {key_control Down}
    
47. checking: bindKey Left {key_control Left}
    
48. checking: bindKey Right {key_control Right}
    
49. checking: create_game_area
    
50. in_proc: expr 20 * 10
    
51. ( expr ): { 20 * 10 }
    
52. ( expr ): <internal> return 200
    
53. in_proc: list 0 0 200
    
54. in_proc: expr 20 * 10
    
55. ( expr ): { 20 * 10 }
    
56. ( expr ): <internal> return 200
    
57. in_proc: create_gui_shape -name boundary -layer M1 -rect {0 0 200} 200\]
    
58. <info> line 15: calling unknown command 'create_gui_shape', returning result will be unknown.
    
59. in_proc: foreach segment { {5 5} {5 6} {5 7} } ...
    
60. in_proc: lassign {5 5} x y
    
61. in_proc: create_snake_segment 5 5
    
62. in_proc: expr 5 * 10
    
63. ( expr ): { 5 * 10 }
    
64. ( expr ): <internal> return 50
    
65. in_proc: set x1 50
    
66. in_proc: expr 5 * 10
    
67. ( expr ): { 5 * 10 }
    
68. ( expr ): <internal> return 50
    
69. in_proc: set y1 50
    
70. in_proc: expr 50 + 10 - 1
    
71. ( expr ): { 50 + 10 - 1 }
    
72. ( expr ): <internal> ::tcl::mathop::- 60 1
    
73. ( expr ): <internal> return 59
    
74. in_proc: set x2 59
    
75. in_proc: expr 50 + 10 - 1
    
76. ( expr ): { 50 + 10 - 1 }
    
77. ( expr ): <internal> ::tcl::mathop::- 60 1
    
78. ( expr ): <internal> return 59
    
79. in_proc: set y2 59
    
80. in_proc: list 50 50 59 59
    
81. in_proc: create_gui_shape -name snake_5_5 -layer M2 -rect {50 50 59 59}
    
82. <info> line 34: result of command call is 'UNKNOWN_returned_by_[create_gui_shape ...]', breaking foreach loop...
    
83. in_proc: lindex {7 11} 0
    
84. in_proc: lindex {7 11} 1
    
85. in_proc: create_food 7 11
    
86. in_proc: expr 7 * 10
    
87. ( expr ): { 7 * 10 }
    
88. ( expr ): <internal> return 70
    
89. in_proc: set x1 70
    
90. in_proc: expr 11 * 10
    
91. ( expr ): { 11 * 10 }
    
92. ( expr ): <internal> return 110
    
93. in_proc: set y1 110
    
94. in_proc: expr 70 + 10 - 1
    
95. ( expr ): { 70 + 10 - 1 }
    
96. ( expr ): <internal> ::tcl::mathop::- 80 1
    
97. ( expr ): <internal> return 79
    
98. in_proc: set x2 79
    
99. in_proc: expr 110 + 10 - 1
    
100. ( expr ): { 110 + 10 - 1 }
     
101. ( expr ): <internal> ::tcl::mathop::- 120 1
     
102. ( expr ): <internal> return 119
     
103. in_proc: set y2 119
     
104. in_proc: list 70 110 79 119
     
105. in_proc: create_gui_shape -name food -layer M3 -rect {70 110 79 119}
             

   

    复制代码