TABLE OF CONTENTS
::pwtk::squote
SYNOPSIS
proc ::pwtk::squote {str} {
PURPOSE
Quote a non-empty string with the single quotes.
RETURN VALUE
- $str quoted with single-quotes, i.e., '$str'
SOURCE
if { $str ne {} } { return '[unquote $str]' } else { return $str } }