#!/usr/local/bin/tclsh
set files [open "FILES" r]
while {[gets $files filename]>-1}  {
  set class ""
  set type ""
  regexp {([a-z]+)-([a-z0-9]+)-(lecture|tutorial).cld} $filename ignore class filename type
  if {[string match $type "lecture"]+[string match $type "tutorial"]>0} {
    puts "Doing $filename"
    set curfile [open "$class-$filename-$type.cld" r]
    set tempfile [open "temp.file" w+]
    set done 0
    while {[gets $curfile line]>-1} {
      if {[lindex $argv 0]>0} {
        if {[regexp {^(%|ran|hol)} $line]+$done==0} {
          set done 1
          puts $tempfile "freeze"
        }
      }
      if {[regexp {^fre} $line]==0} {
        puts $tempfile $line
      }
    }
  close $tempfile
  close $curfile
  exec mv temp.file $class-$filename-$type.cld
  } { puts "Skipping $filename" }
}
