33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
-
+
|
# Stop Tk from meddling with the command line by copying it first.
set ::eskil(argv) $::argv
set ::eskil(argc) $::argc
set ::argv {}
set ::argc 0
set ::eskil(debug) 0
set ::eskil(diffver) "Version 2.6.7+ 2014-11-16"
set ::eskil(diffver) "Version 2.6.7+ 2014-12-17"
set ::eskil(thisScript) [file join [pwd] [info script]]
namespace import tcl::mathop::+
namespace import tcl::mathop::-
namespace import tcl::mathop::*
namespace import tcl::mathop::/
|
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
-
+
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
+
+
+
|
# Diff functionality is in the DiffUtil package.
package require DiffUtil
# 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)/n022003l.afm
set fontfile $::eskil(thisDir)/embedfont.ttf
} else {
set fontfile $::Pref(printFont)
}
# Allow fallback to PDF-builtin Courier
if {$fontfile eq "Courier"} {
set ::eskil(printFont) Courier
} else {
set ext [file extension $fontfile]
if {$ext eq ".afm"} {
pdf4tcl::loadBaseType1Font EskilBase $fontfile \
[file rootname $fontfile].pfb
} else {
pdf4tcl::loadBaseTrueTypeFont EskilBase $fontfile 1
}
set ext [file extension $fontfile]
if {$ext eq ".afm"} {
pdf4tcl::loadBaseType1Font EskilBase $fontfile \
[file rootname $fontfile].pfb
} else {
pdf4tcl::loadBaseTrueTypeFont EskilBase $fontfile 1
}
pdf4tcl::createFont EskilBase EskilFont cp1251
pdf4tcl::createFont EskilBase EskilFont cp1251
set ::eskil(printFont) EskilFont
}
# Figure out a place to store temporary files.
locateTmp ::eskil(tmpdir)
if {$::tcl_platform(platform) eq "windows"} {
# Locate CVS if it is in c:/bin
if {[auto_execok cvs] eq "" && [file exists "c:/bin/cvs.exe"]} {
|
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
|
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
|
-
+
+
-
+
|
-browse : Automatically bring up file dialog after starting.
-server : Set up Eskil to be controllable from the outside.
-print <file> : Generate PDF and exit.
-printCharsPerLine <n> : Adapt font size for this line length and wrap. (80)
-printPaper <paper> : Select paper size (a4)
-printHeaderSize <n> : Font size for page header (10)
-printFont <fontfile> : Select font to use in PDF, afm or ttf
-printFont <fontfile> : Select font to use in PDF, afm or ttf. If <fontfile>
is given as "Courier", PDF built in font is used.
-printColorChange <RGB> : Color for change (1.0 0.7 0.7)
-printColorOld <RGB> : Color for old text (0.7 1.0 0.7)
-printColorNew <RGB : Color for new text (0.8 0.8 1.0)
-printColorNew <RGB> : Color for new text (0.8 0.8 1.0)
-plugin <name> : Preprocess files using plugin.
-plugininfo <info> : Pass info to plugin (plugin specific)
-pluginlist : List known plugins
-plugindump <plugin> : Dump plugin source to stdout
-limit <lines> : Do not process more than <lines> lines.
|