ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/autoload.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require lisp-mode lisp-mnt] 2)
#@481 File into which to write autoload definitions.
A Lisp file can set this in its local variables section to make
its autoloads go somewhere else.
If this is a relative file name, the directory is determined as
follows:
- If a Lisp file defined `generated-autoload-file' as a
file-local variable, use its containing directory.
- Otherwise use the "lisp" subdirectory of `source-directory'.
The autoload file is assumed to contain a trailer starting with a
FormFeed character.
(defvar generated-autoload-file nil (#$ . 481))
(put 'generated-autoload-file 'safe-local-variable 'stringp)
#@270 Load name for `autoload' statements generated from autoload cookies.
If nil, this defaults to the file name, sans extension.
Typically, you need to set this when the directory containing the file
is not in `load-path'.
This also affects the generated cus-load.el file.
(defvar generated-autoload-load-name nil (#$ . 1077))
(put 'generated-autoload-load-name 'safe-local-variable 'stringp)
#@447 Magic comment indicating the following form should be autoloaded.
Used by \[update-file-autoloads]. This string should be
meaningless to Lisp (e.g., a comment).
This string is used:
;;;###autoload
(defun function-to-be-autoloaded () ...)
If this string appears alone on a line, the following form will be
read and an autoload made for it. If there is further text on the line,
that text will be copied verbatim to `generated-autoload-file'.
(defvar generate-autoload-cookie ";;;###autoload" (#$ . 1473))
#@68 If non-nil, list of absolute file names not to scan for autoloads.
(defvar autoload-excludes nil (#$ . 1988))
#@75 String that marks the form at the start of a new file's autoload section.
(defconst generate-autoload-section-header "\f\n;;;### " (#$ . 2104))
#@72 String which indicates the end of the section of autoloads for a file.
(defconst generate-autoload-section-trailer "\n;;;***\n" (#$ . 2254))
#@64 String to add on each continuation of the section header form.
(defconst generate-autoload-section-continuation ";;;;;; " (#$ . 2401))
#@343 Turn FORM into an autoload or defvar for source file FILE.
Returns nil if FORM is not a special autoload form (i.e. a function definition
or macro definition or a defcustom).
If EXPANSION is non-nil, we're processing the macro expansion of an
expression, in which case we want to handle forms differently.
(fn FORM FILE &optional EXPANSION)
(defalias 'make-autoload #[770 "C\211\242\242\301\203\215\302=\203\215\242A\211A\211@A\211\303:\203z@\211\304=\203\366 A\211:\203\346 \211@\211:\203\326 \211@\211\305=\203\306 A\211:\203\266 \211@\211\306=\203\245 A\211\204\224 A\211:\203\203 \211@A\211\204r \n\307%\202~ \n\301%\266\202\202\217
\301%\262\202\240 \f\301
%\262\202\261 \301\f%\262\202\301 \n\301 %\262\202\321 \301\n%\262\202\341
\301 %\262\202\361 \f\301%\262\202u\211\305=\203jA\211:\203Z\211@\211:\203J\211@\211\306=\203:AA\211\204) \307%\2025 \301\f%\266\202\202E \301\n%\262\202U
\301 %\262\202e\f\301%\262\202u \301%\262\202\204\211\n
\301%\262\266\202\266\204\202 \203\323\310>\203\323\311\242>\211\203\255\312\242!\240\210\311\242>\301\241\210\313\301\314\315\316\317\320\321
\"\322\"\323\324%\242A\"\"\211\205\314\325B\262\262\202 \326>\203\374\327!\203\374\330\242!)\211\262\203\374\211@\331>\203\374\332\333#\202 \334>\203{\335>\242A@\336>\203\337\2428\202+\340=\203 \341\202+\342>\203*\301\202+\307\343\344\"\2063\345\242\233\211@;\205C\211A\262\242<\203N\346\"\262\347<\203X\202[\305D \n\350>\203i\307\202n@\242\351= \205t\352\257\266\205\202 \353=\203\236\242A@\337\2428\354\2428\355\305D\305D\n\257\266\203\202 \356=\203\331\242\243\242\242\243\243\242\242\243\243\243\242\325\357F\360\305D \3611\320\362 \242>A@?0\202\322\210\301FE\266\203\202 \363=\203\242A@\364\365\366\305D\367BBDC\370\371\305\nD\372BB\301\373\305D\374\304\305D\375BBFFE\262\202 \203 \242:\203 \242\202 \301\266\202\207" [load-file-name nil defalias #[1285 "\211\242\300>\205\n \211A@\301:\203Z @\211\302=\203H A\211:\2036 \211@A &\266\202\202C \303\211&\262\202U \303\211&\262\202g \211\303\211&\207" ['function #[1542 "\242;\203 @\202 \242;\205 @:\205l @\211:\203M \211@\211\300=\203+ \301\202H A\211:\205F \211@\211:\205D \211@\211\300=\205B \301\262\262\262\262\202j A\211:\205h \211@\211:\205f \211@\211\300=\205d \301\262\262\262\262<\203w \302\"\262\303\242A@ \257\207" [interactive t help-add-fundoc-usage autoload] 14 "\n\n(fn FORM FILE REST TYPE BODY ARGS)"] lambda t] 18 "\n\n(fn FORM FILE REST TYPE FUN)"] cons quote macro t (progn prog1) :autoload-end copy-sequence delq mapcar make-byte-code 257 "\302\300\301#\207" vconcat vector [make-autoload] 5 "\n\n(fn FORM)" progn (easy-mmode-define-global-mode define-global-minor-mode define-globalized-minor-mode defun defmacro easy-mmode-define-minor-mode define-minor-mode define-inline cl-defun cl-defmacro) macrop macroexpand (progn prog1 defalias) make-autoload expansion (define-skeleton define-derived-mode define-compilation-mode define-generic-mode easy-mmode-define-global-mode define-global-minor-mode define-globalized-minor-mode easy-mmode-define-minor-mode define-minor-mode cl-defun defun* cl-defmacro defmacro* define-overloadable-function) (defmacro cl-defmacro defmacro*) (define-overloadable-function cl-defmacro cl-defun defmacro* defun* defmacro defun) 2 define-skeleton (&optional str arg) (define-compilation-mode define-derived-mode define-generic-mode) function-get doc-string-elt 3 help-add-fundoc-usage autoload (define-skeleton define-derived-mode define-generic-mode easy-mmode-define-global-mode define-global-minor-mode define-globalized-minor-mode easy-mmode-define-minor-mode define-minor-mode) interactive 'macro defclass 4 eieio-defclass-autoload defcustom defvar custom-autoload (error) :set defgroup let loads get ('custom-loads) if member (loads) put 'custom-loads (loads)] 29 (#$ . 2543)])
#@134 Visit the autoload file for the current buffer, and return its buffer.
If a buffer is visiting the desired autoload file, return it.
(defalias 'autoload-find-generated-file #[0 "\303\304\305\306\307\310 !!+\207" [enable-local-eval enable-local-variables delay-mode-hooks :safe nil t find-file-noselect autoload-ensure-default-file autoload-generated-file] 3 (#$ . 6700)])
(defalias 'autoload-generated-file #[0 "\302\303\300!?\205
\302\304 \"\"\207" [generated-autoload-file source-directory expand-file-name local-variable-p "lisp"] 5])
#@174 Read a section header form.
Since continuation lines have been marked as comments,
we must copy the text of the form and remove those comment
markers before we call `read'.
(defalias 'autoload-read-section-header #[0 "\301 \302\303\304\305\306!\307\"\310$\216`\311\312y\210\313!\203 \312y\210\202 `{\262r\314\315!q\210\316 \210\211c\210eb\210\317\311\320#\203B \321\322!\210\2023 eb\210\323p!)\266\202)\207" [generate-autoload-section-continuation match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 nil 1 looking-at get-buffer-create " *autoload*" erase-buffer search-forward t replace-match " " read] 7 (#$ . 7250)])
#@56 Buffer which gets the output of `autoload-print-form'.
(defvar autoload-print-form-outbuf nil (#$ . 7923))
#@159 Print FORM such that `make-docfile' will find the docstrings.
The variable `autoload-print-form-outbuf' specifies the buffer to
put the output in.
(fn FORM)
(defalias 'autoload-print-form #[257 "\211@\304=\203
\305\306A\"\207\2119\203 \307\207\310\242\311\"\203\252 8;\203\252 S\233\211A\307\241\210\312\313\"\210\314\211\211\211\203T \211@\315\"\210\312\316\"\210A\266\202\202; \210+\312\317\"\210rq\210`)\312\320@!\321\307O\"\210rq\210\212\322\323\314#\203\202 \321u\210\324c\210\202q *A\204\220 \312\325\"\210\202\240 \312\316\"\210\312\320A!\321\307O\"\210\326!\262\266\202\202\265 \314\211\211\327\"+\207" [autoload-print-form-outbuf print-escape-nonascii print-quoted print-escape-newlines progn mapcar autoload-print-form nil function-get doc-string-elt princ "\n(" t prin1 " " "\"\\\n" prin1-to-string 1 re-search-backward "\n[[(]" "\\" ")" terpri print] 10 (#$ . 8037)])
#@418 Return a string giving the appropriate autoload rubric for FILE.
TYPE (default "autoloads") is a string stating the type of
information contained in FILE. If FEATURE is non-nil, FILE
will provide a feature. FEATURE may be a string naming the
feature, otherwise it will be based on FILE's name.
At present, a feature is in fact always provided, but this should
not be relied upon.
(fn FILE &optional TYPE FEATURE)
(defalias 'autoload-rubric #[769 "\300!\301\302\206 \303\304\305\306\307\310\n;\203 \n\202 \311\n!\312\313\314\315\316\317\320\301\321\260\207" [file-name-nondirectory ";;; " " --- automatically extracted " "autoloads" "\n" ";;\n" ";;; Code:\n\n" "\f\n" "(provide '" file-name-sans-extension ")\n" ";; Local Variables:\n" ";; version-control: never\n" ";; no-byte-compile: t\n" ";; no-update-autoloads: t\n" ";; coding: utf-8\n" ";; End:\n" " ends here\n"] 24 (#$ . 8965)])
#@76 Non-nil means `autoload-ensure-default-file' makes existing file writable.
(defvar autoload-ensure-writable nil (#$ . 9874))
(put 'autoload-ensure-writable 'risky-local-variable t)
#@169 Make sure that the autoload file FILE exists, creating it if needed.
If the file already exists and `autoload-ensure-writable' is non-nil,
make it writable.
(fn FILE)
(defalias 'autoload-ensure-default-file #[257 "\301!\203. \2036 \302!\303\304\"\305U\203* \3061% \307\310\304\"\"0\202) \210\202* \210\210\2026 \311\312!\313#\210\207" [autoload-ensure-writable file-exists-p file-modes logand 128 0 (error) set-file-modes logior write-region autoload-rubric nil] 7 (#$ . 10062)])
#@138 Insert the section-header line,
which lists the file name and which functions are in it, etc.
(fn OUTBUF AUTOLOADS LOAD-NAME FILE TIME)
(defalias 'autoload-insert-section-header #[1285 "c\210\302\303\257\"\210\304!\210rq\210\212\305y\210l?\2054 \306\307!\210\310\311w\210l\204 \312 \261\210\202 *\207" [generate-autoload-section-header generate-autoload-section-continuation prin1 autoloads terpri -1 move-to-column 64 "^ \n" nil "\n"] 11 (#$ . 10558)])
#@72 Fetch file and put it in a temp buffer. Return the buffer.
(fn FILE)
(defalias 'autoload-find-file #[257 "\306!\262r\307\310!q\210\311 \210\312 \210\313\314\315\302!\210\313\316 \210)\317!\320\314\"\210\321\314 \322 \210*p)\207" [buffer-undo-list buffer-read-only delay-mode-hooks default-directory enable-local-eval enable-local-variables expand-file-name get-buffer-create " *autoload-file*" kill-all-local-variables erase-buffer t nil make-local-variable emacs-lisp-mode file-name-directory insert-file-contents :safe hack-local-variables] 4 (#$ . 11032)])
#@73 File local variable to prevent scanning this file for autoload cookies.
(defvar no-update-autoloads nil (#$ . 11609))
#@61 Compute the name that will be used to load FILE.
(fn FILE)
(defalias 'autoload-file-load-name #[257 "\300\301!\302\303!\"\304\303!\203% \305!\262\306!B\262\303!\262\202
\204V A\2045 @\262\202% \307\310\311\"!\203L \310\211A\262\242\"\262\202% \312\313\314#\262\202% \315\316\"\203e \317\211\224O\202f \207" [default-value generated-autoload-file file-relative-name file-name-directory nil directory-file-name file-name-nondirectory file-exists-p expand-file-name "subdirs.el" mapconcat identity "/" string-match "\\.elc?\\(\\.\\|\\'\\)" 0] 9 (#$ . 11733)])
#@315 Insert at point a loaddefs autoload section for FILE.
Autoloads are generated for defuns and defmacros in FILE
marked by `generate-autoload-cookie' (which see).
If FILE is being visited in a buffer, the contents of the buffer
are used.
Return non-nil in the case where no autoloads were added at point.
(fn FILE)
(defalias 'generate-file-autoloads #[257 "\302p\")\207" [buffer-file-name generated-autoload-file autoload-generate-file-autoloads] 4 (#$ . 12324) "fGenerate autoloads for file: "])
(defalias 'autoload--setup-output #[1028 "\204 \206 \300\"\206 \301\302\"r\211q\210\303 )\207" [autoload-find-destination throw done point-marker] 7 "\n\n(fn OTHERBUF OUTBUF ABSFILE LOAD-NAME)"])
(defalias 'autoload--print-cookie-text #[771 "\303!\304 !\210\305\306w\210l\203C \30715 \310p!n\204 \311y\210\312\"\211\204) \262\313!)\266\2020\202Z \314\315\316e`\"$\262\202Z \317\320\306x\210`Tf\321U\203S \311u\210`\311y\210`{!)\207" [standard-output generate-autoload-cookie autoload-print-form-outbuf marker-buffer search-forward " " nil (debug error) read 1 make-autoload autoload-print-form message "Autoload cookie error in %s:%s %S" count-lines princ " \f " 32] 10 "\n\n(fn OUTPUT-START LOAD-NAME FILE)"])
(defvar autoload-builtin-package-versions nil)
#@758 Insert an autoload section for FILE in the appropriate buffer.
Autoloads are generated for defuns and defmacros in FILE
marked by `generate-autoload-cookie' (which see).
If FILE is being visited in a buffer, the contents of the buffer are used.
OUTBUF is the buffer in which the autoload statements should be inserted.
If OUTBUF is nil, it will be determined by `autoload-generated-file'.
If provided, OUTFILE is expected to be the file name of OUTBUF.
If OUTFILE is non-nil and FILE specifies a `generated-autoload-file'
different from OUTFILE, then OUTBUF is ignored.
Return non-nil if and only if FILE adds no autoloads to OUTFILE
(or OUTBUF if OUTFILE is nil). The actual return value is
FILE's modification time.
(fn FILE &optional OUTBUF OUTFILE)
(defalias 'autoload-generate-file-autoloads #[769 "\3061~\307\211\211\310\307\311!\307\312\n!\307\3132qr\206* \314\f!q\210\f\204a
\204: \315\316
\"\2104;\203E 4\202H \317!\262 \203k 5\320>\203` \227\321 \227\232\202e \321 \232\204k \310\262\212\214~\2106\203\320 \322\323!\307\203\316 \3241\207 \325!0\202\211 \210\307\211\262\203\316 \322\326!\206\233 \327\330!!\211\262\203\316 \331$\211\262\203\316 \332!\310 7 8\333\334\335\336\337!BDD\340BB!\210\333\341!\210*\266eb\210m\204\342\307w\210\343\3449!!\203\375 \211\204\362 \331\f\f$\262\345\n#\210\202\323 \343\346!\203 \347y\210\202\323 \350\347!\210\347y\210\202\323 *\211\203W\205 pr\332!q\210\212b\210\351!\352\332!\307
\203A\353\307\211\354$\202G\355\356!8%\210\357\341\261\266):c\210)\210
\204a\315\360
\"\210\204i\361p!\210)\211?\206p0\205y\355\356!8,\266\2110\207\362\363@A$\207" [float-output-format print-readably print-level print-length no-update-autoloads noninteractive (error) nil t get-file-buffer expand-file-name done autoload-find-file message "Generating autoloads for %s..." autoload-file-load-name (ms-dos windows-nt) autoload-generated-file lm-header "version" (error) version-to-list "package" file-name-sans-extension file-name-nondirectory autoload--setup-output marker-buffer princ push purecopy quote intern (package--builtin-versions) "\n" " \n\f" looking-at regexp-quote autoload--print-cookie-text ";" 1 forward-sexp file-relative-name autoload-insert-section-header md5 emacs-mule-unix 5 file-attributes ";;; Generated autoloads from " "Generating autoloads for %s...done" kill-buffer error "%s:0:0: error: %s: %s" generated-autoload-load-name system-type autoload-builtin-package-versions print-quoted standard-output generate-autoload-cookie generate-autoload-section-trailer] 24 (#$ . 13610)])
(defalias 'autoload-save-buffers #[0 "\205 r\211A\242q\210\302\303 \210*\202 \207" [autoload-modified-buffers version-control never save-buffer] 2])
#@491 Update the autoloads for FILE.
If prefix arg SAVE-AFTER is non-nil, save the buffer too.
If FILE binds `generated-autoload-file' as a file-local variable,
autoloads are written into that file. Otherwise, the autoloads
file is determined by OUTFILE. If called interactively, prompt
for OUTFILE; if called from Lisp with OUTFILE nil, use the
existing value of `generated-autoload-file'.
Return FILE if there was no autoload cookie in it, else nil.
(fn FILE &optional SAVE-AFTER OUTFILE)
(defalias 'update-file-autoloads #[769 "\211\206 \302\303! \203 \203$ \304 \210\202$ \305\306!\203$ \307\310\"\210\211\205) *\207" [generated-autoload-file autoload-modified-buffers nil autoload-generate-file-autoloads autoload-save-buffers called-interactively-p interactive message "Autoload section for %s is up to date."] 7 (#$ . 16406) (byte-code "\301\302!\301\303!E\207" [current-prefix-arg read-file-name "Update autoloads for file: " "Write autoload definitions to file: "] 4)])
#@360 Find the destination point of the current buffer's autoloads.
FILE is the file name of the current buffer.
LOAD-NAME is the name as it appears in the output.
Returns a buffer whose point is placed at the requested location.
Returns nil if the file's autoloads are up-to-date, otherwise
removes any prior now out-of-date autoload entries.
(fn FILE LOAD-NAME)
(defalias 'autoload-find-destination #[514 "\3042\304 p\205\n \211\305r\306 q\210\307 !\310=\204 \311\312!\210\313 \310V\204( \314\315\"\210\316!\2043 \314\317\"\210~\210eb\210\211\204\250 \320\n\305\321#\203\250 \322 \3238\230\203\225 \310\224\3248\325\326 !8\203d \327!\204\211 <\203p \330\"\203\201 ;\203\211 \331\305\211\332$\232\203\211 \333\304\305\"\210\202\220 \334!\210\321\262\266\202\244 \3238\231\203\244 \310\224b\210\321\262\210\2028 \211\204\265 db\210\335\336\305\321#\210p >\204\277 p Bp)\266\2030\207" [buffer-file-name buffer-file-coding-system generate-autoload-section-header autoload-modified-buffers up-to-date nil autoload-find-generated-file coding-system-eol-type 0 set-buffer-file-coding-system unix buffer-size error "Autoloads file %s lacks boilerplate" file-writable-p "Autoloads file %s is not writable" search-forward t autoload-read-section-header 2 4 5 file-attributes buffer-modified-p time-less-p md5 emacs-mule throw autoload-remove-section search-backward "\f"] 15 (#$ . 17401)])
(defalias 'autoload-remove-section #[257 "\211b\210\301!\210\211`|\207" [generate-autoload-section-trailer search-forward] 3 "\n\n(fn BEGIN)"])
#@757 Update autoload definitions for Lisp files in the directories DIRS.
In an interactive call, you must give one argument, the name of a
single directory. In a call from Lisp, you can supply multiple
directories as separate arguments, but this usage is discouraged.
The function does NOT recursively descend into subdirectories of the
directory or directories specified.
In an interactive call, prompt for a default output file for the
autoload definitions, and temporarily bind the variable
`generated-autoload-file' to this value. When called from Lisp,
use the existing value of `generated-autoload-file'. If any Lisp
file binds `generated-autoload-file' as a file-local variable,
write its autoloads into the specified file instead.
(fn &rest DIRS)
(defalias 'update-directory-autoloads #[128 "\306\307 \211\203 \211@\310\311\"\204 \211B\262A\266\202\202 \210\312\313\314\"\315Q\262\316\317\320\321\322\323\324\325!\326\"\327\330%\"\"\306\211\211\211\331\332!\203J \333\334!\202K r\335 q\210\212\336\337\n!\320\337\"\"\262eb\210\340 \306\314#\203\341 \3428\211:\203\271 \211@;\203\271 \343\344\224!\210\3458\262<\203 \211\211\203\265 \211@\327\346!8\211\203\255 \347\"\204\255 B\262\336\n\"\262 \210A\266\202\202\211 \210\202 \211;\203 \350!\203\322 \211\235\204\322 \351!\f\235\203\332 \343\344\224!\210\202 \3458<\203\356 \347\3458\327\346!8\"\203 \343\344\224!\210\352p\n#\203 \211B\262\211B\262\336\"\262\266\202a )\206\353\306\211\203H\211@\351!\f\235\204A\352\306\n#\211\262\203A\211B\262\347\"\203A\262A\266\202\202\210\203i\354\355\"\262db\210\356\357\306\314#\210\360p\306\211%\210
c\210\266\361 4\362 \210)\363 +\207" [autoload-modified-buffers generated-autoload-file buffer-file-name generate-autoload-section-header autoload-excludes generate-autoload-section-trailer nil get-load-suffixes string-match "\\.\\(elc\\|\\so\\|dll\\)" "^[^=.].*" regexp-opt t "\\'" apply nconc mapcar make-byte-code 257 "\301\302!\303\300#\207" vconcat vector [directory-files expand-file-name t] 5 "\n\n(fn DIR)" called-interactively-p interactive read-file-name "Write autoload definitions to file: " autoload-find-generated-file delete file-relative-name search-forward autoload-read-section-header 3 autoload-remove-section 0 4 file-attributes time-less-p file-exists-p expand-file-name autoload-generate-file-autoloads (0 0 0 0) sort string< search-backward "\f" autoload-insert-section-header never save-buffer autoload-save-buffers version-control] 14 (#$ . 18956) "DUpdate autoloads from directory: "])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias update-autoloads-from-directories update-directory-autoloads nil make-obsolete "22.1"] 4)
#@191 Update loaddefs.el autoloads in batch mode.
Calls `update-directory-autoloads' on the command line arguments.
Definitions are written to `generated-autoload-file' (which
should be non-nil).
(defalias 'batch-update-autoloads #[0 "\204V \304 !\305\306\307!\203S \310\311!r\211q\210\312\313\314\315\316!\317\"\320$\216\321\307!\210\322\323\305\324#\203Q \325\326!\262\327\330\"\204A \331\332\"\262\327\333\"\204' \334!B\202' *\210)\266 \305\335\336\"\207" [autoload-excludes generated-autoload-file default-directory command-line-args-left file-name-directory nil file-readable-p "loadup.el" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents re-search-forward "^(load \"\\([^\"]+\\)\"" t match-string 1 string-match "\\.el\\'" format "%s.el" "\\`site-" expand-file-name apply update-directory-autoloads] 9 (#$ . 21716)])
(provide 'autoload)
Kontol Shell Bypass