Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
site-lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
site-start.d
[ DIR ]
drwxr-xr-x
autoconf-mode.el
4.19
KB
-rw-r--r--
autoconf-mode.elc
3.05
KB
-rw-r--r--
autotest-mode.el
3.77
KB
-rw-r--r--
autotest-mode.elc
2.7
KB
-rw-r--r--
default.el
251
B
-rw-r--r--
desktop-entry-mode.el
7.63
KB
-rw-r--r--
desktop-entry-mode.elc
5.61
KB
-rw-r--r--
idna.el
6.35
KB
-rw-r--r--
php-mode.el
47.18
KB
-rw-r--r--
php-mode.elc
19.86
KB
-rw-r--r--
po-mode.el
115.29
KB
-rw-r--r--
po-mode.elc
84.58
KB
-rw-r--r--
psvn-init.el
132
B
-rw-r--r--
psvn.el
294.97
KB
-rw-r--r--
punycode.el
6.15
KB
-rw-r--r--
rpm-spec-mode.el
50.92
KB
-rw-r--r--
rpm-spec-mode.elc
42.66
KB
-rw-r--r--
site-start.el
224
B
-rw-r--r--
ssl.el
7.27
KB
-rw-r--r--
ssl.elc
6.14
KB
-rw-r--r--
subdirs.el
106
B
-rw-r--r--
xcscope.el
87.46
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : rpm-spec-mode.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:46 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/site-lisp/rpm-spec-mode.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters ;;; and therefore cannot be loaded into Emacs 21 or earlier. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "23"))) (error "`rpm-spec-mode.el' was compiled for Emacs 23 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'compile) #@29 Version of `rpm-spec-mode'. (defconst rpm-spec-mode-version "0.12.3x.rh1" (#$ . 641)) (custom-declare-group 'rpm-spec nil "RPM spec mode with Emacs/XEmacs enhancements." :prefix "rpm-spec-" :group 'languages) #@38 Command for building an RPM package. (custom-declare-variable 'rpm-spec-build-command '"rpmbuild" '(#$ . 856) :type 'string :group 'rpm-spec) #@45 Add "%attr" entry for file listings or not. (custom-declare-variable 'rpm-spec-add-attr 'nil '(#$ . 1004) :type 'boolean :group 'rpm-spec) #@138 Skip straight to specified stage. (ie, skip all stages leading up to the specified stage). Only valid in "%build" and "%install" stage. (custom-declare-variable 'rpm-spec-short-circuit 'nil '(#$ . 1150) :type 'boolean :group 'rpm-spec) #@192 Set the "timecheck" age (0 to disable). The timecheck value expresses, in seconds, the maximum age of a file being packaged. Warnings will be printed for all files beyond the timecheck age. (custom-declare-variable 'rpm-spec-timecheck '"0" '(#$ . 1394) :type 'integer :group 'rpm-spec) #@65 When building, override the BuildRoot tag with directory <dir>. (custom-declare-variable 'rpm-spec-buildroot '"" '(#$ . 1687) :type 'string :group 'rpm-spec) #@109 Interpret given string as `arch-vendor-os'. Set the macros _target, _target_arch and _target_os accordingly (custom-declare-variable 'rpm-spec-target '"" '(#$ . 1852) :type 'string :group 'rpm-spec) (byte-code "\300\301\302\303#\210\304\301\302\303#\207" [defvaralias rpm-completion-ignore-case rpm-spec-completion-ignore-case nil make-obsolete-variable] 4) #@163 *Non-nil means that case differences are ignored during completion. A value of nil means that case is significant. This is used during Tempo template completion. (custom-declare-variable 'rpm-spec-completion-ignore-case 't '(#$ . -2217) :type 'boolean :group 'rpm-spec) #@52 Remove the build tree after the packages are made. (custom-declare-variable 'rpm-spec-clean 'nil '(#$ . 2493) :type 'boolean :group 'rpm-spec) #@62 Remove the source and spec file after the packages are made. (custom-declare-variable 'rpm-spec-rmsource 'nil '(#$ . 2642) :type 'boolean :group 'rpm-spec) (byte-code "\300\301\302\303#\210\304\301\302\303#\207" [defvaralias rpm-spec-test rpm-spec-nobuild nil make-obsolete-variable] 4) #@70 Do not execute any build stages. Useful for testing out spec files. (custom-declare-variable 'rpm-spec-nobuild 'nil '(#$ . 2935) :type 'boolean :group 'rpm-spec) #@78 Print as little as possible. Normally only error messages will be displayed. (custom-declare-variable 'rpm-spec-quiet 'nil '(#$ . 3104) :type 'boolean :group 'rpm-spec) #@121 Embed a GPG signature in the package. This signature can be used to verify the integrity and the origin of the package. (custom-declare-variable 'rpm-spec-sign-gpg 'nil '(#$ . 3280) :type 'boolean :group 'rpm-spec) #@35 Do not verify build dependencies. (custom-declare-variable 'rpm-spec-nodeps 'nil '(#$ . 3501) :type 'boolean :group 'rpm-spec) (byte-code "\300\301\302\303#\210\304\301\302\303#\207" [defvaralias rpm-initialize-sections rpm-spec-initialize-sections nil make-obsolete-variable] 4) #@61 Automatically add empty section headings to new spec files. (custom-declare-variable 'rpm-spec-initialize-sections 't '(#$ . 3787) :type 'boolean :group 'rpm-spec) (byte-code "\300\301\302\303#\210\304\301\302\303#\207" [defvaralias rpm-insert-version rpm-spec-insert-changelog-version nil make-obsolete-variable] 4) #@54 Automatically add version in a new change log entry. (custom-declare-variable 'rpm-spec-insert-changelog-version 't '(#$ . 4110) :type 'boolean :group 'rpm-spec) #@143 *Full name of the user. This is used in the change log and the Packager tag. It defaults to the value returned by function `user-full-name'. (custom-declare-variable 'rpm-spec-user-full-name 'nil '(#$ . -4279) :type '(choice (const :tag "Use `user-full-name'" nil) string) :group 'rpm-spec) #@150 *Email address of the user. This is used in the change log and the Packager tag. It defaults to the value returned by function `user-mail-address'. (custom-declare-variable 'rpm-spec-user-mail-address 'nil '(#$ . -4578) :type '(choice (const :tag "Use `user-mail-address'" nil) string) :group 'rpm-spec) #@64 *Indent values for all tags in the "heading" of the spec file. (custom-declare-variable 'rpm-spec-indent-heading-values 'nil '(#$ . -4889) :type 'boolean :group 'rpm-spec) #@55 *Default value for the Release tag in new spec files. (custom-declare-variable 'rpm-spec-default-release '"1" '(#$ . -5067) :type 'string :group 'rpm-spec) #@65 *If non-nil, default value for the Epoch tag in new spec files. (custom-declare-variable 'rpm-spec-default-epoch 'nil '(#$ . -5229) :type '(choice (const :tag "No Epoch" nil) integer) :group 'rpm-spec) #@57 *Default value for the BuildRoot tag in new spec files. (custom-declare-variable 'rpm-spec-default-buildroot '"%{_tmppath}/%{name}-%{version}-%{release}-root" '(#$ . -5437) :type 'integer :group 'rpm-spec) #@44 *Default %build section in new spec files. (custom-declare-variable 'rpm-spec-default-build-section '"" '(#$ . -5649) :type 'string :group 'rpm-spec) #@46 *Default %install section in new spec files. (custom-declare-variable 'rpm-spec-default-install-section '"rm -rf $RPM_BUILD_ROOT\n" '(#$ . -5805) :type 'string :group 'rpm-spec) #@44 *Default %clean section in new spec files. (custom-declare-variable 'rpm-spec-default-clean-section '"rm -rf $RPM_BUILD_ROOT\n" '(#$ . -5989) :type 'string :group 'rpm-spec) #@71 *Automatically detect an rpm build directory tree and define _topdir. (custom-declare-variable 'rpm-spec-auto-topdir 'nil '(#$ . -6169) :type 'boolean :group 'rpm-spec) (custom-declare-group 'rpm-spec-faces nil "Font lock faces for `rpm-spec-mode'." :prefix "rpm-spec-" :group 'rpm-spec :group 'faces) #@32 Partial list of section names. (defconst rpm-sections '("preamble" "description" "prep" "setup" "build" "install" "check" "clean" "changelog" "files") (#$ . 6477)) #@32 Partial list of section names. (defvar rpm-section-list '(("preamble") ("description") ("prep") ("setup") ("build") ("install") ("check") ("clean") ("changelog") ("files")) (#$ . 6647)) #@22 List of rpm scripts. (defconst rpm-scripts '("pre" "post" "preun" "postun" "trigger" "triggerin" "triggerprein" "triggerun" "triggerpostun" "pretrans" "posttrans") (#$ . 6839)) (byte-code "\301B\302\303!\207" [current-load-list rpm-section-seperate (lambda (#1=#:defconst-tmp-var) (defconst rpm-section-seperate #1#)) "^%\\(\\w+\\)\\s-"] 2) #@53 Regular expression to match beginning of a section. (defconst rpm-section-regexp "^%\\(build\\|c\\(?:h\\(?:angelog\\|eck\\)\\|lean\\)\\|description\\|files\\|install\\|p\\(?:ackage\\|ost\\(?:trans\\|un\\)?\\|re\\(?:p\\|trans\\|un\\)?\\)\\|trigger\\(?:\\(?:p\\(?:ostu\\|rei\\)\\|[iu]\\)n\\)?\\|verifyscript\\)\\b" (#$ . 7188)) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\210\300\317\320\321\304\305%\210\300\322\323\324\304\305%\210\300\325\326\327\304\305%\210\300\330\331\332\304\305%\210\300\333\334\335\304\305%\207" [custom-declare-face rpm-spec-tag-face ((((class color) (background light)) (:foreground "blue3")) (((class color) (background dark)) (:foreground "blue"))) "*Face for tags." :group rpm-spec-faces rpm-spec-obsolete-tag-face ((((class color)) (:foreground "white" :background "red"))) "*Face for obsolete tags." rpm-spec-macro-face ((((class color) (background light)) (:foreground "purple")) (((class color) (background dark)) (:foreground "yellow"))) "*Face for RPM macros and variables." rpm-spec-var-face ((((class color) (background light)) (:foreground "maroon")) (((class color) (background dark)) (:foreground "maroon"))) "*Face for environment variables." rpm-spec-doc-face ((((class color) (background light)) (:foreground "magenta3")) (((class color) (background dark)) (:foreground "magenta"))) "*Face for %doc entries in %files." rpm-spec-dir-face ((((class color) (background light)) (:foreground "green4")) (((class color) (background dark)) (:foreground "green"))) "*Face for %dir entries in %files." rpm-spec-package-face ((((class color) (background light)) (:foreground "red3")) (((class color) (background dark)) (:foreground "red"))) "*Face for package tag." rpm-spec-ghost-face ((((class color) (background light)) (:foreground "gray50")) (((class color) (background dark)) (:foreground "red"))) "*Face for %ghost and %config entries in %files." rpm-spec-section-face ((((class color) (background light)) (:foreground "purple" :underline t)) (((class color) (background dark)) (:foreground "yellow" :underline t))) "*Face for section markers."] 6) #@37 *Face for RPM macros and variables. (defvar rpm-spec-macro-face 'rpm-spec-macro-face (#$ . -9364)) #@34 *Face for environment variables. (defvar rpm-spec-var-face 'rpm-spec-var-face (#$ . -9469)) #@17 *Face for tags. (defvar rpm-spec-tag-face 'rpm-spec-tag-face (#$ . -9567)) #@26 *Face for obsolete tags. (defvar rpm-spec-obsolete-tag-face 'rpm-spec-tag-face (#$ . -9648)) #@24 *Face for package tag. (defvar rpm-spec-package-face 'rpm-spec-package-face (#$ . -9747)) #@35 *Face for %dir entries in %files. (defvar rpm-spec-dir-face 'rpm-spec-dir-face (#$ . -9843)) #@35 *Face for %doc entries in %files. (defvar rpm-spec-doc-face 'rpm-spec-doc-face (#$ . -9942)) #@49 *Face for %ghost and %config entries in %files. (defvar rpm-spec-ghost-face 'rpm-spec-ghost-face (#$ . -10041)) #@28 *Face for section markers. (defvar rpm-spec-section-face 'rpm-spec-section-face (#$ . -10159)) #@51 *Default umask for files, specified with "%attr". (defvar rpm-default-umask "-" (#$ . -10260)) #@51 *Default owner for files, specified with "%attr". (defvar rpm-default-owner "root" (#$ . -10361)) #@51 *Default group for files, specified with "%attr". (defvar rpm-default-group "root" (#$ . -10465)) #@31 Tell rpm not to sign package. (defvar rpm-no-gpg nil (#$ . 10569)) #@22 Option for no build. (defvar rpm-spec-nobuild-option "--nobuild" (#$ . 10642)) #@39 List of elements that are valid tags. (defvar rpm-tags-list '(("AutoProv") ("AutoReq") ("AutoReqProv") ("BuildArch") ("BuildArchitectures") ("BuildConflicts") ("BuildEnhances") ("BuildPlatforms") ("BuildPreReq") ("BuildRequires") ("BuildRoot") ("BuildSuggests") ("Conflicts") ("CVSId") ("%description") ("Distribution") ("DistTag") ("DistURL") ("DocDir") ("Enhances") ("Epoch") ("ExcludeArch") ("ExcludeOS") ("ExclusiveArch") ("ExclusiveOS") ("%files") ("Group") ("Icon") ("%ifarch") ("Keyword") ("Keywords") ("License") ("Name") ("NoPatch") ("NoSource") ("Obsoletes") ("%package") ("Packager") ("Patch") ("Prefix") ("Prefixes") ("PreReq") ("Provides") ("Release") ("Requires") ("RepoTag") ("Source") ("Suggests") ("Summary") ("SVNId") ("URL") ("Variant") ("Variants") ("Vendor") ("Version") ("XMajor") ("XMinor")) (#$ . 10727)) #@45 Regular expression for matching valid tags. (defvar rpm-tags-regexp (byte-code "\301\302\303\304\"!\305Q\207" [rpm-tags-list "\\(\\<" regexp-opt mapcar car "\\|\\(Patch\\|Source\\)[0-9]+\\>\\)"] 5) (#$ . 11562)) #@66 List of elements that are obsolete tags in some versions of rpm. (defvar rpm-obsolete-tags-list '(("Copyright") ("RHNPlatform") ("Serial")) (#$ . 11781)) #@48 Regular expression for matching obsolete tags. (defvar rpm-obsolete-tags-regexp (byte-code "\301\302\303\"\304\"\207" [rpm-obsolete-tags-list regexp-opt mapcar car words] 4) (#$ . 11941)) #@45 List of elements that are valid group tags. (defvar rpm-group-tags-list '(("Amusements/Games") ("Amusements/Graphics") ("Applications/Archiving") ("Applications/Communications") ("Applications/Databases") ("Applications/Editors") ("Applications/Emulators") ("Applications/Engineering") ("Applications/File") ("Applications/Internet") ("Applications/Multimedia") ("Applications/Productivity") ("Applications/Publishing") ("Applications/System") ("Applications/Text") ("Development/Debuggers") ("Development/Languages") ("Development/Libraries") ("Development/System") ("Development/Tools") ("Documentation") ("System Environment/Base") ("System Environment/Daemons") ("System Environment/Kernel") ("System Environment/Libraries") ("System Environment/Shells") ("User Interface/Desktops") ("User Interface/X") ("User Interface/X Hardware Support")) (#$ . 12136)) #@49 Syntax table in use in `rpm-spec-mode' buffers. (defvar rpm-spec-mode-syntax-table nil (#$ . 13003)) (byte-code "\204a \301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\313#\210\302\314\313#\210\302\315\313#\210\302\316\313#\210\302\317\313#\210\302\320\321#\210\302\322\313#\210\302\323\313#\210\302\324\313#\210\302\325\313#\210\302\326\313#\210\301\207" [rpm-spec-mode-syntax-table make-syntax-table modify-syntax-entry 92 "\\" 10 "> " 12 35 "< " 47 "." 42 43 45 61 37 "_" 60 62 38 124 39] 4) #@33 Keymap used in `rpm-spec-mode'. (defvar rpm-spec-mode-map nil (#$ . 13558)) (byte-code "\204\374 \302 \303\304!\203 \304\300\"\210\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\321#\210\305\322\323#\210\305\324\325#\210\305\326\327#\210\305\330\331#\210\305\332\333#\210\305\334\335#\210\305\336\337#\210\305\340\341#\210\305\342\343#\210\305\344\345#\210\305\346\347#\210\305\350\351#\210\305\352\353#\210\305\354\355#\210\305\356\357#\210\305\360\361#\210\305\362\363#\210\305\364\365#\210\305\366\367#\210\305\370\371#\210\305\372\373#\210\305\374\375#\210\305\376\377#\210\305\201@ \201A #\210\305\201B \201C #\210\305\201D \201E #\210\305\201F \201G #\210\305\201H \201I #\210\305\201J \201K #\210\201L B\201M \201N \201O !!\207" [rpm-spec-mode-map current-load-list make-sparse-keymap functionp set-keymap-name define-key "" rpm-change-tag "" rpm-add-change-log-entry " " rpm-insert-tag "" rpm-forward-section "" rpm-goto-section "" rpm-backward-section "" rpm-increase-release-tag "" rpm-insert-true-prefix "a" rpm-build-all "b" rpm-build-binary "c" rpm-build-compile "i" rpm-build-install "l" rpm-list-check "p" rpm-build-prepare "s" rpm-build-source "d" rpm-insert-dir "o" rpm-insert-docdir "c" rpm-insert-config "d" rpm-insert-doc "f" rpm-insert-file "g" rpm-insert-ghost "a" rpm-toggle-add-attr "b" rpm-change-buildroot-option "c" rpm-toggle-clean "d" rpm-toggle-nodeps "f" rpm-files-group "g" rpm-toggle-sign-gpg "i" rpm-change-timecheck-option "n" rpm-toggle-nobuild "o" rpm-files-owner "r" rpm-toggle-rmsource "q" rpm-toggle-quiet "s" rpm-toggle-short-circuit "t" rpm-change-target-option "u" rpm-files-umask rpm-spec-mode-menu (lambda (#1=#:defconst-tmp-var) (defconst rpm-spec-mode-menu #1#)) purecopy ("RPM spec" ["Insert Tag..." rpm-insert-tag t] ["Change Tag..." rpm-change-tag t] "---" ["Go to section..." rpm-mouse-goto-section :keys "C-c C-o"] ["Forward section" rpm-forward-section t] ["Backward section" rpm-backward-section t] "---" ["Add change log entry..." rpm-add-change-log-entry t] ["Increase release tag" rpm-increase-release-tag t] "---" ("Add file entry" ["Regular file..." rpm-insert-file t] ["Config file..." rpm-insert-config t] ["Document file..." rpm-insert-doc t] ["Ghost file..." rpm-insert-ghost t] "---" ["Directory..." rpm-insert-dir t] ["Document directory..." rpm-insert-docdir t] "---" ["Insert %{prefix}" rpm-insert-true-prefix t] "---" ["Default add \"%attr\" entry" rpm-toggle-add-attr :style toggle :selected rpm-spec-add-attr] ["Change default umask for files..." rpm-files-umask t] ["Change default owner for files..." rpm-files-owner t] ["Change default group for files..." rpm-files-group t]) ("Build Options" ["Short circuit" rpm-toggle-short-circuit :style toggle :selected rpm-spec-short-circuit] ["Remove source" rpm-toggle-rmsource :style toggle :selected rpm-spec-rmsource] ["Clean" rpm-toggle-clean :style toggle :selected rpm-spec-clean] ["No build" rpm-toggle-nobuild :style toggle :selected rpm-spec-nobuild] ["Quiet" rpm-toggle-quiet :style toggle :selected rpm-spec-quiet] ["GPG sign" rpm-toggle-sign-gpg :style toggle :selected rpm-spec-sign-gpg] ["Ignore dependencies" rpm-toggle-nodeps :style toggle :selected rpm-spec-nodeps] "---" ["Change timecheck value..." rpm-change-timecheck-option t] ["Change buildroot value..." rpm-change-buildroot-option t] ["Change target value..." rpm-change-target-option t]) ("RPM Build" ["Execute \"%prep\" stage" rpm-build-prepare t] ["Do a \"list check\"" rpm-list-check t] ["Do the \"%build\" stage" rpm-build-compile t] ["Do the \"%install\" stage" rpm-build-install t] "---" ["Build binary package" rpm-build-binary t] ["Build source package" rpm-build-source t] ["Build binary and source" rpm-build-all t]) "---" ["About rpm-spec-mode" rpm-about-rpm-spec-mode t])] 4) #@57 Additional expressions to highlight in `rpm-spec-mode'. (defvar rpm-spec-font-lock-keywords (byte-code " B\304\305\n\306Q\307B\305 \306Q\310B\305\n\311Q\312B\305 \311Q\313B\314\315\316\317\320\321\322\323\324\325\326\327\257\207" [rpm-section-regexp rpm-spec-section-face rpm-obsolete-tags-regexp rpm-tags-regexp ("%[a-zA-Z0-9_]+" 0 rpm-spec-macro-face) "^" "\\(([a-zA-Z0-9,_]+)\\)[ ]*:" ((1 'rpm-spec-obsolete-tag-face) (2 'rpm-spec-ghost-face)) ((1 'rpm-spec-tag-face) (3 'rpm-spec-ghost-face)) "[ ]*:" (1 'rpm-spec-obsolete-tag-face) (1 'rpm-spec-tag-face) ("%\\(de\\(fine\\|scription\\)\\|files\\|global\\|package\\)[ ]+\\([^-][^ \n]*\\)" (3 rpm-spec-package-face)) ("%p\\(ost\\|re\\)\\(un\\|trans\\)?[ ]+\\([^-][^ \n]*\\)" (3 rpm-spec-package-face)) ("%configure " 0 rpm-spec-macro-face) ("%dir[ ]+\\([^ \n]+\\)[ ]*" 1 rpm-spec-dir-face) ("%doc\\(dir\\)?[ ]+\\(.*\\)\n" 2 rpm-spec-doc-face) ("%\\(ghost\\|config\\([ ]*(.*)\\)?\\)[ ]+\\(.*\\)\n" 3 rpm-spec-ghost-face) ("^%.+-[a-zA-Z][ ]+\\([a-zA-Z0-9.-]+\\)" 1 rpm-spec-doc-face) ("^\\(.+\\)(\\([a-zA-Z]\\{2,2\\}\\)):" (1 rpm-spec-tag-face) (2 rpm-spec-doc-face)) ("^\\*\\(.*[0-9] \\)\\(.*\\)<\\(.*\\)>\\(.*\\)\n" (1 rpm-spec-dir-face) (2 rpm-spec-package-face) (3 rpm-spec-tag-face) (4 rpm-spec-ghost-face)) ("%{[^{}]*}" 0 rpm-spec-macro-face) ("$[a-zA-Z0-9_]+" 0 rpm-spec-var-face) ("${[a-zA-Z0-9_]+}" 0 rpm-spec-var-face)] 18) (#$ . 17499)) (put 'rpm-spec-mode 'font-lock-defaults '(rpm-spec-font-lock-keywords)) #@49 Abbrev table in use in `rpm-spec-mode' buffers. (defvar rpm-spec-mode-abbrev-table nil (#$ . 18991)) (byte-code "\300\301\302\"\210\303\304\305\"\207" [define-abbrev-table rpm-spec-mode-abbrev-table nil add-hook rpm-spec-mode-new-file-hook rpm-spec-initialize] 3) #@365 Major mode for editing RPM spec files. This is much like C mode except for the syntax of comments. It uses the same keymap as C mode and has the same variables for customizing indentation. It has its own abbrev table and its own syntax table. Turning on RPM spec mode calls the value of the variable `rpm-spec-mode-hook' with no args, if that value is non-nil. (defalias 'rpm-spec-mode #[nil "\306 \210\307\310\311\217\210\312\313!\210\314!\210\315\316 \210\n\317\f!\210\312\320!\210\321\322\323\324#\210\325\322!\2040 \326\322\307\"\210\327\322\324 $\210\330 !\210\331 \332U\203K 3\203K \333\334!\210\335\336!\204W \3374\3405\341\342!\210\3436P\"\341\344!\210\"$\341\345!\210\346%\341\347!\210\346'\341\350!\210\351(\341\352!\210\353*\341\354!\210\355,\341\356!\210\357.\341\360!\210\3610\333\362!\207" [rpm-spec-mode-map major-mode rpm-spec-mode-abbrev-table local-abbrev-table rpm-spec-mode-syntax-table rpm-spec-mode-menu kill-all-local-variables nil (byte-code "\300\301!\207" [require shindent] 2) ((error (byte-code "\300\301!\207" [require sh-script] 2))) require cc-mode use-local-map rpm-spec-mode rpm-update-mode-name set-syntax-table easymenu put rpm-spec-call-menu variable-documentation "Post menu for `rpm-spec-mode'." default-boundp set-default easy-menu-do-define easy-menu-add buffer-size 0 run-hooks rpm-spec-mode-new-file-hook executable-find "rpmbuild" "rpm" "--test" make-local-variable paragraph-start "$\\|" paragraph-separate paragraph-ignore-fill-prefix t require-final-newline comment-start "# " comment-end "" comment-column 32 comment-start-skip "#+ *" font-lock-defaults (rpm-spec-font-lock-keywords nil t) rpm-spec-mode-hook rpm-spec-initialize-sections rpm-spec-build-command rpm-spec-nobuild-option page-delimiter] 5 (#$ . 19262) nil]) #@34 Filter to process normal output. (defalias 'rpm-command-filter #[(process string) "\212\302!q\210\212\303!b\210\304 !\210\303!`\305\223*\207" [process string process-buffer process-mark insert-before-markers nil] 3 (#$ . 21058)]) #@210 *If non-nil, \[rpm-add-change-log-entry] will use Universal time (UTC). If this is nil, it uses local time as returned by `current-time'. This variable is global by default, but you can make it buffer-local. (defvar rpm-change-log-uses-utc nil (#$ . -21298)) #@148 Return the date string for today, inserted by \[rpm-add-change-log-entry]. If `rpm-change-log-uses-utc' is nil, "today" means the local time zone. (defalias 'rpm-change-log-date-string #[nil "\301\302\303#\207" [rpm-change-log-uses-utc format-time-string "%a %b %e %Y" nil] 4 (#$ . 21565)]) (put 'rpm-change-log-date-string 'byte-optimizer 'byte-compile-inline-expand) #@45 Find change log and add an entry for today. (defalias 'rpm-add-change-log-entry #[(&optional change-log-entry) "\212\306\307!\210\310 \206 \311 \312\313\314\315\316\f#\317\n\320\321 \205% \322\323\324!P\260 \325\316\324#\204< \326\326\261\210\202? \327y\210\330\326\261-\207" [address rpm-spec-user-full-name fullname system-time-locale rpm-change-log-uses-utc rpm-spec-insert-changelog-version rpm-goto-section "changelog" rpm-spec-user-mail-address user-full-name "C" "* " format-time-string "%a %b %e %Y" nil " " " <" ">" " - " rpm-find-spec-version t search-forward "\n" 2 "- " string change-log-entry] 10 (#$ . 21941) "sChange log entry: "]) #@28 Insert new "%files" entry. (defalias 'rpm-insert-f #[(&optional filetype filename) "\212\306\307!\203\n \310 \210\311=\204 \204# \312 \313P\314\211\315$\316\261\210\202( \316\261\210\317y\210\n\203= \320\f\321 \321\322\261\210) c)\207" [filename filetype rpm-spec-add-attr rpm-default-umask rpm-default-mode rpm-default-owner rpm-goto-section "files" rpm-end-of-section 1 read-file-name "filename: " "" nil "\n" -1 "%attr(" ", " ") " rpm-default-group] 7 (#$ . 22610)]) #@22 Insert regular file. (defalias 'rpm-insert-file #[(&optional filename) "\301\302\"\207" [filename rpm-insert-f ""] 3 (#$ . 23097) "p"]) #@21 Insert config file. (defalias 'rpm-insert-config #[(&optional filename) "\301\302\"\207" [filename rpm-insert-f "%config "] 3 (#$ . 23240) "p"]) #@18 Insert doc file. (defalias 'rpm-insert-doc #[(&optional filename) "\301\302\"\207" [filename rpm-insert-f "%doc "] 3 (#$ . 23392) "p"]) #@20 Insert ghost file. (defalias 'rpm-insert-ghost #[(&optional filename) "\301\302\"\207" [filename rpm-insert-f "%ghost "] 3 (#$ . 23535) "p"]) #@19 Insert directory. (defalias 'rpm-insert-dir #[(&optional dirname) "\301\302\"\207" [dirname rpm-insert-f "%dir "] 3 (#$ . 23684) "p"]) #@23 Insert doc directory. (defalias 'rpm-insert-docdir #[(&optional dirname) "\301\302\"\207" [dirname rpm-insert-f "%docdir "] 3 (#$ . 23826) "p"]) #@157 Read from the minibuffer, with completion. Like `completing-read', but the variable `rpm-spec-completion-ignore-case' controls whether case is significant. (defalias 'rpm-completing-read #[(prompt table &optional pred require init hist) "\306\n \f &)\207" [rpm-spec-completion-ignore-case completion-ignore-case prompt table pred require completing-read init hist] 7 (#$ . 23979)]) #@58 Insert given tag. Use file-completion if argument is t. (defalias 'rpm-insert #[(&optional what file-completion) "\305 \210\204\f \306\307 \"\310\311\"\203 \312\313Q\314P\202' \313P\313P\315\230\2030 \316 \207\317\230\203: \320\317!\207\321\230\203D \320\321!\207\f\203U \322\n\260\323\211\324$\325\261\207 \326\n\260!\325\261\207" [what rpm-tags-list read-text insert-text file-completion beginning-of-line rpm-completing-read "Tag: " string-match "^%" "Packagename for " ": " " " "Group" rpm-insert-group "Source" rpm-insert-n "Patch" read-file-name "" nil "\n" read-from-minibuffer] 6 (#$ . 24374)]) (defalias 'rpm-topdir #[nil "\300\301!\206% \300\302!\206% \303\304!\203 \305\207\303\306!\203 \307\207\303\310!\203$ \310\207\311\207" [getenv "RPM" "rpm" file-directory-p "~/rpm" "~/rpm/" "~/RPM" "~/RPM/" "/usr/src/redhat/" "/usr/src/RPM"] 2]) #@40 Insert given tag with possible number. (defalias 'rpm-insert-n #[(what &optional arg) "\212db\210\303\304\305Q\306\307#\2032 \310\311\312!!T\312y\210\313 \314P\315 !\316\317\320P\321\211\306$\322\261*\202B eb\210\323 \210\316\324\320P!\322\261)\207" [what release default-directory search-backward-regexp "^" "\\([0-9]*\\):" nil t string-to-int match-string 1 rpm-topdir "/SOURCES/" int-to-string ": " read-file-name "file: " "" "\n" rpm-end-of-section read-from-minibuffer] 8 (#$ . 25252)]) #@19 Update given tag. (defalias 'rpm-change #[(&optional what arg) "\212\204\n \302\303 \"\304\230\203 \305 \202P \306\230\203! \307\306!\202P \310\230\203- \307\310!\202P eb\210\311\312\313Q\314\315#\203L \316\317\320\321\317Q\322\323!\"Q!\202P \324\325\")\207" [what rpm-tags-list rpm-completing-read "Tag: " "Group" rpm-change-group "Source" rpm-change-n "Patch" search-forward-regexp "^" ":\\s-*\\(.*\\)$" nil t replace-match ": " read-from-minibuffer "New " match-string 1 message "%s tag not found..."] 7 (#$ . 25759)]) #@40 Change given tag with possible number. (defalias 'rpm-change-n #[(what &optional arg) "\212eb\210\303\304P!\305\306 \307R\310\311#\2032 \312 \313P\314 \315\316\317 \320R\321\211\310\322\323!%R!)\2027 \324\325 #*\207" [what number default-directory read-from-minibuffer " number: " search-forward-regexp "^" ":\\s-*\\(.*\\)" nil t rpm-topdir "/SOURCES/" replace-match ": " read-file-name "New " " file: " "" match-string 1 message "%s number \"%s\" not found..."] 11 (#$ . 26297)]) #@19 Insert Group tag. (defalias 'rpm-insert-group #[(group) "\301 \210\302\303\261\207" [group beginning-of-line "Group: " "\n"] 3 (#$ . 26791) (list (rpm-completing-read "Group: " rpm-group-tags-list))]) #@19 Update Group tag. (defalias 'rpm-change-group #[(&optional arg) "\212eb\210\301\302\303\304#\203 \305\306\307\306\303\211\310\311!%cP!\202 \312\313!)\207" [rpm-group-tags-list search-forward-regexp "^Group: \\(.*\\)$" nil t replace-match "Group: " rpm-completing-read match-string 1 message "Group tag not found..."] 9 (#$ . 27000) "p"]) #@25 Insert or change a tag. (defalias 'rpm-insert-tag #[(&optional arg) "\203 \301 \207\302 \207" [current-prefix-arg rpm-change rpm-insert] 1 (#$ . 27347) "p"]) #@15 Change a tag. (defalias 'rpm-change-tag #[(&optional arg) "\300 \207" [rpm-change] 1 (#$ . 27513) "p"]) #@22 Insert Packager tag. (defalias 'rpm-insert-packager #[(&optional arg) "\301 \210\302\206\n \303 \304\305 \306\261\207" [rpm-spec-user-full-name beginning-of-line "Packager: " user-full-name " <" rpm-spec-user-mail-address ">\n"] 5 (#$ . 27623) "p"]) #@22 Update Packager tag. (defalias 'rpm-change-packager #[(&optional arg) "\300\301!\207" [rpm-change "Packager"] 2 (#$ . 27881) "p"]) (defalias 'rpm-current-section #[nil "\212\300 \210\301 \210o\203 \302\202 \303\224\303\225{)\207" [rpm-forward-section rpm-backward-section "preamble" 1] 2 nil nil]) #@94 Move backward to the beginning of the previous section. Go to beginning of previous section. (defalias 'rpm-backward-section #[nil "\301\302\303#\206\n eb\207" [rpm-section-regexp re-search-backward nil t] 4 (#$ . 28187) nil]) #@92 Move backward to the beginning of the current section. Go to beginning of current section. (defalias 'rpm-beginning-of-section #[nil "\301!\203\n `\206 \302\303\304#\206 eb\207" [rpm-section-regexp looking-at re-search-backward nil t] 4 (#$ . 28421) nil]) #@52 Move forward to the beginning of the next section. (defalias 'rpm-forward-section #[nil "\301u\210\302\301\303#\203 \304y\210`\207db\207" [rpm-section-regexp nil re-search-forward t 0] 4 (#$ . 28687) nil]) #@42 Move forward to the end of this section. (defalias 'rpm-end-of-section #[nil "\301u\210\302\301\303#\203 \304y\210\202 db\210\305\306!\203 \304y\210\202 \307y\210`\207" [rpm-section-regexp nil re-search-forward t -1 looking-at "^\\s-*\\($\\|#\\)" 1] 4 (#$ . 28901) nil]) #@89 Move point to the beginning of the specified section; leave point at previous location. (defalias 'rpm-goto-section #[(section) "\304 \210eb\210\305\232\206H \306\307\310Q\311\312#\206H A\n@\232\2041 \306\307\n@\310Q\311\312#\210\nA\202 \306 \311\312#\203? \313y\210\202B db\210\314\315\261)\207" [section rpm-sections s rpm-section-regexp push-mark "preamble" re-search-forward "^%" "\\b" nil t -1 "\n%" "\n"] 4 (#$ . 29183) (list (rpm-completing-read "Section: " rpm-section-list))]) (defalias 'rpm-mouse-goto-section #[(&optional section) "\205+ \235\203 \302!\207eb\210\303\304\305Q\306\307#\206+ \303\310\306\307#\203) \311y\206+ db\207" [section rpm-sections rpm-goto-section re-search-forward "^%" "\\b" nil t "^%files\\b" -1] 4 nil (byte-code "\302\303\304\305\306\307\"B\310\306\311 \"BE\"\207" [rpm-sections rpm-scripts x-popup-menu nil "sections" "Sections" mapcar #[(e) "\211D\207" [e] 2] "Scripts" #[(e) "\211D\207" [e] 2]] 8)]) (defalias 'rpm-insert-true-prefix #[nil "\300c\207" ["%{prefix}"] 1 nil nil]) #@25 Build this RPM package. (defalias 'rpm-build #[(buildoptions) "\306 \203 \307\310\311\312 \"!\203 \313 \210\314\315 \315\316\n!\314\260\317 !\210\320 !\203, \321 !\210\322 !\210\323 !\210 \nD\f\204@ \203C \32445\203L \325 B6\203U \326 B\f\203] \327 B7\330\232\204r 7\331\232\204r \3327 BB8\331\232\204\200 \3338 BB9\331\232\204\216 \3349 BB \203\227 : B;\203\240 \335 B<\203\251 \336 B=\203\267 4\204\267 \337 B>\203\327 \340\341?\"\203\327 \342?! @\343\344\345\331@#\346Q B)\347\350\351\"\210\352\350 B!\353\"\210=\205 4?\205 \354\320\355\356\357\211#!!\360\361! A B\362BA\363P\"*\207" [rpm-spec-build-command buildoptions buffer-file-name rpm-buffer-name rpm-spec-short-circuit rpm-spec-nobuild buffer-modified-p y-or-n-p format "Buffer %s modified, save it? " buffer-name save-buffer "*" " " file-name-nondirectory rpm-process-check get-buffer kill-buffer create-file-buffer display-buffer t "--rmsource" "--clean" "--short-circuit" "0" "" "--timecheck" "--buildroot" "--target" "--quiet" "--nodeps" "--sign" string-match ".*/SPECS/$" expand-file-name "--define \"_topdir " replace-regexp-in-string "/SPECS/$" "\"" defalias list->string #[(lst) "A\203 @\301\302A!Q\207@\207" [lst " " list->string] 4] compilation-start rpmbuild-mode get-buffer-process compilation-buffer-name "rpmbuild" nil read-passwd "GPG passphrase: " process-send-string "\n" rpm-no-gpg rpm-spec-rmsource rpm-spec-clean rpm-spec-timecheck rpm-spec-buildroot rpm-spec-target rpm-spec-nobuild-option rpm-spec-quiet rpm-spec-nodeps rpm-spec-sign-gpg rpm-spec-auto-topdir default-directory topdir rpm-passwd-cache build-proc] 7 (#$ . 30227)]) #@23 Run a `rpmbuild -bp'. (defalias 'rpm-build-prepare #[(&optional arg) "\203 \303\304 \"\207\305\306\307!\207" [rpm-spec-short-circuit rpm-spec-build-command rpm-no-gpg message "Cannot run `%s -bp' with --short-circuit" t rpm-build "-bp"] 3 (#$ . 31895) "p"]) #@23 Run a `rpmbuild -bl'. (defalias 'rpm-list-check #[(&optional arg) "\203 \303\304 \"\207\305\306\307!\207" [rpm-spec-short-circuit rpm-spec-build-command rpm-no-gpg message "Cannot run `%s -bl' with --short-circuit" t rpm-build "-bl"] 3 (#$ . 32162) "p"]) #@23 Run a `rpmbuild -bc'. (defalias 'rpm-build-compile #[(&optional arg) "\301\302\303!\207" [rpm-no-gpg t rpm-build "-bc"] 2 (#$ . 32426) "p"]) #@23 Run a `rpmbuild -bi'. (defalias 'rpm-build-install #[(&optional arg) "\301\302\303!\207" [rpm-no-gpg t rpm-build "-bi"] 2 (#$ . 32574) "p"]) #@23 Run a `rpmbuild -bb'. (defalias 'rpm-build-binary #[(&optional arg) "\203 \303\304 \"\207\305\306\307!\207" [rpm-spec-short-circuit rpm-spec-build-command rpm-no-gpg message "Cannot run `%s -bb' with --short-circuit" nil rpm-build "-bb"] 3 (#$ . 32722) "p"]) #@23 Run a `rpmbuild -bs'. (defalias 'rpm-build-source #[(&optional arg) "\203 \303\304 \"\207\305\306\307!\207" [rpm-spec-short-circuit rpm-spec-build-command rpm-no-gpg message "Cannot run `%s -bs' with --short-circuit" nil rpm-build "-bs"] 3 (#$ . 32990) "p"]) #@23 Run a `rpmbuild -ba'. (defalias 'rpm-build-all #[(&optional arg) "\203 \303\304 \"\207\305\306\307!\207" [rpm-spec-short-circuit rpm-spec-build-command rpm-no-gpg message "Cannot run `%s -ba' with --short-circuit" nil rpm-build "-ba"] 3 (#$ . 33258) "p"]) #@120 Check if BUFFER has a running process. If so, give the user the choice of aborting the process or the current command. (defalias 'rpm-process-check #[(buffer) "\302\303!!\211\205& \304 !\305=\205& \306\307\310 !\311Q!\203# \312 !\202& \313\314!)\207" [buffer process get-buffer-process get-buffer process-status run yes-or-no-p "Process `" process-name "' running. Kill it? " delete-process error "Cannot run two simultaneous processes ..."] 5 (#$ . 33524)]) #@34 Toggle `rpm-spec-short-circuit'. (defalias 'rpm-toggle-short-circuit #[(&optional arg) "?\301 \210\302\303\203 \304\202 \305\306Q!\207" [rpm-spec-short-circuit rpm-update-mode-name message "Turned `--short-circuit' " "on" "off" "."] 4 (#$ . 33992) "p"]) #@29 Toggle `rpm-spec-rmsource'. (defalias 'rpm-toggle-rmsource #[(&optional arg) "?\301 \210\302\303\203 \304\202 \305\306Q!\207" [rpm-spec-rmsource rpm-update-mode-name message "Turned `--rmsource' " "on" "off" "."] 4 (#$ . 34257) "p"]) #@26 Toggle `rpm-spec-clean'. (defalias 'rpm-toggle-clean #[(&optional arg) "?\301 \210\302\303\203 \304\202 \305\306Q!\207" [rpm-spec-clean rpm-update-mode-name message "Turned `--clean' " "on" "off" "."] 4 (#$ . 34502) "p"]) #@28 Toggle `rpm-spec-nobuild'. (defalias 'rpm-toggle-nobuild #[(&optional arg) "?\302 \210\303\304 \305\203 \306\202 \307\310\260!\207" [rpm-spec-nobuild rpm-spec-nobuild-option rpm-update-mode-name message "Turned `" "' " "on" "off" "."] 6 (#$ . 34735) "p"]) #@26 Toggle `rpm-spec-quiet'. (defalias 'rpm-toggle-quiet #[(&optional arg) "?\301 \210\302\303\203 \304\202 \305\306Q!\207" [rpm-spec-quiet rpm-update-mode-name message "Turned `--quiet' " "on" "off" "."] 4 (#$ . 35003) "p"]) #@29 Toggle `rpm-spec-sign-gpg'. (defalias 'rpm-toggle-sign-gpg #[(&optional arg) "?\301 \210\302\303\203 \304\202 \305\306Q!\207" [rpm-spec-sign-gpg rpm-update-mode-name message "Turned `--sign' " "on" "off" "."] 4 (#$ . 35236) "p"]) #@29 Toggle `rpm-spec-add-attr'. (defalias 'rpm-toggle-add-attr #[(&optional arg) "?\301 \210\302\303\203 \304\202 \305\306Q!\207" [rpm-spec-add-attr rpm-update-mode-name message "Default add \"attr\" entry turned " "on" "off" "."] 4 (#$ . 35477) "p"]) #@27 Toggle `rpm-spec-nodeps'. (defalias 'rpm-toggle-nodeps #[(&optional arg) "?\301 \210\302\303\203 \304\202 \305\306Q!\207" [rpm-spec-nodeps rpm-update-mode-name message "Turned `--nodeps' " "on" "off" "."] 4 (#$ . 35736) "p"]) #@45 Update `mode-name' according to values set. (defalias 'rpm-update-mode-name #[nil "\306 \205 \307\n\205\f \310 \205 \311\f\205 \312 \205 \313\205! \314\205' \315\205- \316\260\211\317\232?\205? \320Q\211\207" [mode-name rpm-spec-add-attr rpm-spec-clean rpm-spec-nodeps rpm-spec-sign-gpg rpm-spec-nobuild "RPM-SPEC" "A" "C" "D" "G" "N" "R" "S" "Q" "" ":" rpm-spec-rmsource rpm-spec-short-circuit rpm-spec-quiet modes] 9 (#$ . 35973)]) #@33 Change the value for timecheck. (defalias 'rpm-change-timecheck-option #[(&optional arg) "\301\302\"\211\207" [rpm-spec-timecheck read-from-minibuffer "New timecheck: "] 3 (#$ . 36431) "p"]) #@33 Change the value for buildroot. (defalias 'rpm-change-buildroot-option #[(&optional arg) "\301\302\"\211\207" [rpm-spec-buildroot read-from-minibuffer "New buildroot: "] 3 (#$ . 36630) "p"]) #@30 Change the value for target. (defalias 'rpm-change-target-option #[(&optional arg) "\301\302\"\211\207" [rpm-spec-target read-from-minibuffer "New target: "] 3 (#$ . 36829) "p"]) #@37 Change the default umask for files. (defalias 'rpm-files-umask #[(&optional arg) "\301\302\"\211\207" [rpm-default-umask read-from-minibuffer "Default file umask: "] 3 (#$ . 37016) "p"]) #@37 Change the default owner for files. (defalias 'rpm-files-owner #[(&optional arg) "\301\302\"\211\207" [rpm-default-owner read-from-minibuffer "Default file owner: "] 3 (#$ . 37211) "p"]) #@30 Change the source directory. (defalias 'rpm-files-group #[(&optional arg) "\301\302\"\211\207" [rpm-default-group read-from-minibuffer "Default file group: "] 3 (#$ . 37406) "p"]) #@32 Increase the release tag by 1. (defalias 'rpm-increase-release-tag #[(&optional arg) "\212eb\210\301\302\303\304#\203. \305\306\307!!T\306\310!\311!\306\312!Q\313\306\314!P!\210\315\316\")\202> \301\317\303\304#\203; \320 \202> \315\321!)\207" [release search-forward-regexp "^\\(Release[ ]*:[ ]*\\)\\(.*[ \\.}]\\)\\([0-9]+\\)\\([ \\.%].*\\|$\\)" nil t string-to-int match-string 3 2 int-to-string 4 replace-match 1 message "Release tag changed to %s." "^Release[ ]*:[ ]*%{?\\([^}]*\\)}?$" rpm-increase-release-with-macros "No Release tag to increase found..."] 4 (#$ . 37594) "p"]) #@91 Get the value of FIELD, searching up to buffer position MAX. See `search-forward-regexp'. (defalias 'rpm-spec-field-value #[(field max) "\212\300\301\302\217)\207" [nil (byte-code "eb\210\305\306\307Q \"\210\310\311!\312\313\n\"\203N \n\314\311\224O\n\315\225\316O eb\210\305\317\310\320\n\"\321Q\316\322#\203< \f\310\323! Q\202J \310\323\n\"\203I \f P\202J \n*\202O \n)\207" [field max str end-string start-string search-forward-regexp "^" ":[ ]*\\(.*?\\)[ ]*$" match-string 1 string-match "\\(%{?\\(\\?\\)?\\)\\([a-zA-Z0-9_]*\\)\\(}?\\)" 0 4 nil "%\\(define\\|global\\)[ ]+" 3 "[ ]+\\(.*\\)" t 2] 5) ((error))] 3 (#$ . 38194)]) #@126 Get the version string. If WITH-EPOCH is non-nil, the string contains the Epoch/Serial value, if one is present in the file. (defalias 'rpm-find-spec-version #[(&optional with-epoch) "\212eb\210\306!\307\310 \"\307\311 \"\307\312 \" \n\205? \313\nGW\205? \f\204+ \307\314 \" \2056 \f\2056 \f\315P\n \205> \316 PQ-\207" [rpm-section-regexp max version release epoch with-epoch search-forward-regexp rpm-spec-field-value "Version" "Release" "Epoch" 0 "Serial" ":" "-"] 4 (#$ . 38838)]) (defalias 'rpm-increase-release-with-macros #[nil "\212eb\210\304\305\306\"\210\307\310!\311\312\"\2036 eb\210\310\224\310\225O\304\313 \314Q!\210 \315\316\317\307\310!!T!\307\320!R\2027 \211\321\322 P!\210\323\324 \"+\207" [str macros inrel dinrel search-forward-regexp "^Release[ ]*:[ ]*\\(.+\\).*$" nil match-string 1 string-match "%{?\\([^}]*\\)}?$" "%define[ ]+" "[ ]+\\(\\([0-9]\\|\\.\\)+\\)\\(.*\\)" " " int-to-string string-to-int 3 replace-match "%define " message "Release tag changed to %s."] 7]) #@63 Create a default spec file if one does not exist or is empty. (defalias 'rpm-spec-initialize #[nil "\306\211\211 \307 \203 \310\307 !\202 \311 \312\313\f\"\314=\2032 \315\316\f\"\315\317\f\"\315\320\f\"\202V \312\321\f\"\314=\203H \315\316\f\"\315\317\f\"\202V \312\322\f\"\314=\203V \315\316\f\" \203\211 \323\324 \206a \325\326\n\206g \325\327 \206m \3255\203{ \330\3315!P\202| \325\332\333\334\335\3366\261\210\202\265 \337\340 \206\220 \325\341\n\206\226 \325\342 \206\234 \3255\203\252 \343\3315!P\202\253 \325\344\345\346\347\3506\261\210\351\352\353\3547\206\277 \325\3558\206\306 \325\3569\206\315 \325\357\360\361\362\261 \210\316\210\363\364!,\207" [rpm-spec-default-release release version name file rpm-spec-indent-heading-values nil buffer-file-name file-name-nondirectory buffer-name string-match "\\(.*\\)-\\([^-]*\\)-\\([^-]*\\).spec" 0 match-string 1 2 3 "\\(.*\\)-\\([^-]*\\).spec" "\\(.*\\).spec" "Summary: " "\nName: " "" "\nVersion: " "\nRelease: " "\nEpoch: " int-to-string "\nLicense: " "\nGroup: " "\nURL: " "\nSource0: %{name}-%{version}.tar.gz" "\nBuildRoot: " "Summary: " "\nName: " "\nVersion: " "\nRelease: " "\nEpoch: " "\nLicense: " "\nGroup: " "\nURL: " "\nSource0: %{name}-%{version}.tar.gz" "\nBuildRoot: " "\n\n%description\n" "\n%prep" "\n%setup -q" "\n\n%build\n" "\n%install\n" "\n%clean\n" "\n\n%files" "\n%defattr(-,root,root,-)" "\n%doc\n" "\n\n%changelog\n" rpm-add-change-log-entry "Initial build." rpm-spec-default-epoch rpm-spec-default-buildroot rpm-spec-default-build-section rpm-spec-default-install-section rpm-spec-default-clean-section] 14 (#$ . 39852)]) #@27 User mail address helper. (defalias 'rpm-spec-user-mail-address #[nil "\203 \207\302\301!\203 \301 \207 \207" [rpm-spec-user-mail-address user-mail-address fboundp] 2 (#$ . 41568)]) #@24 About `rpm-spec-mode'. (defalias 'rpm-about-rpm-spec-mode #[(&optional arg) "\301\302\303Q!\207" [rpm-spec-mode-version message "rpm-spec-mode version " " by Stig Bjørlykke, <stigb@tihlde.org>"] 4 (#$ . 41760) "p"]) (byte-code "\302\303!\210\304\305N\204 \306\304\305\307#\210\310\311!\204 \306\311\312\313#\210\311B\314\311!\204, \315\311\316 \"\210\310\317!\2048 \306\317\312\313#\210\317B\314\317!\204H \315\317\320 \"\210\306\301\312\313#\210\301B\314\301!\204b \315\301\321\301\322\"\210 \"\210\306\313\323\324#\207" [current-load-list rpmbuild-mode-abbrev-table provide rpm-spec-mode rpmbuild-mode-hook variable-documentation put "Hook run when entering RPM build mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp rpmbuild-mode-map definition-name rpmbuild-mode default-boundp set-default make-sparse-keymap rpmbuild-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent compilation-mode] 5) #@188 In addition to any hooks its parent mode `compilation-mode' might have run, this mode runs the hook `rpmbuild-mode-hook', as the final step during initialization. \{rpmbuild-mode-map} (defalias 'rpmbuild-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 !\210\325\f!\210\306\326!\210\307)\327\330!\207" [delay-mode-hooks major-mode mode-name rpmbuild-mode-map rpmbuild-mode-syntax-table parent make-local-variable t compilation-mode rpmbuild-mode "RPM build" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table compilation-disable-input run-mode-hooks rpmbuild-mode-hook rpmbuild-mode-abbrev-table local-abbrev-table] 6 (#$ . 42792) nil])
Close
