1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
|
#!/usr/bin/env ruby
# program : texsync
# copyright : PRAGMA Advanced Document Engineering
# version : 2003-2005
# author : Hans Hagen
#
# project : ConTeXt / eXaMpLe
# concept : Hans Hagen
# info : j.hagen@xs4all.nl
# www : www.pragma-ade.com
# For the moment this script only handles the 'minimal' context
# distribution. In due time I will add a few more options, like
# synchronization of the iso image.
# taco's sync: rsync -au -v rsync://www.pragma-ade.com/all ./htdocs
banner = ['TeXSync', 'version 1.1.1', '2002/2004', 'PRAGMA ADE/POD']
$: << File.expand_path(File.dirname($0)) ; $: << File.join($:.last,'lib') ; $:.uniq!
require 'base/switch'
require 'base/logger'
# require 'base/tool'
require 'rbconfig'
class Commands
include CommandBase
@@formats = ['en','nl','de','cz','it','ro', 'fr']
@@always = ['metafun','mptopdf','en','nl']
@@rsync = 'rsync -r -z -c --progress --stats "--exclude=*.fmt" "--exclude=*.efmt" "--exclude=*.mem"'
@@kpsewhich = Hash.new
@@kpsewhich['minimal'] = 'SELFAUTOPARENT'
@@kpsewhich['context'] = 'TEXMFLOCAL'
@@kpsewhich['documentation'] = 'TEXMFLOCAL'
@@kpsewhich['unknown'] = 'SELFAUTOPARENT'
def update
report
return unless destination = getdestination
texpaths = gettexpaths
address = option('address')
user = option('user')
tree = option('tree')
force = option('force')
ok = true
begin
report("synchronizing '#{tree}' from '#{address}' to '#{destination}'")
report
if texpaths then
texpaths.each do |path|
report("synchronizing path '#{path}' of '#{tree}' from '#{address}' to '#{destination}'")
command = "#{rsync} #{user}@#{address}::#{tree}/#{path} #{destination}/{path}"
ok = ok && system(command) if force
end
else
command = "#{@@rsync} #{user}@#{address}::#{tree} #{destination}"
ok = system(command) if force
end
rescue
report("error in running rsync")
ok = false
ensure
if force then
if ok then
if option('make') then
report("generating tex and metapost formats")
report
@@formats.delete_if do |f|
begin
`kpsewhich cont-#{f}`.chomp.empty?
rescue
end
end
str = [@@formats,@@always].flatten.uniq.join(' ')
begin
system("texexec --make --alone #{str}")
rescue
report("unable to generate formats '#{str}'")
else
report
end
else
report("regenerate the formats files if needed")
end
else
report("error in synchronizing '#{tree}'")
end
else
report("provide --force to execute '#{command}'") unless force
end
end
end
def list
report
address = option('address')
user = option('user')
result = nil
begin
report("fetching list of trees from '#{address}'")
command = "#{@@rsync} #{user}@#{address}::"
if option('force') then
result = `#{command}`.chomp
else
report("provide --force to execute '#{command}'")
end
rescue
result = nil
else
if result then
report("available trees:")
report
reportlines(result)
end
ensure
report("unable to fetch list") unless result
end
end
private
def gettexpaths
if option('full') then
texpaths = ['texmf','texmf-local','texmf-fonts','texmf-mswin','texmf-linux','texmf-macos']
elsif option('terse') then
texpaths = ['texmf','texmf-local','texmf-fonts']
case RbConfig::CONFIG['host_os'] # or: Tool.ruby_platform
when /mswin/ then texpaths.push('texmf-mswin')
when /linux/ then texpaths.push('texmf-linux')
when /darwin/ then texpaths.push('texmf-macosx')
end
else
texpaths = nil
end
texpaths
end
def getdestination
if (destination = option('destination')) && ! destination.empty? then
begin
if @@kpsewhich.key?(destination) then
destination = @@kpsewhich[option('tree')] || @@kpsewhich['unknown']
destination = `kpsewhich --expand-var=$#{destination}`.chomp
elsif ! FileTest.directory?(destination) then
destination = nil
end
rescue
report("unable to determine destination tex root")
else
if ! destination || destination.empty? then
report("no destination is specified")
elsif not FileTest.directory?(destination) then
report("invalid destination '#{destination}'")
elsif not FileTest.writable?(destination) then
report("destination '#{destination}' is not writable")
else
report("using destination '#{destination}'")
return destination
end
end
else
report("unknown destination")
end
return nil
end
end
logger = Logger.new(banner.shift)
commandline = CommandLine.new
commandline.registeraction('update', 'update installed tree')
commandline.registeraction('list', 'list available trees')
commandline.registerflag('terse', 'download as less as possible (esp binaries)')
commandline.registerflag('full', 'download everything (all binaries)')
commandline.registerflag('force', 'confirm action')
commandline.registerflag('make', 'remake formats')
commandline.registervalue('address', 'www.pragma-ade.com', 'adress of repository (www.pragma-ade)')
commandline.registervalue('user', 'guest', 'user account (guest)')
commandline.registervalue('tree', 'tex', 'tree to synchronize (tex)')
commandline.registervalue('destination', nil, 'destination of tree (kpsewhich)')
commandline.registeraction('help')
commandline.registeraction('version')
commandline.expand
Commands.new(commandline,logger,banner).send(commandline.action || 'help')
|
