Fossil Wrapper

Check-in [910c52f888]
Login

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

Overview
Comment:Fix regexp for repo root if path contains spaces
Timelines: family | ancestors | record
Files: files | file ages | folders
SHA1: 910c52f888566a77b2a9d4756b9e7ee2b2a9a1b7
User & Date: fifr 2018-04-11 07:38:06
Context
2018-04-11
07:38
Fix regexp for repo root if path contains spaces Leaf check-in: 910c52f888 user: fifr tags: record
2014-06-04
12:47
Adding missing 'a' command in hunk selection. check-in: 1acb5aa2c2 user: fifr tags: record
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fslrc.

137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
    set rgxsplit {^(?:Index: .*$\n=+$\n)?^--- ([^\n]*)$\n^\+\+\+ ([^\n]*)$\n((^.+$\n)*)}
    set rgxhunk {^@@.*@@$\n((^[^@I].*$\n)*)}

    # get repo root
    set workdir [pwd]
    if {[llength $files] == 0} {
        catch {exec fossil info} inf
        regexp {local-root:\s*(\S+)} $inf m workdir
    }

    # get diff and split into files and hunks
    catch {exec fossil diff -i -c 1 {*}$files} diff

    set files {}
    set start 0







|







137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
    set rgxsplit {^(?:Index: .*$\n=+$\n)?^--- ([^\n]*)$\n^\+\+\+ ([^\n]*)$\n((^.+$\n)*)}
    set rgxhunk {^@@.*@@$\n((^[^@I].*$\n)*)}

    # get repo root
    set workdir [pwd]
    if {[llength $files] == 0} {
        catch {exec fossil info} inf
        regexp -line {local-root:\s*(\S.*)} $inf m workdir
    }

    # get diff and split into files and hunks
    catch {exec fossil diff -i -c 1 {*}$files} diff

    set files {}
    set start 0