;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:30 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-fileinfo.el ;;; in Emacs version 23.0.50.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`dvc-fileinfo.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307#\210\305\310N\204\304\305\310\311#\210\300\207" [require dvc-defs dvc-core ewoc put dvc-fileinfo-root-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-root-p (and (vectorp cl-x) (>= (length cl-x) 1) (memq (aref cl-x 0) cl-struct-dvc-fileinfo-root-tags) t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-root-p #[(cl-x) "\302!\205G\303Y\205\304H >\205\305\207" [cl-x cl-struct-dvc-fileinfo-root-tags vectorp 1 0 t] 2]) (byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\320#\207" [custom-print-functions cl-struct-dvc-fileinfo-root-tags #[(cl-x cl-s cl-n) "\303!\205 G\304Y\205 \305H >\205 \306\307\n\"\210\306\310\n\"\210\311\207" [cl-x cl-struct-dvc-fileinfo-root-tags cl-s vectorp 1 0 princ "#S(dvc-fileinfo-root" ")" t] 3] cl-struct-dvc-fileinfo-root put dvc-fileinfo-root cl-struct-slots ((cl-tag-slot)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t dvc-fileinfo-root-p side-effect-free error-free] 4) #@160 Buffer-local ewoc for displaying workspace file status. All dvc-fileinfo functions operate on this ewoc. The elements must all be of class dvc-fileinfo-root. (defvar dvc-fileinfo-ewoc nil (#$ . 1804)) (byte-code "\302\303!\210\304\305 \"\203 \210\202 B)\306\307\310\311#\210\307\312N\204)\306\307\312\313#\210\302\207" [x cl-struct-dvc-fileinfo-root-tags make-variable-buffer-local dvc-fileinfo-ewoc cl-struct-dvc-fileinfo-file memql put dvc-fileinfo-file-mark cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-file-mark (or (and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-file-tags)) (error "dvc-fileinfo-file-mark accessing a non-dvc-fileinfo-file")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-file-mark #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-file-tags 0 error "dvc-fileinfo-file-mark accessing a non-dvc-fileinfo-file" 1] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-file-mark setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-file dvc-fileinfo-file-mark #1=(and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-file-tags)) 1] 6] dvc-fileinfo-file-exclude cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-file-exclude (or #1# (error "dvc-fileinfo-file-exclude accessing a non-dvc-fileinfo-file")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-file-exclude #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-file-tags 0 error "dvc-fileinfo-file-exclude accessing a non-dvc-fileinfo-file" 2] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-file-exclude setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-file dvc-fileinfo-file-exclude #1=(and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-file-tags)) 2] 6] dvc-fileinfo-file-dir cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-file-dir (or #1# (error "dvc-fileinfo-file-dir accessing a non-dvc-fileinfo-file")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-file-dir #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-file-tags 0 error "dvc-fileinfo-file-dir accessing a non-dvc-fileinfo-file" 3] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-file-dir setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-file dvc-fileinfo-file-dir #1=(and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-file-tags)) 3] 6] dvc-fileinfo-file-file cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-file-file (or #1# (error "dvc-fileinfo-file-file accessing a non-dvc-fileinfo-file")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-file-file #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-file-tags 0 error "dvc-fileinfo-file-file accessing a non-dvc-fileinfo-file" 4] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-file-file setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-file dvc-fileinfo-file-file #1=(and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-file-tags)) 4] 6] dvc-fileinfo-file-status cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-file-status (or #1# (error "dvc-fileinfo-file-status accessing a non-dvc-fileinfo-file")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-file-status #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-file-tags 0 error "dvc-fileinfo-file-status accessing a non-dvc-fileinfo-file" 5] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-file-status setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-file dvc-fileinfo-file-status #1=(and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-file-tags)) 5] 6] dvc-fileinfo-file-indexed cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-file-indexed (or #1# (error "dvc-fileinfo-file-indexed accessing a non-dvc-fileinfo-file")) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-file-indexed #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-file-tags 0 error "dvc-fileinfo-file-indexed accessing a non-dvc-fileinfo-file" 6] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-file-indexed setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-file dvc-fileinfo-file-indexed #1=(and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-file-tags)) 6] 6] dvc-fileinfo-file-more-status cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-file-more-status (or #1# (error "dvc-fileinfo-file-more-status accessing a non-dvc-fileinfo-file")) (aref cl-x 7)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-file-more-status #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-file-tags 0 error "dvc-fileinfo-file-more-status accessing a non-dvc-fileinfo-file" 7] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-file-more-status setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-file dvc-fileinfo-file-more-status (and #1=(memq (aref cl-x 0) cl-struct-dvc-fileinfo-file-tags)) 7] 6] dvc-fileinfo-file-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-file-p (and (vectorp cl-x) (>= (length cl-x) 8) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-file-p #[(cl-x) "\302!\205G\303Y\205\304H >\205\305\207" [cl-x cl-struct-dvc-fileinfo-file-tags vectorp 8 0 t] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put make-dvc-fileinfo-file cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>\206%\314A@\315>A@\203c@\316>\203JAA\211\2025\317>A@\203Y\320\211\2025\321\322@\"\210\2023)\323\324\325\326\320 \n \f &\f.\207" [#1# mark exclude dir file status :mark :exclude :dir :file :status :indexed (nil t) :more-status (:mark :exclude :dir :file :status :indexed :more-status :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:mark :exclude :dir :file :status :indexed :more-status)" cl-defsubst-expand (mark exclude dir file status indexed more-status) (block make-dvc-fileinfo-file (vector 'cl-struct-dvc-fileinfo-file mark exclude dir file status indexed more-status)) t indexed more-status #:--cl-keys-- cl-whole] 14 "Not documented\n\n(fn CL-WHOLE &cl-quote &key MARK EXCLUDE DIR FILE STATUS INDEXED MORE-STATUS)"] byte-compile cl-byte-compile-compiler-macro] 4) #@76 Not documented (fn &key MARK EXCLUDE DIR FILE STATUS INDEXED MORE-STATUS) (defalias 'make-dvc-fileinfo-file #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>\206%\314A@\315>A@\203c@\316>\203JAA\211\2025\317>A@\203Y\320\211\2025\321\322@\"\210\2023)\323\324 \n \f &.\207" [#1# mark exclude dir file status :mark :exclude :dir :file :status :indexed (nil t) :more-status (:mark :exclude :dir :file :status :indexed :more-status :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:mark :exclude :dir :file :status :indexed :more-status)" vector cl-struct-dvc-fileinfo-file indexed more-status #2=#:--cl-keys--] 10 (#$ . 9650)]) (byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\321#\210\304\322\317\315#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\317\315#\210\304\327\317\315#\210\304\330\317\315#\207" [custom-print-functions cl-struct-dvc-fileinfo-file-tags #[(cl-x cl-s cl-n) "\303!\205\310G\304Y\205\310\305H >\205\310\306\307\n\"\210\306\310\n\"\210\311\305H >\204,\312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D\312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H >\204\\\312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H >\204t\312\324!\210\325H\n\"\210\306\326\n\"\210\311\305H >\204\214\312\327!\210\330H\n\"\210\306\331\n\"\210\311\305H >\204\244\312\332!\210\333H\n\"\210\306\334\n\"\210\311\305H >\204\274\312\335!\210\336H\n\"\210\306\337\n\"\210\340\207" [cl-x cl-struct-dvc-fileinfo-file-tags cl-s vectorp 8 0 princ "#S(dvc-fileinfo-file" " mark" prin1 error "dvc-fileinfo-file-mark accessing a non-dvc-fileinfo-file" 1 " exclude" "dvc-fileinfo-file-exclude accessing a non-dvc-fileinfo-file" 2 " dir" "dvc-fileinfo-file-dir accessing a non-dvc-fileinfo-file" 3 " file" "dvc-fileinfo-file-file accessing a non-dvc-fileinfo-file" 4 " status" "dvc-fileinfo-file-status accessing a non-dvc-fileinfo-file" 5 " indexed" "dvc-fileinfo-file-indexed accessing a non-dvc-fileinfo-file" 6 " more-status" "dvc-fileinfo-file-more-status accessing a non-dvc-fileinfo-file" 7 ")" t] 3] cl-struct-dvc-fileinfo-file put dvc-fileinfo-file cl-struct-slots ((cl-tag-slot) (mark) (exclude) (dir) (file) (status) (indexed t) (more-status)) cl-struct-type (vector nil) cl-struct-include dvc-fileinfo-root cl-struct-print t make-dvc-fileinfo-file side-effect-free dvc-fileinfo-file-p error-free dvc-fileinfo-file-more-status dvc-fileinfo-file-indexed dvc-fileinfo-file-status dvc-fileinfo-file-file dvc-fileinfo-file-dir dvc-fileinfo-file-exclude dvc-fileinfo-file-mark] 4) #@70 String image of STATUS. This is used by `dvc-fileinfo-printer-full'. (defalias 'dvc-fileinfo-status-image-full #[(status) "\301=\203\302\207\303=\203\304\207\305=\203\306\207\307=\203 \310\207\311=\203(\312\207\313=\2030\314\207\315=\2038\316\207\317=\203@\320\207\321=\203H\322\207\323=\203P\324\207\325=\203X\326\207\327=\203`\324\207\330=\203h\331\207\332\333\334#\205q\335\207" [status added "added " conflict "conflict " deleted "deleted " ignored "ignored " invalid "invalid " known "known " missing "missing " modified "modified " copy-source "copy " copy-target " ==> " rename-source "rename " rename-target unknown "unknown " error "ecase failed: %s, %s" (added conflict deleted ignored invalid known missing modified copy-source copy-target rename-source rename-target unknown) nil] 4 (#$ . 12376)]) #@71 String image of STATUS. This is used by `dvc-fileinfo-printer-terse'. (defalias 'dvc-fileinfo-status-image-terse #[(status) "\301=\203\302\207\303=\203\304\207\305=\203\306\207\307=\203 \310\207\311=\203(\312\207\313=\2030\314\207\315=\2038\306\207\316=\203@\317\207\320=\203H\321\207\322=\203P\323\207\324=\203X\325\207\326=\203`\323\207\327=\203h\330\207\331\332\333#\205q\334\207" [status added "A" conflict "X" deleted "D" ignored "G" invalid "I" known "-" missing modified "M" copy-source "C" copy-target target rename-source "R" rename-target unknown "?" error "ecase failed: %s, %s" (added conflict deleted ignored invalid known missing modified copy-source copy-target rename-source rename-target unknown) nil] 4 (#$ . 13292)]) #@84 Return a face appropriate for STATUS. This is used by `dvc-fileinfo-printer-full'. (defalias 'dvc-fileinfo-choose-face-full #[(status) "\301=\203\302\207\303=\203\304\207\305=\203\306\207\307=\203 \310\207\311=\203(\312\207\313=\2030\314\207\315=\2038\316\207\317=\203@\320\207\321=\203H\322\207\323=\203P\322\207\324=\203X\316\207\325=\203`\316\207\326=\203h\327\207\330\331\332#\205q\333\207" [status added dvc-added conflict dvc-conflict deleted dvc-deleted ignored dvc-ignored invalid dvc-unrecognized known dvc-source missing dvc-move modified dvc-modified copy-source dvc-copy copy-target rename-source rename-target unknown dvc-unknown error "ecase failed: %s, %s" (added conflict deleted ignored invalid known missing modified copy-source copy-target rename-source rename-target unknown) nil] 4 (#$ . 14065)]) (byte-code "\303\304\305\"\210\306\307 \"\203 \210\202 B)\306\307\n\"\203&\n\210\202*\nB)\310\311\312\313#\210\311\314N\204=\310\311\314\315#\210\303\207" [x cl-struct-dvc-fileinfo-file-tags cl-struct-dvc-fileinfo-root-tags defalias dvc-fileinfo-choose-face-terse dvc-fileinfo-choose-face-full cl-struct-dvc-fileinfo-dir memql put dvc-fileinfo-dir-mark cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-dir-mark (or (and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-dir-tags)) (error "dvc-fileinfo-dir-mark accessing a non-dvc-fileinfo-dir")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-dir-mark #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-dir-tags 0 error "dvc-fileinfo-dir-mark accessing a non-dvc-fileinfo-dir" 1] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-dir-mark setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-dir dvc-fileinfo-dir-mark #1=(and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-dir-tags)) 1] 6] dvc-fileinfo-dir-exclude cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-dir-exclude (or #1# (error "dvc-fileinfo-dir-exclude accessing a non-dvc-fileinfo-dir")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-dir-exclude #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-dir-tags 0 error "dvc-fileinfo-dir-exclude accessing a non-dvc-fileinfo-dir" 2] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-dir-exclude setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-dir dvc-fileinfo-dir-exclude #1=(and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-dir-tags)) 2] 6] dvc-fileinfo-dir-dir cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-dir-dir (or #1# (error "dvc-fileinfo-dir-dir accessing a non-dvc-fileinfo-dir")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-dir-dir #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-dir-tags 0 error "dvc-fileinfo-dir-dir accessing a non-dvc-fileinfo-dir" 3] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-dir-dir setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-dir dvc-fileinfo-dir-dir #1=(and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-dir-tags)) 3] 6] dvc-fileinfo-dir-file cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-dir-file (or #1# (error "dvc-fileinfo-dir-file accessing a non-dvc-fileinfo-dir")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-dir-file #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-dir-tags 0 error "dvc-fileinfo-dir-file accessing a non-dvc-fileinfo-dir" 4] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-dir-file setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-dir dvc-fileinfo-dir-file #1=(and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-dir-tags)) 4] 6] dvc-fileinfo-dir-status cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-dir-status (or #1# (error "dvc-fileinfo-dir-status accessing a non-dvc-fileinfo-dir")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-dir-status #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-dir-tags 0 error "dvc-fileinfo-dir-status accessing a non-dvc-fileinfo-dir" 5] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-dir-status setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-dir dvc-fileinfo-dir-status #1=(and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-dir-tags)) 5] 6] dvc-fileinfo-dir-indexed cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-dir-indexed (or #1# (error "dvc-fileinfo-dir-indexed accessing a non-dvc-fileinfo-dir")) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-dir-indexed #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-dir-tags 0 error "dvc-fileinfo-dir-indexed accessing a non-dvc-fileinfo-dir" 6] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-dir-indexed setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-dir dvc-fileinfo-dir-indexed #1=(and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-dir-tags)) 6] 6] dvc-fileinfo-dir-more-status cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-dir-more-status (or #1# (error "dvc-fileinfo-dir-more-status accessing a non-dvc-fileinfo-dir")) (aref cl-x 7)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-dir-more-status #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-dir-tags 0 error "dvc-fileinfo-dir-more-status accessing a non-dvc-fileinfo-dir" 7] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-dir-more-status setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-dir dvc-fileinfo-dir-more-status (and #1=(memq (aref cl-x 0) cl-struct-dvc-fileinfo-dir-tags)) 7] 6] dvc-fileinfo-dir-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-dir-p (and (vectorp cl-x) (>= (length cl-x) 8) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-dir-p #[(cl-x) "\302!\205G\303Y\205\304H >\205\305\207" [cl-x cl-struct-dvc-fileinfo-dir-tags vectorp 8 0 t] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put make-dvc-fileinfo-dir cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>\206%\314A@\315>A@\203c@\316>\203JAA\211\2025\317>A@\203Y\320\211\2025\321\322@\"\210\2023)\323\324\325\326\320 \n \f &\f.\207" [#1# mark exclude dir file status :mark :exclude :dir :file :status :indexed (nil t) :more-status (:mark :exclude :dir :file :status :indexed :more-status :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:mark :exclude :dir :file :status :indexed :more-status)" cl-defsubst-expand (mark exclude dir file status indexed more-status) (block make-dvc-fileinfo-dir (vector 'cl-struct-dvc-fileinfo-dir mark exclude dir file status indexed more-status)) t indexed more-status #:--cl-keys-- cl-whole] 14 "Not documented\n\n(fn CL-WHOLE &cl-quote &key MARK EXCLUDE DIR FILE STATUS INDEXED MORE-STATUS)"] byte-compile cl-byte-compile-compiler-macro] 4) #@76 Not documented (fn &key MARK EXCLUDE DIR FILE STATUS INDEXED MORE-STATUS) (defalias 'make-dvc-fileinfo-dir #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>\206%\314A@\315>A@\203c@\316>\203JAA\211\2025\317>A@\203Y\320\211\2025\321\322@\"\210\2023)\323\324 \n \f &.\207" [#1# mark exclude dir file status :mark :exclude :dir :file :status :indexed (nil t) :more-status (:mark :exclude :dir :file :status :indexed :more-status :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:mark :exclude :dir :file :status :indexed :more-status)" vector cl-struct-dvc-fileinfo-dir indexed more-status #2=#:--cl-keys--] 10 (#$ . 22566)]) (byte-code "\304B\305C\306\307\310\311#\210\306\307\312\313#\210\306\307\314\315#\210\306\307\316\317#\210\306\320\321\317#\210\306\322\321\323#\210\306\324\321\317#\210\306\325\321\317#\210\306\326\321\317#\210\306\327\321\317#\210\306\330\321\317#\210\306\331\321\317#\210\306\332\321\317#\210\333\334\n \"\203c \210\202g\n B)\306\335\336\337#\210\335\340N\204z\306\335\340\341#\210\305\207" [custom-print-functions cl-struct-dvc-fileinfo-dir-tags x cl-struct-dvc-fileinfo-root-tags #[(cl-x cl-s cl-n) "\303!\205\310G\304Y\205\310\305H >\205\310\306\307\n\"\210\306\310\n\"\210\311\305H >\204,\312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D\312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H >\204\\\312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H >\204t\312\324!\210\325H\n\"\210\306\326\n\"\210\311\305H >\204\214\312\327!\210\330H\n\"\210\306\331\n\"\210\311\305H >\204\244\312\332!\210\333H\n\"\210\306\334\n\"\210\311\305H >\204\274\312\335!\210\336H\n\"\210\306\337\n\"\210\340\207" [cl-x cl-struct-dvc-fileinfo-dir-tags cl-s vectorp 8 0 princ "#S(dvc-fileinfo-dir" " mark" prin1 error "dvc-fileinfo-dir-mark accessing a non-dvc-fileinfo-dir" 1 " exclude" "dvc-fileinfo-dir-exclude accessing a non-dvc-fileinfo-dir" 2 " dir" "dvc-fileinfo-dir-dir accessing a non-dvc-fileinfo-dir" 3 " file" "dvc-fileinfo-dir-file accessing a non-dvc-fileinfo-dir" 4 " status" "dvc-fileinfo-dir-status accessing a non-dvc-fileinfo-dir" 5 " indexed" "dvc-fileinfo-dir-indexed accessing a non-dvc-fileinfo-dir" 6 " more-status" "dvc-fileinfo-dir-more-status accessing a non-dvc-fileinfo-dir" 7 ")" t] 3] cl-struct-dvc-fileinfo-dir put dvc-fileinfo-dir cl-struct-slots ((cl-tag-slot) (mark) (exclude) (dir) (file) (status) (indexed t) (more-status)) cl-struct-type (vector nil) cl-struct-include dvc-fileinfo-file cl-struct-print t make-dvc-fileinfo-dir side-effect-free dvc-fileinfo-dir-p error-free dvc-fileinfo-dir-more-status dvc-fileinfo-dir-indexed dvc-fileinfo-dir-status dvc-fileinfo-dir-file dvc-fileinfo-dir-dir dvc-fileinfo-dir-exclude dvc-fileinfo-dir-mark cl-struct-dvc-fileinfo-message memql dvc-fileinfo-message-text cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-message-text (or (and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-message-tags)) (error "dvc-fileinfo-message-text accessing a non-dvc-fileinfo-message")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-message-text #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-message-tags 0 error "dvc-fileinfo-message-text accessing a non-dvc-fileinfo-message" 1] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-message-text setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-message dvc-fileinfo-message-text (and #1=(memq (aref cl-x 0) cl-struct-dvc-fileinfo-message-tags)) 1] 6] dvc-fileinfo-message-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-message-p (and (vectorp cl-x) (>= (length cl-x) 2) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-message-p #[(cl-x) "\302!\205G\303Y\205\304H >\205\305\207" [cl-x cl-struct-dvc-fileinfo-message-tags vectorp 2 0 t] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put make-dvc-fileinfo-message cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\304>A@\n\2032\n@\305>\203\nAA\211\202 \306>A@\203)\307\211\202 \310\311\n@\"\210\202)\312\313\314\315 \307 &)\207" [#1# text #:--cl-keys-- cl-whole :text (:text :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:text)" cl-defsubst-expand (text) (block make-dvc-fileinfo-message (vector 'cl-struct-dvc-fileinfo-message text)) t] 8 "Not documented\n\n(fn CL-WHOLE &cl-quote &key TEXT)"] byte-compile cl-byte-compile-compiler-macro] 4) #@32 Not documented (fn &key TEXT) (defalias 'make-dvc-fileinfo-message #[(&rest #1=#:--cl-rest--) "\303>A@\n\2032\n@\304>\203\nAA\211\202 \305>A@\203)\306\211\202 \307\310\n@\"\210\202)\311\312 \")\207" [#1# text #2=#:--cl-keys-- :text (:text :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:text)" vector cl-struct-dvc-fileinfo-message] 4 (#$ . 27420)]) (byte-code "\304B\305C\306\307\310\311#\210\306\307\312\313#\210\306\307\314\315#\210\306\307\316\317#\210\306\320\321\317#\210\306\322\321\323#\210\306\324\321\317#\210\325\326\n \"\203? \210\202C\n B)\306\327\330\331#\210\327\332N\204V\306\327\332\333#\210\305\207" [custom-print-functions cl-struct-dvc-fileinfo-message-tags x cl-struct-dvc-fileinfo-root-tags #[(cl-x cl-s cl-n) "\303!\2058G\304Y\2058\305H >\2058\306\307\n\"\210\306\310\n\"\210\311\305H >\204,\312\313!\210\314H\n\"\210\306\315\n\"\210\316\207" [cl-x cl-struct-dvc-fileinfo-message-tags cl-s vectorp 2 0 princ "#S(dvc-fileinfo-message" " text" prin1 error "dvc-fileinfo-message-text accessing a non-dvc-fileinfo-message" 1 ")" t] 3] cl-struct-dvc-fileinfo-message put dvc-fileinfo-message cl-struct-slots ((cl-tag-slot) (text)) cl-struct-type (vector nil) cl-struct-include dvc-fileinfo-root cl-struct-print t make-dvc-fileinfo-message side-effect-free dvc-fileinfo-message-p error-free dvc-fileinfo-message-text cl-struct-dvc-fileinfo-legacy memql dvc-fileinfo-legacy-data cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-legacy-data (or (and (memq (aref cl-x 0) cl-struct-dvc-fileinfo-legacy-tags)) (error "dvc-fileinfo-legacy-data accessing a non-dvc-fileinfo-legacy")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-legacy-data #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-dvc-fileinfo-legacy-tags 0 error "dvc-fileinfo-legacy-data accessing a non-dvc-fileinfo-legacy" 1] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put dvc-fileinfo-legacy-data setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander dvc-fileinfo-legacy dvc-fileinfo-legacy-data (and #1=(memq (aref cl-x 0) cl-struct-dvc-fileinfo-legacy-tags)) 1] 6] dvc-fileinfo-legacy-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block dvc-fileinfo-legacy-p (and (vectorp cl-x) (>= (length cl-x) 2) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'dvc-fileinfo-legacy-p #[(cl-x) "\302!\205G\303Y\205\304H >\205\305\207" [cl-x cl-struct-dvc-fileinfo-legacy-tags vectorp 2 0 t] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put make-dvc-fileinfo-legacy cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\304>A@\n\2032\n@\305>\203\nAA\211\202 \306>A@\203)\307\211\202 \310\311\n@\"\210\202)\312\313\314\315 \307 &)\207" [#1# data #:--cl-keys-- cl-whole :data (:data :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:data)" cl-defsubst-expand (data) (block make-dvc-fileinfo-legacy (vector 'cl-struct-dvc-fileinfo-legacy data)) t] 8 "Not documented\n\n(fn CL-WHOLE &cl-quote &key DATA)"] byte-compile cl-byte-compile-compiler-macro] 4) #@32 Not documented (fn &key DATA) (defalias 'make-dvc-fileinfo-legacy #[(&rest #1=#:--cl-rest--) "\303>A@\n\2032\n@\304>\203\nAA\211\202 \305>A@\203)\306\211\202 \307\310\n@\"\210\202)\311\312 \")\207" [#1# data #2=#:--cl-keys-- :data (:data :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:data)" vector cl-struct-dvc-fileinfo-legacy] 4 (#$ . 30829)]) (byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\321#\210\304\322\317\315#\207" [custom-print-functions cl-struct-dvc-fileinfo-legacy-tags #[(cl-x cl-s cl-n) "\303!\2058G\304Y\2058\305H >\2058\306\307\n\"\210\306\310\n\"\210\311\305H >\204,\312\313!\210\314H\n\"\210\306\315\n\"\210\316\207" [cl-x cl-struct-dvc-fileinfo-legacy-tags cl-s vectorp 2 0 princ "#S(dvc-fileinfo-legacy" " data" prin1 error "dvc-fileinfo-legacy-data accessing a non-dvc-fileinfo-legacy" 1 ")" t] 3] cl-struct-dvc-fileinfo-legacy put dvc-fileinfo-legacy cl-struct-slots ((cl-tag-slot) (data)) cl-struct-type (vector nil) cl-struct-include dvc-fileinfo-root cl-struct-print t make-dvc-fileinfo-legacy side-effect-free dvc-fileinfo-legacy-p error-free dvc-fileinfo-legacy-data] 4) (defalias 'dvc-fileinfo-printer #[(fileinfo) "\206\304\305\306\307 !P!\310\n!\204\310 !\203 \n !*\207" [dvc-fileinfo-printer-interface interface fun fileinfo text intern "dvc-fileinfo-printer-" symbol-name fboundp] 4]) #@87 Ewoc pretty-printer for dvc-fileinfo types which uses full text to indicate statuses. (defalias 'dvc-fileinfo-printer-full #[(fileinfo) "\306\307 !\203\234 G\310Y\203\234 \311H\n>\203\234\312 \311H\n>\204$\313\314!\210 \315H!\316 \311H\n>\2045\313\317!\210 \320H \311H\n>\204D\313\321!\210 \322HR \311H\n>\204U\313\323!\210 \324H\203_\325\202\206 \311H\n>\204k\313\326!\210 \327H\203u\330\202\206\331 \311H\n>\204\202\313\314!\210 \315H!\316c\210 \311H\n>\204\226\313\323!\210 \324H\203\242 c\210\202\276 \311H\n>\204\256\313\326!\210 \327H\203\2734c\210\202\276\316c\210\316c\210 \f\332\211\21156(78\203h\3337!9(9\205\351\334\335\336\337(!\"!:5\203\3655\2026\205\3406!;\205\3406!;:\203#;\203;\341\342\341:\260\202%:\202%5<(9\2033(J\2025((\343\3119G\304\f\344\f\345(\205P\346\347\350(\351<\2576\205Y\3526D\"BBBB9$\2109-\202j7-c\210 \311H\n>\204y\313\353!\210 \354HG\311V\205\230\355 \210\356c\210 \311H\n>\204\224\313\353!\210 \354Hc*\202\372\307 !\203\307 G\327Y\203\307 \311H=>\203\307\357 \311H=>\204\300\313\360!\210 \324H!\202\372\307 !\203\361 G\327Y\203\361 \311H>>\203\361 \311H>>\204\352\313\361!\210 \324Hc\202\372\313\362 \363#\205\372\332)\207" [inhibit-read-only fileinfo cl-struct-dvc-fileinfo-file-tags line face dvc-mark t vectorp 8 0 dvc-fileinfo-status-image-full error "dvc-fileinfo-file-status accessing a non-dvc-fileinfo-file" 5 " " "dvc-fileinfo-file-dir accessing a non-dvc-fileinfo-file" 3 "dvc-fileinfo-file-file accessing a non-dvc-fileinfo-file" 4 "dvc-fileinfo-file-mark accessing a non-dvc-fileinfo-file" 1 dvc-marked "dvc-fileinfo-file-exclude accessing a non-dvc-fileinfo-file" 2 dvc-excluded dvc-fileinfo-choose-face-full nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu "dvc-fileinfo-file-more-status accessing a non-dvc-fileinfo-file" 7 newline " " dvc-diff-printer "dvc-fileinfo-legacy-data accessing a non-dvc-fileinfo-legacy" "dvc-fileinfo-message-text accessing a non-dvc-fileinfo-message" "etypecase failed: %s, %s" (dvc-fileinfo-file dvc-fileinfo-legacy dvc-fileinfo-message) dvc-exclude help menu str dvc-highlight strcpy key-help prefix-help long-help cl-struct-dvc-fileinfo-legacy-tags cl-struct-dvc-fileinfo-message-tags] 14 (#$ . 32319)]) #@93 Ewoc pretty-printer for dvc-fileinfo types which uses a single letter to indicate statuses. (defalias 'dvc-fileinfo-printer-terse #[(fileinfo) "\306\307 !\203\367 G\310Y\203\367 \311H\n>\203\367\312 \311H\n>\204$\313\314!\210 \315H! \311H\n>\2045\313\316!\210 \317H\204O \311H\n>\204G\313\314!\210 \315H\320=\203S\321\202T\322 ;\203\200 \f\321 \311H\n>\204i\313\323!\210 \324H \311H\n>\204x\313\325!\210 \326H\260\202\240\327 \311H\n>\204\215\313\323!\210 \324H \311H\n>\204\234\313\325!\210 \326HQ \311H\n>\204\255\313\330!\210 \331H\203\267\332\202\336 \311H\n>\204\303\313\333!\210 \334H\203\315\335\202\336\336 \311H\n>\204\332\313\314!\210 \315H!) \311H\n>\204\354\313\330!\210 \331H\203\371:c\210\202 \311H\n>\204\313\333!\210 \334H\203;c\210\202\321c\210\321c\210 )\337\211\211<=.)>?\203\303\340>!@.9\205B\341\342\343\344.!\"!A<\203N<\202_=\205_\345=!;\205_\345=!BA\203|B\203wB\346\347\346A\260\202~A\202~<C.9\203\214.J\202\216..\350\311@G\351)\352)\353.\205\253\354\355\356.\357C\257=\205\264\360=D\"BBBB@$\210@-\202\305>-c\210 \311H\n>\204\324\313\361!\210 \362HG\311V\205\363\363 \210\364c\210 \311H\n>\204\357\313\361!\210 \362Hc,\202U\307 !\203\" G\334Y\203\" \311HD>\203\"\365 \311HD>\204\313\366!\210 \331H!\202U\307 !\203L G\334Y\203L \311HE>\203L \311HE>\204E\313\367!\210 \331Hc\202U\313\370 \371#\205U\337)\207" [inhibit-read-only fileinfo cl-struct-dvc-fileinfo-file-tags image indexed line t vectorp 8 0 dvc-fileinfo-status-image-terse error "dvc-fileinfo-file-status accessing a non-dvc-fileinfo-file" 5 "dvc-fileinfo-file-indexed accessing a non-dvc-fileinfo-file" 6 unknown " " "?" "dvc-fileinfo-file-dir accessing a non-dvc-fileinfo-file" 3 "dvc-fileinfo-file-file accessing a non-dvc-fileinfo-file" 4 " ==> " "dvc-fileinfo-file-mark accessing a non-dvc-fileinfo-file" 1 dvc-marked "dvc-fileinfo-file-exclude accessing a non-dvc-fileinfo-file" 2 dvc-excluded dvc-fileinfo-choose-face-terse nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties face font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu "dvc-fileinfo-file-more-status accessing a non-dvc-fileinfo-file" 7 newline " " dvc-diff-printer "dvc-fileinfo-legacy-data accessing a non-dvc-fileinfo-legacy" "dvc-fileinfo-message-text accessing a non-dvc-fileinfo-message" "etypecase failed: %s, %s" (dvc-fileinfo-file dvc-fileinfo-legacy dvc-fileinfo-message) dvc-mark dvc-exclude help menu str dvc-highlight strcpy key-help prefix-help long-help cl-struct-dvc-fileinfo-legacy-tags cl-struct-dvc-fileinfo-message-tags] 14 (#$ . 34755)]) #@154 Return the fileinfo (a dvc-fileinfo-file, or dvc-fileinfo-legacy) for the ewoc element at point. Throws an error if point is not on a file or directory. (defalias 'dvc-fileinfo-current-fileinfo #[nil "\306!\211\204\f\307\310!\210\311 !\312\n!\203)\nG\313Y\203)\n\314H >\203)\n\202\205\312\n!\203`\nG\315Y\203`\n\314H\f>\203`\n\314H\f>\204J\307\316!\210\n\317H\211@\320=\203Y\n\202\\\307\310!)\202\205\312\n!\203|\nG\315Y\203|\n\314H>\203|\307\310!\202\205\307\321\n\322#\205\205\323*\207" [dvc-fileinfo-ewoc ewoc-entry fileinfo cl-struct-dvc-fileinfo-file-tags cl-struct-dvc-fileinfo-legacy-tags data ewoc-locate error "not on a file or directory" ewoc-data vectorp 8 0 2 "dvc-fileinfo-legacy-data accessing a non-dvc-fileinfo-legacy" 1 file "etypecase failed: %s, %s" (dvc-fileinfo-file dvc-fileinfo-legacy dvc-fileinfo-message) nil cl-struct-dvc-fileinfo-message-tags] 5 (#$ . 37485)]) #@91 Return t if FILEINFO is a dvc-fileinfo-file, or a dvc-fileinfo-legacy containing a 'file. (defalias 'dvc-fileinfo-file-or-legacy-file-p #[(fileinfo) "\303!\203G\304Y\203\305H >\203\306\207\303!\205>G\307Y\205>\305H\n>\205>\305H\n>\2048\310\311!\210\312H@\313=\207" [fileinfo cl-struct-dvc-fileinfo-file-tags cl-struct-dvc-fileinfo-legacy-tags vectorp 8 0 t 2 error "dvc-fileinfo-legacy-data accessing a non-dvc-fileinfo-legacy" 1 file] 2 (#$ . 38402)]) #@55 Return directory and file from fileinfo, as a string. (defalias 'dvc-fileinfo-path #[(fileinfo) "\305!\2035G\306Y\2035\307H >\2035\307H >\204!\310\311!\210\312H\307H >\2040\310\313!\210\314HP\207\305!\203oG\315Y\203o\307H\n>\203o\307H\n>\204V\310\316!\210\317H\211@\320=\203j \211A@)\202m\310\321!)\207\310\322\323#\205x\324\207" [fileinfo cl-struct-dvc-fileinfo-file-tags cl-struct-dvc-fileinfo-legacy-tags data x vectorp 8 0 error "dvc-fileinfo-file-dir accessing a non-dvc-fileinfo-file" 3 "dvc-fileinfo-file-file accessing a non-dvc-fileinfo-file" 4 2 "dvc-fileinfo-legacy-data accessing a non-dvc-fileinfo-legacy" 1 file "Not on a file entry" "etypecase failed: %s, %s" (dvc-fileinfo-file dvc-fileinfo-legacy) nil] 5 (#$ . 38879)]) #@162 Return a string giving the filename (including path from root) of the file element on the line at point. Throws an error if point is not on a file element line. (defalias 'dvc-fileinfo-current-file #[nil "\304 \305!\203G\306Y\203\307H >\203\310!\202S\305!\203JG\311Y\203J\307H\n>\203J\307H\n>\204?\312\313!\210\314H\211A@)\202S\312\315\316#\205S\317)\207" [fileinfo cl-struct-dvc-fileinfo-file-tags cl-struct-dvc-fileinfo-legacy-tags x dvc-fileinfo-current-fileinfo vectorp 8 0 dvc-fileinfo-path 2 error "dvc-fileinfo-legacy-data accessing a non-dvc-fileinfo-legacy" 1 "etypecase failed: %s, %s" (dvc-fileinfo-file dvc-fileinfo-legacy) nil] 5 (#$ . 39650)]) #@52 Return list of all files (as strings) in file list (defalias 'dvc-fileinfo-all-files #[nil "\302\303\304 \"\210)\207" [result dvc-fileinfo-ewoc nil ewoc-map #[(fileinfo) "\301!\203 \302\303\304!\"\210\305\207" [fileinfo dvc-fileinfo-file-or-legacy-file-p add-to-list result dvc-fileinfo-path nil] 4]] 3 (#$ . 40339)]) #@44 Remove all message elements from the ewoc. (defalias 'dvc-fileinfo-delete-messages #[nil "\301\302\"\207" [dvc-fileinfo-ewoc ewoc-filter #[(fileinfo) "\302!\205G\303Y\205\304H >\205\305?\207" [fileinfo cl-struct-dvc-fileinfo-message-tags vectorp 2 0 t] 2]] 3 (#$ . 40668)]) #@46 Remove the current element(s) from the ewoc. (defalias 'dvc-fileinfo-kill #[nil "G\302U\203\303\302!\210\304 \305 !\"\210\303\306!\207\307\310 \311\"\207" [dvc-buffer-marked-file-list dvc-fileinfo-ewoc 0 toggle-read-only dvc-ewoc-delete ewoc-locate 1 nil ewoc-filter #[(fileinfo) "\302H >\204\f\303\304!\210\305H?\207" [fileinfo cl-struct-dvc-fileinfo-file-tags 0 error "dvc-fileinfo-file-mark accessing a non-dvc-fileinfo-file" 1] 2]] 4 (#$ . 40958) nil]) (defalias 'dvc-fileinfo-mark-dir-1 #[(fileinfo mark) " \306H\n>\204 \307\310!\210 \311H\230\205|\312 ! \306H\n>\204$\307\313!\210 \314\fI\210\f\2035\315\305 \"\210\202:\316 \"\317 !\203Y G\320Y\203Y \306H>\203Y\321 \f\"\210\322\202{\317 !\203r G\320Y\203r \306H\n>\203r\322\202{\307\323 \324#\205{\325)\207" [dir-compare fileinfo cl-struct-dvc-fileinfo-file-tags file mark dvc-buffer-marked-file-list 0 error "dvc-fileinfo-file-dir accessing a non-dvc-fileinfo-file" 3 dvc-fileinfo-path "dvc-fileinfo-file-mark storing a non-dvc-fileinfo-file" 1 add-to-list delete vectorp 8 dvc-fileinfo-mark-dir t "etypecase failed: %s, %s" (dvc-fileinfo-dir dvc-fileinfo-file) nil cl-struct-dvc-fileinfo-dir-tags] 4]) #@57 Set the mark for all files in DIR to MARK, recursively. (defalias 'dvc-fileinfo-mark-dir #[(dir mark) "\303!\304\305\n\")\207" [dir dir-compare dvc-fileinfo-ewoc file-name-as-directory ewoc-map #[(fileinfo) "\304!\203G\305Y\203\306H >\203\307\n\"\207\304!\2031G\310Y\2031\306H >\2031\311\207\312\313\314#\205:\311\207" [fileinfo cl-struct-dvc-fileinfo-file-tags mark cl-struct-dvc-fileinfo-message-tags vectorp 8 0 dvc-fileinfo-mark-dir-1 2 nil error "etypecase failed: %s, %s" (dvc-fileinfo-file dvc-fileinfo-message)] 4]] 3 (#$ . 42152)]) #@94 Set the mark for file under point to MARK. If a directory, mark all files in that directory. (defalias 'dvc-fileinfo-mark-file-1 #[(mark) "\306!\307 !\310\n!\203U\nG\311Y\203U\n\312H >\203U\313\n!\n\312H >\204-\314\315!\210\n\316I\210\203@\317\320\f\"\210\202G\321\f\"\322 \"\210\323\f\")\202\301\310\n!\203\234\nG\311Y\203\234\n\312H >\203\234\313\n!\n\312H >\204z\314\315!\210\n\316I\210\203\215\317\320\f\"\210\202\224\321\f\"\322 \")\202\301\310\n!\203\270\nG\324Y\203\270\n\312H>\203\270\314\325!\202\301\314\326\n\327#\205\301\330*\207" [dvc-fileinfo-ewoc current fileinfo cl-struct-dvc-fileinfo-dir-tags file cl-struct-dvc-fileinfo-file-tags ewoc-locate ewoc-data vectorp 8 0 dvc-fileinfo-path error "dvc-fileinfo-file-mark storing a non-dvc-fileinfo-file" 1 add-to-list dvc-buffer-marked-file-list delete ewoc-invalidate dvc-fileinfo-mark-dir 2 "not on a file or directory" "etypecase failed: %s, %s" (dvc-fileinfo-dir dvc-fileinfo-file dvc-fileinfo-message) nil mark cl-struct-dvc-fileinfo-message-tags] 4 (#$ . 42719)]) #@108 Mark the file under point. If a directory, mark all files in that directory. Then move to next ewoc entry. (defalias 'dvc-fileinfo-mark-file #[nil "\300\301!\210\302 \207" [dvc-fileinfo-mark-file-1 t dvc-fileinfo-next] 2 (#$ . 43802) nil]) #@152 Unmark the file under point. If a directory, unmark all files in that directory. If PREV non-nil, move to previous ewoc entry; otherwise move to next. (defalias 'dvc-fileinfo-unmark-file #[(&optional prev) "\301\302!\210\203 \303 \207\304 \207" [prev dvc-fileinfo-mark-file-1 nil dvc-fileinfo-prev dvc-fileinfo-next] 2 (#$ . 44049) nil]) #@116 Unmark the file under point. If a directory, unmark all files in that directory. Then move to previous ewoc entry. (defalias 'dvc-fileinfo-unmark-file-up #[nil "\300\301!\207" [dvc-fileinfo-unmark-file t] 2 (#$ . 44396) nil]) #@33 Mark all files and directories. (defalias 'dvc-fileinfo-mark-all #[nil "\301\302\"\207" [dvc-fileinfo-ewoc ewoc-map #[(fileinfo) "\303!\203/G\304Y\203/\305H >\203/\305H >\204!\306\307!\210\310\311I\210\312\313\314!\"\210\311\207\303!\203FG\315Y\203F\305H\n>\203F\316\207\306\317\320#\205O\316\207" [fileinfo cl-struct-dvc-fileinfo-file-tags cl-struct-dvc-fileinfo-message-tags vectorp 8 0 error "dvc-fileinfo-file-mark storing a non-dvc-fileinfo-file" 1 t add-to-list dvc-buffer-marked-file-list dvc-fileinfo-path 2 nil "etypecase failed: %s, %s" (dvc-fileinfo-file dvc-fileinfo-message)] 4]] 3 (#$ . 44628) nil]) #@35 Unmark all files and directories. (defalias 'dvc-fileinfo-unmark-all #[nil "\302\303\304 \"\207" [dvc-buffer-marked-file-list dvc-fileinfo-ewoc nil ewoc-map #[(fileinfo) "\303!\203:G\304Y\203:\305H >\203:\305H >\204!\306\307!\210\310H\205Z\305H >\2043\306\311!\210\310\312I\210\313\207\303!\203QG\314Y\203Q\305H\n>\203Q\312\207\306\315\316#\205Z\312\207" [fileinfo cl-struct-dvc-fileinfo-file-tags cl-struct-dvc-fileinfo-message-tags vectorp 8 0 error "dvc-fileinfo-file-mark accessing a non-dvc-fileinfo-file" 1 "dvc-fileinfo-file-mark storing a non-dvc-fileinfo-file" nil t 2 "etypecase failed: %s, %s" (dvc-fileinfo-file dvc-fileinfo-message)] 4]] 3 (#$ . 45267) nil]) #@74 Toggle exclude for file under point. Does not edit default exclude file. (defalias 'dvc-fileinfo-toggle-exclude #[nil "\304!\305 !\306\n!\203D\nG\307Y\203D\n\310H >\203D\n\310H >\204)\311\312!\210\n\313\n\310H >\2047\311\314!\210\n\313H?I\210\315 \"\202G\311\316!*\207" [dvc-fileinfo-ewoc current fileinfo cl-struct-dvc-fileinfo-file-tags ewoc-locate ewoc-data vectorp 8 0 error "dvc-fileinfo-file-exclude storing a non-dvc-fileinfo-file" 2 "dvc-fileinfo-file-exclude accessing a non-dvc-fileinfo-file" ewoc-invalidate "not on a file or directory"] 4 (#$ . 45967) nil]) #@83 Move to the next ewoc entry. If optional NO-DING, don't ding if there is no next. (defalias 'dvc-fileinfo-next #[(&optional no-ding) "\305!\306 !\307 \"\n`V\203\nb\202* \203#\306 !b\202*\f?\205*\310 +\207" [dvc-fileinfo-ewoc current cur-location next no-ding ewoc-locate ewoc-location ewoc-next ding] 3 (#$ . 46553) nil]) #@87 Move to the previous ewoc entry. If optional NO-DING, don't ding if there is no prev. (defalias 'dvc-fileinfo-prev #[(&optional no-ding) "\305!\306 !\307 \"`\nV\203\nb\202* \203#\306 !b\202*\f?\205*\310 +\207" [dvc-fileinfo-ewoc current cur-location prev no-ding ewoc-locate ewoc-location ewoc-prev ding] 3 (#$ . 46892) nil]) #@43 Return ewoc element for FILE (full path). (defalias 'dvc-fileinfo-find-file #[(file) "\304\305\"\211\203'\306 !\307\n!\205\310\311\n!! \230)\204'\312 \"\211\204 \203/ \2023\313\314 \")\207" [dvc-fileinfo-ewoc elem fileinfo file ewoc-nth 0 ewoc-data dvc-fileinfo-file-or-legacy-file-p expand-file-name dvc-fileinfo-path ewoc-next error "Can't find file %s in list"] 4 (#$ . 47235)]) #@53 Return list of ewoc elements that are marked files. (defalias 'dvc-fileinfo-marked-elems #[nil "\305\306\"\307\n\203E\310\n!\311 !\203< G\312Y\203< \306H\f>\203< \306H\f>\2040\313\314!\210 \315H\203<\316 \nC\"\317\n\")\202 *\207" [dvc-fileinfo-ewoc result elem fi cl-struct-dvc-fileinfo-file-tags ewoc-nth 0 nil ewoc-data vectorp 8 error "dvc-fileinfo-file-mark accessing a non-dvc-fileinfo-file" 1 append ewoc-next] 3 (#$ . 47636)]) #@51 Return list of filenames that are excluded files. (defalias 'dvc-fileinfo-excluded-files #[nil "\305\306\"\307\n\203G\310\n!\311 !\203> G\312Y\203> \306H\f>\203> \306H\f>\2040\313\314!\210 \315H\203>\316 \317 !C\"\320\n\")\202 *\207" [dvc-fileinfo-ewoc result elem fi cl-struct-dvc-fileinfo-file-tags ewoc-nth 0 nil ewoc-data vectorp 8 error "dvc-fileinfo-file-exclude accessing a non-dvc-fileinfo-file" 2 append dvc-fileinfo-path ewoc-next] 4 (#$ . 48091)]) #@133 If all ELEMS (list of ewoc elements with data of class dvc-fileinfo-file) have same status, return t. Otherwise throw an error. (defalias 'dvc-fileinfo-same-status #[(elems) "\204\306\207\307\307\211\203N @\310\n! \2036 \f\311H >\204(\312\313!\210\f\314H\232\204F\312\315!\210\202F\f\311H >\204B\312\313!\210\f\314H) A\211\204* )\207" [elems status elem #1=#:--cl-dolist-temp-- fileinfo cl-struct-dvc-fileinfo-file-tags t nil ewoc-data 0 error "dvc-fileinfo-file-status accessing a non-dvc-fileinfo-file" 5 "cannot Do The Right Thing on files with different status"] 4 (#$ . 48572)]) #@171 Add an entry in the current log-edit buffer for FILEINFO. If OTHER-FRAME (default prefix) xor `dvc-log-edit-other-frame' is non-nil, show log-edit buffer in other frame. (defalias 'dvc-fileinfo-add-log-entry-1 #[(fileinfo other-frame) "\303\304\"\210\305 \210db\210\306 \210\307c\210\310 !c\210\311c\210\312 !\205\254 G\313Y\205\254 \314H\n>\205\254 \314H\n>\204:\315\316!\210 \317H\320=\203H\321c\210\306 \207\322 \314H\n>\204U\315\316!\210 \317H\323\"\203c\324c\210\306 \207\322 \314H\n>\204p\315\316!\210 \317H\325\"\203~\326c\210\306 \207\322 \314H\n>\204\213\315\316!\210 \317H\327\"\203\225\330\207\315\331 \314H\n>\204\243\315\316!\210 \317H\332#\205\254\330\207" [other-frame fileinfo cl-struct-dvc-fileinfo-file-tags dvc-log-edit t undo-boundary newline "* " dvc-fileinfo-path ": " vectorp 8 0 error "dvc-fileinfo-file-status accessing a non-dvc-fileinfo-file" 5 added "New file." memql (copy-source copy-target) "copied" (rename-source rename-target) "renamed" (conflict deleted ignored invalid known missing modified unknown) nil "ecase failed: %s, %s" (added copy-target copy-source rename-target rename-source unknown modified missing known invalid ignored deleted conflict)] 4 (#$ . 49186)]) #@179 Add an entry in the current log-edit buffer for the current file. If OTHER-FRAME (default prefix) xor `dvc-log-edit-other-frame' is non-nil, show log-edit buffer in other frame. (defalias 'dvc-fileinfo-add-log-entry #[(&optional other-frame) "\301\302 \"\207" [other-frame dvc-fileinfo-add-log-entry-1 dvc-fileinfo-current-fileinfo] 3 (#$ . 50413) "P"]) #@103 Remove current files. If status `unknown', delete from workspace. Otherwise, call `dvc-remove-files'. (defalias 'dvc-fileinfo-remove-files #[nil "\306 \206 \307!C\310\311 \203y\312 @!\313\f!\203W\fG\314Y\203W\f\315H >\203W\f\315H >\2048\316\317!\210\f\320H\321\232\203O\322\323\f!!\210\324 @\"\210\202r @ B\202r\313\f!\203r\fG\325Y\203r\f\315H>\203r\326 \f\"\210 A)\202 \205\211\327\330\331\332 \"\"\210\333\334 \"+\207" [dvc-fileinfo-ewoc known-files inhibit-read-only elems fileinfo cl-struct-dvc-fileinfo-file-tags dvc-fileinfo-marked-elems ewoc-locate t nil ewoc-data vectorp 8 0 error "dvc-fileinfo-file-status accessing a non-dvc-fileinfo-file" 5 unknown delete-file dvc-fileinfo-path dvc-ewoc-delete 2 add-to-list apply dvc-remove-files mapcar #[(elem) "\301\302!!\207" [elem dvc-fileinfo-path ewoc-data] 3] mapc #[(elem) "\305!\306 !\2031 G\307Y\2031 \310H\n>\2031 \310H\n>\204%\311\312!\210 \313\314I\210\315 \"\202S\306 !\203J G\316Y\203J \310H\f>\203J\317\202S\311\320 \321#\205S\317)\207" [elem fileinfo cl-struct-dvc-fileinfo-file-tags dvc-fileinfo-ewoc cl-struct-dvc-fileinfo-legacy-tags ewoc-data vectorp 8 0 error "dvc-fileinfo-file-status storing a non-dvc-fileinfo-file" 5 deleted ewoc-invalidate 2 nil "etypecase failed: %s, %s" (dvc-fileinfo-file dvc-fileinfo-legacy)] 4] cl-struct-dvc-fileinfo-legacy-tags] 5 (#$ . 50775) nil]) (defalias 'dvc-fileinfo--do-rename #[(fi-source fi-target elems) "\305\306!\306 !\"\210\307H\n>\204\310\311!\210\312\313I\210 \307H\n>\204&\310\311!\210 \312\314I\210\307H\n>\2047\310\315!\210\316\317I\210 \307H\n>\204H\310\315!\210 \316\317I\210\320\321 \f#\207" [fi-source fi-target cl-struct-dvc-fileinfo-file-tags dvc-fileinfo-ewoc elems dvc-rename dvc-fileinfo-path 0 error "dvc-fileinfo-file-status storing a non-dvc-fileinfo-file" 5 rename-source rename-target "dvc-fileinfo-file-mark storing a non-dvc-fileinfo-file" 1 nil apply ewoc-invalidate] 4]) #@107 Record a rename for two currently marked files. One file must have status `missing', the other `unknown'. (defalias 'dvc-fileinfo-rename #[nil "\303 \304\305\"\304\306 \"\211G\307U\204\310\311!\210\n@\312=\2032\nA@\313=\2032\314 @ A@#\202O\nA@\312=\203L\n@\313=\203L\314 A@ @#\202O\310\315!+\207" [elems fis stati dvc-fileinfo-marked-elems mapcar ewoc-data dvc-fileinfo-file-status 2 error "rename requires exactly 2 marked files" missing unknown dvc-fileinfo--do-rename "must rename from a file with status `missing' to a file with status `unknown'"] 5 (#$ . 52738) nil]) #@94 Return nil if `dvc-fileinfo-rename' will throw an error for MARKED-ELEMS, non-nil otherwise. (defalias 'dvc-fileinfo-rename-possible #[(marked-elems) "\2051G\303U\2051\304\305\"\304\306 \"\211@\307=\203$\nA@\310=\2060\nA@\307=\2050\n@\310=*\207" [marked-elems fis stati 2 mapcar ewoc-data dvc-fileinfo-file-status missing unknown] 4 (#$ . 53331)]) (provide 'dvc-fileinfo)