Loading ...
Sorry, an error occurred while loading the content.

aspvbs.vim patch

Expand Messages
  • K'tohg
    ... Thanks for the tip. I ve added it and the latest version is avaliable at http://www.tritarget.com/vim/syntax/aspvim.vim (Also attached to email) Bram, ya
    Message 1 of 1 , May 1 7:49 AM
    • 0 Attachment
      On Fri, Apr 28, 2000 at 02:41:10PM +0200, Bernard Vander Beken wrote:
      > In VBScript 'on error goto SomeWhere' is marked as an Error.
      > This is correct except in the following case: 'on error goto 0',
      > which disables a previous on error resume next.

      Thanks for the tip. I've added it and the latest version is avaliable at
      http://www.tritarget.com/vim/syntax/aspvim.vim (Also attached to email)

      Bram, ya mind tossing it into the distro? :-)

      And for whom it may concern: a patch.
      *** ../vim-5.6.x/runtime/syntax/aspvbs.vim Mon May 1 10:39:20 2000
      --- runtime/syntax/aspvbs.vim Sun Jan 16 10:08:32 2000
      ***************
      *** 2,8 ****
      " Language: Microsoft VBScript Web Content (ASP)
      " Maintainer: Devin Weaver <ktohg@...>
      " URL: http://www.tritarget.com/vim/syntax
      ! " Last Change: 2000 May 01

      " Remove any old syntax stuff hanging around
      syn clear
      --- 2,8 ----
      " Language: Microsoft VBScript Web Content (ASP)
      " Maintainer: Devin Weaver <ktohg@...>
      " URL: http://www.tritarget.com/vim/syntax
      ! " Last Change: 1999 Sep 18

      " Remove any old syntax stuff hanging around
      syn clear
      ***************
      *** 38,44 ****
      syn match AspVBSError contained "\<Property\s\+\(Get\|Let\|Set\)\>"

      " AspVBScript Reserved Words.
      ! syn match AspVBSStatement contained "\<On\s\+Error\s\+\(Resume\s\+Next\|goto\s\+0\)\>\|\<Next\>"
      syn match AspVBSStatement contained "\<End\s\+\(If\|For\|Select\|Function\|Sub\)\>"
      syn match AspVBSStatement contained "\<Exit\s\+\(Do\|For\|Sub\|Function\)\>"
      syn match AspVBSStatement contained "\<Option\s\+Explicit\>"
      --- 38,44 ----
      syn match AspVBSError contained "\<Property\s\+\(Get\|Let\|Set\)\>"

      " AspVBScript Reserved Words.
      ! syn match AspVBSStatement contained "\<On\s\+Error\s\+Resume\s\+Next\>\|\<Next\>"
      syn match AspVBSStatement contained "\<End\s\+\(If\|For\|Select\|Function\|Sub\)\>"
      syn match AspVBSStatement contained "\<Exit\s\+\(Do\|For\|Sub\|Function\)\>"
      syn match AspVBSStatement contained "\<Option\s\+Explicit\>"
      ***************
      *** 113,120 ****
      syn cluster AspVBScriptTop contains=AspVBSStatement,AspVBSFunction,AspVBSMethods,AspVBSNumber,AspVBSString,AspVBSComment,AspVBSError

      " Define AspVBScript delimeters
      ! " <%= func("string_with_%>_in_it") %> This is illegal in ASP syntax.
      ! syn region AspVBScriptInsideHtmlTags keepend matchgroup=Delimiter start=+<%=\=+ end=+%>+ contains=@AspVBScriptTop
      syn region AspVBScriptInsideHtmlTags keepend matchgroup=Delimiter start=+<script\s\+language="\=vbscript"\=[^>]*\s\+runatserver[^>]*>+ end=+</script>+ contains=@AspVBScriptTop

      " Synchronization
      --- 113,119 ----
      syn cluster AspVBScriptTop contains=AspVBSStatement,AspVBSFunction,AspVBSMethods,AspVBSNumber,AspVBSString,AspVBSComment,AspVBSError

      " Define AspVBScript delimeters
      ! syn region AspVBScriptInsideHtmlTags keepend matchgroup=Delimiter start=+<%+ skip=+".*%>.*"+ end=+%>+ contains=@AspVBScriptTop
      syn region AspVBScriptInsideHtmlTags keepend matchgroup=Delimiter start=+<script\s\+language="\=vbscript"\=[^>]*\s\+runatserver[^>]*>+ end=+</script>+ contains=@AspVBScriptTop

      " Synchronization

      --
      panic("Foooooooood fight!");
      -- In the kernel source aha1542.c, after detecting a bad segment list
    Your message has been successfully submitted and would be delivered to recipients shortly.