;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; 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\203Vh\325U\204Yh\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\247h\325U\204\252h\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)