;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@92 Set up buffers and windows for working on entry NAME. If NAME is not given, then use 'aa'. (defalias 'entry-setup #[(arg &optional name depth) "\306\307!\203\203\310\311! \204\312\n\204\313\314\315\316\317 \"\203+ \fP\202/ \320\fQ%\321\211&'\321\211()r\322%!q\210\323\324\321\211#\210\325 \210)r\322%!\211&q\210\326 \210p')r&q\210\327 !)\204\203\n\330V\203y\331\332 \"\210\202\200\333\321 \nT#\210p'\334'!\210\335 !\210\336 \210p(\334'!\210\337 \210\340 \210\341 \210\342\330!\210\334&!\210\342\330!\210\341 \210\334(!\210\342\330!\210\334\343!)\342\344!.\207" [arg name depth fname short-archive-name default-directory called-interactively-p interactive read-string "Name? " "aa" 0 "entry-setup" "alphabet_small.crc.cpio" string-match "alphabet/" "test_data/alphabet/" nil find-file-noselect shell-command "make crc" kill-buffer cpio-mode cpio-entry-exists-p 1 error "%s(): Going too deep." entry-setup switch-to-buffer cpio-dired-goto-entry cpio-dired-find-entry delete-other-windows split-window-right split-window other-window "cpio-entry-contents-mode.el" 2 archive-name cpio-archive-buffer cpio-dired-buffer cpio-entry-contents-buffer cpio-dired-contents-mode-buffer] 5 (#$ . 87) "P"]) #@63 Save the contents of the current buffer in it's cpio archive. (defalias 'cpio-entry-contents-save #[nil "\306\307!\310!\311\312 \313 \311!\"#\314 \204$\315\316#\"\210r$q\210\317!!\210\320 \"\210\321\"!b\210\322\n!\210\323 !\324!!b\210%&\311%\fc\210&%)!'\325 I\210\326\327 !)\330\311!\210\331!!\210r q\210\212\332\"!\210%&\311%\333 \334 |\210\335 !c\210&%+\336\337\340\327$!!\".\207" [cpio-entry-name dired-buffer-name new-contents size header-string attrs "cpio-entry-contents-save" cpio-entry cpio-entry-attrs nil buffer-size buffer-string cpio-entry-contents-buffer-p error "%s(): You're not in a cpio entry contents buffer." cpio-delete-archive-entry cpio-set-entry-size cpio-contents-start cpio-insert-padded-contents cpio-make-header-string cpio-entry-header-start point-marker cpio-dired-buffer-name buffer-file-name set-buffer-modified-p cpio-set-entry-modified cpio-dired-goto-entry line-beginning-position line-end-position cpio-dired-format-entry message "Saved into cpio archive buffer `%s'. Be sure to save that buffer!" file-name-nondirectory entry name fname *cab-parent* buffer-read-only bro-before *cpio-catalog-entry-contents-start-idx*] 8 (#$ . 1322) nil]) #@67 Return non-NIL if the current buffer is an entry contents buffer. (defalias 'cpio-entry-contents-buffer-p #[nil "\301\302\303 >)\207" [fname "cpio-entry-contents-buffer-p" cpio-entry-contents-mode current-minor-modes] 2 (#$ . 2540)]) #@103 Kill the buffer specified by BUFFER-OR-NAME. A name denotes the name of an entry in the cpio archive. (defalias 'cpio-entry-contents-kill #[(&optional buffer-or-name) "\204p\303\304!\203\202\305!\306 !\205%\307\310!\205%\311 !*\207" [buffer-or-name buffer fname "cpio-entry-contents-kill" bufferp get-buffer-create buffer-modified-p yes-or-no-p "Buffer is modified. Really kill? " kill-buffer] 3 (#$ . 2782) "P"]) #@96 Discard any changes to the current CPIO archive entry and reload the [current] entry contents. (defalias 'cpio-entry-contents-revert-buffer #[nil "\304\305 \204\f\306\307\"\210 \310\311 \210\312 !\210\313\314!\210\n\211*\207" [fname buffer-read-only bro-before cpio-entry-name "cpio-entry-contents-revert-buffer" cpio-entry-contents-buffer-p error "%s(): You're not in an entry contetnts buffer." nil erase-buffer cpio-find-entry set-auto-mode keep-mode-if-same] 3 (#$ . 3217) nil]) #@38 Keymap for cpio-entry-contents-mode. (defvar *cpio-entry-contents-mode-map* (make-sparse-keymap) (#$ . 3712)) (byte-code "\301 \301\207" [*cpio-entry-contents-mode-map* make-sparse-keymap] 1) #@62 Define the keys that cpio-entry-contents-mode must override. (defalias 'cpio-entry-contents-make-keymap #[nil "\302\303 \304\305#\210\303 \306\307#\210\303 \310\311#)\207" [fname *cpio-entry-contents-mode-map* "cpio-entry-contents-make-keymap" define-key "" cpio-entry-contents-save " " cpio-entry-contents-kill "\254" cpio-tags-loop-continue] 4 (#$ . 3911)]) #@117 Non-nil if Cpio-Entry-Contents mode is enabled. Use the command `cpio-entry-contents-mode' to change this variable. (defvar cpio-entry-contents-mode nil (#$ . 4282)) (make-variable-buffer-local 'cpio-entry-contents-mode) #@717 Minor mode for working with an entry's contents from a cpio archive. This mode is automatically invoked when the contents of a cpio entry are prepared for editing. This is a minor mode. If called interactively, toggle the `Cpio-Entry-Contents mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `cpio-entry-contents-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'cpio-entry-contents-mode #[(&optional arg) "\306  \307=\203\n?\202 \247\203 \310W\203\311\202\312\313\303!\2032\314\302 \"\n\2032\302 B\f \315 ! \316\317!\210 \312,\320\321\n\203X\322\202Y\323\"\210\324\325!\203\200\306 \203m\306 \232\203\200\326!\327\330\n\203z\331\202{\332!#\210))\333 \210\n\207" [#1=#:last-message arg cpio-entry-contents-mode local-minor-modes *cab-parent* cpio-entry-name current-message toggle 1 nil t boundp delq cpio-entry-attrs set-auto-mode keep-mode-if-same run-hooks cpio-entry-contents-mode-hook cpio-entry-contents-mode-on-hook cpio-entry-contents-mode-off-hook called-interactively-p any " in current buffer" message "Cpio-Entry-Contents mode %sabled%s" "en" "dis" force-mode-line-update buffer-file-name local-buffer-file-name attrs entry-name cab-parent local] 4 (#$ . 4510) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar cpio-entry-contents-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\210\314 \210\315\312!\207" [*cpio-entry-contents-mode-map* cpio-entry-contents-mode-hook variable-documentation put "Hook run after entering or leaving `cpio-entry-contents-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode cpio-entry-contents-mode "(cpio entry)" cpio-entry-contents-make-keymap provide] 6)