Gecko [ goons4good.org ]

Name	Size	Permission	Date
comp.elc	81.61 KB	-rw-r--r--	2023-06-07 04:13
grammar.elc	23.87 KB	-rw-r--r--	2023-06-07 04:13
java-tags.elc	3.99 KB	-rw-r--r--	2023-06-07 04:13
javascript.elc	6.21 KB	-rw-r--r--	2023-06-07 04:13
javat-wy.elc	87.1 KB	-rw-r--r--	2023-06-07 04:13
js-wy.elc	130.45 KB	-rw-r--r--	2023-06-07 04:13
python-wy.elc	144.64 KB	-rw-r--r--	2023-06-07 04:13
python.elc	27.61 KB	-rw-r--r--	2023-06-07 04:13
wisent.elc	13.89 KB	-rw-r--r--	2023-06-07 04:13

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:13:28 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/wisent/python.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302\303\304#\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\207" [require rx python nil t semantic/wisent semantic/wisent/python-wy semantic/find semantic/dep semantic/ctxt] 4)
#@68 Evaluate some Python code that determines the system include path.
(defalias 'semantic-python-get-system-include-path #[nil "\300\301\302\303\304\305\306!\307\310#\"\"\207" [delq nil mapcar #[(dir) "\301!\205�\207" [dir file-directory-p] 2] split-string python-shell-internal-send-string "import sys;print ('\\n'.join(sys.path))" "\n" t] 8 (#$ . 792)])
(byte-code "\306\300\307\310\311\312\311\313\314\315\316\317&\210\320\321	BC\322\323#\210\324\325\323\"\210	\210)\326\321\323\327!\330\n\204F�\211\204F� \205E�\331
\"\n\203p�\f\204p�\n\332N\203_�\331
\n\332N\"\211\204F�\n\211\333N\206j�\n\334N)\211\204J�\f,\335\336#\210\326\321\323\300#\207" [semantic-python-dependency-system-include-path #3=#:tmp0 mode symbol bind name custom-declare-variable (when (and (featurep 'python) (not noninteractive)) (semantic-python-get-system-include-path)) "The system include path used by Python language." :group python semantic :type (repeat (directory :tag "Directory")) :set #[(sym val) "\303	\"\210	\304\305\nBC\306\307#\210\310\311\307\"\210\n\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) python-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# python-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-symbol-table mode-local-parent derived-mode-parent variable-documentation "System path to search for include files." mode-local-active-mode major-mode] 12)
#@47 Regexp matching beginning of a Python string.
(defconst wisent-python-string-start-re "[uU]?[rR]?['\"]" (#$ . 2615))
#@43 Regexp matching a complete Python string.
(defconst wisent-python-string-re "[Uu]?[Rr]?\$?:'''\\(?:\\\\'\\|[^']\\|'\\{1,2\\}[^']\$*'''\\|'\$?:\\\\'\\|[^']\$*'\\|\"\"\"\$?:\\\\\"\\|[^\"]\\|\"\\{1,2\\}[^\"]\$*\"\"\"\\|\"\$?:\\\\\"\\|[^\"]\$*\"\\)" (#$ . 2738))
#@67 Non-nil when expanding a paren block for Python lexical analyzer.
(defvar wisent-python-EXPANDING-block nil (#$ . 3011))
#@134 Return non-nil if implicit line joining is active.
That is, if inside an expression in parentheses, square brackets or
curly braces.
(defalias 'wisent-python-implicit-line-joining-p #[nil "\207" [wisent-python-EXPANDING-block] 1 (#$ . 3139)])
#@54 Move point at the end of the Python string at point.
(defalias 'wisent-python-forward-string #[nil "\303!\203\"�\304\224\304\225	\nZ\305U\203�\303\306!\203�\307\310!\210	b*\207\307\310!\207" [wisent-python-string-re end start looking-at 0 2 "\"\\{3\\}\\|'\\{3\\}" error "unterminated syntax"] 2 (#$ . 3389)])
(put 'wisent-python-forward-string 'byte-optimizer 'byte-compile-inline-expand)
#@273 Move point to the end of the balanced expression at point.
Here 'balanced expression' means anything matched by Emacs'
open/close parenthesis syntax classes.  We can't use forward-sexp
for this because that Emacs built-in can't parse Python's
triple-quoted string syntax.
(defalias 'wisent-python-forward-balanced-expression #[nil "\305`!A\306u\210m\204k�`f=\204k�\307	!\203D�\307\n!\203=�\310\224\310\225\fZ\311U\2037�\307\312!\2037�\313\314!\210b*\202@�\313\314!\210\202�\307\315!\203P�\316\210\202�\307\317!\203\\�\320 \210\202�\321\322\323!!\203�\313\324!\210\202�\306u)\207" [end-char wisent-python-string-start-re wisent-python-string-re end start syntax-after 1 looking-at 0 2 "\"\\{3\\}\\|'\\{3\\}" error "unterminated syntax" "\\s<" nil "\\s(" wisent-python-forward-balanced-expression zerop skip-syntax-forward "-w_.$\\>" "can't figure out how to go forward from here"] 3 (#$ . 3790)])
#@385 Move point to the beginning of the next logical line.
Usually this is simply the next physical line unless strings,
implicit/explicit line continuation, blank lines, or comment lines are
encountered.  This function skips over such items so that the point is
at the beginning of the next logical line.  If the current logical
line ends at the end of the buffer, leave the point there.
(defalias 'wisent-python-forward-line #[nil "l\204j�`\304!\2036�\304	!\203/�\305\224\305\225\nZ\306U\203)�\304\307!\203)�\310\311!\210\nb*\2022�\310\311!\210\202^�\304\312!\203B�\313\210\202^�\304\314!\203N�\315 \210\202^�\304\316!\203Z�\317y\210\202^�\320\321!\210`U\203��\310\322!\210\202��\323d!\210m\206t�\324 \207" [wisent-python-string-start-re wisent-python-string-re end start looking-at 0 2 "\"\\{3\\}\\|'\\{3\\}" error "unterminated syntax" "\\s<" nil "\\s(" wisent-python-forward-balanced-expression "\\s\\" 1 skip-syntax-forward "-w_.$)" "python-forward-line endless loop detected" forward-comment beginning-of-line] 3 (#$ . 4705)])
#@165 Move point to the next logical line, skipping indented lines.
That is the next line whose indentation is less than or equal to
the indentation of the current line.
(defalias 'wisent-python-forward-line-skip-indented #[nil "\301 \302 \210m?\205�\301 V\205�\202�)\207" [indent current-indentation wisent-python-forward-line] 2 (#$ . 5746)])
#@45 Move point to the end of the current block.
(defalias 'wisent-python-end-of-block #[nil "\301 m\204�\301 Y\203�\302 \210\202�\303d[!\210n\206�\304y)\207" [indent current-indentation wisent-python-forward-line-skip-indented forward-comment 1] 2 (#$ . 6096)])
#@67 Detect and create Python indentation tokens at beginning of line.
(defvar wisent-python-lex-beginning-of-line nil (#$ . 6366))
(defalias 'wisent-python-lex-beginning-of-line #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [wisent-python-lex-beginning-of-line ((and (bolp) (not (wisent-python-implicit-line-joining-p)) (let ((last-indent (car wisent-python-indent-stack)) (last-pos (point)) (curr-indent (current-indentation))) (skip-syntax-forward #1="-") (cond ((or (eolp) (looking-at semantic-lex-comment-regex)) (forward-comment (point-max)) (or (eobp) (beginning-of-line)) (setq semantic-lex-end-point (point)) t) ((= curr-indent last-indent) (setq semantic-lex-end-point (point)) nil) ((> curr-indent last-indent) (if (or (not semantic-lex-maximum-depth) (< semantic-lex-current-depth semantic-lex-maximum-depth)) (progn (setq semantic-lex-current-depth (1+ semantic-lex-current-depth)) (push curr-indent wisent-python-indent-stack) (semantic-lex-push-token (semantic-lex-token 'INDENT last-pos (point)))) (semantic-lex-push-token (semantic-lex-token 'INDENT_BLOCK (progn (beginning-of-line) (point)) (semantic-lex-unterminated-syntax-protection 'INDENT_BLOCK (wisent-python-end-of-block) (point))))) t) ((progn (while (< curr-indent last-indent) (pop wisent-python-indent-stack) (setq semantic-lex-current-depth (1- semantic-lex-current-depth) last-indent (car wisent-python-indent-stack)) (semantic-lex-push-token (semantic-lex-token 'DEDENT last-pos (point)))) (= last-pos (point))) nil))))) #[nil "\306``dB\307n\203\310 \204@`\311 \312\313!\210l\2040�\314!\203@�\315d!\210m\204;�\316 \210`\202U\203M�`\202V\203\317�	\203_�\n	W\203\221�\nTB\317`BB
B\211@\211\211A@\247\204\207�AA\202\212�A)A)\202\320\316 \210`\203\247�\203\247�\321 \210`\202\253�\306\322\323\217BB
B\211@\211\211A@\247\204\305�AA\202\310�A)A)\202W\203\211A@\210\nS@\324`BB
B\211@\211\211A@\247\204AA\202A)A)\202\317�`U\210+
-\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 wisent-python-implicit-line-joining-p current-indentation skip-syntax-forward #1# looking-at forward-comment beginning-of-line INDENT INDENT_BLOCK wisent-python-end-of-block (byte-code "\300 \210`\207" [wisent-python-end-of-block] 1) ((error (byte-code "\304	\n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point INDENT_BLOCK] 4))) DEDENT wisent-python-indent-stack curr-indent last-pos last-indent semantic-lex-comment-regex token debug-on-error semantic-lex-debug-analyzers] 6 "Detect and create Python indentation tokens at beginning of line."]] 2)
#@141 Detect and create Python newline tokens.
Just skip the newline character if the following line is an implicit
continuation of current line.
(defvar wisent-python-lex-end-of-line nil (#$ . 9184))
(defalias 'wisent-python-lex-end-of-line #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [wisent-python-lex-end-of-line ((looking-at #1="\$\n\\|\\s>\$") (if (wisent-python-implicit-line-joining-p) (setq semantic-lex-end-point (match-end 0)) (semantic-lex-push-token (semantic-lex-token 'NEWLINE (point) (match-end 0))))) #[nil "\306``dB\307\310\311!\203B�\312 \203�\307\225\202B�\313`\307\225BB
B\211@\211\f\211\fA@\247\204;�\fAA\202>�\fA)A)
-\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# wisent-python-implicit-line-joining-p NEWLINE token] 6 "Detect and create Python newline tokens.\nJust skip the newline character if the following line is an implicit\ncontinuation of current line."]] 2)
#@41 Detect and create python string tokens.
(defvar wisent-python-lex-string nil (#$ . 10238))
(defalias 'wisent-python-lex-string #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [wisent-python-lex-string ((looking-at wisent-python-string-start-re) (semantic-lex-push-token (semantic-lex-token 'STRING_LITERAL (point) (semantic-lex-unterminated-syntax-protection 'STRING_LITERAL (wisent-python-forward-string) (point))))) #[nil "\306``dB\307\310!\203v�\311`\203Q�\203Q�\310!\203I�\307\224\307\225Z\312U\203B�\310\313!\203B�\314\315!\210b*\202L�\314\315!\210`\202U�\306\316\317\217BB
B\211@\211\211A@\247\204o�AA\202r�A)A)
-\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 STRING_LITERAL 2 #1="\"\\{3\\}\\|'\\{3\\}" error #2="unterminated syntax" (byte-code "\303!\203$�\304\224\304\225	\nZ\305U\203�\303\306!\203�\307\310!\210	b*\202'�\307\310!\210`\207" [wisent-python-string-re end start looking-at 0 2 #1# error #2#] 2) ((error (byte-code "\304	\n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point STRING_LITERAL] 4))) wisent-python-string-start-re debug-on-error semantic-lex-debug-analyzers wisent-python-string-re end start token] 6 "Detect and create python string tokens."]] 2)
#@179 Detect and skip over backslash (explicit line joining) tokens.
A backslash must be the last token of a physical line, it is illegal
elsewhere on a line outside a string literal.
(defvar wisent-python-lex-ignore-backslash nil (#$ . 11683))
(defalias 'wisent-python-lex-ignore-backslash #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [wisent-python-lex-ignore-backslash ((looking-at #1="\\s\\\\s-*$") (forward-line) (skip-syntax-forward #2="-") (setq semantic-lex-end-point (point))) #[nil "\306``dB\307\310\311!\203�\306y\210\312\313!\210`
-\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# skip-syntax-forward #2#] 5 "Detect and skip over backslash (explicit line joining) tokens.\nA backslash must be the last token of a physical line, it is illegal\nelsewhere on a line outside a string literal."]] 2)
#@76 Lexical Analyzer for Python code.
See `semantic-lex' for more information.
(defalias 'wisent-python-lexer #[(start end &optional depth length) "\306\307\310	\n#\210`\306\211	@	A\311BC\206�DE	\nBF\306G\ndV\2034�\312\313\nd#\210\314 pHI\315\216\316J!\210	b\210`\nW\203�K\203X�\fGKX\203�n\203v\317 \204vL@`\320 MNO\321\322!\210l\204|�\323P!\203\216�\324d!\210m\204\207�\325 \210`A\326\202rMOU\203\235�`A\306\202rMOV\203'E\203\262�BEW\203\347�BTBMLBL\327N`BB\fB\211@\211Q\211QA@\247\204\334�QAA\202\337�QA)A)A\202#\330\325 \210`R\203\375�S\203\375�\331 \210`\202\306\332\333\217BB\fB\211@\211Q\211QA@\247\204QAA\202QA)A)A\326\202rMOW\203jL\211AL@\210BSBL@O\334N`BB\fB\211@\211Q\211QA@\247\204_QAA\202bQA)A)A\202'N`U\205r\306+\204\235\323\335!\203\261\317 \203\210\311\225A\202\235\336`\311\225BB\fB\211@\211Q\211QA@\247\204\246QAA\202\251QA)A)A\202\235\323T!\203\337`R\203\361S\203\361\323U!\203\351\311\224\311\225\n	Z\340U\203\343\323\341!\203\343\312\342!\210\nb*\202\354\312\342!\210`\202\365\306\343\344\217BB\fB\211@\211Q\211QA@\247\204QAA\202QA)A)A\202\235\323V!\203K\345\311\224\311\225BB\fB\211@\211Q\211QA@\247\204@QAA\202CQA)A)A\202\235\323\346!\203\252\347\311!\211WW\350X!\205lW;\205l\351WX\")\211W\205vWJ)\211Y\205\246Y\311\224\311\225BB\fB\211@\211Q\211QA@\247\204\235QAA\202\240QA)A)\211A)\204\235\323\346!\203\332\352\311\224\311\225BB\fB\211@\211Q\211QA@\247\204\317QAA\202\322QA)A)A\202\235\323\353!\203\275\347\311!\354\306Z[\\\355\\[@\"\211Z\203|E\203BEW\2038BTBZA@\311\224\311\225BB\fB\211@\211Q\211QA@\247\204,QAA\202/QA)A)\211A\202\271\340Z8\311\224\212R\203QS\203Q\356\357!\210`\202U\306\360\361\217)BB\fB\211@\211Q\211QA@\247\204pQAA\202sQA)A)\211A\202\271\355\\[A\"\211Z\205\271BSBZA@\311\224\311\225BB\fB\211@\211Q\211QA@\247\204\260QAA\202\263QA)A)\211A+\204\235\323\362!\203B\347\311!]\311\224^\311\225\211_^Z`\363a\306b`\311V\203\377\364]a\"\211b\204\377`S`]\311`O]\202\334b\203b@b^`\\_b\206\365^_BB\fB\211@\211Q\211QA@\247\2044QAA\2027QA)A)\211A.\204\235\323\366!\203U\306y\210\321\322!\210`A\202\235\323\367!\203b\311\225A\202\235\323P!\203\231`c\324\357!\210`c=\203\200\321\370\371 \"\210\202\207n\203\207\372u\210`c=\203\222\312\373!\210`A)\202\235\312\374!\210A@=\203\255\312\375@\f@#\210A@Ab\210d\203\316\376 \204\304\377 \203\316\201l�d\201m�\"\210\f@Qe\205\373\306f\201n�\216Q\203\353\201o�Q!f\201p�\201q�\201r�QB#!*)\210\202E�+
\203J
\211A@\211g\211h\2031\201s�\201t�h@h\211iA@)#\210
\211A@\211h\204g@jkjF@FA#b\210`\211A)\210*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 "wisent-python-lexer: end (%d) > point-max (%d)" syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1=#:buffer #2=#:table set-syntax-table] 2)) set-syntax-table wisent-python-implicit-line-joining-p current-indentation skip-syntax-forward "-" looking-at forward-comment beginning-of-line t INDENT INDENT_BLOCK wisent-python-end-of-block (byte-code "\300 \210`\207" [wisent-python-end-of-block] 1) ((error (byte-code "\304	\n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point INDENT_BLOCK] 4))) DEDENT "\$\n\\|\\s>\$" NEWLINE STRING_LITERAL 2 #3="\"\\{3\\}\\|'\\{3\\}" #4="unterminated syntax" (byte-code "\303!\203$�\304\224\304\225	\nZ\305U\203�\303\306!\203�\307\310!\210	b*\202'�\307\310!\210`\207" [wisent-python-string-re end start looking-at 0 2 #3# error #4#] 2) ((error (byte-code "\304	\n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point STRING_LITERAL] 4))) NUMBER_LITERAL "\$\\sw\\|\\s_\$+" match-string arrayp intern-soft NAME "\\s(\\|\\s)" ((("(" LPAREN PAREN_BLOCK) ("{" LBRACE BRACE_BLOCK) ("[" LBRACK BRACK_BLOCK)) (")" RPAREN) ("}" RBRACE) ("]" RBRACK)) assoc forward-list 1 (byte-code "\300\301!\210`\207" [forward-list 1] 2) ((error (byte-code "\3058\n	@A#b\210`\211)\207" [#5=#:elt syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point 2] 4))) "\$\\s.\\|\\s$\\|\\s'\$+" ((AT . "@") (BACKQUOTE . "`") (ASSIGN . "=") (COMMA . ",") (SEMICOLON . ";") (COLON . ":") (BAR . "|") (TILDE . "~") (PERIOD . ".") (MINUS . "-") (PLUS . "+") (MOD . "%") (DIV . "/") (MULT . "*") (AMP . "&") (GT . ">") (LT . "<") (HAT . "^") (NE . "!=") (LTGT . "<>") (HATEQ . "^=") (OREQ . "|=") (AMPEQ . "&=") (MODEQ . "%=") (DIVEQ . "/=") (MULTEQ . "*=") (MINUSEQ . "-=") (PLUSEQ . "+=") (LE . "<=") (GE . ">=") (EQ . "==") (EXPONENT . "**") (GTGT . ">>") (LTLT . "<<") (DIVDIV . "//") (DIVDIVEQ . "//=") (EXPEQ . "**=") (GTGTEQ . ">>=") (LTLTEQ . "<<=")) rassoc punctuation "\\s\\\\s-*$" "\\s-+" "-.'" point-at-eol -1 "Strange comment syntax prevents lexical analysis" "Unmatched Text during Lexical Analysis" "wisent-python-lexer: endless loop at %d, after %S" input-pending-p accept-process-output 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 wisent-python-indent-stack curr-indent last-pos last-indent semantic-lex-comment-regex token debug-on-error semantic-lex-debug-analyzers wisent-python-string-start-re wisent-python-string-re semantic-lex-number-expression name semantic-flex-keywords-obarray #6=#:key #5# #7=#:lst #8=#:val #9=#:val #10=#:pos #11=#:end #12=#:len #13=#:lst #14=#:elt comment-start-point semantic-current-input-throw-symbol semantic-lex-debug o last blk x syntax semantic-lex-unterminated-syntax-end-function throw lex ((byte-code "\203�\301!\210\301\207" [o semantic-overlay-delete] 2)) semantic-lex-highlight-token semantic-read-event format "%S :: Depth: %d :: SPC - continue" message "wisent-python-lexer: `%s' block from %S is unterminated"] 6 (#$ . 12642)])
#@142 Move a docstring from TAG's members into its :documentation attribute.
Set attributes for constructors, special, private and static methods.
(defalias 'wisent-python-reconstitute-function-tag #[(tag suite) "@\306	!\203+�\n\307\310	!\211\211AA)\211:\203(�
\311\312
@\f#!\240\210\n,\210)\n\211\313\314\n\315\n8)\f\"+G\316V\203|�\n\211\313\314\n\315\n8)\f\"+@\211@)\317\230\203|�\n\320\321\211\211AA)\211:\203y�
\311\312
@\f#!\240\210\n,\210\n\211@)\322\230\203\311�\n\323\324\211\211AA)\211:\203\243�
\311\312
@\f#!\240\210\n,\210\n\325\211\211AA)\211:\203\303�
\311\312
@\f#!\240\210\n,\210\202\326\n!\203\362�\n\327\324\211\211AA)\211:\203\354�
\311\312
@\f#!\240\210\n,\210\202\330\n!\203\n\331\332\211\211AA)\211:\203
\311\312
@\f#!\240\210\n,\210!\"\333\n\334\314\n\315\n8)\f\"*!\335#\211$\203R$@\211@)\336\230\203I$@#B#$A\211$\2045#\237+\203\210\n\337\340\n\337\314\n\315\n8)\f\"*B\211\211AA)\211:\203\205
\311\312
@\f#!\240\210\n,\210\n\207" [suite first-statement tag value attribute plist-cdr semantic-python-docstring-p :documentation semantic-python-extract-docstring semantic-tag-make-plist plist-put :arguments plist-get 2 0 "self" :parent "dummy" "__init__" :constructor-flag t :suite semantic-python-special-p :special-flag semantic-python-private-p :protection "private" semantic-something-to-tag-table :decorators nil "staticmethod" :typemodifiers "static" semantic-case-fold case-fold-search result tags] 7 (#$ . 18914)])
#@72 Move a docstring from TAG's members into its :documentation attribute.
(defalias 'wisent-python-reconstitute-class-tag #[(tag) "\211\306\307\3108)	\"+@\311\n!\203j�\306\211\306\307\3108)	\"+A\211\211AA)\211:\203E�\f\312\313\f@	#!\240\210,\210\314\315\n!\211\211AA)\211:\203g�\f\312\313\f@	#!\240\210,\210)\211\306\307\3108)	\"+\316\211\203c@\211\211\317\307\3108)	\"+\203Z
\211\320\307\3108)	\"+@\211@)
\321\307\3108)	\"*\316\211\203Y@\322\"\203P\211\211@)\323\316O\206\355�\211@)\211A@)\324\3108)!\324\3258)!\3268)\257*\306\307\3108)	\"* \327 !\203F \330\331\211\211AA)\211:\203C\f\312\313\f@	#!\240\210,\210\332! C\241\210*A\211\204\310�+A\211\204\203�*\207" [tag attribute first-member value plist-cdr member :members plist-get 2 semantic-python-docstring-p semantic-tag-make-plist plist-put :documentation semantic-python-extract-docstring nil :constructor-flag :arguments :suite semantic-python-instance-variable-p 5 copy-sequence 3 4 semantic-python-private-p :protection "private" last --dolist-tail-- self statement name members variable] 7 (#$ . 20444)])
#@190 Expand compound declarations found in TAG into separate tags.
TAG contains compound declaration if the NAME part of the tag is
a list.  In python, this can happen with `import' statements.
(defalias 'semantic-python-expand-tag #[(tag) "\211A@)\211@)\306\211\307=\205b�\n<\205b�\n\306\211\203]�
@\f\f\f\2064�\211@)\211A@)\310\3118)!\310\3128)!\3138)\257*	B
A\211\204\"�*	\237\211+\207" [tag expand elts class E --dolist-tail-- nil include copy-sequence 2 3 4 name] 7 (#$ . 21649)])
#@379 Lexically analyze Python code in current buffer.
See the function `semantic-lex' for the meaning of the START, END,
DEPTH and LENGTH arguments.
This function calls `wisent-python-lexer' to actually perform the
lexical analysis, then emits the necessary Python DEDENT tokens from
what remains in the `wisent-python-indent-stack'.

Override semantic-lex in `python-mode' buffers.
(defalias 'semantic-lex-python-mode #[(start end &optional depth length) "\306C\307	\n\f$\310\n\211A@\306V\203A�\311\n\211BB\nB\211\n@\211\211A@\247\2046�AA\2029�A)A)\f\202
�
\n\237\244+\207" [wisent-python-indent-stack start end depth length stream 0 wisent-python-lexer nil DEDENT semantic-lex-token-stream token semantic-lex-end-point] 6 (#$ . 22168)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-lex-python-mode definition-name semantic-lex mode-local-bind ((semantic-lex . semantic-lex-python-mode)) (override-flag t) python-mode] 4)
#@172 Get the local variables based on point's context.
To be implemented for Python!  For now just return nil.

Override semantic-get-local-variables in `python-mode' buffers.
(defalias 'semantic-get-local-variables-python-mode #[nil "\300\207" [nil] 1 (#$ . 23136)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-get-local-variables-python-mode definition-name semantic-get-local-variables mode-local-bind ((semantic-get-local-variables . semantic-get-local-variables-python-mode)) (override-flag t) python-mode] 4)
#@117 Return a suitable path for (some) Python imports.

Override semantic-tag-include-filename in `python-mode' buffers.
(defalias 'semantic-tag-include-filename-python-mode #[(tag) "\211@)\302\303\304	\305\"\306#\307P)\207" [tag name mapconcat identity split-string "\\." "/" ".py"] 6 (#$ . 23679)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-tag-include-filename-python-mode definition-name semantic-tag-include-filename mode-local-bind ((semantic-tag-include-filename . semantic-tag-include-filename-python-mode)) (override-flag t) python-mode] 4)
#@311 Return the current function call the cursor is in at POINT.
The function returned is the one accepting the arguments that
the cursor is currently in.  It will not return function symbol if the
cursor is on the text representing that function.

Override semantic-ctxt-current-function in `python-mode' buffers.
(defalias 'semantic-ctxt-current-function-python-mode #[(&optional point) "\300\207" [nil] 1 (#$ . 24262)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-current-function-python-mode definition-name semantic-ctxt-current-function mode-local-bind ((semantic-ctxt-current-function . semantic-ctxt-current-function-python-mode)) (override-flag t) python-mode] 4)
#@220 Return the current assignment near the cursor at POINT.
Return a list as per `semantic-ctxt-current-symbol'.
Return nil if there is nothing relevant.

Override semantic-ctxt-current-assignment in `python-mode' buffers.
(defalias 'semantic-ctxt-current-assignment-python-mode #[(&optional point) "\300\207" [nil] 1 (#$ . 24968)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-current-assignment-python-mode definition-name semantic-ctxt-current-assignment mode-local-bind ((semantic-ctxt-current-assignment . semantic-ctxt-current-assignment-python-mode)) (override-flag t) python-mode] 4)
#@25 Setup buffer for parse.
(defalias 'wisent-python-default-setup #[nil "\306 \210\307\300!\210\310	\204�\307\301!\210\311\312\313\314\315\316\317\211\207" [parse-sexp-ignore-comments comment-start-skip semantic-type-relation-separator-character semantic-command-separation-character semantic-tag-expand-function imenu-create-index-function wisent-python-wy--install-parser make-local-variable t "#+\\s-*" (".") ";" semantic-python-expand-tag semantic-create-imenu-index ((variable . "Variables") (function . "Methods")) ((type . "Classes") (variable . "Variables") (function . "Functions") (include . "Imports") (package . "Package") (code . "Code")) semantic-symbol->name-assoc-list-for-type-parts semantic-symbol->name-assoc-list] 2 (#$ . 25592)])
(byte-code "\302\303\304\"\210\305\306\307	\310#\210\311\312	\"*\210\313\306\307	\310#\210\311\312	\"*\207" [parent mode add-hook python-mode-hook wisent-python-default-setup python-2-mode python-mode put mode-local-parent mode-local-map-mode-buffers activate-mode-local-bindings python-3-mode] 4)
#@82 Return non-nil if the name of TAG is a special identifier of
the form __NAME__. 
(defalias 'semantic-python-special-p #[(tag) "\301\302\211@)\"\207" [tag string-match "\\`__\\s_+__\\'"] 4 (#$ . 26661)])
#@83 Return non-nil if the name of TAG follows the convention _NAME
for private names.
(defalias 'semantic-python-private-p #[(tag) "\301\302\211@)\"\207" [tag string-match "\\`_\\s_*\\'"] 4 (#$ . 26872)])
#@112 Return non-nil if TAG is an instance variable of the instance
SELF or the instance name "self" if SELF is nil.
(defalias 'semantic-python-instance-variable-p #[(tag &optional self) "\304\211\211A@)	*=\2052�\211@)\305\306\307\310\206�\311\312BBB!\n\"\2051�\305\313\n\314\315O\"?)\207" [tag class name self variable string-match rx-to-string seq string-start "self" (".") "\\." 5 nil] 7 (#$ . 27082)])
#@60 Return non-nil, when TAG is a Python documentation string.
(defalias 'semantic-python-docstring-p #[(tag) "\211A@)\211@)\211\303=\205�\304\305	\"*\207" [tag name class code string-match "\\`\"\"\"\$?:.\\|\n\$*\"\"\"\\'"] 4 (#$ . 27497)])
#@58 Return the Python documentation string contained in TAG.
(defalias 'semantic-python-extract-docstring #[(tag) "\211@)\211\302\303O)\207" [tag name 3 -3] 4 (#$ . 27750)])
#@46 Run `wisent-python-lexer' on current buffer.
(defalias 'wisent-python-lex-buffer #[nil "\301 \210\302ed\303#r\304\305!q\210\306 \210\307p\"\210eb\210\310p!*\207" [token-stream semantic-lex-init semantic-lex 0 get-buffer-create "*wisent-python-lexer*" erase-buffer pp pop-to-buffer] 4 (#$ . 27929) nil])
(provide 'semantic/wisent/python)