Current File : //usr/local/share/emacs/27.2/lisp/cedet/ede/proj-info.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\302\303\304\305!\"\210\302\306\307\305!\"\210\302\310\306\"\210\311\310\312\313#\210\314\305\315\306#\316\305\317\320\321$\207" [require ede/pmake defalias ede-proj-target-makefile-info-p eieio-make-class-predicate ede-proj-target-makefile-info ede-proj-target-makefile-info--eieio-childp eieio-make-child-predicate ede-proj-target-makefile-info-child-p make-obsolete "use (cl-typep ... \\='ede-proj-target-makefile-info) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-proj-target-makefile) ((menu :initform nil) (keybindings :initform nil) (availablecompilers :initform '(ede-makeinfo-compiler ede-texi2html-compiler)) (sourcetype :initform '(ede-makeinfo-source)) (mainmenu :initarg :mainmenu :initform "" :type string :custom string :documentation "The main menu resides in this file.\nAll other sources should be included independently.")) (:documentation "Target for a single info file.")] 6)
#@68 Create a new object of class type `ede-proj-target-makefile-info'.
(defalias 'ede-proj-target-makefile-info #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-proj-target-makefile-info] 4 (#$ . 1370)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-proj-target-makefile-info compiler-macro ede-proj-target-makefile-info--anon-cmacro] 4)
(defalias 'ede-proj-target-makefile-info--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])
#@33 Texinfo source code definition.
(defvar ede-makeinfo-source (ede-sourcecode :name "Texinfo" :sourcepattern "\\.texi?$" :garbagepattern '("*.info*" "*.html")) (#$ . 1970))
#@40 Compile texinfo files into info files.
(defvar ede-makeinfo-compiler (ede-compiler :name "makeinfo" :variables '(("MAKEINFO" . "makeinfo")) :commands '("$(MAKEINFO) $<") :autoconf '(("AC_CHECK_PROG" . "MAKEINFO, makeinfo")) :sourcetype '(ede-makeinfo-source)) (#$ . 2147))
#@40 Compile texinfo files into html files.
(defvar ede-texi2html-compiler (ede-compiler :name "texi2html" :variables '(("TEXI2HTML" . "makeinfo -html")) :commands '("makeinfo -o $@ $<") :sourcetype '(ede-makeinfo-source)) (#$ . 2426))
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\312\313%\207" [cl-generic-define-method ede-proj-configure-add-missing nil ((this ede-proj-target-makefile-info)) #[(this) "\300\301 \302\"?\207" [ede-expand-filename ede-toplevel "texinfo.tex"] 3 "Query if any files needed by THIS provided by automake are missing.\nResults in --add-missing being passed to automake."] ede-proj-makefile-sourcevar ((this ede-proj-target-makefile-info)) #[(this) "\303 \302\"\304\305\n\"\203 \306\307\310\311\n$\202 \n*\312P\207" [this obj name eieio-oref string-match "\\." replace-match "_" nil t "_TEXINFOS"] 5 "Return the variable name for THIS's sources."] ede-proj-makefile-insert-source-variables ((this ede-proj-target-makefile-info) &optional moresource) t #[(#1=#:cl--cnm this &optional moresource) "\306 \204 \207\307 !\310\311 \312\"!\311 \304\"\206 @ \313\f \"\314\315 \212db\210\316\317
\320Q\321\314#)\203_ \322\225b\210\323 \210i\324W\203V h\325U\204Y h\326U\204Y \327c\210\202Y \330c\210\321 \202d
\331\261\210\fc\210 \203o \332c\210db\210*\314\n \212db\210\316\317
\320Q\321\314#)\203\260 \322\225b\210\323 \210i\324W\203\247 h\325U\204\252 h\326U\204\252 \327c\210\202\252 \330c\210\321 \202\265
\331\261\210\333\334 \327#c\210 \203\304 \332c\210db\210* \205\320 \335\336!+\207" [#1# this sv src menu v ede-proj-automake-p ede-proj-makefile-sourcevar copy-sequence eieio-oref source delq t "info_TEXINFOS" re-search-backward "^" "\\s-*=" nil 0 ede-pmake-end-of-variable 40 61 32 " " "\\\n " "=" "\n" mapconcat identity error "Texinfo files should not have moresource" addcr moresource] 4 "Insert the source variables needed by THIS info target.\nOptional argument MORESOURCE is a list of additional sources to add to the\nsources variable.\nDoes the usual for Makefile mode, but splits source into two variables\nwhen working in Automake mode."]] 6)
#@57 Find the info filename produced by SOURCE texinfo file.
(defalias 'ede-makeinfo-find-info-filename #[(source) "\304!\304!\206 \305\306\307#\306r\nq\210\212eb\210\310\311\306\307#\203& \312\313!*\n =\2041 \314\n!\210 +\207" [source info buffer opened get-file-buffer find-file-noselect nil t re-search-forward "^@setfilename\\s-+\\([^.]+\\).info$" match-string 1 kill-buffer] 5 (#$ . 4581)])
(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\315\316%\210\300\317\302\320\302\321%\210\322\323!\207" [cl-generic-define-method ede-proj-makefile-target-name nil ((this ede-proj-target-makefile-info)) #[(this) "\303\304\"\305\230\204 \303\304\"\202 \303\301\"@\306 !\211\206! \307 !\310P*\207" [this source info eieio-oref mainmenu #2="" ede-makeinfo-find-info-filename file-name-sans-extension ".info"] 4 "Return the name of the main target for THIS target."] ede-proj-makefile-insert-dist-dependencies ((this ede-proj-target-makefile-info)) #[(this) "\301\302!\261\207" [this " " ede-proj-makefile-target-name] 3 "Insert any symbols that the DIST rule should depend on.\nTexinfo files want to insert generated `.info' files.\nArgument THIS is the target which needs to insert an info file."] ede-proj-makefile-insert-dist-filepatterns ((this ede-proj-target-makefile-info)) #[(this) "\301\302!\303\261\207" [this " " ede-proj-makefile-target-name "*"] 3 "Insert any symbols that the DIST rule should depend on.\nTexinfo files want to insert generated `.info' files.\nArgument THIS is the target which needs to insert an info file."] object-write ((this ede-proj-target-makefile-info)) t #[(#1=#:cl--cnm this) "\305\306\"\305\307\"\310\211\311\230\204* \203* \n@\230\204* \312 \n\"B\313\307 #\210+\f \207" [this nl s mm #1# eieio-oref mainmenu source nil #2# delq eieio-oset] 5 "Before committing any change to THIS, make sure the mainmenu is first."] ede-documentation ((this ede-proj-target-makefile-info)) #[(this) "\305\306\"\307!\305\n\310\"\311 \203# \312 @ \"\fB A\211\204 \f,\207" [this src proj dir out eieio-oref source ede-target-parent directory nil expand-file-name] 4 "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."] provide ede/proj-info] 6)
Mini Shell