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