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
|
| ︙ | ︙ |