Fossil Wrapper

Check-in [d6d6025c58]
Login

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

Overview
Comment:minor adjustments.
Timelines: family | ancestors | descendants | both | dresden
Files: files | file ages | folders
SHA1: d6d6025c5856963c16759e93d7c624a80c5657f6
User & Date: j 2018-10-18 15:33:39
Context
2018-10-19
08:30
fix typo in help text/comment. check-in: 5bd4c8a1a9 user: j tags: dresden
2018-10-18
15:33
minor adjustments. check-in: d6d6025c58 user: j tags: dresden
2018-10-09
22:16
exit immediately after error. check-in: 3a4bd5c887 user: j tags: dresden
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

96
97
98
99
100
101
102

103

104
105
106
107
108
109
110
    # to be permanent: the file is regenerated if it is older
    # than the script file for `fsl' (which will happen
    # each time the script file itself is edited).

    # -- Aliases:

    alias  .      changes

    alias  ,      ui

    alias  alog   {timeline -t ci -n 0}
    alias  b      branch
    alias  d      diff
    alias  dd     {diff -tk}
    alias  de     descendants
    alias  desc   descendants
    alias  di     diff







>

>







96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
    # to be permanent: the file is regenerated if it is older
    # than the script file for `fsl' (which will happen
    # each time the script file itself is edited).

    # -- Aliases:

    alias  .      changes
    alias  ..     {changes --differ}
    alias  ,      ui
    alias  ahelp  {test-all-help}
    alias  alog   {timeline -t ci -n 0}
    alias  b      branch
    alias  d      diff
    alias  dd     {diff -tk}
    alias  de     descendants
    alias  desc   descendants
    alias  di     diff
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
    } {
        lassign [split [string trim $line]] status
        switch -regexp $status {
            MERGED_WITH { coloured  purple $line }
            UPDATED_BY_MERGE { coloured  blue $line }
            ADDED       { coloured   green $line }
            EDITED      { coloured    blue $line }
            EXTRAS      { coloured magenta $line }
            DELETE      { coloured     red $line }
            IGNORED     { coloured  yellow $line }
            MISSING     { coloured    cyan $line }
            ADD         { coloured   green $line }
            UPDATE      { coloured     red $line }
            REMOVE      { coloured    blue $line }
            UNDO        { coloured    blue $line }
            REDO        { coloured    red $line }
            NEW         { coloured    magenta $line }
            ^(checkout|parent): {
               set date_rx {([a-f\d]{40} )(\d{4}-\d{2}-\d{2})}
               set artifact_rx {([a-f\d]{4})}
               regsub $date_rx     $line \\1[coloured blue \\2] line
               regsub $artifact_rx $line [coloured red \\1]
            }
            tags: {
               regsub {(^tags:[ ]+)(.*)} $line [coloured yellow \\1][coloured cyan \\2]







|









|







137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
    } {
        lassign [split [string trim $line]] status
        switch -regexp $status {
            MERGED_WITH { coloured  purple $line }
            UPDATED_BY_MERGE { coloured  blue $line }
            ADDED       { coloured   green $line }
            EDITED      { coloured    blue $line }
            EXTRA       { coloured magenta $line }
            DELETE      { coloured     red $line }
            IGNORED     { coloured  yellow $line }
            MISSING     { coloured    cyan $line }
            ADD         { coloured   green $line }
            UPDATE      { coloured     red $line }
            REMOVE      { coloured    blue $line }
            UNDO        { coloured    blue $line }
            REDO        { coloured    red $line }
            NEW         { coloured    magenta $line }
            ^(checkout|parent|merged-into): {
               set date_rx {([a-f\d]{40} )(\d{4}-\d{2}-\d{2})}
               set artifact_rx {([a-f\d]{4})}
               regsub $date_rx     $line \\1[coloured blue \\2] line
               regsub $artifact_rx $line [coloured red \\1]
            }
            tags: {
               regsub {(^tags:[ ]+)(.*)} $line [coloured yellow \\1][coloured cyan \\2]
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825

   if {[catch {exec fossil extras} exrep]} {
      puts "$exrep"
      exit 1
   } else { set exrep [split $exrep \n] }

   foreach line $exrep {
      set line "EXTRAS     $line"
      filter_with $afilter "$line"
      puts ""
   }
}

interceptor w:wrapper {
# ------------------------------------------------------------------------







|







813
814
815
816
817
818
819
820
821
822
823
824
825
826
827

   if {[catch {exec fossil extras} exrep]} {
      puts "$exrep"
      exit 1
   } else { set exrep [split $exrep \n] }

   foreach line $exrep {
      set line "EXTRA      $line"
      filter_with $afilter "$line"
      puts ""
   }
}

interceptor w:wrapper {
# ------------------------------------------------------------------------