11" dbext.vim - Commn Database Utility
22" Copyright (C) 2002-7, Peter Bagyinszki, David Fishburn
33" ---------------------------------------------------------------
4- " Version: 6.10
5- " Maintainer: David Fishburn <fishburn@ianywhere. com>
6- " Authors: Peter Bagyinszki <petike1@ dpg. hu>
7- " David Fishburn <fishburn@ianywhere. com>
8- " Last Modified: Sun 08 Jun 2008 10:31:10 PM Eastern Daylight Time
4+ " Version: 6.20
5+ " Maintainer: David Fishburn <dfishburn dot vim at gmail dot com>
6+ " Authors: Peter Bagyinszki <petike1 at dpg dot hu>
7+ " David Fishburn <dfishburn dot vim at gmail dot com>
8+ " Last Modified: 2008 Aug 09
99" Based On: sqlplus.vim (author: Jamis Buck)
1010" Created: 2002-05-24
1111" Homepage: http://vim.sourceforge.net/script.php?script_id=356
12- " Contributors: Joerg Schoppet <joerg. schoppet@ web. de>
13- " Hari Krishna Dara <hari_vim@ yahoo. com>
12+ " Contributors: Joerg Schoppet <joerg dot schoppet at web dot de>
13+ " Hari Krishna Dara <hari_vim at yahoo dot com>
1414" Ron Aaron
1515" Andi Stern
1616"
@@ -37,7 +37,7 @@ if v:version < 700
3737 echomsg " dbext: Version 4.00 or higher requires Vim7. Version 3.50 can stil be used with Vim6."
3838 finish
3939endif
40- let g: loaded_dbext_auto = 610
40+ let g: loaded_dbext_auto = 620
4141
4242" call confirm("Loaded dbext autoload", "&Ok")
4343" Script variable defaults, these are used internal and are never displayed
@@ -813,8 +813,8 @@ function! s:DB_getDefault(name)
813813 elseif a: name == # " DB2_db2cmd_bin" |return (exists (" g:dbext_default_DB2_db2cmd_bin" )?g: dbext_default_DB2_db2cmd_bin .' ' :' db2cmd' )
814814 elseif a: name == # " DB2_db2cmd_cmd_options" |return (exists (" g:dbext_default_DB2_db2cmd_cmd_options" )?g: dbext_default_DB2_db2cmd_cmd_options .' ' :' -c -w -i -t db2 -s' )
815815 elseif a: name == # " DB2_cmd_terminator" |return (exists (" g:dbext_default_DB2_cmd_terminator" )?g: dbext_default_DB2_cmd_terminator .' ' :' ;' )
816- elseif a: name == # " DB2_SQL_Top_pat" |return (exists (" g:dbext_default_DB2_SQL_Top_pat" )?g: dbext_default_DB2_SQL_Top_pat .' ' :' \(\cselect \)' )
817- elseif a: name == # " DB2_SQL_Top_sub" |return (exists (" g:dbext_default_DB2_SQL_Top_sub" )?g: dbext_default_DB2_SQL_Top_sub .' ' :' \1 TOP @dbext_topX ' )
816+ elseif a: name == # " DB2_SQL_Top_pat" |return (exists (" g:dbext_default_DB2_SQL_Top_pat" )?g: dbext_default_DB2_SQL_Top_pat .' ' :' \(.* \)' )
817+ elseif a: name == # " DB2_SQL_Top_sub" |return (exists (" g:dbext_default_DB2_SQL_Top_sub" )?g: dbext_default_DB2_SQL_Top_sub .' ' :' \1 FETCH FIRST @dbext_topX ROWS ONLY ' )
818818 elseif a: name == # " INGRES_bin" |return (exists (" g:dbext_default_INGRES_bin" )?g: dbext_default_INGRES_bin .' ' :' sql' )
819819 elseif a: name == # " INGRES_cmd_options" |return (exists (" g:dbext_default_INGRES_cmd_options" )?g: dbext_default_INGRES_cmd_options .' ' :' ' )
820820 elseif a: name == # " INGRES_cmd_terminator" |return (exists (" g:dbext_default_INGRES_cmd_terminator" )?g: dbext_default_INGRES_cmd_terminator .' ' :' \p\g' )
@@ -4866,7 +4866,7 @@ function! dbext#DB_getQueryUnderCursor()
48664866 \ col (" '<" ) == col (" '>" )
48674867 " No command terminator was found, so just use
48684868 " the current lines content
4869- let @z = matchstr (getline (" '<" ), ' .\{ ' . col (" '<" ). ' }\zs.* ' )
4869+ let @z = strpart (getline (" '<" ), ( col (" '<" )-1 ) )
48704870 endif
48714871 endif
48724872
@@ -6062,7 +6062,7 @@ function! s:DB_parseHostVariables(query)
60626062 " For some reason [\n\s]* does not work
60636063 if query = ~? ' ^[\n \t]*select'
60646064 let query = substitute (query,
6065- \ ' \c\%(\<\%(insert\|merge\)\s\+\)\@<!INTO.\{-}FROM' ,
6065+ \ ' \c\%(\<\%(insert\|merge\)\s\+\)\@<!\< INTO\> .\{-}\< FROM\> ' ,
60666066 \ ' FROM' , ' g' )
60676067 endif
60686068
0 commit comments