HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/cedet/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/cedet/inversion.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@31 Current version of InVersion.
(defvar inversion-version "1.3" (#$ . 408))
#@61 An earlier release which is incompatible with this release.
(defvar inversion-incompatible-version "0.1alpha1" (#$ . 488))
#@382 List of decoders for version strings.
Each decoder is of the form:

  ( RELEASE-TYPE REGEXP MAX )

RELEASE-TYPE is a symbol specifying something like `beta' or `alpha'.
REGEXP is the regular expression to match a version string.
MAX is the maximum number of match-numbers in the release number.
Decoders must be ordered to decode least stable versions before the
more stable ones.
(defconst inversion-decoders '((alpha "^\\([0-9]+\\)\\.\\([0-9]+\\)\\.?\\([0-9]*\\)?\\s-*\\.?alpha\\([0-9]+\\)?$" 4) (beta "^\\([0-9]+\\)\\.\\([0-9]+\\)\\.?\\([0-9]*\\)?\\s-*\\.?beta\\([0-9]+\\)?$" 4) (beta "^\\([0-9]+\\)\\.\\([0-9]+\\)\\.?\\([0-9]*\\)?\\s-*\\.?(beta\\([0-9]+\\)?)$" 4) (beta "^[^/]+/\\w+--\\w+--\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)--patch-\\([0-9]+\\)" 4) (beta "^\\w+: v\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)-\\([0-9]+\\)-\\(.*\\)" 5) (prerelease "^\\([0-9]+\\)\\.\\([0-9]+\\)\\s-*\\.?pre\\([0-9]+\\)?$" 3) (full "^\\([0-9]+\\)\\.\\([0-9]+\\)\\.?\\([0-9]+\\)?$" 3) (fullsingle "^\\([0-9]+\\)$" 1) (patch "^\\([0-9]+\\)\\.\\([0-9]+\\)\\.?\\([0-9]+\\)?\\s-*(patch \\([0-9]+\\))" 4) (point "^\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)$" 3) (point "^\\w+: v\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)-\\(0\\)-\\(.*\\)" 5) (build "^\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\).\\([0-9]+\\)$" 4) (full "^[^/]+/\\w+--\\w+--\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)--version-\\([0-9]+\\)" 4) (full "^\\w+: v\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)" 5)) (#$ . 618))
#@155 Decode VERSION-STRING into an encoded list.
Return value is of the form:
  (RELEASE MAJOR MINOR ...)
where RELEASE is a symbol such as `full', or `beta'.
(defalias 'inversion-decode-version #[(version-string) "\306\n\203V	\204V\307\n@A@\"\203O\306\310\n@8\311\f
X\203C\f\224\2036\312\f\224\f\225O!\2027\311B\fT\211\202!\n@@\237B+\202\nA\211\204	*\207" [inversion-decoders result decoders version-string count num-left nil string-match 2 1 string-to-number ver] 5 (#$ . 2092)])
#@41 Return the decoded version for PACKAGE.
(defalias 'inversion-package-version #[(package) "\303\304!\305P!J\306\211\204\307\310\211#\210\311\n!\211\204#\307\312\n#\210	*\207" [package code ver intern-soft symbol-name "-version" nil error "Package %S does not define %S-version" inversion-decode-version "%S-version value (%s) cannot be decoded"] 5 (#$ . 2604)])
#@227 Return the decoded incompatibility version for PACKAGE.
The incompatibility version is specified by the programmer of
a package when a package is not backward compatible.  It is
not an indication of new features or bug fixes.
(defalias 'inversion-package-incompatibility-version #[(package) "\302\303!\304P!J\211\205\305	!)\207" [package ver intern-soft symbol-name "-incompatible-version" inversion-decode-version] 4 (#$ . 2981)])
#@29 Convert CODE into a string.
(defalias 'inversion-recode #[(code) "@A@\3058\3068\211\307\267\202\310\211\202\311\312\313\n\f	%,\207" [code p i n r 2 3 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (full 21 point 28)) "" "." format "%s.%s%s%s"] 7 (#$ . 3423)])
#@39 Convert RELEASE-SYMBOL into a number.
(defalias 'inversion-release-to-number #[(release-symbol) "\303	\"	G\n	\235GZ)\207" [release-symbol inversion-decoders ra assoc] 4 (#$ . 3743)])
#@42 Return non-nil if VER1 is equal to VER2.
(defalias 'inversion-= #[(ver1 ver2) "	\232\207" [ver1 ver2] 2 (#$ . 3934)])
#@43 Return non-nil if VER1 is less than VER2.
(defalias 'inversion-< #[(ver1 ver2) "\306@!A@\3078\3108\3118\306	@!	A@\307	8\310	8\311	8\n\f

\fF
\f\nF\232\203T\203T\n\203T\nW\202\273
\232\203y
\f\232\203y\f\232\203y\203y\n\203y\nW\202\273
\232\203\227
\f\232\203\227\f\203\227\203\227\fW\202\273
\232\203\256
\203\256\f\203\256
\fW\202\273\205\273
\205\273
W.\n\207" [ver1 ver2 v2-4 v2-3 v2-2 v2-1 inversion-release-to-number 2 3 4 v2-0 v1-4 v1-3 v1-2 v1-1 v1-0] 11 (#$ . 4059)])
#@455 Check that a given version meets the minimum requirement.
VERSION, INCOMPATIBLE-VERSION and MINIMUM are of similar format to
return entries of `inversion-decode-version', or a classic version
string.	 INCOMPATIBLE-VERSION can be nil.
RESERVED arguments are kept for a later use.
Return:
- nil if everything is ok.
- `outdated' if VERSION is less than MINIMUM.
- `incompatible' if VERSION is not backward compatible with MINIMUM.
- t if the check failed.
(defalias 'inversion-check-version #[(version incompatible-version minimum &rest reserved) ";\203\306!\202\f	;\203\306	!\202	\307\n\"\203%\310\202d\311\n\"\2030\312\202d\311\n\"\203c\f;\203B\306\f!\202C\f\211\204L\310\202_\307\n
\"\204Z\311\n
\"\203^\305\202_\310)\202d\313*\207" [version minimum req code incompatible-version incompatible inversion-decode-version inversion-= nil inversion-< outdated t] 4 (#$ . 4618)])
#@457 Test that PACKAGE meets the MINIMUM version requirement.
PACKAGE is a symbol, similar to what is passed to `require'.
MINIMUM is of similar format to return entries of
`inversion-decode-version', or a classic version string.
RESERVED arguments are kept for a later user.
This depends on the symbols `PACKAGE-version' and optionally
`PACKAGE-incompatible-version' being defined in PACKAGE.
Return nil if everything is ok.	 Return an error string otherwise.
(defalias 'inversion-test #[(package minimum &rest reserved) "\304\305!\306!	\n$\211\204\307\2020\310=\203!\311\312	#\2020\313=\203/\311\314	#\2020\315)\207" [package minimum reserved check inversion-check-version inversion-package-version inversion-package-incompatibility-version nil outdated format "You need to upgrade package %s to %s" incompatible "Package %s version is not backward compatible with %s" "Inversion version check failed."] 6 (#$ . 5529)])
#@600 Test that PACKAGE at OLDVERSION is still compatible.
If something like a save file is loaded at OLDVERSION, this
test will identify if OLDVERSION is compatible with the current version
of PACKAGE.
PACKAGE is a symbol, similar to what is passed to `require'.
OLDVERSION is of similar format to return entries of
`inversion-decode-version', or a classic version string.
RESERVED arguments are kept for a later user.
This depends on the symbols `PACKAGE-version' and optionally
`PACKAGE-incompatible-version' being defined in PACKAGE.
Return nil if everything is ok.	 Return an error string otherwise.
(defalias 'inversion-reverse-test #[(package oldversion &rest reserved) "\304\305!\306!	\n$\211\204\307\2020\310=\203!\311\312	#\2020\313=\203/\311\314	#\2020\315)\207" [package oldversion reserved check inversion-check-version inversion-package-version inversion-package-incompatibility-version nil outdated format "Package %s version %s is not compatible with current version" incompatible "Package %s version is not backward compatible with %s" "Inversion version check failed."] 6 (#$ . 6467)])
#@416 Declare that you need PACKAGE with at least VERSION.
PACKAGE might be found in FILE.  (See `require'.)
Throws an error if VERSION is incompatible with what is installed.
Optional argument DIRECTORY is a location where new versions of
this tool can be located.  If there is a versioning problem and
DIRECTORY is provided, inversion will offer to download the file.
Optional argument RESERVED is saved for later use.
(defalias 'inversion-require #[(package version &optional file directory &rest reserved) "\305	\"\210\306\n\"\211\203 \f\203\307\f\n$\210\202 \310!\210)\207" [package file version err directory require inversion-test inversion-download-package-ask error] 6 (#$ . 7586)])
#@127 Declare that you need either EMACS-VER, XEMACS-VER or SXEMACS-ver.
Only checks one based on which kind of Emacs is being run.
(defalias 'inversion-require-emacs #[(emacs-ver xemacs-ver sxemacs-ver) "\302\303\"\211\203\304	!\202\305)\207" [emacs-ver err inversion-test emacs error t] 4 (#$ . 8290)])
#@59 Regexp template and match data index of a version string.
(defconst inversion-find-data '("(def\\(var\\|const\\)\\s-+%s-%s\\s-+\"\\([^\"]+\\)" 2) (#$ . 8601))
#@542 Search for the version and incompatible version of PACKAGE.
Does not load PACKAGE nor requires that it has been previously loaded.
Search in the directories in `load-path' for a PACKAGE.el library.
Visit the file found and search for the declarations of variables or
constants `PACKAGE-version' and `PACKAGE-incompatible-version'.  The
value of these variables must be a version string.

Return a pair (VERSION-STRING . INCOMPATIBLE-VERSION-STRING) where
INCOMPATIBLE-VERSION-STRING can be nil.
Return nil when VERSION-STRING was not found.
(defalias 'inversion-find-version #[(package) "\306\307\310\"\311\"\n@\nA@\312	\203R\313\314!rq\210\315\216\316	\312\317\320$\210eb\210\321\307\305#\312\311#\203Q\322\f!Ceb\210\321\307\323#\312\311#\203Q
\322\f!\241\210+
,\207" [package file inversion-find-data tag idx version locate-library format "%s.el" t nil generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents-literally 0 3000 re-search-forward match-string incompatible-version #1#] 5 (#$ . 8767)])
#@317 Add the PACKAGE path to `load-path' if necessary.
MINIMUM is the minimum version requirement of PACKAGE.
Optional argument INSTALLDIR is the base directory where PACKAGE is
installed.  It defaults to `default-directory'/PACKAGE.
SUBDIRS are sub-directories to add to `load-path', following the main
INSTALLDIR path.
(defalias 'inversion-add-to-load-path #[(package minimum &optional installdir &rest subdirs) "\306!\211\203\307	@	A\n#\205t\310\311	@\n$\205t\206&\312\313\314\"!\315\316\f!\203R\203M\312@!A\316
!\203/\317\320
\"\210\202/\317\320\f\"\210\306!\211\204`\321\322\"\210\307@A\n#\205s\321\323@#+)\207" [package ver minimum installdir default-directory subdir inversion-find-version inversion-check-version message "Outdated %s %s shadowed to meet minimum version %s" expand-file-name format "./%s" nil file-directory-p add-to-list load-path error "Failed to find version for newly installed %s" "Outdated %s %s just installed" subdirs newver] 6 (#$ . 9864)])
#@333 Get a list of distributions of PACKAGE from DIRECTORY.
DIRECTORY can be an ange-ftp compatible filename, such as:
 "/ftp@ftp1.sourceforge.net/pub/sourceforge/PACKAGE"
If it is a URL, wget will be used for download.
Optional argument VERSION will restrict the list of available versions
to the file matching VERSION exactly, or nil.
(defalias 'inversion-locate-package-files #[(package directory &optional version) "9\203	\303!\304	\305\n\203\306\307\n\310\260\202#\207" [package directory version symbol-name directory-files t "^" "-" "\\>"] 8 (#$ . 10878)])
#@57 Common distribution mechanisms for Emacs Lisp packages.
(defvar inversion-package-common-tails '(".tar.gz" ".tar" ".zip" ".gz") (#$ . 11454))
#@300 Use `inversion-locate-package-files' to get a list of PACKAGE files.
DIRECTORY is the location where distributions of PACKAGE are.
VERSION is an optional argument specifying a version to restrict to.
The return list is an alist with the version string in the CAR,
and the full path name in the CDR.
(defalias 'inversion-locate-package-files-and-split #[(package directory &optional version) "9\203	\306!\307	\n#\310\f\203f\f@\311
!\310\203M\204M\312@\313P\"\203DGT\314\224OA\211\204)\204X\315\316\"\210
BB\fA,\202*\207" [package directory version out f file symbol-name inversion-locate-package-files nil file-name-nondirectory string-match "$" 0 error "Cannot decode version for %s" dist inversion-package-common-tails tails verstring] 5 (#$ . 11603)])
#@111 Due to ERR, offer to download PACKAGE from DIRECTORY.
The package should have VERSION available for download.
(defalias 'inversion-download-package-ask #[(err package directory version) "9\203	\306!\307	\n#\211\204\310\f!\202M\311\f\312P!\204'\310\f!\202M\313\314\315\"\316\"G\317V\203F\320\321\322	\316\323	!P\324&D\325@A
\"))\207" [package directory version files err dest symbol-name inversion-locate-package-files-and-split error y-or-n-p ": Download update? " read-directory-name format "Download %s to: " t 1 "foo" read-file-name "Version to download: " file-name-as-directory nil copy-file] 9 (#$ . 12415)])
(provide 'inversion)