Pasted

### EmptyVar.tcl 1.2.3 MfFd8Fqd
 
#REQUIREMENTS
# PBinScr.tcl link
 
#LICENSE
# Copyright © 2013 Alberto Dietze "DoctorD90"
#
#    This program is free software: you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
# Full GPLv3 Text: http://www.gnu.org/licenses/gpl.txt
 
#PATERNITY
#Coder: DoctorD90
#Network: irc.OnlineGamesNet.net
#Chan: #eHito
#Mail: [email protected]
 
#PURPOSE
#Check if variable is empty
 
#USAGE
#Put in your proc:
#-If var is string:
#  if {[nullstring $var]} { your proc }
#-If var is list
#  if {[nulllist $var]} { your proc }
 
 
### DON'T EDIT ANYTHING BELOW ###
 
proc nullstring {var} {
  if {![string length [string trim $var]]} {
  } else {
    return 1
  }
    return 0
}
 
proc nulllist {var} {
  if {![llength $var]} {
    return 1
  } else {
    return 0
  }
}
 
proc nullvar {var} {
  if {[info is list $var] && ![llength $var]} {
    set s 1
  } elseif {![info is list $var] && ![string length [string trim $var]]} {
    set s 1
  } else {
    set s 0
  }
  return $s
}
 
# if {[string is list -strict $str]} { # it's a list } elseif {[string is string -strict $str]} { # it's a string } else { # it's a something else } 
 
###
putlog "EmptyVar.tcl LOADED"