| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/cedet/ede/autoconf-edit.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'autoconf)
#@298 Initialize a new configure.ac in ROOTDIR for PROGRAM using TESTFILE.
ROOTDIR is the root directory of a given autoconf controlled project.
PROGRAM is the program to be configured.
TESTFILE is the file used with AC_INIT.
Configure the initial configure script using `autoconf-new-automake-string'.
(defalias 'autoconf-new-program #[(rootdir program testfile) "\305\306!\210\307!\203 q\210\202B \310\311\"\310\312\"\313\n!\204& \313 !\203= \314\315\316\313\n!\2033 \n\2024 \"!\204= \317\320!\210\321 !\210*\322 \210\323 \210\324\325\326 \327\f%\207" [rootdir cf2 cf1 testfile program require ede/srecode bufferp expand-file-name "configure.in" "configure.ac" file-exists-p y-or-n-p format "File %s exists. Start Over? " error "Quit" find-file erase-buffer ede-srecode-setup ede-srecode-insert "file:ede-empty" "TEST_FILE" "PROGRAM"] 6 (#$ . 429) "DRoot Dir: \nsProgram: \nsTest File: "])
#@484 List of macros in the order that they prefer to occur in.
This helps when inserting a macro which doesn't yet exist
by positioning it near other macros which may exist.
From the autoconf manual:
`AC_INIT(FILE)'
checks for programs
checks for libraries
checks for header files
checks for typedefs
checks for structures
checks for compiler characteristics
checks for library functions
checks for system services
`AC_OUTPUT([FILE...])'
(defvar autoconf-preferred-macro-order '("AC_INIT" "AC_CONFIG_SRCDIR" "AM_INIT_AUTOMAKE" "AM_CONFIG_HEADER" "AC_ARG_ENABLE" "AC_ARG_WITH" "AC_PROG_MAKE_SET" "AC_PROG_AWK" "AC_PROG_CC" "AC_PROG_CC_C_O" "AC_PROG_CPP" "AC_PROG_CXX" "AC_PROG_CXXCPP" "AC_ISC_POSIX" "AC_PROG_F77" "AC_PROG_GCC_TRADITIONAL" "AC_PROG_INSTALL" "AC_PROG_LEX" "AC_PROG_LN_S" "AC_PROG_RANLIB" "AC_PROG_YACC" "AC_CHECK_PROG" "AC_CHECK_PROGS" "AC_PROG_LIBTOOL" "AC_CHECK_LIB" "AC_PATH_XTRA" "AC_HEADER_STDC" "AC_HEADER_SYS_WAIT" "AC_HEADER_TIME" "AC_HEADERS" "AC_TYPE_PID_T" "AC_TYPE_SIGNAL" "AC_TYPE_UID_T" "AC_STRUCT_TM" "AC_CHECK_SIZEOF" "AC_C_CONST" "AC_CHECK_FUNCS" "AC_TRY_LINK" "AM_PATH_LISPDIR" "AM_INIT_GUILE_MODULE" "AC_OUTPUT") (#$ . 1331))
#@37 Macros which appear multiple times.
(defvar autoconf-multiple-macros '("AC_ARG_ENABLE" "AC_ARG_WITH" "AC_CHECK_PROGS" "AC_CHECK_LIB" "AC_CHECK_SIZEOF" "AC_TRY_LINK") (#$ . 2542))
#@67 Macros which appear multiple times, and perform multiple queries.
(defvar autoconf-multiple-multiple-macros '("AC_HEADERS" "AC_CHECK_FUNCS") (#$ . 2727))
#@47 Non-nil if point is in a macro of type MACRO.
(defalias 'autoconf-in-macro #[(macro) "\212\301 \210\302\303\304\305\260!)\207" [macro beginning-of-line looking-at "\\(A[CM]_" "\\|" "\\)"] 6 (#$ . 2887)])
#@163 Move to the last occurrence of MACRO, and return that point.
The last macro is usually the one in which we would like to insert more
items such as CHECK_HEADERS.
(defalias 'autoconf-find-last-macro #[(macro &optional ignore-bol) "`\203 \304\202\n \305db\210\306 \307 !\310Q\311\312#\203' \204# \313 \210`\202+ \nb\210\311*\207" [ignore-bol atbol op macro "" "^" re-search-backward regexp-quote "\\s-*\\((\\|$\\)" nil t beginning-of-line] 4 (#$ . 3101)])
#@71 Strip the parameter PARAM of whitespace and miscellaneous characters.
(defalias 'autoconf-parameter-strip #[(param) "\301\302\"\203
\303\304\225\"\301\305\"\203 \303\304\211\224#\301\306\"\203, \307\310\311\211$\202 \207" [param string-match "\\`\n*\\s-*\\[?\\s-*" substring 0 "\\s-*\\]?\\s-*\\'" "\\s-*\\\\\\s-*\n\\s-*" replace-match " " t] 5 (#$ . 3566)])
#@97 Retrieve the parameters to MACRO.
Returns a list of the arguments passed into MACRO as strings.
(defalias 'autoconf-parameters-for-macro #[(macro &optional ignore-bol ignore-case) "\212\306\n \"\2050 \307\310!\210\311\312\313\314!\205/ `T \212\307\310!\210`S) \315\f
\" \316\317\320#+\"*\207" [ignore-case case-fold-search macro ignore-bol start end autoconf-find-last-macro forward-sexp 1 mapcar autoconf-parameter-strip looking-at "(" buffer-substring-no-properties split-string "," t ans] 6 (#$ . 3943)])
#@309 Position the cursor where a new MACRO could be inserted.
This will appear at the BEGINNING of the macro MACRO should appear AFTER.
This is to make it compatible with `autoconf-find-last-macro'.
Assume that MACRO doesn't appear in the buffer yet, so search
the ordering list `autoconf-preferred-macro-order'.
(defalias 'autoconf-position-for-macro #[(macro) "\303 !\235\211\204 \304\305\"\210\nAdb\210\n\203' \306\n@!\204' \nA\211\204 \n?\2050 \304\307\")\207" [macro autoconf-preferred-macro-order ml reverse error "Don't know how to position for %s yet" autoconf-find-last-macro "Could not find context for positioning %s"] 4 (#$ . 4463)])
#@44 Add MACRO at the current point with PARAM.
(defalias 'autoconf-insert-macro-at-point #[(macro &optional param) "c\210 \205 \302 \303\261\210i\304W\205 \305c\207" [macro param "(" ")" 3 " dnl"] 3 (#$ . 5118)])
#@222 Add a call to MACRO in the current autoconf file.
Deals with macro order. See `autoconf-preferred-macro-order' and
`autoconf-multiple-macros'.
Optional argument PARAM is the parameter to pass to the macro as one string.
(defalias 'autoconf-insert-new-macro #[(macro &optional param) " \235\203 \305!\204 \306!\210\307\310!\210\311\210\312c\210\313\n\"\207 \235\203l \n\204. \314\315\"\210\305!\204G \306!\210\307\310!\210\311\210\312c\210\313\n\"\207\307\310!\210\316\317!\210i\nG\\\fV\203] \320\n\261\207\321\322!\210\311\210\312c\210\313\n\"\207\305!\203t \311\207\306!\210\307\322!\210\323\324!\203\206 \307\322!\210\311\210\312c\210\313\n\"\207" [macro autoconf-multiple-macros param autoconf-multiple-multiple-macros fill-column autoconf-find-last-macro autoconf-position-for-macro forward-sexp 2 nil "\n" autoconf-insert-macro-at-point error "You must have a parameter for %s" down-list -1 " " up-list 1 looking-at "\\s-*("] 3 (#$ . 5338)])
#@46 Position the cursor where HEADER is queried.
(defalias 'autoconf-find-query-for-header #[(header) "`\303eb\210\3041' \305\306\307\n!\306Q!\210\212\310 \210\311\312!)?\205# \202 0\202+ \210\313\211\210\2043 b\210*\207" [found op header t (error) re-search-forward "\\b" regexp-quote beginning-of-line looking-at "AC_CHECK_HEADERS" nil] 4 (#$ . 6312) "sHeader: "])
#@55 Add in HEADER to be queried for in our autoconf file.
(defalias 'autoconf-add-query-for-header #[(header) "\301!\206\n \302\303\"\207" [header autoconf-find-query-for-header autoconf-insert-new-macro "AC_CHECK_HEADERS"] 3 (#$ . 6688) "sHeader: "])
#@44 Position the cursor where FUNC is queried.
(defalias 'autoconf-find-query-for-func #[(func) "`\303eb\210\3041' \305\306\307\n!\306Q!\210\212\310 \210\311\312!)?\205# \202 0\202+ \210\313\211\210\2043 b\210*\207" [found op func t (error) re-search-forward "\\b" regexp-quote beginning-of-line looking-at "AC_CHECK_FUNCS" nil] 4 (#$ . 6944) "sFunction: "])
#@53 Add in FUNC to be queried for in our autoconf file.
(defalias 'autoconf-add-query-for-func #[(func) "\301!\206\n \302\303\"\207" [func autoconf-find-query-for-func autoconf-insert-new-macro "AC_CHECK_FUNCS"] 3 (#$ . 7312) "sFunction: "])
#@65 Association list of PROGRAM variables and their built-in MACRO.
(defvar autoconf-program-builtin '(("AWK" . "AC_PROG_AWK") ("CC" . "AC_PROG_CC") ("CPP" . "AC_PROG_CPP") ("CXX" . "AC_PROG_CXX") ("CXXCPP" . "AC_PROG_CXXCPP") ("F77" . "AC_PROG_F77") ("GCC_TRADITIONAL" . "AC_PROG_GCC_TRADITIONAL") ("INSTALL" . "AC_PROG_INSTALL") ("LEX" . "AC_PROG_LEX") ("LN_S" . "AC_PROG_LN_S") ("RANLIB" . "AC_PROG_RANLIB") ("YACC" . "AC_PROG_YACC")) (#$ . 7558))
#@222 Position the cursor where PROG is queried.
PROG is the VARIABLE to use in autoconf to identify the program.
PROG excludes the _PROG suffix. Thus if PROG were EMACS, then the
variable in configure.ac would be EMACS_PROG.
(defalias 'autoconf-find-query-for-program #[(prog) "`\305\306 \" eb\210\3071\" \310\311\n\243\206 \312\313Q\314Q!0\202& \210\315\211\210 \204. \fb\210 +\207" [prog autoconf-program-builtin builtin found op t assoc (error) re-search-forward "^" "AC_CHECK_PROG\\s-*(\\s-*" "_PROG" "\\>" nil] 5 (#$ . 8012)])
#@133 Add in PROG to be queried for in our autoconf file.
Optional NAMES is for non-built-in programs, and is the list
of possible names.
(defalias 'autoconf-add-query-for-program #[(prog &optional names) "\304!?\205 \305 \"\211\203 \306\nA!\202 \306\307\310 Q\")\207" [prog autoconf-program-builtin builtin names autoconf-find-query-for-program assoc autoconf-insert-new-macro "AC_CHECK_PROGS" ","] 6 (#$ . 8553) "sProgram: "])
#@53 Set to the last bit of text deleted during an edit.
(defvar autoconf-deleted-text nil (#$ . 8989))
#@54 Set to the last bit of text inserted during an edit.
(defvar autoconf-inserted-text nil (#$ . 9094))
#@150 Start an edit cycle, unsetting the modified flag if there is no change.
Optional argument BODY is the code to execute which edits the autoconf file.
(defalias 'autoconf-edit-cycle '(macro . #[(&rest body) "\301\302\303\304\"BB\207" [body let ((autoconf-deleted-text nil) (autoconf-inserted-text nil) (mod (buffer-modified-p))) append ((if (and (not mod) (string= autoconf-deleted-text autoconf-inserted-text)) (set-buffer-modified-p nil)))] 5 (#$ . 9202)]))
#@70 Return the number of parameters to the function on the current line.
(defalias 'autoconf-parameter-count #[nil "\212\302 \210\212\303\304\305 \306#\203 \307u\210\310\311!\210`\202 \305 )\312\214\313 }\210\3141V \315\311!\210\303\316\306#\203; T\202- \311V\203F T\202R \317\320!\204Q T\202R 0\202X \210\312,\207" [end-of-cmd cnt beginning-of-line re-search-forward "(" point-at-eol t -1 forward-sexp 1 0 point-at-bol (error) down-list ", ?" looking-at "\\s-*)"] 4 (#$ . 9667)])
#@151 Delete the INDEXth parameter from the macro starting on the current line.
Leaves the cursor where a new parameter can be inserted.
INDEX starts at 1.
(defalias 'autoconf-delete-parameter #[(index) "\303 \210\304\305!\210\306\307\310\211S$\210\212\306\311\312 \"\210\313u\210`)` {` |)\207" [index end autoconf-deleted-text beginning-of-line down-list 1 re-search-forward ", ?" nil ",\\|)" point-at-eol -1] 5 (#$ . 10163)])
#@14 Insert TEXT.
(defalias 'autoconf-insert #[(text) "c\207" [text autoconf-inserted-text] 1 (#$ . 10594)])
#@48 Set the version used with automake to VERSION.
(defalias 'autoconf-set-version #[(version) ";\204\n \304\305\306\"\210\307\310!\203 \311 \312Y\204( \307\313!\203$ \311 \312Y\204( \314\315!\210\316\211\317 \320\312!\210\321\322\323Q!\210 ?\205H \n\230\205H \324\316!+\207" [version mod autoconf-inserted-text autoconf-deleted-text signal wrong-type-argument (stringp version) autoconf-find-last-macro "AM_INIT_AUTOMAKE" autoconf-parameter-count 2 "AC_INIT" error "Cannot update version" nil buffer-modified-p autoconf-delete-parameter autoconf-insert "[" "]" set-buffer-modified-p] 4 (#$ . 10707)])
#@169 Set the files created in AC_OUTPUT to OUTPUTLIST.
OUTPUTLIST is a list of strings representing relative paths
to Makefiles, or other files using Autoconf substitution.
(defalias 'autoconf-set-output #[(outputlist) "\304\305!\204\n \306\307!\207\310\211\311 \312\313!\210\314\315\316 \317#!\210?\205+ \n \230\205+ \320\310!+\207" [mod autoconf-inserted-text autoconf-deleted-text outputlist autoconf-find-last-macro "AC_OUTPUT" error "Cannot update version" nil buffer-modified-p autoconf-delete-parameter 1 autoconf-insert mapconcat #[(a) "\207" [a] 1] " " set-buffer-modified-p] 5 (#$ . 11319)])
(provide 'ede/autoconf-edit)