-
Notifications
You must be signed in to change notification settings - Fork 5
/
winsparkle_config.patch
executable file
·452 lines (422 loc) · 18.4 KB
/
winsparkle_config.patch
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
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
diff --git a/TeXmacs/doc/about/about-summary.de.tm b/TeXmacs/doc/about/about-summary.de.tm
index 5a623ae6..da10dca4 100644
--- a/TeXmacs/doc/about/about-summary.de.tm
+++ b/TeXmacs/doc/about/about-summary.de.tm
@@ -7,7 +7,7 @@
<big-table|<descriptive-table|<tformat|<cwith|1|1|1|1|cell-row-span|1>|<cwith|1|1|1|1|cell-col-span|2>|<cwith|1|1|1|1|cell-halign|c>|<table|<row|<cell|GNU
<TeXmacs>>|<cell|>>|<row|<cell|Installierte
- Version>|<cell|<TeXmacs-version>>>|<row|<cell|Unterstützte
+ Version>|<cell|<TeXmacs-version-release|revision>>>|<row|<cell|Unterstützte
Systeme>|<cell|Most GNU/<name|Linux> systems>>|<row|<cell|Copyright>|<cell|<copyright>
1998--2002 by Joris van der Hoeven >>|<row|<cell|Lizenz>|<cell|<hlink|GNU
General Public License|$TEXMACS_PATH/LICENSE>>>|<row|<cell|Webseiten>|<cell|<tabular|<tformat|<twith|table-valign|T>|<cwith|1|-1|1|-1|cell-lsep|0spc>|<cwith|1|-1|1|-1|cell-rsep|0spc>|<table|<row|<cell|<verbatim|http://www.texmacs.org>>>|<row|<cell|<verbatim|http://www.gnu.org/software/texmacs>>>>>>>>|<row|<cell|Kontakt>|<cell|<verbatim|[email protected]>>>|<row|<cell|Postansschrift>|<cell|<tabular|<tformat|<twith|table-valign|T>|<cwith|1|-1|1|-1|cell-lsep|0spc>|<cwith|1|-1|1|-1|cell-rsep|0spc>|<table|<row|<cell|<abbr|Dr.>
@@ -30,4 +30,4 @@
<\collection>
<associate|language|german>
</collection>
-</initial>
\ No newline at end of file
+</initial>
diff --git a/TeXmacs/doc/about/about-summary.en.tm b/TeXmacs/doc/about/about-summary.en.tm
index 5fd4ef2b..69670817 100644
--- a/TeXmacs/doc/about/about-summary.en.tm
+++ b/TeXmacs/doc/about/about-summary.en.tm
@@ -7,7 +7,7 @@
<big-table|<descriptive-table|<tformat|<cwith|1|1|1|1|cell-row-span|1>|<cwith|1|1|1|1|cell-col-span|2>|<cwith|1|1|1|1|cell-halign|c>|<table|<row|<cell|GNU
<TeXmacs>>|<cell|>>|<row|<cell|Installed
- version>|<cell|<TeXmacs-version>>>|<row|<cell|SVN
+ version>|<cell|<TeXmacs-version-release|revision>>>|<row|<cell|SVN
revision>|<cell|<TeXmacs-version-release|revision>>>|<row|<cell|Supported
systems>|<cell|Most GNU/<name|Linux> systems>>|<row|<cell|Copyright>|<cell|<copyright>
1998\U2019 by Joris van der Hoeven >>|<row|<cell|License>|<cell|<hlink|GNU
@@ -80,4 +80,4 @@
</body>
<initial|<\collection>
-</collection>>
\ No newline at end of file
+</collection>>
diff --git a/TeXmacs/doc/about/about-summary.es.tm b/TeXmacs/doc/about/about-summary.es.tm
index 4feed8ba..bff72c35 100644
--- a/TeXmacs/doc/about/about-summary.es.tm
+++ b/TeXmacs/doc/about/about-summary.es.tm
@@ -6,7 +6,7 @@
<with|language|spanish|><tmdoc-title|Sumario>
<big-table|<descriptive-table|<tformat|<cwith|1|1|1|1|cell-row-span|1>|<cwith|1|1|1|1|cell-col-span|2>|<cwith|1|1|1|1|cell-halign|c>|<table|<row|<cell|GNU
- <TeXmacs>>|<cell|>>|<row|<cell|Versión>|<cell|<TeXmacs-version>>>|<row|<cell|Sistemas
+ <TeXmacs>>|<cell|>>|<row|<cell|Versión>|<cell|<TeXmacs-version-release|revision>>>|<row|<cell|Sistemas
soportados>|<cell|La mayoría de los sistemas
GNU/<name|Linux>>>|<row|<cell|Copyright>|<cell|<copyright> 1998--2002 por
Joris van der Hoeven >>|<row|<cell|Licencia>|<cell|<hlink|Licencia Pública
@@ -42,4 +42,4 @@
<\collection>
<associate|language|spanish>
</collection>
-</initial>
\ No newline at end of file
+</initial>
diff --git a/TeXmacs/doc/about/about-summary.fr.tm b/TeXmacs/doc/about/about-summary.fr.tm
index 7bef7be8..a15998b1 100644
--- a/TeXmacs/doc/about/about-summary.fr.tm
+++ b/TeXmacs/doc/about/about-summary.fr.tm
@@ -6,7 +6,7 @@
<tmdoc-title|Sommaire>
<big-table|<descriptive-table|<tformat|<cwith|1|1|1|1|cell-row-span|1>|<cwith|1|1|1|1|cell-col-span|2>|<cwith|1|1|1|1|cell-halign|c>|<table|<row|<cell|GNU
- <TeXmacs>>|<cell|>>|<row|<cell|Version installée>|<cell|<TeXmacs-version>>>|<row|<cell|Systèmes
+ <TeXmacs>>|<cell|>>|<row|<cell|Version installée>|<cell|<TeXmacs-version-release|revision>>>|<row|<cell|Systèmes
reconnus>|<cell|la plupart des systèmes
GNU/<name|Linux>>>|<row|<cell|Droits d'auteur>|<cell|<copyright> 1998--2003
de Joris van der Hoeven >>|<row|<cell|Licence>|<cell|<hlink|GNU General
@@ -33,4 +33,4 @@
<associate|language|french>
<associate|preamble|false>
</collection>
-</initial>
\ No newline at end of file
+</initial>
diff --git a/TeXmacs/doc/about/about-summary.it.tm b/TeXmacs/doc/about/about-summary.it.tm
index 3be3d461..50cd928a 100644
--- a/TeXmacs/doc/about/about-summary.it.tm
+++ b/TeXmacs/doc/about/about-summary.it.tm
@@ -6,7 +6,7 @@
<tmdoc-title|Sommario>
<big-table|<descriptive-table|<tformat|<cwith|1|1|1|1|cell-row-span|1>|<cwith|1|1|1|1|cell-col-span|2>|<cwith|1|1|1|1|cell-halign|c>|<table|<row|<cell|GNU
- <TeXmacs>>|<cell|>>|<row|<cell|<localize|Version>>|<cell|<TeXmacs-version>>>|<row|<cell|Sistemi
+ <TeXmacs>>|<cell|>>|<row|<cell|<localize|Version>>|<cell|<TeXmacs-version-release|revision>>>|<row|<cell|Sistemi
supportati>|<cell|Principalmente sistemi
GNU/<name|Linux>>>|<row|<cell|Copyright>|<cell|<copyright> 1998--2002 by
Joris van der Hoeven >>|<row|<cell|Licenza>|<cell|<hlink|GNU General Public
@@ -31,4 +31,4 @@
<\collection>
<associate|language|italian>
</collection>
-</initial>
\ No newline at end of file
+</initial>
diff --git a/TeXmacs/doc/about/about-summary.zh.tm b/TeXmacs/doc/about/about-summary.zh.tm
index 7076eb8f..94005996 100644
--- a/TeXmacs/doc/about/about-summary.zh.tm
+++ b/TeXmacs/doc/about/about-summary.zh.tm
@@ -6,7 +6,7 @@
<tmdoc-title|\<#6982\>\<#8981\>>
<big-table|<descriptive-table|<tformat|<cwith|1|1|1|1|cell-row-span|1>|<cwith|1|1|1|1|cell-col-span|2>|<cwith|1|1|1|1|cell-halign|c>|<table|<row|<cell|GNU
- <TeXmacs>>|<cell|>>|<row|<cell|\<#5F53\>\<#524D\>\<#7248\>\<#672C\>>|<cell|<TeXmacs-version>>>|<row|<cell|SVN\<#7248\>\<#672C\>\<#53F7\>>|<cell|<TeXmacs-version-release|revision>>>|<row|<cell|\<#652F\>\<#6301\>\<#7684\>\<#7CFB\>\<#7EDF\>>|<cell|\<#5927\>\<#90E8\>\<#5206\>GNU/<name|Linux>\<#7CFB\>\<#7EDF\>>>|<row|<cell|\<#7248\>\<#6743\>>|<cell|<copyright>
+ <TeXmacs>>|<cell|>>|<row|<cell|\<#5F53\>\<#524D\>\<#7248\>\<#672C\>>|<cell|<TeXmacs-version-release|revision>>>|<row|<cell|SVN\<#7248\>\<#672C\>\<#53F7\>>|<cell|<TeXmacs-version-release|revision>>>|<row|<cell|\<#652F\>\<#6301\>\<#7684\>\<#7CFB\>\<#7EDF\>>|<cell|\<#5927\>\<#90E8\>\<#5206\>GNU/<name|Linux>\<#7CFB\>\<#7EDF\>>>|<row|<cell|\<#7248\>\<#6743\>>|<cell|<copyright>
1998\U2019 by Joris van der Hoeven >>|<row|<cell|\<#8BB8\>\<#53EF\>\<#8BC1\>>|<cell|<hlink|GNU
General Public License|$TEXMACS_PATH/LICENSE>>>|<row|<cell|\<#9879\>\<#76EE\>\<#4E3B\>\<#9875\>>|<cell|<tabular|<tformat|<twith|table-valign|T>|<cwith|1|-1|1|-1|cell-lsep|0spc>|<cwith|1|-1|1|-1|cell-rsep|0spc>|<table|<row|<cell|<verbatim|http://www.texmacs.org>>>|<row|<cell|<verbatim|http://www.gnu.org/software/texmacs>>>>>>>>|<row|<cell|\<#8054\>\<#7CFB\>\<#6211\>\<#4EEC\>>|<cell|<verbatim|[email protected]>>>|<row|<cell|\<#8054\>\<#7CFB\>\<#5730\>\<#5740\>>|<cell|<tabular|<tformat|<twith|table-valign|T>|<cwith|1|-1|1|-1|cell-lsep|0spc>|<cwith|1|-1|1|-1|cell-rsep|0spc>|<table|<row|<cell|<abbr|Prof.>
<abbr|dr.> Joris van der Hoeven>>|<row|<cell|Laboratoire d'informatique de
@@ -73,4 +73,4 @@
</body>
<initial|<\collection>
-</collection>>
\ No newline at end of file
+</collection>>
diff --git a/TeXmacs/progs/prog/glue-symbols.scm b/TeXmacs/progs/prog/glue-symbols.scm
index 3c15e94d..dce3954e 100644
--- a/TeXmacs/progs/prog/glue-symbols.scm
+++ b/TeXmacs/progs/prog/glue-symbols.scm
@@ -34,6 +34,8 @@
"updater-check-background"
"updater-check-foreground"
"updater-last-check"
+"updater-set-appcast"
+"updater-set-pub-key"
"updater-set-interval"
"get-original-path"
"os-win32?"
diff --git a/TeXmacs/progs/utils/misc/updater.scm b/TeXmacs/progs/utils/misc/updater.scm
index a0ff2cb5..5ecdbf06 100644
--- a/TeXmacs/progs/utils/misc/updater.scm
+++ b/TeXmacs/progs/utils/misc/updater.scm
@@ -18,6 +18,12 @@
;; Preference management
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(define-preferences
+;disabling updater
+; ("updater:interval" "null" noop))
+;weekly check
+ ("updater:interval" "168" noop))
+
(tm-define (updater-initialize)
(when (updater-supported?)
(with n (get-preference "updater:interval")
@@ -25,10 +31,15 @@
(updater-set-interval (string->number n))
(updater-check-background)))))
-(define-preferences
- ("updater:interval" "null" noop))
-
-;; Uncomment to allow automatic updates
-;(when (== (get-preference "updater:interval" "null"))
-; (set-preference "updater:interval" "168"))
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; For testing updates
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; in windows version the appcast feed and location of the DSA public key are
+; set at build time in resource.rc
+; these settings can be overridden by manually pointing elswhere
+; This must be done by calling (updater-set-appcast @url) and or (updater-set-pub-key @path-to-pubkey-file)
+; e.g. (updater-set-pub-key "~/my_dsa_pub.pem")
+; (updater-set-appcast "https://some_location/appcast.xml")
+; BEFORE calling (updater-initialize)
+; these 2 functions (and their cpp counterpart are only for debugging purpose and can be removed for production
diff --git a/misc/m4/tm_subversion.m4 b/misc/m4/tm_subversion.m4
index 15e6adb5..9f724eb0 100644
--- a/misc/m4/tm_subversion.m4
+++ b/misc/m4/tm_subversion.m4
@@ -11,10 +11,20 @@
#
#--------------------------------------------------------------------
+#--------------------------------------------------------------------
+# Retrieve SVN revision number from working dir or fallback file
+#--------------------------------------------------------------------
+
AC_DEFUN([TM_SUBVERSION],[
AC_MSG_CHECKING(current Subversion revision number)
SVNREV=`svnversion -n . 2>/dev/null`
- if { test "$SVNREV" = "" || test "$SVNREV" = "exported" ; } ; then
+ SVNREV=${SVNREV/:/_}
+ if test "$(echo $SVNREV | tr -cd [[:digit:]])" = "" ;
+ then #contains no digit -> invalid
+ # maybe it was a git mirror repo? (needs git-svn)
+ SVNREV=`git svn log --oneline -1 2>/dev/null | cut -d '|' -f1`
+ fi
+ if test "$(echo $SVNREV | tr -cd [[:digit:]])" = "" ; then
SVNREV=`cat $srcdir/SVNREV`
AC_MSG_RESULT($SVNREV, read from $srcdir/SVNREV)
else
diff --git a/packages/windows/TeXmacs.iss.in b/packages/windows/TeXmacs.iss.in
index 2330fa31..da00c445 100644
--- a/packages/windows/TeXmacs.iss.in
+++ b/packages/windows/TeXmacs.iss.in
@@ -8,16 +8,16 @@ AppVerName=Texmacs
DefaultDirName={commonpf32}\TeXmacs
DefaultGroupName=TeXmacs
;denis begin
-VersionInfoTextVersion=@DEVEL_VERSION@
+VersionInfoTextVersion=@DEVEL_VERSION@.@SVNREV@
AppPublisher=MAGIX
AppPublisherURL=https://www.texmacs.org/
-AppVersion=@DEVEL_VERSION@
+AppVersion=@DEVEL_VERSION@.@SVNREV@
LicenseFile=..\..\..\distr\TeXmacs-Windows\LICENSE
;denis end
UninstallDisplayIcon={app}\TeXmacs.ico
OutputDir=..\..\..\distr\windows
-OutputBaseFilename=@tm_devel@-installer
+OutputBaseFilename=@tm_devel@.@SVNREV@-win-x86
; SourceDir=../..
ChangesAssociations=yes
diff --git a/packages/windows/resource.rc.in b/packages/windows/resource.rc.in
index 0b43472e..db5822ad 100644
--- a/packages/windows/resource.rc.in
+++ b/packages/windows/resource.rc.in
@@ -7,7 +7,10 @@ appicon ICON "TeXmacs.ico"
#include <winver.h>
// Get updates from this appcast feed:
-FeedURL APPCAST {"@APPCAST@"}
+FeedURL APPCAST {"https://raw.githubusercontent.com/slowphil/mingw-w64-texmacs/master/appcast.xml"}
+
+// And verify signature using DSA public key:
+DSAPub DSAPEM "../packages/windows/dsa_pub.pem"
// Version information; this, too, is used by WinSparkle
1 VERSIONINFO
@@ -30,7 +33,7 @@ BEGIN
VALUE "OriginalFilename", "texmacs.exe\0"
VALUE "LegalCopyright", "Licensed under GPLv3\0"
VALUE "ProductName", "TeXmacs\0"
- VALUE "ProductVersion", "@DEVEL_VERSION@\0"
+ VALUE "ProductVersion", "@DEVEL_VERSION@.@SVNREV@\0"
END
END
diff --git a/src/Plugins/Updater/tm_updater.cpp b/src/Plugins/Updater/tm_updater.cpp
index d9b8dff8..3604127e 100644
--- a/src/Plugins/Updater/tm_updater.cpp
+++ b/src/Plugins/Updater/tm_updater.cpp
@@ -70,6 +70,18 @@ bool updater_check_foreground ()
return updater && updater->checkInForeground();
}
+bool updater_set_appcast (url appcast)
+{
+ tm_updater* updater = tm_updater::instance ();
+ return updater && updater->setAppcast (appcast);
+}
+
+bool updater_set_pub_key (url pubkey)
+{
+ tm_updater* updater = tm_updater::instance ();
+ return updater && updater->setPubkey (pubkey);
+}
+
bool updater_set_interval (int hours)
{
tm_updater* updater = tm_updater::instance ();
diff --git a/src/Plugins/Updater/tm_updater.hpp b/src/Plugins/Updater/tm_updater.hpp
index a5d955b2..31fb6649 100644
--- a/src/Plugins/Updater/tm_updater.hpp
+++ b/src/Plugins/Updater/tm_updater.hpp
@@ -38,6 +38,8 @@ public:
virtual time_t lastCheck () const { return 0; }
virtual bool getCheckInterval () const { return interval; }
virtual bool setCheckInterval (int hours) { (void) hours; return false; }
+ virtual bool setAppcast (url _appcast) { (void) _appcast; return false; }
+ virtual bool setPubkey (url pubkey) { (void) pubkey; return false; }
};
@@ -49,6 +51,8 @@ bool updater_supported ();
bool updater_is_running ();
bool updater_check_background ();
bool updater_check_foreground ();
+bool updater_set_appcast (url appcast);
+bool updater_set_pub_key (url pubkey);
bool updater_set_interval (int hours);
time_t updater_last_check ();
diff --git a/src/Plugins/Updater/tm_winsparkle.cpp b/src/Plugins/Updater/tm_winsparkle.cpp
index 4d467304..2d1eb613 100644
--- a/src/Plugins/Updater/tm_winsparkle.cpp
+++ b/src/Plugins/Updater/tm_winsparkle.cpp
@@ -15,6 +15,7 @@
#include "tm_winsparkle.hpp"
#include "string.hpp"
+#include "file.hpp"
#include <winsparkle.h>
tm_winsparkle::~tm_winsparkle ()
@@ -22,9 +23,31 @@ tm_winsparkle::~tm_winsparkle ()
win_sparkle_cleanup();
}
+bool tm_winsparkle::setAppcast (url _appcast_url)
+{
+ if (appcast == _appcast_url) return true;
+
+ appcast = _appcast_url;
+ c_string s (as_string (_appcast_url)); // FIXME! This has to be UTF8!
+ win_sparkle_set_appcast_url (s);
+
+ return true;
+}
+ // Set DSA public key used to verify update's signature.
+ // This is na example how to provide it from external source (i.e. from Qt
+ // resource). See the "psdk" example and its .rc file for an example how to
+ // provide the key using Windows resource.
+ //
+bool tm_winsparkle::setPubkey (url pubkey)
+{
+ string s;
+ load_string (pubkey, s, false);
+ return (win_sparkle_set_dsa_pub_pem(c_string(s))==1);
+}
+
+
bool tm_winsparkle::setCheckInterval (int hours)
{
- if (running) return false;
interval = hours <= 0 ? 0
: max (MinimumCheckInterval, min (MaximumCheckInterval, hours));
win_sparkle_set_update_check_interval (interval * 3600);
@@ -41,18 +64,21 @@ bool tm_winsparkle::checkInBackground ()
{
// WinSparkle docs state that configuration must be finished before the first
// call to win_sparkle_init(), so we block any further attempts to change it.
- if (running || interval <= 0) return false;
- running = true;
- win_sparkle_init();
+ if (!inited) {
+ win_sparkle_init();
+ inited = true;
+ }
+ if (interval <= 0) return false;
win_sparkle_check_update_without_ui();
return true;
}
bool tm_winsparkle::checkInForeground ()
{
- if (running) return false;
- running = true;
- win_sparkle_init();
+ if (!inited) {
+ win_sparkle_init();
+ inited = true;
+ }
win_sparkle_check_update_with_ui();
return true;
}
diff --git a/src/Plugins/Updater/tm_winsparkle.hpp b/src/Plugins/Updater/tm_winsparkle.hpp
index 5d6fa8aa..a6e73101 100644
--- a/src/Plugins/Updater/tm_winsparkle.hpp
+++ b/src/Plugins/Updater/tm_winsparkle.hpp
@@ -12,17 +12,17 @@
class tm_winsparkle : public tm_updater
{
- bool running;
+ bool inited;
- tm_winsparkle () : tm_updater (), running (false) { }
+ tm_winsparkle () : tm_updater (), inited (false) {}
~tm_winsparkle ();
friend class tm_updater;
public:
bool checkInBackground ();
bool checkInForeground ();
- bool isRunning () const { return running; }
time_t lastCheck () const;
bool setCheckInterval (int hours);
bool setAppcast (url _appcast_url);
+ bool setPubkey (url pubkey);
};
diff --git a/src/Scheme/Glue/build-glue-basic.scm b/src/Scheme/Glue/build-glue-basic.scm
index 5ca0f653..cde354d3 100644
--- a/src/Scheme/Glue/build-glue-basic.scm
+++ b/src/Scheme/Glue/build-glue-basic.scm
@@ -24,6 +24,8 @@
(updater-check-background updater_check_background (bool))
(updater-check-foreground updater_check_foreground (bool))
(updater-last-check updater_last_check (long))
+ (updater-set-appcast updater_set_appcast (bool url))
+ (updater-set-pub-key updater_set_pub_key (bool url))
(updater-set-interval updater_set_interval (bool int))
(get-original-path get_original_path (string))
(os-win32? os_win32 (bool))
diff --git a/src/Scheme/Glue/glue_basic.cpp b/src/Scheme/Glue/glue_basic.cpp
index d1e46f03..c9b8d44c 100644
--- a/src/Scheme/Glue/glue_basic.cpp
+++ b/src/Scheme/Glue/glue_basic.cpp
@@ -84,6 +84,32 @@ tmg_updater_last_check () {
return long_to_tmscm (out);
}
+tmscm
+tmg_updater_set_appcast (tmscm arg1) {
+ TMSCM_ASSERT_URL (arg1, TMSCM_ARG1, "updater-set-appcast");
+
+ url in1= tmscm_to_url (arg1);
+
+ // TMSCM_DEFER_INTS;
+ bool out= updater_set_appcast (in1);
+ // TMSCM_ALLOW_INTS;
+
+ return bool_to_tmscm (out);
+}
+
+tmscm
+tmg_updater_set_pub_key (tmscm arg1) {
+ TMSCM_ASSERT_URL (arg1, TMSCM_ARG1, "updater-set-pub-key");
+
+ url in1= tmscm_to_url (arg1);
+
+ // TMSCM_DEFER_INTS;
+ bool out= updater_set_pub_key (in1);
+ // TMSCM_ALLOW_INTS;
+
+ return bool_to_tmscm (out);
+}
+
tmscm
tmg_updater_set_interval (tmscm arg1) {
TMSCM_ASSERT_INT (arg1, TMSCM_ARG1, "updater-set-interval");
@@ -9875,6 +9901,8 @@ initialize_glue_basic () {
tmscm_install_procedure ("updater-check-background", tmg_updater_check_background, 0, 0, 0);
tmscm_install_procedure ("updater-check-foreground", tmg_updater_check_foreground, 0, 0, 0);
tmscm_install_procedure ("updater-last-check", tmg_updater_last_check, 0, 0, 0);
+ tmscm_install_procedure ("updater-set-appcast", tmg_updater_set_appcast, 1, 0, 0);
+ tmscm_install_procedure ("updater-set-pub-key", tmg_updater_set_pub_key, 1, 0, 0);
tmscm_install_procedure ("updater-set-interval", tmg_updater_set_interval, 1, 0, 0);
tmscm_install_procedure ("get-original-path", tmg_get_original_path, 0, 0, 0);
tmscm_install_procedure ("os-win32?", tmg_os_win32P, 0, 0, 0);
--
2.17.1