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

SOURCE

    if { [string index [string trim $line] 0] eq "#" } {
        return 1
    } else {
        return 0
    }
}