home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / irchat-pj / irchat-pj-2.4.24.22.tar.gz / irchat-pj-2.4.24.22.tar / irchat-pj-2.4.24.22 / irchat-pj-version-string.el < prev    next >
Lisp/Scheme  |  2002-07-20  |  2KB  |  76 lines
  1. ;;;
  2. ;;; irchat-pj-version-string.el
  3. ;;; last modify : Fri, 25 Aug 2000 02:27:39 +0900
  4. ;;;               by simm@irc.fan.gr.jp / irchat-PJ Project
  5. ;;; see file irchat-copyright.el for change log and copyright info
  6. ;;;
  7.  
  8. ;; load version-specific module
  9.  
  10. (or (and (featurep 'xemacs)
  11.      (require 'irchat-pj-specific-xmas))
  12.     (and (featurep 'mule)
  13.      (boundp 'emacs-major-version)
  14.      (<= 20 emacs-major-version)
  15.      (require 'irchat-pj-specific-emacs20))
  16.     (and (featurep 'mule)
  17.      (require 'irchat-pj-specific-mule2))
  18.     (and (boundp 'NEMACS)
  19.      (require 'irchat-pj-specific-nemacs))
  20.     (require 'irchat-pj-specific-other-emacsen))
  21.  
  22. ;; constants and variables
  23.  
  24. (defconst irchat-client-version-jp ".24.22[2002/07/21]")
  25.  
  26. (defvar irchat-pj-version-string-hook nil
  27.   "Hook for modification irchat-pj-version-string")
  28.  
  29. (defconst irchat-client-version-major "2"
  30.   "Major version number. Major functional changes change this number.")
  31.  
  32. (defconst irchat-client-version-minor "4"
  33.   "Minor version number. Protocol changes and bug fixes change this number.")
  34.  
  35. (defconst irchat-client-version-release "$Date: 1994/02/23 15:05:00 $"
  36.   "version release date")
  37.  
  38. (defconst irchat-client-name "irchat-pj"
  39.   "*Name of this program.")
  40.  
  41. (defconst irchat-version
  42.   (format "%s %s.%s%s" 
  43.       irchat-client-name 
  44.       irchat-client-version-major
  45.       irchat-client-version-minor
  46.       irchat-client-version-jp)
  47.   "The version of irchat you are using.")
  48.  
  49. (defvar irchat-version-plus nil)
  50.  
  51. (defun irchat-pj-set-version-string ()
  52.   "Set reply string when received CTCP VERSION"
  53.   (setq irchat-pj-version-string
  54.     (concat "VERSION " irchat-version
  55.         (if (stringp irchat-version-plus)
  56.             (concat "+" irchat-version-plus " ")
  57.           " ")
  58.         (if (stringp irchat-pj-emacs-version-string)
  59.             irchat-pj-emacs-version-string
  60.           (setq irchat-pj-emacs-version-string (irchat-pj-set-emacs-version-string)))
  61.         " :for Emacsen"))
  62.   (run-hooks 'irchat-pj-version-string-hook)
  63.   irchat-pj-version-string)
  64.  
  65. (defvar irchat-pj-emacs-version-string
  66.   (irchat-pj-set-emacs-version-string)
  67.   "Emacs version string that returns when CTCP VERSION received")
  68.  
  69. (defvar irchat-pj-version-string
  70.   (irchat-pj-set-version-string)
  71.   "Reply string when CTCP VERSION received")
  72.  
  73. (provide 'irchat-pj-version-string)
  74.  
  75. ;; end of irchat-pj-version-string.el
  76.