version.el 4.99 KB
Newer Older
1
;;; version.el --- record version number of Emacs -*- no-byte-compile: t -*-
Dave Love's avatar
#  
Dave Love committed
2

3
;; Copyright (C) 1985, 1992, 1994-1995, 1999-2012
Glenn Morris's avatar
Glenn Morris committed
4
;;   Free Software Foundation, Inc.
Dave Love's avatar
#  
Dave Love committed
5 6 7

;; Maintainer: FSF
;; Keywords: internal
8
;; Package: emacs
Dave Love's avatar
#  
Dave Love committed
9 10 11

;; This file is part of GNU Emacs.

12
;; GNU Emacs is free software: you can redistribute it and/or modify
Dave Love's avatar
#  
Dave Love committed
13
;; it under the terms of the GNU General Public License as published by
14 15
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
Dave Love's avatar
#  
Dave Love committed
16 17 18 19 20 21 22

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
23
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
Dave Love's avatar
#  
Dave Love committed
24

25 26
;;; Commentary:

27 28 29
;; This file is loaded uncompiled when dumping Emacs.
;; Doc-strings should adhere to the conventions of make-docfile.

Dave Love's avatar
#  
Dave Love committed
30 31
;;; Code:

32 33
(defconst emacs-major-version (progn (string-match "^[0-9]+" emacs-version) (string-to-number (match-string 0 emacs-version))) "\
Major version number of this version of Emacs.
Dave Love's avatar
#  
Dave Love committed
34 35
This variable first existed in version 19.23.")

36 37
(defconst emacs-minor-version (progn (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version) (string-to-number (match-string 1 emacs-version))) "\
Minor version number of this version of Emacs.
Dave Love's avatar
#  
Dave Love committed
38 39 40 41 42
This variable first existed in version 19.23.")

(defconst emacs-build-time (current-time) "\
Time at which Emacs was dumped out.")

43 44
(defconst emacs-build-system (system-name) "\
Name of the system on which Emacs was built.")
Dave Love's avatar
#  
Dave Love committed
45

Juanma Barranquero's avatar
Juanma Barranquero committed
46
(defun emacs-version (&optional here) "\
Dave Love's avatar
#  
Dave Love committed
47 48 49 50 51
Return string describing the version of Emacs that is running.
If optional argument HERE is non-nil, insert string at point.
Don't use this function in programs to choose actions according
to the system configuration; look at `system-configuration' instead."
  (interactive "P")
52
  (let ((version-string
53
         (format (if (not (called-interactively-p 'interactive))
54 55
		     "GNU Emacs %s (%s%s%s)\n of %s on %s"
		   "GNU Emacs %s (%s%s%s) of %s on %s")
Dave Love's avatar
#  
Dave Love committed
56 57
                 emacs-version
		 system-configuration
58
		 (cond ((featurep 'motif)
59
			(concat ", " (substring motif-version-string 4)))
60 61
		       ((featurep 'gtk)
			(concat ", GTK+ Version " gtk-version-string))
62
		       ((featurep 'x-toolkit) ", X toolkit")
Dan Nicolaescu's avatar
Dan Nicolaescu committed
63
		       ((featurep 'ns)
64
			(format ", NS %s" ns-version-string))
Dave Love's avatar
#  
Dave Love committed
65
		       (t ""))
66 67 68 69 70
		 (if (and (boundp 'x-toolkit-scroll-bars)
			  (memq x-toolkit-scroll-bars '(xaw xaw3d)))
		     (format ", %s scroll bars"
			     (capitalize (symbol-name x-toolkit-scroll-bars)))
		   "")
71
		 (format-time-string "%Y-%m-%d" emacs-build-time)
Dave Love's avatar
#  
Dave Love committed
72
                 emacs-build-system)))
73
    (if here
Dave Love's avatar
#  
Dave Love committed
74
        (insert version-string)
75
      (if (called-interactively-p 'interactive)
Dave Love's avatar
#  
Dave Love committed
76 77 78
          (message "%s" version-string)
        version-string))))

Stefan Monnier's avatar
Stefan Monnier committed
79
;; We hope that this alias is easier for people to find.
Dave Love's avatar
#  
Dave Love committed
80 81
(defalias 'version 'emacs-version)

Glenn Morris's avatar
Glenn Morris committed
82 83
;; Set during dumping, this is a defvar so that it can be setq'd.
(defvar emacs-bzr-version nil "\
84 85 86
String giving the bzr revision from which this Emacs was built.
Value is the bzr revision number and a revision ID separated by a blank.
Value is nil if Emacs was not built from a bzr checkout, or if we could
Glenn Morris's avatar
Glenn Morris committed
87 88
not determine the revision.")

Glenn Morris's avatar
Glenn Morris committed
89
(defun emacs-bzr-get-version (&optional dir) "\
Glenn Morris's avatar
Glenn Morris committed
90
Try to return as a string the bzr revision number of the Emacs sources.
91 92
Value is the bzr revision number and a revision ID separated by a blank.
Value is nil if the sources do not seem to be under bzr, or if we could
Glenn Morris's avatar
Glenn Morris committed
93
not determine the revision.  Note that this reports on the current state
Glenn Morris's avatar
Glenn Morris committed
94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118
of the sources, which may not correspond to the running Emacs.

Optional argument DIR is a directory to use instead of `source-directory'."
  (or dir (setq dir source-directory))
  (when (file-directory-p (setq dir (expand-file-name ".bzr/branch" dir)))
    (let (file loc)
      (cond ((file-readable-p
              (setq file (expand-file-name "last-revision" dir)))
             (with-temp-buffer
               (insert-file-contents file)
               (goto-char (point-max))
               (if (looking-back "\n")
                   (delete-char -1))
               (buffer-string)))
            ;; OK, no last-revision.  Is it a lightweight checkout?
            ((file-readable-p
              (setq file (expand-file-name "location" dir)))
             ;; If the parent branch is local, try looking there for the revid.
             (if (setq loc (with-temp-buffer
                             (insert-file-contents file)
                             (if (looking-at "file://\\(.*\\)")
                                 (match-string 1))))
                 (emacs-bzr-get-version loc)))
            ;; Could fall back to eg `bzr testament' at this point.
            ))))
Glenn Morris's avatar
Glenn Morris committed
119

Richard M. Stallman's avatar
Richard M. Stallman committed
120
;; We put version info into the executable in the form that `ident' uses.
121 122
(purecopy (concat "\n$Id: " (subst-char-in-string ?\n ?\s (emacs-version))
		  " $\n"))
Dave Love's avatar
#  
Dave Love committed
123 124

;;; version.el ends here