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

proc unTokenize line {

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

	return "$line"

}

