Fossil

Check-in [97e0e9dd]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Removed two unused classes.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:97e0e9dda94ea0fe577408ff08e894f68b9c19c2
User & Date: aku 2007-12-07 08:55:21
Context
2007-12-08
02:59
Added comments explaining the select statement checking revision/file/project/metadata integrity check-in: 808fbc47 user: aku tags: trunk
2007-12-07
08:55
Removed two unused classes. check-in: 97e0e9dd user: aku tags: trunk
2007-12-06
04:05
Reworked time keeping in the pass manager, the microseconds kept by by the 'time' command flow over after roughly 72 minutes (2^32 microseconds). We now use 'clock seconds' to explicitly keep time. This should flow over only after abuut 136 years. The loss of resolution is ok, the converter does not need it. Seconds are good enough. check-in: 9a763fe5 user: aku tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Deleted tools/cvs2fossil/lib/c2f_flodmgr.tcl.

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

Deleted tools/cvs2fossil/lib/c2f_plodmgr.tcl.

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

Changes to tools/cvs2fossil/lib/pkgIndex.tcl.

     1      1   # # ## ### ##### ######## ############# #####################
     2      2   ## Package management.
     3      3   ## Index of the local packages required by cvs2fossil
     4      4   # # ## ### ##### ######## ############# #####################
     5      5   if {![package vsatisfies [package require Tcl] 8.4]} return
     6      6   package ifneeded vc::fossil::import::cvs                    1.0 [list source [file join $dir cvs2fossil.tcl]]
     7      7   package ifneeded vc::fossil::import::cvs::file              1.0 [list source [file join $dir c2f_file.tcl]]
     8         -package ifneeded vc::fossil::import::cvs::file::lodmgr      1.0 [list source [file join $dir c2f_flodmgr.tcl]]
     9      8   package ifneeded vc::fossil::import::cvs::file::rev         1.0 [list source [file join $dir c2f_frev.tcl]]
    10      9   package ifneeded vc::fossil::import::cvs::file::sym         1.0 [list source [file join $dir c2f_fsym.tcl]]
    11     10   package ifneeded vc::fossil::import::cvs::file::trunk       1.0 [list source [file join $dir c2f_ftrunk.tcl]]
    12     11   package ifneeded vc::fossil::import::cvs::fossil            1.0 [list source [file join $dir c2f_fossil.tcl]]
    13     12   package ifneeded vc::fossil::import::cvs::option            1.0 [list source [file join $dir c2f_option.tcl]]
    14     13   package ifneeded vc::fossil::import::cvs::integrity         1.0 [list source [file join $dir c2f_integrity.tcl]]
    15     14   package ifneeded vc::fossil::import::cvs::pass              1.0 [list source [file join $dir c2f_pass.tcl]]
................................................................................
    24     23   package ifneeded vc::fossil::import::cvs::pass::breakscycle 1.0 [list source [file join $dir c2f_pbreakscycle.tcl]]
    25     24   package ifneeded vc::fossil::import::cvs::pass::breakacycle 1.0 [list source [file join $dir c2f_pbreakacycle.tcl]]
    26     25   package ifneeded vc::fossil::import::cvs::pass::atopsort    1.0 [list source [file join $dir c2f_patopsort.tcl]]
    27     26   package ifneeded vc::fossil::import::cvs::pass::import      1.0 [list source [file join $dir c2f_pimport.tcl]]
    28     27   package ifneeded vc::fossil::import::cvs::gtcore            1.0 [list source [file join $dir c2f_gtcore.tcl]]
    29     28   package ifneeded vc::fossil::import::cvs::cyclebreaker      1.0 [list source [file join $dir c2f_cyclebreaker.tcl]]
    30     29   package ifneeded vc::fossil::import::cvs::project           1.0 [list source [file join $dir c2f_project.tcl]]
    31         -package ifneeded vc::fossil::import::cvs::project::lodmgr   1.0 [list source [file join $dir c2f_plodmgr.tcl]]
    32     30   package ifneeded vc::fossil::import::cvs::project::rev      1.0 [list source [file join $dir c2f_prev.tcl]]
    33     31   package ifneeded vc::fossil::import::cvs::project::revlink  1.0 [list source [file join $dir c2f_prevlink.tcl]]
    34     32   package ifneeded vc::fossil::import::cvs::project::sym      1.0 [list source [file join $dir c2f_psym.tcl]]
    35     33   package ifneeded vc::fossil::import::cvs::project::trunk    1.0 [list source [file join $dir c2f_ptrunk.tcl]]
    36     34   package ifneeded vc::fossil::import::cvs::repository        1.0 [list source [file join $dir c2f_repository.tcl]]
    37     35   package ifneeded vc::fossil::import::cvs::state             1.0 [list source [file join $dir c2f_state.tcl]]
    38     36   package ifneeded vc::rcs::parser                            1.0 [list source [file join $dir rcsparser.tcl]]
    39     37   package ifneeded vc::tools::dot                             1.0 [list source [file join $dir dot.tcl]]
    40     38   package ifneeded vc::tools::id                              1.0 [list source [file join $dir id.tcl]]
    41     39   package ifneeded vc::tools::log                             1.0 [list source [file join $dir log.tcl]]
    42     40   package ifneeded vc::tools::misc                            1.0 [list source [file join $dir misc.tcl]]
    43     41   package ifneeded vc::tools::trouble                         1.0 [list source [file join $dir trouble.tcl]]