svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Fixed parsing procedure with names like ::proc::name or proc_na::me(aa) and parameters {{} {} {}}

Browse Source
This commit is contained in:
Sergey Kalinin
2018-02-15 17:04:11 +03:00
parent 794ea04f2e
commit 1748933767
5 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/editor.tcl
View File

@@ -948,7 +948,10 @@ proc EditFile {tree node fileName} {
}
###################
if {[regexp -nocase -all -line -- {proc (.*) \{(.*)\}} $line match procName params]} {
#regexp -nocase -all -line -- {proc (::|)(\w+)(::|)(\w+) \{(.*)\} \{} string match v1 v2 v3 v4 v5
#regexp -nocase -all -line -- {proc (.*) \{(.*)\}} $line match procName params
if {[regexp -nocase -all -line -- {proc (::|)(\w+)(::|)(\w+) \{(.*)\} \{} $line match v1 v2 v3 v4 params]} {
set procName "$v1$v2$v3$v4"
lappend procList($activeProject) [list $procName [string trim $params]]
puts "proc $procName $params"
}
@@ -1281,5 +1284,6 @@ GetOp