カレントバッファの内容をSQL*Plusで実行するxyzzy lisp

exec-sqlplus.l

;; カレントバッファの内容をSQL*Plusで実行
(defun exec-sqlplus ()
  (interactive)
  (let ((user "SCOTT")
	(passwd "TIGER")
	(host "localhost")
	(port 1521)
	(service-name "XE")
	(filename (make-temp-file-name))
	command
	src)
    (setf command (format nil "sqlplus ~A/~A@~A:~A/~A @~A" user passwd host port service-name filename))
    (setf src (format nil "~A~%~A~%~A~%" (buffer-substring (point-min) (point-max)) "SHOW ERRORS" "QUIT"))
    (with-open-file (out filename :direction :output)
      (princ src out))
    (execute-shell-command command nil "SQL*Plus Output")
    (delete-file filename)))