Eskil

Check-in [f29a64fe0f]
Login

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

Overview
Comment:When displaying a patch, detect chunks marked with ##.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: f29a64fe0ff9691ced7e5ed38db2cd5b6c07e5c3
User & Date: peter 2016-07-01 14:15:07.724
Context
2016-07-05
22:29
Moved startup code to its own source file. check-in: 393bb7a948 user: peter tags: trunk
2016-07-03
22:51
Experiment with worker thread. Closed-Leaf check-in: 68552b14a5 user: peter tags: thread
2016-07-01
14:15
When displaying a patch, detect chunks marked with ##. check-in: f29a64fe0f user: peter tags: trunk
2016-06-10
00:01
Reorganised code for option descriptions. check-in: d0b1cd8fb0 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Changes. 




1
2
3
4
5
6
7





2016-06-10
 Reorganised code for option descriptions.

2016-06-09
 Upgraded to DiffUtilTcl 0.3.9 to get consistent word parse behaviour.

2016-04-13

>
>
>
>








1
2
3
4
5
6
7
8
9
10
11

2016-07-01
 When displaying a patch, detect chunks marked with ##.
 E.g. svn diff lists changed properties like that.

2016-06-10
 Reorganised code for option descriptions.

2016-06-09
 Upgraded to DiffUtilTcl 0.3.9 to get consistent word parse behaviour.

2016-04-13
︙︙
Changes to src/eskil.tcl.
︙︙
1413
1414
1415
1416
1417
1418
1419


1420

1421
1422
1423
1424
1425
1426
1427

            emptyLine $top 2
            insertLine $top 2 "" $divider patch
            insertLine $top 2 "" $sub     patch
            insertLine $top 2 "" $divider patch
            continue
        }
        # A new section in a -u style diff


        if {[regexp {^@@\s+-(\d+)(?:,\d+)?\s+\+(\d+),} $line -> sub1 sub2]} {

            if {$state eq "both"} {
                displayOnePatch $top $leftLines $rightLines \
                        $leftLine $rightLine
            }
            # Look for c function annotation in -u style
            if {[regexp {^@@.*@@(.*)$} $line -> cfun]} {
                set cfun [string trim $cfun]








>
>
|
>








1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430

            emptyLine $top 2
            insertLine $top 2 "" $divider patch
            insertLine $top 2 "" $sub     patch
            insertLine $top 2 "" $divider patch
            continue
        }
        # A new section in a -u style diff
        # Normally the chunk starts with @@
        # From some tools the chunk starts with ##
        if {[regexp {^(?:@@|\#\#)\s+-(\d+)(?:,\d+)?\s+\+(\d+),} $line ->\
                     sub1 sub2]} {
            if {$state eq "both"} {
                displayOnePatch $top $leftLines $rightLines \
                        $leftLine $rightLine
            }
            # Look for c function annotation in -u style
            if {[regexp {^@@.*@@(.*)$} $line -> cfun]} {
                set cfun [string trim $cfun]
︙︙