sql-interactive-modeで完了するための会社のバックエンドはありますか？

私はを使用sql-interactive-modeしていますが、SQLキーワードを完成させるCompanyバックエンドと、できれば使用するデータベースの列/テーブル名も必要です。

完了を探しているとき、驚いたことに、SQLのバックエンドはまだありませんでした。このスニペットを見つけましたが、正しく機能しませんでした。

まだ存在していない可能性があり、SQLの独自のバックエンドを作成する場合があります。しかし、最も一般的な言語の1つに対応するCompanyバックエンドがないとは思えません。

同様の問題があり、独自のバックエンドを作成することにしました。既存のバックエンドの1つ（C ++？）がテンプレートとして使用され、辞書のように動作する新しいバックエンドを作成するように変更しました。

私のセットアップでは、SQLiバッファーは、接続されているデータベースと一致するように自動的に名前が付けられます。*DB:DBASE1DM*。バックエンドには、スキーマ、テーブル、列を含む各データベースのalistが含まれています。何かを完成させたいときは、バッファの名前を使用して、そのデータベースの候補の正しいリストを取得します。

(defun ry/company-sql-upper-lower (&rest lst)
  (nconc (sort (mapcar 'upcase lst) 'string<) lst))

(defvar ry/company-sql-alist
  `(("DBASE1"               ;; Database name w/o environment suffix.
     "DBASE1DM" "DBASE1UM"  ;; Database name with environment suffix.
     "SCHEMA1" "SCHEMA2"
     "TABLE1" "TABLE2"
     "COLUMN1" "COLUMN2")
    ("DBASE2"
     "DBASE2DM" "DBASE2UM"
     "SCHEMA1" "SCHEMA2"
     "TABLE1" "TABLE2"
     "COLUMN1" "COLUMN2"))
    "Alist mapping sql-mode to candidates.")

(defun ry/company-sql (command &optional arg &rest ignored)
  "`company-mode' back-end for SQL mode based on database name."
  (interactive (list 'interactive))
  (cl-case command
    (interactive (company-begin-backend 'ry/company-sql))
    (prefix (and (assoc (substring (buffer-name (current-buffer)) 4 -3) ry/company-sql-alist)
                 (not (company-in-string-or-comment))
                 (or (company-grab-symbol) 'stop)))
    (candidates
     (let ((completion-ignore-case t)
           (symbols (cdr (assoc (substring (buffer-name (current-buffer)) 4 -3) ry/company-sql-alist))))       
       (all-completions arg (if (consp symbols)
                                symbols
                              (cdr (assoc symbols company-sql-alist))))))
    (sorted t)))

これには、スマートコンプリーションではなく、新しいデータベースを含めたり、既存のデータベースを変更したりするのが手動のプロセスであるという欠点があります。いくつかのクエリを使用してデータを収集でき、バックエンドに必要な形式にデータをマッサージすることはそれほど難しくありません。

以下の関数は、データベースへの接続を処理し、接続されているデータベースと一致するようにバッファーの名前を変更します。

(defun ry/sql-open-database (database username password)
  "Open a SQLI process and name the SQL statement window with the name provided."
  (interactive (list
                (read-string "Database: ")
                (read-string "Username: ")
                (read-passwd "Password: ")))
  (let ((u-dbname (upcase database)))
    (setq sql-set-product "db2")

    (sql-db2 u-dbname)
    (sql-rename-buffer u-dbname)
    (setq sql-buffer (current-buffer))
    (sql-send-string (concat "CONNECT TO " database " USER " username " USING " password ";"))

    (other-window 1)
    (switch-to-buffer (concat "*DB:" u-dbname "*"))
    (sql-mode)
    (sql-set-product "db2")
    (setq sql-buffer (concat "*SQL: " u-dbname "*"))))