#!/usr/bin/tclsh

if [string compare $env(USER) borland]!=0 {
    cd $env(HOME)
}

set env(CVSROOT) /net/phoebus/srwebmgr/cvsroot

if ![file exists .tkcvs] {
    file copy -force /home/oxygen/BORLAND/.tkcvs-forPDR .tkcvs
}
if ![file exists .emacs] {
    file copy -force /home/oxygen/BORLAND/.emacs-forPDR .emacs
}

if [file exists APS-U ] {
    if ![file exists APS-U/PDR] {
        puts stderr "APS-U directory already exists, but no PDR. Just grabbing PDR..."
        set fdi [open "|cvs checkout APS-U/PDR" r]
        while {![eof $fdi]} {
            gets $fdi data
            puts stderr $data
        }
    } else {
        puts stderr "APS-U/PDR directory already exists, just launching tkcvs..."
    }
} else {
    puts stderr "APS-U directory doesn't exist. Creating new setup..."
    set fdi [open "|cvs checkout APS-U/PDR" r]
    while {![eof $fdi]} {
        gets $fdi data
        puts stderr $data
    }
}

if [file exists APS-U/PDR] {
    puts stderr "Done."
    cd APS-U/PDR
    exec tkcvs 
} else {
    puts stderr "Something went wrong. Seek expert help."
}

