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 (cdadr (save-excursion
			  (save-restriction
			    (widen)
			    (antlr-file-dependencies)))))
	 (glibs ""))
    (when supers
      (save-some-buffers (not antlr-ask-about-save) nil)
      (setq glibs (car (antlr-superclasses-glibs
			supers
			(car (antlr-directory-dependencies
			      default-directory))))))
    (list (read-shell-command "Run Antlr on current file with: "
			      (concat antlr-tool-command glibs " "))
	  buffer-file-name
	  supers)))