From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Sun, 15 Oct 2006 04:19:49 +0000 (+0000)
Subject: (set-version): Set version numbers in "mac" subdirectory.
X-Git-Tag: emacs-pretest-22.0.90~125
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0834a5ca044e97ae749a1517fa221cc977b0bd0;p=emacs.git

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

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 7b32f0a985f..ea3016b07ee 100644
--- 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 2f7f085b9d9..6cd090c0805 100644
--- 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.