Christoph/nx_post_support
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects 1 Releases 25 Wiki Activity

update

Browse Source
This commit is contained in:
Christoph Brandau
2025-08-01 13:35:02 +02:00
parent 98e2d104a8
commit 5e2e85830b
6 changed files with 178 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/test.tcl
+12 -2
View File
@@ -5,21 +5,31 @@ if {$main == 1 && 1 == 1} {
proc test {} {
puts "main"
proc llll {} {}
set rrrrrrr
}
LIB_GE_command_buffer_edit_insert MOM_tool_change_LIB TOOL_CHANGE_AUTO {CUSTOM_after_tool_change_call} mytag after @TOOL_CHANGE_AUTO
MOM_abort
namespace eval myns {
proc add {a b} {
set sum [expr {$a + $b}]
return $sum
}
set config "debug"
}
#_________________________________________________________________________________________________
# <Documentation>
# Function to output a spacer line or empty line
#_________________________________________________________________________________________________
proc SERVICE_spacer_output {type {length 20} {line_num 0} {output 1} check} {
proc SERVICE_spacer_output {type {length 20} {line_num 0} {output 1}} {
LIB_GE_message [string repeat $type $length] "output_$output" $line_num
}
SERVICE_spacer_output "*" 50 0 1
SERVICE_remove_file $filename
#_________________________________________________________________________________________________
# <Documentation>