6 lines
148 B
Tcl
6 lines
148 B
Tcl
|
# Multi-line string constant
|
||
|
|
set input "apples, pears # and bananas
|
||
|
|
apples, pears ; and bananas"
|
||
|
|
# Do the stripping
|
||
|
|
puts [stripLineComments $input]
|