;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@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 . Official distribution is at URL `http://www.iis.ee.ethz.ch/~zimmi/emacs/vera-mode.html' The Vera Mode Maintainer Reto Zimmermann 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\"\204V67=\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\204nJ\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\206e`\"\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\206d\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\206e\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\203b\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\202OAb\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\202Ab\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 "\\" 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\357b\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 "\\" block-intro "\\" 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\202Yd\fZ`V\203Yd\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 "\\|\\" 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 "\\|\\" 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 "\\|\\" 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 , 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)