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 | # indent string `indent' and a line length `maxlen'. # -------------------------------------------------------- #these parameters should be user settable: set maxlen 78 set indent {........ } set indent { } | < | 383 384 385 386 387 388 389 390 391 392 393 394 395 396 | # 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: .*\)} |
︙ | ︙ | |||
409 410 411 412 413 414 415 | } 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" | < < < | 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 | } 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 line $indent[lindex $words 0] set len [string length $line] 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 |
︙ | ︙ |