;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:31 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/tla-autoconf.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 "`tla-autoconf.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@143 Create the autodetection function for the command CMDNAME. Checks if the command CMDNAME exists (appear in the output of the "help" command. (defalias 'tla--has-foo-command '(macro . #[(cmd) "\303\304\305Q!\303\306\305Q!\307\310\n\311\312\313\211#F\314 \311\312\315\211\211\211%\316\317\320\321\322\n\323BB\324B\322\n\325BB\326B\327\330\331\332\333\334\335\336\337\340\341\342\343BBB\344BBFEFDFDC\345\346\n\347BB\350BBBB\257E*\207" [cmd fun var intern "tla--autoconf-has-" "-command" "tla-has-" progn defvar nil format "Whether tla|baz has a %s command.\n\nPossible values are nil (don't know), 'yes, or 'no. Don't use this\nvariable directly. Use `tla-has-%s-command' instead." defun "Whether tla|baz has a %s command.\n\nReturns 't or nil.\n\nIf `tla--autoconf-has-%s-command' is non-nil, use its value.\nOtherwise, test if \"%s\" is listed by \"tla|baz help\", and memorize\nthe result in `tla--autoconf-has-%s-command'." (interactive) let answer cond eq ('yes) (t) ('no) (nil) t tla--run-tla-sync '("help") :finished lambda (output error status arguments) with-current-buffer output (goto-char (point-min)) search-forward concat " " (" :") (nil t) (when (interactive-p) (message (if answer "Yes" "No"))) setq ((if answer 'yes 'no)) (answer)] 26 (#$ . 603)])) #@166 Whether tla|baz has a escape command. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-has-escape-command' instead. (defvar tla--autoconf-has-escape-command nil (#$ . 1884)) #@245 Whether tla|baz has a escape command. Returns 't or nil. If `tla--autoconf-has-escape-command' is non-nil, use its value. Otherwise, test if "escape" is listed by "tla|baz help", and memorize the result in `tla--autoconf-has-escape-command'. (defalias 'tla-has-escape-command #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310\311#t\203*\312 \203'\313\202(\314!\210 \2032\302\2023\304 )\207" [tla--autoconf-has-escape-command answer yes t no nil tla--run-tla-sync ("help") :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " escape :" nil t] 4] message "Yes" "No"] 4 (#$ . 2114) nil]) #@162 Whether tla|baz has a diff command. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-has-diff-command' instead. (defvar tla--autoconf-has-diff-command nil (#$ . 2784)) #@237 Whether tla|baz has a diff command. Returns 't or nil. If `tla--autoconf-has-diff-command' is non-nil, use its value. Otherwise, test if "diff" is listed by "tla|baz help", and memorize the result in `tla--autoconf-has-diff-command'. (defalias 'tla-has-diff-command #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310\311#t\203*\312 \203'\313\202(\314!\210 \2032\302\2023\304 )\207" [tla--autoconf-has-diff-command answer yes t no nil tla--run-tla-sync ("help") :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " diff :" nil t] 4] message "Yes" "No"] 4 (#$ . 3008) nil]) #@172 Whether tla|baz has a file-diff command. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-has-file-diff-command' instead. (defvar tla--autoconf-has-file-diff-command nil (#$ . 3664)) #@257 Whether tla|baz has a file-diff command. Returns 't or nil. If `tla--autoconf-has-file-diff-command' is non-nil, use its value. Otherwise, test if "file-diff" is listed by "tla|baz help", and memorize the result in `tla--autoconf-has-file-diff-command'. (defalias 'tla-has-file-diff-command #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310\311#t\203*\312 \203'\313\202(\314!\210 \2032\302\2023\304 )\207" [tla--autoconf-has-file-diff-command answer yes t no nil tla--run-tla-sync ("help") :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " file-diff :" nil t] 4] message "Yes" "No"] 4 (#$ . 3903) nil]) #@168 Whether tla|baz has a tree-id command. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-has-tree-id-command' instead. (defvar tla--autoconf-has-tree-id-command nil (#$ . 4594)) #@249 Whether tla|baz has a tree-id command. Returns 't or nil. If `tla--autoconf-has-tree-id-command' is non-nil, use its value. Otherwise, test if "tree-id" is listed by "tla|baz help", and memorize the result in `tla--autoconf-has-tree-id-command'. (defalias 'tla-has-tree-id-command #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310\311#t\203*\312 \203'\313\202(\314!\210 \2032\302\2023\304 )\207" [tla--autoconf-has-tree-id-command answer yes t no nil tla--run-tla-sync ("help") :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " tree-id :" nil t] 4] message "Yes" "No"] 4 (#$ . 4827) nil]) #@166 Whether tla|baz has a status command. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-has-status-command' instead. (defvar tla--autoconf-has-status-command nil (#$ . 5504)) #@245 Whether tla|baz has a status command. Returns 't or nil. If `tla--autoconf-has-status-command' is non-nil, use its value. Otherwise, test if "status" is listed by "tla|baz help", and memorize the result in `tla--autoconf-has-status-command'. (defalias 'tla-has-status-command #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310\311#t\203*\312 \203'\313\202(\314!\210 \2032\302\2023\304 )\207" [tla--autoconf-has-status-command answer yes t no nil tla--run-tla-sync ("help") :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " status :" nil t] 4] message "Yes" "No"] 4 (#$ . 5734) nil]) #@166 Whether tla|baz has a switch command. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-has-switch-command' instead. (defvar tla--autoconf-has-switch-command nil (#$ . 6404)) #@245 Whether tla|baz has a switch command. Returns 't or nil. If `tla--autoconf-has-switch-command' is non-nil, use its value. Otherwise, test if "switch" is listed by "tla|baz help", and memorize the result in `tla--autoconf-has-switch-command'. (defalias 'tla-has-switch-command #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310\311#t\203*\312 \203'\313\202(\314!\210 \2032\302\2023\304 )\207" [tla--autoconf-has-switch-command answer yes t no nil tla--run-tla-sync ("help") :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " switch :" nil t] 4] message "Yes" "No"] 4 (#$ . 6634) nil]) #@164 Whether tla|baz has a merge command. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-has-merge-command' instead. (defvar tla--autoconf-has-merge-command nil (#$ . 7304)) #@241 Whether tla|baz has a merge command. Returns 't or nil. If `tla--autoconf-has-merge-command' is non-nil, use its value. Otherwise, test if "merge" is listed by "tla|baz help", and memorize the result in `tla--autoconf-has-merge-command'. (defalias 'tla-has-merge-command #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310\311#t\203*\312 \203'\313\202(\314!\210 \2032\302\2023\304 )\207" [tla--autoconf-has-merge-command answer yes t no nil tla--run-tla-sync ("help") :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " merge :" nil t] 4] message "Yes" "No"] 4 (#$ . 7531) nil]) #@170 Whether tla|baz has a resolved command. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-has-resolved-command' instead. (defvar tla--autoconf-has-resolved-command nil (#$ . 8194)) #@253 Whether tla|baz has a resolved command. Returns 't or nil. If `tla--autoconf-has-resolved-command' is non-nil, use its value. Otherwise, test if "resolved" is listed by "tla|baz help", and memorize the result in `tla--autoconf-has-resolved-command'. (defalias 'tla-has-resolved-command #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310\311#t\203*\312 \203'\313\202(\314!\210 \2032\302\2023\304 )\207" [tla--autoconf-has-resolved-command answer yes t no nil tla--run-tla-sync ("help") :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " resolved :" nil t] 4] message "Yes" "No"] 4 (#$ . 8430) nil]) #@162 Whether tla|baz has a lint command. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-has-lint-command' instead. (defvar tla--autoconf-has-lint-command nil (#$ . 9114)) #@237 Whether tla|baz has a lint command. Returns 't or nil. If `tla--autoconf-has-lint-command' is non-nil, use its value. Otherwise, test if "lint" is listed by "tla|baz help", and memorize the result in `tla--autoconf-has-lint-command'. (defalias 'tla-has-lint-command #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310\311#t\203*\312 \203'\313\202(\314!\210 \2032\302\2023\304 )\207" [tla--autoconf-has-lint-command answer yes t no nil tla--run-tla-sync ("help") :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " lint :" nil t] 4] message "Yes" "No"] 4 (#$ . 9338) nil]) #@166 Whether tla|baz has a branch command. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-has-branch-command' instead. (defvar tla--autoconf-has-branch-command nil (#$ . 9994)) #@245 Whether tla|baz has a branch command. Returns 't or nil. If `tla--autoconf-has-branch-command' is non-nil, use its value. Otherwise, test if "branch" is listed by "tla|baz help", and memorize the result in `tla--autoconf-has-branch-command'. (defalias 'tla-has-branch-command #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310\311#t\203*\312 \203'\313\202(\314!\210 \2032\302\2023\304 )\207" [tla--autoconf-has-branch-command answer yes t no nil tla--run-tla-sync ("help") :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " branch :" nil t] 4] message "Yes" "No"] 4 (#$ . 10224) nil]) #@166 Whether tla|baz has a add-id command. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-has-add-id-command' instead. (defvar tla--autoconf-has-add-id-command nil (#$ . 10895)) #@245 Whether tla|baz has a add-id command. Returns 't or nil. If `tla--autoconf-has-add-id-command' is non-nil, use its value. Otherwise, test if "add-id" is listed by "tla|baz help", and memorize the result in `tla--autoconf-has-add-id-command'. (defalias 'tla-has-add-id-command #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310\311#t\203*\312 \203'\313\202(\314!\210 \2032\302\2023\304 )\207" [tla--autoconf-has-add-id-command answer yes t no nil tla--run-tla-sync ("help") :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " add-id :" nil t] 4] message "Yes" "No"] 4 (#$ . 11126) nil]) #@324 Create the autodetection function for the command CMDNAME. Checks if the command CMDNAME accepts the option OPTION. CMD may be a lisp expression that returns the actual command to execute (usefull for commands whose name is not the same for baz and tla. HELPSTRING is the string to search for in the output of CMD --help. (defalias 'tla--foo-has-bar-option '(macro . #[(cmdname cmd option helpstring) "\306\307\310 \311\260!\306\312\310 \311\260!\313\314 \315\316\317  %F\320\n\315\316\321  \211\211 & \322\323\324\325\326 \327BB\330B\326 \331BB\332B\333\334\335\f\336BB\337\340\341\342\343\344\345 \346BBFEFDFDC\347\350 \351BB\352BBBB\257E*\207" [cmdname option fun var cmd helpstring intern "tla--autoconf-" "-has-" "-option" "tla-" progn defvar nil format "Whether \"tla|baz %s\" needs the --%s option.\n\nPossible values are nil (don't know), 'yes, or 'no. Don't use this\nvariable directly. Use `tla-%s-has-%s-option' instead." defun "Whether \"tla|baz %s\" needs the --%s option.\n\nReturns 't or nil.\n\nIf `tla--autoconf-%s-has-%s-option' is non-nil, use its value. Otherwise, test\nif \"--%s\" is listed by \"tla %s --help\", and memorize the result in\n`tla--autoconf-%s-has-%s-option'." (interactive) let answer cond eq ('yes) (t) ('no) (nil) t tla--run-tla-sync list ("--help") :finished lambda (output error status arguments) with-current-buffer output (goto-char (point-min)) search-forward (nil t) (when (interactive-p) (message (if answer "Yes" "No"))) setq ((if answer 'yes 'no)) (answer)] 24 (#$ . 11797)])) #@178 Whether "tla|baz tag" needs the --setup option. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-tag-has-setup-option' instead. (defvar tla--autoconf-tag-has-setup-option nil (#$ . 13345)) #@262 Whether "tla|baz tag" needs the --setup option. Returns 't or nil. If `tla--autoconf-tag-has-setup-option' is non-nil, use its value. Otherwise, test if "--setup" is listed by "tla tag --help", and memorize the result in `tla--autoconf-tag-has-setup-option'. (defalias 'tla-tag-has-setup-option #[nil "\302=\203\n\303\202$\304=\203\305\202$\306\307 \203\310\202\311\312D\313\314#t\2035\315 \2032\316\2023\317!\210 \203=\302\202>\304 )\207" [tla--autoconf-tag-has-setup-option answer yes t no nil tla--run-tla-sync tla-has-branch-command "branch" "tag" "--help" :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " -S, --setup" nil t] 4] message "Yes" "No"] 4 (#$ . 13590) nil]) #@190 Whether "tla|baz merge" needs the --three-way option. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-merge-has-three-way-option' instead. (defvar tla--autoconf-merge-has-three-way-option nil (#$ . 14350)) #@286 Whether "tla|baz merge" needs the --three-way option. Returns 't or nil. If `tla--autoconf-merge-has-three-way-option' is non-nil, use its value. Otherwise, test if "--three-way" is listed by "tla merge --help", and memorize the result in `tla--autoconf-merge-has-three-way-option'. (defalias 'tla-merge-has-three-way-option #[nil "\302=\203\n\303\202$\304=\203\305\202$\306\307 \203\310\202\311\312D\313\314#t\2035\315 \2032\316\2023\317!\210 \203=\302\202>\304 )\207" [tla--autoconf-merge-has-three-way-option answer yes t no nil tla--run-tla-sync tla-has-merge-command "merge" "star-merge" "--help" :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " -t, --three-way" nil t] 4] message "Yes" "No"] 4 (#$ . 14613) nil]) #@198 Whether "tla|baz merge" needs the --show-ancestor option. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-merge-has-show-ancestor-option' instead. (defvar tla--autoconf-merge-has-show-ancestor-option nil (#$ . 15418)) #@302 Whether "tla|baz merge" needs the --show-ancestor option. Returns 't or nil. If `tla--autoconf-merge-has-show-ancestor-option' is non-nil, use its value. Otherwise, test if "--show-ancestor" is listed by "tla merge --help", and memorize the result in `tla--autoconf-merge-has-show-ancestor-option'. (defalias 'tla-merge-has-show-ancestor-option #[nil "\302=\203\n\303\202$\304=\203\305\202$\306\307 \203\310\202\311\312D\313\314#t\2035\315 \2032\316\2023\317!\210 \203=\302\202>\304 )\207" [tla--autoconf-merge-has-show-ancestor-option answer yes t no nil tla--run-tla-sync tla-has-merge-command "merge" "star-merge" "--help" :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " --show-ancestor" nil t] 4] message "Yes" "No"] 4 (#$ . 15693) nil]) #@200 Whether "tla|baz switch" needs the --show-ancestor option. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-switch-has-show-ancestor-option' instead. (defvar tla--autoconf-switch-has-show-ancestor-option nil (#$ . 16522)) #@306 Whether "tla|baz switch" needs the --show-ancestor option. Returns 't or nil. If `tla--autoconf-switch-has-show-ancestor-option' is non-nil, use its value. Otherwise, test if "--show-ancestor" is listed by "tla switch --help", and memorize the result in `tla--autoconf-switch-has-show-ancestor-option'. (defalias 'tla-switch-has-show-ancestor-option #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310D\311\312#t\203,\313 \203)\314\202*\315!\210 \2034\302\2025\304 )\207" [tla--autoconf-switch-has-show-ancestor-option answer yes t no nil tla--run-tla-sync "switch" "--help" :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " --show-ancestor" nil t] 4] message "Yes" "No"] 4 (#$ . 16800) nil]) #@186 Whether "tla|baz merge" needs the --two-way option. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-merge-has-two-way-option' instead. (defvar tla--autoconf-merge-has-two-way-option nil (#$ . 17580)) #@278 Whether "tla|baz merge" needs the --two-way option. Returns 't or nil. If `tla--autoconf-merge-has-two-way-option' is non-nil, use its value. Otherwise, test if "--two-way" is listed by "tla merge --help", and memorize the result in `tla--autoconf-merge-has-two-way-option'. (defalias 'tla-merge-has-two-way-option #[nil "\302=\203\n\303\202$\304=\203\305\202$\306\307 \203\310\202\311\312D\313\314#t\2035\315 \2032\316\2023\317!\210 \203=\302\202>\304 )\207" [tla--autoconf-merge-has-two-way-option answer yes t no nil tla--run-tla-sync tla-has-merge-command "merge" "star-merge" "--help" :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " --two-way" nil t] 4] message "Yes" "No"] 4 (#$ . 17837) nil]) #@184 Whether "tla|baz import" needs the --setup option. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-import-has-setup-option' instead. (defvar tla--autoconf-import-has-setup-option nil (#$ . 18624)) #@274 Whether "tla|baz import" needs the --setup option. Returns 't or nil. If `tla--autoconf-import-has-setup-option' is non-nil, use its value. Otherwise, test if "--setup" is listed by "tla import --help", and memorize the result in `tla--autoconf-import-has-setup-option'. (defalias 'tla-import-has-setup-option #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310D\311\312#t\203,\313 \203)\314\202*\315!\210 \2034\302\2025\304 )\207" [tla--autoconf-import-has-setup-option answer yes t no nil tla--run-tla-sync "import" "--help" :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " -S, --setup" nil t] 4] message "Yes" "No"] 4 (#$ . 18878) nil]) #@204 Whether "tla|baz archives" needs the --all-locations option. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-archives-has-all-locations-option' instead. (defvar tla--autoconf-archives-has-all-locations-option nil (#$ . 19605)) #@314 Whether "tla|baz archives" needs the --all-locations option. Returns 't or nil. If `tla--autoconf-archives-has-all-locations-option' is non-nil, use its value. Otherwise, test if "--all-locations" is listed by "tla archives --help", and memorize the result in `tla--autoconf-archives-has-all-locations-option'. (defalias 'tla-archives-has-all-locations-option #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310D\311\312#t\203,\313 \203)\314\202*\315!\210 \2034\302\2025\304 )\207" [tla--autoconf-archives-has-all-locations-option answer yes t no nil tla--run-tla-sync "archives" "--help" :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " --all-locations" nil t] 4] message "Yes" "No"] 4 (#$ . 19889) nil]) #@204 Whether "tla|baz inventory" needs the --no-recursion option. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-inventory-has-no-recursion-option' instead. (defvar tla--autoconf-inventory-has-no-recursion-option nil (#$ . 20683)) #@314 Whether "tla|baz inventory" needs the --no-recursion option. Returns 't or nil. If `tla--autoconf-inventory-has-no-recursion-option' is non-nil, use its value. Otherwise, test if "--no-recursion" is listed by "tla inventory --help", and memorize the result in `tla--autoconf-inventory-has-no-recursion-option'. (defalias 'tla-inventory-has-no-recursion-option #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310D\311\312#t\203,\313 \203)\314\202*\315!\210 \2034\302\2025\304 )\207" [tla--autoconf-inventory-has-no-recursion-option answer yes t no nil tla--run-tla-sync "inventory" "--help" :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " --no-recursion" nil t] 4] message "Yes" "No"] 4 (#$ . 20967) nil]) #@204 Whether "tla|baz revisions" needs the --complete-log option. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-revisions-has-complete-log-option' instead. (defvar tla--autoconf-revisions-has-complete-log-option nil (#$ . 21761)) #@314 Whether "tla|baz revisions" needs the --complete-log option. Returns 't or nil. If `tla--autoconf-revisions-has-complete-log-option' is non-nil, use its value. Otherwise, test if "--complete-log" is listed by "tla revisions --help", and memorize the result in `tla--autoconf-revisions-has-complete-log-option'. (defalias 'tla-revisions-has-complete-log-option #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310D\311\312#t\203,\313 \203)\314\202*\315!\210 \2034\302\2025\304 )\207" [tla--autoconf-revisions-has-complete-log-option answer yes t no nil tla--run-tla-sync "revisions" "--help" :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " -l, --complete-log" nil t] 4] message "Yes" "No"] 4 (#$ . 22045) nil]) #@184 Whether "tla|baz missing" needs the --full option. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-missing-has-full-option' instead. (defvar tla--autoconf-missing-has-full-option nil (#$ . 22843)) #@274 Whether "tla|baz missing" needs the --full option. Returns 't or nil. If `tla--autoconf-missing-has-full-option' is non-nil, use its value. Otherwise, test if "--full" is listed by "tla missing --help", and memorize the result in `tla--autoconf-missing-has-full-option'. (defalias 'tla-missing-has-full-option #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310D\311\312#t\203,\313 \203)\314\202*\315!\210 \2034\302\2025\304 )\207" [tla--autoconf-missing-has-full-option answer yes t no nil tla--run-tla-sync "missing" "--help" :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " -f, --full" nil t] 4] message "Yes" "No"] 4 (#$ . 23097) nil]) #@212 Whether "tla|baz archive-mirror" needs the --all-mirrors option. Possible values are nil (don't know), 'yes, or 'no. Don't use this variable directly. Use `tla-archive-mirror-has-all-mirrors-option' instead. (defvar tla--autoconf-archive-mirror-has-all-mirrors-option nil (#$ . 23825)) #@330 Whether "tla|baz archive-mirror" needs the --all-mirrors option. Returns 't or nil. If `tla--autoconf-archive-mirror-has-all-mirrors-option' is non-nil, use its value. Otherwise, test if "--all-mirrors" is listed by "tla archive-mirror --help", and memorize the result in `tla--autoconf-archive-mirror-has-all-mirrors-option'. (defalias 'tla-archive-mirror-has-all-mirrors-option #[nil "\302=\203\n\303\202\304=\203\305\202\306\307\310D\311\312#t\203,\313 \203)\314\202*\315!\210 \2034\302\2025\304 )\207" [tla--autoconf-archive-mirror-has-all-mirrors-option answer yes t no nil tla--run-tla-sync "archive-mirror" "--help" :finished #[(output error status arguments) "rq\210eb\210\301\302\303\304#)\207" [output search-forward " -a, --all-mirrors" nil t] 4] message "Yes" "No"] 4 (#$ . 24121) nil]) (defalias 'tla-use-baz-archive-registration 'tla-archive-mirror-has-all-mirrors-option) #@130 Forget the autodetected values about tla or baz capabilities. Reset all variable whose name start with "tla--autoconf-" to nil. (defalias 'tla-autoconf-reset #[nil "\302\303!\304\211\203 @\211\304L\210 A\211\204\n*\304\207" [var #1=#:--cl-dolist-temp-- apropos-internal "^tla--autoconf-" nil] 3 (#$ . 25035) nil]) #@128 Show the autodetected values about tla or baz capabilities. Reset all variable whose name start with "tla--autoconf-" to nil. (defalias 'tla-autoconf-show #[nil "\303\304\305!!\210\306 \210\307\310!\311\211\203K @\312!\313!\314\n\315=\203(\316\202?\n\317=\2032\320\202?\n\311=\203<\321\202?\322\323!\324\261\210) A\211\204*\311\207" [var #1=#:--cl-dolist-temp-- value dvc-switch-to-buffer get-buffer-create "*xtla-config*" erase-buffer apropos-internal "^tla--autoconf-" nil eval symbol-name ": " yes "Yes" no "No" "Don't know" error "incorrect value" "\n"] 5 (#$ . 25364) nil]) #@50 Autodetect values about tla or baz capabilities. (defalias 'tla-autoconf-compute #[nil "\305\306!\307\211\203& @\310!\311\306\312\n#\313 !\211 \210+ A\211\204\n*\307\207" [var #1=#:--cl-dolist-temp-- name func-name fn apropos-internal "^tla--autoconf-" nil symbol-name replace-regexp-in-string "tla-" intern] 5 (#$ . 25967) nil]) #@59 Autodetect and show values about tla or baz capabilities. (defalias 'tla-autoconf-show-compute #[nil "\300 \210\301 \207" [tla-autoconf-compute tla-autoconf-show] 1 (#$ . 26313) nil]) (provide 'tla-autoconf)