2b9c6df430 2008-02-19  mjanssen: ## -*- tcl -*-
2b9c6df430 2008-02-19  mjanssen: # # ## ### ##### ######## ############# #####################
2b9c6df430 2008-02-19  mjanssen: ## Copyright (c) 2008 Mark Janssen.
2b9c6df430 2008-02-19  mjanssen: #
2b9c6df430 2008-02-19  mjanssen: # This software is licensed as described in the file LICENSE, which
2b9c6df430 2008-02-19  mjanssen: # you should have received as part of this distribution.
2b9c6df430 2008-02-19  mjanssen: #
2b9c6df430 2008-02-19  mjanssen: # This software consists of voluntary contributions made by many
2b9c6df430 2008-02-19  mjanssen: # individuals.  For exact contribution history, see the revision
2b9c6df430 2008-02-19  mjanssen: # history and logs, available at http://fossil-scm.hwaci.com/fossil
2b9c6df430 2008-02-19  mjanssen: # # ## ### ##### ######## ############# #####################
2b9c6df430 2008-02-19  mjanssen: 
2b9c6df430 2008-02-19  mjanssen: ## Fossil subcommand managment.
2b9c6df430 2008-02-19  mjanssen: 
2b9c6df430 2008-02-19  mjanssen: # # ## ### ##### ######## ############# #####################
2b9c6df430 2008-02-19  mjanssen: ## Requirements
2b9c6df430 2008-02-19  mjanssen: 
2b9c6df430 2008-02-19  mjanssen: package require Tcl 8.5                             ; # Required runtime.
2b9c6df430 2008-02-19  mjanssen: package require sqlite3                             ; # Fossil database access
2b9c6df430 2008-02-19  mjanssen: package require snit                                ; # OO system.
2b9c6df430 2008-02-19  mjanssen: 
2b9c6df430 2008-02-19  mjanssen: 
2b9c6df430 2008-02-19  mjanssen: package provide vc::fossil::cmd 1.0
2b9c6df430 2008-02-19  mjanssen: 
2b9c6df430 2008-02-19  mjanssen: # # ## ### ##### ######## ############# #####################
2b9c6df430 2008-02-19  mjanssen: ##
2b9c6df430 2008-02-19  mjanssen: 
2b9c6df430 2008-02-19  mjanssen: namespace eval ::vc::fossil {
2b9c6df430 2008-02-19  mjanssen:     namespace export cmd
2b9c6df430 2008-02-19  mjanssen:     snit::type cmd {
2b9c6df430 2008-02-19  mjanssen: 	typevariable commands ""
2b9c6df430 2008-02-19  mjanssen: 
2b9c6df430 2008-02-19  mjanssen: 	typemethod add {command} {
2b9c6df430 2008-02-19  mjanssen: 	    lappend commands $command
2b9c6df430 2008-02-19  mjanssen: 
2b9c6df430 2008-02-19  mjanssen: 	}
2b9c6df430 2008-02-19  mjanssen: 
2b9c6df430 2008-02-19  mjanssen: 	typemethod list {} {
2b9c6df430 2008-02-19  mjanssen: 	    return $commands
2b9c6df430 2008-02-19  mjanssen: 	}
2b9c6df430 2008-02-19  mjanssen:     }
2b9c6df430 2008-02-19  mjanssen: }
2b9c6df430 2008-02-19  mjanssen: