Untitled

#------------ Ищет в словаре  слово
proc ::words::search word {
global
  set file [lindex [split $word] 1]
  set word [lrange $word 0 end]
  set wordsi 0
  set wordsline 0
  #putlog "Поиск:\[$word\]..."

  set file [open "data/$wordsdatabase" r]
  while {[gets $file b]>-1} {
                incr wordsline
    if {[string match -nocase $word $b]} {
      incr wordsi
          set wordsfindline $wordsline
    }
  }
  close $file
  if {$wordsi} {return 1} else {return 0}
}


proc ::words::add {  } {
::words::search
}

proc ::words::delete {  } {
::words::search
}

proc ::words::addcity {  } {
set wordsdatabase "city.rej"
::words::add
}
proc ::words::delcity {  } {
set wordsdatabase "city.rej"
::words::add
}
proc ::words::addname {  } {
set wordsdatabase "name.rej"
::words::add
}
proc ::words::delname {  } {
set wordsdatabase "name.rej"
::words::add
}