Mercurial > hg > xemacs-beta

comparison lisp/package-net.el @ 707:a307f9a2021d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-12-20 05:49:28 by andyp] sync with 21-4-6-windows
author andyp
date Thu, 20 Dec 2001 05:49:48 +0000
parents 685b588e92d8
children 44de306310b8
comparison
equal deleted inserted replaced
706:c9bf82d465b5 707:a307f9a2021d
80 "The size in bytes of the cygwin32 binary distribution.") 80 "The size in bytes of the cygwin32 binary distribution.")
81 81
82 (defvar package-net-win32-binary-size 0 82 (defvar package-net-win32-binary-size 0
83 "The size in bytes of the win32 binary distribution.") 83 "The size in bytes of the win32 binary distribution.")
84 84
85 (defvar package-net-kit-version ""
86 "XEmacs kitting revision, usually empty.")
87
85 (defvar package-net-setup-version "1.0" 88 (defvar package-net-setup-version "1.0"
86 "The version string of setup.") 89 "The version string of setup.")
87 90
88 ;;;###autoload 91 ;;;###autoload
89 (defun package-net-setup-directory () 92 (defun package-net-setup-directory ()
90 (file-truename (concat data-directory "../../" (if (eq system-type 'cygwin32) 93 (file-truename (concat data-directory "../../" (if (eq system-type 'cygwin32)
91 "xemacs/setup/" "setup/")))) 94 "xemacs/setup/" "setup/"))))
92
93 (defun package-net-convert-index-to-ini (&optional destdir remote version)
94 "Convert the package index to ini file format in DESTDIR.
95 DESTDIR defaults to the value of `data-directory'."
96 (package-get-require-base remote)
97
98 (setq destdir (file-name-as-directory (or destdir data-directory)))
99 (let ((buf (get-buffer-create "*setup.ini*")))
100 (unwind-protect
101 (save-excursion
102 (set-buffer buf)
103 (erase-buffer buf)
104 (goto-char (point-min))
105 (let ((entries package-get-base) entry plist)
106 (insert "# This file is automatically generated. If you edit it, your\n")
107 (insert "# edits will be discarded next time the file is generated.\n")
108 (insert "#\n\n")
109 (insert (format "setup-timestamp: %d\n"
110 (+ (* (car (current-time)) 65536) (car (cdr (current-time))))))
111 (insert (format "setup-version: %s\n\n" (or version "1.0")))
112 ;; Native version
113 (insert (format "@ %s\n" "xemacs-i386-pc-win32"))
114 (insert (format "version: %s\n" emacs-program-version))
115 (insert "type: native\n")
116 (insert (format "install: binaries/win32/%s %d\n\n"
117 (concat emacs-program-name
118 "-i386-pc-win32-"
119 emacs-program-version ".tar.gz")
120 package-net-win32-binary-size))
121 ;; Cygwin version
122 (insert (format "@ %s\n" "xemacs-i686-pc-cygwin32"))
123 (insert (format "version: %s\n" emacs-program-version))
124 (insert "type: cygwin\n")
125 (insert (format "install: binaries/cygwin32/%s %d\n\n"
126 (concat emacs-program-name
127 "-i686-pc-cygwin32-"
128 emacs-program-version ".tar.gz")
129 package-net-cygwin32-binary-size))
130 ;; Standard packages
131 (while entries
132 (setq entry (car entries))
133 (setq plist (car (cdr entry)))
134 ;; ignore mule packages
135 (unless (or (memq 'mule-base (plist-get plist 'requires))
136 (eq 'mule-base (car entry)))
137 (insert (format "@ %s\n" (symbol-name (car entry))))
138 (insert (format "version: %s\n" (plist-get plist 'version)))
139 (insert (format "install: packages/%s %s\n" (plist-get plist 'filename)
140 (plist-get plist 'size)))
141 ;; These are not supported as yet
142 ;;
143 ;; (insert (format "source: %s\n" (plist-get plist 'source)))
144 ;; (insert "[prev]\n")
145 ;; (insert (format "version: %s\n" (plist-get plist 'version)))
146 ;; (insert (format "install: %s\n" (plist-get plist 'filename)))
147 ;; (insert (format "source: %s\n" (plist-get plist 'source)))
148 (insert "\n"))
149 (setq entries (cdr entries))))
150 (insert "# setup.ini file ends here\n")
151 (write-region (point-min) (point-max) (concat destdir "setup.ini")))
152 (kill-buffer buf))))
153
154 95
155 (defun package-net-generate-bin-ini (&optional version) 96 (defun package-net-generate-bin-ini (&optional version)
156 "Convert the package index to ini file format in the current directory." 97 "Convert the package index to ini file format in the current directory."
157 (let ((buf (get-buffer-create "*setup-bin.ini*"))) 98 (let ((buf (get-buffer-create "*setup-bin.ini*")))
158 (unwind-protect 99 (unwind-protect
166 (insert (format "setup-timestamp: %d\n" 107 (insert (format "setup-timestamp: %d\n"
167 (+ (* (car (current-time)) 65536) (car (cdr (current-time)))))) 108 (+ (* (car (current-time)) 65536) (car (cdr (current-time))))))
168 (insert (format "setup-version: %s\n\n" (or version "1.0"))) 109 (insert (format "setup-version: %s\n\n" (or version "1.0")))
169 ;; Native version 110 ;; Native version
170 (insert (format "@ %s\n" "xemacs-i586-pc-win32")) 111 (insert (format "@ %s\n" "xemacs-i586-pc-win32"))
171 (insert (format "version: %s\n" emacs-program-version)) 112 (insert (format "version: %s%s\n" emacs-program-version
113 package-net-kit-version))
172 (insert "type: native\n") 114 (insert "type: native\n")
173 (insert (format "install: win32/%s %d\n\n" 115 (insert (format "install: win32/%s %d\n\n"
174 (concat emacs-program-name 116 (concat emacs-program-name
175 "-i586-pc-win32-" 117 "-i586-pc-win32-"
176 emacs-program-version ".tar.gz") 118 emacs-program-version package-net-kit-version
119 ".tar.gz")
177 package-net-win32-binary-size)) 120 package-net-win32-binary-size))
178 ;; Cygwin version 121 ;; Cygwin version
179 (insert (format "@ %s\n" "xemacs-i686-pc-cygwin")) 122 (insert (format "@ %s\n" "xemacs-i686-pc-cygwin"))
180 (insert (format "version: %s\n" emacs-program-version)) 123 (insert (format "version: %s%s\n" emacs-program-version
124 package-net-kit-version))
181 (insert "type: cygwin\n") 125 (insert "type: cygwin\n")
182 (insert (format "install: cygwin32/%s %d\n\n" 126 (insert (format "install: cygwin32/%s %d\n\n"
183 (concat emacs-program-name 127 (concat emacs-program-name
184 "-i686-pc-cygwin-" 128 "-i686-pc-cygwin-"
185 emacs-program-version ".tar.gz") 129 emacs-program-version package-net-kit-version
130 ".tar.gz")
186 package-net-cygwin32-binary-size)) 131 package-net-cygwin32-binary-size))
187 (insert "# setup.ini file ends here\n") 132 (insert "# setup.ini file ends here\n")
188 (write-region (point-min) (point-max) "setup-bin.ini"))) 133 (write-region (point-min) (point-max) "setup-bin.ini")))
189 (kill-buffer buf))) 134 (kill-buffer buf)))
190 135