Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
auto.elc	10.63 KB	-rw-r--r--
autoconf-edit.elc	11.67 KB	-rw-r--r--
base.elc	23.07 KB	-rw-r--r--
config.elc	25.6 KB	-rw-r--r--
cpp-root.elc	11.53 KB	-rw-r--r--
custom.elc	5.03 KB	-rw-r--r--
detect.elc	4.46 KB	-rw-r--r--
dired.elc	3.47 KB	-rw-r--r--
emacs.elc	10.68 KB	-rw-r--r--
files.elc	13.2 KB	-rw-r--r--
generic.elc	20.99 KB	-rw-r--r--
linux.elc	13.76 KB	-rw-r--r--
loaddefs.el	5.4 KB	-rw-r--r--
locate.elc	14.63 KB	-rw-r--r--
make.elc	2.36 KB	-rw-r--r--
makefile-edit.elc	2.72 KB	-rw-r--r--
pconf.elc	4.83 KB	-rw-r--r--
pmake.elc	18.02 KB	-rw-r--r--
proj-archive.elc	3.08 KB	-rw-r--r--
proj-aux.elc	2.07 KB	-rw-r--r--
proj-comp.elc	15.81 KB	-rw-r--r--
proj-elisp.elc	16.25 KB	-rw-r--r--
proj-info.elc	6.78 KB	-rw-r--r--
proj-misc.elc	3.44 KB	-rw-r--r--
proj-obj.elc	9.86 KB	-rw-r--r--
proj-prog.elc	5.63 KB	-rw-r--r--
proj-scheme.elc	2.02 KB	-rw-r--r--
proj-shared.elc	6.47 KB	-rw-r--r--
proj.elc	25.66 KB	-rw-r--r--
project-am.elc	43.49 KB	-rw-r--r--
shell.elc	1.6 KB	-rw-r--r--
simple.elc	4.64 KB	-rw-r--r--
source.elc	5.33 KB	-rw-r--r--
speedbar.elc	10.52 KB	-rw-r--r--
srecode.elc	2.12 KB	-rw-r--r--
system.elc	2.95 KB	-rw-r--r--
util.elc	2.43 KB	-rw-r--r--

Code Editor : linux.elc

;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\300\302!\210\300\303!\210\304\305\306\307\310\311\310\301\312\313&	\210\314\315\316\317\312\320\310\305\321\322&	\210\314\323\324\325\312\320\310\305\321\326&	\210\314\327\330\331\310\305\321\332&\210\314\333\334\335\310\305\321\332&\207" [require ede ede/make semantic/db custom-declare-group project-linux nil "File and tag browser frame." :group tools :version "24.3" custom-declare-variable project-linux-build-directory-default 'ask "Build directory." "24.4" :type (choice (const :tag "Same as source directory" same) (const :tag "Ask the user" ask)) project-linux-architecture-default 'ask "Target architecture to assume when not auto-detected." (choice (string :tag "Architecture name") (const :tag "Ask the user" ask)) project-linux-compile-target-command (concat ede-make-command " -k -C %s SUBDIRS=%s") "Default command used to compile a target." string project-linux-compile-project-command (concat ede-make-command " -k -C %s") "Default command used to compile a project."] 10)
#@50 Find the Linux version for the Linux src in DIR.
(defalias 'ede-linux-version #[(dir) "\306\307!rq\210\310 \210\311	!\312\313\314\315\316$\210eb\210\314\211\211\317\320!\210\321\322!\317\323!\210\321\322!\317\324!\210\321\322!
\325\f\325\260\326!\210-\207" [buff dir default-directory sub minor major get-buffer-create " *linux-query*" erase-buffer file-name-as-directory insert-file-contents "Makefile" nil 0 512 re-search-forward "^VERSION *= *\$[0-9.]+\$" match-string 1 "^PATCHLEVEL *= *\$[0-9.]+\$" "^SUBLEVEL *= *\$[0-9.]+\$" "." kill-buffer] 5 (#$ . 1426)])
(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 ede-linux-project-p eieio-make-class-predicate ede-linux-project ede-linux-project--eieio-childp eieio-make-child-predicate ede-linux-project-child-p make-obsolete "use (cl-typep ... \\='ede-linux-project) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-project) ((build-directory :initarg :build-directory :type string :documentation "Build directory.") (architecture :initarg :architecture :type string :documentation "Target architecture.") (include-path :initarg :include-path :type list :documentation "Include directories.\nContains both common and target architecture-specific directories.")) (:documentation "Project Type for the Linux source code." :method-invocation-order :depth-first)] 6)
#@56 Create a new object of class type `ede-linux-project'.
(defalias 'ede-linux-project #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-linux-project] 4 (#$ . 2904)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-linux-project compiler-macro ede-linux-project--anon-cmacro] 4)
(defalias 'ede-linux-project--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])
#@145 Detect build directory for sources in DIR.
If DIR has not been used as a build directory, fall back to
`project-linux-build-directory-default'.
(defalias 'ede-linux--get-build-directory #[(dir) "\302\303\304\"!\203
�\206�	\305\267\202�\207\306\307\"\207\310\207" [dir project-linux-build-directory-default file-exists-p expand-file-name ".config" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (same 19 ask 21)) read-directory-name "Select Linux' build directory: " nil] 4 (#$ . 3433)])
#@51 Return a list of architecture names found in DIR.
(defalias 'ede-linux--get-archs #[(dir) "\303\304\"\305\306\n!\203�\307\310\311\n!\"\210	*\207" [dir archs archs-dir expand-file-name "arch" nil file-directory-p mapc #[(elem) "\303\230?\205-�\304\230?\205-�\305\230?\205-�\306\307	\"!\205-�\n\235\203&�\n\207\310\nC\"\211\207" [elem archs-dir archs "." ".." "x86_64" file-directory-p expand-file-name append] 4] directory-files] 4 (#$ . 3970)])
#@168 Try to auto-detect the architecture as configured in DIR.
DIR is Linux' build directory.  If it cannot be auto-detected,
returns `project-linux-architecture-default'.
(defalias 'ede-linux--detect-architecture #[(dir) "\306\307\"\310!\311\211\2034�\2030�	\2040�@\312\306\n\313P\f\"!\203)�\nA\211\204�	\2065�
,\207" [dir found arch archs archs-dir project-linux-architecture-default expand-file-name "arch" ede-linux--get-archs nil file-directory-p "/include/generated"] 5 (#$ . 4433)])
#@199 Try to auto-detect the architecture as configured in BDIR.
Uses `ede-linux--detect-architecture' for the auto-detection.
If the result is `ask', let the user choose from architectures
found in DIR.
(defalias 'ede-linux--get-architecture #[(dir bdir) "\303!\211\304=\203�\305\306\307\n!\"\202�	)\207" [bdir arch dir ede-linux--detect-architecture ask completing-read "Select target architecture: " ede-linux--get-archs] 5 (#$ . 4939)])
#@147 Return a list with include directories.
Returned directories might not exist, since they are not created
until Linux is built for the first time.
(defalias 'ede-linux--include-path #[(dir bdir arch) "\302\303\304B	\305B\306B	\306B\307B	\310B\311B	\312B\257\313\314\315$\205,�\316\"\207" [dir bdir list #[(elem) "\302@\303AQ	\"\207" [elem arch format "/"] 4] "arch/%s/include" "arch/%s/include/generated" "include" "arch/%s/include/uapi" "arch/%s/include/generated/uapi" "include/uapi" "include/generated/uapi" nil apply cl-mapcar cl-coerce] 11 (#$ . 5385)])
#@182 Return a Linux Project object if there is a match.
Return nil if there isn't one.
Argument DIR is the directory it is created for.
ROOTPROJ is nil, since there is only one project.
(defalias 'ede-linux-load #[(dir &optional _rootproj) "\304!\305	\"\306	\n#\307\310\311\312\313\314!\315\316!\317\320\321\"\322	\323\n\324&+\207" [dir bdir arch include-path ede-linux--get-build-directory ede-linux--get-architecture ede-linux--include-path make-instance ede-linux-project :name "Linux" :version ede-linux-version :directory file-name-as-directory :file expand-file-name "scripts/ver_linux" :build-directory :architecture :include-path] 16 (#$ . 5964)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320&\321\"\210\322\323\324\325!\"\210\322\326\327\325!\"\210\322\330\326\"\210\331\330\332\333#\210\334\325\335\326#\336\325\337\316\340$\207" [ede-add-project-autoload make-instance ede-project-autoload :name "LINUX ROOT" :file ede/linux :proj-file "scripts/ver_linux" :load-type ede-linux-load :class-sym ede-linux-project :new-p nil :safe-p t unique defalias ede-linux-target-c-p eieio-make-class-predicate ede-linux-target-c ede-linux-target-c--eieio-childp eieio-make-child-predicate ede-linux-target-c-child-p make-obsolete "use (cl-typep ... \\='ede-linux-target-c) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-target) (:documentation "EDE Linux Project target for C code.\nAll directories need at least one target.")] 17)
#@57 Create a new object of class type `ede-linux-target-c'.
(defalias 'ede-linux-target-c #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-linux-target-c] 4 (#$ . 7480)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-linux-target-c compiler-macro ede-linux-target-c--anon-cmacro] 4)
(defalias 'ede-linux-target-c--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 ede-linux-target-misc-p eieio-make-class-predicate ede-linux-target-misc ede-linux-target-misc--eieio-childp eieio-make-child-predicate ede-linux-target-misc-child-p make-obsolete "use (cl-typep ... \\='ede-linux-target-misc) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (ede-target) nil (:documentation "EDE Linux Project target for Misc files.\nAll directories need at least one target.")] 6)
#@60 Create a new object of class type `ede-linux-target-misc'.
(defalias 'ede-linux-target-misc #[(&rest slots) "\301\302\303#\207" [slots apply make-instance ede-linux-target-misc] 4 (#$ . 8595)])
(byte-code "\300\301\302\303#\300\207" [function-put ede-linux-target-misc compiler-macro ede-linux-target-misc--anon-cmacro] 4)
(defalias 'ede-linux-target-misc--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\304\305%\210\300\306\302\307\302\310%\210\300\311\302\312\302\313%\210\300\314\302\315\302\316%\207" [cl-generic-define-method initialize-instance nil ((this ede-linux-project) &rest _fields) t #[(#1=#:cl--cnm this &rest _fields) " \210\302	\303\"?\205�\304	\305\306#\207" [#1# this slot-boundp targets eieio-oset :targets nil] 4 "Make sure the targets slot is bound.\n\n(fn THIS &rest FIELDS)"] ede-project-root-directory ((this ede-linux-project) &optional _file) #[(this &optional _file) "\301\302\303\304\"!!\207" [this ede-up-directory file-name-directory eieio-oref file] 5 "Return the root for THIS Linux project with file."] ede-project-root ((this ede-linux-project)) #[(this) "\207" [this] 1 "Return my root."] ede-find-subproject-for-directory ((proj ede-linux-project) _dir) #[(proj _dir) "\207" [proj] 1 "Return PROJ, for handling all subdirs below DIR."]] 6)
#@69 Find a target that is a CLASS and is in DIR in the list of TARGETS.
(defalias 'ede-linux-find-matching-target #[(class dir targets) "\306	\306\211\203&�@\307\n\f\"\203�\310\n\311\"
\230\203�\nA\211\204\n�*)\207" [match targets T --dolist-tail-- class dir nil object-of-class-p eieio-oref path] 4 (#$ . 10054)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method ede-find-target nil ((proj ede-linux-project) buffer) #[(proj buffer) "\306\307!!\211\204�\310\202�\311\312	\"\203�\313\202�\310\314\304\"
\315\n\f#\211\204H�\316\n\317\320\321!!\322\323\324&\325\326#\210-\207" [buffer ext cls proj targets default-directory file-name-extension buffer-file-name ede-linux-target-misc string-match "c\\|h" ede-linux-target-c eieio-oref ede-linux-find-matching-target make-instance :name file-name-nondirectory directory-file-name :path :source nil object-add-to-list :targets dir ans] 9 "Find an EDE target in PROJ for BUFFER.\nIf one doesn't exist, create a new one for this directory."] ede-preprocessor-map ((this ede-linux-target-c)) #[(this) "\306\307!\210\310!\311	!\312\n\313\"\211\205�\314!\205�\315!\316\f\2037�\317\f!\203/�\320\f!\210\321
\322\f\323\"\"
-\207" [this proj root versionfile table filemap require semantic/db ede-target-parent ede-project-root ede-expand-filename "include/linux/version.h" file-exists-p semanticdb-file-table-object (("__KERNEL__" . "")) semanticdb-needs-refresh-p semanticdb-refresh-table append eieio-oref lexical-table] 6 "Get the pre-processor map for Linux C code.\nAll files need the macros from lisp.h!"]] 6)
#@70 Return a file name if NAME exists under ROOT with SUBDIR in between.
(defalias 'ede-linux-file-exists-name #[(name root subdir) "\304\304	\n\"\"\305!\205�)\207" [name subdir root F expand-file-name file-exists-p] 5 (#$ . 11707)])
(byte-code "\300\301\302\303\304\305%\210\300\306\302\307\302\310%\210\300\311\302\312\302\313%\210\300\314\302\315\302\316%\210\317\320!\207" [cl-generic-define-method ede-expand-filename-impl nil ((proj ede-linux-project) name) t #[(#1=#:cl--cnm proj name) "\306!\307\n!\310!\311\n\312\"	\204�\313\202d�\314\315	\"\203T�\311\n\316\"\313\211\203N�\204N�\317
@#\206C�\317\f@#A\211\204-�*\202d�\314\320	\"\203c�\317\f\321#\202d�\313\211\206m� -\207" [name ext proj root dir bdir file-name-extension ede-project-root ede-project-root-directory eieio-oref build-directory nil string-match "h" include-path ede-linux-file-exists-name "txt" "Documentation" found dirs F #1#] 5 "Within this project PROJ, find the file NAME.\nKnows about how the Linux source tree is organized."] project-compile-project ((proj ede-linux-project) &optional command) #[(proj &optional command) "\305!\306\307!\210\n\204�\f\204�\310\n	\"\307\f!)\207" [proj dir project-linux-compile-project-command compile-command command ede-project-root-directory require compile format] 3 "Compile the entire current project.\nArgument COMMAND is the command to use when compiling."] project-compile-target ((obj ede-linux-target-c) &optional command) #[(obj &optional command) "\306!\307	!\310\n!\311\312\"\313\314!\210
\204�\204)�\315\f#\314!,\207" [obj proj root dir subdir project-linux-compile-project-command ede-target-parent ede-project-root ede-project-root-directory eieio-oref path require compile format compile-command command project-linux-compile-target-command] 4 "Compile the current target.\nArgument COMMAND is the command to use for compiling the target."] project-rescan ((this ede-linux-project)) #[(this) "\306!\307	!\310	\n\"\311	\n#\312	!\313\314
#\210\313\315\n#\210\313\316#\210\313\317\f#-\207" [this dir bdir arch inc ver ede-project-root-directory ede-linux--get-build-directory ede-linux--get-architecture ede-linux--include-path ede-linux-version eieio-oset version :build-directory :architecture :include-path] 4 "Rescan this Linux project from the sources."] provide ede/linux] 6)

${this.title}

Code Editor : linux.elc