vim: runtime/indent/sqlanywhere.vim comparison

comparison runtime/indent/sqlanywhere.vim @ 856:8cd729851562 v7.0g

updated for version 7.0g

author	vimboss
date	Sun, 30 Apr 2006 18:54:39 +0000
parents	7b21554be7a1
children	b9740fb41986

comparison

equal deleted inserted replaced

-:d2a4f08396fe
+:8cd729851562
 " Vim indent file
 " Language:    SQL
 " Maintainer:  David Fishburn <fishburn at ianywhere dot com>
 " Last Change: Wed Sep 14 2005 10:21:15 PM
 " Version:     1.4
 " Download:    http://vim.sourceforge.net/script.php?script_id=495
 " Notes:
 "    Indenting keywords are based on Oracle and Sybase Adaptive Server
 "    Anywhere (ASA).  Test indenting was done with ASA stored procedures and
 "    fuctions and Oracle packages which contain stored procedures and
 "    functions.
 "    This has not been tested against Microsoft SQL Server or
 "    Sybase Adaptive Server Enterprise (ASE) which use the Transact-SQL
 "    syntax.  That syntax does not have end tags for IF's, which makes
 "    indenting more difficult.
 "
 " Known Issues:
 setlocal indentkeys-=0}
 setlocal indentkeys-=:
 setlocal indentkeys-=0#
 setlocal indentkeys-=e
 " This indicates formatting should take place when one of these
 " expressions is used.  These expressions would normally be something
 " you would type at the BEGINNING of a line
 " SQL is generally case insensitive, so this files assumes that
 " These keywords are something that would trigger an indent LEFT, not
 " an indent right, since the SQLBlockStart is used for those keywords
 setlocal indentkeys+==~end,=~else,=~elseif,=~elsif,0=~when,0=)
 " GetSQLIndent is executed whenever one of the expressions
 " in the indentkeys is typed
 setlocal indentexpr=GetSQLIndent()
 " Only define the functions once.
 if exists("*GetSQLIndent")
 finish
 endif
 " List of all the statements that start a new block.
 " These are typically words that start a line.
 " IS is excluded, since it is difficult to determine when the
 " ending block is (especially for procedures/functions).
 let s:SQLBlockStart = '^\s*\%('.
 \ 'if\|else\|elseif\|elsif\|'.
 \ 'while\|loop\|do\|'.
 \ 'begin\|'.
 " No match found
 " echom 'CTIRP - no match found, ignoring'
 break
 endif
 if matching_paran == lnum
 " This was not an unmatched parantenses, start the search again
 " again after this column
 " echom 'CTIRP - same line match, ignoring'
 continue
 endif
 let ind = indent(matching_lnum)
 endif
 elseif a:keyword =~? 'when'
 exec 'normal! ^'
 let matching_lnum = searchpair(
 \ '\%(\<end\s\+\)\@<!\<case\>\|\<exception\>\|\<merge\>',
 \ '',
 \ '\%(\%(\<when\s\+others\>\)\|\%(\<end\s\+case\>\)\)',
 \ 'bW',
 \ 'IsColComment(line("."), col(".")) == 1')
 exec 'normal! $'
 if matching_lnum > 0 && matching_lnum < a:curr_lnum
 let ind = indent(matching_lnum)
 " Check if the line is a comment
 function IsLineComment(lnum)
 let rc = synIDattr(
 \ synID(a:lnum,
 \     match(getline(a:lnum), '\S')+1, 0)
 \ , "name")
 \ =~? "comment"
 return rc
 endfunction
 " Check if the column is a comment
 function IsColComment(lnum, cnum)
 let rc = synIDattr(synID(a:lnum, a:cnum, 0), "name")
 \           =~? "comment"
 return rc
 endfunction
 " Check if the column is a comment
 function ModuloIndent(ind)
 let ind = a:ind
 if ind > 0
 let modulo = ind % &shiftwidth
 if modulo > 0
 let ind = ind - modulo
 endfunction
 " Find correct indent of a new line based upon the previous line
 function GetSQLIndent()
 let lnum = v:lnum
 let ind = indent(lnum)
 " If the current line is a comment, leave the indent as is
 " Comment out this additional check since it affects the
 " indenting of =, and will not reindent comments as it should
 let prevlnum = prevnonblank(lnum - 1)
 if prevlnum <= 0
 return ind
 endif
 if IsLineComment(prevlnum) == 1
 if getline(v:lnum) =~ '^\s*\*'
 let ind = ModuloIndent(indent(prevlnum))
 return ind + 1
 endif
 " If the previous line is a comment, then return -1
 "         " echom 'previous non blank - break: ' . prevline
 "         break
 "     endif
 " endwhile
 " echom 'PREVIOUS INDENT: ' . indent(prevlnum) . '  LINE: ' . getline(prevlnum)
 " This is the line you just hit return on, it is not the current line
 " which is new and empty
 " Based on this line, we can determine how much to indent the new
 " line
 " Get default indent (from prev. line)
 let ind      = indent(prevlnum)
 let prevline = getline(prevlnum)
 " Now check what's on the previous line to determine if the indent
 else
 let num_unmatched_right  = 0
 " let num_unmatched_right  = s:CountUnbalancedParan( prevline, ')' )
 endif
 if num_unmatched_left > 0
 " There is a open left paranethesis
 " increase indent
 let ind = ind + ( &sw * num_unmatched_left )
 elseif num_unmatched_right > 0
 " if it is an unbalanced paranethesis only unindent if
 " it was part of a command (ie create table(..)  )
 " This is a new blank line since we just typed a carriage return
 " Check current line; search for simplistic matching start-of-block
 let line = getline(v:lnum)
 if line =~? '^\s*els'
 " Any line when you type else will automatically back up one
 " ident level  (ie else, elseif, elsif)
 let ind = ind - &sw
 " echom 'curr - else - indent ' . ind
 elseif line =~? '^\s*end\>'
 let ind = s:GetStmtStarterIndent('end', v:lnum)
 let num_unmatched_right  = s:CountUnbalancedParan( line, ')' )
 let ignore = s:CheckToIgnoreRightParan( v:lnum, num_unmatched_right )
 " If the line ends in a ), then reduce the indent
 " This catches items like:
 " CREATE TABLE T1(
 "    c1 int,
 "    c2 int
 "    );
 " But we do not want to unindent a line like:
 " IF ( c1 = 1
 " AND  c2 = 3 ) THEN
 " let num_unmatched_right  = s:CountUnbalancedParan( line, ')' )
 " if num_unmatched_right > 0
 " elseif strpart( line, strlen(line)-1, 1 ) =~ ')'
 " let ind = ind - &sw

Mercurial > vim

comparison runtime/indent/sqlanywhere.vim @ 856:8cd729851562 v7.0g