TABLE OF CONTENTS


::pwtk::squote

SYNOPSIS

proc ::pwtk::squote {str} {

PURPOSE

Quote a non-empty string with the single quotes.

RETURN VALUE

SOURCE

    if { $str ne {} } {
        return '[unquote $str]'
    } else {
        return $str
    }
}