Fossil

Check-in [3bde1a2e2f]
Login

Check-in [3bde1a2e2f]

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

Overview
Comment:Added new option --trunk-only, state and processing.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3bde1a2e2ff4d72354c1729f9681711b83e38d26
User & Date: aku 2007-10-17 03:09:58.000
Context
2007-10-17
03:10
More handling for option --trunk-only. ... (check-in: a3cd0c3099 user: aku tags: trunk)
03:09
Added new option --trunk-only, state and processing. ... (check-in: 3bde1a2e2f user: aku tags: trunk)
03:08
New helper command to delete item from list by name instead of position. ... (check-in: 4e49cbf03b user: aku tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to tools/cvs2fossil/lib/c2f_option.tcl.
︙︙
38
39
40
41
42
43
44

45
46
47
48
49
50
51
52
53
54
55

    # --version
    # -p, --pass, --passes
    # --ignore-conflicting-attics
    # --project
    # -v, --verbose
    # -q, --quiet
    # --state (conversion status, ala config.cache)


    # -o, --output
    # --dry-run
    # --trunk-only
    # --force-branch RE
    # --force-tag RE
    # --symbol-transform RE:XX
    # --exclude

    # # ## ### ##### ######## #############
    ## Public API, Methods








>



<








38
39
40
41
42
43
44
45
46
47
48

49
50
51
52
53
54
55

    # --version
    # -p, --pass, --passes
    # --ignore-conflicting-attics
    # --project
    # -v, --verbose
    # -q, --quiet
    # --state (conversion status, ala config.cache)
    # --trunk-only

    # -o, --output
    # --dry-run

    # --force-branch RE
    # --force-tag RE
    # --symbol-transform RE:XX
    # --exclude

    # # ## ### ##### ######## #############
    ## Public API, Methods
︙︙
69
70
71
72
73
74
75

76
77
78
79
80
81
82

		--ignore-conflicting-attics { collar ignore_conflicting_attics }
		--project                   { repository add [Value arguments] }
		-v                          -
		--verbose                   { log verbose }
		-q                          -
		--quiet                     { log quiet }
		--state                     { state use [Value arguments] }

		default {
		    Usage $badoption$option\n$gethelp
		}
	    }
	}

	if {[llength $arguments] > 1} Usage








>








69
70
71
72
73
74
75
76
77
78
79
80
81
82
83

		--ignore-conflicting-attics { collar ignore_conflicting_attics }
		--project                   { repository add [Value arguments] }
		-v                          -
		--verbose                   { log verbose }
		-q                          -
		--quiet                     { log quiet }
		--state                     { state use [Value arguments] }
		--trunk-only                { repository trunkonly! }
		default {
		    Usage $badoption$option\n$gethelp
		}
	    }
	}

	if {[llength $arguments] > 1} Usage
︙︙
Changes to tools/cvs2fossil/lib/c2f_repository.tcl.
︙︙
47
48
49
50
51
52
53



54
55
56
57
58
59
60

	# treat them as a single project.

	if {[lsearch -exact $myprojpaths $path] >= 0} return
	lappend myprojpaths $path
	return
    }




    typemethod projects {} {
	return [TheProjects]
    }

    typemethod base? {} { return $mybase }

    typemethod validate {} {








>
>
>








47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63

	# treat them as a single project.

	if {[lsearch -exact $myprojpaths $path] >= 0} return
	lappend myprojpaths $path
	return
    }

    typemethod trunkonly! {} { set mytrunkonly 1 ; return }
    typemethod trunkonly  {} { return $mytrunkonly }

    typemethod projects {} {
	return [TheProjects]
    }

    typemethod base? {} { return $mybase }

    typemethod validate {} {
︙︙
218
219
220
221
222
223
224




225
226
227
228
229
230
231

				      # cmessage) to their ids.
    typevariable mymetacnt       0  ; # Counter for meta ids.
    typevariable mysymbol -array {} ; # Map symbols identified by
				      # project and name to their
				      # id. This information is not
				      # saved directly.
    typevariable mysymbolcnt     0  ; # Counter for symbol ids.





    # # ## ### ##### ######## #############
    ## Internal methods

    proc .BaseLength {p} {
	return [string length [$p printbase]]
    }








>
>
>
>








221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238

				      # cmessage) to their ids.
    typevariable mymetacnt       0  ; # Counter for meta ids.
    typevariable mysymbol -array {} ; # Map symbols identified by
				      # project and name to their
				      # id. This information is not
				      # saved directly.
    typevariable mysymbolcnt     0  ; # Counter for symbol ids.

    typevariable mytrunkonly     0  ; # Boolean flag. Set by option
				      # processing when the user
				      # requested a trunk-only import

    # # ## ### ##### ######## #############
    ## Internal methods

    proc .BaseLength {p} {
	return [string length [$p printbase]]
    }
︙︙