[0512] 清理旧更新器配置与死代码 (#4319)

Author: MoonL79

TeXmacs/progs/kernel/texmacs/pref-keys.scm

@@ -220,7 +220,6 @@
 (define-public (pref-security) "security")
 (define-public (pref-scripting-language) "scripting language")
 (define-public (pref-document-update-times) "document update times")
-(define-public (pref-updater-interval) "updater:interval")
 
 ;; ---- Other / Experimental toggles ----
 (define-public (pref-experimental-fast-environments) "fast environments")

TeXmacs/progs/prog/glue-symbols.scm

@@ -26,11 +26,8 @@
   '("texmacs-version-release"
     "version-before?"
     "use-plugin-updater?"
-    "updater-running?"
     "updater-check-background"
-    "updater-check-foreground"
     "updater-last-check"
-    "updater-set-interval"
     "updater-state"
     "updater-download"
     "updater-apply"

TeXmacs/progs/texmacs/menus/preferences-tools.scm

@@ -124,29 +124,6 @@
   ) ;let*
 ) ;define
 
-;; updater last check：info 行显示上次检查更新时间（updater 插件注入）。
-
-(define (updater-last-check-formatted)
-  "Time since last update check formatted for use in the preferences dialog"
-  (with c
-    (updater-last-check)
-    (if (<= c 0)
-      "Never"
-      (with h
-        (ceiling (/ (- (current-time) c) 3600))
-        (cond ((< h 24) (replace "Less than %1 hour(s) ago" h))
-              ((< h 720) (replace "%1 days ago" (ceiling (/ h 24))))
-              (else (translate "More than 1 month ago"))
-        ) ;cond
-      ) ;with
-    ) ;if
-  ) ;with
-) ;define
-
-(define (last-check-string)
-  (if (use-plugin-updater?) (updater-last-check-formatted) "Never (unsupported)")
-) ;define
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; QML facade 纯函数族：紧凑字段格式 (key label options options-pretty
 ;; editable? . flags) -> assoc-list field-descriptor（供 C++ bridge 消费）。
@@ -276,7 +253,6 @@
           ((== (cdr pf) 'macos-only) (os-macos?))
           ((== (cdr pf) 'native-pdf-only) (supports-native-pdf?))
           ((== (cdr pf) 'qt-only) (qt-gui?))
-          ((== (cdr pf) 'updater-only) (use-plugin-updater?))
           (else #t)
     ) ;cond
   ) ;let*
@@ -304,8 +280,6 @@
         ((== key "latex:transparent-source-tracking")
          (if (get-latex-transparent-source-tracking) "on" "off")
         ) ;
-        ;; Last check info：非真实 preference，显示上次检查更新时间（updater 插件注入）。
-        ((== key "updater:last-check") (last-check-string))
         ((== kind "toggle") (if (get-boolean-preference key) "on" "off"))
         (else "")
   ) ;cond

TeXmacs/progs/texmacs/menus/preferences-widgets.scm

@@ -202,14 +202,6 @@
  ("accept all scripts" "Accept all scripts")
 ) ;define-preference-names
 
-(define-preference-names "updater:interval"
- ("0" "Never")
- ("0" "Unsupported")
- ("24" "Once a day")
- ("168" "Once a week")
- ("720" "Once a month")
-) ;define-preference-names
-
 (define-preference-names "document update times"
  ("1" "Once")
  ("2" "Twice")
@@ -952,27 +944,6 @@
       '("Once" "Twice" "Three times")
       #f
     ) ;list
-    ;; updater 字段仅启用插件更新器时可见（use-plugin-updater?）。
-    (list (pref-updater-interval)
-      "Check for automatic updates"
-      '("0" "24" "168" "720")
-      '("Never" "Once a day" "Once a week" "Once a month")
-      #f
-      'platform-filter
-      'updater-only
-    ) ;list
-    ;; Last check：info 只读行，显示上次检查更新时间（updater 插件启用时）。
-    ;; 'info flag 显式标 info kind（key 非空但无 setter、不入 diff）。
-    (list "updater:last-check"
-      "Last check"
-      '()
-      '()
-      #f
-      'info
-      #t
-      'platform-filter
-      'updater-only
-    ) ;list
   ) ;list
 ) ;define
 

TeXmacs/progs/utils/misc/updater.scm

@@ -15,10 +15,6 @@
 
 (texmacs-module (utils misc updater))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Preference management
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
 (tm-define (updater-initialize)
   (when (use-plugin-updater?)
     (updater-check-background)
@@ -27,8 +23,6 @@
   ) ;when
 ) ;tm-define
 
-(define-preferences ("updater:interval" "null" noop))
-
 ;; 下载已可用更新（非更新器平台或未到 available 状态返回 #f）。
 ;; 返回是否已启动下载。
 

devel/0512.md

@@ -47,12 +47,28 @@ Velopack：以 Velopack 作为安装/更新事务的唯一所有者，产出 `Se
    下载就绪（ready）后不再动作，下次启动由 `VelopackApp::Build().Run()` 自动应用；
    下载失败（failed）不立即重试，等下一次定时检查（1 小时）重新发现更新后再试。
    自动下载默认启用、不提供独立配置入口（后续统一入口统一管理）。
+6. **旧代码清理（本次）**：删除旧 WinSparkle 时代的 `updater:interval` 偏好骨架——
+   `define-preferences`、`pref-updater-interval`、preferences 的 "Check for automatic
+   updates" 字段与 `updater:last-check` 显示行、`updater-last-check-formatted`/
+   `last-check-string` helper、`updater-only` 平台过滤；同时删除无人消费的 glue 与
+   C++ 死代码：`updater-running?`/`updater-check-foreground`/`updater-set-interval`
+   （含 `isRunning`/`checkInForeground`/`setCheckInterval`/`getCheckInterval`/
+   `setAppcast` 与 `appcast`/`interval` 成员）。检查节奏已由 scheme 硬编码 1 小时，
+   interval 配置不再需要。
+5. **测试期望回归修复（本次）**：清理提交把 `preferences-widgets-test.scm` 中
+   `"other"` tab 字段数期望从 `(if (os-macos?) 17 15)` 误改为 `15 13`。但测试环境
+   `use-plugin-updater?` 为 `#f`，旧代码 `updater-only` 平台过滤本就把两个 updater
+   字段滤掉，测试计数从未包含它们——从字段列表删除它们不改变计数。实际计数
+   macOS 仍为 17（misc 5 + experimental 12）、Debian 为 15；Windows CI
+   （`ci-xmake-windows.yml`）不运行 scheme 单元测试，静态同为 15。恢复期望为
+   `(if (os-macos?) 17 15)`，`xmake r preferences-widgets-test` 426 checks 全过。
 
 ### 涉及文件
 
 - `src/Mogan/Research/research.cpp`、`xmake/targets/stem.lua`、`xmake/targets/libmogan.lua`
 - `src/Plugins/Updater/tm_updater.*`、`tm_velopack.*`（新增）、`src/Scheme/Plugins/glue_updater.lua`
 - `TeXmacs/progs/utils/misc/updater.scm`、`TeXmacs/progs/prog/glue-symbols.scm`
+- `TeXmacs/progs/texmacs/menus/tests/preferences-widgets-test.scm`（期望值回归修复）
 
 ### 如何测试
 

src/Plugins/Updater/tm_updater.cpp

@@ -37,30 +37,12 @@ tm_updater::instance () {
  * Scheme interface
  ******************************************************************************/
 
-bool
-updater_is_running () {
-  tm_updater* updater= tm_updater::instance ();
-  return updater && updater->isRunning ();
-}
-
 bool
 updater_check_background () {
   tm_updater* updater= tm_updater::instance ();
   return updater && updater->checkInBackground ();
 }
 
-bool
-updater_check_foreground () {
-  tm_updater* updater= tm_updater::instance ();
-  return updater && updater->checkInForeground ();
-}
-
-bool
-updater_set_interval (int hours) {
-  tm_updater* updater= tm_updater::instance ();
-  return updater && updater->setCheckInterval (hours);
-}
-
 time_t
 updater_last_check () {
   tm_updater* updater= tm_updater::instance ();

src/Plugins/Updater/tm_updater.hpp

@@ -32,13 +32,7 @@ enum tm_updater_state {
 
 class tm_updater {
 protected:
-  static const int MinimumCheckInterval= 24;      //<! in hours
-  static const int MaximumCheckInterval= 24 * 31; //<! in hours
-
-  url appcast;
-  int interval;
-
-  tm_updater () : interval (0) {}
+  tm_updater () {}
   tm_updater (const tm_updater&);
   void operator= (const tm_updater&);
   virtual ~tm_updater () {};
@@ -47,15 +41,8 @@ class tm_updater {
   static tm_updater* instance ();
 
   virtual bool checkInBackground () { return false; } // non-blocking
-  virtual bool checkInForeground () { return false; } // non-blocking
-  virtual bool isRunning () const { return false; }
 
   virtual time_t lastCheck () const { return 0; }
-  virtual bool   getCheckInterval () const { return interval; }
-  virtual bool   setCheckInterval (int hours) {
-    (void) hours;
-    return false;
-  }
 
   virtual tm_updater_state state () const { return UPDATER_IDLE; }
   virtual string           availableVersion () const { return string (); }
@@ -64,20 +51,13 @@ class tm_updater {
   virtual string           errorCode () const { return string (); }
   virtual bool             downloadUpdate () { return false; }
   virtual bool             applyUpdate () { return false; }
-  virtual bool             setAppcast (url _url) {
-    appcast= _url;
-    return true;
-  }
 };
 
 /******************************************************************************
  * Scheme interface
  ******************************************************************************/
 
-bool   updater_is_running ();
 bool   updater_check_background ();
-bool   updater_check_foreground ();
-bool   updater_set_interval (int hours);
 time_t updater_last_check ();
 
 int    updater_state ();

src/Plugins/Updater/tm_velopack.cpp

@@ -159,29 +159,12 @@ tm_velopack::checkInBackground () {
   return true;
 }
 
-bool
-tm_velopack::checkInForeground () {
-  return checkInBackground ();
-}
-
-bool
-tm_velopack::isRunning () const {
-  std::lock_guard<std::mutex> lk (rep->mtx);
-  return rep->running;
-}
-
 time_t
 tm_velopack::lastCheck () const {
   std::lock_guard<std::mutex> lk (rep->mtx);
   return rep->last;
 }
 
-bool
-tm_velopack::setCheckInterval (int hours) {
-  interval= hours;
-  return true;
-}
-
 void
 tm_velopack::do_check () {
   try {

src/Plugins/Updater/tm_velopack.hpp

@@ -38,10 +38,7 @@ class tm_velopack : public tm_updater {
 
 public:
   bool   checkInBackground ();
-  bool   checkInForeground ();
-  bool   isRunning () const;
   time_t lastCheck () const;
-  bool   setCheckInterval (int hours);
 
   tm_updater_state state () const;
   string           availableVersion () const;