Browse files

ddx.el: Some more support for smali

  • Loading branch information...
1 parent b4375c4 commit 4399ad550b0a6be094a1190da97a700cf761e820 @nelhage committed Dec 28, 2010
Showing with 10 additions and 2 deletions.
  1. +10 −2 ddx.el
@@ -74,7 +74,6 @@
"registers" "annotation"
"end" "source" "inner")) "\\>")
- (cons "^\\sw+:" font-lock-constant-face)
(cons "\\<[vp][[:digit:]]+\\>" font-lock-variable-name-face)))
(defvar ddx-mode-map
@@ -124,12 +123,15 @@
(defvar ddx-all-labels nil
"All labels in the current buffer")
+(defvar ddx-label-re "^\\(\\sw+\\):"
+ "A regular expression for the definition site of a label")
(defun ddx-collect-labels ()
(set (make-local-variable 'ddx-all-labels)
(make-hash-table :test 'equal))
- (while (re-search-forward "^\\(\\sw+\\):" nil t)
+ (while (re-search-forward ddx-label-re nil t)
(let ((l (match-string-no-properties 1)))
(puthash l t ddx-all-labels)))))
@@ -160,13 +162,19 @@
"Major mode to edit decompiled DEX files."
(set (make-local-variable 'font-lock-defaults)
+ (font-lock-add-keywords nil (list (cons ddx-label-re font-lock-constant-face)))
(use-local-map ddx-mode-map)
(set-syntax-table ddx-mode-syntax-table)
(set (make-local-variable 'ddx-highlighted-label) nil)
(require 'javadoc))
+(defun smali-mode ()
+ (interactive)
+ (let ((ddx-label-re "^\s *:\\([a-zA-Z0-9_]+\\)"))
+ (ddx-mode)))
(add-to-list 'auto-mode-alist (cons "\\.ddx$" 'ddx-mode))
(defmacro save-match-data (&rest body)

0 comments on commit 4399ad5

Please sign in to comment.