%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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" (#$ . 408))
#@39 Vera Mode time stamp for last update.
(defconst vera-time-stamp "2007-06-21" (#$ . 482))
(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) (#$ . 1699))
(require 'easymenu)
#@28 Menu keymap for Vera Mode.
(defvar vera-mode-menu nil (#$ . 2809))
(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) (#$ . 3998))
#@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) (#$ . 4905))
(defvar vera-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [vera-mode-hook variable-documentation put "Hook run after entering Vera mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp vera-mode-map definition-name vera-mode] 4)
(defvar vera-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [vera-mode-abbrev-table vera-mode-map variable-documentation put purecopy "Keymap for `vera-mode'." boundp vera-mode-syntax-table definition-name vera-mode (lambda (#1=#:def-tmp-var) (defvar vera-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vera-mode'." (lambda (#1#) (defvar vera-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vera-mode'." derived-mode-parent prog-mode] 5)
#@1839 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 or penultimate 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 (#$ . 6258) 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") (#$ . 9549))
#@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") (#$ . 10866))
#@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") (#$ . 11134))
#@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") (#$ . 11304))
#@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") (#$ . 14161))
#@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") (#$ . 15191))
#@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") (#$ . 15859))
#@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") (#$ . 16470))
(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) (#$ . 18844))
#@35 Regexp for Vera predefined types.
(defconst vera-types-regexp (byte-code "\301\302!\303Q\207" [vera-types "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 19002))
#@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) (#$ . 19162))
#@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) (#$ . 19335))
#@39 Regexp for Vera predefined constants.
(defconst vera-constants-regexp (byte-code "\301\302!\303Q\207" [vera-constants "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 19539))
#@31 Regexp for Vera-RVM keywords.
(defconst vera-rvm-types-regexp (byte-code "\301\302!\303Q\207" [vera-rvm-types "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 19711))
#@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) (#$ . 19875))
#@43 Regexp for Vera-RVM predefined constants.
(defconst vera-rvm-constants-regexp (byte-code "\301\302!\303Q\207" [vera-rvm-constants "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 20091))
#@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 (#$ . 20276)])
#@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][[:xdigit:]xXzZ_]+\\)" 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) (#$ . 20807))
#@37 Face name to use for @ definitions.
(defvar vera-font-lock-number 'vera-font-lock-number (#$ . 22318))
#@54 Face name to use for predefined functions and tasks.
(defvar vera-font-lock-function 'vera-font-lock-function (#$ . 22427))
#@39 Face name to use for interface names.
(defvar vera-font-lock-interface 'vera-font-lock-interface (#$ . 22557))
(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 (#$ . 23662))
#@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)) (#$ . 23793))
#@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\267\202/ \202n [\202n \306 _\202n \306 [_\202n \306\245\202n [\306\245\202n \307!\203< \n!\202n <\203f \310 \204X \203X \311@\n\f#A\202C \204` \312\202a )\202n \247\204n J\207" [offset vera-basic-offset langelem done symbol #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (+ 6 - 11 ++ 17 -- 24 * 32 / 39)) 2 functionp nil vera-evaluate-offset 0] 4 (#$ . 24272)])
#@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 (#$ . 24858)])
#@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\267\2027 \302 \210\202< \303\210\202< \304 \210\202< \305y\210\202< \306y\210\202< \306y\210\304 \210\202< \305y\210\304 \210\202< \307\310\"\210`)\207" [position #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (bol 7 eol 13 boi 19 bonl 25 bopl 31 iopl 37 ionl 46)) beginning-of-line nil back-to-indentation 1 -1 error "Unknown buffer position requested: %s"] 3 (#$ . 25413)])
(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 (#$ . 26326)])
#@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 (#$ . 26565)])
#@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 (#$ . 26912)])
#@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 (#$ . 27156)])
(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 (#$ . 27534)])
(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 (#$ . 27917)])
#@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 (#$ . 28218)])
#@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 (#$ . 28560)]))
#@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 (#$ . 28763)])
(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`\305 \210\306\307w\307`Ab\210i \203 \nb\210+ \305 \210\310\311\312\313!\314#\204U \315\316!\204O \nb\210\305 \210\315\317!\203H \320\225b\210\321\322!\210\202O Ab\210\305 \210i Z\202~ \f\320U\203e \323\307w\210i Z\202~ \324\325!G\fV\203y \305 \210\326i\322 #\202~ \326i\f #,\207" [langelem preserve-point here langelem-col stars back-to-indentation "*" nil re-search-forward "/\\([*]+\\)" #[(position) "\212\301\267\2027 \302 \210\202< \303\210\202< \304 \210\202< \305y\210\202< \306y\210\202< \306y\210\304 \210\202< \305y\210\304 \210\202< \307\310\"\210`)\207" [position #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (bol 7 eol 13 boi 19 bonl 25 bopl 31 iopl 37 ionl 46)) beginning-of-line nil back-to-indentation 1 -1 error "Unknown buffer position requested: %s"] 3 "Return the value of point at certain commonly referenced POSITIONs.\nPOSITION can be one of the following symbols:\n bol -- beginning of line\n eol -- end of line\n boi -- back to indentation\n ionl -- indentation of next line\n iopl -- indentation of previous line\n bonl -- beginning of next line\n bopl -- beginning of previous line\nThis function does not modify point or mark."] eol t looking-at "[*]+" "[*]+/" 0 forward-comment -1 " " match-string 1 -] 4 (#$ . 29109)])
#@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 (#$ . 30558)])
(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 (#$ . 30969)])
#@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 (#$ . 31472)])
#@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 (#$ . 31931)])
#@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 (#$ . 32585)])
#@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 (#$ . 33099) 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 (#$ . 33714) 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 (#$ . 34099) 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 (#$ . 34493) 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 (#$ . 34894)]))
#@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/ \312y\313U\203$ \314\315!\204 \316\317\320!B\nB\202\267\321 8\203> \322\313B\nB\202\267\212\323 \210g\324U)\203R \325`B\nB\202\267 A@\203\244 A@f\326U\204\204 A@f\327U\203\244 \212\330 \210`Sf\331U)\204\204 \212\307\210`Sf\331U)\203\244 A@Tb\210\314\332!\203\233 \333\317\320!B\nB\202\267\334`B\nB\202\267\212\323 \210\314\f!)\203\275 \335 \210\336\317\320!B\nB\202\267\212\330\307\337\"\210\340\307x\313U\203\317 \341\342!\210\314
!\205\333 \343 \210`\211)\203\212\323 \210\314\340!\205\357 b\210\314\344!)\204b\210\345\317\320!B\nB\202\267\212\323 \210\314\346!)\203\347 \210\350\317\320!B\nB\202\267\212\330\307\337\"\210`o\206[\351\307x\313U\203:\323 \210\314
\352\fQ!\203L\314\f!\203C\335 \210\353 \210`\211\206[\323 \210\314\354!\205[\353 \210`\211)\204s\212\323 \210\314
!)\203\201\343 \210`\211\203\201b\210\355\317\320!B\nB\202\267\212\330\307\337\"\210h\356U\203\220\357 \210\341\342!\210`\3144!)\203\254b\210\360\317\320!B\nB\202\267\343 \210\361\317\320!B\nB b\210\362\307w\210\3145!\203\313\363\313B\nB\n-\207" [placeholder state syntax indent-point vera-end-block-re vera-beg-block-re beginning-of-line nil parse-partial-sexp 4 -1 0 looking-at "^\\s-*$" comment #[(position) "\212\301\267\2027 \302 \210\202< \303\210\202< \304 \210\202< \305y\210\202< \306y\210\202< \306y\210\304 \210\202< \305y\210\304 \210\202< \307\310\"\210`)\207" [position #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (bol 7 eol 13 boi 19 bonl 25 bopl 31 iopl 37 ionl 46)) beginning-of-line nil back-to-indentation 1 -1 error "Unknown buffer position requested: %s"] 3 "Return the value of point at certain commonly referenced POSITIONs.\nPOSITION can be one of the following symbols:\n bol -- beginning of line\n eol -- end of line\n boi -- back to indentation\n ionl -- indentation of next line\n iopl -- indentation of previous line\n bonl -- beginning of next line\n bopl -- beginning of previous line\nThis function does not modify point or mark."] boi 3 string back-to-indentation 35 directive 40 123 vera-backward-syntactic-ws 44 "\\s-*$" arglist-cont arglist-cont-nonempty vera-corresponding-begin block-close t "{" backward-word-strictly 1 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-substatement-re comment-start] 4 (#$ . 35186)])
#@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> \322 \210`\323\324!|\210
j\210`\323\324!W\203L \325 \210\202Y d\fZ`V\203Y 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 #[(position) "\212\301\267\2027 \302 \210\202< \303\210\202< \304 \210\202< \305y\210\202< \306y\210\202< \306y\210\304 \210\202< \305y\210\304 \210\202< \307\310\"\210`)\207" [position #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (bol 7 eol 13 boi 19 bonl 25 bopl 31 iopl 37 ionl 46)) beginning-of-line nil back-to-indentation 1 -1 error "Unknown buffer position requested: %s"] 3 "Return the value of point at certain commonly referenced POSITIONs.\nPOSITION can be one of the following symbols:\n bol -- beginning of line\n eol -- end of line\n boi -- back to indentation\n ionl -- indentation of next line\n iopl -- indentation of previous line\n bonl -- beginning of next line\n bopl -- beginning of previous line\nThis function does not modify point or mark."] boi back-to-indentation shift-amt vera-echo-syntactic-information-p] 5 (#$ . 37864) 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 (#$ . 39388) 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 (#$ . 39645) "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 (#$ . 39885)])
(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 (#$ . 40284) "*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 (#$ . 41391) 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 (#$ . 41747) "*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 (#$ . 42135) "*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 (#$ . 42340) "*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 (#$ . 42545) "*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 (#$ . 42827) "*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 (#$ . 43203) "*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) (#$ . 43555))
(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 (#$ . 43865)])
#@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 (#$ . 44452) "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 (#$ . 44836) "r\nP"])
#@54 Call the customize function with `vera' as argument.
(defalias 'vera-customize #[nil "\300\301!\207" [customize-group vera] 2 (#$ . 45115) 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" (#$ . 45348))
#@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 (#$ . 45492) 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 (#$ . 45954) nil])
(provide 'vera-mode)
Zerion Mini Shell 1.0