%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/cedet/ede/
Current File : //usr/local/share/emacs/27.2/lisp/cedet/ede/project-am.elc
;ELC
;;; Compiled
;;; in Emacs version 27.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!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312\313\314\313\302&\210\315\316\311\317\313\310\320\321&\210\315\322\323\317\313\310\320\324&\210\315\325\326\327\313\310\320\330&\207" [require make-mode ede ede/make ede/makefile-edit semantic/find ede/autoconf-edit custom-declare-group project-am nil "File and tag browser frame." :group tools custom-declare-variable project-am-compile-project-command "Default command used to compile a project." :type (choice (const nil) string) project-am-compile-target-command (concat ede-make-command " -k %s") string project-am-debug-target-function 'gdb "Default Emacs command used to debug a target." function] 8)
#@442 Alist of type names and the type of object to create for them.
Each entry is of the form:
  (EMACSNAME CLASS AUTOMAKEVAR INDIRECT)
where EMACSNAME is a name for Emacs to use.
CLASS is the EDE target class to represent the target.
AUTOMAKEVAR is the Automake variable to identify.  This cannot be a
   regular expression.
INDIRECT is optional.  If it is non-nil, then the variable in
question lists other variables that need to be looked up.
(defconst project-am-type-alist '(("bin" project-am-program "bin_PROGRAMS" t) ("sbin" project-am-program "sbin_PROGRAMS" t) ("noinstbin" project-am-program "noinst_PROGRAMS" t) ("checkbin" project-am-program "check_PROGRAMS" t) ("lib" project-am-lib "lib_LIBS" t) ("libraries" project-am-lib "lib_LIBRARIES" t) ("librariesnoinst" project-am-lib "noinst_LIBRARIES" t) ("pkglibraries" project-am-lib "pkglib_LIBRARIES" t) ("checklibs" project-am-lib "check_LIBRARIES" t) ("ltlibraries" project-am-lib "lib_LTLIBRARIES" t) ("ltlibrariesnoinst" project-am-lib "noinst_LTLIBRARIES" t) ("pkgltlibraries" project-am-lib "pkglib_LTLIBRARIES" t) ("checkltlibs" project-am-lib "check_LTLIBRARIES" t) ("headernoinst" project-am-header-noinst "noinst_HEADERS") ("headerinst" project-am-header-inst "include_HEADERS") ("headerpkg" project-am-header-pkg "pkginclude_HEADERS") ("headerpkg" project-am-header-chk "check_HEADERS") ("texinfo" project-am-texinfo "info_TEXINFOS" t) ("man" project-am-man "man_MANS") ("lisp" project-am-lisp "lisp_LISP") ("extrabin" project-am-program "EXTRA_PROGRAMS" t) ("builtsrcs" project-am-built-src "BUILT_SOURCES") ("extradist" project-am-extra-dist "EXTRA_DIST")) (#$ . 1127))
#@307 Alist of meta-target type, each entry has form:
     (CLASS REGEXPVAR INDIRECT)
where CLASS is the EDE target class for target.
REGEXPVAR is the regexp used in `semantic-find-tags-by-name-regexp'.
INDIRECT is optional. If it is non-nil, then the variable in it have
other meta-variable based on this name.
(defconst project-am-meta-type-alist '((project-am-program "_PROGRAMS$" t) (project-am-lib "_\\(LIBS\\|LIBRARIES\\|LTLIBRARIES\\)$" t) (project-am-man "_\\(DATA\\|HEADERS\\|PYTHON\\|JAVA\\|SCRIPTS\\|MANS\\|TEXINFOS\\)$" nil)) (#$ . 2774))
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-target-p eieio-make-class-predicate project-am-target project-am-target--eieio-childp eieio-make-child-predicate project-am-target-child-p make-obsolete "use (cl-typep ... \\='project-am-target) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-target) nil (:documentation "Base target class for everything in project-am.")] 6)
#@56 Create a new object of class type `project-am-target'.
(defalias 'project-am-target #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-target] 4 (#$ . 3850)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-target compiler-macro project-am-target--anon-cmacro] 4)
(defalias 'project-am-target--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-objectcode-p eieio-make-class-predicate project-am-objectcode project-am-objectcode--eieio-childp eieio-make-child-predicate project-am-objectcode-child-p make-obsolete "use (cl-typep ... \\='project-am-objectcode) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (project-am-target) ((source :initarg :source :documentation "List of source files.")) (:documentation "A target which creates object code, like a C program or library.")] 6)
#@60 Create a new object of class type `project-am-objectcode'.
(defalias 'project-am-objectcode #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-objectcode] 4 (#$ . 5010)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-objectcode compiler-macro project-am-objectcode--anon-cmacro] 4)
(defalias 'project-am-objectcode--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-program-p eieio-make-class-predicate project-am-program project-am-program--eieio-childp eieio-make-child-predicate project-am-program-child-p make-obsolete "use (cl-typep ... \\='project-am-program) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (project-am-objectcode) ((ldadd :initarg :ldadd :documentation "Additional LD args." :initform nil)) (:documentation "A top level program to build")] 6)
#@57 Create a new object of class type `project-am-program'.
(defalias 'project-am-program #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-program] 4 (#$ . 6157)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-program compiler-macro project-am-program--anon-cmacro] 4)
(defalias 'project-am-program--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-header-p eieio-make-class-predicate project-am-header project-am-header--eieio-childp eieio-make-child-predicate project-am-header-child-p make-obsolete "use (cl-typep ... \\='project-am-header) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (project-am-target) nil (:documentation "A group of misc source files, such as headers.")] 6)
#@56 Create a new object of class type `project-am-header'.
(defalias 'project-am-header #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-header] 4 (#$ . 7222)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-header compiler-macro project-am-header--anon-cmacro] 4)
(defalias 'project-am-header--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-header-noinst-p eieio-make-class-predicate project-am-header-noinst project-am-header-noinst--eieio-childp eieio-make-child-predicate project-am-header-noinst-child-p make-obsolete "use (cl-typep ... \\='project-am-header-noinst) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (project-am-header) nil (:documentation "A group of header files that are not installed.")] 6)
#@63 Create a new object of class type `project-am-header-noinst'.
(defalias 'project-am-header-noinst #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-header-noinst] 4 (#$ . 8317)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-header-noinst compiler-macro project-am-header-noinst--anon-cmacro] 4)
(defalias 'project-am-header-noinst--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-header-inst-p eieio-make-class-predicate project-am-header-inst project-am-header-inst--eieio-childp eieio-make-child-predicate project-am-header-inst-child-p make-obsolete "use (cl-typep ... \\='project-am-header-inst) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (project-am-header) nil (:documentation "A group of header files that are not installed.")] 6)
#@61 Create a new object of class type `project-am-header-inst'.
(defalias 'project-am-header-inst #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-header-inst] 4 (#$ . 9444)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-header-inst compiler-macro project-am-header-inst--anon-cmacro] 4)
(defalias 'project-am-header-inst--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-header-pkg-p eieio-make-class-predicate project-am-header-pkg project-am-header-pkg--eieio-childp eieio-make-child-predicate project-am-header-pkg-child-p make-obsolete "use (cl-typep ... \\='project-am-header-pkg) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (project-am-header) nil (:documentation "A group of header files that are not installed.")] 6)
#@60 Create a new object of class type `project-am-header-pkg'.
(defalias 'project-am-header-pkg #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-header-pkg] 4 (#$ . 10554)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-header-pkg compiler-macro project-am-header-pkg--anon-cmacro] 4)
(defalias 'project-am-header-pkg--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-header-chk-p eieio-make-class-predicate project-am-header-chk project-am-header-chk--eieio-childp eieio-make-child-predicate project-am-header-chk-child-p make-obsolete "use (cl-typep ... \\='project-am-header-chk) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (project-am-header) nil (:documentation "A group of header files that are not installed.")] 6)
#@60 Create a new object of class type `project-am-header-chk'.
(defalias 'project-am-header-chk #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-header-chk] 4 (#$ . 11659)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-header-chk compiler-macro project-am-header-chk--anon-cmacro] 4)
(defalias 'project-am-header-chk--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-lib-p eieio-make-class-predicate project-am-lib project-am-lib--eieio-childp eieio-make-child-predicate project-am-lib-child-p make-obsolete "use (cl-typep ... \\='project-am-lib) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (project-am-objectcode) nil (:documentation "A top level library to build")] 6)
#@53 Create a new object of class type `project-am-lib'.
(defalias 'project-am-lib #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-lib] 4 (#$ . 12714)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-lib compiler-macro project-am-lib--anon-cmacro] 4)
(defalias 'project-am-lib--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-lisp-p eieio-make-class-predicate project-am-lisp project-am-lisp--eieio-childp eieio-make-child-predicate project-am-lisp-child-p make-obsolete "use (cl-typep ... \\='project-am-lisp) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (project-am-target) nil (:documentation "A group of Emacs Lisp programs to byte compile.")] 6)
#@54 Create a new object of class type `project-am-lisp'.
(defalias 'project-am-lisp #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-lisp] 4 (#$ . 13747)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-lisp compiler-macro project-am-lisp--anon-cmacro] 4)
(defalias 'project-am-lisp--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-texinfo-p eieio-make-class-predicate project-am-texinfo project-am-texinfo--eieio-childp eieio-make-child-predicate project-am-texinfo-child-p make-obsolete "use (cl-typep ... \\='project-am-texinfo) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (project-am-target) ((include :initarg :include :initform nil :documentation "Additional texinfo included in this one.")) (:documentation "A top level texinfo file to build.")] 6)
#@57 Create a new object of class type `project-am-texinfo'.
(defalias 'project-am-texinfo #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-texinfo] 4 (#$ . 14886)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-texinfo compiler-macro project-am-texinfo--anon-cmacro] 4)
(defalias 'project-am-texinfo--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-man-p eieio-make-class-predicate project-am-man project-am-man--eieio-childp eieio-make-child-predicate project-am-man-child-p make-obsolete "use (cl-typep ... \\='project-am-man) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (project-am-target) nil (:documentation "A top level man file to build.")] 6)
#@53 Create a new object of class type `project-am-man'.
(defalias 'project-am-man #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-man] 4 (#$ . 15921)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-man compiler-macro project-am-man--anon-cmacro] 4)
(defalias 'project-am-man--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-built-src-p eieio-make-class-predicate project-am-built-src project-am-built-src--eieio-childp eieio-make-child-predicate project-am-built-src-child-p make-obsolete "use (cl-typep ... \\='project-am-built-src) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (project-am-target) nil (:documentation "A group of Emacs Lisp programs to byte compile.")] 6)
#@59 Create a new object of class type `project-am-built-src'.
(defalias 'project-am-built-src #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-built-src] 4 (#$ . 16979)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-built-src compiler-macro project-am-built-src--anon-cmacro] 4)
(defalias 'project-am-built-src--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-extra-dist-p eieio-make-class-predicate project-am-extra-dist project-am-extra-dist--eieio-childp eieio-make-child-predicate project-am-extra-dist-child-p make-obsolete "use (cl-typep ... \\='project-am-extra-dist) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (project-am-target) nil (:documentation "A group of Emacs Lisp programs to byte compile.")] 6)
#@60 Create a new object of class type `project-am-extra-dist'.
(defalias 'project-am-extra-dist #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-extra-dist] 4 (#$ . 18078)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-extra-dist compiler-macro project-am-extra-dist--anon-cmacro] 4)
(defalias 'project-am-extra-dist--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias project-am-makefile-p eieio-make-class-predicate project-am-makefile project-am-makefile--eieio-childp eieio-make-child-predicate project-am-makefile-child-p make-obsolete "use (cl-typep ... \\='project-am-makefile) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-project) ((targets :initarg :targets :initform nil :documentation "Top level targets in this makefile.") (configureoutputfiles :initform nil :documentation "List of files output from configure system.")) (:documentation "Encode one makefile.")] 6)
#@58 Create a new object of class type `project-am-makefile'.
(defalias 'project-am-makefile #[(&rest slots) "\301\302\303#\207" [slots apply make-instance project-am-makefile] 4 (#$ . 19331)])
(byte-code "\300\301\302\303#\300\207" [function-put project-am-makefile compiler-macro project-am-makefile--anon-cmacro] 4)
(defalias 'project-am-makefile--anon-cmacro #[(whole &rest slots) "@;\204	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\210\300\313\302\314\302\315%\210\300\316\302\317\302\320%\210\300\316\302\321\302\322%\210\300\323\302\324\302\325%\210\300\326\302\327\302\330%\210\300\331\302\332\302\333%\210\300\334\302\335\302\336%\207" [cl-generic-define-method project-add-file nil ((ot project-am-target)) #[(ot) "\203\n\306\307!\202#\310	!\211\204\306\311!\210\312\313\314\315\316\n\317\"\"\320\321$)\322\f!\323\315\316\n\317\"#\324\325 !\f\204B\326\327\325 !\"\330\f\331\"\203O\322\f!\202P\f%\332\316%\333\"!&r&\204k\334\316%\333\"!\202m&q\210\335\336\f!!\210\337 \210\340
\261\210\341\320!\210\342\f!\210\343 \210&\204\221\344p!\210+\f\211,\207" [ede-object default-directory amf target ot ofn error "Already associated w/ a target" project-am-load "No project file" completing-read "Target: " object-assoc-list name eieio-oref targets nil t ede-target-parent object-assoc file-name-nondirectory buffer-file-name project-new-target project-am-preferred-target-type obj-of-class-p ede-target get-file-buffer file find-file-noselect makefile-move-to-macro project-am-macro makefile-end-of-command " " makefile-fill-paragraph project-rescan save-buffer kill-buffer pf dbka] 8 "Add the current buffer into a project.\nOT is the object target.  DIR is the directory to start in."] project-remove-file ((ot project-am-target) fnnd) #[(ot fnnd) "\305\306\"\203
\307!\202\310\311	\312\"!r\n\204$\313\311	\312\"!\202%\nq\210\314\315!!\210\316\317\320\321!!P!\210\322\323\324\211\325\326%\210\327\325!\210\330!\210\331 \210\n\204R\332p!\210+\325\211\207" [ot pf dbka fnnd ede-object obj-of-class-p ede-target ede-target-parent get-file-buffer eieio-oref file find-file-noselect makefile-move-to-macro project-am-macro makefile-navigate-macro " *" regexp-quote ede-name replace-match #1="" t nil 0 makefile-fill-paragraph project-rescan save-buffer kill-buffer] 6 "Remove the current buffer from any project targets."] project-edit-file-target ((obj project-am-target)) #[(obj) "\301\302\303\"\304P!\210eb\210\305\306!!\210e`U\205\307\310!!\207" [obj find-file eieio-oref path "Makefile.am" makefile-move-to-macro project-am-macro re-search-forward ede-target-name] 4 "Edit the target associated w/ this file."] project-new-target ((proj project-am-makefile) &optional name type) #[(proj &optional name type) "\206\306\307\310\"	\206&\311\312\n\313\314\315\267\202$\316\202%\317\202%\320\202%\321%\322	\n\"\313\fA@\323\324\325-!%\211\204D\326\327\f\"\210\330
\331\"\203Q\332
!\202R
.\333\334.\335\"!/r/\204m\336\334.\335\"!\202o/q\210eb\210\337 \210`eU\203\203db\210\202\214\340 \210\341c\210\342u\210\343
!\203\230\344\343
!!\210eb\210\345\fAA@!\210`eU\203\301\3460\313\314#\203\272\342y\210\313\210\341c\210\344\fAA@!\210\347 \210\350\351
!\261\210\352 \210\3531!\210/?\205\334\354p!.\207" [name type project-am-type-alist major-mode ntype ot read-string "Name: " #1# completing-read "Type: " nil t #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (texinfo-mode 24 nroff-mode 28 emacs-lisp-mode 32)) "texinfo" "man" "lisp" "bin" assoc :name :path expand-file-name error "Error creating target object %S" obj-of-class-p ede-target ede-target-parent get-file-buffer eieio-oref file find-file-noselect makefile-next-dependency beginning-of-line "\n" -1 project-am-macro makefile-insert-macro makefile-move-to-macro re-search-forward makefile-end-of-command " " ede-target-name save-buffer project-rescan kill-buffer default-directory pf dbka makefile-macroassign-regex ede-object] 8 "Create a new target named NAME.\nArgument TYPE is the type of target to insert.  This is a string\nmatching something in `project-am-type-alist' or type class symbol.\nDespite the fact that this is a method, it depends on the current\nbuffer being in order to provide a smart default target type."] project-compile-project ((obj project-am-target) &optional command) #[(obj &optional command) "\306\307!\210\204\"	\204\n\204\f\203 \310\311	\312\211\313%\202!	\314
!\307!)\207" [command project-am-compile-project-command compile-command compilation-read-command current-prefix-arg default-directory require compile read-from-minibuffer "Project compile command: " nil (compile-history . 1) project-am-find-topmost-level] 6 "Compile the entire current project.\nArgument COMMAND is the command to use when compiling."] ((obj project-am-makefile) &optional command) #[(obj &optional command) "\306\307!\210\204\"	\204\n\204\f\203 \310\311	\312\211\313%\202!	\314
!\307!)\207" [command project-am-compile-project-command compile-command compilation-read-command current-prefix-arg default-directory require compile read-from-minibuffer "Project compile command: " nil (compile-history . 1) project-am-find-topmost-level] 6 "Compile the entire current project.\nArgument COMMAND is the command to use when compiling."] project-compile-target ((obj project-am-target) &optional command) #[(obj &optional command) "\306\307!\210\204\n	\n\2048\203)\310\311\f\203!\312
\313\f!\"\202\"
\314\211\315%\2027\f\2031\2027\312
\313\f!\"\307\n!\207" [project-am-compile-project-command compile-command command compilation-read-command ede-object project-am-compile-target-command require compile read-from-minibuffer "Project compile command: " format project-compile-target-command nil (compile-history . 1)] 6 "Compile the current target.\nArgument COMMAND is the command to use for compiling the target."] project-debug-target ((obj project-am-objectcode)) #[(obj) "\306\307!\310\311\"\312\313\216\314\315!\210q\210\n\316\317\320
!\321\322!Q\"
	!,\207" [obj cmd dd tb default-directory project-am-debug-target-function get-buffer-create " *padt*" eieio-oref path nil #[nil "\301!\207" [tb kill-buffer] 2] require ede/shell read-from-minibuffer "Run (like this): " symbol-name " " ede-target-name] 6 "Run the current project target in a debugger."] project-run-target ((obj project-am-objectcode)) #[(obj) "\305\306!\210\307\310!\311\312\"\313\314\216q\210\n\315\316\317\320!P\"\321	\",\207" [obj cmd dd tb default-directory require ede/shell get-buffer-create " *padt*" eieio-oref path nil #[nil "\301!\207" [tb kill-buffer] 2] read-from-minibuffer "Run (like this): " "./" ede-target-name ede-shell-run-something] 5 "Run the current project target in comint buffer."] project-make-dist ((this project-am-target)) #[(this) "\303\304!\210\204\n	\305\n\306P\"\207" [project-am-compile-project-command compile-command this require compile project-compile-project " dist"] 4 "Run the current project in the debugger."]] 6)
#@216 Read an automakefile DIRECTORY into our data structure.
If a given set of projects has already been loaded, then do nothing
but return the project for the directory given.
Optional ROOTPROJ is the root EDE project.
(defalias 'project-am-load #[(directory &optional rootproj) "\301!\207" [directory project-am-load-makefile] 2 (#$ . 26610)])
#@50 Find the topmost automakefile starting with DIR.
(defalias 'project-am-find-topmost-level #[(dir) "\302	\303P!\204\302	\304P!\204\302	\305P!\203%	\306\307	!!\202\310!)\207" [dir newdir file-exists-p "Makefile.am" "configure.ac" "configure.in" file-name-directory directory-file-name expand-file-name] 3 (#$ . 26958)])
#@151 Set the Makefile.am in DIR to be the current buffer.
Run FORMS while the makefile is current.
Kill the makefile if it was not loaded before the load.
(defalias 'project-am-with-makefile-current '(macro . #[(dir &rest forms) "\302\303\304\305ED\306B\307\310\311\312\313\314\315\316	\317\"BFFE\207" [dir forms let* fn expand-file-name "Makefile.am" ((fb nil) (kb (get-file-buffer fn))) if (not (file-exists-p fn)) nil save-excursion (if kb (setq fb kb) (let ((semantic-init-hook nil) (recentf-exclude '((lambda (f) t)))) (setq fb (find-file-noselect fn)))) (set-buffer fb) prog1 append ((if (not kb) (kill-buffer (current-buffer))))] 12 (#$ . 27295)]))
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [put project-am-with-makefile-current lisp-indent-function 1 add-hook edebug-setup-hook #[nil "\300\301\302\303#\207" [put project-am-with-makefile-current edebug-form-spec (form def-body)] 4]] 4)
#@264 Convert PATH into a project Makefile, and return its project object.
It does not check for existing project objects.  Use `project-am-load'.
Optional argument SUGGESTEDNAME will be the project name.
This is used when subprojects are made in named subdirectories.
(defalias 'project-am-load-makefile #[(path &optional suggestedname) "\306\307\"\310\311	!\312	!\205\256\212\203\202$\310\313\314	!*\nq\210\2038\315!\2038\202\245\316!!\"\205F\317\"!\211#\206U!@\206U\317	!$!A@\206_\320%\321!8&\322!8'\323$\324$\325%\326&\206}\327\330	&	(\331(\332\333	!#\210\331(\334'#\210\335\336!\210(\337(!\210(.\204\255\340p!\210)+\207" [path fn fb kb recentf-exclude semantic-init-hook expand-file-name "Makefile.am" nil get-file-buffer file-exists-p ((lambda (f) t)) find-file-noselect project-am-makefile-p project-am-package-info project-am-last-dir "0.0" 2 3 project-am-makefile :name :version :mailinglist "" :file eieio-oset directory file-name-directory configureoutputfiles make-local-variable ede-object project-rescan kill-buffer pi suggestedname sfn pn ver bug cof ampf] 11 (#$ . 28204)])
(cl-generic-define-method 'project-targets-for-file nil '((proj project-am-makefile)) nil #[(proj) "\301\302\"\207" [proj eieio-oref targets] 3 "Return a list of targets the project PROJ."])
#@136 Scan the current Makefile.am for targets.
CURRPROJ is the current project being scanned.
DIR is the directory to apply to new targets.
(defalias 'project-am-scan-for-targets #[(currproj dir) "\306\307\"\310\211\311\312\f\"\210\311\313
\"\210\n+\207" [currproj otargets ntargets tmp project-am-type-alist project-am-meta-type-alist eieio-oref targets nil mapc #[(typecar) "\3068A@\3078	\203\310\311\312!\"\202D\312!\211\205C\313\314
#\211\2046\n\315\316%\317!\210B\211)+\207" [typecar indirect class macro files otargets 2 3 mapc #[(lstcar) "\306\307	#\211\204\310\311\f%\312\n!\210\n
B\211\207" [lstcar otargets tmp class dir ntargets object-assoc name :name :path project-rescan] 7] makefile-macro-file-list object-assoc name :name :path project-rescan tmp dir ntargets] 7] #[(typecar) "@A@\3068	\203\251\307\310\311
\312\211\313 !\311\211\203C@\211A@)\314=\203:@BA\211\204$\237*!\311\211\203p\315\n@\211@)\"\203g@BA\211\204Q\237+\311\211\203\241@\316\317\"A@\203\230\320\316\317\"A@\237\f\"A\211\204}*\f\237)\"\202Y
\312\211\313 !\311\211\203\331@\211A@)\314=\203\320@BA\211\204\272\237*!\311\211\203\315\n@\211@)\"\203\375@BA\211\204\347\237+\311\211\205X@\321@\322#\211\204N\321@\322#\211\204B@\323@\324 %\325!\210BA\211\204\311*+\207" [typecar indirect metaregex class atargets semantic-case-fold 2 mapc #[(lstcar) "\306\307	#?\205$\306\307\n#\211\204\f\310\311
%\312!\210	B\211\207" [lstcar ntargets otargets tmp class dir object-assoc name :name :path project-rescan] 6] nil semantic-something-to-tag-table semantic-fetch-tags variable string-match assoc :default-value append object-assoc name :name :path project-rescan case-fold-search result tags tag TAG --dolist-tail-- T ntargets tmp otargets dir] 7]] 4 (#$ . 29544)])
#@101 Store in PLACE the SUBDIRS expanded from variables.
Strip out duplicates, and recurse on variables.
(defalias 'project-am-expand-subdirlist #[(place subdirs) "\301\302\"\207" [subdirs mapc #[(sp) "\303!\211\203\304\n\305	!\"\202\nJ\235?\205\n\nJBL)\207" [sp var place makefile-extract-varname-from-text project-am-expand-subdirlist makefile-macro-file-list] 5]] 3 (#$ . 31510)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\301\302\307\302\310%\210\300\301\302\311\302\312%\210\300\301\302\313\302\314%\210\300\301\302\315\302\316%\210\300\301\302\317\302\320%\210\300\301\302\321\302\322%\210\300\301\302\323\302\324%\210\300\325\302\326\302\327%\210\300\325\302\330\302\331%\210\300\325\302\332\302\333%\210\300\325\302\334\302\335%\210\300\325\302\336\302\337%\210\300\325\302\340\302\341%\210\300\325\302\342\302\343%\210\300\325\302\344\302\345%\207" [cl-generic-define-method project-rescan nil ((this project-am-makefile) &optional suggestedname) #[(this &optional suggestedname) "\306\307\310\311\312\"!\"\313\314	!\315	!\205\352\212\203 \202)\313\316\317	!*\nq\210\320\311\321\"!\211(@)(A@*\322(8+\323(8,\311\324\"-\325\326\327!\326\330!\".\313\211$/\3060!1\3132\3311\"34\203\201\332\333\3344!#\210\202\304)\203\304\335\311\321\"!\335\336\311\321\"!!\230\203\304\332\333)#\203\304*\203\304\332\337*#\203\304+\203\304\332\340+#\203\304\332\341,#\210\332\3423\237#\210\343\344.\"\210\345\346$\237\"\210\332\324/#.\f\204\351\347p!\210)+\207" [this fn fb kb recentf-exclude semantic-init-hook expand-file-name "Makefile.am" file-name-directory eieio-oref file nil get-file-buffer file-exists-p ((lambda (f) t)) find-file-noselect project-am-package-info directory 2 3 subproj append makefile-macro-file-list "DIST_SUBDIRS" "SUBDIRS" project-am-scan-for-targets eieio-oset name project-am-last-dir directory-file-name project-am-find-topmost-level version mailinglist configureoutputfiles targets project-am-expand-subdirlist csubprojexpanded mapc #[(sp) "\306\307\310\311	\312\"!\"!\307\313\n\"\211\311	\312\"\230?\205L\314\312\f#\211\2047\31511\316\n\211\"0\2023\210\317\202A\203A\320
\n\"\210
\205L
B\211*\207" [sp this subdir submake osubproj tmp file-name-as-directory expand-file-name file-name-directory eieio-oref file "Makefile.am" object-assoc (error) project-am-load-makefile nil project-rescan ede-deep-rescan nsubproj] 8] kill-buffer pi pn pv bug cof osubproj csubproj nsubproj default-directory dir tmp ntargets suggestedname] 7 "Rescan the makefile for all targets and sub targets."] ((this project-am-program)) #[(this) "\301\302\303\304!!#\210\305\302\"\204\301\302\305\306\"\307PC#\210\301\310\303\305\306\"\311P!#\207" [this eieio-oset source makefile-macro-file-list project-am-macro eieio-oref name ".c" ldadd "_LDADD"] 7 "Rescan object THIS."] ((this project-am-lib)) #[(this) "\301\302\303\304!!#\210\305\302\"?\205\301\302\306\305\307\"!\310PC#\207" [this eieio-oset source makefile-macro-file-list project-am-macro eieio-oref file-name-sans-extension name ".c"] 7 "Rescan object THIS."] ((this project-am-texinfo)) #[(this) "\301\302\303\304!!#\207" [this eieio-oset include makefile-macro-file-list project-am-macro] 6 "Rescan object THIS."] ((this project-am-man)) #[(this) "\301\302\303\304!!#\207" [this eieio-oset source makefile-macro-file-list project-am-macro] 6 "Rescan object THIS."] ((this project-am-lisp)) #[(this) "\301\302\303\304!!#\207" [this eieio-oset source makefile-macro-file-list project-am-macro] 6 "Rescan the lisp sources."] ((this project-am-header)) #[(this) "\301\302\303\304!!#\207" [this eieio-oset source makefile-macro-file-list project-am-macro] 6 "Rescan the Header sources for object THIS."] ((this project-am-built-src)) #[(this) "\301\302\303\304!#\207" [this eieio-oset source makefile-macro-file-list "BUILT_SOURCES"] 5 "Rescan built sources for object THIS."] ((this project-am-extra-dist)) #[(this) "\301\302\303\304!#\207" [this eieio-oset source makefile-macro-file-list "EXTRA_DIST"] 5 "Rescan object THIS."] project-am-macro ((this project-am-objectcode)) #[(this) "\301\302\303\304\305\"#\306P\207" [this subst-char-in-string 45 95 eieio-oref name "_SOURCES"] 6 "Return the default macro to `edit' for this object type."] ((this project-am-header-noinst)) #[(this) "\300\207" ["noinst_HEADERS"] 1 "Return the default macro to `edit' for this object."] ((this project-am-header-inst)) #[(this) "\300\207" ["include_HEADERS"] 1 "Return the default macro to `edit' for this object."] ((this project-am-header-pkg)) #[(this) "\300\207" ["pkginclude_HEADERS"] 1 "Return the default macro to `edit' for this object."] ((this project-am-header-chk)) #[(this) "\300\207" ["check_HEADERS"] 1 "Return the default macro to `edit' for this object."] ((this project-am-texinfo)) #[(this) "\301\302\303\"!\304P\207" [this file-name-sans-extension eieio-oref name "_TEXINFOS"] 4 "Return the default macro to `edit' for this object type."] ((this project-am-man)) #[(this) "\301\302\"\207" [this eieio-oref name] 3 "Return the default macro to `edit' for this object type."] ((this project-am-lisp)) #[(this) "\300\207" ["lisp_LISP"] 1 "Return the default macro to `edit' for this object."]] 6)
#@106 Return an object starting with AMF associated with BUFFER.
nil means that this buffer belongs to no-one.
(defalias 'project-am-buffer-object #[(amf buffer) "\205J\305	\"\203
\207\306\307\"\306\310\"\311\211\2033\n\2043\305\f@	\"\203,\f@\fA\211\204\203H\n\204H\312@	\"A\211\2047\n+\207" [amf buffer obj sobj targ ede-buffer-mine eieio-oref targets subproj nil project-am-buffer-object] 5 (#$ . 36827)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\301\302\307\302\310%\210\300\301\302\311\302\312%\210\300\301\302\313\302\314%\210\300\315\302\316\302\317%\210\300\320\302\321\302\322%\210\300\320\302\323\302\324%\210\300\320\302\325\302\326%\207" [cl-generic-define-method ede-buffer-mine nil ((this project-am-makefile) buffer) #[(this buffer) "\306\307!!\310\n\311\"	\230\206K\312\313	\"\206K\312\314	\"\206K\312\315	\"\206K\316\310\n\317\"\316\211\203H
@\312\320\f!\321P	\"\203A\322
A\211\2041*))\207" [buffer efn this ans f --dolist-tail-- expand-file-name buffer-file-name eieio-oref file string-match "/configure\\.ac$" "/configure\\.in$" "/configure$" nil configureoutputfiles regexp-quote "$" t] 4 "Return t if object THIS lays claim to the file in BUFFER."] ((this project-am-objectcode) buffer) #[(this buffer) "\302\303!\304	\305\"\"\304	\306\"\235\207" [buffer this file-relative-name buffer-file-name eieio-oref path source] 5 "Return t if object THIS lays claim to the file in BUFFER."] ((this project-am-texinfo) buffer) #[(this buffer) "\303\304!\305	\306\"\"\305	\307\"\n\230\206\n\305	\310\"\235)\207" [buffer this bfn file-relative-name buffer-file-name eieio-oref path name include] 5 "Return t if object THIS lays claim to the file in BUFFER."] ((this project-am-man) buffer) #[(this buffer) "\302\303\"\304\305	!\302\306\"\"\230\207" [this buffer eieio-oref name file-relative-name buffer-file-name path] 6 "Return t if object THIS lays claim to the file in BUFFER."] ((this project-am-lisp) buffer) #[(this buffer) "\302\303!\304	\305\"\"\304	\306\"\235\207" [buffer this file-relative-name buffer-file-name eieio-oref path source] 5 "Return t if object THIS lays claim to the file in BUFFER."] project-am-subtree ((ampf project-am-makefile) subdir) #[(ampf subdir) "\302\303!\304\305	\306\"#\207" [subdir ampf object-assoc expand-file-name file eieio-oref subproj] 6 "Return the sub project in AMPF specified by SUBDIR."] project-compile-target-command ((this project-am-target)) #[(this) "\300\207" [""] 1 "Default target to use when compiling a given target."] ((this project-am-objectcode)) #[(this) "\301\302\"\207" [this eieio-oref name] 3 "Default target to use when compiling an object code target."] ((this project-am-texinfo)) #[(this) "\302\303\"\304\305	\"\203\306\307\310\211	$	)\207" [this n eieio-oref name string-match "\\.texi?\\(nfo\\)?" replace-match ".info" t] 5 "Default target t- use when compiling a texinfo file."]] 6)
#@109 Return the last part of a directory name.
Argument FILE is the file to extract the end directory name from.
(defalias 'project-am-last-dir #[(file) "\303!\304	!\305\n!*\207" [file s d file-name-directory directory-file-name file-name-nondirectory] 2 (#$ . 39786)])
#@52 For FILE, return the preferred type for that file.
(defalias 'project-am-preferred-target-type #[(file) "\301\302\"\203	\303\207\301\304\"\203\305\207\301\306\"\203\307\207\310\207" [file string-match "\\.texi?\\(nfo\\)$" project-am-texinfo "\\.[0-9]$" project-am-man "\\.el$" project-am-lisp project-am-program] 3 (#$ . 40060)])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\207" [cl-generic-define-method ede-buffer-header-file nil ((this project-am-objectcode) buffer) t #[(#1=#:cl--cnm this buffer) " \206(\304	\305\"\306\211\203&\n\204&\307\310@\"\203@A\211\204\n*\207" [#1# this found s eieio-oref source nil string-match "\\.\\(h\\|H\\|hh\\|hpp\\)"] 4 "There are no default header files."] ede-documentation ((this project-am-texinfo)) #[(this) "\305\306\307\"\306\310\"\"\311!\306\n\312\"\313	\203)\314	@\"\fB	A\211\204\f,\207" [this src proj dir out append eieio-oref source include ede-target-parent directory nil expand-file-name] 6 "Return a list of files that provides documentation.\nDocumentation is not for object THIS, but is provided by THIS for other\nfiles in the project."]] 6)
#@63 List of possible configure files to look in for project info.
(defvar project-am-autoconf-file-options '("configure.ac" "configure.in") (#$ . 41222))
#@53 Return the name of the autoconf file to use in DIR.
(defalias 'project-am-autoconf-file #[(dir) "\305	\305\211\203\"@\306\307\n\f\"!\203\307\n\f\"A\211\204\n*)\207" [ans project-am-autoconf-file-options L --dolist-tail-- dir nil file-exists-p expand-file-name] 5 (#$ . 41378)])
#@166 Set the Configure FILE in the top most directory above DIR as current.
Run FORMS in the configure file.
Kill the Configure buffer if it was not already in a buffer.
(defalias 'project-am-with-config-current '(macro . #[(file &rest forms) "\302\303\304\305DDC\306\307\310D\311\312	\313\"B\257D\207" [file forms save-excursion let fb generate-new-buffer (set-buffer fb) (erase-buffer) insert-file-contents prog1 append ((kill-buffer fb))] 10 (#$ . 41676)]))
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [put project-am-with-config-current lisp-indent-function 1 add-hook edebug-setup-hook #[nil "\300\301\302\303#\207" [put project-am-with-config-current edebug-form-spec (form def-body)] 4]] 4)
#@66 Extract the value of the shell variable VAR from a shell script.
(defalias 'project-am-extract-shell-variable '(macro . #[(var) "\212eb\210\301\302\303!\304Q\305\306#\205\307`\310 \")\207" [var re-search-forward "^" regexp-quote "\\s-*=\\s-*" nil t buffer-substring-no-properties point-at-eol] 4 (#$ . 42387)]))
#@52 Extract the package information for directory DIR.
(defalias 'project-am-extract-package-info #[(dir) "\306!\307\310\"\311\312!!\313\314\211\211\203\235\212\315!\211q\210\316 \210\317!\210\320\321!\320\322!\320\323!\320\324! \211!G\325V\203X!@!A@\326!8\202n G\325V\203n @ A@\326 8\203z@C\202|\211\"G\325V\203\213\"\202\223\327\"@\330\331#-\332!\210*\202\275\333
!\203\275\212\315
!\211q\210\316 \210\317
!\210\314\211\332!\210*\f\n	F.\207" [dir configfiles bugrep ver name conf-sh project-am-autoconf-file expand-file-name "configure" file-name-nondirectory directory-file-name "1.0" nil generate-new-buffer erase-buffer insert-file-contents autoconf-parameters-for-macro "AC_INIT" "AM_INIT_AUTOMAKE" "AC_CONFIG_FILES" "AC_OUTPUT" 1 2 split-string "\\s-" t kill-buffer file-exists-p conf-in fb aco acf aia aci outfiles] 7 (#$ . 42708)])
#@133 Get the package information for directory topmost project dir over DIR.
Calculates the info with `project-am-extract-package-info'.
(defalias 'project-am-package-info #[(dir) "\302 \211\203\f\303\304\"\305	!)\207" [top dir ede-toplevel eieio-oref directory project-am-extract-package-info] 4 (#$ . 43618)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\307\310!\207" [cl-generic-define-method ede-system-include-path nil ((this project-am-makefile)) #[(this) "\301\300!\205\207" [project-am-localvars-include-path boundp] 2 "Return `project-am-localvars-include-path', usually local variable\nper file or in .dir-locals.el or similar."] ((this project-am-target)) #[(this) "\301\300!\205\207" [project-am-localvars-include-path boundp] 2 "Return `project-am-localvars-include-path', usually local variable\nper file or in .dir-locals.el or similar."] provide ede/project-am] 6)
Zerion Mini Shell 1.0