Fossil Wrapper

Check-in [34844683fd]
Login

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

Overview
Comment:small fix.
Timelines: family | ancestors | descendants | both | dresden
Files: files | file ages | folders
SHA1: 34844683fd4e2b284def5eb6d4eca20129c9d791
User & Date: j 2013-01-10 21:13:31
Context
2013-01-10
21:22
minor tidy up. check-in: b7f21c3555 user: j tags: dresden
21:13
small fix. check-in: 34844683fd user: j tags: dresden
20:51
bug fix (skipping of single word remaining on last line of reformatted checkin message). check-in: b84e704411 user: j tags: dresden
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

454
455
456
457
458
459
460
461
462
463
464
465
466

467
468
469
470
471
472
473
...
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
proc computeRevnums records {
#-----------------------------------------------------------------------
#generate a dictionary SHA1 (key) vs. chron. rev. number (value)
#-----------------------------------------------------------------------
   set huge 1000000
   set rgxtime {^\d\d:\d\d:\d\d}
   set rgxrvsn {\[([a-f\d]{10})([^\]]*)\]}
   set revcnt -1

   catch {exec fossil time -n $huge } buf
   set lizzy [split $buf \n]
   set lizzy [unwrapTimeline $lizzy]


   foreach line $lizzy {
      if {[regexp $rgxtime $line]} {
         incr revcnt
      }
   } 

   set iter -1
................................................................................
                interact -o \n { send_user \r\n }
                break
            }
        }
    }

    if {[interactive? $command] == false} {
       if {$command == "timeline"} { 
          set revnums [computeRevnums $lines]
          set lines [unwrapTimeline $lines]
          set lines [reformTimeline $lines $revnums]
       }
       foreach line $lines {
          if {$debug == true} {
             puts -nonewline "IN: $line"







<





>







 







|







454
455
456
457
458
459
460

461
462
463
464
465
466
467
468
469
470
471
472
473
...
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
proc computeRevnums records {
#-----------------------------------------------------------------------
#generate a dictionary SHA1 (key) vs. chron. rev. number (value)
#-----------------------------------------------------------------------
   set huge 1000000
   set rgxtime {^\d\d:\d\d:\d\d}
   set rgxrvsn {\[([a-f\d]{10})([^\]]*)\]}


   catch {exec fossil time -n $huge } buf
   set lizzy [split $buf \n]
   set lizzy [unwrapTimeline $lizzy]

   set revcnt -1
   foreach line $lizzy {
      if {[regexp $rgxtime $line]} {
         incr revcnt
      }
   } 

   set iter -1
................................................................................
                interact -o \n { send_user \r\n }
                break
            }
        }
    }

    if {[interactive? $command] == false} {
       if {$command == "timeline" && [llength $lines] > 1} { 
          set revnums [computeRevnums $lines]
          set lines [unwrapTimeline $lines]
          set lines [reformTimeline $lines $revnums]
       }
       foreach line $lines {
          if {$debug == true} {
             puts -nonewline "IN: $line"