xref: /Universal-ctags/Units/parser-tcl.r/dollar-in-regex.d/input.tcl (revision 6d139d9b85bcf8b3dea5e3d3e6593ec5db9cc8ef)
1# Taken from #2627 submitted by @surmish
2proc proc1 {} {
3  if {[regexp {[0-9]$} ""]} {
4    echo "matched"
5  }
6}
7
8proc proc2 {} {}
9
10proc proc3 {} {
11    set abc "hello"
12    puts ${abc}
13}
14
15proc proc4 {} {}
16
17proc3
18