837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
|
# Options that need individual checking/processing
if {[optIsGiven -prefix arg]} {
foreach apa $arg {
set RE [string map [list % $apa] {^.*?\m(%\w+).*$}]
if {$::Pref(nocase)} {
set RE "(?i)$RE"
}
lappend ::Pref(preprocess) $RE {\1} ""
}
}
if {[optIsGiven -preprocess arg]} {
# FIXA: better validity check
foreach apa $arg {
foreach {RE sub} $apa {
lappend ::Pref(preprocess) $RE $sub ""
}
}
}
if {[optIsGiven -preprocessleft arg]} {
# FIXA: better validity check
foreach apa $arg {
foreach {RE sub} $apa {
lappend ::Pref(preprocess) $RE $sub left
}
}
}
if {[optIsGiven -preprocessright arg]} {
# FIXA: better validity check
foreach apa $arg {
foreach {RE sub} $apa {
lappend ::Pref(preprocess) $RE $sub right
}
}
}
# Handle list of revisions
if {[optIsGiven -r arg]} {
set revNo 1
foreach rev $arg {
|
|
|
|
|
|
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
|
# Options that need individual checking/processing
if {[optIsGiven -prefix arg]} {
foreach apa $arg {
set RE [string map [list % $apa] {^.*?\m(%\w+).*$}]
if {$::Pref(nocase)} {
set RE "(?i)$RE"
}
addPreprocess prefix $RE {\1} ""
}
}
if {[optIsGiven -preprocess arg]} {
# FIXA: better validity check
foreach apa $arg {
foreach {RE sub} $apa {
addPreprocess cmdline $RE $sub ""
}
}
}
if {[optIsGiven -preprocessleft arg]} {
# FIXA: better validity check
foreach apa $arg {
foreach {RE sub} $apa {
addPreprocess cmdline $RE $sub left
}
}
}
if {[optIsGiven -preprocessright arg]} {
# FIXA: better validity check
foreach apa $arg {
foreach {RE sub} $apa {
addPreprocess cmdline $RE $sub right
}
}
}
# Handle list of revisions
if {[optIsGiven -r arg]} {
set revNo 1
foreach rev $arg {
|
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
|
set ::DefaultPref(dir,exdirs) "RCS CVS .git .svn .hg"
set ::DefaultPref(dir,onlyrev) 0
set ::DefaultPref(dir,nice) 1
# Start with default preferences, before loading setup file
array set ::Pref [array get ::DefaultPref]
# Backward compatibilty options
set ::Pref(onlydiffs) -1
set ::Pref(regsub) {}
if {$::Pref(onlydiffs) == 0} {
set ::Pref(context) -1
}
unset ::Pref(onlydiffs)
if {$::Pref(regsub) ne ""} {
foreach {a b} $::Pref(regsub) {
lappend ::Pref(preprocess) $a $b ""
}
}
unset ::Pref(regsub)
# Set up reactions to some Pref settings
if {![info exists ::widgets(toolbars)]} {
set ::widgets(toolbars) {}
}
trace add variable ::Pref(toolbar) write TraceToolbar
}
|
<
<
<
|
|
<
<
<
<
<
<
<
<
<
|
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
|
set ::DefaultPref(dir,exdirs) "RCS CVS .git .svn .hg"
set ::DefaultPref(dir,onlyrev) 0
set ::DefaultPref(dir,nice) 1
# Start with default preferences, before loading setup file
array set ::Pref [array get ::DefaultPref]
# TODO: implement filter option fully
set ::eskil(filter) ""
if {![info exists ::eskil_testsuite] && [file exists "~/.eskilrc"]} {
safeLoad "~/.eskilrc" ::Pref
}
if {$::Pref(editor) ne ""} {
set ::util(editor) $::Pref(editor)
}
# If the user's file has this old option, translate it to the new
# Nothing here currently
# Set up reactions to some Pref settings
if {![info exists ::widgets(toolbars)]} {
set ::widgets(toolbars) {}
}
trace add variable ::Pref(toolbar) write TraceToolbar
}
|