Fossil

Check-in [970be48f]
Login

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

Overview
Comment:Added debug helper methods. Fixed description of symbol reference in instances.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:970be48fce64bb2aeca497ef96d8d8989bf0d936
User & Date: aku 2008-01-27 20:43:19
Context
2008-01-27
20:43
Added log output to make the log during file import more complete. check-in: e60ba158 user: aku tags: trunk
20:43
Added debug helper methods. Fixed description of symbol reference in instances. check-in: 970be48f user: aku tags: trunk
20:42
Allow for detached branches when checking lod consistency. Fixed formatting nit. Added debug helper method. check-in: d3aa3388 user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

38
39
40
41
42
43
44
45

46
47
48
49
50
51
52
...
396
397
398
399
400
401
402
















403
404
405
406
407
408
409
...
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
    }

    method defid {} {
	set myid [incr myidcounter]
	return
    }

    method id {} { return $myid }


    # Basic pieces ________________________

    method hasmeta {} { return [expr {$mymetaid ne ""}] }
    method hastext {} {
	struct::list assign $mytext s e
	return [expr {$s <= $e}]
................................................................................
    #             mychild             - revision.child
    #             myparentbranch      - revision.bparent
    #             myoperation         - revision.op
    #             myisondefaultbranch - revision.isdefault
    #             mydbparent          - revision.dbparent
    #             mydbchild           - revision.dbchild


















    typevariable mybranchpattern {^((?:\d+\.\d+\.)+)(?:0\.)?(\d+)$}
    # First a nonzero even number of digit groups with trailing dot
    # CVS then sticks an extra 0 in here; RCS does not.
    # And the last digit group.

    typevariable myidcounter 0 ; # Counter for revision ids.
................................................................................
			      # revision was committed to, the author
			      # who did the commit, and the message
			      # used.
    variable mylod       {} ; # Reference to the line-of-development
			      # object the revision belongs to. An
			      # alternative idiom would be to call it
			      # the branch the revision is on. This
			      # reference is to a project-level object
			      # (symbol or trunk).

    # Basic parent/child linkage (lines of development)

    variable myparent {} ; # Ref to parent revision object. Link required because of
    #                    ; # 'cvsadmin -o', which can create arbitrary gaps in the
    #                    ; # numbering sequence. This is in the same line of development
    #                    ; # Note: For the first revision on a branch the revision







|
>







 







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







 







|
|







38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
...
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
...
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
    }

    method defid {} {
	set myid [incr myidcounter]
	return
    }

    method id   {} { return $myid }
    method file {} { return $myfile }

    # Basic pieces ________________________

    method hasmeta {} { return [expr {$mymetaid ne ""}] }
    method hastext {} {
	struct::list assign $mytext s e
	return [expr {$s <= $e}]
................................................................................
    #             mychild             - revision.child
    #             myparentbranch      - revision.bparent
    #             myoperation         - revision.op
    #             myisondefaultbranch - revision.isdefault
    #             mydbparent          - revision.dbparent
    #             mydbchild           - revision.dbchild

    method DUMP {label} {
	puts "$label = $self <$myrevnr> (NTDB=$myisondefaultbranch) \{"
	puts "\tP\t$myparent"
	puts "\tC\t$mychild"
	puts "\tPB\t$myparentbranch"
	puts "\tdbP\t$mydbparent"
	puts "\tdbC\t$mydbchild"
	foreach b $mybranches {
	    puts \t\tB\t$b
	}
	foreach b $mybranchchildren {
	    puts \t\tBC\t$b
	}
	puts "\}"
	return
    }

    typevariable mybranchpattern {^((?:\d+\.\d+\.)+)(?:0\.)?(\d+)$}
    # First a nonzero even number of digit groups with trailing dot
    # CVS then sticks an extra 0 in here; RCS does not.
    # And the last digit group.

    typevariable myidcounter 0 ; # Counter for revision ids.
................................................................................
			      # revision was committed to, the author
			      # who did the commit, and the message
			      # used.
    variable mylod       {} ; # Reference to the line-of-development
			      # object the revision belongs to. An
			      # alternative idiom would be to call it
			      # the branch the revision is on. This
			      # reference is to either project-level
			      # trunk or file-level symbol.

    # Basic parent/child linkage (lines of development)

    variable myparent {} ; # Ref to parent revision object. Link required because of
    #                    ; # 'cvsadmin -o', which can create arbitrary gaps in the
    #                    ; # numbering sequence. This is in the same line of development
    #                    ; # Note: For the first revision on a branch the revision