*!  version 1.0.0 \ jsl 2008-10-18
//  pgm:        wd.ado
//  task:       general program to change the working directory
//  project:    workflow chapter 4
//  author:     jsl \ 2008-10-18
//  note:       this is based on mcd.ado by david drukker

capture program drop wd
program define wd
    version 10
    args dir
    if "`dir'"=="wf" {
        cd e:\workflow\work
    }
    else if "`dir'"=="spost" {
        cd e:\spost\work
    }
    else if "`dir'"=="scratch" {
        cd d:\scratch
    }
    else if "`dir'"=="" { // list current working directory
        cd
    }
    else {
        display as error "Working directory `dir' is unknown."
    }
end
exit