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 }
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