Fossil SCM
|
1
|
#!/bin/sh
|
|
2
|
## -*- tcl -*- \
|
|
3
|
exec tclsh "$0" ${1+"$@"}
|
|
4
|
|
|
5
|
# # ## ### ##### ######## ############# #####################
|
|
6
|
## Copyright (c) 2008 Mark Janssen.
|
|
7
|
#
|
|
8
|
# This software is licensed as described in the file LICENSE, which
|
|
9
|
# you should have received as part of this distribution.
|
|
10
|
#
|
|
11
|
# This software consists of voluntary contributions made by many
|
|
12
|
# individuals. For exact contribution history, see the revision
|
|
13
|
# history and logs, available at http://fossil-scm.hwaci.com/fossil
|
|
14
|
# # ## ### ##### ######## ############# #####################
|
|
15
|
|
|
16
|
## Command line application wrapped around the import packages.
|
|
17
|
|
|
18
|
# # ## ### ##### ######## ############# #####################
|
|
19
|
## Requirements, extended package management for local packages.
|
|
20
|
|
|
21
|
::tcl::tm::path add [file normalize [file join [file dirname [info script]] lib]]
|
|
22
|
|
|
23
|
package require Tcl 8.5 ; # Required runtime.
|
|
24
|
package require vc::fossil::ui ; # Main functionality.
|
|
25
|
|
|
26
|
# # ## ### ##### ######## ############# #####################
|
|
27
|
## Execution
|
|
28
|
|
|
29
|
vc::fossil::ui run $::argv0 {*}$argv
|
|
30
|
exit 0
|
|
31
|
|
|
32
|
# # ## ### ##### ######## ############# ##################### |