8c4b530084 2008-02-19  mjanssen: ## -*- tcl -*-
8c4b530084 2008-02-19  mjanssen: # # ## ### ##### ######## ############# #####################
8c4b530084 2008-02-19  mjanssen: ## Copyright (c) 2008 Mark Janssen.
8c4b530084 2008-02-19  mjanssen: #
8c4b530084 2008-02-19  mjanssen: # This software is licensed as described in the file LICENSE, which
8c4b530084 2008-02-19  mjanssen: # you should have received as part of this distribution.
8c4b530084 2008-02-19  mjanssen: #
8c4b530084 2008-02-19  mjanssen: # This software consists of voluntary contributions made by many
8c4b530084 2008-02-19  mjanssen: # individuals.  For exact contribution history, see the revision
8c4b530084 2008-02-19  mjanssen: # history and logs, available at http://fossil-scm.hwaci.com/fossil
8c4b530084 2008-02-19  mjanssen: # # ## ### ##### ######## ############# #####################
8c4b530084 2008-02-19  mjanssen: 
8c4b530084 2008-02-19  mjanssen: 
8c4b530084 2008-02-19  mjanssen: # # ## ### ##### ######## ############# #####################
8c4b530084 2008-02-19  mjanssen: ## Requirements
8c4b530084 2008-02-19  mjanssen: 
8c4b530084 2008-02-19  mjanssen: package require Tcl 8.5                             ; # Required runtime.
8c4b530084 2008-02-19  mjanssen: package require snit                                ; # OO system.
8c4b530084 2008-02-19  mjanssen: package require vc::fossil::cmd 1.0                 ; # Subcommand management
8c4b530084 2008-02-19  mjanssen: package require vc::fossil::db 1.0
8c4b530084 2008-02-19  mjanssen: 
8c4b530084 2008-02-19  mjanssen: package provide vc::fossil::cmd::new 1.0
8c4b530084 2008-02-19  mjanssen: vc::fossil::cmd add new
8c4b530084 2008-02-19  mjanssen: 
8c4b530084 2008-02-19  mjanssen: # # ## ### ##### ######## ############# #####################
8c4b530084 2008-02-19  mjanssen: ## Imports
8c4b530084 2008-02-19  mjanssen: 
8c4b530084 2008-02-19  mjanssen: 
8c4b530084 2008-02-19  mjanssen: 
8c4b530084 2008-02-19  mjanssen: # # ## ### ##### ######## ############# #####################
8c4b530084 2008-02-19  mjanssen: ##
8c4b530084 2008-02-19  mjanssen: 
8c4b530084 2008-02-19  mjanssen: 
8c4b530084 2008-02-19  mjanssen: namespace eval ::vc::fossil::cmd {
8c4b530084 2008-02-19  mjanssen:     proc new {args} {
8c4b530084 2008-02-19  mjanssen: 	if {[ui argc] != 3} {
8c4b530084 2008-02-19  mjanssen: 	    ui usage "REPOSITORY-NAME"
8c4b530084 2008-02-19  mjanssen: 	}
8c4b530084 2008-02-19  mjanssen: 
8c4b530084 2008-02-19  mjanssen: 	set filename [file normalize [lindex [ui argv] 2]]
8c4b530084 2008-02-19  mjanssen: 	db create_repository $filename
8c4b530084 2008-02-19  mjanssen: 
8c4b530084 2008-02-19  mjanssen:     }
8c4b530084 2008-02-19  mjanssen: }