ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/progmodes/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/progmodes/vera-mode.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@27 Vera Mode version number.
(defconst vera-version "2.18" (#$ . 410))
#@39 Vera Mode time stamp for last update.
(defconst vera-time-stamp "2007-06-21" (#$ . 484))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313\314\315\316\317\310\301&\210\312\320\302\321\316\322\310\301&\210\323\320\324\325#\210\312\326\327\330\316\322\310\301&\207" [custom-declare-group vera nil "Customizations for Vera Mode." :prefix "vera-" :version "22.2" :group languages custom-declare-variable vera-basic-offset 2 "Amount of basic offset used for indentation." :type integer vera-underscore-is-part-of-word "Non-nil means consider the underscore character `_' as part of word.\nAn identifier containing underscores is then treated as a single word in\nselect and move operations. All parts of an identifier separated by underscore\nare treated as single words otherwise." boolean make-obsolete-variable superword-mode "24.4" vera-intelligent-tab t "Non-nil means `TAB' does indentation, word completion and tab insertion.\nThat is, if preceding character is part of a word then complete word,\nelse if not at beginning of line then insert tab,\nelse if last command was a `TAB' or `RET' then dedent one step,\nelse indent current line.\nIf nil, TAB always indents current line."] 10)
#@23 Keymap for Vera Mode.
(defvar vera-mode-map (byte-code "\301 \302\303\304#\210\305\306!\204 \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#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210)\207" [map make-sparse-keymap define-key [backspace] backward-delete-char-untabify boundp delete-key-deletes-forward [delete] delete-char [(meta delete)] kill-word "\345" vera-forward-statement "\341" vera-backward-statement "\205" vera-forward-same-indent "\201" vera-backward-same-indent " " indent-according-to-mode "\234" vera-indent-region "" vera-comment-uncomment-region "" vera-version "\211" tab-to-tab-stop " " vera-electric-tab "
" vera-electric-return " " vera-electric-space "{" vera-electric-opening-brace "}" vera-electric-closing-brace "#" vera-electric-pound "*" vera-electric-star "/" vera-electric-slash] 4) (#$ . 1701))
(require 'easymenu)
#@28 Menu keymap for Vera Mode.
(defvar vera-mode-menu nil (#$ . 2811))
(easy-menu-do-define 'vera-mode-menu vera-mode-map "Menu keymap for Vera Mode." '("Vera" ["(Un)Comment Out Region" vera-comment-uncomment-region (mark)] "--" ["Move Forward Statement" vera-forward-statement t] ["Move Backward Statement" vera-backward-statement t] ["Move Forward Same Indent" vera-forward-same-indent t] ["Move Backward Same Indent" vera-backward-same-indent t] "--" ["Indent Line" indent-according-to-mode t] ["Indent Region" vera-indent-region (mark)] ["Indent Buffer" vera-indent-buffer t] "--" ["Documentation" describe-mode] ["Version" vera-version t] ["Bug Report..." vera-submit-bug-report t] "--" ("Options" ["Indentation Offset..." (customize-option 'vera-basic-offset) t] ["Underscore is Part of Word" (customize-set-variable 'vera-underscore-is-part-of-word (not vera-underscore-is-part-of-word)) :style toggle :selected vera-underscore-is-part-of-word] ["Use Intelligent Tab" (customize-set-variable 'vera-intelligent-tab (not vera-intelligent-tab)) :style toggle :selected vera-intelligent-tab] "--" ["Save Options" customize-save-customized t] "--" ["Customize..." vera-customize t])))
#@43 Syntax table used in `vera-mode' buffers.
(defvar vera-mode-syntax-table (byte-code "\302 \303\304\305#\210\303\306\305#\210\303\307\305#\210\303\310\305#\210\303\311\305#\210\303\312\305#\210\303\313\305#\210\303\314\305#\210\303\315\305#\210\303\316\305#\210\303\317\305#\210\303\320\305#\210\303\321\305#\210\303\322\305#\210\303\323\305#\210\303\324\305#\210\303\325\305#\210\303\326\327#\210 \203y \303\330\331#\210\303\324\332#\210\303\333\334#\210\303\335\336#\210\303\337\340#\210\303\341\342#\210\303\343\344#\210\303\345\346#\210\303\316\347#\210\303\312\350#\210\303\351\352#\210\303\353\352#\210)\207" [syntax-table vera-underscore-is-part-of-word make-syntax-table modify-syntax-entry 35 "." 36 37 38 39 42 45 43 46 47 58 59 60 61 62 92 124 34 "\"" 95 "w" "\\" 40 "()" 41 ")(" 91 "(]" 93 ")[" 123 "(}" 125 "){" ". 124b" ". 23" 10 "> b" 13] 4) (#$ . 4000))
#@59 Syntax table extended by `_' used in `vera-mode' buffers.
(defvar vera-mode-ext-syntax-table (byte-code "\302!\303\304\305 #\210 )\207" [vera-mode-syntax-table syntax-table copy-syntax-table modify-syntax-entry 95 "w"] 4) (#$ . 4907))
#@161 Hook run after entering Vera mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar vera-mode-hook nil (#$ . 5151))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp vera-mode-map put definition-name vera-mode] 4)
(defvar vera-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [vera-mode-map variable-documentation put purecopy "Keymap for `vera-mode'." boundp vera-mode-syntax-table definition-name vera-mode] 5)
(defvar vera-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vera-mode-syntax-table variable-documentation put purecopy "Syntax table for `vera-mode'." vera-mode-abbrev-table definition-name vera-mode] 5)
(defvar vera-mode-abbrev-table (progn (define-abbrev-table 'vera-mode-abbrev-table nil) vera-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vera-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `vera-mode'." vera-mode derived-mode-parent prog-mode] 5)
#@1824 Major mode for editing Vera code.
Usage:
------
INDENTATION: Typing `TAB' at the beginning of a line indents the line.
The amount of indentation is specified by option `vera-basic-offset'.
Indentation can be done for an entire region (`M-C-\') or buffer (menu).
`TAB' always indents the line if option `vera-intelligent-tab' is nil.
WORD/COMMAND COMPLETION: Typing `TAB' after a (not completed) word looks
for a word in the buffer or a Vera keyword that starts alike, inserts it
and adjusts case. Re-typing `TAB' toggles through alternative word
completions.
Typing `TAB' after a non-word character inserts a tabulator stop (if not
at the beginning of a line). `M-TAB' always inserts a tabulator stop.
COMMENTS: `C-c C-c' comments out a region if not commented out, and
uncomments a region if already commented out.
HIGHLIGHTING (fontification): Vera keywords, predefined types and
constants, function names, declaration names, directives, as well as
comments and strings are highlighted using different colors.
VERA VERSION: OpenVera 1.4 and Vera version 6.2.8.
Maintenance:
------------
To submit a bug report, use the corresponding menu entry within Vera Mode.
Add a description of the problem and include a reproducible test case.
Feel free to send questions and enhancement requests to <reto@gnu.org>.
Official distribution is at
URL `http://www.iis.ee.ethz.ch/~zimmi/emacs/vera-mode.html'
The Vera Mode Maintainer
Reto Zimmermann <reto@gnu.org>
Key bindings:
-------------
\{vera-mode-map}
In addition to any hooks its parent mode `prog-mode' might have run,
this mode runs the hook `vera-mode-hook', as the final step
during initialization.
(defalias 'vera-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\3246\325\"\204V 67=\204V \3266\3257C#\210\327 !\210\330\f!\21067\331\332!\210\306\333!\210\334\306\335!\210\336 \306\337!\210\340 \306\341!\210\342!\306\343!\210\344#\306\345!\210\346%\306\347!\210\350'\306\351!\210')\306\352!\210\353*\306\354!\210\355,\306\356!\210\307.\306\357!\210\360/\3618!\210\362\3639\"\210)\364\365!\207" [delay-mode-hooks major-mode mode-name vera-mode-map vera-mode-syntax-table parent make-local-variable t prog-mode vera-mode "Vera" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table require cc-cmds comment-start "//" comment-end "" comment-column 40 comment-start-skip "/\\*+ *\\|//+ *" comment-end-skip " *\\*+/\\| *\n" comment-indent-function c-comment-indent paragraph-start "^$" paragraph-separate indent-tabs-mode nil indent-line-function vera-indent-line parse-sexp-ignore-comments font-lock-defaults (vera-font-lock-keywords nil nil ((95 . "w"))) easy-menu-add message "Vera Mode %s. Type C-c C-h for documentation." run-mode-hooks vera-mode-hook vera-mode-abbrev-table local-abbrev-table vera-mode-menu vera-version] 6 (#$ . 6352) nil])
#@24 List of Vera keywords.
(defconst vera-keywords '("after" "all" "any" "around" "assoc_index" "assoc_size" "async" "bad_state" "bad_trans" "before" "begin" "big_endian" "bind" "bin_activation" "bit_normal" "bit_reverse" "break" "breakpoint" "case" "casex" "casez" "class" "constraint" "continue" "coverage" "coverage_block" "coverage_def" "coverage_depth" "coverage_goal" "coverage_group" "coverage_option" "coverage_val" "cross_num_print_missing" "cross_auto_bin_max" "cov_comment" "default" "depth" "dist" "do" "else" "end" "enum" "exhaustive" "export" "extends" "extern" "for" "foreach" "fork" "function" "hdl_task" "hdl_node" "hide" "if" "illegal_self_transition" "illegal_state" "illegal_transition" "in" "interface" "invisible" "join" "little_endian" "local" "m_bad_state" "m_bad_trans" "m_state" "m_trans" "negedge" "new" "newcov" "non_rand" "none" "not" "null" "or" "ordered" "packed" "port" "posedge" "proceed" "prod" "prodget" "prodset" "program" "protected" "public" "rand" "randc" "randcase" "randseq" "repeat" "return" "rules" "sample" "sample_event" "shadow" "soft" "state" "static" "super" "task" "terminate" "this" "trans" "typedef" "unpacked" "var" "vca" "vector" "verilog_node" "verilog_task" "vhdl_node" "vhdl_task" "virtual" "virtuals" "visible" "void" "while" "wildcard" "with") (#$ . 9628))
#@32 List of Vera predefined types.
(defconst vera-types '("integer" "bit" "reg" "string" "bind_var" "event" "inout" "input" "output" "ASYNC" "CLOCK" "NDRIVE" "NHOLD" "NRX" "NRZ" "NR0" "NR1" "NSAMPLE" "PDRIVE" "PHOLD" "PRX" "PRZ" "PR0" "PR1" "PSAMPLE") (#$ . 10945))
#@39 List of Vera predefined VCA q_values.
(defconst vera-q-values '("gnr" "grx" "grz" "gr0" "gr1" "nr" "rx" "rz" "r0" "r1" "snr" "srx" "srz" "sr0" "sr1") (#$ . 11213))
#@68 List of Vera predefined system functions, tasks and class methods.
(defconst vera-functions '("alloc" "call_func" "call_task" "cast_assign" "close_conn" "cm_coverage" "cm_get_coverage" "cm_get_limit" "coverage_backup_database_file" "coverage_save_database" "delay" "error" "error_mode" "error_wait" "exit" "fclose" "feof" "ferror" "fflush" "flag" "fopen" "fprintf" "freadb" "freadb" "freadh" "freadstr" "get_bind" "get_bind_id" "get_conn_err" "get_cycle" "get_env" "get_memsize" "get_plus_arg" "get_systime" "get_time" "get_time_unit" "getstate" "initstate" "lock_file" "mailbox_get" "mailbox_put" "mailbox_receive" "mailbox_send" "make_client" "make_server" "os_command" "printf" "psprintf" "query" "query_str" "query_x" "rand48" "random" "region_enter" "region_exit" "rewind" "semaphore_get" "semaphore_put" "setstate" "signal_connect" "simwave_plot" "srandom" "sprintf" "sscanf" "stop" "suspend_thread" "sync" "timeout" "trace" "trigger" "unit_delay" "unlock_file" "up_connections" "urand48" "urandom" "urandom_range" "vera_bit_reverse" "vera_crc" "vera_pack" "vera_pack_big_endian" "vera_plot" "vera_report_profile" "vera_unpack" "vera_unpack_big_endian" "vsv_call_func" "vsv_call_task" "vsv_close_conn" "vsv_get_conn_err" "vsv_make_client" "vsv_make_server" "vsv_up_connections" "vsv_wait_for_done" "vsv_wait_for_input" "wait_child" "wait_var" "Configure" "DisableTrigger" "DoAction" "EnableCount" "EnableTrigger" "Event" "GetAssert" "GetCount" "GetFirstAssert" "GetName" "GetNextAssert" "Wait" "atobin" "atohex" "atoi" "atooct" "backref" "bittostr" "capacity" "compare" "constraint_mode" "delete" "empty" "find" "find_index" "first" "first_index" "get_at_least" "get_auto_bin" "get_cov_weight" "get_coverage_goal" "get_cross_bin_max" "get_status" "get_status_msg" "getc" "hash" "icompare" "insert" "inst_get_at_least" "inst_get_auto_bin_max" "inst_get_collect" "inst_get_cov_weight" "inst_get_coverage_goal" "inst_getcross_bin_max" "inst_query" "inst_set_at_least" "inst_set_auto_bin_max" "inst_set_bin_activation" "inst_set_collect" "inst_set_cov_weight" "inst_set_coverage_goal" "inst_set_cross_bin_max" "itoa" "last" "last_index" "len" "load" "match" "max" "max_index" "min" "min_index" "object_compare" "object_copy" "object_print" "pack" "pick_index" "pop_back" "pop_front" "post_pack" "post_randomize" "post_unpack" "postmatch" "pre_pack" "pre_randomize" "prematch" "push_back" "push_front" "putc" "query" "query_str" "rand_mode" "randomize" "reserve" "reverse" "rsort" "search" "set_at_least" "set_auto_bin_max" "set_bin_activation" "set_cov_weight" "set_coverage_goal" "set_cross_bin_max" "set_name" "size" "sort" "substr" "sum" "thismatch" "tolower" "toupper" "unique_index" "unpack" "new" "object_compare" "post_boundary" "post_pack" "post_randomize" "post_unpack" "pre-randomize" "pre_boundary" "pre_pack" "pre_unpack") (#$ . 11383))
#@36 List of Vera predefined constants.
(defconst vera-constants '("ALL" "ANY" "BAD_STATE" "BAD_TRANS" "CALL" "CHECK" "CHGEDGE" "CLEAR" "COPY_NO_WAIT" "COPY_WAIT" "CROSS" "CROSS_TRANS" "DEBUG" "DELETE" "EC_ARRAYX" "EC_CODE_END" "EC_CONFLICT" "EC_EVNTIMOUT" "EC_EXPECT" "EC_FULLEXPECT" "EC_MBXTMOUT" "EC_NEXPECT" "EC_RETURN" "EC_RGNTMOUT" "EC_SCONFLICT" "EC_SEMTMOUT" "EC_SEXPECT" "EC_SFULLEXPECT" "EC_SNEXTPECT" "EC_USERSET" "EQ" "EVENT" "FAIL" "FIRST" "FORK" "GE" "GOAL" "GT" "HAND_SHAKE" "HI" "HIGH" "HNUM" "LE" "LIC_EXIT" "LIC_PRERR" "LIC_PRWARN" "LIC_WAIT" "LO" "LOAD" "LOW" "LT" "MAILBOX" "MAX_COM" "NAME" "NE" "NEGEDGE" "NEXT" "NO_OVERLAP" "NO_OVERLAP_STATE" "NO_OVERLAP_TRANS" "NO_VARS" "NO_WAIT" "NUM" "NUM_BIN" "NUM_DET" "OFF" "OK" "OK_LAST" "ON" "ONE_BLAST" "ONE_SHOT" "ORDER" "PAST_IT" "PERCENT" "POSEDGE" "PROGRAM" "RAWIN" "REGION" "REPORT" "SAMPLE" "SAVE" "SEMAPHORE" "SET" "SILENT" "STATE" "STR" "STR_ERR_OUT_OF_RANGE" "STR_ERR_REGEXP_SYNTAX" "SUM" "TRANS" "VERBOSE" "WAIT" "stderr" "stdin" "stdout") (#$ . 14240))
#@28 List of Vera-RVM keywords.
(defconst vera-rvm-types '("VeraListIterator_VeraListIterator_rvm_log" "VeraListIterator_rvm_data" "VeraListIterator_rvm_log" "VeraListNodeVeraListIterator_rvm_log" "VeraListNodervm_data" "VeraListNodervm_log" "VeraList_VeraListIterator_rvm_log" "VeraList_rvm_data" "VeraList_rvm_log" "rvm_broadcast" "rvm_channel_class" "rvm_data" "rvm_data" "rvm_env" "rvm_log" "rvm_log_modifier" "rvm_log_msg" "rvm_log_msg" "rvm_log_msg_info" "rvm_log_watchpoint" "rvm_notify" "rvm_notify_event" "rvm_notify_event_config" "rvm_scheduler" "rvm_scheduler_election" "rvm_watchdog" "rvm_watchdog_port" "rvm_xactor" "rvm_xactor_callbacks") (#$ . 15270))
#@29 List of Vera-RVM functions.
(defconst vera-rvm-functions '("extern_rvm_atomic_gen" "extern_rvm_channel" "extern_rvm_scenario_gen" "rvm_OO_callback" "rvm_atomic_gen" "rvm_atomic_gen_callbacks_decl" "rvm_atomic_gen_decl" "rvm_atomic_scenario_decl" "rvm_channel" "rvm_channel_" "rvm_channel_decl" "rvm_command" "rvm_cycle" "rvm_debug" "rvm_error" "rvm_fatal" "rvm_note" "rvm_protocol" "rvm_report" "rvm_scenario_decl" "rvm_scenario_election_decl" "rvm_scenario_gen" "rvm_scenario_gen_callbacks_decl" "rvm_scenario_gen_decl" "rvm_trace" "rvm_transaction" "rvm_user" "rvm_verbose" "rvm_warning") (#$ . 15938))
#@40 List of Vera-RVM predefined constants.
(defconst vera-rvm-constants '("RVM_NUMERIC_VERSION_MACROS" "RVM_VERSION" "RVM_MINOR" "RVM_PATCH" "rvm_channel__SOURCE" "rvm_channel__SINK" "rvm_channel__NO_ACTIVE" "rvm_channel__ACT_PENDING" "rvm_channel__ACT_STARTED" "rvm_channel__ACT_COMPLETED" "rvm_channel__FULL" "rvm_channel__EMPTY" "rvm_channel__PUT" "rvm_channel__GOT" "rvm_channel__PEEKED" "rvm_channel__ACTIVATED" "rvm_channel__STARTED" "rvm_channel__COMPLETED" "rvm_channel__REMOVED" "rvm_channel__LOCKED" "rvm_channel__UNLOCKED" "rvm_data__EXECUTE" "rvm_data__STARTED" "rvm_data__ENDED" "rvm_env__CFG_GENED" "rvm_env__BUILT" "rvm_env__DUT_CFGED" "rvm_env__STARTED" "rvm_env__RESTARTED" "rvm_env__ENDED" "rvm_env__STOPPED" "rvm_env__CLEANED" "rvm_env__DONE" "rvm_log__DEFAULT" "rvm_log__UNCHANGED" "rvm_log__FAILURE_TYP" "rvm_log__NOTE_TYP" "rvm_log__DEBUG_TYP" "rvm_log__REPORT_TYP" "rvm_log__NOTIFY_TYP" "rvm_log__TIMING_TYP" "rvm_log__XHANDLING_TYP" "rvm_log__PROTOCOL_TYP" "rvm_log__TRANSACTION_TYP" "rvm_log__COMMAND_TYP" "rvm_log__CYCLE_TYP" "rvm_log__USER_TYP_0" "rvm_log__USER_TYP_1" "rvm_log__USER_TYP_2" "rvm_log__USER_TYP_3" "rvm_log__DEFAULT_TYP" "rvm_log__ALL_TYPES" "rvm_log__FATAL_SEV" "rvm_log__ERROR_SEV" "rvm_log__WARNING_SEV" "rvm_log__NORMAL_SEV" "rvm_log__TRACE_SEV" "rvm_log__DEBUG_SEV" "rvm_log__VERBOSE_SEV" "rvm_log__HIDDEN_SEV" "rvm_log__IGNORE_SEV" "rvm_log__DEFAULT_SEV" "rvm_log__ALL_SEVERITIES" "rvm_log__CONTINUE" "rvm_log__COUNT_AS_ERROR" "rvm_log__DEBUGGER" "rvm_log__DUMP" "rvm_log__STOP" "rvm_log__ABORT" "rvm_notify__ONE_SHOT_TRIGGER" "rvm_notify__ONE_BLAST_TRIGGER" "rvm_notify__HAND_SHAKE_TRIGGER" "rvm_notify__ON_OFF_TRIGGER" "rvm_xactor__XACTOR_IDLE" "rvm_xactor__XACTOR_BUSY" "rvm_xactor__XACTOR_STARTED" "rvm_xactor__XACTOR_STOPPED" "rvm_xactor__XACTOR_RESET" "rvm_xactor__XACTOR_SOFT_RST" "rvm_xactor__XACTOR_FIRM_RST" "rvm_xactor__XACTOR_HARD_RST" "rvm_xactor__XACTOR_PROTOCOL_RST" "rvm_broadcast__AFAP" "rvm_broadcast__ALAP" "rvm_watchdog__TIMEOUT" "rvm_env__DUT_RESET" "rvm_log__INTERNAL_TYP" "RVM_SCHEDULER_IS_XACTOR" "RVM_BROADCAST_IS_XACTOR") (#$ . 16549))
(byte-code "\300\301!\204 \302\301\303\"\210\300\207" [fboundp regexp-opt defalias #[(strings &optional paren) "\203 \304\202 \305\203 \306\202 \305\211\307\310 \311# Q*\207" [paren close open strings "\\(" "" "\\)" mapconcat regexp-quote "\\|"] 6]] 3)
#@27 Regexp for Vera keywords.
(defconst vera-keywords-regexp (byte-code "\301\302!\303Q\207" [vera-keywords "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 18923))
#@35 Regexp for Vera predefined types.
(defconst vera-types-regexp (byte-code "\301\302!\303Q\207" [vera-types "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 19081))
#@42 Regexp for Vera predefined VCA q_values.
(defconst vera-q-values-regexp (byte-code "\301\302!\303Q\207" [vera-q-values "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 19241))
#@71 Regexp for Vera predefined system functions, tasks and class methods.
(defconst vera-functions-regexp (byte-code "\301\302!\303Q\207" [vera-functions "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 19414))
#@39 Regexp for Vera predefined constants.
(defconst vera-constants-regexp (byte-code "\301\302!\303Q\207" [vera-constants "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 19618))
#@31 Regexp for Vera-RVM keywords.
(defconst vera-rvm-types-regexp (byte-code "\301\302!\303Q\207" [vera-rvm-types "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 19790))
#@75 Regexp for Vera-RVM predefined system functions, tasks and class methods.
(defconst vera-rvm-functions-regexp (byte-code "\301\302!\303Q\207" [vera-rvm-functions "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 19954))
#@43 Regexp for Vera-RVM predefined constants.
(defconst vera-rvm-constants-regexp (byte-code "\301\302!\303Q\207" [vera-rvm-constants "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 20170))
#@131 Match, and move over, any declaration item after point.
Adapted from `font-lock-match-c-style-declaration-item-and-skip-to-next'.
(defalias 'vera-font-lock-match-item #[(limit) "\3021, \214e}\210\303\304!\205) \305 \306\216\307\225b\210\303\310!\203$ \307\225b\202( \311\210\312*)0\207\210\312\207" [limit save-match-data-internal (error) looking-at "\\s-*\\(\\w+\\)" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 1 "\\(\\s-*\\(\\[[^]]*\\]\\s-*\\)?,\\)" nil t] 2 (#$ . 20355)])
#@48 Regular expressions to highlight in Vera Mode.
(defvar vera-font-lock-keywords (byte-code "\306\307E \306\310E\n\306\310E \306\311E\f\306\311E
\306\311E\306\312E\306\312E\313\314\315\316\317 \320Q\321D\317\n\320Q\322D\323\324\325\326\327\330\257\207" [vera-keywords-regexp vera-types-regexp vera-rvm-types-regexp vera-constants-regexp vera-rvm-constants-regexp vera-q-values-regexp 1 font-lock-keyword-face font-lock-type-face font-lock-constant-face vera-font-lock-function ("\\<\\(\\w+\\)\\s-*(" 1 font-lock-function-name-face) ("^\\s-*\\(port\\|program\\|task\\)\\s-+\\(\\w+\\)\\>" 2 font-lock-function-name-face) ("^\\s-*bind\\s-+\\(\\w+\\)\\s-+\\(\\w+\\)\\>" (1 font-lock-function-name-face) (2 font-lock-function-name-face)) ("^\\s-*\\(class\\|interface\\)\\s-+\\(\\w+\\)\\>" 2 vera-font-lock-interface) "^\\s-*" "\\s-*\\(\\[[^]]+\\]\\s-+\\)?" (vera-font-lock-match-item nil nil (1 font-lock-variable-name-face)) (vera-font-lock-match-item nil nil (1 font-lock-variable-name-face)) ("\\([0-9]*'[bdoh][0-9a-fA-FxXzZ_]+\\)" 1 vera-font-lock-number) ("^#\\s-*include\\s-*\\(<[^>\"\n]*>?\\)" 1 font-lock-string-face) ("^#\\s-*\\(\\w+\\)\\>[ !]*\\(\\w+\\)?" (1 font-lock-builtin-face) (2 font-lock-variable-name-face nil t)) ("\\([@$#]\\)" 1 font-lock-keyword-face) ("@\\s-*\\(\\w*\\)\\(\\s-*,\\s-*\\(\\w+\\)\\)?\\>[^.]" (1 vera-font-lock-number) (3 vera-font-lock-number nil t)) ("\\(\\w+\\)\\.\\w+" 1 vera-font-lock-interface) vera-functions-regexp vera-rvm-functions-regexp] 20) (#$ . 20886))
#@37 Face name to use for @ definitions.
(defvar vera-font-lock-number 'vera-font-lock-number (#$ . 22396))
#@54 Face name to use for predefined functions and tasks.
(defvar vera-font-lock-function 'vera-font-lock-function (#$ . 22505))
#@39 Face name to use for interface names.
(defvar vera-font-lock-interface 'vera-font-lock-interface (#$ . 22635))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\314\315\316\317#\210\320\315\316\321#\207" [custom-declare-face vera-font-lock-number ((((class color) (background light)) :foreground "Gold4") (((class color) (background dark)) :foreground "BurlyWood1") (t :slant italic :weight bold)) "Font lock mode face used to highlight @ definitions." :group font-lock-highlighting-faces vera-font-lock-function ((((class color) (background light)) :foreground "DarkCyan") (((class color) (background dark)) :foreground "Orchid1") (t :slant italic :weight bold)) "Font lock mode face used to highlight predefined functions and tasks." vera-font-lock-interface ((((class color) (background light)) :foreground "Grey40") (((class color) (background dark)) :foreground "Grey80") (t :slant italic :weight bold)) "Font lock mode face used to highlight interface names." defalias vera-fontify-buffer font-lock-fontify-buffer nil make-obsolete "25.1"] 6)
#@65 If non-nil, syntactic info is echoed when the line is indented.
(defvar vera-echo-syntactic-information-p nil (#$ . 23740))
#@104 Association list of syntactic element symbols and indentation offsets.
Adapted from `c-offsets-alist'.
(defconst vera-offsets-alist '((comment . vera-lineup-C-comments) (comment-intro . vera-lineup-comment) (string . -1000) (directive . -1000) (block-open . 0) (block-intro . +) (block-close . 0) (arglist-intro . +) (arglist-cont . +) (arglist-cont-nonempty . 0) (arglist-close . 0) (statement . 0) (statement-cont . +) (substatement . +) (else-clause . 0)) (#$ . 23871))
#@87 OFFSET can be a number, a function, a variable, a list, or one of
the symbols + or -.
(defalias 'vera-evaluate-offset #[(offset langelem symbol) "\305=\203 \202\214 \306=\203 [\202\214 \307=\203$ \310_\202\214 \311=\2032 [\310_\202\214 \312=\203? \310\245\202\214 \313=\203M [\310\245\202\214 \314!\203Z \n!\202\214 <\203\204 \315 \204v \203v \316@\n\f#A\202a \204~ \317\202 )\202\214 \247\204\214 J\207" [offset vera-basic-offset langelem done symbol + - ++ 2 -- * / functionp nil vera-evaluate-offset 0] 4 (#$ . 24350)])
#@270 Get offset from LANGELEM which is a cons cell of the form:
(SYMBOL . RELPOS). The symbol is matched against
vera-offsets-alist and the offset found there is either returned,
or added to the indentation at RELPOS. If RELPOS is nil, then
the offset is simply returned.
(defalias 'vera-get-offset #[(langelem) "@A \236\211 \243 \f\204 \306\211\202 \307
#\n\2032 \n\310 W\2032 \212\nb\210i)\2023 \306\307
#\\,\207" [langelem symbol relpos vera-offsets-alist match offset 0 vera-evaluate-offset line-beginning-position] 6 (#$ . 24918)])
#@384 Return the value of point at certain commonly referenced POSITIONs.
POSITION can be one of the following symbols:
bol -- beginning of line
eol -- end of line
boi -- back to indentation
ionl -- indentation of next line
iopl -- indentation of previous line
bonl -- beginning of next line
bopl -- beginning of previous line
This function does not modify point or mark.
(defalias 'vera-point #[(position) "\212\301=\203
\302 \210\202` \303=\203 \304\210\202` \305=\203% \306 \210\202` \307=\2031 \310y\210\202` \311=\203= \312y\210\202` \313=\203L \312y\210\306 \210\202` \314=\203[ \310y\210\306 \210\202` \315\316\"\210`)\207" [position bol beginning-of-line eol nil boi back-to-indentation bonl 1 bopl -1 iopl ionl error "Unknown buffer position requested: %s"] 3 (#$ . 25473)])
(put 'vera-point 'byte-optimizer 'byte-compile-inline-expand)
#@42 Determine if point is in a Vera literal.
(defalias 'vera-in-literal #[(&optional lim) "\212\302\206 e`\"\303 8\203 \304\202 \305 8\203 \306\202 \307*\207" [lim state parse-partial-sexp 3 string 4 comment nil] 3 (#$ . 26347)])
#@50 Skip forward literal and return t if within one.
(defalias 'vera-skip-forward-literal #[nil "\212\301\302!\203\f \302 \202 \303e`\")\3048\205: \3048b\210\3058\2035 \3061. \307\310!0\2021 \210db\210\2029 \311\310!\210\312)\207" [state fboundp syntax-ppss parse-partial-sexp 8 3 (error) forward-sexp 1 forward-comment t] 3 (#$ . 26586)])
#@51 Skip backward literal and return t if within one.
(defalias 'vera-skip-backward-literal #[nil "\212\301\302!\203\f \302 \202 \303e`\")\3048\205 \3048b\210\305)\207" [state fboundp syntax-ppss parse-partial-sexp 8 t] 3 (#$ . 26933)])
#@63 Like `re-search-forward', but skips over matches in literals.
(defalias 'vera-re-search-forward #[(regexp &optional bound noerror) "\304\305 \n #\211\203 \306 \203 \n\203 `\nW\202 \307\204 )\207" [ret regexp bound noerror nil re-search-forward vera-skip-forward-literal t] 4 (#$ . 27177)])
(put 'vera-re-search-forward 'byte-optimizer 'byte-compile-inline-expand)
#@64 Like `re-search-backward', but skips over matches in literals.
(defalias 'vera-re-search-backward #[(regexp &optional bound noerror) "\304\305 \n #\211\203 \306 \203 \n\203 `\nV\202 \307\204 )\207" [ret regexp bound noerror nil re-search-backward vera-skip-backward-literal t] 4 (#$ . 27555)])
(put 'vera-re-search-backward 'byte-optimizer 'byte-compile-inline-expand)
#@39 Forward skip of syntactic whitespace.
(defalias 'vera-forward-syntactic-ws #[(&optional lim skip-directive) "\214\206 d\211d`}\210 `U?\205, `\304\n!\210 \203 \305\306!\203 \307\210\202 ,\207" [lim here hugenum skip-directive forward-comment looking-at "^\\s-*#" nil] 3 (#$ . 27938)])
#@42 Backward skip over syntactic whitespace.
(defalias 'vera-backward-syntactic-ws #[(&optional lim skip-directive) "\214\206 e\211d[`W\2058 `}\210 `U?\2058 `\304\n!\210 \203 \212\305 \210g\306U)\203 \307 \210\202 ,\207" [lim here hugenum skip-directive forward-comment back-to-indentation 35 beginning-of-line] 3 (#$ . 28239)])
#@53 Execute BODY with a syntax table that includes `_'.
(defalias 'vera-prepare-search '(macro . #[(&rest body) "\301\302BB\207" [body with-syntax-table vera-mode-ext-syntax-table] 3 (#$ . 28581)]))
#@125 Convenience routine to return the column of LANGELEM's relpos.
Leaves point at the relpos unless PRESERVE-POINT is non-nil.
(defalias 'vera-langelem-col #[(langelem &optional preserve-point) "` Ab\210i\n\203 b\210)\207" [here langelem preserve-point] 2 (#$ . 28784)])
(put 'vera-langelem-col 'byte-optimizer 'byte-compile-inline-expand)
#@80 Line up C block comment continuation lines.
Nicked from `c-lineup-C-comments'.
(defalias 'vera-lineup-C-comments #[(langelem) "\212`\306 \210\307\310w\310`Ab\210i \203 \nb\210+ \306 \210\311\312\313 \212
\314=\2032 \315 \210\202\205
\313=\203> \310\210\202\205
\316=\203J \306 \210\202\205
\317=\203V \320y\210\202\205
\321=\203b \322y\210\202\205
\323=\203q \322y\210\306 \210\202\205
\324=\203\200 \320y\210\306 \210\202\205 \325\326
\"\210`*\327#\204\266 \330\331!\204\260 \nb\210\306 \210\330\332!\203\251 \333\225b\210\334\322!\210\202\260 Ab\210\306 \210i Z\202\337 \f\333U\203\306 \335\310w\210i Z\202\337 \336\320!G\fV\203\332 \306 \210\337i\322 #\202\337 \337i\f #,\207" [langelem preserve-point here langelem-col stars position back-to-indentation "*" nil re-search-forward "/\\([*]+\\)" eol bol beginning-of-line boi bonl 1 bopl -1 iopl ionl error "Unknown buffer position requested: %s" t looking-at "[*]+" "[*]+/" 0 forward-comment " " match-string -] 5 (#$ . 29130)])
#@26 Line up a comment start.
(defalias 'vera-lineup-comment #[(langelem) "\212\301 \210n\203\f \302\202 Ab\210i)\207" [langelem back-to-indentation -1000] 1 (#$ . 30135)])
(defconst vera-beg-block-re "{\\|\\<\\(begin\\|fork\\)\\>")
(defconst vera-end-block-re "}\\|\\<\\(end\\|join\\(\\s-+\\(all\\|any\\|none\\)\\)?\\)\\>")
(defconst vera-beg-substatement-re "\\<\\(else\\|for\\|if\\|repeat\\|while\\)\\>")
#@61 Find corresponding block begin if cursor is at a block end.
(defalias 'vera-corresponding-begin #[(&optional recursive) "\306\307 R\310\311 \310 \312\f \n#\211\203) \313 \203) \203% ` V\202& \311\204\f
,\203; \314\315!\203; \316\311!\210\202 ?\205C \317 \207" [vera-end-block-re vera-beg-block-re noerror bound regexp ret "\\(" "\\)\\|" nil t re-search-backward vera-skip-backward-literal match-string 1 vera-corresponding-begin vera-beginning-of-substatement recursive] 4 (#$ . 30546)])
#@49 Find corresponding `if' if cursor is at `else'.
(defalias 'vera-corresponding-if #[nil "\304\305\306\305\307\n #\211\203% \310 \203% \203! ` V\202\" \306\204 ,\205J \311\312!\313\232?\205J \311\312!\314\232\203A \315 \210\202 \305u\210\316 \210\202 \207" [noerror bound regexp ret "}\\|\\<\\(if\\|else\\)\\>" nil t re-search-backward vera-skip-backward-literal match-string 0 "if" "else" vera-corresponding-if backward-sexp] 4 (#$ . 31049)])
#@39 Go to beginning of current statement.
(defalias 'vera-beginning-of-statement #[nil "\306\307 \310\nR\306\311 \306 \312
\f #\211\203- \313 \203- \f\203) `\fV\202* \311\204 ,\203D \314\315!\316\232\203D \306u\210\317 \210\202 \315\224\315\225\206M \315b\210\320\306\311\"\210\321\322!\203b \323 \210\320\306\311\"\210\321\324!\205s \325 \210`\211b\210\202 )\207" [pos vera-beg-block-re vera-end-block-re noerror bound regexp nil "[);]\\|" "\\|" t re-search-backward vera-skip-backward-literal match-string 0 ")" backward-sexp vera-forward-syntactic-ws looking-at "(" forward-sexp "\\<else\\>" vera-corresponding-if ret] 5 (#$ . 31508)])
#@42 Go to beginning of current substatement.
(defalias 'vera-beginning-of-substatement #[nil "`\306\307 \210`` W\203B \n \310 \306 \311
\f #\211\2036 \312 \2036 \f\2032 `\fW\2023 \310\204 ,\203B \313\224\202 \314\306\310\"\210\315\316!\203U \317 \210\314\306\310\"\210` W\203] `b*\207" [pos lim vera-beg-substatement-re noerror bound regexp nil vera-beginning-of-statement t re-search-forward vera-skip-forward-literal 0 vera-forward-syntactic-ws looking-at "(" forward-sexp ret] 4 (#$ . 32162)])
#@29 Move forward one statement.
(defalias 'vera-forward-statement #[nil "\306 p\307\216\310\n!\210\311 \312\fR\313\314 \313 \315
#\211\203< \316 \203< \2038 `W\2029 \314\204 ,\203S \317\320!\321\232\203S \322u\210\323 \210\202 \324 +\207" [#1=#:buffer #2=#:table vera-mode-ext-syntax-table vera-beg-block-re vera-end-block-re noerror syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table "[(;]\\|" "\\|" nil t re-search-forward vera-skip-forward-literal match-string 0 "(" -1 forward-sexp vera-beginning-of-substatement bound regexp ret] 4 (#$ . 32676) nil])
#@30 Move backward one statement.
(defalias 'vera-backward-statement #[nil "\303 p\304\216\305\n!\210\306\307\310\"\210h\311U\204 \312u\210\313 +\207" [#1=#:buffer #2=#:table vera-mode-ext-syntax-table syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table vera-backward-syntactic-ws nil t 41 -1 vera-beginning-of-substatement] 3 (#$ . 33291) nil])
#@45 Move forward to next line with same indent.
(defalias 'vera-forward-same-indent #[nil "`\302 \303\304!\210m\204! \305\306!\204 \302 V\203! \303\304!\210\202 \302 U\203- \307 \2023 \310\311!\210 b*\207" [indent pos current-indentation beginning-of-line 2 looking-at "^\\s-*$" back-to-indentation message "No following line with same indent found in this block"] 2 (#$ . 33676) nil])
#@50 Move backward to previous line with same indent.
(defalias 'vera-backward-same-indent #[nil "`\302 \303\304!\210o\204! \305\306!\204 \302 V\203! \303\304!\210\202 \302 U\203- \307 \2023 \310\311!\210 b*\207" [indent pos current-indentation beginning-of-line 0 looking-at "^\\s-*$" back-to-indentation message "No preceding line with same indent found in this block"] 2 (#$ . 34070) nil])
#@116 A simple macro to append the syntax in SYMBOL to the syntax list.
try to increase performance by using this macro.
(defalias 'vera-add-syntax '(macro . #[(symbol &optional relpos) "\302\303\304\211 \206\n \305E\306BBE\207" [symbol relpos setq syntax cons 0 (syntax)] 6 (#$ . 34471)]))
#@54 Determine syntactic context of current line of code.
(defalias 'vera-guess-basic-syntax #[nil "\212\306 \210`\307\211\211\310e`\"\311 8\203\220 \312y\313U\203$ \314\315!\204 \316\317 \212\f\320=\2034 \306 \210\202\207 \f\321=\203@ \307\210\202\207 \f\317=\203L \322 \210\202\207 \f\323=\203X \324y\210\202\207 \f\325=\203d \312y\210\202\207 \f\326=\203s \312y\210\322 \210\202\207 \f\327=\203\202 \324y\210\322 \210\202\207 \330\331\f\"\210`*B\nB\202\302\332 8\203\237 \333\313B\nB\202\302\212\322 \210g\334U)\203\263 \335`B\nB\202\302 A@\203f A@f\336U\204\345 A@f\337U\203f\212\340 \210`Sf\341U)\204\345 \212\307\210`Sf\341U)\203f A@Tb\210\314\342!\203]\343\317 \212\f\320=\203\306 \210\202T\f\321=\203
\307\210\202T\f\317=\203\322 \210\202T\f\323=\203%\324y\210\202T\f\325=\2031\312y\210\202T\f\326=\203@\312y\210\322 \210\202T\f\327=\203O\324y\210\322 \210\202T\330\331\f\"\210`*B\nB\202\302\344`B\nB\202\302\212\322 \210\314
!)\203\340\345 \210\346\317 \212\f\320=\203\204\306 \210\202\327\f\321=\203\220\307\210\202\327\f\317=\203\234\322 \210\202\327\f\323=\203\250\324y\210\202\327\f\325=\203\264\312y\210\202\327\f\326=\203\303\312y\210\322 \210\202\327\f\327=\203\322\324y\210\322 \210\202\327\330\331\f\"\210`*B\nB\202\302\212\340\307\347\"\210\350\307x\313U\203\362\351\324!\210\314;!\205\377\352 \210`\211)\203\206\212\322 \210\314\350!\205b\210\314\353!)\204\206b\210\354\317 \212\f\320=\203*\306 \210\202}\f\321=\2036\307\210\202}\f\317=\203B\322 \210\202}\f\323=\203N\324y\210\202}\f\325=\203Z\312y\210\202}\f\326=\203i\312y\210\322 \210\202}\f\327=\203x\324y\210\322 \210\202}\330\331\f\"\210`*B\nB\202\302\212\322 \210\314\355!)\203 \356 \210\357\317 \212\f\320=\203\244\306 \210\202\367\f\321=\203\260\307\210\202\367\f\317=\203\274\322 \210\202\367\f\323=\203\310\324y\210\202\367\f\325=\203\324\312y\210\202\367\f\326=\203\343\312y\210\322 \210\202\367\f\327=\203\362\324y\210\322 \210\202\367\330\331\f\"\210`*B\nB\202\302\212\340\307\347\"\210`o\206B\360\307x\313U\203!\322 \210\314;\361
Q!\2033\314
!\203*\345 \210\362 \210`\211\206B\322 \210\314\363!\205B\362 \210`\211)\204[\212\322 \210\314;!)\203\312\352 \210`\211\203\312b\210\364\317 \212\f\320=\203n\306 \210\202\301\f\321=\203z\307\210\202\301\f\317=\203\206\322 \210\202\301\f\323=\203\222\324y\210\202\301\f\325=\203\236\312y\210\202\301\f\326=\203\255\312y\210\322 \210\202\301\f\327=\203\274\324y\210\322 \210\202\301\330\331\f\"\210`*B\nB\202\302\212\340\307\347\"\210h\365U\203\331\366 \210\351\324!\210`\314<!)\203Vb\210\367\317 \212\f\320=\203\372\306 \210\202M\f\321=\203\307\210\202M\f\317=\203\322 \210\202M\f\323=\203 \324y\210\202M\f\325=\203*\312y\210\202M\f\326=\2039\312y\210\322 \210\202M\f\327=\203H\324y\210\322 \210\202M\330\331\f\"\210`*B\nB\202\302\352 \210\370\317 \212\f\320=\203i\306 \210\202\274\f\321=\203u\307\210\202\274\f\317=\203\201\322 \210\202\274\f\323=\203\215\324y\210\202\274\f\325=\203\231\312y\210\202\274\f\326=\203\250\312y\210\322 \210\202\274\f\327=\203\267\324y\210\322 \210\202\274\330\331\f\"\210`*B\nB b\210\371\307w\210\314=!\203\326\372\313B\nB\n-\207" [placeholder state syntax indent-point position vera-end-block-re beginning-of-line nil parse-partial-sexp 4 -1 0 looking-at "^\\s-*$" comment boi bol eol back-to-indentation bonl 1 bopl iopl ionl error "Unknown buffer position requested: %s" 3 string 35 directive 40 123 vera-backward-syntactic-ws 44 "\\s-*$" arglist-cont arglist-cont-nonempty vera-corresponding-begin block-close t "{" backward-word-strictly vera-beginning-of-substatement "\\<fork\\>" block-intro "\\<else\\>" vera-corresponding-if else-clause "{};" "\\|" vera-beginning-of-statement "#" statement 41 backward-sexp substatement statement-cont " " comment-intro vera-beg-block-re vera-beg-substatement-re comment-start] 4 (#$ . 34763)])
#@93 Indent the current line as Vera code.
Return the amount of indentation change (in columns).
(defalias 'vera-indent-line #[nil "\306 p\307\216\310\n!\210\311 d`Z \312\313\314\315 \"\" \316
Z !\203+ \317\320
#\210 \321U\204\250 \322 \210`\323 \"\212\"\324=\203G \322 \210\202\241 \"\325=\203T \326\210\202\241 \"\323=\203a \327 \210\202\241 \"\330=\203n \331y\210\202\241 \"\332=\203{ \333y\210\202\241 \"\334=\203\213 \333y\210\327 \210\202\241 \"\335=\203\233 \331y\210\327 \210\202\241 \336\337\"\"\210`*|\210
j\210`\323 \"\212\"\324=\203\272 \322 \210\202\"\325=\203\307 \326\210\202\"\323=\203\324 \327 \210\202\"\330=\203\341 \331y\210\202\"\332=\203\356 \333y\210\202\"\334=\203\376 \333y\210\327 \210\202\"\335=\203\331y\210\327 \210\202\336\337\"\"\210`*W\203 \327 \210\202-d\fZ`V\203-d\fZb\210 .\207" [#1=#:buffer #2=#:table vera-mode-ext-syntax-table syntax pos indent syntax-table #[nil "rq\210\302 !)\207" [#1# #2# set-syntax-table] 2] set-syntax-table vera-guess-basic-syntax apply + mapcar vera-get-offset current-indentation message "syntax: %s, indent= %d" 0 beginning-of-line boi bol eol nil back-to-indentation bonl 1 bopl -1 iopl ionl error "Unknown buffer position requested: %s" shift-amt vera-echo-syntactic-information-p position] 5 (#$ . 38740) nil])
#@75 Indent whole buffer as Vera code.
Calls `indent-region' for whole buffer.
(defalias 'vera-indent-buffer #[nil "\300\301!\210\302ed\303#\210\300\304!\207" [message "Indenting buffer..." indent-region nil "Indenting buffer...done"] 4 (#$ . 40068) nil])
#@29 Indent region as Vera code.
(defalias 'vera-indent-region #[(start end column) "\303\304!\210\305 \n#\210\303\306!\207" [start end column message "Indenting region..." indent-region "Indenting region...done"] 4 (#$ . 40325) "r\nP"])
#@67 If previous word is a block closing or `else', indent line again.
(defalias 'vera-indent-block-closing #[nil "hz\301U\205 \212\302\303!\210\304 ?\205 \305\306P!\205 \307 )\207" [vera-end-block-re 119 backward-word-strictly 1 vera-in-literal looking-at "\\|\\<else\\>" indent-according-to-mode] 3 (#$ . 40565)])
(put 'vera-indent-block-closing 'byte-optimizer 'byte-compile-inline-expand)
#@412 Do what I mean (indent, expand, tab, change indent, etc..).
If preceding character is part of a word or a paren then `hippie-expand',
else if right of non whitespace on line then `tab-to-tab-stop',
else if last command was a tab or return then dedent one step or if a comment
toggle between normal indent and inline comment indent,
else indent `correctly'.
If `vera-intelligent-tab' is nil, always indent line.
(defalias 'vera-electric-tab #[(&optional prefix) "\203d \306 \203 \307\310 \311 \312#\210\202_ hz\313>\2033 \314\312\315\301!\203' \206( \316\317\f!\210+\202_ i\320 V\203@ \321 \210\202_
\322=\204L
\323=\203\\ \320 \324U\204\\ \325\312\"\210\202_ \326 \210\322\211\207\326 \207" [vera-intelligent-tab hippie-expand-only-buffers case-replace case-fold-search prefix last-command use-region-p vera-indent-region region-beginning region-end nil (119 95) t boundp (vera-mode) vera-expand-abbrev current-indentation tab-to-tab-stop vera-electric-tab vera-electric-return 0 backward-delete-char-untabify indent-according-to-mode vera-basic-offset this-command] 4 (#$ . 40964) "*P"])
#@75 Insert newline and indent. Indent current line if it is a block closing.
(defalias 'vera-electric-return #[nil "hz\301U\203 \212\302\303!\210\304 ?\205 \305\306P!\205 \307 )\210\310 \207" [vera-end-block-re 119 backward-word-strictly 1 vera-in-literal looking-at "\\|\\<else\\>" indent-according-to-mode newline-and-indent] 3 (#$ . 42071) nil])
#@64 Insert a space. Indent current line if it is a block closing.
(defalias 'vera-electric-space #[(arg) "\204\" hz\302U\203\" \212\303\304!\210\305 ?\205 \306 \307P!\205 \310 )\210\311\312!!\207" [arg vera-end-block-re 119 backward-word-strictly 1 vera-in-literal looking-at "\\|\\<else\\>" indent-according-to-mode self-insert-command prefix-numeric-value] 3 (#$ . 42427) "*P"])
#@24 Outdent opening brace.
(defalias 'vera-electric-opening-brace #[(arg) "\301\302!!\210?\205
\303 \207" [arg self-insert-command prefix-numeric-value indent-according-to-mode] 3 (#$ . 42815) "*P"])
#@24 Outdent closing brace.
(defalias 'vera-electric-closing-brace #[(arg) "\301\302!!\210?\205
\303 \207" [arg self-insert-command prefix-numeric-value indent-according-to-mode] 3 (#$ . 43020) "*P"])
#@64 Insert `#' and indent as directive it first character of line.
(defalias 'vera-electric-pound #[(arg) "\301\302!!\210?\205 \212\303u\210\304\305x\210n\205 \306 )\207" [arg self-insert-command prefix-numeric-value -1 " " nil delete-horizontal-space] 3 (#$ . 43225) "*P"])
#@58 Insert a star character. Nicked from `c-electric-star'.
(defalias 'vera-electric-star #[(arg) "\301\302!!\210?\2058 \303 \304>\2058 `Sf\305=\2058 \212\306u\210\307\310x\210`Sf\311=\203- \306u\210\312\310x\210n)\2058 \313 \207" [arg self-insert-command prefix-numeric-value vera-in-literal (comment) 42 -1 "*" nil 47 " " indent-according-to-mode] 3 (#$ . 43507) "*P"])
#@60 Insert a slash character. Nicked from `c-electric-slash'.
(defalias 'vera-electric-slash #[(arg) "`Sf ?\205# \n\304=\205# \304=\203 \305 ?\206# \306=\205# \305 \307\310 !!\210 \2050 \311 *\207" [ch arg last-command-event indentp 47 vera-in-literal 42 self-insert-command prefix-numeric-value indent-according-to-mode] 3 (#$ . 43885) "*P"])
#@36 Predefined abbreviations for Vera.
(defvar vera-abbrev-list (byte-code "\306\307C\307C \307C\n\307C \307C\f\307C
\307C&\207" [vera-keywords vera-types vera-functions vera-constants vera-rvm-types vera-rvm-functions append nil vera-rvm-constants] 15) (#$ . 44237))
(defvar vera-expand-upper-case nil)
#@54 Try expanding abbreviations from `vera-abbrev-list'.
(defalias 'vera-try-expand-abbrev #[(old) "\2042 \306\307 `\"\210 \310\211\203. @;\203\" \311\312\fP @\"\203' @\nB A\211\204 \n\237*
\203W
@;\203F \313
@\314#\203W
@;\204P
@
A\211\2046
\204d \203b \315 \210\310\207\316\203p
@\226\202r
@\314\"\210
A\314\207" [old vera-abbrev-list sel-abbrev-list abbrev-list he-search-string he-expand-list he-init-string he-dabbrev-beg nil string-match "^" he-string-member t he-reset-string he-substitute-string he-tried-table vera-expand-upper-case] 5 (#$ . 44547)])
#@141 Try to expand text before point, using the following functions:
try-expand-dabbrev, try-expand-dabbrev-all-buffers, vera-try-expand-abbrev
(defalias 'vera-expand-abbrev #[(arg) "\303\304\305\n!*\207" [hippie-expand-verbose hippie-expand-try-functions-list arg (try-expand-dabbrev try-expand-dabbrev-all-buffers vera-try-expand-abbrev) nil hippie-expand] 2 (#$ . 45134) "P"])
#@73 Comment region if not commented, uncomment region if already commented.
(defalias 'vera-comment-uncomment-region #[(beg end &optional _arg) "b\210\303 !\203 \304\n\305#\207\304\n\"\207" [beg comment-start-skip end looking-at comment-region (4)] 4 (#$ . 45518) "r\nP"])
#@54 Call the customize function with `vera' as argument.
(defalias 'vera-customize #[nil "\300\301!\207" [customize-group vera] 2 (#$ . 45797) nil])
(byte-code "\301\302\"\301\207" [completion-ignored-extensions delete ".vr"] 3)
#@36 Address for Vera Mode bug reports.
(defconst vera-mode-help-address "Reto Zimmermann <reto@gnu.org>, bug-gnu-emacs@gnu.org" (#$ . 46030))
#@44 Submit via mail a bug report on Vera Mode.
(defalias 'vera-submit-bug-report #[nil "\303\304!\205 \305\306!\205 \307\310 \311\nP\312\313\314E\315\211\316&)\207" [reporter-prompt-for-summary-p vera-mode-help-address vera-version y-or-n-p "Do you want to submit a report on Vera Mode? " require reporter t reporter-submit-bug-report "Vera Mode " vera-basic-offset vera-underscore-is-part-of-word vera-intelligent-tab nil "Hi Reto,"] 7 (#$ . 46174) nil])
#@58 Echo the current version of Vera Mode in the minibuffer.
(defalias 'vera-version #[nil "\302\303 #\207" [vera-version vera-time-stamp message "Vera Mode %s (%s)"] 4 (#$ . 46636) nil])
(provide 'vera-mode)
Kontol Shell Bypass