#!/bin/sh
# the next line restarts using wish (Emacs clue: -*- tcl -*- ) \
    exec wish "$0" "$@"

# This is CDRBQ
# This file is the launcher for the rest of the program, functions are
# broken into modules by type.
global hdir

# Program home
set hdir [file dirname [info script]]

# Is this a symlink?
set sdir [info script]
while {![catch {file readlink $sdir} sdir]} {
  set hdir [file nativename [file dirname $sdir]]
}
if {[string equal $hdir .]} {set hdir [pwd]}

# Source libraries

source "$hdir/interface.tcl"
source "$hdir/burnlib.tcl"
source "$hdir/audiolib.tcl"
source "$hdir/genlib.tcl"
source "$hdir/helplib.tcl"

set custom(from) {}
set custom(to) {}
set custom(use) 0
#Initialize preferences and load last saved values
pref_init 1
pref_load 1
global tmp

#Start the whole enchelada
interface





