Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/progmodes/ |
[ Home ] | [ C0mmand ] | [ Upload File ] |
---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:30 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/progmodes/sql.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require comint custom thingatpt] 2) #@47 Return 1, 0, or -1 to identify the sign of N. (defalias 'sql-signum #[(n) "\247\204 \301\207\302W\203 \303\207\302V\203 \304\207\302\207" [n nil 0 -1 1] 2 (#$ . 646)]) (byte-code "\300\301\302\303\304\305\306\307\306\310& \210\311\312\313\314\315\316\306\301\317\320& \210\311\321\313\322\315\316\306\301\323\324& \210\311\325\313\326\315\316\306\301\317\320& \210\311\327\313\330\315\316\306\301\317\320& \210\311\331\332\333\304\334\315\335\306\301\317\336&\210\337\340\341\342\343\344\315\345&\207" [custom-declare-group SQL nil "Running a SQL interpreter from within Emacs buffers." :version "20.4" :group languages processes custom-declare-variable sql-user #1="" "Default username." :type string :safe stringp sql-password "Default password.\nIf you customize this, the value will be stored in your init\nfile. Since that is a plaintext file, this could be dangerous." :risky t sql-database "Default database." sql-server "Default server or host." sql-port 0 "Default port for connecting to a MySQL or Postgres server." "24.1" number numberp define-widget sql-login-params lazy "Widget definition of the login parameters list" :tag "Login Parameters" (repeat (choice (const user) (const password) (choice :tag "server" (const server) (list :tag "file" (const :format #1# server) (const :format #1# :file) regexp) (list :tag "completion" (const :format #1# server) (const :format #1# :completion) (restricted-sexp :match-alternatives (listp stringp)))) (choice :tag "database" (const database) (list :tag "file" (const :format #1# database) (const :format #1# :file) regexp) (list :tag "completion" (const :format #1# database) (const :format #1# :completion) (restricted-sexp :match-alternatives (listp stringp)))) (const port)))] 12) #@39 Product under `sql-interactive-mode'. (defvar sql-interactive-product nil (#$ . 2402)) #@66 Connection name if interactive session started by `sql-connect'. (defvar sql-connection nil (#$ . 2495)) #@5260 An alist of product specific configuration settings. Without an entry in this list a product will not be properly highlighted and will not support `sql-interactive-mode'. Each element in the list is in the following format: (PRODUCT FEATURE VALUE ...) where PRODUCT is the appropriate value of `sql-product'. The product name is then followed by FEATURE-VALUE pairs. If a FEATURE is not specified, its VALUE is treated as nil. FEATURE may be any one of the following: :name string containing the displayable name of the product. :free-software is the product Free (as in Freedom) software? :font-lock name of the variable containing the product specific font lock highlighting patterns. :sqli-program name of the variable containing the product specific interactive program name. :sqli-options name of the variable containing the list of product specific options. :sqli-login name of the variable containing the list of login parameters (i.e., user, password, database and server) needed to connect to the database. :sqli-comint-func name of a function which accepts no parameters that will use the values of `sql-user', `sql-password', `sql-database', `sql-server' and `sql-port' to open a comint buffer and connect to the database. Do product specific configuration of comint in this function. :list-all Command string or function which produces a listing of all objects in the database. If it's a cons cell, then the car produces the standard list of objects and the cdr produces an enhanced list of objects. What "enhanced" means is dependent on the SQL product and may not exist. In general though, the "enhanced" list should include visible objects from other schemas. :list-table Command string or function which produces a detailed listing of a specific database table. If its a cons cell, then the car produces the standard list and the cdr produces an enhanced list. :completion-object A function that returns a list of objects. Called with a single parameter--if nil then list objects accessible in the current schema, if not-nil it is the name of a schema whose objects should be listed. :completion-column A function that returns a list of columns. Called with a single parameter--if nil then list objects accessible in the current schema, if not-nil it is the name of a schema whose objects should be listed. :prompt-regexp regular expression string that matches the prompt issued by the product interpreter. :prompt-length length of the prompt on the line. :prompt-cont-regexp regular expression string that matches the continuation prompt issued by the product interpreter. :input-filter function which can filter strings sent to the command interpreter. It is also used by the `sql-send-string', `sql-send-region', `sql-send-paragraph' and `sql-send-buffer' functions. The function is passed the string sent to the command interpreter and must return the filtered string. May also be a list of such functions. :statement name of a variable containing a regexp that matches the beginning of SQL statements. :terminator the terminator to be sent after a `sql-send-string', `sql-send-region', `sql-send-paragraph' and `sql-send-buffer' command. May be the literal string or a cons of a regexp to match an existing terminator in the string and the terminator to be used if its absent. By default ";". :syntax-alist alist of syntax table entries to enable special character treatment by font-lock and imenu. Other features can be stored but they will be ignored. However, you can develop new functionality which is product independent by using `sql-get-product-feature' to lookup the product specific settings. (defvar sql-product-alist '((ansi :name "ANSI" :font-lock sql-mode-ansi-font-lock-keywords :statement sql-ansi-statement-starters) (db2 :name "DB2" :font-lock sql-mode-db2-font-lock-keywords :sqli-program sql-db2-program :sqli-options sql-db2-options :sqli-login sql-db2-login-params :sqli-comint-func sql-comint-db2 :prompt-regexp "^db2 => " :prompt-length 7 :prompt-cont-regexp "^db2 (cont.) => " :input-filter sql-escape-newlines-filter) (informix :name "Informix" :font-lock sql-mode-informix-font-lock-keywords :sqli-program sql-informix-program :sqli-options sql-informix-options :sqli-login sql-informix-login-params :sqli-comint-func sql-comint-informix :prompt-regexp "^> " :prompt-length 2 :syntax-alist ((123 . "<") (125 . ">"))) (ingres :name "Ingres" :font-lock sql-mode-ingres-font-lock-keywords :sqli-program sql-ingres-program :sqli-options sql-ingres-options :sqli-login sql-ingres-login-params :sqli-comint-func sql-comint-ingres :prompt-regexp "^* " :prompt-length 2 :prompt-cont-regexp "^* ") (interbase :name "Interbase" :font-lock sql-mode-interbase-font-lock-keywords :sqli-program sql-interbase-program :sqli-options sql-interbase-options :sqli-login sql-interbase-login-params :sqli-comint-func sql-comint-interbase :prompt-regexp "^SQL> " :prompt-length 5) (linter :name "Linter" :font-lock sql-mode-linter-font-lock-keywords :sqli-program sql-linter-program :sqli-options sql-linter-options :sqli-login sql-linter-login-params :sqli-comint-func sql-comint-linter :prompt-regexp "^SQL>" :prompt-length 4) (ms :name "Microsoft" :font-lock sql-mode-ms-font-lock-keywords :sqli-program sql-ms-program :sqli-options sql-ms-options :sqli-login sql-ms-login-params :sqli-comint-func sql-comint-ms :prompt-regexp "^[0-9]*>" :prompt-length 5 :syntax-alist ((64 . "_")) :terminator ("^go" . "go")) (mysql :name "MySQL" :free-software t :font-lock sql-mode-mysql-font-lock-keywords :sqli-program sql-mysql-program :sqli-options sql-mysql-options :sqli-login sql-mysql-login-params :sqli-comint-func sql-comint-mysql :list-all "SHOW TABLES;" :list-table "DESCRIBE %s;" :prompt-regexp "^mysql> " :prompt-length 6 :prompt-cont-regexp "^ -> " :syntax-alist ((35 . "< b")) :input-filter sql-remove-tabs-filter) (oracle :name "Oracle" :font-lock sql-mode-oracle-font-lock-keywords :sqli-program sql-oracle-program :sqli-options sql-oracle-options :sqli-login sql-oracle-login-params :sqli-comint-func sql-comint-oracle :list-all sql-oracle-list-all :list-table sql-oracle-list-table :completion-object sql-oracle-completion-object :prompt-regexp "^SQL> " :prompt-length 5 :prompt-cont-regexp "^\\s-*[[:digit:]]+ " :statement sql-oracle-statement-starters :syntax-alist ((36 . "_") (35 . "_")) :terminator ("\\(^/\\|;\\)$" . "/") :input-filter sql-placeholders-filter) (postgres :name "Postgres" :free-software t :font-lock sql-mode-postgres-font-lock-keywords :sqli-program sql-postgres-program :sqli-options sql-postgres-options :sqli-login sql-postgres-login-params :sqli-comint-func sql-comint-postgres :list-all ("\\d+" . "\\dS+") :list-table ("\\d+ %s" . "\\dS+ %s") :completion-object sql-postgres-completion-object :prompt-regexp "^\\w*=[#>] " :prompt-length 5 :prompt-cont-regexp "^\\w*[-(][#>] " :input-filter sql-remove-tabs-filter :terminator ("\\(^\\s-*\\\\g$\\|;\\)" . "\\g")) (solid :name "Solid" :font-lock sql-mode-solid-font-lock-keywords :sqli-program sql-solid-program :sqli-options sql-solid-options :sqli-login sql-solid-login-params :sqli-comint-func sql-comint-solid :prompt-regexp "^" :prompt-length 0) (sqlite :name "SQLite" :free-software t :font-lock sql-mode-sqlite-font-lock-keywords :sqli-program sql-sqlite-program :sqli-options sql-sqlite-options :sqli-login sql-sqlite-login-params :sqli-comint-func sql-comint-sqlite :list-all ".tables" :list-table ".schema %s" :completion-object sql-sqlite-completion-object :prompt-regexp "^sqlite> " :prompt-length 8 :prompt-cont-regexp "^ ...> " :terminator ";") (sybase :name "Sybase" :font-lock sql-mode-sybase-font-lock-keywords :sqli-program sql-sybase-program :sqli-options sql-sybase-options :sqli-login sql-sybase-login-params :sqli-comint-func sql-comint-sybase :prompt-regexp "^SQL> " :prompt-length 5 :syntax-alist ((64 . "_")) :terminator ("^go" . "go"))) (#$ . 2608)) (defvar sql-indirect-features '(:font-lock :sqli-program :sqli-options :sqli-login :statement)) (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\"BE\320BB\257\321\322\323\324& \210\301\325\326\327\305\315\316\330\"B\323\324\331\332& \210\333\334\325\"\210\301\335\303\336\305\337\321\340\323\324& \210\301\341\303\342\305\343\321\344\323\324& \207" [sql-product-alist custom-declare-variable sql-connection-alist nil "An alist of connection parameters for interacting with a SQL product.\nEach element of the alist is as follows:\n\n (CONNECTION (SQL-VARIABLE VALUE) ...)\n\nWhere CONNECTION is a symbol identifying the connection, SQL-VARIABLE\nis the symbol name of a SQL mode variable, and VALUE is the value to\nbe assigned to the variable. The most common SQL-VARIABLE settings\nassociated with a connection are: `sql-product', `sql-user',\n`sql-password', `sql-port', `sql-server', and `sql-database'.\n\nIf a SQL-VARIABLE is part of the connection, it will not be\nprompted for during login. The command `sql-connect' starts a\npredefined SQLi session using the parameters from this list.\nConnections defined here appear in the submenu SQL->Start... for\nmaking new SQLi sessions." :type alist :key-type (string :tag "Connection") :value-type set group (const :tag "Product" sql-product) choice mapcar #[(prod-info) "\301\302\303A\304\"\206 \305\306@!!\307@DF\207" [prod-info const :tag plist-get :name capitalize symbol-name quote] 5] ((group (const :tag "Username" sql-user) string) (group (const :tag "Password" sql-password) string) (group (const :tag "Server" sql-server) string) (group (const :tag "Database" sql-database) string) (group (const :tag "Port" sql-port) integer) (repeat :inline t (list :tab "Other" (symbol :tag " Variable Symbol") (sexp :tag "Value Expression")))) :version "24.1" :group SQL sql-product 'ansi "Select the SQL database product used so that buffers can be\nhighlighted properly when you open them." #[(prod-info) "\301\302\303A\304\"\206 \305\306@!!@F\207" [prod-info const :tag plist-get :name capitalize symbol-name] 5] :safe symbolp defvaralias sql-dialect sql-electric-stuff "Treat some input as electric.\nIf set to the symbol `semicolon', then hitting `;' will send current\ninput in the SQLi buffer to the process.\nIf set to the symbol `go', then hitting `go' on a line by itself will\nsend current input in the SQLi buffer to the process.\nIf set to nil, then you must use \\[comint-send-input] in order to send\ncurrent input in the SQLi buffer to the process." (choice (const :tag "Nothing" nil) (const :tag "The semicolon `;'" semicolon) (const :tag "The string `go' by itself" go)) "20.8" sql-send-terminator "When non-nil, add a terminator to text sent to the SQL interpreter.\n\nWhen text is sent to the SQL interpreter (via `sql-send-string',\n`sql-send-region', `sql-send-paragraph' or `sql-send-buffer'), a\ncommand terminator can be automatically sent as well. The\nterminator is not sent, if the string sent already ends with the\nterminator.\n\nIf this value is t, then the default command terminator for the\nSQL interpreter is sent. If this value is a string, then the\nstring is sent.\n\nIf the value is a cons cell of the form (PAT . TERM), then PAT is\na regexp used to match the terminator in the string and TERM is\nthe terminator to be sent. This form is useful if the SQL\ninterpreter has more than one way of submitting a SQL command.\nThe PAT regexp can match any of them, and TERM is the way we do\nit automatically." (choice (const :tag "No Terminator" nil) (const :tag "Default Terminator" t) (string :tag "Terminator String") (cons :tag "Terminator Pattern and String" (string :tag "Terminator Pattern") (string :tag "Terminator String"))) "22.2"] 16) #@170 When non-nil, the current buffer contains database names. Globally should be set to nil; it will be non-nil in `sql-mode', `sql-interactive-mode' and list all buffers. (defvar sql-contains-names nil (#$ . 15916)) #@376 When non-nil, pop to the buffer SQL statements are sent to. After a call to `sql-sent-string', `sql-send-region', `sql-send-paragraph' or `sql-send-buffer', the window is split and the SQLi buffer is shown. If this variable is not nil, that buffer's window will be selected by calling `pop-to-buffer'. If this variable is nil, that buffer is shown using `display-buffer'. (custom-declare-variable 'sql-pop-to-buffer-after-send-region nil '(#$ . 16137) :type 'boolean :group 'SQL) #@277 Define interesting points in the SQL buffer for `imenu'. This is used to set `imenu-generic-expression' when SQL mode is entered. Subsequent changes to `sql-imenu-generic-expression' will not affect existing SQL buffers because imenu-generic-expression is a local variable. (defvar sql-imenu-generic-expression '(("Rules/Defaults" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*\\(rule\\|default\\)\\s-+\\(\\w+\\)" 3) ("Sequences" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*sequence\\s-+\\(\\w+\\)" 2) ("Triggers" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*trigger\\s-+\\(\\w+\\)" 2) ("Functions" "^\\s-*\\(create\\s-+\\(\\w+\\s-+\\)*\\)?function\\s-+\\(\\w+\\)" 3) ("Procedures" "^\\s-*\\(create\\s-+\\(\\w+\\s-+\\)*\\)?proc\\(edure\\)?\\s-+\\(\\w+\\)" 4) ("Packages" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*package\\s-+\\(body\\s-+\\)?\\(\\w+\\)" 3) ("Types" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*type\\s-+\\(body\\s-+\\)?\\(\\w+\\)" 3) ("Indexes" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*index\\s-+\\(\\w+\\)" 2) ("Tables/Views" "^\\s-*create\\s-+\\(\\w+\\s-+\\)*\\(table\\|view\\)\\s-+\\(\\w+\\)" 3)) (#$ . 16627)) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\210\300\320\321\322\304\317\306\307&\210\300\323\324\325\304\317\306\307&\210\300\326\327\330\331\332\304\317\306\307& \210\300\333\334\335\331\332\304\313\306\307& \210\300\336\337\340\304\341\306\307&\210\300\342\302\343\304\344\331\345\306\307& \210\300\346\347\350\304\351\331\332\306\307& \210\300\352\353\354\331\332\304\313\306\307& \210\300\355\356\357\331\332\304\360\306\307& \210\300\361\302\362\331\363\304\360\306\307& \210\300\364\365\366\304\341\306\307&\210\300\367\302\370\304\371\331\345\306\307& \210\300\372\373\374\304\351\331\332\306\307& \210\300\375\376\377\304\341\306\307&\210\300\201@ \302\201A \304\201B \331\345\306\307& \210\300\201C \201D \201E \304\351\331\332\306\307& \210\300\201F \201G \201H \304\341\306\307&\210\300\201I \201J \201K \304\351\331\332\306\307& \210\300\201L \201M \201N \304\341\306\307&\210\300\201O \302\201P \304\201Q \331\345\306\307& \210\300\201R \201S \201T \304\351\331\332\306\307& \210\300\201U \201V \201W \304\341\306\307&\210\300\201X \201Y \201Z \304\351\331\332\306\307& \210\300\201[ \201\\ \201] \304\341\306\307&\210\300\201^ \201_ \201` \304\351\331\332\306\307& \210\300\201a \201b \201c \304\341\306\307&\210\300\201d \201e \201f \304\201g \331\201h \306\307& \210\300\201i \201j \201k \304\351\331\332\306\307& \210\300\201l \201m \201n \304\341\306\307&\210\300\201o \201p \201q \304\201r \331\345\306\307& \210\300\201s \201t \201u \304\351\331\332\306\307& \210\300\201v \201M \201w \304\341\306\307&\210\300\201x \302\201y \304\201z \331\345\306\307& \210\300\201{ \201| \201} \304\351\331\332\306\307& \210\300\201~ \201 \201\200 \304\341\306\307&\210\300\201\201 \302\201\202 \304\201\203 \331\345\306\307& \210\300\201\204 \302\201\205 \304\351\331\332\306\307& \210\300\201\206 \201\207 \201\210 \304\341\306\307&\210\300\201\211 \302\201\212 \304\201\213 \331\201\214 \306\307& \210\300\201\215 \201\216 \201\217 \304\351\331\332\306\307& \207" [custom-declare-variable sql-input-ring-file-name nil "If non-nil, name of the file to read/write input history.\n\nYou have to set this variable if you want the history of your commands\nsaved from one Emacs session to the next. If this variable is set,\nexiting the SQL interpreter in an SQLi buffer will write the input\nhistory to the specified file. Starting a new process in a SQLi buffer\nwill read the input history from the specified file.\n\nThis is used to initialize `comint-input-ring-file-name'.\n\nNote that the size of the input history is determined by the variable\n`comint-input-ring-size'." :type (choice (const :tag "none" nil) (file)) :group SQL sql-input-ring-separator "\n--\n" "Separator between commands in the history file.\n\nIf set to \"\\n\", each line in the history file will be interpreted as\none command. Multi-line commands are split into several commands when\nthe input ring is initialized from a history file.\n\nThis variable used to initialize `comint-input-ring-separator'.\n`comint-input-ring-separator' is part of Emacs 21; if your Emacs\ndoes not have it, setting `sql-input-ring-separator' will have no\neffect. In that case multiline commands will be split into several\ncommands when the input history is read, as if you had set\n`sql-input-ring-separator' to \"\\n\"." string sql-interactive-mode-hook 'nil "Hook for customizing `sql-interactive-mode'." hook sql-mode-hook 'nil "Hook for customizing `sql-mode'." sql-set-sqli-hook 'nil "Hook for reacting to changes of `sql-buffer'.\n\nThis is called by `sql-set-sqli-buffer' when the value of `sql-buffer'\nis changed." sql-login-hook 'nil "Hook for interacting with a buffer in `sql-interactive-mode'.\n\nThis hook is invoked in a buffer once it is ready to accept input\nfor the first time." :version "24.1" sql-ansi-statement-starters (regexp-opt '("create" "alter" "drop" "select" "insert" "update" "delete" "merge" "grant" "revoke")) "Regexp of keywords that start SQL commands\n\nAll products share this list; products should define a regexp to\nidentify additional keywords in a variable defined by\nthe :statement feature." sql-oracle-program "sqlplus" "Command to start sqlplus by Oracle.\n\nStarts `sql-interactive-mode' after doing some setup.\n\nOn Windows, \"sqlplus\" usually starts the sqlplus \"GUI\". In order\nto start the sqlplus console, use \"plus33\" or something similar.\nYou will find the file in your Orant\\bin directory." file sql-oracle-options "List of additional options for `sql-oracle-program'." (repeat string) "20.8" sql-oracle-login-params '(user password database) "List of login parameters needed to connect to Oracle." sql-login-params sql-oracle-statement-starters (regexp-opt '("declare" "begin" "with")) "Additional statement starting keywords in Oracle." sql-oracle-scan-on t "Non-nil if placeholders should be replaced in Oracle SQLi.\n\nWhen non-nil, Emacs will scan text sent to sqlplus and prompt\nfor replacement text for & placeholders as sqlplus does. This\nis needed on Windows where SQL*Plus output is buffered and the\nprompts are not shown until after the text is entered.\n\nYou need to issue the following command in SQL*Plus to be safe:\n\n SET DEFINE OFF\n\nIn older versions of SQL*Plus, this was the SET SCAN OFF command." boolean sql-db2-escape-newlines "Non-nil if newlines should be escaped by a backslash in DB2 SQLi.\n\nWhen non-nil, Emacs will automatically insert a space and\nbackslash prior to every newline in multi-line SQL statements as\nthey are submitted to an interactive DB2 session." "24.3" sql-sqlite-program (or (executable-find "sqlite3") (executable-find "sqlite") "sqlite") "Command to start SQLite.\n\nStarts `sql-interactive-mode' after doing some setup." sql-sqlite-options "List of additional options for `sql-sqlite-program'." (repeat string) sql-sqlite-login-params '((database :file ".*\\.\\(db\\|sqlite[23]?\\)")) "List of login parameters needed to connect to SQLite." sql-mysql-program "mysql" "Command to start mysql by TcX.\n\nStarts `sql-interactive-mode' after doing some setup." sql-mysql-options "List of additional options for `sql-mysql-program'.\nThe following list of options is reported to make things work\non Windows: \"-C\" \"-t\" \"-f\" \"-n\"." (repeat string) sql-mysql-login-params '(user password database server) "List of login parameters needed to connect to MySQL." sql-solid-program "solsql" "Command to start SOLID SQL Editor.\n\nStarts `sql-interactive-mode' after doing some setup." sql-solid-login-params '(user password server) "List of login parameters needed to connect to Solid." sql-sybase-program "isql" "Command to start isql by Sybase.\n\nStarts `sql-interactive-mode' after doing some setup." sql-sybase-options "List of additional options for `sql-sybase-program'.\nSome versions of isql might require the -n option in order to work." (repeat string) sql-sybase-login-params '(server user password database) "List of login parameters needed to connect to Sybase." sql-informix-program "dbaccess" "Command to start dbaccess by Informix.\n\nStarts `sql-interactive-mode' after doing some setup." sql-informix-login-params '(database) "List of login parameters needed to connect to Informix." sql-ingres-program "sql" "Command to start sql by Ingres.\n\nStarts `sql-interactive-mode' after doing some setup." sql-ingres-login-params '(database) "List of login parameters needed to connect to Ingres." sql-ms-program "osql" "Command to start osql by Microsoft.\n\nStarts `sql-interactive-mode' after doing some setup." sql-ms-options '("-w" "300" "-n") "List of additional options for `sql-ms-program'." (repeat string) "22.1" sql-ms-login-params '(user password server database) "List of login parameters needed to connect to Microsoft." sql-postgres-program "psql" "Command to start psql by Postgres.\n\nStarts `sql-interactive-mode' after doing some setup." sql-postgres-options '("-P" "pager=off") "List of additional options for `sql-postgres-program'.\nThe default setting includes the -P option which breaks older versions\nof the psql client (such as version 6.5.3). The -P option is equivalent\nto the --pset option. If you want the psql to prompt you for a user\nname, add the string \"-u\" to the list of options. If you want to\nprovide a user name on the command line (newer versions such as 7.1),\nadd your name with a \"-U\" prefix (such as \"-Umark\") to the list." (repeat string) sql-postgres-login-params `((user :default ,(user-login-name)) (database :default ,(user-login-name)) server) "List of login parameters needed to connect to Postgres." sql-interbase-program "Command to start isql by Interbase.\n\nStarts `sql-interactive-mode' after doing some setup." sql-interbase-options "List of additional options for `sql-interbase-program'." (repeat string) sql-interbase-login-params '(user password database) "List of login parameters needed to connect to Interbase." sql-db2-program "db2" "Command to start db2 by IBM.\n\nStarts `sql-interactive-mode' after doing some setup." sql-db2-options "List of additional options for `sql-db2-program'." (repeat string) sql-db2-login-params "List of login parameters needed to connect to DB2." sql-linter-program "inl" "Command to start inl by RELEX.\n\nStarts `sql-interactive-mode' after doing some setup." sql-linter-options "List of additional options for `sql-linter-program'." (repeat string) "21.3" sql-linter-login-params '(user password database server) "Login parameters to needed to connect to Linter."] 10) #@28 History of usernames used. (defvar sql-user-history nil (#$ . 27294)) #@28 History of databases used. (defvar sql-database-history nil (#$ . 27370)) #@26 History of servers used. (defvar sql-server-history nil (#$ . 27450)) #@27 History of products used. (defvar sql-product-history nil (#$ . 27526)) #@30 History of connections used. (defvar sql-connection-history nil (#$ . 27604)) #@368 Current SQLi buffer. The global value of `sql-buffer' is the name of the latest SQLi buffer created. Any SQL buffer created will make a local copy of this value. See `sql-interactive-mode' for more on multiple sessions. If you want to change the SQLi buffer a SQL mode sends its SQL strings to, change the local value of `sql-buffer' using \[sql-set-sqli-buffer]. (defvar sql-buffer nil (#$ . 27689)) #@119 Prompt used to initialize `comint-prompt-regexp'. You can change `sql-prompt-regexp' on `sql-interactive-mode-hook'. (defvar sql-prompt-regexp nil (#$ . 28100)) #@129 Prompt used to set `left-margin' in `sql-interactive-mode'. You can change `sql-prompt-length' on `sql-interactive-mode-hook'. (defvar sql-prompt-length 0 (#$ . 28269)) #@51 Prompt pattern of statement continuation prompts. (defvar sql-prompt-cont-regexp nil (#$ . 28445)) #@92 Buffer-local string used to possibly rename the SQLi buffer. Used by `sql-rename-buffer'. (defvar sql-alternate-buffer-name nil (#$ . 28550)) #@314 Returns non-nil if the process associated with buffer is live. BUFFER can be a buffer object or a buffer name. The buffer must be a live buffer, have an running process attached to it, be in `sql-interactive-mode', and, if PRODUCT or CONNECTION are specified, it's `sql-product' or `sql-connection' must match. (defalias 'sql-buffer-live-p #[(buffer &optional product connection) "\205; \305!\211\205; \306!\205; \307!\205; \310!\205; rq\210\311\312!\205: \2032 \n=\205: ?\206: \f=)\207" [buffer product sql-product connection sql-connection get-buffer buffer-live-p get-buffer-process comint-check-proc derived-mode-p sql-interactive-mode] 3 (#$ . 28700)]) #@71 Mode map used for `sql-interactive-mode'. Based on `comint-mode-map'. (defvar sql-interactive-mode-map (byte-code "\302 \303\304!\203 \304 \"\210\202 \303\305!\203 \305 C\"\210\303\306!\203( \306\307\"\210\310\311\312#\210\310\313\314#\210\310\315\316#\210\310\317\316#\210\310\320\321#\210\310\322\323#\210\310\324\325#\210)\207" [map comint-mode-map make-sparse-keymap fboundp set-keymap-parent set-keymap-parents set-keymap-name sql-interactive-mode-map define-key "\n" sql-accumulate-and-indent "" sql-copy-column "O" sql-magic-go "o" ";" sql-magic-semicolon "\fa" sql-list-all "\ft" sql-list-table] 4) (#$ . 29377)) #@31 Mode map used for `sql-mode'. (defvar sql-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210)\207" [map make-sparse-keymap define-key "" sql-send-paragraph "" sql-send-region "" sql-send-string "" sql-send-buffer " " sql-product-interactive "\fa" sql-list-all "\ft" sql-list-table [remap beginning-of-defun] sql-beginning-of-statement [remap end-of-defun] sql-end-of-statement] 4) (#$ . 30023)) #@22 Menu for `sql-mode'. (defvar sql-mode-menu nil (#$ . 30575)) (byte-code "\302\303\304\305\306\307\310\311\312\313\314\312\315\316\317\320\321\322\323\324\325\326 \"B\257$\207" [sql-mode-map sql-product-alist easy-menu-do-define sql-mode-menu "Menu for `sql-mode'." "SQL" ["Send Paragraph" sql-send-paragraph (sql-buffer-live-p sql-buffer)] ["Send Region" sql-send-region (and mark-active (sql-buffer-live-p sql-buffer))] ["Send Buffer" sql-send-buffer (sql-buffer-live-p sql-buffer)] ["Send String" sql-send-string (sql-buffer-live-p sql-buffer)] "--" ["List all objects" sql-list-all (and (sql-buffer-live-p sql-buffer) (sql-get-product-feature sql-product :list-all))] ["List table details" sql-list-table (and (sql-buffer-live-p sql-buffer) (sql-get-product-feature sql-product :list-table))] ["Start SQLi session" sql-product-interactive :visible (not sql-connection-alist) :enable (sql-get-product-feature sql-product :sqli-comint-func)] ("Start..." :visible sql-connection-alist :filter sql-connection-menu-filter "--" ["New SQLi Session" sql-product-interactive (sql-get-product-feature sql-product :sqli-comint-func)]) ["--" :visible sql-connection-alist] ["Show SQLi buffer" sql-show-sqli-buffer t] ["Set SQLi buffer" sql-set-sqli-buffer t] ["Pop to SQLi buffer after send" sql-toggle-pop-to-buffer-after-send-region :style toggle :selected sql-pop-to-buffer-after-send-region] ["--" nil nil] "Product" mapcar #[(prod-info) "\211A@\304\305\"\206 \306\307 !!\310\311\312 \"!\211\313\314\311\315\n\"\316\317\320 DD\257M\210\321\n\322\323\324\325\326\320 DE&+\207" [prod-info prod name cmd plist-get :name capitalize symbol-name intern format "sql-highlight-%s-keywords" lambda nil "Highlight %s SQL keywords." (interactive) sql-set-product quote vector :style radio :selected eq sql-product] 11]] 24) #@34 Menu for `sql-interactive-mode'. (defvar sql-interactive-mode-menu nil (#$ . 32401)) (easy-menu-do-define 'sql-interactive-mode-menu sql-interactive-mode-map "Menu for `sql-interactive-mode'." '("SQL" ["Rename Buffer" sql-rename-buffer t] ["Save Connection" sql-save-connection (not sql-connection)] "--" ["List all objects" sql-list-all (sql-get-product-feature sql-product :list-all)] ["List table details" sql-list-table (sql-get-product-feature sql-product :list-table)])) #@61 Abbrev table used in `sql-mode' and `sql-interactive-mode'. (defvar sql-mode-abbrev-table nil (#$ . 32884)) (byte-code "\204 \301\300\302\"\210\303\304\305\"\207" [sql-mode-abbrev-table define-abbrev-table nil mapc #[(abbrev) "@A\303\304\305\217*\207" [abbrev expansion name nil (byte-code "\303 \n\304\305\306&\207" [sql-mode-abbrev-table name expansion define-abbrev nil 0 t] 7) ((error (define-abbrev sql-mode-abbrev-table name expansion)))] 3] (("ins" . "insert") ("upd" . "update") ("del" . "delete") ("sel" . "select") ("proc" . "procedure") ("func" . "function") ("cr" . "create"))] 3) #@61 Syntax table used in `sql-mode' and `sql-interactive-mode'. (defvar sql-mode-syntax-table (byte-code "\302 \303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\313#\210\303\315\316#\210\303\317\320#\210\321\322\323\324 \325\")\"\210)\207" [table string make-syntax-table modify-syntax-entry 47 ". 14" 42 ". 23" 45 ". 12b" 10 "> b" 12 39 "\"" 34 "." mapc #[(c) "\302\303 #\207" [c table modify-syntax-entry "."] 4] "!#$%&+,.:;<=>?@\\|" append nil] 5) (#$ . 33491)) #@188 Pattern to match the names of top-level objects. The pattern matches the name in a CREATE, DROP or ALTER statement. The format of variable should be a valid `font-lock-keywords' entry. (defvar sql-mode-font-lock-object-name '("^\\s-*\\(?:create\\|drop\\|alter\\)\\s-+\\(?:\\w+\\s-+\\)*\\(?:table\\|view\\|\\(?:package\\|type\\)\\(?:\\s-+body\\)?\\|proc\\(?:edure\\)?\\|function\\|trigger\\|sequence\\|rule\\|default\\)\\s-+\\(\\w+\\)" 1 font-lock-function-name-face) (#$ . 33997)) #@52 Generation of regexp matching any one of KEYWORDS. (defalias 'sql-font-lock-keywords-builder #[(face boundaries &rest keywords) "\206 \305\306\n@\307 \310\"\nAQ\f*B\207" [boundaries kwd bdy keywords face ("\\b" . "\\b") nil regexp-opt t] 4 (#$ . 34486)]) (defalias 'sql-regexp-abbrev #[(keyword) "\306\307\"G\310\311\211\211\204 \202<