;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@31 Current version of InVersion.
(defvar inversion-version "1.3" (#$ . 84))
#@61 An earlier release which is incompatible with this release.
(defvar inversion-incompatible-version "0.1alpha1" (#$ . 163))
#@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)) (#$ . 293))
#@176 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'.

(fn VERSION-STRING)
(defalias 'inversion-decode-version #[257 "\301
\203O\211\204O\302@A@\"\203H\301\303@8\304\211X\203=\211\224\2031\305\224\225O!\2022\304B\262\211T\262
\202@@\237B\266\204\202
A\262\202\207" [inversion-decoders nil string-match 2 1 string-to-number] 10 (#$ . 1764)])
#@55 Return the decoded version for PACKAGE.

(fn PACKAGE)
(defalias 'inversion-package-version #[257 "\300\301!\302P!J\303
\204\304\305\211#\210\306!\262
\211\204\"\304\307#\210\207" [intern-soft symbol-name "-version" nil error "Package %S does not define %S-version" inversion-decode-version "%S-version value (%s) cannot be decoded"] 7 (#$ . 2237)])
#@241 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.

(fn PACKAGE)
(defalias 'inversion-package-incompatibility-version #[257 "\300\301!\302P!J\211\205\303
!\207" [intern-soft symbol-name "-incompatible-version" inversion-decode-version] 4 (#$ . 2601)])
#@40 Convert CODE into a string.

(fn CODE)
(defalias 'inversion-recode #[257 "\211@
A@\3008\3018\302\267\202\303\262\303\262
\202\304\262\305\306%\207" [2 3 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (full 17 point 26)) "" "." format "%s.%s%s%s"] 11 (#$ . 3037)])
#@60 Convert RELEASE-SYMBOL into a number.

(fn RELEASE-SYMBOL)
(defalias 'inversion-release-to-number #[257 "\301
\"G
\235GZ\207" [inversion-decoders assoc] 5 (#$ . 3359)])
#@58 Return non-nil if VER1 is equal to VER2.

(fn VER1 VER2)
(defalias 'inversion-= #[514 "

\232\207" [] 4 (#$ . 3537)])
#@59 Return non-nil if VER1 is less than VER2.

(fn VER1 VER2)
(defalias 'inversion-< #[514 "\300@!A@\3018\3028\3038\300@!A@\3018\302	8\303\n8FF\232\203F	\203F\203F	W\207\232\203g\232\203g\232\203g\203g\211\203g
W\207\232\203\203\232\203\203\203\203
\203\203W\207\232\203\230\203\230\203\230W\207\205\245\205\245W\207" [inversion-release-to-number 2 3 4] 17 (#$ . 3661)])
#@513 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.

(fn VERSION INCOMPATIBLE-VERSION MINIMUM &rest RESERVED)
(defalias 'inversion-check-version #[899 ";\203\300!\202\f;\203\300!\202\301\"\203!\302\207\303\"\203*\304\207\303
\"\203U;\203<\300!\202=\211\204C\302\207\301\"\204Q\303\"\203S\305\207\302\207\306\207" [inversion-decode-version inversion-= nil inversion-< outdated incompatible t] 10 (#$ . 4119)])
#@494 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.

(fn PACKAGE MINIMUM &rest RESERVED)
(defalias 'inversion-test #[642 "\300\301!\302!$\211\303\267\202\304\207\305\306#\207\305\307#\207\310\207" [inversion-check-version inversion-package-version inversion-package-incompatibility-version #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 16 outdated 18 incompatible 24)) nil format "You need to upgrade package %s to %s" "Package %s version is not backward compatible with %s" "Inversion version check failed."] 8 (#$ . 4970)])
#@640 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.

(fn PACKAGE OLDVERSION &rest RESERVED)
(defalias 'inversion-reverse-test #[642 "\300\301!\302!$\211\303\267\202\304\207\305\306#\207\305\307#\207\310\207" [inversion-check-version inversion-package-version inversion-package-incompatibility-version #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 16 outdated 18 incompatible 24)) nil format "Package %s version %s is not compatible with current version" "Package %s version is not backward compatible with %s" "Inversion version check failed."] 8 (#$ . 5961)])
#@478 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.

(fn PACKAGE VERSION &optional FILE DIRECTORY &rest RESERVED)
(defalias 'inversion-require #[1154 "\300\"\210\301\"\211\203!\203\302
$\210\202!\303
!\210\207" [require inversion-test inversion-download-package-ask error] 11 (#$ . 7130)])
#@259 Declare that you need either EMACS-VER, XEMACS-VER or SXEMACS-ver.
Only checks one based on which kind of Emacs is being run.

This function is obsolete; do this instead:
    (when (version<= "28.1" emacs-version) ...)

(fn EMACS-VER XEMACS-VER SXEMACS-VER)
(defalias 'inversion-require-emacs #[771 "\300\301\"\211\203\f\302
!\207\303\207" [inversion-test emacs error t] 6 (#$ . 7805)])
(make-obsolete 'inversion-require-emacs nil "28.1")
#@59 Regexp template and match data index of a version string.
(defconst inversion-find-data '("(def\\(var\\|const\\)\\s-+%s-%s\\s-+\"\\([^\"]+\\)" 2) (#$ . 8252))
#@556 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.

(fn PACKAGE)
(defalias 'inversion-find-version #[257 "\301\302\303\"\304\"@A@\305\203S\306\307\304\"r\211q\210\310\311\"\216\312\305\313\314$\210eb\210\315\302\316#\305\304#\203Q\317!C\262eb\210\315\302\320#\305\304#\203Q
\317!\241\210*\210\207" [inversion-find-data locate-library format "%s.el" t nil generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents-literally 0 3000 re-search-forward version match-string incompatible-version] 11 (#$ . 8418)])
#@374 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.

(fn PACKAGE MINIMUM &optional INSTALLDIR &rest SUBDIRS)
(defalias 'inversion-add-to-load-path #[898 "\301!\211\203\302
@A#\205w\303\304@$\205w\206)\305\306\307\"!\310\311!\203R\203M\305@!\262
A\262\311
!\2031\312\313\"\210\2021\312\313\"\210\301!\211\204`\314\315\"\210\302
@A#\205r\314\316@#\262
)\262
\207" [default-directory 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"] 11 (#$ . 9514)])
#@375 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.

(fn PACKAGE DIRECTORY &optional VERSION)
(defalias 'inversion-locate-package-files #[770 "9\203\n\300!\262\301\302\203\303\304\305\260\202#\207" [symbol-name directory-files t "^" "-" "\\>"] 11 (#$ . 10493)])
#@57 Common distribution mechanisms for Emacs Lisp packages.
(defvar inversion-package-common-tails '(".tar.gz" ".tar" ".zip" ".gz") (#$ . 11057))
#@342 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.

(fn PACKAGE DIRECTORY &optional VERSION)
(defalias 'inversion-locate-package-files-and-split #[770 "9\203\n\301!\262\302#\303
\203W
@\304
!\303
\203>\211\204>\305@\306P\"\2037	GT\307\224O\262

A\262\202\211\204G\310\311\"\210\211BB\262A\262\266\202\207" [inversion-package-common-tails symbol-name inversion-locate-package-files nil file-name-nondirectory string-match "$" 0 error "Cannot decode version for %s"] 12 (#$ . 11206)])
#@147 Due to ERR, offer to download PACKAGE from DIRECTORY.
The package should have VERSION available for download.

(fn ERR PACKAGE DIRECTORY VERSION)
(defalias 'inversion-download-package-ask #[1028 "9\203\n\300!\262\301#\211\204\302!\207\303\304P!\204#\302!\207\305\306\307\"\310\"
G\311V\203F\312\313\314\310\315\n!P\316&D\262\317@A\"\207" [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] 14 (#$ . 11973)])
(provide 'inversion)