Mercurial > emacs

comparison admin/admin.el @ 73372:726551ae0c3e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-version): Set version numbers in "mac" subdirectory.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Sun, 15 Oct 2006 04:19:36 +0000
parents ffd4e3fb1637
children b7548a5c934e 7eeafaaa9eab
comparison
equal deleted inserted replaced
73371:49c7ce377a36 73372:726551ae0c3e
95 (let* ((version-components (append (split-string version "\\.") 95 (let* ((version-components (append (split-string version "\\.")
96 '("0" "0"))) 96 '("0" "0")))
97 (comma-version 97 (comma-version
98 (concat (car version-components) "," 98 (concat (car version-components) ","
99 (cadr version-components) "," 99 (cadr version-components) ","
100 (cadr (cdr version-components)) "," 100 (cadr (cdr version-components)) ","
101 (cadr (cdr (cdr version-components))))) 101 (cadr (cdr (cdr version-components)))))
102 (comma-space-version 102 (comma-space-version
103 (concat (car version-components) ", " 103 (concat (car version-components) ", "
104 (cadr version-components) ", " 104 (cadr version-components) ", "
105 (cadr (cdr version-components)) ", " 105 (cadr (cdr version-components)) ", "
106 (cadr (cdr (cdr version-components)))))) 106 (cadr (cdr (cdr version-components))))))
107 (set-version-in-file root "nt/emacs.rc" comma-version 107 (set-version-in-file root "nt/emacs.rc" comma-version
108 (rx (and "FILEVERSION" (1+ space) 108 (rx (and "FILEVERSION" (1+ space)
109 (submatch (1+ (in "0-9,")))))) 109 (submatch (1+ (in "0-9,"))))))
110 (set-version-in-file root "nt/emacs.rc" comma-version 110 (set-version-in-file root "nt/emacs.rc" comma-version
114 (rx (and "\"FileVersion\"" (0+ space) ?, (0+ space) 114 (rx (and "\"FileVersion\"" (0+ space) ?, (0+ space)
115 ?\" (submatch (1+ (in "0-9, "))) "\\0\""))) 115 ?\" (submatch (1+ (in "0-9, "))) "\\0\"")))
116 (set-version-in-file root "nt/emacs.rc" comma-space-version 116 (set-version-in-file root "nt/emacs.rc" comma-space-version
117 (rx (and "\"ProductVersion\"" (0+ space) ?, 117 (rx (and "\"ProductVersion\"" (0+ space) ?,
118 (0+ space) ?\" (submatch (1+ (in "0-9, "))) 118 (0+ space) ?\" (submatch (1+ (in "0-9, ")))
119 "\\0\""))))) 119 "\\0\"")))
120 ;; Some files in the "mac" subdirectory also contain the version
121 ;; number.
122 (set-version-in-file
123 root "mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings"
124 version (rx (and "CFBundleShortVersionString" (0+ space) ?= (0+ space) ?\"
125 (submatch (1+ (in "0-9."))))))
126 (set-version-in-file
127 root "mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings"
128 version (rx (and "CFBundleGetInfoString" (0+ space) ?= (0+ space) ?\"
129 (submatch (1+ (in "0-9."))))))
130 (set-version-in-file root "mac/src/Emacs.r" (car version-components)
131 (rx (and "GNU Emacs " (submatch (1+ (in "0-9")))
132 " for Mac OS")))
133 (set-version-in-file root "mac/src/Emacs.r" (car version-components)
134 (rx (and (submatch (1+ (in "0-9"))) (0+ space) ?\,
135 (0+ space) "/* Major revision in BCD */")))
136 (set-version-in-file root "mac/src/Emacs.r" (cadr version-components)
137 (rx (and (submatch (1+ (in "0-9"))) (0+ space) ?\,
138 (0+ space) "/* Minor revision in BCD */")))
139 (set-version-in-file root "mac/src/Emacs.r" (cadr (cdr version-components))
140 (rx (and (submatch (1+ (in "0-9"))) (0+ space) ?\,
141 (0+ space) "/* Non-final release # */")))
142 (set-version-in-file root "mac/src/Emacs.r" version
143 (rx (and (submatch (1+ (in "0-9."))) (0+ space) ?\" ?\,
144 (0+ space) "/* Short version number */")))
145 (set-version-in-file root "mac/src/Emacs.r" version
146 (rx (and "/* Short version number */" (0+ space) ?\"
147 (submatch (1+ (in "0-9."))))))
148 (let* ((third-component (string-to-number (cadr (cdr version-components))))
149 (release (cond ((>= third-component 90) "alpha")
150 ((>= third-component 50) "development")
151 (t "final"))))
152 (set-version-in-file
153 root "mac/src/Emacs.r" release
154 (rx (and (submatch (1+ (in "a-z"))) (0+ space) ?\, (0+ space)
155 "/* development, alpha, beta, or final (release) */"))))))
120 156
121 ;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5 157 ;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5
122 ;; admin.el ends here. 158 ;; admin.el ends here.