77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
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
110
111
112
113
114
115
116
117
118
119
120
121
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
}
if {[file exists $::eskil(thisDir)/../version.txt]} {
set ch [open $::eskil(thisDir)/../version.txt]
set ::eskil(diffver) [string trim [read $ch 100]]
close $ch
}
##nagelfar syntax SubEval c
if {[catch {package require Thread}]} {
interp create _tinterp_
interp alias {} SubEval _tinterp_ eval
} else {
set tid [thread::create -preserved]
interp alias {} SubEval {} thread::send $tid
}
SubEval [list set ::auto_path $::auto_path]
SubEval [list set ::argv0 $::argv0]
SubEval [list set ::starkit::topdir $::starkit::topdir]
SubEval {
if {![file isdir $::starkit::topdir]} {
vfs::mk4::Mount $::starkit::topdir $::starkit::topdir
}
}
SubEval [list array set ::eskil [array get ::eskil]]
SubEval [list proc InitReSource {} [info body InitReSource]]
SubEval {package require snit}
SubEval {InitReSource}
# Get all other source files
InitReSource
# Diff functionality is in the DiffUtil package.
package require DiffUtil
SubEval {package require DiffUtil}
# Help DiffUtil to find a diff executable, if needed
catch {DiffUtil::LocateDiffExe $::eskil(thisScript)}
SubEval [list catch [list DiffUtil::LocateDiffExe $::eskil(thisScript)]]
# Create font for PDF
if {$::Pref(printFont) eq ""} {
set fontfile $::eskil(thisDir)/embedfont.ttf
} else {
set fontfile $::Pref(printFont)
}
|