8a93ffa9c1 2007-10-06       aku: ## -*- tcl -*-
8a93ffa9c1 2007-10-06       aku: # # ## ### ##### ######## ############# #####################
8a93ffa9c1 2007-10-06       aku: ## Copyright (c) 2007 Andreas Kupries.
8a93ffa9c1 2007-10-06       aku: #
8a93ffa9c1 2007-10-06       aku: # This software is licensed as described in the file LICENSE, which
8a93ffa9c1 2007-10-06       aku: # you should have received as part of this distribution.
8a93ffa9c1 2007-10-06       aku: #
8a93ffa9c1 2007-10-06       aku: # This software consists of voluntary contributions made by many
8a93ffa9c1 2007-10-06       aku: # individuals.  For exact contribution history, see the revision
8a93ffa9c1 2007-10-06       aku: # history and logs, available at http://fossil-scm.hwaci.com/fossil
8a93ffa9c1 2007-10-06       aku: # # ## ### ##### ######## ############# #####################
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku: ## File, part of a project, part of a CVS repository. Multiple
8a93ffa9c1 2007-10-06       aku: ## instances are possible.
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku: # # ## ### ##### ######## ############# #####################
8a93ffa9c1 2007-10-06       aku: ## Requirements
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku: package require Tcl 8.4                          ; # Required runtime.
8a93ffa9c1 2007-10-06       aku: package require snit                             ; # OO system.
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku: # # ## ### ##### ######## ############# #####################
8a93ffa9c1 2007-10-06       aku: ##
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku: snit::type ::vc::fossil::import::cvs::file {
8a93ffa9c1 2007-10-06       aku:     # # ## ### ##### ######## #############
8a93ffa9c1 2007-10-06       aku:     ## Public API
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku:     constructor {path project} {
8a93ffa9c1 2007-10-06       aku: 	set mypath    $path
8a93ffa9c1 2007-10-06       aku: 	set myproject $project
8a93ffa9c1 2007-10-06       aku: 	return
8a93ffa9c1 2007-10-06       aku:     }
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku:     method path {} { return $mypath }
2e3815c3b4 2007-10-06       aku: 
2e3815c3b4 2007-10-06       aku:     # # ## ### ##### ######## #############
2e3815c3b4 2007-10-06       aku:     ## Methods required for the class to be a sink of the rcs parser
2e3815c3b4 2007-10-06       aku: 
6d1811d61e 2007-10-06       aku:     method begin     {} {}
6d1811d61e 2007-10-06       aku:     method done      {} {}
2e3815c3b4 2007-10-06       aku:     method admindone {} {}
6d1811d61e 2007-10-06       aku: 
6d1811d61e 2007-10-06       aku:     method sethead            {h} {}
6d1811d61e 2007-10-06       aku:     method setprincipalbranch {b} {}
6d1811d61e 2007-10-06       aku: 
6d1811d61e 2007-10-06       aku:     method setsymbols {dict} {}
6d1811d61e 2007-10-06       aku:     method setcomment {c}    {}
6d1811d61e 2007-10-06       aku:     method setdesc    {d}    {}
6d1811d61e 2007-10-06       aku: 
6d1811d61e 2007-10-06       aku:     method def    {rev date author state next branches} {}
6d1811d61e 2007-10-06       aku:     method extend {rev commitmsg deltarange} {}
2e3815c3b4 2007-10-06       aku: 
2e3815c3b4 2007-10-06       aku:     #method begin {} {puts begin}
2e3815c3b4 2007-10-06       aku:     #method sethead {h} {puts head=$h}
2e3815c3b4 2007-10-06       aku:     #method setprincipalbranch {b} {puts pb=$b}
2e3815c3b4 2007-10-06       aku:     #method setsymbols {dict} {puts symbols=$dict}
2e3815c3b4 2007-10-06       aku:     #method setcomment {c} {puts comment=$c}
2e3815c3b4 2007-10-06       aku:     #method admindone {} {puts admindone}
2e3815c3b4 2007-10-06       aku:     #method def {rev date author state next branches} {puts "def $rev $date $author $state $next $branches"}
2e3815c3b4 2007-10-06       aku:     #method setdesc {d} {puts desc=$d}
2e3815c3b4 2007-10-06       aku:     #method extend {rev commitmsg deltarange} {puts "extend $commitmsg $deltarange"}
2e3815c3b4 2007-10-06       aku:     #method done {} {puts done}
6d1811d61e 2007-10-06       aku: 
6d1811d61e 2007-10-06       aku: 
6d1811d61e 2007-10-06       aku:     # # ## ### ##### ######## #############
6d1811d61e 2007-10-06       aku:     ## Persistence (pass II)
6d1811d61e 2007-10-06       aku: 
6d1811d61e 2007-10-06       aku:     method persist {} {
6d1811d61e 2007-10-06       aku:     }
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku:     # # ## ### ##### ######## #############
8a93ffa9c1 2007-10-06       aku:     ## State
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku:     variable mypath    {} ; # Path of rcs archive
8a93ffa9c1 2007-10-06       aku:     variable myproject {} ; # Project object the file belongs to.
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku:     # # ## ### ##### ######## #############
8a93ffa9c1 2007-10-06       aku:     ## Internal methods
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku:     pragma -hastypeinfo    no  ; # no type introspection
8a93ffa9c1 2007-10-06       aku:     pragma -hasinfo        no  ; # no object introspection
8a93ffa9c1 2007-10-06       aku:     pragma -hastypemethods no  ; # type is not relevant.
8a93ffa9c1 2007-10-06       aku:     pragma -simpledispatch yes ; # simple fast dispatch
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku:     # # ## ### ##### ######## #############
8a93ffa9c1 2007-10-06       aku: }
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku: namespace eval ::vc::fossil::import::cvs {
8a93ffa9c1 2007-10-06       aku:     namespace export file
8a93ffa9c1 2007-10-06       aku: }
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku: # # ## ### ##### ######## ############# #####################
8a93ffa9c1 2007-10-06       aku: ## Ready
8a93ffa9c1 2007-10-06       aku: 
8a93ffa9c1 2007-10-06       aku: package provide vc::fossil::import::cvs::file 1.0
8a93ffa9c1 2007-10-06       aku: return