view runtime/syntax/msql.vim @ 33266:db6ecb403e75 v9.0.1901

patch 9.0.1901: win32: not correctly freeing environment Commit: https://github.com/vim/vim/commit/ad29f6af0a2edcd1c9e78d8defe86b2155937f7c Author: Ken Takata <kentkt@csc.jp> Date: Sat Sep 16 13:56:02 2023 +0200 patch 9.0.1901: win32: not correctly freeing environment Problem: win32: not correctly freeing environment Solution: After we call GetEnvironmentStringsW, we should call FreeEnvironmentStringsW closes: #13096 closes: #13094 Signed-off-by: Christian Brabandt <cb@256bit.org> Co-authored-by: Ken Takata <kentkt@csc.jp>
author Christian Brabandt <cb@256bit.org>
date Sat, 16 Sep 2023 14:00:03 +0200
parents 46763b01cd9a
children
line wrap: on
line source

" Vim syntax file
" Language:	msql
" Maintainer:	Lutz Eymers <ixtab@polzin.com>
" URL:		http://www.isp.de/data/msql.vim
" Email:	Subject: send syntax_vim.tgz
" Last Change:	2001 May 10
"
" Options	msql_sql_query = 1 for SQL syntax highligthing inside strings
"		msql_minlines = x     to sync at least x lines backwards

" quit when a syntax file was already loaded
if exists("b:current_syntax")
  finish
endif

if !exists("main_syntax")
  let main_syntax = 'msql'
endif

runtime! syntax/html.vim
unlet b:current_syntax

syn cluster htmlPreproc add=msqlRegion

syn case match

" Internal Variables
syn keyword msqlIntVar ERRMSG contained

" Env Variables
syn keyword msqlEnvVar SERVER_SOFTWARE SERVER_NAME SERVER_URL GATEWAY_INTERFACE contained
syn keyword msqlEnvVar SERVER_PROTOCOL SERVER_PORT REQUEST_METHOD PATH_INFO  contained
syn keyword msqlEnvVar PATH_TRANSLATED SCRIPT_NAME QUERY_STRING REMOTE_HOST contained
syn keyword msqlEnvVar REMOTE_ADDR AUTH_TYPE REMOTE_USER CONTEN_TYPE  contained
syn keyword msqlEnvVar CONTENT_LENGTH HTTPS HTTPS_KEYSIZE HTTPS_SECRETKEYSIZE  contained
syn keyword msqlEnvVar HTTP_ACCECT HTTP_USER_AGENT HTTP_IF_MODIFIED_SINCE  contained
syn keyword msqlEnvVar HTTP_FROM HTTP_REFERER contained

" Inlclude lLite
syn include @msqlLite <sfile>:p:h/lite.vim

" Msql Region
syn region msqlRegion matchgroup=Delimiter start="<!$" start="<![^!->D]" end=">" contains=@msqlLite,msql.*

" sync
if exists("msql_minlines")
  exec "syn sync minlines=" . msql_minlines
else
  syn sync minlines=100
endif

" Define the default highlighting.
" Only when an item doesn't have highlighting yet

hi def link msqlComment		Comment
hi def link msqlString		String
hi def link msqlNumber		Number
hi def link msqlFloat		Float
hi def link msqlIdentifier	Identifier
hi def link msqlGlobalIdentifier	Identifier
hi def link msqlIntVar		Identifier
hi def link msqlEnvVar		Identifier
hi def link msqlFunctions		Function
hi def link msqlRepeat		Repeat
hi def link msqlConditional	Conditional
hi def link msqlStatement		Statement
hi def link msqlType		Type
hi def link msqlInclude		Include
hi def link msqlDefine		Define
hi def link msqlSpecialChar	SpecialChar
hi def link msqlParentError	Error
hi def link msqlTodo		Todo
hi def link msqlOperator		Operator
hi def link msqlRelation		Operator


let b:current_syntax = "msql"

if main_syntax == 'msql'
  unlet main_syntax
endif

" vim: ts=8