# $Header: /home/cvsroot/tcldb/ucodb/Tlib/Tokenize,v 1.2 1997/07/24 06:24:43 de Exp $
# tcl procs saved on Sun Sep 03 16:19:03 PDT 1995

proc Tokenize line {

      regsub -all "\{" $line "LCB" line
      regsub -all "\}" $line "RCB" line
      regsub -all "\\\(" $line "LPA" line
      regsub -all "\\\)" $line "RPA" line
      regsub -all "\\\$" $line "EVV" line
      regsub -all "\\\[" $line "LSB" line
      regsub -all "\\\]" $line "RSB" line
      regsub -all "\"" $line "QQ" line
      regsub -all "\;" $line "SCO" line
      regsub -all "\\\\" $line "BSL" line

	return "$line"

}

