Fossil SCM
| 84de38d… | aku | 1 | ## -*- tcl -*- |
| 84de38d… | aku | 2 | # # ## ### ##### ######## ############# ##################### |
| 84de38d… | aku | 3 | ## Copyright (c) 2007 Andreas Kupries. |
| 84de38d… | aku | 4 | # |
| 84de38d… | aku | 5 | # This software is licensed as described in the file LICENSE, which |
| 84de38d… | aku | 6 | # you should have received as part of this distribution. |
| 84de38d… | aku | 7 | # |
| 84de38d… | aku | 8 | # This software consists of voluntary contributions made by many |
| 84de38d… | aku | 9 | # individuals. For exact contribution history, see the revision |
| 84de38d… | aku | 10 | # history and logs, available at http://fossil-scm.hwaci.com/fossil |
| 84de38d… | aku | 11 | # # ## ### ##### ######## ############# ##################### |
| 84de38d… | aku | 12 | |
| 84de38d… | aku | 13 | ## Trunk, the special main line of development in a file. |
| 84de38d… | aku | 14 | |
| 84de38d… | aku | 15 | # # ## ### ##### ######## ############# ##################### |
| 84de38d… | aku | 16 | ## Requirements |
| 84de38d… | aku | 17 | |
| 84de38d… | aku | 18 | package require Tcl 8.4 ; # Required runtime. |
| 84de38d… | aku | 19 | package require snit ; # OO system. |
| 84de38d… | aku | 20 | |
| 84de38d… | aku | 21 | # # ## ### ##### ######## ############# ##################### |
| b679ca3… | aku | 22 | ## |
| 84de38d… | aku | 23 | |
| 84de38d… | aku | 24 | snit::type ::vc::fossil::import::cvs::file::trunk { |
| 84de38d… | aku | 25 | # # ## ### ##### ######## ############# |
| 84de38d… | aku | 26 | ## Public API |
| 84de38d… | aku | 27 | |
| 84de38d… | aku | 28 | constructor {} { |
| 84de38d… | aku | 29 | return |
| 84de38d… | aku | 30 | } |
| 84de38d… | aku | 31 | |
| 84de38d… | aku | 32 | # # ## ### ##### ######## ############# |
| 84de38d… | aku | 33 | ## State |
| 84de38d… | aku | 34 | |
| 84de38d… | aku | 35 | # # ## ### ##### ######## ############# |
| 84de38d… | aku | 36 | ## Internal methods |
| 84de38d… | aku | 37 | |
| 84de38d… | aku | 38 | # # ## ### ##### ######## ############# |
| 84de38d… | aku | 39 | ## Configuration |
| 84de38d… | aku | 40 | |
| 84de38d… | aku | 41 | pragma -hastypeinfo no ; # no type introspection |
| 84de38d… | aku | 42 | pragma -hasinfo no ; # no object introspection |
| 84de38d… | aku | 43 | pragma -hastypemethods no ; # type is not relevant. |
| 84de38d… | aku | 44 | pragma -simpledispatch yes ; # simple fast dispatch |
| 84de38d… | aku | 45 | |
| 84de38d… | aku | 46 | # # ## ### ##### ######## ############# |
| 84de38d… | aku | 47 | } |
| 84de38d… | aku | 48 | |
| 84de38d… | aku | 49 | namespace eval ::vc::fossil::import::cvs::file { |
| 84de38d… | aku | 50 | namespace export trunk |
| 84de38d… | aku | 51 | } |
| 84de38d… | aku | 52 | |
| 84de38d… | aku | 53 | # # ## ### ##### ######## ############# ##################### |
| 84de38d… | aku | 54 | ## Ready |
| 84de38d… | aku | 55 | |
| 84de38d… | aku | 56 | package provide vc::fossil::import::cvs::file::trunk 1.0 |
| 84de38d… | aku | 57 | return |