File manager

File manager - Edit - /home/rbwebsco/sidrafran2.rb-webs.com/emacs.zip

Back
PK��k�\z�}��#��site-lisp/protobuf/protobuf-mode.elnu��[��;;; protobuf-mode.el --- major mode for editing protocol buffers. ;; Author: Alexandre Vassalotti <alexandre@peadrop.com> ;; Created: 23-Apr-2009 ;; Version: 0.3 ;; Keywords: google protobuf languages ;; Redistribution and use in source and binary forms, with or without ;; modification, are permitted provided that the following conditions are ;; met: ;; ;; * Redistributions of source code must retain the above copyright ;; notice, this list of conditions and the following disclaimer. ;; * Redistributions in binary form must reproduce the above ;; copyright notice, this list of conditions and the following disclaimer ;; in the documentation and/or other materials provided with the ;; distribution. ;; * Neither the name of Google Inc. nor the names of its ;; contributors may be used to endorse or promote products derived from ;; this software without specific prior written permission. ;; ;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT ;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR ;; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT ;; OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, ;; SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT ;; LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, ;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY ;; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE ;; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ;;; Commentary: ;; Installation: ;; - Put `protobuf-mode.el' in your Emacs load-path. ;; - Add this line to your .emacs file: ;; (require 'protobuf-mode) ;; ;; You can customize this mode just like any mode derived from CC Mode. If ;; you want to add customizations specific to protobuf-mode, you can use the ;; `protobuf-mode-hook'. For example, the following would make protocol-mode ;; use 2-space indentation: ;; ;; (defconst my-protobuf-style ;; '((c-basic-offset . 2) ;; (indent-tabs-mode . nil))) ;; ;; (add-hook 'protobuf-mode-hook ;; (lambda () (c-add-style "my-style" my-protobuf-style t))) ;; ;; Refer to the documentation of CC Mode for more information about ;; customization details and how to use this mode. ;; ;; TODO: ;; - Make highlighting for enum values work properly. ;; - Fix the parser to recognize extensions as identifiers and not ;; as casts. ;; - Improve the parsing of option assignment lists. For example: ;; optional int32 foo = 1 [(my_field_option) = 4.5]; ;; - Add support for fully-qualified identifiers (e.g., with a leading "."). ;;; Code: (require 'cc-mode) (eval-when-compile (and (= emacs-major-version 24) (>= emacs-minor-version 4) (require 'cl)) (require 'cc-langs) (require 'cc-fonts)) ;; This mode does not inherit properties from other modes. So, we do not use ;; the usual `c-add-language' function. (eval-and-compile (put 'protobuf-mode 'c-mode-prefix "protobuf-")) ;; The following code uses of the `c-lang-defconst' macro define syntactic ;; features of protocol buffer language. Refer to the documentation in the ;; cc-langs.el file for information about the meaning of the -kwds variables. (c-lang-defconst c-primitive-type-kwds protobuf '("double" "float" "int32" "int64" "uint32" "uint64" "sint32" "sint64" "fixed32" "fixed64" "sfixed32" "sfixed64" "bool" "string" "bytes" "group")) (c-lang-defconst c-modifier-kwds protobuf '("required" "optional" "repeated")) (c-lang-defconst c-class-decl-kwds protobuf '("message" "enum" "service")) (c-lang-defconst c-constant-kwds protobuf '("true" "false")) (c-lang-defconst c-other-decl-kwds protobuf '("package" "import")) (c-lang-defconst c-other-kwds protobuf '("default" "max")) (c-lang-defconst c-identifier-ops ;; Handle extended identifiers like google.protobuf.MessageOptions protobuf '((left-assoc "."))) ;; The following keywords do not fit well in keyword classes defined by ;; cc-mode. So, we approximate as best we can. (c-lang-defconst c-type-list-kwds protobuf '("extensions" "to" "reserved")) (c-lang-defconst c-typeless-decl-kwds protobuf '("extend" "rpc" "option" "returns")) ;; Here we remove default syntax for loops, if-statements and other C ;; syntactic features that are not supported by the protocol buffer language. (c-lang-defconst c-brace-list-decl-kwds ;; Remove syntax for C-style enumerations. protobuf nil) (c-lang-defconst c-block-stmt-1-kwds ;; Remove syntax for "do" and "else" keywords. protobuf nil) (c-lang-defconst c-block-stmt-2-kwds ;; Remove syntax for "for", "if", "switch" and "while" keywords. protobuf nil) (c-lang-defconst c-simple-stmt-kwds ;; Remove syntax for "break", "continue", "goto" and "return" keywords. protobuf nil) (c-lang-defconst c-paren-stmt-kwds ;; Remove special case for the "(;;)" in for-loops. protobuf nil) (c-lang-defconst c-label-kwds ;; Remove case label syntax for the "case" and "default" keywords. protobuf nil) (c-lang-defconst c-before-label-kwds ;; Remove special case for the label in a goto statement. protobuf nil) (c-lang-defconst c-cpp-matchers ;; Disable all the C preprocessor syntax. protobuf nil) (c-lang-defconst c-decl-prefix-re ;; Same as for C, except it does not match "(". This is needed for disabling ;; the syntax for casts. protobuf "\$[\{\};,]+\$") ;; Add support for variable levels of syntax highlighting. (defconst protobuf-font-lock-keywords-1 (c-lang-const c-matchers-1 protobuf) "Minimal highlighting for protobuf-mode.") (defconst protobuf-font-lock-keywords-2 (c-lang-const c-matchers-2 protobuf) "Fast normal highlighting for protobuf-mode.") (defconst protobuf-font-lock-keywords-3 (c-lang-const c-matchers-3 protobuf) "Accurate normal highlighting for protobuf-mode.") (defvar protobuf-font-lock-keywords protobuf-font-lock-keywords-3 "Default expressions to highlight in protobuf-mode.") ;; Our syntax table is auto-generated from the keyword classes we defined ;; previously with the `c-lang-const' macro. (defvar protobuf-mode-syntax-table nil "Syntax table used in protobuf-mode buffers.") (or protobuf-mode-syntax-table (setq protobuf-mode-syntax-table (funcall (c-lang-const c-make-mode-syntax-table protobuf)))) (defvar protobuf-mode-abbrev-table nil "Abbreviation table used in protobuf-mode buffers.") (defvar protobuf-mode-map nil "Keymap used in protobuf-mode buffers.") (or protobuf-mode-map (setq protobuf-mode-map (c-make-inherited-keymap))) (easy-menu-define protobuf-menu protobuf-mode-map "Protocol Buffers Mode Commands" (cons "Protocol Buffers" (c-lang-const c-mode-menu protobuf))) ;;;###autoload (add-to-list 'auto-mode-alist '("\\.proto\\'" . protobuf-mode)) ;;;###autoload (defun protobuf-mode () "Major mode for editing Protocol Buffers description language. The hook `c-mode-common-hook' is run with no argument at mode initialization, then `protobuf-mode-hook'. Key bindings: \\{protobuf-mode-map}" (interactive) (kill-all-local-variables) (set-syntax-table protobuf-mode-syntax-table) (setq major-mode 'protobuf-mode mode-name "Protocol-Buffers" local-abbrev-table protobuf-mode-abbrev-table abbrev-mode t) (use-local-map protobuf-mode-map) (c-initialize-cc-mode t) (if (fboundp 'c-make-emacs-variables-local) (c-make-emacs-variables-local)) (c-init-language-vars protobuf-mode) (c-common-init 'protobuf-mode) (easy-menu-add protobuf-menu) (c-run-mode-hooks 'c-mode-common-hook 'protobuf-mode-hook) (c-update-modeline)) (provide 'protobuf-mode) ;;; protobuf-mode.el ends here PK��k�\c�C��$��site-lisp/protobuf/protobuf-mode.elcnu��[��;ELC�� ;;; Compiled ;;; in Emacs version 26.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305#\210\306\307\310\311B\312B\313#\210\306\314\315\316B\312B\317#\210\306\320\321\322B\312B\323#\210\306\324\325\326B\312B\327#\210\306\330\331\332B\312B\333#\210\306\334\335\336B\312B\337#\210\306\340\341\342B\312B\343#\210\306\344\345\346B\312B\347#\210\306\350\351\352B\312B\353#\210\306\354\355\356B\312B\357#\210\306\360\361\362B\312B\363#\210\306\364\365\366B\312B\367#\210\306\370\371\372B\312B\373#\210\306\374\375\376B\312B\377#\210\306\201@�\201A�\201B�B\312B\201C�#\210\306\201D�\201E�\201F�B\312B\201G�#\210\306\201H�\201I�\201J�B\312B\201K�#\210\306\201L�\201M�\201N�B\312B\201O�#\207" [require cc-mode put protobuf-mode c-mode-prefix "protobuf-" c-define-lang-constant c-primitive-type-kwds (protobuf-mode) #[nil "\300\207" [("double" "float" "int32" "int64" "uint32" "uint64" "sint32" "sint64" "fixed32" "fixed64" "sfixed32" "sfixed64" "bool" "string" "bytes" "group")] 1] nil (cc-langs) c-modifier-kwds (protobuf-mode) #[nil "\300\207" [("required" "optional" "repeated")] 1] (cc-langs) c-class-decl-kwds (protobuf-mode) #[nil "\300\207" [("message" "enum" "service")] 1] (cc-langs) c-constant-kwds (protobuf-mode) #[nil "\300\207" [("true" "false")] 1] (cc-langs) c-other-decl-kwds (protobuf-mode) #[nil "\300\207" [("package" "import")] 1] (cc-langs) c-other-kwds (protobuf-mode) #[nil "\300\207" [("default" "max")] 1] (cc-langs) c-identifier-ops (protobuf-mode) #[nil "\300\207" [((left-assoc "."))] 1] (cc-langs) c-type-list-kwds (protobuf-mode) #[nil "\300\207" [("extensions" "to" "reserved")] 1] (cc-langs) c-typeless-decl-kwds (protobuf-mode) #[nil "\300\207" [("extend" "rpc" "option" "returns")] 1] (cc-langs) c-brace-list-decl-kwds (protobuf-mode) #[nil "\300\207" [nil] 1] (cc-langs) c-block-stmt-1-kwds (protobuf-mode) #[nil "\300\207" [nil] 1] (cc-langs) c-block-stmt-2-kwds (protobuf-mode) #[nil "\300\207" [nil] 1] (cc-langs) c-simple-stmt-kwds (protobuf-mode) #[nil "\300\207" [nil] 1] (cc-langs) c-paren-stmt-kwds (protobuf-mode) #[nil "\300\207" [nil] 1] (cc-langs) c-label-kwds (protobuf-mode) #[nil "\300\207" [nil] 1] (cc-langs) c-before-label-kwds (protobuf-mode) #[nil "\300\207" [nil] 1] (cc-langs) c-cpp-matchers (protobuf-mode) #[nil "\300\207" [nil] 1] (cc-fonts) c-decl-prefix-re (protobuf-mode) #[nil "\300\207" [#1="\$[{};,]+\$"] 1 #1#] (cc-langs)] 4) #@41 Minimal highlighting for protobuf-mode. (defconst protobuf-font-lock-keywords-1 (byte-code "\301=?\205\f�\302\303\304\305#\207" [c-version-sym 5\.33\.1 c-get-lang-constant c-matchers-1 (cc-fonts) protobuf-mode] 4) (#$ . 2749)) #@45 Fast normal highlighting for protobuf-mode. (defconst protobuf-font-lock-keywords-2 (byte-code "\301=\203�\302\207\303\304\305\306#\207" [c-version-sym 5\.33\.1 (#[#1=(limit) "\303\300!\304\305 \306#\203&�\307\224b\210\310 !\204�\307\225b\210\311 \312\216\313 \210\202�)\314\207" [parse-sexp-lookup-properties limit save-match-data-internal boundp re-search-forward ".\$\\s\"\\\|\\s\|\$" t 0 c-skip-comments-and-strings match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] c-font-lock-invalid-string nil] 4] c-font-lock-invalid-single-quotes (eval list "\\<\$\\(?:\\(?:fals\\\|tru\$e\\)\\)\\>" 1 c-constant-face-name) ("\\<\$\\(?:case\\\|default\\\|e\\(?:num\\\|xten\\(?:d\\\|sions\$\\)\\\|import\\\|m\$?:ax\\\|essage\$\\\|option\$?:al\$?\\\|package\\\|r\$?:e\\(?:peated\\\|quired\\\|served\\\|turns?\$\\\|pc\\)\\\|service\\\|t\$?:o\\\|ypedef\$\\)\\)\$[^[:alnum:]_$]\\\|$\$" 1 font-lock-keyword-face) (#[(limit) "\302\303\304#\205�\305\224b\210\306!\204��\307\310\224\311\"\204#�\312\310\224\310\225\311 $\210\313\225b\210\202��\207" [limit c-reference-face-name re-search-forward "\$\\<\\([[:alpha:]_][[:alnum:]_$]\$\$\\s \\\|[\n ]\$\$\\.\$\$\\s \\\|[\n ]\$\\)\$[[:alpha:]_]\$" t 0 c-skip-comments-and-strings get-text-property 2 face put-text-property 1] 5]) (eval list "\$!\$[^=]" 1 c-negation-char-face-name) (eval list #[#1# "\304\300!\305 \n\306#\203J�\307\224b\210\310\n!\204�\307\225b\210\311 \312\216\313\314\224\314\225\315\316$\210\311 \317\216\314\225b\210\320 \210\311 \321\216\322\n\306\323\211$\210\314\225b\210\202�)\323\207" [parse-sexp-lookup-properties c-known-type-key limit save-match-data-internal boundp re-search-forward t 0 c-skip-comments-and-strings match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] put-text-property 1 face font-lock-type-face #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] c-forward-sws #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] c-font-lock-declarators nil] 5]) (#[#1# "\303\300!\304\305 \306#\203;�\307\224b\210\310 !\204�\307\225b\210\311 \312\216\313\225b\210\314 \210\311 \315\216\316 \306\317\211$\210\313\225b\210\202�)\317\207" [parse-sexp-lookup-properties limit save-match-data-internal boundp re-search-forward "\\<\$\\(?:extend\\\|option\\\|r\\(?:eturns\\\|pc\$\\)\\)\\>" t 0 c-skip-comments-and-strings match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 1 c-forward-sws #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] c-font-lock-declarators nil] 5]) (#[(limit) "\306\301!\307\310!`\311!@\312=\203�`\202�\n)b\210\313\314\315#\203R�\316\224b\210\317!\204�\316\225b\210\320 \321\216\315\322\315\323\324!\210`V\203K�b\210\325 \210-\202�\322\207" [BOD-limit parse-sexp-lookup-properties here limit save-match-data-internal c-promote-possible-types boundp c-determine-limit 1000 c-beginning-of-decl-1 same re-search-forward "\\<\$\\(?:extensions\\\|reserved\\\|to\$\\)\\>" t 0 c-skip-comments-and-strings match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] nil c-forward-keyword-clause 1 c-fontify-recorded-types-and-refs c-record-ref-identifiers c-record-type-identifiers] 4])) c-get-lang-constant c-matchers-2 (cc-fonts) protobuf-mode] 4) (#$ . 2983)) #@49 Accurate normal highlighting for protobuf-mode. (defconst protobuf-font-lock-keywords-3 (byte-code "\301=\203�\302\207\303\304\305\306#\207" [c-version-sym 5\.33\.1 (#[(limit) "\303\300!\304\305 \306#\203&�\307\224b\210\310 !\204�\307\225b\210\311 \312\216\313 \210\202�)\314\207" [parse-sexp-lookup-properties limit save-match-data-internal boundp re-search-forward ".\$\\s\"\\\|\\s\|\$" t 0 c-skip-comments-and-strings match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] c-font-lock-invalid-string nil] 4] c-font-lock-invalid-single-quotes (eval list "\\<\$\\(?:\\(?:fals\\\|tru\$e\\)\\)\\>" 1 c-constant-face-name) ("\\<\$\\(?:case\\\|default\\\|e\\(?:num\\\|xten\\(?:d\\\|sions\$\\)\\\|import\\\|m\$?:ax\\\|essage\$\\\|option\$?:al\$?\\\|package\\\|r\$?:e\\(?:peated\\\|quired\\\|served\\\|turns?\$\\\|pc\\)\\\|service\\\|t\$?:o\\\|ypedef\$\\)\\)\$[^[:alnum:]_$]\\\|$\$" 1 font-lock-keyword-face) (#[(limit) "\302\303\304#\205�\305\224b\210\306!\204��\307\310\224\311\"\204#�\312\310\224\310\225\311 $\210\313\225b\210\202��\207" [limit c-reference-face-name re-search-forward "\$\\<\\([[:alpha:]_][[:alnum:]_$]\$\$\\s \\\|[\n ]\$\$\\.\$\$\\s \\\|[\n ]\$\\)\$[[:alpha:]_]\$" t 0 c-skip-comments-and-strings get-text-property 2 face put-text-property 1] 5]) (eval list "\$!\$[^=]" 1 c-negation-char-face-name) c-font-lock-complex-decl-prepare c-font-lock-cut-off-declarators c-font-lock-declarations c-font-lock-enclosing-decls ("\\<\$\\(?:b\\(?:ool\\\|ytes\$\\\|double\\\|f\$?:ixed\\(?:32\\\|64\$\\\|loat\\)\\\|group\\\|int\$?:32\\\|64\$\\\|s\$?:fixed\\(?:32\\\|64\$\\\|int\$?:32\\\|64\$\\\|tring\\)\\\|uint\$?:32\\\|64\$\\)\\)\\>" 1 'font-lock-type-face) (#[(limit) "\306\301!\307\310!`\311!@\312=\203�`\202�\n)b\210\313\314\315#\203R�\316\224b\210\317!\204�\316\225b\210\320 \321\216\315\322\315\323\324!\210`V\203K�b\210\325 \210-\202�\322\207" [BOD-limit parse-sexp-lookup-properties here limit save-match-data-internal c-promote-possible-types boundp c-determine-limit 1000 c-beginning-of-decl-1 same re-search-forward "\\<\$\\(?:extensions\\\|reserved\\\|to\$\\)\\>" t 0 c-skip-comments-and-strings match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] nil c-forward-keyword-clause 1 c-fontify-recorded-types-and-refs c-record-ref-identifiers c-record-type-identifiers] 4])) c-get-lang-constant c-matchers-3 (cc-fonts) protobuf-mode] 4) (#$ . 6402)) #@52 Default expressions to highlight in protobuf-mode. (defvar protobuf-font-lock-keywords protobuf-font-lock-keywords-3 (#$ . 8876)) #@45 Syntax table used in protobuf-mode buffers. (defvar protobuf-mode-syntax-table nil (#$ . 9012)) (byte-code "\204� \302=\203�\303\202�\304\305\306\307# \302\207" [protobuf-mode-syntax-table c-version-sym 5\.33\.1 (lambda nil (let ((table (make-syntax-table))) (c-populate-syntax-table table) nil table)) c-get-lang-constant c-make-mode-syntax-table (cc-langs) protobuf-mode] 4) #@51 Abbreviation table used in protobuf-mode buffers. (defvar protobuf-mode-abbrev-table nil (#$ . 9400)) #@39 Keymap used in protobuf-mode buffers. (defvar protobuf-mode-map nil (#$ . 9508)) (byte-code "\204�\301 \301\207" [protobuf-mode-map c-make-inherited-keymap] 1) #@32 Protocol Buffers Mode Commands (defvar protobuf-menu nil (#$ . 9677)) (byte-code "\302\303\304\305 \306=\203�\307\202�\310\311\312\313#B$\207" [protobuf-mode-map c-version-sym easy-menu-do-define protobuf-menu "Protocol Buffers Mode Commands" "Protocol Buffers" 5\.33\.1 (["Comment Out Region" comment-region (c-fn-region-is-active-p)] ["Uncomment Region" (comment-region (region-beginning) (region-end) '(4)) (c-fn-region-is-active-p)] ["Indent Expression" c-indent-exp (memq (char-after) '(40 91 123))] ["Indent Line or Region" c-indent-line-or-region t] ["Fill Comment Paragraph" c-fill-paragraph t] "----" ["Backward Statement" c-beginning-of-statement t] ["Forward Statement" c-end-of-statement t] ["Up Conditional" c-up-conditional t] ["Backward Conditional" c-backward-conditional t] ["Forward Conditional" c-forward-conditional t] "----" ["Macro Expand Region" c-macro-expand (c-fn-region-is-active-p)] ["Backslashify" c-backslash-region (c-fn-region-is-active-p)] "----" ("Style..." ["Set Style..." c-set-style t] ["Show Current Style Name" (message "Style Name: %s" c-indentation-style) t] ["Guess Style from this Buffer" c-guess-buffer-no-install t] ["Install the Last Guessed Style..." c-guess-install (and c-guess-guessed-offsets-alist c-guess-guessed-basic-offset)] ["View the Last Guessed Style" c-guess-view (and c-guess-guessed-offsets-alist c-guess-guessed-basic-offset)]) "----" ("Toggle..." ["Syntactic indentation" c-toggle-syntactic-indentation :style toggle :selected c-syntactic-indentation] ["Electric mode" c-toggle-electric-state :style toggle :selected c-electric-flag] ["Auto newline" c-toggle-auto-newline :style toggle :selected c-auto-newline] ["Hungry delete" c-toggle-hungry-state :style toggle :selected c-hungry-delete-key] ["Subword mode" c-subword-mode :style toggle :selected (and (boundp 'c-subword-mode) c-subword-mode)])) c-get-lang-constant c-mode-menu (cc-langs) protobuf-mode] 9) #@205 Major mode for editing Protocol Buffers description language. The hook `c-mode-common-hook' is run with no argument at mode initialization, then `protobuf-mode-hook'. Key bindings: \{protobuf-mode-map} (defalias 'protobuf-mode #[nil "\306 \210\307!\210\310\311\312\313@!\210\314\312!\210\315\316!\2036�\317\320!\210\317\321!\210\317\322!\210\317\323!\210\317\324!\210\317\325!\210\310\326\211ABC\317\320!\210\317\321!\210\317\322!\210\317\323!\210\317\324!\210\317\325!\210\3271\215D\330=\203V\320B\331\321B\332\322B\333\323B\326\324B\334\325B\335\336B\326\337B\326\340B\341 \342B\343\344\211EEC\204\253�\345\346!\210C\347N\211F\204\273�\345\350C\"\210\351FEP!J)! \326GHIH\203\354�H@GHAH\352G@GAI#\210\202\317�I+\"\353B\326\211J<\203J\202JC)+\354B\355\211J<\203J\202JC),\356B\357\211J<\203-J\2020JC).\360B\3260\361B\3261\362B\3262\363B\3263\364B\3264\365B\3665\367B\3707\371B\3729\373B\374;\375B\376=\377B\201\335�?\201K�B\366K\201L�B\201\336�L\201M�B\326M\201N�B\326N\201O�B\201\337�O\201P�B\201\340�P\201Q�B\201\341�Q\201R�B\201\342�R\201S�B\201\343�S\201T�B\201\344�T\201U�B\201\345�U\201V�B\201\346�V\201W�B\201\347�W\201X�B\326X\201Y�B\326Y\201Z�B\201\350�Z\201[�B\201\351�[\201\\�B\201\352�\\\201]�B\201\353�]\201^�B\201\354�^\201_�B\201\355�_\201`�B\201\356�`\201a�B\201\357�a\201b�B\201\360�b\201c�B\201\361�c\201d�B\201\354�d\201e�B\201\362�e\201f�B\201\363�f\201g�B\201\350�g\201h�B\201\354�h\201i�B\201\354�i\201j�B\201\364�j\201k�B\201\365�k\201l�B\201\366�l\201m�B\201\367�m\201n�B\201\370�n\201o�B\201\371�o\201p�B\201\372�p\201q�B\201\373�q\201r�B\201\366�r\201s�B\201\374�s\201t�B\201\354�t\201u�B\326u\201v�B\201\375�v\201w�B\201\376�w\201x�B\201\377�x\201y�B\201�y\201z�B\201�z\201{�B\201{\201\|�B\201\|\201}�B\201}\201~�B\201\350�~\201�B\201\350�\201\200�B\201\350�\200\201\201�B\326\201\201\202�B\326\202\201\203�B\326\203\201\204�B\201\350�\204\201\205�B\201\205\201\206�B\201\350�\206\201\207�B\201\350�\207\201\210�B\326\210\201\211�B\201\350�\211\201\212�B\201\201\326\"\212\201\213�B\201\213\201\214�B\201\350�\214\201\215�B\201\215\201\216�B\201\216\201\217�B\201\217\201\220�B\201 \220\201\221�B\201\350�\221\201\222�B\326\222\201\223�B\326\223\201\224�B\201\350�\224\201\225�B\201\350�\225\201\226�B\326\226\201\227�B\201\350�\227\201\230�B\201\350�\230\201\231�B\201\350�\231\201\232�B\201\350�\232\201\233�B\201\350�\233\201\234�B\201\350�\234\201\235�B\326\235\201\236�B\201\350�\236\201\237�B\201\350�\237\201\240�B\326\240\201\241�B\201\n\241\201\242�B\201\350�\242\201\243�B\326\243\201\244�B\201\244\201\245�B\201\f\245\201\246�B\201\246\201\247�B\326\247\201\250�B\201 \250\201\255�B\201\251\326\211\252\253\201\251G\201_\201\"\254\251\203Z\251@@\252\251@A\253\251A\251\201\351\252\254\"\201\201\201\201\253\"\"\"\210\202&\254,\255\201\256�B\201\256\201\257�B\201\257\201\260�B\201\354�\260\201\261�B\201\261\201\262�B\366\262\201\263�B\201\263\201\264�B\201\264\201\265�B\201\265\201\266�B\201\354�\266\201\267�B\201\354�\267\201\270�B\201\270\201\271�B\201\271\201\272�B\201\272\201\273�B\326\273\201\274�B\326\274\201\300�B\201\201EC\204\345\346!\210C\347N\211F\204\345\350C\"\210\351FEP!!\205L\201\211EEC\2042\345\346!\210C\347N\211F\204B\345\350C\"\210\351FEP!J)\275\201 \326\201\201!\275\"\"\276\201 \326\201\201\"\275\"\"\277\201#\201$\201%\201&\326\201%\201'\277\"\"C\276\"\201(\"\201)Q+\300\201\301�B\326\301\201\302�B\326\302\201\303�B\201\354�\303\201\304�B\326\304\201\305�B\326\305\201\306�B\201\306\201\307�B\201\354�\307\201\310�B\326\310\201\311�B\326\311\201\312�B\326\312\201\313�B\326\313\201\314�B\326\314\201\315�B\326\315\201\316�B\326\316\201\317�B\201+\317\201\320�B\201 \320\201\321�B\201\354�\321\201\322�B\326\322\201\323�B\326\323\201\324�B\326\324\201\325�B\326\325\201\326�B\201,\211\326\202\211\312A\201-\211\327\326\330\211\331\205\210\331@\211\330@B\330@\201.\330A@!L\210\331A\211\331\204h\326+0\202\303\332B\203\270\201/\2010BA\203\261\2011\2012\310\2013\333$\202\262\332\332$\202\302\2014\332@\332A\")\210+\2015\310!\210\2016\334!\210\2017\2018\2019\"\210\201: \207" [protobuf-mode-syntax-table major-mode mode-name protobuf-mode-abbrev-table local-abbrev-table abbrev-mode kill-all-local-variables set-syntax-table protobuf-mode "Protocol-Buffers" t use-local-map c-initialize-cc-mode fboundp c-make-emacs-variables-local make-local-variable comment-start comment-end comment-start-skip comment-end-can-be-escaped beginning-of-defun-function end-of-defun-function nil (error) 5\.33\.1 "// " "" "\$//+\\\|/\\+\$\\s " c-beginning-of-defun c-end-of-defun c++-template-syntax-table c-no-parens-syntax-table c-identifier-syntax-modifications ((95 . "w") (36 . "w")) c-identifier-syntax-table copy-syntax-table #17="mode-syntax-table" error "Not inside a CC Mode based mode" c-mode-prefix "%S has no mode prefix known to `c-mode-symbol'" intern modify-syntax-entry c-get-state-before-change-functions c-before-font-lock-functions (c-depropertize-new-text c-change-expand-fl-region) c-before-context-fontification-functions c-context-expand-fl-region c-at-vsemi-p-fn c-vsemi-status-unknown-p-fn c-has-bitfields c-has-quoted-numbers c-modified-constant c-symbol-start "[[:alpha:]_]" c-symbol-chars "[:alnum:]_$" c-symbol-char-key "[[:alnum:]_$]+" c-symbol-key "[[:alpha:]_][[:alnum:]_$]" c-nonsymbol-chars "^[:alnum:]_$" c-opt-identifier-concat-key protobuf-mode-map source-eval current-var c-buffer-is-cc-mode c-version-sym suffix mode-prefix mod mods table fs c-identifier-start c-identifier-key c-string-escaped-newlines c-multiline-string-start-char c-opt-cpp-symbol c-opt-cpp-prefix c-anchored-cpp-prefix c-opt-cpp-start c-opt-cpp-macro-define c-opt-cpp-macro-define-start c-opt-cpp-macro-define-id c-cpp-expr-intro-re c-cpp-expr-functions-key c-overloadable-operators-regexp c-opt-op-identifier-prefix c-ambiguous-overloadable-or-identifier-prefix-re c-nonsymbol-token-regexp c-assignment-op-regexp c-arithmetic-op-regexp c-:$-multichar-token-regexp c-<>-multichar-token-regexp c-<-op-cont-regexp c->-op-cont-regexp c->-op-without->-cont-regexp c-multichar->-op-not->>-regexp c-:-op-cont-regexp c-stmt-delim-chars c-stmt-delim-chars-with-comma c-pack-key c-auto-ops-re c-haskell-op-re c-pre-start-tokens c-pre-lambda-tokens-re c-line-comment-starter c-block-comment-starter c-block-comment-ender c-block-comment-ender-regexp c-comment-start-regexp c-block-comment-start-regexp c-line-comment-start-regexp c-literal-start-regexp c-doc-comment-start-regexp c-block-comment-is-default c-syntactic-ws-start c-syntactic-ws-end c-syntactic-eol c-paragraph-start c-paragraph-separate c-return-key c-primitive-type-key c-typedef-key c-typeof-key c-template-typename-key c-type-prefix-key c-opt-type-modifier-prefix-key c-opt-type-modifier-key c-opt-type-component-key c-type-decl-suffix-ws-ids-key c-class-key c-brace-list-key c-after-brace-list-key c-recognize-post-brace-list-type-p c-other-decl-block-key c-other-decl-block-key-in-symbols-alist c-typedef-decl-key c-decl-hangon-key c-prefix-spec-kwds-re c-specifier-key c-not-decl-init-keywords c-not-primitive-type-keywords-regexp c-protection-key c-post-protection-token c-opt-block-decls-with-vars-key c-postfix-decl-spec-key c-make-top-level-key c-colon-type-list-re c-paren-nontype-key c-opt-<>-sexp-key c-inside-<>-type-key c-block-stmt-1-key c-block-stmt-1-2-key c-block-stmt-2-key c-opt-block-stmt-key c-simple-stmt-key c-paren-stmt-key c-opt-asm-stmt-key c-case-kwds-regexp c-label-kwds-regexp c-opt-inexpr-brace-list-key c-brace-stack-thing-key c-brace-stack-no-semi-key c-decl-block-key c-opt-bitfield-key c-keywords-regexp alist kwd lang-const-list obarray c-keywords-obarray c-regular-keywords-regexp c-primary-expr-regexp c-decl-start-colon-kwd-re c-decl-prefix-re c-decl-start-re c-decl-prefix-or-start-re c-cast-parens c-block-prefix-charset c-type-decl-prefix-key c-type-decl-operator-prefix-key c-type-decl-suffix-key c-after-suffixed-type-decl-key c-after-suffixed-type-maybe-decl-key c-opt-type-concat-key c-opt-type-suffix-key extra-types regexp-strings plain-strings c-known-type-key c-special-brace-lists c-recognize-knr-p c-pre-id-bracelist-key c-recognize-typeless-decls c-recognize-<>-arglists c-<>-notable-chars-re c-enum-clause-introduction-re c-enums-contain-decls c-recognize-paren-inits c-recognize-paren-inexpr-blocks c-opt-<>-arglist-start c-opt-<>-arglist-start-in-paren c-opt-postfix-decl-spec-key c-recognize-colon-labels c-label-prefix-re c-nonlabel-token-key c-nonlabel-token-2-key c-opt-extra-label-key c-opt-friend-key c-opt-method-key c-type-decl-end-used c-maybe-decl-faces init var-init --dolist-tail-- err c-version protobuf-menu "\$\\.\$" "\$[[:alpha:]_][[:alnum:]_$]\$\$\\(\\s \\\|[\n ]\$\$\\.\$\$\\s \\\|[\n ]\$\$[[:alpha:]_][[:alnum:]_$]\$\\)" "#" "\\s #\\s " "^\\s \$#\$\\s " "\\s #\\s \$[[:alnum:]]+\$" "define" "\\s #\\s define[ ]+\$\\(\\sw\\\|_\$+\\)\$([^)])\$?\$[ ]\\\|\\\\\n\$" "\\s #\\s define[ ]+\$\\sw\\\|_\$+" "\\s #\\s \$\\(?:\\(?:el\$?if\\)\\)\$[^[:alnum:]_$]\\\|$\$" "\$\\(?:defined\$\\)\$[^[:alnum:]_$]\\\|$\$" "\$\\<\\>\$" "\$?:!=\\\|##\\\|%=\\\|&[&=]\\\|\\[/=]\\\|\\+[+=]\\\|-[=>-]\\\|/[/=]\\\|<\\(?:<=\\\|[<=]\$\\\|==\\\|>\$?:>=\\\|[=>]\$\\\|\\^=\\\|\|[=\|]\\\|[!#%&+,./:-?\|~^-]\\)" "=\$[^=]\\\|$\$\\\|\$?:\\(?:<<\\\|>>\\\|[%&+/\|^-]\$=\\)" "\$?:!=\\\|%=\\\|&[&=]\\\|\\=\\\|\\+=\\\|-=\\\|/=\\\|<\\(?:<=\\\|[<=]\$\\\|==\\\|>\$?:>=\\\|[=>]\$\\\|\\^=\\\|\|[=\|]\\\|[%&+/<=>\|^-]\\)" "\\<\\>" "\$?:->\\\|<\\(?:<=\\\|[<=]\$\\\|>\$?:>=\\\|[=>]\$\\)" "\$?:<=\\\|[<=]\$" "\$?:>=\\\|[=>]\$" "=" "\$?:->\\\|>\\(?:>?=\$\\)" "^;{}?:" "^;,{}?:" (";" "{" "}") "\$?:!=\\\|%=\\\|&[&=]\\\|\\[/=]\\\|\\+[+=]\\\|-[=-]\\\|/[/=]\\\|<\\(?:<=\\\|[<=]\$\\\|==\\\|>\$?:>=\\\|[=>]\$\\\|\\^=\\\|\|[=\|]\\\|[!%&(+,/:-?[{-~^-]\\)" "//" "/" "/" "\\/" "\$?:/[/]\$\\\|\\s!" "/\\" "\$?:/[/]\$\\\|\\s!\\\|\"\|" "\\s \\\|\$?:/[/]\\\|[\n #]\$\\\|\\\\[\n ]\\\|\\s!" "\\s \\\|[\n /]\\\|\\s!" "\\s \$/\\[^\n ]\\(\\+[^\n /][^\n ]\$\\+/\\s \\)\$//\\\|/\\[^\n ]\\(\\+[^\n /][^\n ]\$$\\\|\\\\$\\\|$\\)" "$" "\$\\(?:return\$\\)\$[^[:alnum:]_$]\\\|$\$" "\$\\(?:b\\(?:ool\\\|ytes\$\\\|double\\\|f\$?:ixed\\(?:32\\\|64\$\\\|loat\\)\\\|group\\\|int\$?:32\\\|64\$\\\|s\$?:fixed\\(?:32\\\|64\$\\\|int\$?:32\\\|64\$\\\|tring\\)\\\|uint\$?:32\\\|64\$\\)\\)\$[^[:alnum:]_$]\\\|$\$" "\$\\(?:typedef\$\\)\$[^[:alnum:]_$]\\\|$\$" "\$\\(?:enum\\\|\\(?:messag\\\|servic\$e\\)\\)\$[^[:alnum:]_$]\\\|$\$" mapcar #[#18=(elt) "\211\301\230\203�\302\202�\303\304P!B\207" [elt #19="extern" inextern-lang intern #20="in"] 4] "\$\\(?:e\\(?:num\\\|xtend\$\\\|import\\\|message\\\|option\$?:al\$?\\\|package\\\|r\$?:e\\(?:peated\\\|quired\\\|turns\$\\\|pc\\)\\\|service\\)\\)\$[^[:alnum:]_$]\\\|$\$" "\$\\(?:case\\\|default\\\|extensions\\\|false\\\|max\\\|re\\(?:served\\\|turn\$\\\|t\$?:o\\\|rue\\\|ypedef\$\\)\\)\$[^[:alnum:]_$]\\\|$\$" "\$\\(?:case\\\|default\\\|e\\(?:num\\\|xten\\(?:d\\\|sions\$\\)\\\|false\\\|import\\\|m\$?:ax\\\|essage\$\\\|option\$?:al\$?\\\|package\\\|r\$?:e\\(?:peated\\\|quired\\\|served\\\|turns?\$\\\|pc\\)\\\|service\\\|t\$?:o\\\|rue\\\|ypedef\$\\)\\)\$[^[:alnum:]_$]\\\|$\$" "\$\\(?:case\$\\)\$[^[:alnum:]_$]\\\|$\$" "\$\\(?:\\(?:enum\\\|\\(?:messag\\\|servic\$e\\)\\>\\\|[),:;{}]\\)\\)" "\$\\(?:enum\\>\\\|message\\>\\\|service\\>\\\|[{}]\$\\)" "\$\\(?:b\\(?:ool\\\|ytes\$\\\|case\\\|d\$?:efault\\\|ouble\$\\\|e\$?:num\\\|xten\\(?:d\\\|sions\$\\)\\\|f\$?:alse\\\|ixed\\(?:32\\\|64\$\\\|loat\\)\\\|group\\\|i\$?:mport\\\|nt\\(?:32\\\|64\$\\)\\\|m\$?:ax\\\|essage\$\\\|option\$?:al\$?\\\|package\\\|r\$?:e\\(?:peated\\\|quired\\\|served\\\|turns?\$\\\|pc\\)\\\|s\$?:ervice\\\|fixed\\(?:32\\\|64\$\\\|int\$?:32\\\|64\$\\\|tring\\)\\\|t\$?:o\\\|rue\\\|ypedef\$\\\|uint\$?:32\\\|64\$\\)\\)\$[^[:alnum:]_$]\\\|$\$" (("case" c-case-kwds) ("false" c-constant-kwds) ("true" c-constant-kwds) (#16="group" c-type-start-kwds c-primitive-type-kwds) (#15="bytes" c-type-start-kwds c-primitive-type-kwds) (#14="string" c-type-start-kwds c-primitive-type-kwds) (#13="bool" c-type-start-kwds c-primitive-type-kwds) (#12="sfixed64" c-type-start-kwds c-primitive-type-kwds) (#11="sfixed32" c-type-start-kwds c-primitive-type-kwds) (#10="fixed64" c-type-start-kwds c-primitive-type-kwds) (#9="fixed32" c-type-start-kwds c-primitive-type-kwds) (#8="sint64" c-type-start-kwds c-primitive-type-kwds) (#7="sint32" c-type-start-kwds c-primitive-type-kwds) (#6="uint64" c-type-start-kwds c-primitive-type-kwds) (#5="uint32" c-type-start-kwds c-primitive-type-kwds) (#4="int64" c-type-start-kwds c-primitive-type-kwds) (#3="int32" c-type-start-kwds c-primitive-type-kwds) (#2="float" c-type-start-kwds c-primitive-type-kwds) (#1="double" c-type-start-kwds c-primitive-type-kwds) ("typedef" c-typedef-kwds) ("import" c-other-decl-kwds c-prefix-spec-kwds) ("package" c-other-decl-kwds c-prefix-spec-kwds) ("reserved" c-type-list-kwds) ("to" c-type-list-kwds) ("extensions" c-type-list-kwds) ("return" c-return-kwds) ("returns" c-prefix-spec-kwds c-typeless-decl-kwds) ("option" c-prefix-spec-kwds c-typeless-decl-kwds) ("rpc" c-prefix-spec-kwds c-typeless-decl-kwds) ("extend" c-prefix-spec-kwds c-typeless-decl-kwds) ("service" c-typedef-decl-kwds c-class-decl-kwds c-prefix-spec-kwds c-flat-decl-block-kwds) ("enum" c-typedef-decl-kwds c-class-decl-kwds c-prefix-spec-kwds c-flat-decl-block-kwds) ("message" c-typedef-decl-kwds c-class-decl-kwds c-prefix-spec-kwds c-flat-decl-block-kwds) ("repeated" c-prefix-spec-kwds c-modifier-kwds) ("optional" c-prefix-spec-kwds c-modifier-kwds) ("required" c-prefix-spec-kwds c-modifier-kwds) ("max" c-other-kwds) ("default" c-other-kwds)) make-vector 2 0 setplist apply nconc #[#21=(lang-const) "\301D\207" [lang-const t] 2] "\$\\(?:case\\\|default\\\|e\\(?:num\\\|xten\\(?:d\\\|sions\$\\)\\\|import\\\|m\$?:ax\\\|essage\$\\\|option\$?:al\$?\\\|package\\\|r\$?:e\\(?:peated\\\|quired\\\|served\\\|turns?\$\\\|pc\\)\\\|service\\\|t\$?:o\\\|ypedef\$\\)\\)\$[^[:alnum:]_$]\\\|$\$" "\$\\(\\<\\>\$\\\|\$?:\\+\\+\\\|--\\\|[(+-]\$\\)\\\|[[:alpha:]_]\\\|\\.?[0-9]\\\|[!#~]\\\|\\s\"\\\|\\s\|" "\$[{};,]+\$" (40) "^!\"%--/:-@[-^`{-~" "\$(\$" "{" "\${\$\\\|[;,]" boundp #22="font-lock-extra-types" delq #[#23=(re) "\301\302\"\205�\207" [re string-match #24="[][.+?^$\\]"] 3] #[#25=(re) "\301\302\"?\205 �\207" [re string-match #26="[][.+?^$\\]"] 3] #27="\\<\$" c-concat-separated append c-make-keywords-re (#1# #2# #3# #4# #5# #6# #7# #8# #9# #10# #11# #12# #13# #14# #15# #16#) #28="\\\|" #29="\$\\>" "[<;{},\|+&->)]" "\$[{};]+\$" (list nil font-lock-type-face c-reference-face-name font-lock-keyword-face) ((comment-start (c-lang-const comment-start)) (comment-end (c-lang-const comment-end)) (comment-start-skip (c-lang-const comment-start-skip)) (comment-end-can-be-escaped (c-lang-const comment-end-can-be-escaped)) (beginning-of-defun-function (c-lang-const beginning-of-defun-function)) (end-of-defun-function (c-lang-const end-of-defun-function)) (c++-template-syntax-table (and (c-lang-const c++-make-template-syntax-table) (funcall (eval (c-lang-const c++-make-template-syntax-table)))) nil) (c-no-parens-syntax-table (and (c-lang-const c-make-no-parens-syntax-table) (funcall (eval (c-lang-const c-make-no-parens-syntax-table)))) nil) (c-identifier-syntax-modifications (c-lang-const c-identifier-syntax-modifications) "A list that describes the modifications that should be done to the\nmode syntax table to get a syntax table that matches all identifiers\nand keywords as words.\n\nThe list is just like the one used in `font-lock-defaults': Each\nelement is a cons where the car is the character to modify and the cdr\nthe new syntax, as accepted by `modify-syntax-entry'.") (c-identifier-syntax-table (let ((table (copy-syntax-table (c-mode-var #17#))) (mods c-identifier-syntax-modifications) mod) (while mods (setq mod (car mods) mods (cdr mods)) (modify-syntax-entry (car mod) (cdr mod) table)) table) "Syntax table built on the mode syntax table but additionally\nclassifies symbol constituents like `_' and `$' as word constituents,\nso that all identifiers are recognized as words.") (c-get-state-before-change-functions (let ((fs (c-lang-const c-get-state-before-change-functions))) (if (listp fs) fs (list fs))) "If non-nil, a list of functions called from c-before-change-hook.\nTypically these will record enough state to allow\n`c-before-font-lock-function' to extend the region to fontify,\nand may do such things as removing text-properties which must be\nrecalculated.\n\nThese functions will be run in the order given. Each of them\ntakes 2 parameters, the BEG and END supplied to every\nbefore-change function; on entry, the buffer will have been\nwidened and match-data will have been saved; point is undefined\non both entry and exit; the return value is ignored.\n\nThe functions are called even when font locking isn't enabled.\n\nWhen the mode is initialized, the functions are called with\nparameters (point-min) and (point-max).") (c-before-font-lock-functions (let ((fs (c-lang-const c-before-font-lock-functions))) (if (listp fs) fs (list fs))) "If non-nil, a list of functions called just before font locking.\nTypically they will extend the region about to be fontified (see\nbelow) and will set `syntax-table' text properties on the region.\n\nThese functions will be run in the order given. Each of them\ntakes 3 parameters, the BEG, END, and OLD-LEN supplied to every\nafter-change function; point is undefined on both entry and exit;\non entry, the buffer will have been widened and match-data will\nhave been saved; the return value is ignored.\n\nThe functions may extend the region to be fontified by setting the\nbuffer local variables c-new-BEG and c-new-END.\n\nThe functions are called even when font locking is disabled.\n\nWhen the mode is initialized, these functions are called with\nparameters (point-min), (point-max) and <buffer size>.") (c-before-context-fontification-functions (let ((fs (c-lang-const c-before-context-fontification-functions))) (if (listp fs) fs (list fs))) "If non-nil, a list of functions called just before context (or\nother non-change) fontification is done. Typically they will\nextend the region.\n\nThese functions will be run in the order given. Each of them\ntakes 2 parameters, the BEG and END of the region to be\nfontified. Point is undefined on both entry and exit. On entry,\nthe buffer will have been widened and match-data will have been\nsaved; the return value is a cons of the adjusted\nregion, (NEW-BEG . NEW-END).") (c-at-vsemi-p-fn (c-lang-const c-at-vsemi-p-fn) "Contains a function \"Is there a virtual semicolon at POS or point?\".\nSuch a function takes one optional parameter, a buffer position (defaults to\npoint), and returns nil or t. This variable contains nil for languages which\ndon't have EOL terminated statements. ") (c-vsemi-status-unknown-p-fn (c-lang-const c-vsemi-status-unknown-p-fn) "Contains a function \"are we unsure whether there is a virtual semicolon on this line?\".\nThe (admittedly kludgy) purpose of such a function is to prevent an infinite\nrecursion in c-beginning-of-statement-1 when point starts at a `while' token.\nThe function MUST NOT UNDER ANY CIRCUMSTANCES call c-beginning-of-statement-1,\neven indirectly. This variable contains nil for languages which don't have\nEOL terminated statements.") (c-has-bitfields (c-lang-const c-has-bitfields) "Whether the language has bitfield declarations.") (c-has-quoted-numbers (c-lang-const c-has-quoted-numbers) "Whether the language has numbers quoted like 4'294'967'295.") (c-modified-constant (c-lang-const c-modified-constant) "Regexp that matches a “modified” constant literal such as \"L\\='a\\='\",\na “long character”. In particular, this recognizes forms of constant\nwhich `c-backward-sexp' needs to be called twice to move backwards over.") (c-symbol-start (c-lang-const c-symbol-start) "Regexp that matches the start of a symbol, i.e. any identifier or\nkeyword. It's unspecified how far it matches. Does not contain a \\\|\noperator at the top level.") (c-symbol-chars (c-lang-const c-symbol-chars) "Set of characters that can be part of a symbol.\nThis is of the form that fits inside [ ] in a regexp.") (c-symbol-char-key (c-lang-const c-symbol-char-key) "Regexp matching a sequence of at least one identifier character.") (c-symbol-key (c-lang-const c-symbol-key) "Regexp matching identifiers and keywords (with submatch 0). Assumed\nto match if `c-symbol-start' matches on the same position.") (c-nonsymbol-chars (c-lang-const c-nonsymbol-chars) "This is the set of chars that can't be part of a symbol, i.e. the\nnegation of `c-symbol-chars'.") (c-opt-identifier-concat-key (c-lang-const c-opt-identifier-concat-key) nil) (c-identifier-start (c-lang-const c-identifier-start) "Regexp that matches the start of an (optionally qualified) identifier.\nIt should also match all keywords. It's unspecified how far it\nmatches.") (c-identifier-key (c-lang-const c-identifier-key) "Regexp matching a fully qualified identifier, like \"A::B::c\" in\nC++. It does not recognize the full range of syntactic whitespace\nbetween the tokens; `c-forward-name' has to be used for that. It\nshould also not match identifiers containing parenthesis groupings,\ne.g. identifiers with template arguments such as \"A<X,Y>\" in C++.") (c-string-escaped-newlines (c-lang-const c-string-escaped-newlines) "Set if the language support backslash escaped newlines inside string\nliterals.") (c-multiline-string-start-char (c-lang-const c-multiline-string-start-char) "Set if the language supports multiline string literals without escaped\nnewlines. If t, all string literals are multiline. If a character,\nonly literals where the open quote is immediately preceded by that\nliteral are multiline.") (c-opt-cpp-symbol (c-lang-const c-opt-cpp-symbol) "The symbol which starts preprocessor constructs when in the margin.") (c-opt-cpp-prefix (c-lang-const c-opt-cpp-prefix) "Regexp matching the prefix of a cpp directive in the languages that\nnormally use that macro preprocessor. Tested at bol or at boi.\nAssumed to not contain any submatches or \\\| operators.") (c-anchored-cpp-prefix (c-lang-const c-anchored-cpp-prefix) "Regexp matching the prefix of a cpp directive anchored to BOL,\nin the languages that have a macro preprocessor.") (c-opt-cpp-start (c-lang-const c-opt-cpp-start) "Regexp matching the prefix of a cpp directive including the directive\nname, or nil in languages without preprocessor support. The first\nsubmatch surrounds the directive name.") (c-opt-cpp-macro-define (c-lang-const c-opt-cpp-macro-define) "Cpp directive (without the prefix) that is followed by a macro\ndefinition, or nil if the language doesn't have any.") (c-opt-cpp-macro-define-start (c-lang-const c-opt-cpp-macro-define-start) nil) (c-opt-cpp-macro-define-id (c-lang-const c-opt-cpp-macro-define-id) nil) (c-cpp-expr-intro-re (c-lang-const c-cpp-expr-intro-re) "Regexp which matches the start of a CPP directive which contains an\nexpression, or nil if there aren't any in the language.") (c-cpp-expr-functions-key (c-lang-const c-cpp-expr-functions-key) nil) (c-overloadable-operators-regexp (c-lang-const c-overloadable-operators-regexp) nil) (c-opt-op-identifier-prefix (c-lang-const c-opt-op-identifier-prefix) "Regexp matching the token before the ones in\n`c-overloadable-operators' when operators are specified in their\n\"identifier form\". This typically matches \"operator\" in C++ where\noperator functions are specified as e.g. \"operator +\". It's nil in\nlanguages without operator functions or where the complete operator\nidentifier is listed in `c-overloadable-operators'.\n\nThis regexp is assumed to not match any non-operator identifier.") (c-ambiguous-overloadable-or-identifier-prefix-re (c-lang-const c-ambiguous-overloadable-or-identifier-prefix-re) nil) (c-nonsymbol-token-regexp (c-lang-const c-nonsymbol-token-regexp) nil) (c-assignment-op-regexp (c-lang-const c-assignment-op-regexp) nil) (c-arithmetic-op-regexp (c-lang-const c-arithmetic-op-regexp) nil) (c-:$-multichar-token-regexp (c-lang-const c-:$-multichar-token-regexp) nil) (c-<>-multichar-token-regexp (c-lang-const c-<>-multichar-token-regexp) nil) (c-<-op-cont-regexp (c-lang-const c-<-op-cont-regexp) nil) (c->-op-cont-regexp (c-lang-const c->-op-cont-regexp) nil) (c->-op-without->-cont-regexp (c-lang-const c->-op-without->-cont-regexp) nil) (c-multichar->-op-not->>-regexp (c-lang-const c-multichar->-op-not->>-regexp) nil) (c-:-op-cont-regexp (c-lang-const c-:-op-cont-regexp) nil) (c-stmt-delim-chars (c-lang-const c-stmt-delim-chars) nil) (c-stmt-delim-chars-with-comma (c-lang-const c-stmt-delim-chars-with-comma) nil) (c-pack-key (c-lang-const c-pack-key) nil) (c-auto-ops-re (c-lang-const c-auto-ops-re) nil) (c-haskell-op-re (c-lang-const c-haskell-op-re) nil) (c-pre-start-tokens (c-lang-const c-pre-start-tokens) "List of operators following which an apparent declaration (e.g.\n\"t1 fn (t2 b);\") is most likely to be an actual declaration\n(as opposed to an arithmetic expression).") (c-pre-lambda-tokens-re (c-lang-const c-pre-lambda-tokens-re) nil) (c-line-comment-starter (c-lang-const c-line-comment-starter) "String that starts line comments, or nil if such don't exist.\nLine comments are always terminated by newlines. At least one of\n`c-block-comment-starter' and this one is assumed to be set.\n\nNote that it's currently not enough to set this to support a new\ncomment style. Other stuff like the syntax table must also be set up\nproperly.") (c-block-comment-starter (c-lang-const c-block-comment-starter) "String that starts block comments, or nil if such don't exist.\nBlock comments are ended by `c-block-comment-ender', which is assumed\nto be set if this is. At least one of `c-line-comment-starter' and\nthis one is assumed to be set.\n\nNote that it's currently not enough to set this to support a new\ncomment style. Other stuff like the syntax table must also be set up\nproperly.") (c-block-comment-ender (c-lang-const c-block-comment-ender) "String that ends block comments, or nil if such don't exist.\n\nNote that it's currently not enough to set this to support a new\ncomment style. Other stuff like the syntax table must also be set up\nproperly.") (c-block-comment-ender-regexp (c-lang-const c-block-comment-ender-regexp) nil) (c-comment-start-regexp (c-lang-const c-comment-start-regexp) nil) (c-block-comment-start-regexp (c-lang-const c-block-comment-start-regexp) nil) (c-line-comment-start-regexp (c-lang-const c-line-comment-start-regexp) nil) (c-literal-start-regexp (c-lang-const c-literal-start-regexp) nil) (c-doc-comment-start-regexp (c-lang-const c-doc-comment-start-regexp) "Regexp to match the start of documentation comments.") (c-block-comment-is-default (c-lang-const c-block-comment-is-default) "Non-nil when the default comment style is block comment.") (c-syntactic-ws-start (c-lang-const c-syntactic-ws-start) nil) (c-syntactic-ws-end (c-lang-const c-syntactic-ws-end) nil) (c-syntactic-eol (c-lang-const c-syntactic-eol) nil) (c-paragraph-start (c-lang-const c-paragraph-start) "Regexp to append to `paragraph-start'.") (c-paragraph-separate (c-lang-const c-paragraph-separate) "Regexp to append to `paragraph-separate'.") (c-return-key (c-lang-const c-return-key) nil) (c-primitive-type-key (c-lang-const c-primitive-type-key) nil) (c-typedef-key (c-lang-const c-typedef-key) nil) (c-typeof-key (c-lang-const c-typeof-key) nil) (c-template-typename-key (c-lang-const c-template-typename-key) nil) (c-type-prefix-key (c-lang-const c-type-prefix-key) nil) (c-opt-type-modifier-prefix-key (c-lang-const c-opt-type-modifier-prefix-key) nil) (c-opt-type-modifier-key (c-lang-const c-opt-type-modifier-key) nil) (c-opt-type-component-key (c-lang-const c-opt-type-component-key) nil) (c-type-decl-suffix-ws-ids-key (c-lang-const c-type-decl-suffix-ws-ids-key) nil) (c-class-key (c-lang-const c-class-key) nil) (c-brace-list-key (c-lang-const c-brace-list-key) nil) (c-after-brace-list-key (c-lang-const c-after-brace-list-key) nil) (c-recognize-post-brace-list-type-p (c-lang-const c-recognize-post-brace-list-type-p) "Set to t when we recognize a colon and then a type after an enum,\ne.g., enum foo : int { A, B, C };") (c-other-decl-block-key (c-lang-const c-other-decl-block-key) nil) (c-other-decl-block-key-in-symbols-alist (mapcar (lambda #18# (cons elt (if (string= elt #19#) 'inextern-lang (intern (concat #20# elt))))) (c-lang-const c-other-block-decl-kwds)) "Alist associating keywords in c-other-decl-block-decl-kwds with\ntheir matching \"in\" syntactic symbols.") (c-typedef-decl-key (c-lang-const c-typedef-decl-key) nil) (c-decl-hangon-key (c-lang-const c-decl-hangon-key) nil) (c-prefix-spec-kwds-re (c-lang-const c-prefix-spec-kwds-re) nil) (c-specifier-key (c-lang-const c-specifier-key) nil) (c-not-decl-init-keywords (c-lang-const c-not-decl-init-keywords) nil) (c-not-primitive-type-keywords-regexp (c-lang-const c-not-primitive-type-keywords-regexp) nil) (c-protection-key (c-lang-const c-protection-key) nil) (c-post-protection-token (c-lang-const c-post-protection-token) "The token which (may) follow a protection keyword,\ne.g. the \":\" in C++ Mode's \"public:\". nil if there is no such token.") (c-opt-block-decls-with-vars-key (c-lang-const c-opt-block-decls-with-vars-key) nil) (c-postfix-decl-spec-key (c-lang-const c-postfix-decl-spec-key) nil) (c-make-top-level-key (c-lang-const c-make-top-level-key) nil) (c-colon-type-list-re (c-lang-const c-colon-type-list-re) "Regexp matched after the keywords in `c-colon-type-list-kwds' to skip\nforward to the colon. The end of the match is assumed to be directly\nafter the colon, so the regexp should end with \":\". Must be a\nregexp if `c-colon-type-list-kwds' isn't nil.") (c-paren-nontype-key (c-lang-const c-paren-nontype-key) nil) (c-opt-<>-sexp-key (c-lang-const c-opt-<>-sexp-key) nil) (c-inside-<>-type-key (c-lang-const c-inside-<>-type-key) nil) (c-block-stmt-1-key (c-lang-const c-block-stmt-1-key) nil) (c-block-stmt-1-2-key (c-lang-const c-block-stmt-1-2-key) nil) (c-block-stmt-2-key (c-lang-const c-block-stmt-2-key) nil) (c-opt-block-stmt-key (c-lang-const c-opt-block-stmt-key) nil) (c-simple-stmt-key (c-lang-const c-simple-stmt-key) nil) (c-paren-stmt-key (c-lang-const c-paren-stmt-key) nil) (c-opt-asm-stmt-key (c-lang-const c-opt-asm-stmt-key) nil) (c-case-kwds-regexp (c-lang-const c-case-kwds-regexp) nil) (c-label-kwds-regexp (c-lang-const c-label-kwds-regexp) nil) (c-opt-inexpr-brace-list-key (c-lang-const c-opt-inexpr-brace-list-key) nil) (c-brace-stack-thing-key (c-lang-const c-brace-stack-thing-key) nil) (c-brace-stack-no-semi-key (c-lang-const c-brace-stack-no-semi-key) nil) (c-decl-block-key (c-lang-const c-decl-block-key) nil) (c-opt-bitfield-key (c-lang-const c-opt-bitfield-key) nil) (c-keywords-regexp (c-lang-const c-keywords-regexp) nil) (c-keywords-obarray (let ((alist (c-lang-const c-keyword-member-alist)) kwd lang-const-list (obarray (make-vector (* (length alist) 2) 0))) (while alist (setq kwd (caar alist) lang-const-list (cdar alist) alist (cdr alist)) (setplist (intern kwd obarray) (apply 'nconc (mapcar (lambda #21# (list lang-const t)) lang-const-list)))) obarray) nil) (c-regular-keywords-regexp (c-lang-const c-regular-keywords-regexp) nil) (c-primary-expr-regexp (c-lang-const c-primary-expr-regexp) nil) (c-decl-start-colon-kwd-re (c-lang-const c-decl-start-colon-kwd-re) "Regexp matching a keyword that is followed by a colon, where\n the whole construct can precede a declaration.\n E.g. \"public:\" in C++.") (c-decl-prefix-re (c-lang-const c-decl-prefix-re) nil) (c-decl-start-re (c-lang-const c-decl-start-re) "Regexp matching the start of any declaration, cast or label.\nIt's used on the token after the one `c-decl-prefix-re' matched. This\nregexp should not try to match those constructs accurately as it's\nonly used as a sieve to avoid spending more time checking other\nconstructs.") (c-decl-prefix-or-start-re (c-lang-const c-decl-prefix-or-start-re) nil) (c-cast-parens (c-lang-const c-cast-parens) nil) (c-block-prefix-charset (c-lang-const c-block-prefix-charset) nil) (c-type-decl-prefix-key (c-lang-const c-type-decl-prefix-key) nil) (c-type-decl-operator-prefix-key (c-lang-const c-type-decl-operator-prefix-key) "Regexp matching any declarator operator which isn't a keyword\nthat might precede the identifier in a declaration, e.g. the\n\"\" in \"char argv\". The end of the first submatch is taken\nas the end of the operator. Identifier syntax is in effect when\nthis is matched (see `c-identifier-syntax-table').") (c-type-decl-suffix-key (c-lang-const c-type-decl-suffix-key) nil) (c-after-suffixed-type-decl-key (c-lang-const c-after-suffixed-type-decl-key) nil) (c-after-suffixed-type-maybe-decl-key (c-lang-const c-after-suffixed-type-maybe-decl-key) nil) (c-opt-type-concat-key (c-lang-const c-opt-type-concat-key) nil) (c-opt-type-suffix-key (c-lang-const c-opt-type-suffix-key) "Regexp matching operators that might follow after a type, or nil in\nlanguages that don't have such operators. The end of the first\nsubmatch is taken as the end of the operator. This should not match\nthings like C++ template arglists if `c-recognize-<>-arglists' is set.\nIt's undefined whether identifier syntax (see `c-identifier-syntax-table')\nis in effect or not.") (c-known-type-key (let* ((extra-types (when (boundp (c-mode-symbol #22#)) (c-mode-var "font-lock-extra-types"))) (regexp-strings (delq nil (mapcar (lambda #23# (when (string-match #24# re) re)) extra-types))) (plain-strings (delq nil (mapcar (lambda #25# (unless (string-match #26# re) re)) extra-types)))) (concat #27# (c-concat-separated (append (list (c-make-keywords-re nil (append (c-lang-const c-primitive-type-kwds) plain-strings))) regexp-strings) #28#) #29#)) nil) (c-special-brace-lists (c-lang-const c-special-brace-lists) "List of open- and close-chars that makes up a pike-style brace list,\ni.e., for a ([ ]) list there should be a cons (?\\[ . ?\\]) in this\nlist.") (c-recognize-knr-p (c-lang-const c-recognize-knr-p) "Non-nil means K&R style argument declarations are valid.") (c-pre-id-bracelist-key (c-lang-const c-pre-id-bracelist-key) "A regexp matching tokens which, preceding an identifier, signify a bracelist.\n") (c-recognize-typeless-decls (c-lang-const c-recognize-typeless-decls) "Non-nil means function declarations without return type should be\nrecognized. That can introduce an ambiguity with parenthesized macro\ncalls before a brace block. This setting does not affect declarations\nthat are preceded by a declaration starting keyword, so\ne.g. `c-typeless-decl-kwds' may still be used when it's set to nil.") (c-recognize-<>-arglists (c-lang-const c-recognize-<>-arglists) "Non-nil means C++ style template arglists should be handled. More\nspecifically, this means a comma separated list of types or\nexpressions surrounded by \"<\" and \">\". It's always preceded by an\nidentifier or one of the keywords on `c-<>-type-kwds' or\n`c-<>-arglist-kwds'. If there's an identifier before then the whole\nexpression is considered to be a type.") (c-<>-notable-chars-re (c-lang-const c-<>-notable-chars-re) "A regexp matching any single character notable inside a <...> construct.\nThis must include \"<\" and \">\", and should include \",\", and\nany character which cannot be valid inside such a construct.\nThis is used in `c-forward-<>-arglist-recur' to try to detect\nsequences of tokens which cannot be a template/generic construct.\nWhen \"(\" is present, that defun will attempt to parse a\nparenthesized expression inside the template. When \")\" is\npresent it will treat an unbalanced closing paren as a sign of\nthe invalidity of the putative template construct.") (c-enum-clause-introduction-re (c-lang-const c-enum-clause-introduction-re) nil) (c-enums-contain-decls (c-lang-const c-enums-contain-decls) "Non-nil means that an enum structure can contain declarations.") (c-recognize-paren-inits (c-lang-const c-recognize-paren-inits) "Non-nil means that parenthesis style initializers exist,\ni.e. constructs like\n\nFoo bar (gnu);\n\nin addition to the more classic\n\nFoo bar = gnu;") (c-recognize-paren-inexpr-blocks (c-lang-const c-recognize-paren-inexpr-blocks) "Non-nil to recognize gcc style in-expression blocks,\ni.e. compound statements surrounded by parentheses inside expressions.") (c-opt-<>-arglist-start (c-lang-const c-opt-<>-arglist-start) nil) (c-opt-<>-arglist-start-in-paren (c-lang-const c-opt-<>-arglist-start-in-paren) nil) (c-opt-postfix-decl-spec-key (c-lang-const c-opt-postfix-decl-spec-key) nil) (c-recognize-colon-labels (c-lang-const c-recognize-colon-labels) "Non-nil if generic labels ending with \":\" should be recognized.\nThat includes labels in code and access keys in classes. This does\nnot apply to labels recognized by `c-label-kwds' and\n`c-opt-extra-label-key'.") (c-label-prefix-re (c-lang-const c-label-prefix-re) "Regexp like `c-decl-prefix-re' that matches any token that can precede\na generic colon label. Not used if `c-recognize-colon-labels' is\nnil.") (c-nonlabel-token-key (c-lang-const c-nonlabel-token-key) "Regexp matching things that can't occur in generic colon labels,\nneither in a statement nor in a declaration context. The regexp is\ntested at the beginning of every sexp in a suspected label,\ni.e. before \":\". Only used if `c-recognize-colon-labels' is set.") (c-nonlabel-token-2-key (c-lang-const c-nonlabel-token-2-key) "Regexp matching things that can't occur two symbols before a colon in\na label construct. This catches C++'s inheritance construct \"class foo\n: bar\". Only used if `c-recognize-colon-labels' is set.") (c-opt-extra-label-key (c-lang-const c-opt-extra-label-key) "Optional regexp matching labels.\nNormally, labels are detected according to `c-nonlabel-token-key',\n`c-decl-prefix-re' and `c-nonlabel-decl-prefix-re'. This regexp can\nbe used if there are additional labels that aren't recognized that\nway.") (c-opt-friend-key (c-lang-const c-opt-friend-key) nil) (c-opt-method-key (c-lang-const c-opt-method-key) nil) (c-type-decl-end-used (c-lang-const c-type-decl-end-used) nil) (c-maybe-decl-faces (c-lang-const c-maybe-decl-faces) "List of faces that might be put at the start of a type when\n`c-font-lock-declarations' runs. This must be evaluated (with `eval') at\nruntime to get the actual list of faces. This ensures that face name\naliases in Emacs are resolved.")) eval message "Eval error in the `c-lang-defvar' or `c-lang-setvar' for `%s'%s: %S" format " (fallback source eval - %s compiled with CC Mode %s but loaded with %s)" "5.33.1" signal c-common-init easy-menu-add run-mode-hooks c-mode-common-hook protobuf-mode-hook c-update-modeline] 9 (#$ . 11612) nil]) (provide 'protobuf-mode) PK��k�\H�b�v��v��site-lisp/git/git.elnu��[��(error "git.el no longer ships with git. It's recommended to replace its use with Magit, or simply delete references to git.el in your initialization file(s). See contrib/emacs/README in git's sources (https://github.com/git/git/blob/master/contrib/emacs/README) for suggested alternatives and for why this happened. Emacs's own VC mode and Magit are viable alternatives.") PK��k�\Yeo��site-lisp/git/git-blame.elnu��[��(error "git-blame.el no longer ships with git. It's recommended to replace its use with Emacs's own vc-annotate. See contrib/emacs/README in git's sources (https://github.com/git/git/blob/master/contrib/emacs/README) for more info on suggested alternatives and for why this happened.") PK��k�\�O��1��site-lisp/site-start.d/desktop-entry-mode-init.elnu��[��(autoload 'desktop-entry-mode "desktop-entry-mode" "Desktop Entry mode" t) (add-to-list 'auto-mode-alist '("\\.desktop\$\\.in\$?$" . desktop-entry-mode)) PK��k�\?�פ��(��site-lisp/site-start.d/systemtap-init.elnu��[��(autoload 'systemtap-mode "systemtap-mode.el") (setq auto-mode-alist (append '(("\\.stp$" . systemtap-mode)) auto-mode-alist)) (setq auto-mode-alist (append '(("\\.stpm$" . systemtap-mode)) auto-mode-alist)) PK��k�\Qʁ�f��f��'��site-lisp/site-start.d/protobuf-init.elnu��[��; Protobuf major mode, init file by Tim Niemueller [www.niemueller.de], BSD ; Add mode to automatically recognized modes (setq auto-mode-alist (cons '("\\.proto$" . protobuf-mode) auto-mode-alist)) (autoload 'protobuf-mode "protobuf-mode" "Google protobuf editing mode." t) ; Turn on colorization by default (add-hook 'protobuf-mode-hook 'turn-on-font-lock) PK��k�\��7��7��'��site-lisp/site-start.d/autoconf-init.elnu��[��;; Activate autoconf-mode ;; Uncomment the following code if you feel that autoconf-mode.el does better ;; job than Emacs's default autoconf.el. ;; (autoload 'autoconf-mode "autoconf-mode" ;; "Major mode for editing autoconf files." t) ;; (setq auto-mode-alist ;; (cons '("\.ac\'\\|configure\.in\'" . autoconf-mode) ;; auto-mode-alist)) ;; Activate autotest-mode (autoload 'autotest-mode "autotest-mode" "Major mode for editing autotest files." t) (setq auto-mode-alist (cons '("\.at\'" . autotest-mode) auto-mode-alist)) PK��k�\J��z��z��site-lisp/libidn/punycode.elnu��[��;;; punycode.el --- An ASCII compatible Unicode encoding format. ;; Copyright (C) 2003-2016 Simon Josefsson ;; Keywords: punycode, idna, idn, unicode, encoding ;; This file is part of GNU Libidn. ;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; A simple wrapper around the command line "idn" utility in GNU ;; Libidn to make punycode operations available in Emacs. ;; Example: ;; ;; (punycode-encode "r�ksm�rg�s") ;; => "rksmrgs-5wao1o" ;; ;; (punycode-encode "foo") ;; => "foo-" ;; ;; (punycode-decode "rksmrgs-5wao1o") ;; => "r�ksm�rg�s" ;; ;; (punycode-decode "foo-") ;; => "foo" ;; This package is useless unless your emacs has at least partial ;; support for the UTF-8 coding system. ;; Report bugs to bug-libidn@gnu.org. ;;; Code: (defgroup punycode nil "Punycode: An ASCII compatible Unicode encoding format.") (defcustom punycode-program "idn" "Name of the GNU Libidn \"idn\" application." :type 'string :group 'punycode) (defcustom punycode-environment '("CHARSET=UTF-8") "List of environment variable definitions prepended to `process-environment'." :type '(repeat string) :group 'punycode) (defcustom punycode-encode-parameters '("--quiet" "--punycode-encode") "Parameters passed to `punycode-program' to invoke punycode encoding mode." :type '(repeat string) :group 'punycode) (defcustom punycode-decode-parameters '("--quiet" "--punycode-decode") "Parameters passed to `punycode-program' to invoke punycode decoding mode." :type '(repeat string) :group 'punycode) ;; Internal process handling: (defvar punycode-encode-process nil "Internal variable holding process for punycode encoding.") (defvar punycode-encode-response nil "Internal variable holding response data received from punycode process.") (defun punycode-encode-response-clear () (setq punycode-encode-response nil)) (defun punycode-encode-response () (while (and (eq (process-status punycode-encode-process) 'run) (null punycode-encode-response)) (accept-process-output punycode-encode-process 1)) punycode-encode-response) (defun punycode-encode-filter (process string) (setq punycode-encode-response (concat punycode-encode-response string))) (defun punycode-encode-process () (if (and punycode-encode-process (eq (process-status punycode-encode-process) 'run)) punycode-encode-process (if punycode-encode-process (condition-case () (kill-process punycode-encode-process) (error))) (when (setq punycode-encode-process (let ((process-environment (append punycode-environment process-environment))) (apply 'start-process "punycode" nil punycode-program punycode-encode-parameters))) (set-process-filter punycode-encode-process 'punycode-encode-filter) (set-process-coding-system punycode-encode-process 'utf-8 'utf-8) (process-kill-without-query punycode-encode-process)) punycode-encode-process)) (defvar punycode-decode-process nil "Internal variable holding process for punycode encoding.") (defvar punycode-decode-response nil "Internal variable holding response data received from punycode process.") (defun punycode-decode-response-clear () (setq punycode-decode-response nil)) (defun punycode-decode-response () (while (and (eq (process-status punycode-decode-process) 'run) (null punycode-decode-response)) (accept-process-output punycode-decode-process 1)) punycode-decode-response) (defun punycode-decode-filter (process string) (setq punycode-decode-response (concat punycode-decode-response string))) (defun punycode-decode-process () (if (and punycode-decode-process (eq (process-status punycode-decode-process) 'run)) punycode-decode-process (if punycode-decode-process (condition-case () (kill-process punycode-decode-process) (error))) (when (setq punycode-decode-process (let ((process-environment (append punycode-environment process-environment))) (apply 'start-process "punycode" nil punycode-program punycode-decode-parameters))) (set-process-filter punycode-decode-process 'punycode-decode-filter) (set-process-coding-system punycode-decode-process 'utf-8 'utf-8) (process-kill-without-query punycode-decode-process)) punycode-decode-process)) ;; Punycode Elisp API: (defun punycode-encode (str) "Returns a Punycode encoding of STR." (let ((proc (punycode-encode-process)) string) (if (null proc) (error "Cannot start idn application") (punycode-encode-response-clear) (process-send-string proc (concat str "\n")) (setq string (punycode-encode-response)) (if (and string (string= (substring string (1- (length string))) "\n")) (substring string 0 (1- (length string))) string)))) (defun punycode-decode (str) "Returns a possibly multibyte string which is the punycode decoding of STR." (let ((proc (punycode-decode-process)) string) (if (null proc) (error "Cannot start idn application") (punycode-decode-response-clear) (process-send-string proc (concat str "\n")) (setq string (punycode-decode-response)) (if (and string (string= (substring string (1- (length string))) "\n")) (substring string 0 (1- (length string))) string)))) (defun punycode-shutdown () "Kill the punycode related process." (interactive) (if (and punycode-decode-process (eq (process-status punycode-decode-process) 'run)) (kill-process punycode-decode-process)) (if (and punycode-encode-process (eq (process-status punycode-encode-process) 'run)) (kill-process punycode-encode-process))) (provide 'punycode) ;;; punycode.el ends here PK��k�\��U'@��@��site-lisp/libidn/idna.elnu��[��;;; idna.el --- Internationalizing Domain Names in Applications. ;; Copyright (C) 2003-2016 Simon Josefsson ;; Keywords: idna, idn, domain name, internationalization ;; This file is part of GNU Libidn. ;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; A simple wrapper around the command line "idn" utility in GNU ;; Libidn to make IDNA ToASCII and ToUnicode operations available in ;; Emacs. ;; Example: ;; ;; (idna-to-ascii "r�ksm�rg�s.gnu.org") ;; => "xn--rksmrgs-5wao1o.gnu.org" ;; ;; (idna-to-ascii "www.gnu.org") ;; => "www.gnu.org" ;; ;; (idna-to-unicode "xn--rksmrgs-5wao1o.gnu.org") ;; => "r�ksm�rg�s.gnu.org" ;; ;; (idna-to-unicode "www.gnu.org") ;; => "www.gnu.org" ;; Todo: Support AllowUnassigned and UseSTD3ASCIIRules somehow? ;; This package is useless unless your emacs has at least partial ;; support for the UTF-8 coding system. ;; Report bugs to bug-libidn@gnu.org. ;;; Code: (defgroup idna nil "Internationalizing Domain Names in Applications.") (defcustom idna-program "idn" "Name of the GNU Libidn \"idn\" application." :type 'string :group 'idna) (defcustom idna-environment '("CHARSET=UTF-8") "List of environment variable definitions prepended to `process-environment'." :type '(repeat string) :group 'idna) (defcustom idna-to-ascii-parameters '("--quiet" "--idna-to-ascii" "--usestd3asciirules") "Parameters passed to `idna-program' to invoke IDNA ToASCII mode." :type '(repeat string) :group 'idna) (defcustom idna-to-unicode-parameters '("--quiet" "--idna-to-unicode" "--usestd3asciirules") "Parameters passed `idna-program' to invoke IDNA ToUnicode mode." :type '(repeat string) :group 'idna) ;; Internal process handling: (defvar idna-to-ascii-process nil "Internal variable holding process for ToASCII.") (defvar idna-to-ascii-response nil "Internal variable holding response data received from ToASCII process.") (defun idna-to-ascii-response-clear () (setq idna-to-ascii-response nil)) (defun idna-to-ascii-response () (while (and (eq (process-status idna-to-ascii-process) 'run) (null idna-to-ascii-response)) (accept-process-output idna-to-ascii-process 1)) idna-to-ascii-response) (defun idna-to-ascii-filter (process string) (setq idna-to-ascii-response (concat idna-to-ascii-response string))) (defun idna-to-ascii-process () (if (and idna-to-ascii-process (eq (process-status idna-to-ascii-process) 'run)) idna-to-ascii-process (if idna-to-ascii-process (condition-case () (kill-process idna-to-ascii-process) (error))) (when (setq idna-to-ascii-process (let ((process-environment (append idna-environment process-environment))) (apply 'start-process "idna" nil idna-program idna-to-ascii-parameters))) (set-process-filter idna-to-ascii-process 'idna-to-ascii-filter) (set-process-coding-system idna-to-ascii-process 'utf-8 'utf-8) (process-kill-without-query idna-to-ascii-process)) idna-to-ascii-process)) (defvar idna-to-unicode-process nil "Internal variable holding process for ToASCII.") (defvar idna-to-unicode-response nil "Internal variable holding response data received from ToASCII process.") (defun idna-to-unicode-response-clear () (setq idna-to-unicode-response nil)) (defun idna-to-unicode-response () (while (and (eq (process-status idna-to-unicode-process) 'run) (null idna-to-unicode-response)) (accept-process-output idna-to-unicode-process 1)) idna-to-unicode-response) (defun idna-to-unicode-filter (process string) (setq idna-to-unicode-response (concat idna-to-unicode-response string))) (defun idna-to-unicode-process () (if (and idna-to-unicode-process (eq (process-status idna-to-unicode-process) 'run)) idna-to-unicode-process (if idna-to-unicode-process (condition-case () (kill-process idna-to-unicode-process) (error))) (when (setq idna-to-unicode-process (let ((process-environment (append idna-environment process-environment))) (apply 'start-process "idna" nil idna-program idna-to-unicode-parameters))) (set-process-filter idna-to-unicode-process 'idna-to-unicode-filter) (set-process-coding-system idna-to-unicode-process 'utf-8 'utf-8) (process-kill-without-query idna-to-unicode-process)) idna-to-unicode-process)) ;; IDNA Elisp API: (defun idna-to-ascii (str) "Returns an ASCII Compatible Encoding (ACE) of STR. It is computed by the IDNA ToASCII operation, after converting the input to UTF-8." (let ((proc (idna-to-ascii-process)) string) (if (null proc) (error "Cannot start idn application (to-ascii)") (idna-to-ascii-response-clear) (process-send-string proc (concat str "\n")) (setq string (idna-to-ascii-response)) (if (and string (string= (substring string (1- (length string))) "\n")) (substring string 0 (1- (length string))) string)))) (defun idna-to-unicode (str) "Returns a possibly multibyte string after decoding STR. It is computed by the IDNA ToUnicode operation." (let ((proc (idna-to-unicode-process)) string) (if (null proc) (error "Cannot start idn application (to-unicode)") (idna-to-unicode-response-clear) (process-send-string proc (concat str "\n")) (setq string (idna-to-unicode-response)) (if (and string (string= (substring string (1- (length string))) "\n")) (substring string 0 (1- (length string))) string)))) (defun idna-shutdown () "Kill the IDNA related processes." (interactive) (if (and idna-to-ascii-process (eq (process-status idna-to-ascii-process) 'run)) (kill-process idna-to-ascii-process)) (if (and idna-to-unicode-process (eq (process-status idna-to-unicode-process) 'run)) (kill-process idna-to-unicode-process))) (provide 'idna) ;;; idna.el ends here PK��k�\(�h��site-lisp/libidn/punycode.elcnu��[��;ELC�� ;;; Compiled ;;; in Emacs version 26.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\302\303#\210\304\305\306\307\310\311\312\301&\210\304\313\314\315\310\316\312\301&\210\304\317\320\321\310\322\312\301&\210\304\323\324\325\310\326\312\301&\207" [custom-declare-group punycode nil "Punycode: An ASCII compatible Unicode encoding format." custom-declare-variable punycode-program "idn" "Name of the GNU Libidn \"idn\" application." :type string :group punycode-environment '("CHARSET=UTF-8") "List of environment variable definitions prepended to `process-environment'." (repeat string) punycode-encode-parameters '("--quiet" "--punycode-encode") "Parameters passed to `punycode-program' to invoke punycode encoding mode." (repeat string) punycode-decode-parameters '("--quiet" "--punycode-decode") "Parameters passed to `punycode-program' to invoke punycode decoding mode." (repeat string)] 8) #@58 Internal variable holding process for punycode encoding. (defvar punycode-encode-process nil (#$ . 1243)) #@73 Internal variable holding response data received from punycode process. (defvar punycode-encode-response nil (#$ . 1355)) (defalias 'punycode-encode-response-clear #[nil "\301\211\207" [punycode-encode-response nil] 2]) (defalias 'punycode-encode-response #[nil "\302!\303=\203� \204�\304\305\"\210\202�� \207" [punycode-encode-process punycode-encode-response process-status run accept-process-output 1] 3]) (defalias 'punycode-encode-filter #[(process string) " P\211\207" [punycode-encode-response string] 2]) (defalias 'punycode-encode-process #[nil "\203�\305!\306=\203�\207\203\"�\3071�\310!0\202!�\210\202\"�\210\311 \n\"\312\313\314\315\f%)\211\203C�\316\317\"\210\320\321\211#\210\322!\210\207" [punycode-encode-process punycode-environment process-environment punycode-program punycode-encode-parameters process-status run (error) kill-process append apply start-process "punycode" nil set-process-filter punycode-encode-filter set-process-coding-system utf-8 process-kill-without-query] 6]) #@58 Internal variable holding process for punycode encoding. (defvar punycode-decode-process nil (#$ . 2385)) #@73 Internal variable holding response data received from punycode process. (defvar punycode-decode-response nil (#$ . 2497)) (defalias 'punycode-decode-response-clear #[nil "\301\211\207" [punycode-decode-response nil] 2]) (defalias 'punycode-decode-response #[nil "\302!\303=\203� \204�\304\305\"\210\202�� \207" [punycode-decode-process punycode-decode-response process-status run accept-process-output 1] 3]) (defalias 'punycode-decode-filter #[(process string) " P\211\207" [punycode-decode-response string] 2]) (defalias 'punycode-decode-process #[nil "\203�\305!\306=\203�\207\203\"�\3071�\310!0\202!�\210\202\"�\210\311 \n\"\312\313\314\315\f%)\211\203C�\316\317\"\210\320\321\211#\210\322!\210\207" [punycode-decode-process punycode-environment process-environment punycode-program punycode-decode-parameters process-status run (error) kill-process append apply start-process "punycode" nil set-process-filter punycode-decode-filter set-process-coding-system utf-8 process-kill-without-query] 6]) #@37 Returns a Punycode encoding of STR. (defalias 'punycode-encode #[(str) "\303 \304\211\204�\305\306!\2025�\307 \210\310 \n\311P\"\210\312 \211\2034�\211GS\304O\311\230\2034�\313GSO\2025�\207" [string proc str punycode-encode-process nil error "Cannot start idn application" punycode-encode-response-clear process-send-string "\n" punycode-encode-response 0] 5 (#$ . 3527)]) #@76 Returns a possibly multibyte string which is the punycode decoding of STR. (defalias 'punycode-decode #[(str) "\303 \304\211\204�\305\306!\2025�\307 \210\310 \n\311P\"\210\312 \211\2034�\211GS\304O\311\230\2034�\313GSO\2025�\207" [string proc str punycode-decode-process nil error "Cannot start idn application" punycode-decode-response-clear process-send-string "\n" punycode-decode-response 0] 5 (#$ . 3915)]) #@36 Kill the punycode related process. (defalias 'punycode-shutdown #[nil "\203�\302!\303=\203�\304!\210 \205�\302 !\303=\205�\304 !\207" [punycode-decode-process punycode-encode-process process-status run kill-process] 2 (#$ . 4342) nil]) (provide 'punycode) PK��k�\5uXz>��>��site-lisp/libidn/idna.elcnu��[��;ELC�� ;;; Compiled ;;; in Emacs version 26.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\302\303#\210\304\305\306\307\310\311\312\301&\210\304\313\314\315\310\316\312\301&\210\304\317\320\321\310\322\312\301&\210\304\323\324\325\310\326\312\301&\207" [custom-declare-group idna nil "Internationalizing Domain Names in Applications." custom-declare-variable idna-program "idn" "Name of the GNU Libidn \"idn\" application." :type string :group idna-environment '("CHARSET=UTF-8") "List of environment variable definitions prepended to `process-environment'." (repeat string) idna-to-ascii-parameters '("--quiet" "--idna-to-ascii" "--usestd3asciirules") "Parameters passed to `idna-program' to invoke IDNA ToASCII mode." (repeat string) idna-to-unicode-parameters '("--quiet" "--idna-to-unicode" "--usestd3asciirules") "Parameters passed `idna-program' to invoke IDNA ToUnicode mode." (repeat string)] 8) #@48 Internal variable holding process for ToASCII. (defvar idna-to-ascii-process nil (#$ . 1246)) #@72 Internal variable holding response data received from ToASCII process. (defvar idna-to-ascii-response nil (#$ . 1346)) (defalias 'idna-to-ascii-response-clear #[nil "\301\211\207" [idna-to-ascii-response nil] 2]) (defalias 'idna-to-ascii-response #[nil "\302!\303=\203� \204�\304\305\"\210\202�� \207" [idna-to-ascii-process idna-to-ascii-response process-status run accept-process-output 1] 3]) (defalias 'idna-to-ascii-filter #[(process string) " P\211\207" [idna-to-ascii-response string] 2]) (defalias 'idna-to-ascii-process #[nil "\203�\305!\306=\203�\207\203\"�\3071�\310!0\202!�\210\202\"�\210\311 \n\"\312\313\314\315\f%)\211\203C�\316\317\"\210\320\321\211#\210\322!\210\207" [idna-to-ascii-process idna-environment process-environment idna-program idna-to-ascii-parameters process-status run (error) kill-process append apply start-process "idna" nil set-process-filter idna-to-ascii-filter set-process-coding-system utf-8 process-kill-without-query] 6]) #@48 Internal variable holding process for ToASCII. (defvar idna-to-unicode-process nil (#$ . 2339)) #@72 Internal variable holding response data received from ToASCII process. (defvar idna-to-unicode-response nil (#$ . 2441)) (defalias 'idna-to-unicode-response-clear #[nil "\301\211\207" [idna-to-unicode-response nil] 2]) (defalias 'idna-to-unicode-response #[nil "\302!\303=\203� \204�\304\305\"\210\202�� \207" [idna-to-unicode-process idna-to-unicode-response process-status run accept-process-output 1] 3]) (defalias 'idna-to-unicode-filter #[(process string) " P\211\207" [idna-to-unicode-response string] 2]) (defalias 'idna-to-unicode-process #[nil "\203�\305!\306=\203�\207\203\"�\3071�\310!0\202!�\210\202\"�\210\311 \n\"\312\313\314\315\f%)\211\203C�\316\317\"\210\320\321\211#\210\322!\210\207" [idna-to-unicode-process idna-environment process-environment idna-program idna-to-unicode-parameters process-status run (error) kill-process append apply start-process "idna" nil set-process-filter idna-to-unicode-filter set-process-coding-system utf-8 process-kill-without-query] 6]) #@135 Returns an ASCII Compatible Encoding (ACE) of STR. It is computed by the IDNA ToASCII operation, after converting the input to UTF-8. (defalias 'idna-to-ascii #[(str) "\303 \304\211\204�\305\306!\2025�\307 \210\310 \n\311P\"\210\312 \211\2034�\211GS\304O\311\230\2034�\313GSO\2025�\207" [string proc str idna-to-ascii-process nil error "Cannot start idn application (to-ascii)" idna-to-ascii-response-clear process-send-string "\n" idna-to-ascii-response 0] 5 (#$ . 3459)]) #@105 Returns a possibly multibyte string after decoding STR. It is computed by the IDNA ToUnicode operation. (defalias 'idna-to-unicode #[(str) "\303 \304\211\204�\305\306!\2025�\307 \210\310 \n\311P\"\210\312 \211\2034�\211GS\304O\311\230\2034�\313GSO\2025�\207" [string proc str idna-to-unicode-process nil error "Cannot start idn application (to-unicode)" idna-to-unicode-response-clear process-send-string "\n" idna-to-unicode-response 0] 5 (#$ . 3949)]) #@34 Kill the IDNA related processes. (defalias 'idna-shutdown #[nil "\203�\302!\303=\203�\304!\210 \205�\302 !\303=\205�\304 !\207" [idna-to-ascii-process idna-to-unicode-process process-status run kill-process] 2 (#$ . 4418) nil]) (provide 'idna) PK��k�\�+��2��site-lisp/desktop-file-utils/desktop-entry-mode.elnu��[��;;; desktop-entry-mode.el --- freedesktop.org desktop entry editing ;; Copyright (C) 2003-2004, 2006-2007 Ville Skyttä, <scop at xemacs.org> ;; Author: Ville Skyttä, <scop at xemacs.org> ;; Keywords: unix, desktop entry ;; This file is part of XEmacs. ;; XEmacs is free software; you can redistribute it and/or modify it ;; under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; XEmacs is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with XEmacs; see the file COPYING. If not, write to the Free ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, ;; MA 02110-1301 USA. ;;; Commentary: ;; This mode provides basic functionality, eg. syntax highlighting and ;; validation for freedesktop.org desktop entry files. ;; ;; To install it: ;; ;; In XEmacs: ;; Just install the XEmacs `text-modes' package, this mode is included. ;; See <http://www.xemacs.org/Documentation/packageGuide.html>. ;; ;; In GNU Emacs: ;; Place this file in your load path somewhere (eg. site-lisp), and add ;; the following to your .emacs: ;; ;; (autoload 'desktop-entry-mode "desktop-entry-mode" "Desktop Entry mode" t) ;; (add-to-list 'auto-mode-alist ;; '("\\.desktop\$\\.in\$?$" . desktop-entry-mode)) ;; (add-hook 'desktop-entry-mode-hook 'turn-on-font-lock) ;; ;; For more information about desktop entry files, see ;; <http://www.freedesktop.org/Standards/desktop-entry-spec> ;; ;; This version is up to date with version 1.0 of the specification. ;;; Code: (eval-when-compile (require 'regexp-opt)) (defconst desktop-entry-mode-version "1.0 (spec 1.0)" "Version of `desktop-entry-mode'.") (defgroup desktop-entry nil "Support for editing freedesktop.org desktop entry files." :group 'languages) (defcustom desktop-entry-validate-command "desktop-file-validate" "Command for validating desktop entry files." :type 'string :group 'desktop-entry) (defgroup desktop-entry-faces nil "Font lock faces for `desktop-entry-mode'." :prefix "desktop-entry-" :group 'desktop-entry :group 'faces) (defface desktop-entry-group-header-face '((((class color) (background light)) (:foreground "mediumblue" :bold t)) (((class color) (background dark)) (:foreground "lightblue" :bold t)) (t (:bold t))) "Face for highlighting desktop entry group headers." :group 'desktop-entry-faces) (defface desktop-entry-deprecated-keyword-face '((((class color)) (:background "yellow" :foreground "black" :strikethru t)) ) "Face for highlighting deprecated desktop entry keys." :group 'desktop-entry-faces) (defface desktop-entry-unknown-keyword-face '((((class color)) (:foreground "red3" :underline t)) (t (:underline t)) ) "Face for highlighting unknown desktop entry keys." :group 'desktop-entry-faces) (defface desktop-entry-value-face '((((class color) (background light)) (:foreground "darkgreen")) (((class color) (background dark)) (:foreground "lightgreen")) ) "Face for highlighting desktop entry values." :group 'desktop-entry-faces) (defface desktop-entry-locale-face '((((class color) (background light)) (:foreground "dimgray")) (((class color) (background dark)) (:foreground "lightgray")) ) "Face for highlighting desktop entry locales." :group 'desktop-entry-faces) (defconst desktop-entry-keywords (eval-when-compile (concat "\$?:" (regexp-opt '( "Type" "Version" "Name" "GenericName" "NoDisplay" "Comment" "Icon" "Hidden" "OnlyShowIn" "NotShowIn" "TryExec" "Exec" "Path" "Terminal" "MimeType" "Categories" "StartupNotify" "StartupWMClass" "URL" ;; Reserved for use with KDE "ServiceTypes" "DocPath" "KeyWords" "InitialPreference" ;; Used by KDE for entries of the FSDevice type "Dev" "FSType" "MountPoint" "ReadOnly" "UnmountIcon" ) 'words) "\\\|X-[A-Za-z0-9-]+\$")) "Expression for matching desktop entry keys.") (defconst desktop-entry-deprecated-keywords (eval-when-compile (concat "\$\\<Type\\s-=\\s-MimeType\\>\\\|" (regexp-opt '( "Patterns" "DefaultApp" "Encoding" "MiniIcon" "TerminalOptions" "Protocols" "Extensions" "BinaryPattern" "MapNotify" "SwallowTitle" "SwallowExec" "SortOrder" "FilePattern" ) 'words) "\$")) "Expression for matching deprecated desktop entry keys.") (defconst desktop-entry-group-header-re "^\\[\$X-[^\][]+\\\|\\(?:Desktop \\(?:Entry\\\|Action [a-zA-Z]+\$\\)\\)\\]" "Regular expression for matching desktop entry group headers.") (defconst desktop-entry-font-lock-keywords (list (cons "^\\s-#.$" '(0 'font-lock-comment-face)) (cons (concat "^" desktop-entry-deprecated-keywords) '(0 'desktop-entry-deprecated-keyword-face)) (cons (concat "^" desktop-entry-keywords) '(0 'font-lock-keyword-face)) (cons "^[A-Za-z0-9-]+" '(0 'desktop-entry-unknown-keyword-face)) (cons desktop-entry-group-header-re '(1 'desktop-entry-group-header-face)) (cons "^[A-Za-z0-9-]+?\\s-=\\s-\$.\$" '(1 'desktop-entry-value-face)) (cons "^[A-Za-z0-9-]+?\\[\$[^\]]+\$\\]\\s-=\\s-\$.\$" '((1 'desktop-entry-locale-face) (2 'desktop-entry-value-face))) ) "Highlighting rules for `desktop-entry-mode' buffers.") (defvar desktop-entry-imenu-generic-expression `((nil ,desktop-entry-group-header-re 1)) "Imenu generic expression for `desktop-entry-mode'. See `imenu-generic-expression'.") ;;;###autoload (defun desktop-entry-mode () "Major mode for editing freedesktop.org desktop entry files. See <http://www.freedesktop.org/Standards/desktop-entry-spec> for more information. See `desktop-entry-mode-version' for information about which version of the specification this mode is up to date with. Turning on desktop entry mode calls the value of the variable `desktop-entry-mode-hook' with no args, if that value is non-nil." (interactive) (set (make-local-variable 'imenu-generic-expression) '((nil "^\\s-\$.\$\\s-=" 1))) (set (make-local-variable 'compile-command) (concat desktop-entry-validate-command " " buffer-file-name)) (set (make-local-variable 'compilation-buffer-name-function) (lambda (x) (concat "desktop-file-validate " (file-name-nondirectory buffer-file-name) ""))) (set (make-local-variable 'comment-start) "# ") (set (make-local-variable 'comment-end) "") (set (make-local-variable 'comment-start-skip) "#+ ") (setq major-mode 'desktop-entry-mode mode-name "Desktop Entry") (set (make-local-variable 'imenu-generic-expression) desktop-entry-imenu-generic-expression) (unless (featurep 'xemacs) ;; font-lock support for GNU Emacs (set (make-local-variable 'font-lock-defaults) '(desktop-entry-font-lock-keywords))) (run-hooks 'desktop-entry-mode-hook)) (defun desktop-entry-validate () "Validate desktop entry in the current buffer." (interactive) (require 'compile) (compile compile-command)) ;;;###autoload(add-to-list 'auto-mode-alist '("\\.desktop\$\\.in\$?$" . desktop-entry-mode)) (provide 'desktop-entry-mode) ;;; desktop-entry-mode.el ends here PK��k�\ڽ;��#��site-lisp/autoconf/autoconf-mode.elnu��[��;;; autoconf-mode.el --- autoconf code editing commands for Emacs ;; Author: Martin Buchholz (martin@xemacs.org) ;; Maintainer: Martin Buchholz ;; Keywords: languages, faces, m4, configure ;; This file is part of Autoconf ;; Copyright (C) 2001, 2006, 2009-2012 Free Software Foundation, Inc. ;; ;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;; A major mode for editing autoconf input (like configure.in). ;; Derived from m4-mode.el by Andrew Csillag (drew@staff.prodigy.com) ;;; Your should add the following to your Emacs configuration file: ;; (autoload 'autoconf-mode "autoconf-mode" ;; "Major mode for editing autoconf files." t) ;; (setq auto-mode-alist ;; (cons '("\\.ac\\'\\\|configure\\.in\\'" . autoconf-mode) ;; auto-mode-alist)) ;;; Code: ;;thank god for make-regexp.el! (defvar autoconf-font-lock-keywords `(("\\bdnl \$.\$" 1 font-lock-comment-face t) ("\\$[0-9#@]" . font-lock-variable-name-face) ("\\b\$m4_\$?\$builtin\\\|change\\(com\\\|quote\\\|word\$\\\|d\$e\\(bug\\(file\\\|mode\$\\\|cr\\\|f\$ine\\\|n\$\\)\\\|iv\$ert\\\|num\$\\\|nl\\\|umpdef\\)\\\|e\$rrprint\\\|syscmd\\\|val\$\\\|f\$ile\\\|ormat\$\\\|gnu\\\|i\$f\\(def\\\|else\$\\\|n\$c\\(lude\\\|r\$\\\|d\$ex\\\|ir\$\\)\\)\\\|l\$en\\\|ine\$\\\|m\$4\\(exit\\\|wrap\$\\\|aketemp\\\|kstemp\\)\\\|p\$atsubst\\\|opdef\\\|ushdef\$\\\|regexp\\\|s\$hift\\\|include\\\|ubstr\\\|ys\\(cmd\\\|val\$\\)\\\|tra\$ceo\\(ff\\\|n\$\\\|nslit\\)\\\|un\$d\\(efine\\\|ivert\$\\\|ix\\)\\)\\b" . font-lock-keyword-face) ("^\$\\(m4_\$?define\$_default\$?\\\|A._DEFUN\\\|m4_defun\$_once\\\|_init\$?\\)(\\[?\$[A-Za-z0-9_]+\$" 5 font-lock-function-name-face) "default font-lock-keywords") ) (defvar autoconf-mode-syntax-table nil "syntax table used in autoconf mode") (setq autoconf-mode-syntax-table (make-syntax-table)) (modify-syntax-entry ?\" "\"" autoconf-mode-syntax-table) ;;(modify-syntax-entry ?\' "\"" autoconf-mode-syntax-table) (modify-syntax-entry ?# "<\n" autoconf-mode-syntax-table) (modify-syntax-entry ?\n ">#" autoconf-mode-syntax-table) (modify-syntax-entry ?$ "()" autoconf-mode-syntax-table) (modify-syntax-entry ?$ ")(" autoconf-mode-syntax-table) (modify-syntax-entry ?\[ "(]" autoconf-mode-syntax-table) (modify-syntax-entry ?\] ")[" autoconf-mode-syntax-table) (modify-syntax-entry ?* "." autoconf-mode-syntax-table) (modify-syntax-entry ?_ "_" autoconf-mode-syntax-table) (defvar autoconf-mode-map (let ((map (make-sparse-keymap))) (define-key map '[(control c) (\;)] 'comment-region) map)) (defun autoconf-current-defun () "Autoconf value for `add-log-current-defun-function'. This tells add-log.el how to find the current macro." (save-excursion (if (re-search-backward "^\$m4_define\\(_default\$?\\\|m4_defun\$_once\\\|_init\$?\\\|A._DEFUN\\)(\\[\$[A-Za-z0-9_]+\$" nil t) (buffer-substring (match-beginning 4) (match-end 4)) nil))) ;;;###autoload (defun autoconf-mode () "A major-mode to edit Autoconf files like configure.ac. \\{autoconf-mode-map} " (interactive) (kill-all-local-variables) (use-local-map autoconf-mode-map) (make-local-variable 'add-log-current-defun-function) (setq add-log-current-defun-function 'autoconf-current-defun) (make-local-variable 'comment-start) (setq comment-start "# ") (make-local-variable 'parse-sexp-ignore-comments) (setq parse-sexp-ignore-comments t) (make-local-variable 'font-lock-defaults) (setq major-mode 'autoconf-mode) (setq mode-name "Autoconf") (setq font-lock-defaults `(autoconf-font-lock-keywords nil)) (set-syntax-table autoconf-mode-syntax-table) (run-hooks 'autoconf-mode-hook)) (provide 'autoconf-mode) ;;; autoconf-mode.el ends here PK��k�\V�7E ��E ��$��site-lisp/autoconf/autotest-mode.elcnu��[��;ELC�� ;;; Compiled ;;; in Emacs version 26.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar autotest-font-lock-keywords '(("\\bdnl\\b\$.\$" 1 font-lock-comment-face t) ("\\$[0-9#@]" . font-lock-variable-name-face) ("^\$m4_define\\\|m4_defun\$(\\[\$[A-Za-z0-9_]+\$" 2 font-lock-function-name-face) ("^AT_SETUP(\\[+\$[^]]+\$" 1 font-lock-function-name-face) ("^AT_DATA(\\[+\$[^]]+\$" 1 font-lock-variable-name-face) ("\\b\$_?m4_[_a-z0-9]\\\|_?A[ST]_[_A-Z0-9]+\$\\b" . font-lock-keyword-face) "default font-lock-keywords")) #@36 syntax table used in autotest mode (defvar autotest-mode-syntax-table nil (#$ . 859)) (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\207" [autotest-mode-syntax-table make-syntax-table modify-syntax-entry 34 "\"" 35 "<\n" 10 ">#" 40 "()" 41 ")(" 91 "(]" 93 ")[" 42 "." 95 "_"] 4) (defvar autotest-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key [(control c) (\;)] comment-region] 4)) #@118 Autotest value for `add-log-current-defun-function'. This tells add-log.el how to find the current test group/macro. (defalias 'autotest-current-defun #[nil "\212\300\301\302\303#\205�\304\224\304\225{)\207" [re-search-backward "^\$m4_define\\\|m4_defun\\\|AT_SETUP\$(\\[+\$[^]]+\$" nil t 2] 4 (#$ . 1419)]) #@78 A major-mode to edit Autotest files like testsuite.at. \{autotest-mode-map} (defalias 'autotest-mode #[nil "\306 \210\307!\210\310\301!\210\311\310\302!\210\312\310\303!\210\313\310\314!\210\315\316\317\f\320!\210\321\322!\207" [autotest-mode-map add-log-current-defun-function comment-start parse-sexp-ignore-comments major-mode mode-name kill-all-local-variables use-local-map make-local-variable autotest-current-defun "# " t font-lock-defaults autotest-mode "Autotest" (autotest-font-lock-keywords nil) set-syntax-table run-hooks autotest-mode-hook autotest-mode-syntax-table] 2 (#$ . 1736) nil]) (provide 'autotest-mode) PK��k�\�� $��site-lisp/autoconf/autoconf-mode.elcnu��[��;ELC�� ;;; Compiled ;;; in Emacs version 26.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar autoconf-font-lock-keywords '(("\\bdnl \$.\$" 1 font-lock-comment-face t) ("\\$[0-9#@]" . font-lock-variable-name-face) ("\\b\$m4_\$?\$builtin\\\|change\\(com\\\|quote\\\|word\$\\\|d\$e\\(bug\\(file\\\|mode\$\\\|cr\\\|f\$ine\\\|n\$\\)\\\|iv\$ert\\\|num\$\\\|nl\\\|umpdef\\)\\\|e\$rrprint\\\|syscmd\\\|val\$\\\|f\$ile\\\|ormat\$\\\|gnu\\\|i\$f\\(def\\\|else\$\\\|n\$c\\(lude\\\|r\$\\\|d\$ex\\\|ir\$\\)\\)\\\|l\$en\\\|ine\$\\\|m\$4\\(exit\\\|wrap\$\\\|aketemp\\\|kstemp\\)\\\|p\$atsubst\\\|opdef\\\|ushdef\$\\\|regexp\\\|s\$hift\\\|include\\\|ubstr\\\|ys\\(cmd\\\|val\$\\)\\\|tra\$ceo\\(ff\\\|n\$\\\|nslit\\)\\\|un\$d\\(efine\\\|ivert\$\\\|ix\\)\\)\\b" . font-lock-keyword-face) ("^\$\\(m4_\$?define\$_default\$?\\\|A._DEFUN\\\|m4_defun\$_once\\\|_init\$?\\)(\\[?\$[A-Za-z0-9_]+\$" 5 font-lock-function-name-face) "default font-lock-keywords")) #@36 syntax table used in autoconf mode (defvar autoconf-mode-syntax-table nil (#$ . 1255)) (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\207" [autoconf-mode-syntax-table make-syntax-table modify-syntax-entry 34 "\"" 35 "<\n" 10 ">#" 40 "()" 41 ")(" 91 "(]" 93 ")[" 42 "." 95 "_"] 4) (defvar autoconf-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key [(control c) (\;)] comment-region] 4)) #@107 Autoconf value for `add-log-current-defun-function'. This tells add-log.el how to find the current macro. (defalias 'autoconf-current-defun #[nil "\212\300\301\302\303#\205�\304\224\304\225{)\207" [re-search-backward "^\$m4_define\\(_default\$?\\\|m4_defun\$_once\\\|_init\$?\\\|A._DEFUN\\)(\\[\$[A-Za-z0-9_]+\$" nil t 4] 4 (#$ . 1816)]) #@78 A major-mode to edit Autoconf files like configure.ac. \{autoconf-mode-map} (defalias 'autoconf-mode #[nil "\306 \210\307!\210\310\301!\210\311\310\302!\210\312\310\303!\210\313\310\314!\210\315\316\317\f\320!\210\321\322!\207" [autoconf-mode-map add-log-current-defun-function comment-start parse-sexp-ignore-comments major-mode mode-name kill-all-local-variables use-local-map make-local-variable autoconf-current-defun "# " t font-lock-defaults autoconf-mode "Autoconf" (autoconf-font-lock-keywords nil) set-syntax-table run-hooks autoconf-mode-hook autoconf-mode-syntax-table] 2 (#$ . 2165) nil]) (provide 'autoconf-mode) PK��k�\��#��site-lisp/autoconf/autotest-mode.elnu��[��;;; autotest-mode.el --- autotest code editing commands for Emacs ;; Author: Akim Demaille (akim@freefriends.org) ;; Keywords: languages, faces, m4, Autotest ;; This file is part of Autoconf ;; Copyright (C) 2001, 2009-2012 Free Software Foundation, Inc. ;; ;; This program is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; A major mode for editing autotest input (like testsuite.at). ;; Derived from autoconf-mode.el, by Martin Buchholz (martin@xemacs.org). ;;; Your should add the following to your Emacs configuration file: ;; (autoload 'autotest-mode "autotest-mode" ;; "Major mode for editing autotest files." t) ;; (setq auto-mode-alist ;; (cons '("\\.at\\'" . autotest-mode) auto-mode-alist)) ;;; Code: (defvar autotest-font-lock-keywords `(("\\bdnl\\b\$.\$" 1 font-lock-comment-face t) ("\\$[0-9#@]" . font-lock-variable-name-face) ("^\$m4_define\\\|m4_defun\$(\\[\$[A-Za-z0-9_]+\$" 2 font-lock-function-name-face) ("^AT_SETUP(\\[+\$[^]]+\$" 1 font-lock-function-name-face) ("^AT_DATA(\\[+\$[^]]+\$" 1 font-lock-variable-name-face) ("\\b\$_?m4_[_a-z0-9]\\\|_?A[ST]_[_A-Z0-9]+\$\\b" . font-lock-keyword-face) "default font-lock-keywords") ) (defvar autotest-mode-syntax-table nil "syntax table used in autotest mode") (setq autotest-mode-syntax-table (make-syntax-table)) (modify-syntax-entry ?\" "\"" autotest-mode-syntax-table) ;;(modify-syntax-entry ?\' "\"" autotest-mode-syntax-table) (modify-syntax-entry ?# "<\n" autotest-mode-syntax-table) (modify-syntax-entry ?\n ">#" autotest-mode-syntax-table) (modify-syntax-entry ?$ "()" autotest-mode-syntax-table) (modify-syntax-entry ?$ ")(" autotest-mode-syntax-table) (modify-syntax-entry ?\[ "(]" autotest-mode-syntax-table) (modify-syntax-entry ?\] ")[" autotest-mode-syntax-table) (modify-syntax-entry ?* "." autotest-mode-syntax-table) (modify-syntax-entry ?_ "_" autotest-mode-syntax-table) (defvar autotest-mode-map (let ((map (make-sparse-keymap))) (define-key map '[(control c) (\;)] 'comment-region) map)) (defun autotest-current-defun () "Autotest value for `add-log-current-defun-function'. This tells add-log.el how to find the current test group/macro." (save-excursion (if (re-search-backward "^\$m4_define\\\|m4_defun\\\|AT_SETUP\$(\\[+\$[^]]+\$" nil t) (buffer-substring (match-beginning 2) (match-end 2)) nil))) ;;;###autoload (defun autotest-mode () "A major-mode to edit Autotest files like testsuite.at. \\{autotest-mode-map} " (interactive) (kill-all-local-variables) (use-local-map autotest-mode-map) (make-local-variable 'add-log-current-defun-function) (setq add-log-current-defun-function 'autotest-current-defun) (make-local-variable 'comment-start) (setq comment-start "# ") (make-local-variable 'parse-sexp-ignore-comments) (setq parse-sexp-ignore-comments t) (make-local-variable 'font-lock-defaults) (setq major-mode 'autotest-mode) (setq mode-name "Autotest") (setq font-lock-defaults `(autotest-font-lock-keywords nil)) (set-syntax-table autotest-mode-syntax-table) (run-hooks 'autotest-mode-hook)) (provide 'autotest-mode) ;;; autotest-mode.el ends here PK��k�\�%��site-lisp/systemtap-mode.elnu��[��;;; systemtap-mode.el --- A mode for SystemTap ;; Copyright (C) 2008, 2020 Tomoki Sekiyama <sekiyama@yahoo.co.jp> ;; Copyright (C) 2012 Rüdiger Sonderfeld <ruediger@c-plusplus.de> ;; Authors: 2008 Tomoki Sekiyama ;; 2012 Rüdiger Sonderfeld ;; Maintainer: ruediger@c-plusplus.de ;; Keywords: tools languages ;; Version: 0.02 ;; URL: https://github.com/ruediger/systemtap-mode ;; This file is NOT part of GNU Emacs. ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2 of the License, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; see the file COPYING. If not, write to ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; This code is based on the original systemtap-mode.el written by ;; Tomoki Sekiyama. It can be found at ;; http://coderepos.org/share/browser/lang/elisp/systemtap-mode/systemtap-mode.el?format=txt ;; TODO: ;; - indent embedded-C %{ ... %} correctly ;; - add parameter for indentation ;; - ... ;;; Code: (defconst systemtap-mode-version "0.02" "SystemTap Mode version number.") (defgroup systemtap-mode nil "A mode for SystemTap." :prefix "systemtap-" :group 'tools :group 'languages) (require 'cc-mode) (require 'cc-awk) (eval-when-compile (require 'cc-langs) (require 'cc-fonts) (require 'cl-lib)) (eval-and-compile (c-add-language 'systemtap-mode 'awk-mode)) ;; Syntax definitions for SystemTap (c-lang-defconst c-primitive-type-kwds systemtap '("string" "long" "global" "private")) (c-lang-defconst c-modifier-kwds systemtap (append '("probe" "function") (c-lang-const c-modifier-kwds))) (c-lang-defconst c-block-stmt-2-kwds systemtap '("else" "for" "foreach" "if" "while")) (c-lang-defconst c-simple-stmt-kwds systemtap '("break" "continue" "delete" "next" "return")) (c-lang-defconst c-identifier-syntax-modifications systemtap '((?. . "_") (?' . "."))) (defcustom systemtap-font-lock-extra-types nil "Font-lock extra types for SystemTap mode." :group 'systemtap-mode) (defconst systemtap-font-lock-keywords-1 (c-lang-const c-matchers-1 systemtap) "Minimal highlighting for SystemTap mode.") (defconst systemtap-font-lock-keywords-2 (c-lang-const c-matchers-2 systemtap) "Fast normal highlighting for SystemTap mode.") (defconst systemtap-font-lock-keywords-3 (c-lang-const c-matchers-3 systemtap) "Accurate normal highlighting for SystemTap mode.") (defvar systemtap-font-lock-keywords systemtap-font-lock-keywords-3 "Default expressions to highlight in SystemTap mode.") (defvar systemtap-mode-syntax-table nil "Syntax table used in systemtap-mode buffers.") (unless systemtap-mode-syntax-table (setq systemtap-mode-syntax-table (funcall (c-lang-const c-make-mode-syntax-table systemtap)))) (defvar systemtap-mode-abbrev-table nil "Abbreviation table used in systemtap-mode buffers.") (defvar systemtap-mode-map (let ((map (c-make-inherited-keymap))) (define-key map "\C-ce" 'systemtap-execute-script) (define-key map "\C-cc" 'systemtap-interrupt-script) map) "Keymap used in systemtap-mode buffers.") (easy-menu-define systemtap-menu systemtap-mode-map "SystemTap Mode Commands" (cons "SystemTap" (append '(["Execute This Script" systemtap-execute-script t] ["Interrupt Execution of Script" systemtap-interrupt-script (get-process "systemtap-script")] "----") (c-lang-const c-mode-menu systemtap)))) ;; Execution function of Current Script (defvar systemtap-buffer-name "SystemTap" "Name of the SystemTap execution buffer.") (defcustom systemtap-stap-program "stap" "SystemTap's stap program to execute scripts." :type 'file :group 'systemtap-mode) (defcustom systemtap-stap-options '("-v") "A list of options to give to stap." :type '(repeat string) :group 'systemtap-mode) (defun systemtap-execute-script () "Execute current SystemTap script." (interactive) (when (get-buffer systemtap-buffer-name) (kill-buffer systemtap-buffer-name)) (get-buffer-create systemtap-buffer-name) (display-buffer systemtap-buffer-name) (let* ((file-name (buffer-file-name)) (options (append systemtap-stap-options (list file-name)))) (apply #'start-process "systemtap-script" systemtap-buffer-name systemtap-stap-program options)) (message "Execution of SystemTap script started.")) (defun systemtap-interrupt-script () "Interrupt running SystemTap script." (interactive) (interrupt-process "systemtap-script") (message "SystemTap script is interrupted.")) (add-to-list 'auto-mode-alist '("\\.stp\\'" . systemtap-mode)) (add-to-list 'auto-mode-alist '("\\.stpm\\'" . systemtap-mode)) (require 'simple) (define-derived-mode systemtap-mode prog-mode "SystemTap" "Major mode for editing SystemTap scripts. Key bindings: \\{systemtap-mode-map}" :group 'systemtap :syntax-table systemtap-mode-syntax-table :abbrev-table systemtap-mode-abbrev-table (c-initialize-cc-mode t) (use-local-map systemtap-mode-map) (c-init-language-vars systemtap-mode) (c-common-init 'systemtap-mode) (easy-menu-add systemtap-menu) (c-run-mode-hooks 'c-mode-common-hook) (set (make-local-variable 'comment-start) "#") (c-update-modeline)) (provide 'systemtap-mode) ;;; systemtap-mode.el ends here PK��k�\z�}��#��site-lisp/protobuf/protobuf-mode.elnu��[��PK��k�\c�C��$��-��site-lisp/protobuf/protobuf-mode.elcnu��[��PK��k�\H�b�v��v��e��site-lisp/git/git.elnu��[��PK��k�\Yeo��site-lisp/git/git-blame.elnu��[��PK��k�\�O��1��site-lisp/site-start.d/desktop-entry-mode-init.elnu��[��PK��k�\?�פ��(��site-lisp/site-start.d/systemtap-init.elnu��[��PK��k�\Qʁ�f��f��'��site-lisp/site-start.d/protobuf-init.elnu��[��PK��k�\��7��7��'��i��site-lisp/site-start.d/autoconf-init.elnu��[��PK��k�\J��z��z��site-lisp/libidn/punycode.elnu��[��PK��k�\��U'@��@��site-lisp/libidn/idna.elnu��[��PK��k�\(�h��E"�site-lisp/libidn/punycode.elcnu��[��PK��k�\5uXz>��>��4�site-lisp/libidn/idna.elcnu��[��PK��k�\�+��2��G�site-lisp/desktop-file-utils/desktop-entry-mode.elnu��[��PK��k�\ڽ;��#��e�site-lisp/autoconf/autoconf-mode.elnu��[��PK��k�\V�7E ��E ��$��*w�site-lisp/autoconf/autotest-mode.elcnu��[��PK��k�\�� $��À�site-lisp/autoconf/autoconf-mode.elcnu��[��PK��k�\��#�� site-lisp/autoconf/autotest-mode.elnu��[��PK��k�\�%��@��site-lisp/systemtap-mode.elnu��[��PK��I��

| ver. 1.4 | Github | . | PHP 8.4.23 | Generation time: 0 | proxy | phpinfo | Settings