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
|