WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/progmodes
Viewing File: /usr/share/emacs/24.3/lisp/progmodes/vera-mode.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:53:47 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/vera-mode.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.

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


#@27 Vera Mode version number.
(defconst vera-version "2.18" (#$ . 562))
#@39 Vera Mode time stamp for last update.
(defconst vera-time-stamp "2007-06-21" (#$ . 636))
(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\312\323\324\325\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 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\302\355\356#\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-fontify-buffer "" 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) (#$ . 1787))
(require 'easymenu)
#@28 Menu keymap for Vera Mode.
(defvar vera-mode-menu nil (#$ . 2940))
(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] "--" ["Fontify Buffer" vera-fontify-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) (#$ . 4175))
#@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) (#$ . 5082))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [vera-mode-hook variable-documentation put purecopy "Hook run when 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] 5)
(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)\3246\325\"\204V67=\204V\3266\3257C#\210\327!\210\330\f!\21067\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/\3618!\210\362\3639\"\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 (#$ . 6570) 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") (#$ . 9846))
#@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") (#$ . 11163))
#@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") (#$ . 11431))
#@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") (#$ . 11601))
#@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") (#$ . 14458))
#@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") (#$ . 15488))
#@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") (#$ . 16156))
#@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") (#$ . 16767))
(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) (#$ . 19141))
#@35 Regexp for Vera predefined types.
(defconst vera-types-regexp (byte-code "\301\302!\303Q\207" [vera-types "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 19299))
#@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) (#$ . 19459))
#@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) (#$ . 19632))
#@39 Regexp for Vera predefined constants.
(defconst vera-constants-regexp (byte-code "\301\302!\303Q\207" [vera-constants "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 19836))
#@31 Regexp for Vera-RVM keywords.
(defconst vera-rvm-types-regexp (byte-code "\301\302!\303Q\207" [vera-rvm-types "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 20008))
#@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) (#$ . 20172))
#@43 Regexp for Vera-RVM predefined constants.
(defconst vera-rvm-constants-regexp (byte-code "\301\302!\303Q\207" [vera-rvm-constants "\\<\\(" regexp-opt "\\)\\>"] 3) (#$ . 20388))
#@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) "\300\301\302\217\207" [nil (byte-code "\214e}\210\302\303!\205%\304 \305\216\306\225b\210\302\307!\203 \306\225b\202$\310\210\311*)\207" [limit save-match-data-internal looking-at "\\s-*\\(\\w+\\)" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 1 "\\(\\s-*\\(\\[[^]]*\\]\\s-*\\)?,\\)" nil t] 2) ((error t))] 3 (#$ . 20573)])
#@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) (#$ . 21138))
#@37 Face name to use for @ definitions.
(defvar vera-font-lock-number 'vera-font-lock-number (#$ . 22648))
#@54 Face name to use for predefined functions and tasks.
(defvar vera-font-lock-function 'vera-font-lock-function (#$ . 22757))
#@39 Face name to use for interface names.
(defvar vera-font-lock-interface 'vera-font-lock-interface (#$ . 22887))
(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\"\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] 6)
#@65 If non-nil, syntactic info is echoed when the line is indented.
(defvar vera-echo-syntactic-information-p nil (#$ . 23943))
#@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)) (#$ . 24074))
#@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 (#$ . 24553)])
#@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 (#$ . 25121)])
#@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 (#$ . 25676)])
(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 (#$ . 26550)])
#@50 Skip forward literal and return t if within one.
(defalias 'vera-skip-forward-literal #[nil "\212\301\302!\203\f\302 \202\303e`\")\3048\2050\3048b\210\3058\203+\306\307\310\217\210\202/\311\312!\210\313)\207" [state fboundp syntax-ppss parse-partial-sexp 8 3 nil (forward-sexp 1) ((error (byte-code "db\207" [] 1))) forward-comment 1 t] 3 (#$ . 26789)])
#@51 Skip backward literal and return t if within one.
(defalias 'vera-skip-backward-literal #[nil "\212\301\302!\203\f\302 \202\303e`\")\3048\205\3048b\210\305)\207" [state fboundp syntax-ppss parse-partial-sexp 8 t] 3 (#$ . 27159)])
#@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 (#$ . 27403)])
(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 (#$ . 27781)])
(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\211d`}\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 (#$ . 28164)])
#@42 Backward skip over syntactic whitespace.
(defalias 'vera-backward-syntactic-ws #[(&optional lim skip-directive) "\214\206e\211d[`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 (#$ . 28465)])
#@53 Execute BODY with a syntax table that includes '_'.
(defalias 'vera-prepare-search '(macro . #[(&rest body) "\301\302BB\207" [body with-syntax-table vera-mode-ext-syntax-table] 3 (#$ . 28807)]))
#@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 (#$ . 29010)])
(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\335\f!\203\306\336\310w\210iZ\202\337\337\320!G\fV\203\332\306 \210\340i\322#\202\337\340i\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 zerop " 	" match-string -] 5 (#$ . 29356)])
#@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 (#$ . 30367)])
(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 (#$ . 30778)])
#@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 (#$ . 31281)])
#@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`\211b\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 (#$ . 31740)])
#@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 (#$ . 32394)])
#@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 ((byte-code "rq\210\302	!\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 (#$ . 32908) 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 ((byte-code "rq\210\302	!\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 (#$ . 33538) 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 (#$ . 33938) 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 (#$ . 34332) 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 (#$ . 34733)]))
#@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\312\313y!\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\313y\210\202\207\f\326=\203s\313y\210\322 \210\202\207\f\327=\203\202\324y\210\322 \210\202\207\330\331\f\"\210`*B\nB\202\300\332	8\203\237\333\334B\nB\202\300\212\322 \210g\335U)\203\263\336`B\nB\202\300	A@\203f	A@f\337U\204\345	A@f\340U\203f\212\341 \210`Sf\342U)\204\345\212\307\210`Sf\342U)\203f	A@Tb\210\314\343!\203]\344\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\313y\210\202T\f\326=\203@\313y\210\322 \210\202T\f\327=\203O\324y\210\322 \210\202T\330\331\f\"\210`*B\nB\202\300\345`B\nB\202\300\212\322 \210\314
!)\203\340\346 \210\347\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\313y\210\202\327\f\326=\203\303\313y\210\322 \210\202\327\f\327=\203\322\324y\210\322 \210\202\327\330\331\f\"\210`*B\nB\202\300\212\341\307\350\"\210\351\307x\334U\203\361\313v\210\314;!\205\376\352 \210`\211)\203\205\212\322 \210\314\351!\205b\210\314\353!)\204\205b\210\354\317\212\f\320=\203)\306 \210\202|\f\321=\2035\307\210\202|\f\317=\203A\322 \210\202|\f\323=\203M\324y\210\202|\f\325=\203Y\313y\210\202|\f\326=\203h\313y\210\322 \210\202|\f\327=\203w\324y\210\322 \210\202|\330\331\f\"\210`*B\nB\202\300\212\322 \210\314\355!)\203\377\356 \210\357\317\212\f\320=\203\243\306 \210\202\366\f\321=\203\257\307\210\202\366\f\317=\203\273\322 \210\202\366\f\323=\203\307\324y\210\202\366\f\325=\203\323\313y\210\202\366\f\326=\203\342\313y\210\322 \210\202\366\f\327=\203\361\324y\210\322 \210\202\366\330\331\f\"\210`*B\nB\202\300\212\341\307\350\"\210`o\206A\360\307x\334U\203 \322 \210\314;\361
Q!\2032\314
!\203)\346 \210\362 \210`\211\206A\322 \210\314\363!\205A\362 \210`\211)\204Z\212\322 \210\314;!)\203\311\352 \210`\211\203\311b\210\364\317\212\f\320=\203m\306 \210\202\300\f\321=\203y\307\210\202\300\f\317=\203\205\322 \210\202\300\f\323=\203\221\324y\210\202\300\f\325=\203\235\313y\210\202\300\f\326=\203\254\313y\210\322 \210\202\300\f\327=\203\273\324y\210\322 \210\202\300\330\331\f\"\210`*B\nB\202\300\212\341\307\350\"\210h\365U\203\330\366 \210\313v\210`\314<!)\203Tb\210\367\317\212\f\320=\203\370\306 \210\202K\f\321=\203\307\210\202K\f\317=\203\322 \210\202K\f\323=\203\324y\210\202K\f\325=\203(\313y\210\202K\f\326=\2037\313y\210\322 \210\202K\f\327=\203F\324y\210\322 \210\202K\330\331\f\"\210`*B\nB\202\300\352 \210\370\317\212\f\320=\203g\306 \210\202\272\f\321=\203s\307\210\202\272\f\317=\203\322 \210\202\272\f\323=\203\213\324y\210\202\272\f\325=\203\227\313y\210\202\272\f\326=\203\246\313y\210\322 \210\202\272\f\327=\203\265\324y\210\322 \210\202\272\330\331\f\"\210`*B\nBb\210\371\307w\210\314=!\203\324\372\334B\nB\n-\207" [placeholder state syntax indent-point position vera-end-block-re beginning-of-line nil parse-partial-sexp 4 zerop -1 looking-at "^\\s-*$" comment boi bol eol back-to-indentation bonl 1 bopl iopl ionl error "Unknown buffer position requested: %s" 3 string 0 35 directive 40 123 vera-backward-syntactic-ws 44 "\\s-*$" arglist-cont arglist-cont-nonempty vera-corresponding-begin block-close t "{" 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 (#$ . 35025)])
#@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\321 !\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 ((byte-code "rq\210\302	!\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" zerop 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 (#$ . 38977) 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 (#$ . 40324) 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 (#$ . 40581) "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\302v\210\303 ?\205\304\305P!\205\306 )\207" [vera-end-block-re 119 -1 vera-in-literal looking-at "\\|\\<else\\>" indent-according-to-mode] 3 (#$ . 40821)])
(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 (#$ . 41194) "*P"])
#@75 Insert newline and indent.  Indent current line if it is a block closing.
(defalias 'vera-electric-return #[nil "hz\301U\203\212\302v\210\303 ?\205\304\305P!\205\306 )\210\307 \207" [vera-end-block-re 119 -1 vera-in-literal looking-at "\\|\\<else\\>" indent-according-to-mode newline-and-indent] 3 (#$ . 42301) nil])
#@64 Insert a space.  Indent current line if it is a block closing.
(defalias 'vera-electric-space #[(arg) "\204!hz\302U\203!\212\303v\210\304 ?\205\305	\306P!\205\307 )\210\310\311!!\207" [arg vera-end-block-re 119 -1 vera-in-literal looking-at "\\|\\<else\\>" indent-according-to-mode self-insert-command prefix-numeric-value] 3 (#$ . 42631) "*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 (#$ . 42991) "*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 (#$ . 43196) "*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 (#$ . 43401) "*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 (#$ . 43683) "*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 (#$ . 44061) "*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) (#$ . 44413))
(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 (#$ . 44723)])
#@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 (#$ . 45310) "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 (#$ . 45694) "r\nP"])
#@54 Call the customize function with `vera' as argument.
(defalias 'vera-customize #[nil "\300\301!\207" [customize-group vera] 2 (#$ . 45973) 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>" (#$ . 46206))
#@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 (#$ . 46327) 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 (#$ . 46789) nil])
(provide 'vera-mode)
F1l3 Manager
