84de38d73f 2007-10-10       aku: ## -*- tcl -*-
84de38d73f 2007-10-10       aku: # # ## ### ##### ######## ############# #####################
84de38d73f 2007-10-10       aku: ## Copyright (c) 2007 Andreas Kupries.
84de38d73f 2007-10-10       aku: #
84de38d73f 2007-10-10       aku: # This software is licensed as described in the file LICENSE, which
84de38d73f 2007-10-10       aku: # you should have received as part of this distribution.
84de38d73f 2007-10-10       aku: #
84de38d73f 2007-10-10       aku: # This software consists of voluntary contributions made by many
84de38d73f 2007-10-10       aku: # individuals.  For exact contribution history, see the revision
84de38d73f 2007-10-10       aku: # history and logs, available at http://fossil-scm.hwaci.com/fossil
84de38d73f 2007-10-10       aku: # # ## ### ##### ######## ############# #####################
84de38d73f 2007-10-10       aku: 
84de38d73f 2007-10-10       aku: ## Trunk, the special main line of development in a project.
84de38d73f 2007-10-10       aku: 
84de38d73f 2007-10-10       aku: # # ## ### ##### ######## ############# #####################
84de38d73f 2007-10-10       aku: ## Requirements
84de38d73f 2007-10-10       aku: 
84de38d73f 2007-10-10       aku: package require Tcl 8.4                             ; # Required runtime.
84de38d73f 2007-10-10       aku: package require snit                                ; # OO system.
84de38d73f 2007-10-10       aku: 
84de38d73f 2007-10-10       aku: # # ## ### ##### ######## ############# #####################
84de38d73f 2007-10-10       aku: ##
84de38d73f 2007-10-10       aku: 
84de38d73f 2007-10-10       aku: snit::type ::vc::fossil::import::cvs::project::trunk {
84de38d73f 2007-10-10       aku:     # # ## ### ##### ######## #############
84de38d73f 2007-10-10       aku:     ## Public API
84de38d73f 2007-10-10       aku: 
2c08006d9d 2007-10-25       aku:     constructor {project} {
6f8667b03e 2007-10-31       aku: 	set mysymbol [$project getsymbol $myname]
6f8667b03e 2007-10-31       aku: 	set myid     [$mysymbol id]
84de38d73f 2007-10-10       aku: 	return
84de38d73f 2007-10-10       aku:     }
84de38d73f 2007-10-10       aku: 
6f8667b03e 2007-10-31       aku:     destructor {
6f8667b03e 2007-10-31       aku: 	$mysymbol destroy
2c08006d9d 2007-10-25       aku:     }
2c08006d9d 2007-10-25       aku: 
2c08006d9d 2007-10-25       aku:     method name    {} { return $myname }
2c08006d9d 2007-10-25       aku:     method id      {} { return $myid   }
09af24fc7c 2007-10-17       aku:     method istrunk {} { return 1 }
6f8667b03e 2007-10-31       aku:     method symbol  {} { return $self }
6f8667b03e 2007-10-31       aku: 
c3d5104084 2007-11-02       aku:     method forceid {id} { set myid $id ; return }
c3d5104084 2007-11-02       aku: 
c3d5104084 2007-11-02       aku:     method defcounts {tc bc cc} {}
c3d5104084 2007-11-02       aku: 
6f8667b03e 2007-10-31       aku:     method countasbranch {} {}
6f8667b03e 2007-10-31       aku:     method countastag    {} {}
6f8667b03e 2007-10-31       aku:     method countacommit  {} {}
6f8667b03e 2007-10-31       aku: 
6f8667b03e 2007-10-31       aku:     method blockedby      {symbol} {}
6f8667b03e 2007-10-31       aku:     method possibleparent {symbol} {}
6f8667b03e 2007-10-31       aku: 
6f8667b03e 2007-10-31       aku:     method isghost {} { return 0 }
6f8667b03e 2007-10-31       aku: 
6f8667b03e 2007-10-31       aku:     delegate method persistrev to mysymbol
f888f06fe3 2007-11-02       aku: 
f888f06fe3 2007-11-02       aku:     method determinetype {} { $mysymbol markthetrunk }
e5441b908d 2007-10-15       aku: 
84de38d73f 2007-10-10       aku:     # # ## ### ##### ######## #############
84de38d73f 2007-10-10       aku:     ## State
2c08006d9d 2007-10-25       aku: 
6f8667b03e 2007-10-31       aku:     typevariable myname   :trunk: ; # Name shared by all trunk symbols.
6f8667b03e 2007-10-31       aku:     variable     myid     {}      ; # The trunk's symbol id.
6f8667b03e 2007-10-31       aku:     variable     mysymbol {}      ; # The symbol underneath the trunk.
84de38d73f 2007-10-10       aku: 
84de38d73f 2007-10-10       aku:     # # ## ### ##### ######## #############
84de38d73f 2007-10-10       aku:     ## Internal methods
84de38d73f 2007-10-10       aku: 
84de38d73f 2007-10-10       aku:     # # ## ### ##### ######## #############
84de38d73f 2007-10-10       aku:     ## Configuration
84de38d73f 2007-10-10       aku: 
84de38d73f 2007-10-10       aku:     pragma -hastypeinfo    no  ; # no type introspection
84de38d73f 2007-10-10       aku:     pragma -hasinfo        no  ; # no object introspection
84de38d73f 2007-10-10       aku:     pragma -hastypemethods no  ; # type is not relevant.
84de38d73f 2007-10-10       aku: 
84de38d73f 2007-10-10       aku:     # # ## ### ##### ######## #############
84de38d73f 2007-10-10       aku: }
84de38d73f 2007-10-10       aku: 
84de38d73f 2007-10-10       aku: namespace eval ::vc::fossil::import::cvs::project {
84de38d73f 2007-10-10       aku:     namespace export trunk
84de38d73f 2007-10-10       aku: }
84de38d73f 2007-10-10       aku: 
84de38d73f 2007-10-10       aku: # # ## ### ##### ######## ############# #####################
84de38d73f 2007-10-10       aku: ## Ready
84de38d73f 2007-10-10       aku: 
84de38d73f 2007-10-10       aku: package provide vc::fossil::import::cvs::project::trunk 1.0
84de38d73f 2007-10-10       aku: return