Function: antlr-run-tool-interactive

antlr-run-tool-interactive is a byte-compiled function defined in antlr-mode.el.gz.

Signature

(antlr-run-tool-interactive)

Documentation

Interactive specification for antlr-run-tool.

Use prefix argument ARG to return (COMMAND FILE SAVED).

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/antlr-mode.el.gz
(defun antlr-run-tool-interactive ()
  ;; code in `interactive' is not compiled
  "Interactive specification for `antlr-run-tool'.
Use prefix argument ARG to return \(COMMAND FILE SAVED)."
  (let* ((supers (and (eq antlr-tool-version 'antlr-v2)
                      (cl-cdadr (save-excursion
                                  (save-restriction
                                    (widen)
                                    (antlr-file-dependencies))))))
         (prompt (if (functionp antlr-tool-command)
                     (funcall antlr-tool-command buffer-file-name supers)
                   (if (null supers)
                       antlr-tool-command
                     (save-some-buffers (not antlr-ask-about-save) nil)
                     (concat antlr-tool-command
                             (car (antlr-superclasses-glibs
                                   supers
                                   (car (antlr-directory-dependencies
                                         default-directory)))))))))
    (list (if antlr-run-tool-on-buffer-file
              (concat (read-shell-command "Run Antlr with: " prompt)
                      " " (file-name-nondirectory buffer-file-name))
            (read-shell-command "Run Antlr with: "
                                (concat prompt " "
                                        (file-name-nondirectory buffer-file-name))))
          buffer-file-name
          supers)))