81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
-
+
|
close $ch
}
# Get all other source files
InitReSource
# Diff functionality is in the DiffUtil package.
package require DiffUtil
package require DiffUtil 0.4
# Help DiffUtil to find a diff executable, if needed
catch {DiffUtil::LocateDiffExe $::eskil(thisScript)}
# Create font for PDF
if {$::Pref(printFont) eq ""} {
set fontfile $::eskil(thisDir)/embedfont.ttf
} else {
|
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
|
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
|
+
-
+
-
+
|
set pinterp [createPluginInterp $plugin $plugininfo $pluginallow pinfo]
if {$pinterp eq ""} {
# This should not happen since the validator should handle it
puts "Bad plugin: $plugin"
printPlugins
exit
}
# TBD: Support multiple plugins on command line.
set opts(plugin) $pinterp
set opts(plugin,1) $pinterp
set opts(pluginname,1) $plugin
set opts(pluginallow,1) $pluginallow
set opts(plugininfo,1) $plugininfo
set opts(pluginpinfo) $pinfo
set opts(pluginpinfo,1) $pinfo
}
# Store the command line given opts
set ::eskil(defaultopts) [array get opts]
# Do we start in clip diff mode?
if {$doclip} {
|