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: |
b7f21c35555992347da2b94d9e0e5fd5 |
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
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 |