          ;;(setq p1 (point))
(d-quote
           (progn
             (switch-to-buffer (find-file "~/java-projects/c2java/expr/Func.java"))
             (re-search-forward "evaluate")
             (beginning-of-line)
             (re-search-forward "(" (point-at-eol) t)
             (forward-char -1)
             (setq p1 (point))
             (forward-sexp 1)
             (setq p2 (point))
             (setq args (buffer-substring-no-properties p1 p2))
             (goto-char p1)
             (skip-chars-backward " \t")
             (setq p3 (point))
             (skip-chars-backward "A-Za-z0-9_")
             (setq p4 (point))
             (setq name (buffer-substring-no-properties p4 p3))
             )
           )
