TABLE OF CONTENTS
::pwtk::is_comment
SYNOPSIS
proc ::pwtk::is_comment {line} {
PURPOSE
Check if the input 'line' is a comment (i.e., if its first non-whitespace character is #).
RETURN VALUE
- 1 or 0
SOURCE
if { [string index [string trim $line] 0] eq "#" } { return 1 } else { return 0 } }