;ELC ;;; compiled by weide.1@osu.edu on Fri Dec 14 13:30:07 2007 ;;; from file /class/sce/rcpp-2007/setups/rcpp-mode.el ;;; emacs version 21.1 (patch 14) "Cuyahoga Valley" XEmacs Lucid. ;;; bytecomp version 2.27 XEmacs; 2000-09-12. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 19. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`rcpp-mode.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (byte-code "ÀÁ!ˆÀÂ!ˆÃ ‡" [require font-lock cc-mode c-initialize-cc-mode] 2) #@41 Syntax table used in rcpp-mode buffers. (defvar rcpp-mode-syntax-table nil (#$ . 650)) (byte-code "¬‡Á Â!ˆÃ BÅÃ!¬ˆÆÇÈOÉÊO Ì ÍR ÎÏÐÑÒF\"ȇ" [rcpp-mode-syntax-table make-syntax-table c-populate-syntax-table rcpp-version current-load-list boundp "$Revision: 0.6 $" 10 nil -2 1 c-version " with rcpp-mode " " derived mode" append ("\\.cc$" . rcpp-mode) ("\\.C$" . rcpp-mode) ("\\.cpp$" . rcpp-mode) ("\\.h[r]?[0-9]*[a-z]?$" . rcpp-mode) auto-mode-alist] 5) #@45 Major mode for developing Resolve/C++ code. (defalias 'rcpp-mode #[nil "À‡" [nil] 1 (#$ . 1120)]) (derived-mode-init-mode-variables 'rcpp-mode) #@59 Major mode for editing Resolve/C++ code. \{rcpp-mode-map} (defalias 'rcpp-mode #[nil "À ˆÀÁN«†ÂÃÁÄ#ˆÀÅN‰«†ÂÃÅ #ˆ)ÃÇÉÃ!ˆÊÃ!ˆËÃ!ˆÌÍ!ˆÎÐÑ!ˆÒÓÔ!ˆÕÖ×\"ˆØ!ˆÃÇÜ!ˆÞÃ!‡" [c++-mode special put rcpp-mode t mode-class major-mode "RCPP" mode-name derived-mode-set-keymap derived-mode-set-syntax-table derived-mode-set-abbrev-table c-set-style "bsd" 4 c-basic-offset make-local-variable compile-command "/class/sce/bin/rcpp-make" delete-menu-item ("C++") add-submenu nil ("Resolve/C++" ["Comment Out Region" comment-region (mark)] ["Uncomment Region" (comment-region (region-beginning) (region-end) '(4)) (mark)] ["Fill Comment Paragraph" c-fill-paragraph t] "---" ["Indent Region Automatically" c-indent-line-or-region t] ["Indent Region More" (indent-rigidly (region-beginning) (region-end) '4) t] ["Indent Region Less" (indent-rigidly (region-beginning) (region-end) '-4) t] "---" ["Build Project" compile t] ["First Error" first-error t] ["Next Error" next-error t] ["Previous Error" previous-error t] ["Run Program" rcpp-run-program t]) set-syntax-table rcpp-mode-syntax-table rcpp-mode-abbrev-table local-abbrev-table use-local-map rcpp-mode-map derived-mode-run-hooks] 5 (#$ . 1270) nil]) #@54 Resolve/C++ keywords to highlight with font locking. (defvar resolve-things (byte-code "ÀÁ!°‡" [regexp-opt ("abstract_template" "concrete_template" "abstract_instance" "concrete_instance" "utility_class" "implements" "extends" "checks" "instantiates" "encapsulates" "specializes" "employs" "program_body" "procedure" "function" "is_abstract" "global_procedure" "global_function" "local_procedure" "local_function" "utility_procedure" "utility_function" "alters" "consumes" "preserves" "produces" "procedure_body" "function_body" "global_procedure_body" "global_function_body" "local_procedure_body" "local_function_body" "utility_procedure_body" "utility_function_body" "local_utility_procedure_body" "local_utility_function_body" "object" "utility_object" "catalyst" "and" "or" "not" "mod" "enumeration" "Boolean_constant" "Character_constant" "Integer_constant" "Real_constant" "Text_constant" "self" "NULL" "default_value" "no_parameters" "standard_abstract_operations" "standard_concrete_operations" "field_name" "rep_field_name" "number_of_fields" "number_of_displayable_fields" "standard_assignment_operator" "standard_equality_operators" "custom_equality_operators" "standard_comparison_operators" "custom_comparison_operators" "case_select" "Accessor_Position" "current" "assert" "checking_assert" "are_distinct_objects" "debug" "breakpoint" "cond_debug" "cond_breakpoint" "trace" "serr" "Can_Convert_To_Boolean" "Can_Convert_To_Character" "Can_Convert_To_Integer" "Can_Convert_To_Real" "To_char" "To_int" "To_double" "To_Boolean" "To_Character" "To_Integer" "To_Real" "To_Text" "Boolean" "Character" "Integer" "Real" "Text" "Character_IStream" "Character_OStream" "Character_Error_OStream" "Record" "Representation" "Pointer" "Pointer_C" "New" "Delete" "m_pi" "m_e" "Minimum_Character" "Maximum_Character" "Minimum_Integer" "Maximum_Integer" "Minimum_Real" "Maximum_Real" "Sin" "Cos" "Tan" "Arc_Sin" "Arc_Cos" "Arc_Tan" "Sinh" "Cosh" "Tanh" "Abs" "Sign" "Exp" "Power" "Ln" "Log" "Sqr" "Sqrt" "Ceiling" "Floor" "end_user_command_line" "command_line_arguments")] 2) (#$ . 2479)) #@43 Subdued level highlighting for rcpp-mode. (defvar rcpp-font-lock-keywords-1 c++-font-lock-keywords-1 (#$ . 4572)) #@42 Medium level highlighting for rcpp-mode. (defvar rcpp-font-lock-keywords-2 (byte-code "À  ÄQ BC\"‡" [append c++-font-lock-keywords-2 "\\<\\(" resolve-things "\\)\\>" font-lock-keyword-face] 5) (#$ . 4692)) #@41 Gaudy level highlighting for rcpp-mode. (defvar rcpp-font-lock-keywords-3 c++-font-lock-keywords-3 (#$ . 4905)) #@25 Keywords for rcpp-mode. (defvar rcpp-font-lock-keywords (append c++-font-lock-keywords rcpp-font-lock-keywords-1 rcpp-font-lock-keywords-2 rcpp-font-lock-keywords-3) (#$ . 5023)) (define-key rcpp-mode-map [return] 'newline-and-indent) #@324 Interactively run an executable program in a separate shell buffer. This command will be run in the same directory as the file contained in the current buffer. If an executable with the same base name as the current file exists, it will be run; otherwise, the user will be prompted for the name of the executable to run. (defalias 'rcpp-run-program #[(&optional prog-name) "À ÁÂÃÀ \"OÅ )‡" [buffer-file-name 0 string-match "\\." explicit-shell-file-name shell] 5 (#$ . 5265) nil]) (provide 'rcpp-mode)