[PATCH] xemacs-builds: refactor to support win32 install kit download link files

This version was used to update generated xemacsweb download URL files today. Adrian 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.69 diff -u -U0 -r1.69 ChangeLog --- ChangeLog 16 Dec 2005 23:57:15 -0000 1.69 +++ ChangeLog 18 Dec 2005 21:08:33 -0000 ＠＠ -0,0 +1,22 ＠＠ +2005-12-18 Adrian Aichner <adrian(a)xemacs.org&gt; + + * adrian/website/package-get-2-download-sites.el: Refactor to + support win32 install kit download link files. + * adrian/website/package-get-2-download-sites.el + (package-get-2-download-sites-output-directory): Change default to + xemacsweb top-level directory. + * adrian/website/package-get-2-download-sites.el + (package-get-2-download-sites-file): Add teaser support for + self-contained URL link files. + * adrian/website/package-get-2-download-sites.el + (package-get-2-download-sites-netinstall): New. + * adrian/website/package-get-2-download-sites.el + (package-get-2-download-sites-installshield): New. + * adrian/website/package-get-2-download-sites.el + (package-get-2-download-sites-innosetup): New. + * adrian/website/package-get-2-download-sites.el + (package-get-2-download-sites): Call new functions. + * adrian/website/package-get-2-download-sites.el + (package-get-2-download-sites-generated-by-string): Provide more + information for generated 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 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.3 diff -u -w -r1.3 package-get-2-download-sites.el --- adrian/website/package-get-2-download-sites.el 16 Dec 2005 23:57:16 -0000 1.3 +++ adrian/website/package-get-2-download-sites.el 18 Dec 2005 21:04:11 -0000 ＠＠ -42,7 +42,7 ＠＠ 'words)) (defconst package-get-2-download-sites-output-directory - "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacsweb\\Releases" + "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacsweb\\" "Put output files of `package-get-2-download-sites' in this directory.") ; Missing from package-get.el: ＠＠ -77,11 +77,14 ＠＠ (t (concat host "/" path)))) -(defun package-get-2-download-sites-file (file site-list) +(defun package-get-2-download-sites-file (file site-list teaser) (with-temp-file (expand-file-name file package-get-2-download-sites-output-directory) + ;; Automatically buffer-local when set in any fashion: + (setq buffer-file-coding-system 'no-conversion-unix) (insert (package-get-2-download-sites-generated-by-string)) + (insert teaser) (insert " <ul>\n") (mapc (lambda (e) ＠＠ -120,25 +123,144 ＠＠ (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) + "/[^/]+/experimental/packages$" + "/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) + "/[^/]+/experimental/packages$" + "/binaries/win32/installshield/xemacs-21.5.17.exe"))) + package-get-pre-release-download-sites)) + +(defun package-get-2-download-sites-innosetup () + (mapcar + (lambda (e) + (list (replace-in-string (first e) " Pre-Releases" "") + (second e) + (replace-in-string + (third e) + "/[^/]+/experimental/packages$" + "/binaries/win32/InnoSetup/XEmacs%20Setup%2021.4.18-1.exe"))) + package-get-pre-release-download-sites)) + ; package-get-2-download-sites-gamma (defun package-get-2-download-sites () - "Generate files in `' based on current values of - `package-get-download-sites' and + "Generate files under + `package-get-2-download-sites-output-directory' based on current + values of `package-get-download-sites' and `package-get-pre-release-download-sites'." (interactive) - (package-get-2-download-sites-file "core-beta.txt" - (package-get-2-download-sites-beta)) - (package-get-2-download-sites-file "packages-pre-release.txt" - (package-get-2-download-sites-pre-release)) - (package-get-2-download-sites-file "packages-official.txt" - (package-get-2-download-sites-packages)) - (package-get-2-download-sites-file "core-stable.txt" - (package-get-2-download-sites-stable))) + (package-get-2-download-sites-file + "Releases/core-stable.txt" + (package-get-2-download-sites-stable) + " + <a id=\"Stable-Download\" name=\"Stable-Download\">Download</a> a stable release from + <a href=\"http://ftp.xemacs.org/xemacs/stable/\">ftp.xemacs.org... + or a mirror in your country: + + <p><a href=\"#index\">Goto</a> Index</p> + +") + (package-get-2-download-sites-file + "Releases/core-beta.txt" + (package-get-2-download-sites-beta) + " + <a id=\"Beta-Download\" name=\"Beta-Download\">Download</a> a beta release from + <a href=\"http://ftp.xemacs.org/xemacs/beta/\">ftp.xemacs.org&l... + or a mirror in your country: + + <p><a href=\"#index\">Goto</a> Index</p> + +") + (package-get-2-download-sites-file + "Releases/packages-official.txt" + (package-get-2-download-sites-packages) + " + <p> + <a id=\"Packages-Download\" name=\"Packages-Download\">Download</a> XEmacs Packages inside XEmacs using the Tools->Packages + menu, from + <a href=\"http://ftp.xemacs.org/xemacs/packages/\">ftp.xemacs.o...;, + or from a mirror in your country: + </p> + + <p><a href=\"#index\">Goto</a> Index</p> + +") + (package-get-2-download-sites-file + "Releases/packages-pre-release.txt" + (package-get-2-download-sites-pre-release) + " + <p> + <a id=\"Pre-Releases-Download\" name=\"Pre-Releases-Download\">Download</a> XEmacs Pre-Release Packages inside XEmacs using the + Tools->Packages menu, from <a + href=\"http://ftp.xemacs.org/xemacs/beta/experimental/packages/\&quo...;, + or from a mirror in your country: + </p> + + <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/\"... + 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/\&q... + 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/innosetup-win32.txt" + (package-get-2-download-sites-innosetup) + " + <a id=\"InnoSetup-Download\" name=\"InnoSetup-Download\">Download</a> + the recommended stable native Windows installkit from <a + href=\"http://ftp.xemacs.org/xemacs/binaries/win32/InnoSetup/\"... + or a mirror in your country: + + <p><a href=\"#index\">Goto</a> Index</p> +")) (defun package-get-2-download-sites-generated-by-string () (format - " <!-- Generated by %s\n at %s %+.4d (%s) -->\n" + " <!-- Generated by %s + at %s %+.4d (%s) + by M-x package-get-2-download-sites + available from XEmacs CVS at xemacs-builds/adrian/website -->\n" emacs-version (current-time-string) (/ -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/