[C] xemacs-builds: Remove InstallShield and Netinstall information from package-get-2-download-sites.el, add Beta XEmacs and Gnuclient InnoSetup kits

Adrian Aichner adrian at xemacs.org
Sun Oct 7 14:56:57 EDT 2007


COMMIT


xemacs-builds ChangeLog patch:
Diff command:   cvs -q diff -U 0
Files affected: ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/ChangeLog,v
retrieving revision 1.82
diff -u -U0 -r1.82 ChangeLog
--- ChangeLog	26 Sep 2007 20:53:16 -0000	1.82
+++ ChangeLog	7 Oct 2007 18:56:32 -0000
@@ -0,0 +1,13 @@
+2007-10-07  Adrian Aichner  <adrian at xemacs.org>
+
+	* adrian/website/package-get-2-download-sites.el: Remove
+	InstallShield and Netinstall information, add Beta XEmacs and
+	Gnuclient InnoSetup kits.
+	* adrian/website/package-get-2-download-sites.el (package-get-2-download-sites-netinstall): Removed.
+	* adrian/website/package-get-2-download-sites.el (package-get-2-download-sites-installshield): Removed.
+	* adrian/website/package-get-2-download-sites.el (package-get-2-download-sites-innosetup): Refactor to handle Stable, Beta, and Gnuclient kits.
+	* adrian/website/package-get-2-download-sites.el
+	(package-get-2-download-sites): Generate download site files for
+	InnoSetup Beta and Gnuclient kits.  No longer generate Netinstall
+	and InstallShield files.
+

xemacs-builds source patch:
Diff command:   cvs -f -z3 -q diff -u -w -N
Files affected: adrian/website/package-get-2-download-sites.el
===================================================================
RCS

Index: adrian/website/package-get-2-download-sites.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/adrian/website/package-get-2-download-sites.el,v
retrieving revision 1.15
diff -u -w -r1.15 package-get-2-download-sites.el
--- adrian/website/package-get-2-download-sites.el	26 Sep 2007 20:53:19 -0000	1.15
+++ adrian/website/package-get-2-download-sites.el	7 Oct 2007 18:53:19 -0000
@@ -138,29 +138,29 @@
            (replace-in-string (third e) "/packages$" "/stable")))
    package-get-download-sites))
 
-(defun package-get-2-download-sites-netinstall ()
-  (mapcar
-   (lambda (e)
-     (list (replace-in-string (first e) " Pre-Releases" "")
-           (second e)
-           (replace-in-string
-            (third e)
-            package-get-2-download-sites-experimental-packages-regex
-            "binaries/win32/netinstall/xemacs-i586-pc-win32-21.4.13.tar.gz")))
-   package-get-pre-release-download-sites))
-
-(defun package-get-2-download-sites-installshield ()
-  (mapcar
-   (lambda (e)
-     (list (replace-in-string (first e) " Pre-Releases" "")
-           (second e)
-           (replace-in-string
-            (third e)
-            package-get-2-download-sites-experimental-packages-regex
-            "binaries/win32/installshield/xemacs-21.5.17.exe")))
-   package-get-pre-release-download-sites))
+; (defun package-get-2-download-sites-netinstall ()
+;   (mapcar
+;    (lambda (e)
+;      (list (replace-in-string (first e) " Pre-Releases" "")
+;            (second e)
+;            (replace-in-string
+;             (third e)
+;             package-get-2-download-sites-experimental-packages-regex
+;             "binaries/win32/netinstall/xemacs-i586-pc-win32-21.4.13.tar.gz")))
+;    package-get-pre-release-download-sites))
+
+; (defun package-get-2-download-sites-installshield ()
+;   (mapcar
+;    (lambda (e)
+;      (list (replace-in-string (first e) " Pre-Releases" "")
+;            (second e)
+;            (replace-in-string
+;             (third e)
+;             package-get-2-download-sites-experimental-packages-regex
+;             "binaries/win32/installshield/xemacs-21.5.17.exe")))
+;    package-get-pre-release-download-sites))
 
-(defun package-get-2-download-sites-innosetup ()
+(defun package-get-2-download-sites-innosetup (kit)
   (mapcar
    (lambda (e)
      (list (replace-in-string (first e) " Pre-Releases" "")
@@ -168,7 +168,7 @@
            (replace-in-string
             (third e)
             package-get-2-download-sites-experimental-packages-regex
-            "binaries/win32/InnoSetup/XEmacs_Setup_21.4.20.exe")))
+            (concat "binaries/win32/InnoSetup/" kit))))
    package-get-pre-release-download-sites))
 
 ; package-get-2-download-sites-gamma
@@ -229,45 +229,70 @@
   <p><a href=\"#index\">Goto</a> Index</p>
 
 ")
+;   (package-get-2-download-sites-file
+;    "Download/win32/netinstall-win32.txt"
+;    (package-get-2-download-sites-netinstall)
+;    "
+;   <a id=\"Netinstall-Download\" name=\"Netinstall-Download\">Download</a>
+;   an outdated Windows installkit from <a
+;   href=\"http://ftp.xemacs.org/xemacs/binaries/win32/netinstall/\">ftp.xemacs.org</a>
+;   or a mirror in your country, if you need to use a release not
+;   available in form of the recommended <a
+;   href=\"#InnoSetup-Download\">InnoSetup</a> install kit for some
+;   reason:
+
+;   <p><a href=\"#index\">Goto</a> Index</p>
+; ")
+;   (package-get-2-download-sites-file
+;    "Download/win32/installshield-win32.txt"
+;    (package-get-2-download-sites-installshield)
+;    "  <a id=\"InstallShield-Download\"
+;   name=\"InstallShield-Download\">Download</a> an outdated Windows
+;   installkit from <a
+;   href=\"http://ftp.xemacs.org/xemacs/binaries/win32/installshield/\">ftp.xemacs.org</a>
+;   or a mirror in your country, if you don't want to use the if you
+;   need to use a release not available in form of the recommended <a
+;   href=\"#InnoSetup-Download\">InnoSetup</a> install kit for some
+;   reason:
+
+;   <p><a href=\"#index\">Goto</a> Index</p>
+
+; ")
   (package-get-2-download-sites-file
-   "Download/win32/netinstall-win32.txt"
-   (package-get-2-download-sites-netinstall)
+   "Download/win32/innosetup-stable-win32.txt"
+   (package-get-2-download-sites-innosetup "XEmacs_Setup_21.4.20.exe")
    "
-  <a id=\"Netinstall-Download\" name=\"Netinstall-Download\">Download</a>
-  an outdated Windows installkit from <a
-  href=\"http://ftp.xemacs.org/xemacs/binaries/win32/netinstall/\">ftp.xemacs.org</a>
-  or a mirror in your country, if you need to use a release not
-  available in form of the recommended <a
-  href=\"#InnoSetup-Download\">InnoSetup</a> install kit for some
-  reason:
+  <a id=\"InnoSetup-Stable-Download\" name=\"InnoSetup-Stable-Download\">Download</a>
+  the recommended stable native Windows installkit from <a
+  href=\"http://ftp.xemacs.org/xemacs/binaries/win32/InnoSetup/\">ftp.xemacs.org</a>
+  or a mirror in your country:
 
   <p><a href=\"#index\">Goto</a> Index</p>
+
 ")
   (package-get-2-download-sites-file
-   "Download/win32/installshield-win32.txt"
-   (package-get-2-download-sites-installshield)
-   "  <a id=\"InstallShield-Download\"
-  name=\"InstallShield-Download\">Download</a> an outdated Windows
-  installkit from <a
-  href=\"http://ftp.xemacs.org/xemacs/binaries/win32/installshield/\">ftp.xemacs.org</a>
-  or a mirror in your country, if you don't want to use the if you
-  need to use a release not available in form of the recommended <a
-  href=\"#InnoSetup-Download\">InnoSetup</a> install kit for some
-  reason:
+   "Download/win32/innosetup-beta-win32.txt"
+   (package-get-2-download-sites-innosetup "XEmacs_Setup_21.5-b28.exe")
+   "
+  <a id=\"InnoSetup-Beta-Download\" name=\"InnoSetup-Beta-Download\">Download</a>
+  the recommended beta native Windows installkit from <a
+  href=\"http://ftp.xemacs.org/xemacs/binaries/win32/InnoSetup/\">ftp.xemacs.org</a>
+  or a mirror in your country:
 
   <p><a href=\"#index\">Goto</a> Index</p>
 
 ")
   (package-get-2-download-sites-file
-   "Download/win32/innosetup-win32.txt"
-   (package-get-2-download-sites-innosetup)
+   "Download/win32/innosetup-gnuclient-win32.txt"
+   (package-get-2-download-sites-innosetup "gnuclient_setup.exe")
    "
-  <a id=\"InnoSetup-Download\" name=\"InnoSetup-Download\">Download</a>
-  the recommended stable native Windows installkit from <a
+  <a id=\"InnoSetup-Gnuclient-Download\" name=\"InnoSetup-Gnuclient-Download\">Download</a>
+  the recommended gnuclient Windows installkit from <a
   href=\"http://ftp.xemacs.org/xemacs/binaries/win32/InnoSetup/\">ftp.xemacs.org</a>
   or a mirror in your country:
 
   <p><a href=\"#index\">Goto</a> Index</p>
+
 "))
 
 (defun package-get-2-download-sites-generated-by-string ()

-- 
Adrian Aichner
 mailto:adrian at xemacs.org
 http://www.xemacs.org/



More information about the XEmacs-Patches mailing list