WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/ede
Viewing File: /usr/share/emacs/24.3/lisp/cedet/ede/proj-comp.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:37 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/ede/proj-comp.el
;;; in Emacs version 24.3.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\300\302!\210\303\304\305\306\307$\210\303\310\311\312\313$\210\303\314\315\316\317$\210\303\320\316\321\322$\207" [require ede ede/autoconf-edit eieio-defclass ede-compilation-program (eieio-instance-inheritor) ((name :initarg :name :type string :custom string :documentation "Name of this type of compiler.") (variables :initarg :variables :type list :custom (repeat (cons (string :tag "Variable") (string :tag "Value"))) :documentation "Variables needed in the Makefile for this compiler.\nAn assoc list where each element is (VARNAME . VALUE) where VARNAME\nis a string, and VALUE is either a string, or a list of strings.\nFor example, GCC would define CC=gcc, and emacs would define EMACS=emacs.") (sourcetype :initarg :sourcetype :type list :documentation "A list of `ede-sourcecode' objects this class will handle.\nThis is used to match target objects with the compilers and linkers\nthey can use, and which files this object is interested in." :accessor ede-object-sourcecode) (rules :initarg :rules :initform nil :type list :custom (repeat (object :objecttype ede-makefile-rule)) :documentation "Auxiliary rules needed for this compiler to run.\nFor example, yacc/lex files need additional chain rules, or inferences.") (commands :initarg :commands :type list :custom (repeat string) :documentation "The commands used to execute this compiler.\nThe object which uses this compiler will place these commands after\nits rule definition.") (autoconf :initarg :autoconf :initform nil :type list :custom (repeat string) :documentation "Autoconf function to call if this type of compiler is used.\nWhen a project is in Automake mode, this defines the autoconf function to\ncall to initialize automake to use this compiler.\nFor example, there may be multiple C compilers, but they all probably\nuse the same autoconf form.") (objectextention :initarg :objectextention :type string :documentation "A string which is the extension used for object files.\nFor example, C code uses .o on Unix, and Emacs Lisp uses .elc.")) ("A program used to compile or link a program via a Makefile.\nContains everything needed to output code into a Makefile, or autoconf\nfile.") ede-compiler (ede-compilation-program) ((makedepends :initarg :makedepends :initform nil :type boolean :documentation "Non-nil if this compiler can make dependencies.") (uselinker :initarg :uselinker :initform nil :type boolean :documentation "Non-nil if this compiler creates code that can be linked.\nThis requires that the containing target also define a list of available\nlinkers that can be used.")) ("Definition for a compiler.\nDifferent types of objects will provide different compilers for\ndifferent situations.") ede-linker (ede-compilation-program) nil ("Contains information needed to link many generated object files together.") ede-makefile-rule ((target :initarg :target :initform #1="" :type string :custom string :documentation "The target pattern.\nA pattern of \"%.o\" is used for inference rules, and would match object files.\nA target of \"foo.o\" explicitly matches the file foo.o.") (dependencies :initarg :dependencies :initform #1# :type string :custom string :documentation "Dependencies on this target.\nA pattern of \"%.o\" would match a file of the same prefix as the target\nif that target is also an inference rule pattern.\nA dependency of \"foo.c\" explicitly lists foo.c as a dependency.\nA variable such as $(name_SOURCES) will list all the source files\nbelonging to the target name.") (rules :initarg :rules :initform nil :type list :custom (repeat string) :documentation "Scripts to execute.\nThese scripts will be executed in sh (Unless the SHELL variable is overridden).\nDo not prefix with TAB.\nEach individual element of this list can be either a string, or\na lambda function.  (The custom element does not yet express that.") (phony :initarg :phony :initform nil :type boolean :custom boolean :documentation "Is this a phony rule?\nAdds this rule to a .PHONY list.")) ("A single rule for building some target.")] 5)
#@39 The master list of all EDE compilers.
(defvar ede-compiler-list nil (#$ . 4618))
#@39 The master list of all EDE compilers.
(defvar ede-linker-list nil (#$ . 4705))
#@170 List of EDE compilers that have already inserted parts of themselves.
This is used when creating a Makefile to prevent duplicate variables and
rules from being created.
(defvar ede-current-build-list nil (#$ . 4791))
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\301\302\301\310\"\"\210\304\301\305\311\312$\207" [eieio--defalias initialize-instance eieio--defgeneric-init-form #1="Make sure that all ede compiler objects are cached in\n`ede-compiler-list'." eieio--defmethod :AFTER ede-compiler #[(this &rest fields) "\301\302\"\207" [this add-to-list ede-compiler-list] 3 #1#] #2="Make sure that all ede compiler objects are cached in\n`ede-linker-list'." ede-linker #[(this &rest fields) "\301\302\"\207" [this add-to-list ede-linker-list] 3 #2#]] 5)
#@140 Execute BODY, making sure that `ede-current-build-list' is maintained.
This will prevent rules from creating duplicate variables or rules.
(defalias 'ede-compiler-begin-unique '(macro . #[(&rest body) "\301\302BB\207" [body let ((ede-current-build-list nil))] 3 (#$ . 5578)]))
#@63 Using OBJECT, execute BODY only once per Makefile generation.
(defalias 'ede-compiler-only-once '(macro . #[(object &rest body) "\302\303\304\305BBD\306\307\310E	BBE\207" [object body if not member (ede-current-build-list) progn add-to-list 'ede-current-build-list] 6 (#$ . 5862)]))
#@140 Execute BODY, making sure that `ede-current-build-list' is maintained.
This will prevent rules from creating duplicate variables or rules.
(defalias 'ede-linker-begin-unique '(macro . #[(&rest body) "\301\302BB\207" [body let ((ede-current-build-list nil))] 3 (#$ . 6154)]))
#@63 Using OBJECT, execute BODY only once per Makefile generation.
(defalias 'ede-linker-only-once '(macro . #[(object &rest body) "\302\303\304\305BBD\306\307\310E	BBE\207" [object body if not member (ede-current-build-list) progn add-to-list 'ede-current-build-list] 6 (#$ . 6436)]))
(add-hook 'edebug-setup-hook #[nil "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\303#\210\300\307\302\310#\210\300\311\302\312#\207" [put ede-compiler-begin-unique edebug-form-spec def-body ede-compiler-only-once (form def-body) ede-linker-begin-unique ede-linker-only-once (form def-body) ede-pmake-insert-variable-shared (form def-body)] 4])
#@73 Return a compiler from the list COMPILERS that will compile SOURCETYPE.
(defalias 'ede-proj-find-compiler #[(compilers sourcetype) "\203	\302@\301\"\235\204A\211\204\242\207" [compilers sourcetype eieio-oref] 5 (#$ . 7079)])
#@69 Return a compiler from the list LINKERS to be used with SOURCETYPE.
(defalias 'ede-proj-find-linker #[(linkers sourcetype) "\203\302@\301\"\203	\303@\301\"\235\204A\211\204\242\207" [linkers sourcetype slot-boundp eieio-oref] 5 (#$ . 7321)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\310\302\310\311\"\"\210\304\310\305\306\312$\207" [eieio--defalias ede-proj-tweak-autoconf eieio--defgeneric-init-form #1="Tweak the configure file (current buffer) to accommodate THIS." eieio--defmethod nil ede-compilation-program #[(this) "\301\302\303\304\"\"\207" [this mapcar #[(obj) ";\203	\301!\207:\203\301@A\"\207\302\303!\207" [obj autoconf-insert-new-macro error "Autoconf directives must be a string, or cons cell"] 3] eieio-oref autoconf] 5 #1#] ede-proj-flush-autoconf #2="Flush the configure file (current buffer) to accommodate THIS." #[(this) "\300\207" [nil] 1 #2#]] 5)
#@116 Add VARNAME into the current Makefile if it doesn't exist.
Execute BODY in a location where a value can be placed.
(defalias 'proj-comp-insert-variable-once '(macro . #[(varname &rest body) "\302\303\304DD\305\306\307\310	\311\"BBBE\207" [varname body let (addcr t) v unless (re-search-backward (concat "^" v "\\s-*=") nil t) (insert v "=") append ((if addcr (insert "\n")) (goto-char (point-max)))] 8 (#$ . 8251)]))
(byte-code "\300\301\302\303#\210\304\305\306\305\307\"\"\210\310\305\311\312\313$\210\304\314\306\314\315\"\"\210\310\314\311\316\317$\210\304\320\306\320\321\"\"\210\310\320\311\316\322$\210\304\323\306\323\324\"\"\210\310\323\311\316\325$\210\304\326\306\326\327\"\"\210\310\326\311\312\330$\210\304\326\306\326\331\"\"\210\310\326\311\332\333$\210\304\334\306\334\335\"\"\210\310\334\311\312\336$\210\337\340\341\"\210\300\342\302\343#\210\300\344\302\303#\210\300\345\302\343#\210\300\346\302\303#\210\347\350!\207" [put proj-comp-insert-variable-once lisp-indent-function 1 eieio--defalias ede-proj-makefile-insert-variables eieio--defgeneric-init-form #1="Insert variables needed by the compiler THIS." eieio--defmethod nil ede-compilation-program #[(this) "\301\302\"\205\303\304\305\302\"\"\207" [this eieio-instance-inheritor-slot-boundp variables mapcar #[(var) "\304@\305\306	\307Q\310\304#?\2053	\311\261\210A\211<\203&\312\313\"\210\202)c\210)\n\2031\314c\210db*\207" [var v addcr cd t re-search-backward "^" "\\s-*=" nil "=" mapc #[(c) "\301\261\207" [c " "] 2] "\n"] 5] slot-value] 5 #1#] ede-compiler-intermediate-objects-p #2="Return non-nil if THIS has intermediate object files.\nIf this compiler creates code that can be linked together,\nthen the object files created by the compiler are considered intermediate." ede-compiler #[(this) "\301\302\"\207" [this eieio-oref uselinker] 3 #2#] ede-compiler-intermediate-object-variable #3="Return a string based on THIS representing a make object variable.\nTARGETNAME is the name of the target that these objects belong to." #[(this targetname) "\301P\207" [targetname "_OBJ"] 2 #3#] ede-proj-makefile-insert-object-variables #4="Insert an OBJ variable to specify object code to be generated for THIS.\nThe name of the target is TARGETNAME as a string.  SOURCEFILES is the list of\nfiles to be objectified.\nNot all compilers do this." #[(this targetname sourcefiles) "\304!\205\305	\"\306\261\210\307\310\"\311\312\"\210\313c)\207" [this targetname src sourcefiles ede-compiler-intermediate-objects-p ede-compiler-intermediate-object-variable "=" eieio-oref sourcetype mapc #[(s) "\211\203\304	@J\n\"\204	A\211\204	\205$\305\306\n!\307\310\"\261)\207" [src ts s this ede-want-file-source-p " " file-name-sans-extension eieio-oref objectextention] 6] "\n"] 3 #4#] ede-proj-makefile-insert-rules #5="Insert rules needed for THIS compiler object." #[(this) "	\235?\205\302\301\"\210\303\304\305\306\"\"\207" [this ede-current-build-list add-to-list mapc ede-proj-makefile-insert-rules eieio-oref rules] 5 #5#] #6="Insert rules needed for THIS rule object." ede-makefile-rule #[(this) "\301\302\"\203\303\301\304\"\305\261\210\301\304\"\306\301\307\"\310\311\312\301\313\"\310#\314\261\207" [this eieio-oref phony ".PHONY: " target "\n" ": " dependencies "\n	" mapconcat #[(c) "\207" [c] 1] rules "\n\n"] 9 #6#] ede-proj-makefile-insert-commands #7="Insert the commands needed to use compiler THIS.\nThe object creating makefile rules must call this method for the\ncompiler it decides to use after inserting in the rule." #[(this) "\301\302\"\205\303\304\305\302\"\"\210\306c\207" [this slot-boundp commands mapc #[(obj) "n\203\301\202	\302;\203\202'<\203#@\303=\203# \202'\304\305\"\306\261\207" [obj "	" " " lambda format "%S" "\n"] 4] slot-value "\n"] 5 #7#] add-hook edebug-setup-hook #[nil "\300\301\302\303#\207" [put ede-compiler-begin-unique edebug-form-spec def-body] 4] ede-compiler-begin-unique 0 ede-compiler-only-once ede-linker-begin-unique ede-linker-only-once provide ede/proj-comp] 5)
F1l3 Manager
