enhancement to sql-mode.el

enhancement to sql-mode.el

[Tom Popovich]

[-- Attachment #1.1: Type: text/plain, Size: 378 bytes --]

sql-mode.el enhancement:

Tom Popovich enhanced the Oracle support. Now you will get a as-sysdba
prompt so you can log in as "as sysdba"  or "as sysoper".  If you do not
desire to add "as sysdba"  you just
enter a carriage return.

With the change users will be prompted for : username password
database-tnsname as-sysdba-string

The changes are based on release Version: 2.0.2

[-- Attachment #1.2: Type: text/html, Size: 567 bytes --]

[-- Attachment #2: diffs.txt --]
[-- Type: text/plain, Size: 1304 bytes --]

2a3,7
> ;; == Changes == 
> ;; Tom Popovich enhanced the Oracle support. Now you will get a as-sysdba
> ;; prompt so you can log in as "as sysdba"  or "as sysoper"
> ;;
> 
271a277,284
> (defcustom sql-as-sysdba ""
>   "*Default value of as-sysdba (used for oracle) to login as sys or system."
>   :type 'string
>   :group 'SQL)
> 
> ;; Below we test   (equal sql-as-sysdba "")  and if not "" will add that to the
> ;; sqlplus command; you can enter as sysdba  if you want that mode of login
> 
342c355
<      :sqli-login (user password database)
---
>      :sqli-login (user password database as-sysdba)
516c529
< (defcustom sql-oracle-program "sqlplus"
---
> (defcustom sql-oracle-program (if nil  "/apps/ora_instant_client/sqlplus2.exe"  "sqlplus")  ;; we specify a specific binary to always use by changing nil to t ; tjp
726a740,742
> (defvar sql-as-sysdba-history nil
>   "History of as-sysdba response used.")
> 
1965c1981,1985
< 				  sql-database-history))))
---
> 				  sql-database-history)))
>      ((eq (car what) 'as-sysdba)		; database
>       (setq sql-as-sysdba
> 	    (read-from-minibuffer "as-sysdba: " sql-as-sysdba nil nil
> 				  sql-as-sysdba-history))))
2484a2505,2506
>     (if (not (equal sql-as-sysdba ""))
> 	(setq parameter (concat parameter " " sql-as-sysdba)))
2996d3017
< 

[-- Attachment #3: sql.el-tjp-enhancements.el.bz2 --]
[-- Type: application/x-bzip2, Size: 27446 bytes --]