proc smatch {text} {
  if {$text == "p"} {set ::stype 1; return 1;}
  if {$text == "s"} {set ::stype 2; return 1;}
  if {$text == "t"} {set ::stype 3; return 1;}
  if {$text == "u"} {set ::stype 4; return 1;}
  if {$text == "n"} {set ::stype 5; return 1;}
  if {$text == "j"} {set ::stype 6; return 1;}
  if {$text == "f"} {set ::stype 7; return 1;}
  if {$text == "a"} {set ::stype 8; return 1;}
  return 0;
}

----------------------------------------------

proc smatch {text} {
  if {($text == "p") || ($text == "planet")} {set ::stype 1; return 1;}
  if {($text == "s") || ($text == "surface")} {set ::stype 2; return 1;}
  if {($text == "t") || ($text == "tech")} {set ::stype 3; return 1;}
  if {($text == "u") || ($text == "unit")} {set ::stype 4; return 1;}
  if {($text == "n") || ($text == "news")} {set ::stype 5; return 1;}
  if {($text == "j") || ($text == "jgp") || ($text == "jgp")} {set ::stype 6; return 1;}
  if {($text == "f") || ($text == "fs") || ($text == "fleet")} {set ::stype 7; return 1;}
  if {($text == "a") || ($text == "adv") || ($text == "advanced")} {set ::stype 8; return 1;}
  return 0;
}