SQL 查询参数的缓冲区局部值

Question

使用 sql-send-buffer，我可以将 SQL 查询从文件发送到打开的 SQL REPL。我的许多查询都有参数占位符（在 Postgres 语法中，</code>、<code> 等）。有没有人有类似于 sql-send-buffer 的代码，会提示输入这些参数的值？理想情况下，我希望它存储我提供的值，除非我添加参数或关闭文件，否则不会再次提示。

目前我是：

替换文件中的参数，尽量记住不要提交或部署这些测试值（容易出错）
将查询复制到 REPL 中，在那里替换参数（乏味）

Answer 1

可能是这样的：

(defvar my-sql-replacements nil)
(make-variable-buffer-local 'my-sql-replacements)

(defun my-sql-send-buffer-replace ()
  (interactive)
  (let ((string (buffer-substring-no-properties (point-min) (point-max))))
    (while (string-match "[$][0-9]" string)
      (let* ((placeholder (match-string 0 string))
             (replacement (or (cdr (assoc placeholder my-sql-replacements))
                              (read-string (format "Replacement for %s: " placeholder)))))
        (unless (assoc placeholder my-sql-replacements)
          (push (cons placeholder replacement) my-sql-replacements))
        (setq string (replace-regexp-in-string (regexp-quote placeholder) replacement string))))
    (sql-send-string string)))

我还没有用实际的 SQL 服务器测试它，但从跟踪 sql-send-string 来看它看起来应该可以工作。它将替换存储在缓冲区局部变量中。

SQL 查询参数的缓冲区局部值

buffer-local values for SQL query parameters

sql

emacs