" Vim syntax file
" URL: http://www.math.fu-berlin.de/~guckes/vim/syntax/new/progress.vim
" Language:	Progress 4GL
" Filename extensions: *.p (collides with Pascal), *.i
" Maintainer:	Mikhail Kuperblum <mikhail@whasup.com>
" Last update:	Wed Mar 03 12:00:00 CET 1999
" Notes:
" As the "4gl"s are not all alike
" this syntax file is strictly for Progress.

syn clear
syn sync lines=250
set isk=@,48-57,_,-,

syn case ignore
syn keyword progressConditional    if else then while when otherwise
syn keyword progressRepeat         do repeat end editing case
syn match progressRepeat           'for each' 
syn keyword progressOperator       define def
syn keyword progressMiscList       create delete update assign enable disable input
syn keyword progressMisc           disp[lay] stop output form put
syn keyword progressAux01          unix
syn keyword progressAux02          on query browse
syn keyword progressAux03          find can available
syn keyword progressAux04          open close
syn keyword progressAux05          next leave return
syn keyword progressAux06          break accum

syn match progressOperator     "[}{!&;|)(:.><+*=-]"

syn match	progressNumber		"\<\d\+\(u\=l\=\|lu\|f\)\>"

syn region progressComment		start="/\*"  end="\*/" contains=progressTodo,progressComment
syn region  progressString            start=+"+ end=+"+ contains=progressSpecial,progressVarPlain
syn region  progressString            start=+'+ end=+'+ contains=progressSpecial,progressVarPlain

syn keyword  progressControl         run shared

hi link  progressMiscList	Special
hi link  progressMulti		Special

if !exists("did_progress_syntax_inits")
  hi progressConditional start=<Esc>[=1F<Esc>[=14G stop=<Esc>[=0G<Esc>[=7F ctermfg=Blue guifg=DeepPink
    hi progressRepeat  start=<Esc>[=1F<Esc>[=14G stop=<Esc>[=0G<Esc>[=7F ctermfg=Blue guifg=Blue guibg=Yellow
  let did_progress_syntax_inits = 1
  hi link progressSharpBang  PreProc
  hi link progressLabel		Label
  hi link progressOperator		Operator
  hi link progressMisc		progressStatement
  hi link progressVarPlain	progressIdentifier
  hi link progressVarObject	progressIdentifier
  hi link progressVarDerefPlain	progressIdentifier
  hi link progressVarDerefObject	progressIdentifier
  hi link progressStringUnexpanded	progressString
  hi link progressUntilEOF	progressString
  hi link progressCharacter		Character
  hi link progressSpecialCharacter	progressSpecial
  hi link progressMatchAny progressMatch
  hi link progressSubstitute progressMatch
  hi progressNumber  start=<Esc>[=1F<Esc>[=9G stop=<Esc>[=0G<Esc>[=7F ctermfg=Blue guifg=Blue
  hi progressAux01  start=<Esc>[=1F<Esc>[=10G stop=<Esc>[=0G<Esc>[=7F ctermfg=Blue guifg=DarkOrange3
  hi progressAux02  start=<Esc>[=1F<Esc>[=14G stop=<Esc>[=0G<Esc>[=7F ctermfg=Blue guifg=chocolate4
  hi progressAux03  start=<Esc>[=1F<Esc>[=11G stop=<Esc>[=0G<Esc>[=7F ctermfg=Blue guifg=Blue
  hi progressAux04  start=<Esc>[=1F<Esc>[=10G stop=<Esc>[=0G<Esc>[=7F ctermfg=Blue guibg=Orange guifg=Blue
  hi progressAux05  start=<Esc>[=1F<Esc>[=12G stop=<Esc>[=0G<Esc>[=7F ctermfg=Blue guibg=gray90 guifg=Blue
  hi progressAux06  start=<Esc>[=1F<Esc>[=12G stop=<Esc>[=0G<Esc>[=7F ctermfg=Blue guifg=RoyalBlue3
  hi link progressClassDecl		Typedef
  hi link progressStorageClass	progressType
  hi link progressInclude		Include
  hi link progressControl		PreProc

  hi link  progressStatement		Statement
  hi link  progressType		Type
  hi link  progressString		String
  hi link  progressPOD		    progressComment
  hi link  progressComment		Comment
  hi link  progressSpecial		Special
  hi link  progressTodo		Todo
  hi link  progressFunction		Function
  hi link  progressIdentifier	Identifier
endif

let b:current_syntax = "progress"