(set-version): Set version numbers in "mac" subdirectory.

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 7b32f0a985f86fd9b9c56762f8643a899c7e7cc9..ea3016b07ee6af3c1a36e041c4eb1bfa5b1a823e 100644 (file)
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,7 @@
+2006-10-15  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
+
+       * admin.el (set-version): Set version numbers in "mac" subdirectory.
+
 2006-10-03  Kenichi Handa  <handa@m17n.org>
 
        * FOR-RELEASE (BUGS): "An iso-8859-6 cannot be saved" fixed.

diff --git a/admin/admin.el b/admin/admin.el
index 2f7f085b9d9fda3f863fdbe84a9fba5091f3cec4..6cd090c0805bcd7e7711e07e07368c15558b8b98 100644 (file)
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -97,12 +97,12 @@ Root must be the root of an Emacs source tree."
         (comma-version
          (concat (car version-components) ","
                  (cadr version-components) ","
-                 (cadr (cdr version-components)) "," 
+                 (cadr (cdr version-components)) ","
                  (cadr (cdr (cdr version-components)))))
         (comma-space-version
          (concat (car version-components) ", "
                  (cadr version-components) ", "
-                 (cadr (cdr version-components)) ", " 
+                 (cadr (cdr version-components)) ", "
                  (cadr (cdr (cdr version-components))))))
     (set-version-in-file root "nt/emacs.rc" comma-version
                         (rx (and "FILEVERSION" (1+ space)
@@ -116,7 +116,43 @@ Root must be the root of an Emacs source tree."
     (set-version-in-file root "nt/emacs.rc" comma-space-version
                         (rx (and "\"ProductVersion\"" (0+ space) ?,
                                  (0+ space) ?\" (submatch (1+ (in "0-9, ")))
-                                 "\\0\"")))))
+                                 "\\0\"")))
+    ;; Some files in the "mac" subdirectory also contain the version
+    ;; number.
+    (set-version-in-file
+     root "mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings"
+     version (rx (and "CFBundleShortVersionString" (0+ space) ?= (0+ space) ?\"
+                     (submatch (1+ (in "0-9."))))))
+    (set-version-in-file
+     root "mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings"
+     version (rx (and "CFBundleGetInfoString" (0+ space) ?= (0+ space) ?\"
+                     (submatch (1+ (in "0-9."))))))
+    (set-version-in-file root "mac/src/Emacs.r" (car version-components)
+                        (rx (and "GNU Emacs " (submatch (1+ (in "0-9")))
+                                 " for Mac OS")))
+    (set-version-in-file root "mac/src/Emacs.r" (car version-components)
+                        (rx (and (submatch (1+ (in "0-9"))) (0+ space) ?\,
+                                 (0+ space) "/* Major revision in BCD */")))
+    (set-version-in-file root "mac/src/Emacs.r" (cadr version-components)
+                        (rx (and (submatch (1+ (in "0-9"))) (0+ space) ?\,
+                                 (0+ space) "/* Minor revision in BCD */")))
+    (set-version-in-file root "mac/src/Emacs.r" (cadr (cdr version-components))
+                        (rx (and (submatch (1+ (in "0-9"))) (0+ space) ?\,
+                                 (0+ space) "/* Non-final release # */")))
+    (set-version-in-file root "mac/src/Emacs.r" version
+                        (rx (and (submatch (1+ (in "0-9."))) (0+ space) ?\" ?\,
+                                 (0+ space) "/* Short version number */")))
+    (set-version-in-file root "mac/src/Emacs.r" version
+                        (rx (and "/* Short version number */" (0+ space) ?\"
+                                 (submatch (1+ (in "0-9."))))))
+    (let* ((third-component (string-to-number (cadr (cdr version-components))))
+          (release (cond ((>= third-component 90) "alpha")
+                         ((>= third-component 50) "development")
+                         (t "final"))))
+      (set-version-in-file
+       root "mac/src/Emacs.r" release
+       (rx (and (submatch (1+ (in "a-z"))) (0+ space) ?\, (0+ space)
+               "/* development, alpha, beta, or final (release) */"))))))
 
 ;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5
 ;; admin.el ends here.