Fossil Wrapper

Check-in [b7f21c3555]
Login

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

Overview
Comment:minor tidy up.
Timelines: family | ancestors | descendants | both | dresden
Files: files | file ages | folders
SHA1: b7f21c35555992347da2b94d9e0e5fd5c50fbdf3
User & Date: j 2013-01-10 21:22:14
Context
2013-01-10
22:44
small fix. check-in: ced1483e1b user: j tags: dresden
21:22
minor tidy up. check-in: b7f21c3555 user: j tags: dresden
21:13
small fix. check-in: 34844683fd user: j tags: dresden
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
...
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
...
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
# indent string `indent' and a line length `maxlen'.
# --------------------------------------------------------

   #these parameters should be user settable:
   set maxlen 78
   set indent {........ }
   set indent {         }
   set cnt 0

   set out {}
   set buf ""
   set rgxdate {^=== [0-9-]+ ===$}
   set rgxtime {^\d\d:\d\d:\d\d}
   set rgxrvsn {\[([a-f\d]{10})([^\]]*)\]}
   set rgxuser {\(user: .* tags: .*\)}
................................................................................
      } 

      regexp $rgxtime $record time
      regexp $rgxrvsn $record rvsn
      regexp $rgxuser $record usertag
      set revnum [dict get $revnums $rvsn]
      lappend out "$time ($revnum):$rvsn $usertag\n"
      #lappend out "$time $rvsn $usertag {$revnum}\n"
      #lappend out "chkin: $revnum\n$time $rvsn $usertag\n"

      regsub $rgxuser $record "" record
      regsub $time    $record "" record
      regsub $rgxrvsn $record "" record

      set message [string trim $record]
      set words [split $message]
................................................................................

      set words [lreplace $words 0 0]
      set wrdnum [llength $words]
      set wrdcnt 0
      foreach word $words {
         incr wrdcnt
         set wrdlen [string length $word]
         #if { $wrdlen == 0} {continue}
         set len [expr {$len + 1 + $wrdlen}]
         if {$len <= $maxlen} {
            set line "$line $word"
            set isAppended 0
         } else {
            lappend out $line\n
            set line $indent$word







<







 







<
<







 







<







383
384
385
386
387
388
389

390
391
392
393
394
395
396
...
408
409
410
411
412
413
414


415
416
417
418
419
420
421
...
424
425
426
427
428
429
430

431
432
433
434
435
436
437
# indent string `indent' and a line length `maxlen'.
# --------------------------------------------------------

   #these parameters should be user settable:
   set maxlen 78
   set indent {........ }
   set indent {         }


   set out {}
   set buf ""
   set rgxdate {^=== [0-9-]+ ===$}
   set rgxtime {^\d\d:\d\d:\d\d}
   set rgxrvsn {\[([a-f\d]{10})([^\]]*)\]}
   set rgxuser {\(user: .* tags: .*\)}
................................................................................
      } 

      regexp $rgxtime $record time
      regexp $rgxrvsn $record rvsn
      regexp $rgxuser $record usertag
      set revnum [dict get $revnums $rvsn]
      lappend out "$time ($revnum):$rvsn $usertag\n"



      regsub $rgxuser $record "" record
      regsub $time    $record "" record
      regsub $rgxrvsn $record "" record

      set message [string trim $record]
      set words [split $message]
................................................................................

      set words [lreplace $words 0 0]
      set wrdnum [llength $words]
      set wrdcnt 0
      foreach word $words {
         incr wrdcnt
         set wrdlen [string length $word]

         set len [expr {$len + 1 + $wrdlen}]
         if {$len <= $maxlen} {
            set line "$line $word"
            set isAppended 0
         } else {
            lappend out $line\n
            set line $indent$word