cdf5e6d8b7 2007-09-13       aku: # -----------------------------------------------------------------------------
cdf5e6d8b7 2007-09-13       aku: # Access to the external cvs command.
cdf5e6d8b7 2007-09-13       aku: 
cdf5e6d8b7 2007-09-13       aku: # -----------------------------------------------------------------------------
cdf5e6d8b7 2007-09-13       aku: # Requirements
cdf5e6d8b7 2007-09-13       aku: 
cdf5e6d8b7 2007-09-13       aku: package require Tcl 8.4
cdf5e6d8b7 2007-09-13       aku: namespace eval ::vc::cvs::cmd {}
cdf5e6d8b7 2007-09-13       aku: 
cdf5e6d8b7 2007-09-13       aku: # -----------------------------------------------------------------------------
cdf5e6d8b7 2007-09-13       aku: # API
cdf5e6d8b7 2007-09-13       aku: 
cdf5e6d8b7 2007-09-13       aku: # vc::cvs::cmd::dova word... - Run a cvs command specified as var args.
cdf5e6d8b7 2007-09-13       aku: # vc::cvs::cmd::do   words   - Run a cvs command specified as a list.
cdf5e6d8b7 2007-09-13       aku: 
cdf5e6d8b7 2007-09-13       aku: # -----------------------------------------------------------------------------
cdf5e6d8b7 2007-09-13       aku: # API Implementation
cdf5e6d8b7 2007-09-13       aku: 
cdf5e6d8b7 2007-09-13       aku: proc ::vc::cvs::cmd::dova {args} {do $args}
cdf5e6d8b7 2007-09-13       aku: 
cdf5e6d8b7 2007-09-13       aku: proc ::vc::cvs::cmd::do {words} {
cdf5e6d8b7 2007-09-13       aku:     variable cmd
cdf5e6d8b7 2007-09-13       aku:     if {![llength $words]} {
cdf5e6d8b7 2007-09-13       aku: 	return -code error "Empty cvs command"
cdf5e6d8b7 2007-09-13       aku:     }
cdf5e6d8b7 2007-09-13       aku:     # 8.5: exec $cmd {*}$words
cdf5e6d8b7 2007-09-13       aku:     return [eval [linsert $words 0 exec $cmd]]
cdf5e6d8b7 2007-09-13       aku: }
cdf5e6d8b7 2007-09-13       aku: 
cdf5e6d8b7 2007-09-13       aku: # -----------------------------------------------------------------------------
cdf5e6d8b7 2007-09-13       aku: # Internals.
cdf5e6d8b7 2007-09-13       aku: 
cdf5e6d8b7 2007-09-13       aku: namespace eval ::vc::cvs::cmd {
cdf5e6d8b7 2007-09-13       aku:     # Locate external cvs application.
cdf5e6d8b7 2007-09-13       aku:     variable cmd [auto_execok cvs]
cdf5e6d8b7 2007-09-13       aku: 
cdf5e6d8b7 2007-09-13       aku:     # Bail out if not found.
cdf5e6d8b7 2007-09-13       aku:     if {![llength $::vc::cvs::cmd::cmd]} {
cdf5e6d8b7 2007-09-13       aku: 	return -code error "Cvs application not found."
cdf5e6d8b7 2007-09-13       aku:     }
cdf5e6d8b7 2007-09-13       aku: 
cdf5e6d8b7 2007-09-13       aku:     namespace export do dova
cdf5e6d8b7 2007-09-13       aku: }
cdf5e6d8b7 2007-09-13       aku: 
cdf5e6d8b7 2007-09-13       aku: # -----------------------------------------------------------------------------
cdf5e6d8b7 2007-09-13       aku: # Ready
cdf5e6d8b7 2007-09-13       aku: 
cdf5e6d8b7 2007-09-13       aku: package provide vc::cvs::cmd 1.0
cdf5e6d8b7 2007-09-13       aku: return