#!/usr/local/bin/tclsh
set coursename ""

set files [open "|ls ../Classes" r]
set list [open "../Lists/llm-tutorials.cld" w+]
while {[gets $files line]>-1} {
  if {[regexp {(llm-.*-tutorial).cld} $line ignore coursename]} {
    puts "list $coursename {}"
    puts $list "list $coursename {}"
  }
}
close $files
close $list

set files [open "|ls ../Classes" r]
set list [open "../Lists/llm-lectures.cld" w+]
while {[gets $files line]>-1} {
  if {[regexp {(llm-.*-lecture).cld} $line ignore coursename]} {
    puts "list $coursename {}"
    puts $list "list $coursename {}"
  }
}
close $files
close $list

set files [open "|ls ../Classes" r]
set list [open "../Lists/ug-tutorials.cld" w+]
while {[gets $files line]>-1} {
  if {[regexp {(ug-.*-tutorial).cld} $line ignore coursename]} {
    puts "list $coursename {}"
    puts $list "list $coursename {}"
  }
}
close $files
close $list

set files [open "|ls ../Classes" r]
set list [open "../Lists/ug-lectures.cld" w+]
while {[gets $files line]>-1} {
  if {[regexp {(ug-.*-lecture).cld} $line ignore coursename]} {
    puts "list $coursename {}"
    puts $list "list $coursename {}"
  }
}
close $files
close $list

set files [open "|ls ../Committees" r]
set list [open "../Lists/soas-committees.cld" w+]
while {[gets $files line]>-1} {
  if {[regexp {(.*).cld} $line ignore coursename]} {
    puts "list $coursename {}"
    puts $list "list $coursename {}"
  }
}
close $files
close $list

