" Vim syntax file
" Language:	GOTO++
" Maintainer:	Tout <tout@niacland.net>
" Last Change:	2002 May 15

" For version 5.x: Clear all syntax items
" For version 6.x: Quit when a syntax file was already loaded
if version < 600
  syntax clear
elseif exists("b:current_syntax")
  finish
endif

" A bunch of useful GOTO++ keywords
syn keyword	gppStatement	BEBEPINGOUIN GOTOBIBLIOTHEQUE dup suppr
syn keyword	gppStatement	GOTONONNULPOURLESNULS GOTOPASMALIN REGOTO
syn keyword	gppStatement	GOTOUNIVERSPARALLELEouizzz
syn keyword	gppStatement	monpitipingouin
syn keyword	gppStatement	nimportequoitochances enentier encaractere

syn keyword	gppVar		parametre entreestd sortiestd erreurstd

syn keyword	gppFunction	GOTOGOTO GOTOCHEPA
syn keyword	gppFunction	gotoXY CouleurTexte InfosConsole NettoyerEcran
syn keyword	gppFunction	Sauver Charger
syn keyword	gppFunction	GOTOPRINT GOTOPRINTDUTEXTE ENTRETONTEXTE ENTREUNNOMBRE OUVRIRFICHIER
syn keyword	gppFunction	FinFichier ChangeModeDuFichier
syn keyword	gppFunction	INITIALISATION
syn keyword	gppFunction	OUQUILESTLETEXTE LeCaracNumero PrendsUnMorceau NombreDeLettres
syn keyword	gppFunction	DODO BigCrunch
syn keyword	gppFunction	GOTODOS ProtegeonsLaNature
syn keyword	gppFunction	PremierPingouin BOITEAPINGOUINS


syn match	gppOperator	"==\|=+\|=-\|\*=\|:=\|++\|()\|[+-:=#_"~]"
syn keyword	gppOperator	MULTIPLICATION tOUTeNpLUS

" Comments
syn region	gppComment	start="GOTO\A" end="$"
syn region	gppComment	start="#!" end="!#"


" Literals contstants
syn region	gppString	start="«"  end="»"
syn match	gppCharacter	"*`.'"
syn match	gppCharacter	";"
syn match	gppNumber	"*(-\?\<\d\+\>)"
syn match	gppFloat	"?-\?\<\d\+\>"
syn match	gppFloat	"?-\?\<\d\+\,\d\+\>"

" Labels
syn region	gppLabel	start="^§" end="$"
syn keyword	gppLabel	APLUS

" Types
syn keyword	gppType		pingouin zap sauvage

" Troupeaux
syn keyword	gppStructure	troupeau fintroupeau machineapingouins berger GIVRE

" Define the default highlighting.
" For version 5.7 and earlier: only when not done already
" For version 5.8 and later: only when an item doesn't have highlighting yet
if version >= 508 || !exists("did_c_syn_inits")
  if version < 508
    let did_c_syn_inits = 1
    command -nargs=+ HiLink hi link <args>
  else
    command -nargs=+ HiLink hi def link <args>
  endif

  HiLink gppLabel	Label
  HiLink gppCharacter	Character
  HiLink gppNumber	Number
  HiLink gppFloat	Float
  HiLink gppOperator	Operator
  HiLink gppStructure	Structure
  HiLink gppStatement	Statement
  HiLink gppType	Type
  HiLink gppFunction	Identifier
  HiLink gppVar		Identifier
  HiLink gppConstant	Constant
  HiLink gppString	String
  HiLink gppComment	Comment

  delcommand HiLink
endif

let b:current_syntax = "gpp"