#!/usr/local/bin/tclsh

set files [open "FILES" r]
while {[gets $files filename]>-1}  {
  set lecfile [open "ug-$filename-lecture.cld" r]
  set lname ""
  set sname ""
  while {[gets $lecfile line]>-1} {
    regexp {[0-9][0-9]:[0-9][0-9] *\{(.*)\}} $line ignore sname
    regexp {\[([^(]+)\(} $line ignore lname}
  puts "$sname : $lname"
  set tutfile [open "ug-$filename-tutorial.cld" r]
  set newtutfile [open "temp.tmp" w+]
  while {[gets $tutfile line]>-1} {
    set room ""
    regexp {\((.*)\)} $line ignore room
    regsub {([0-9][0-9]:[0-9][0-9]) *\{(.*)\}} $line \
      "\\1 \{$sname\}\n  \[$lname\($room\)\]" line
    puts $line
    puts $newtutfile $line
    }
  close $tutfile
  close $newtutfile
  exec mv temp.tmp "ug-$filename-tutorial.cld"
}
