Fossil

Check-in [338854a6]
Login

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

Overview
Comment:API tweak rcs parser, definition of symbols, call through the callback once per symbol instead of once for the whole set.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:338854a61ad1f3b9e69d722b3d487cd07461bd0f
User & Date: aku 2007-10-10 04:23:22
Context
2007-10-10
05:36
Added more checks to pass I looking for possible file/directory conflicts in the repository, and modified traverser to report on and ignore sub directories of Attic's. check-in: a10f654a user: aku tags: trunk
04:23
API tweak rcs parser, definition of symbols, call through the callback once per symbol instead of once for the whole set. check-in: 338854a6 user: aku tags: trunk
03:28
Added a lot of skeleton files for the revision and symbol data structures, for both project and file level. check-in: 84de38d7 user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
..
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
    method begin     {} {}
    method done      {} {}
    method admindone {} {}

    method sethead            {h} {}
    method setprincipalbranch {b} {}

    method setsymbols {dict} {}
    method setcomment {c}    {}
    method setdesc    {d}    {}

    method def    {rev date author state next branches} {}
    method extend {rev commitmsg deltarange} {}

    #method begin {} {puts begin}
    #method sethead {h} {puts head=$h}
    #method setprincipalbranch {b} {puts pb=$b}
    #method setsymbols {dict} {puts symbols=$dict}
    #method setcomment {c} {puts comment=$c}
    #method admindone {} {puts admindone}
    #method def {rev date author state next branches} {puts "def $rev $date $author $state $next $branches"}
    #method setdesc {d} {puts desc=$d}
    #method extend {rev commitmsg deltarange} {puts "extend $commitmsg $deltarange"}
    #method done {} {puts done}

................................................................................
    }

    method setprincipalbranch {b} {
	set myprincipal $b
	return
    }

    method setsymbols {dict} {
	# Slice symbols into branches and tags, canonical numbers ...
array set _ $dict
parray _
    }

    method setcomment {c} {# ignore}
    method setdesc    {d} {# ignore}

    method def {rev date author state next branches} {
	set myrev($rev) [list $date $author $state $next $branches]







|
|
|







|







 







|

<
<







40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
..
81
82
83
84
85
86
87
88
89


90
91
92
93
94
95
96
    method begin     {} {}
    method done      {} {}
    method admindone {} {}

    method sethead            {h} {}
    method setprincipalbranch {b} {}

    method deftag     {s r} {}
    method setcomment {c}   {}
    method setdesc    {d}   {}

    method def    {rev date author state next branches} {}
    method extend {rev commitmsg deltarange} {}

    #method begin {} {puts begin}
    #method sethead {h} {puts head=$h}
    #method setprincipalbranch {b} {puts pb=$b}
    #method deftag {s r} {puts $s=$r }
    #method setcomment {c} {puts comment=$c}
    #method admindone {} {puts admindone}
    #method def {rev date author state next branches} {puts "def $rev $date $author $state $next $branches"}
    #method setdesc {d} {puts desc=$d}
    #method extend {rev commitmsg deltarange} {puts "extend $commitmsg $deltarange"}
    #method done {} {puts done}

................................................................................
    }

    method setprincipalbranch {b} {
	set myprincipal $b
	return
    }

    method deftag {symbol rev} {
	# Slice symbols into branches and tags, canonical numbers ...


    }

    method setcomment {c} {# ignore}
    method setdesc    {d} {# ignore}

    method def {rev date author state next branches} {
	set myrev($rev) [list $date $author $state $next $branches]

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

72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
    proc Access {} {
	RequiredLiteral access ;
	Semicolon
	return
    }

    proc Symbols {} {
	set d {}
	RequiredLiteral symbols
	while {[Ident -> symbol]} {
	    RequiredNumber -> rev
	    # TODO: distinguish branch/tag symbols, transform revision
	    # numbers into canonical form.
	    lappend d $symbol $rev
	}
	Semicolon
	Call setsymbols $d
	return
    }

    proc Locks {} {
	# Not saving locks.
	RequiredLiteral locks
	while {[Ident -> symbol]} {







<



<
<
|


<







72
73
74
75
76
77
78

79
80
81


82
83
84

85
86
87
88
89
90
91
    proc Access {} {
	RequiredLiteral access ;
	Semicolon
	return
    }

    proc Symbols {} {

	RequiredLiteral symbols
	while {[Ident -> symbol]} {
	    RequiredNumber -> rev


	    Call deftag $symbol $rev
	}
	Semicolon

	return
    }

    proc Locks {} {
	# Not saving locks.
	RequiredLiteral locks
	while {[Ident -> symbol]} {