1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
|
if {$::eskil($top,mode) eq "rev"} {
prepareRev $top
lappend ::eskil($top,cleanup) "rev"
} elseif {$::eskil($top,mode) eq "conflict"} {
prepareConflict $top
lappend ::eskil($top,cleanup) "conflict"
}
# Autodetect separator before any plugin processing
set ::eskil($top,separator) \
[subst -nocommand -novariable $::eskil($top,separatorview)]
if {$::eskil($top,view) eq "table" && $::eskil($top,separator) eq ""} {
set ch1 [open $::eskil($top,leftFile)]
gets $ch1 line1
close $ch1
# Any tab or comma?
if {[regsub -all "\t" $line1 "\t" _] >= 2} {
set ::eskil($top,separator) "\t"
set ::eskil($top,separatorview) "\\t"
# Make it look like it came from command line
lappend ::eskil(argv) -sep "\t"
|
|
>
|
<
<
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
|
if {$::eskil($top,mode) eq "rev"} {
prepareRev $top
lappend ::eskil($top,cleanup) "rev"
} elseif {$::eskil($top,mode) eq "conflict"} {
prepareConflict $top
lappend ::eskil($top,cleanup) "conflict"
}
# Prepare Separator
set ::eskil($top,separator) \
[subst -nocommand -novariable $::eskil($top,separatorview)]
# Autodetect separator before any plugin processing
if {$::eskil($top,view) eq "table" && $::eskil($top,separator) eq ""} {
set ch1 [open $::eskil($top,leftFile)]
gets $ch1 line1
close $ch1
# Any tab, comma or semicolon?
if {[regsub -all "\t" $line1 "\t" _] >= 2} {
set ::eskil($top,separator) "\t"
set ::eskil($top,separatorview) "\\t"
} elseif {[regsub -all "," $line1 "," _] >= 2} {
set ::eskil($top,separator) ","
set ::eskil($top,separatorview) ","
lappend ::eskil(argv) -sep ","
} elseif {[regsub -all ";" $line1 ";" _] >= 2} {
set ::eskil($top,separator) ";"
set ::eskil($top,separatorview) ";"
lappend ::eskil(argv) -sep ";"
}
}
# Make it look like it came from command line
# It could come from the GUI or auto-detect, put it in the command line
# to make it visible for plugins.
set i [lsearch -exact $::eskil(argv) "-sep"]
if {$i >= 0} {
incr i
lset ::eskil(argv) $i $::eskil($top,separatorview)
} else {
lappend ::eskil(argv) -sep
}
# Prepare plugin
if {$::eskil($top,plugin) ne "" && \
[dict get $::eskil($top,pluginpinfo) file]} {
preparePlugin $top
set ::eskil($top,cleanup) "plugin $::eskil($top,cleanup)"
}
}
|