325 lines
15 KiB
Perl
325 lines
15 KiB
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my $group = 4;
|
||
|
|
|
||
|
|
my @files = <*.inc>;
|
||
|
|
|
||
|
|
#the header and footer strings come from naris' original SourcePawn syntax file
|
||
|
|
#skip way down below for actual code
|
||
|
|
my $header = <<'HEADER';
|
||
|
|
" Vim syntax file
|
||
|
|
" Language: SourcePawn
|
||
|
|
" Generated by vimsyntax.pl
|
||
|
|
|
||
|
|
" Quit when a (custom) syntax file was already loaded
|
||
|
|
"if exists("b:current_syntax")
|
||
|
|
" finish
|
||
|
|
"endif
|
||
|
|
|
||
|
|
" A bunch of useful C keywords
|
||
|
|
syn keyword cStatement goto break return continue assert state sleep exit
|
||
|
|
syn keyword cLabel case default
|
||
|
|
syn keyword cConditional if else switch
|
||
|
|
syn keyword cRepeat while for do
|
||
|
|
|
||
|
|
syn keyword cTodo contained TODO FIXME XXX
|
||
|
|
|
||
|
|
" cCommentGroup allows adding matches for special things in comments
|
||
|
|
syn cluster cCommentGroup contains=cTodo
|
||
|
|
|
||
|
|
" String and Character constants
|
||
|
|
" Highlight special characters (those which have a backslash) differently
|
||
|
|
syn match cSpecial display contained "\\\(x\x\+\|\o\{1,3}\|.\|$\)"
|
||
|
|
if !exists("c_no_utf")
|
||
|
|
syn match cSpecial display contained "\\\(u\x\{4}\|U\x\{8}\)"
|
||
|
|
endif
|
||
|
|
if exists("c_no_cformat")
|
||
|
|
syn region cString start=+L\="+ skip=+\\\\\|\\"+ end=+"+ contains=cSpecial,@Spell
|
||
|
|
" cCppString: same as cString, but ends at end of line
|
||
|
|
syn region cCppString start=+L\="+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end='$' contains=cSpecial,@Spell
|
||
|
|
else
|
||
|
|
if !exists("c_no_c99") " ISO C99
|
||
|
|
syn match cFormat display "%\(\d\+\$\)\=[-+' #0*]*\(\d*\|\*\|\*\d\+\$\)\(\.\(\d*\|\*\|\*\d\+\$\)\)\=\([hlLjzt]\|ll\|hh\)\=\([aAbdiuoxXDOUfFeEgGcCsSpn]\|\[\^\=.[^]]*\]\)" contained
|
||
|
|
else
|
||
|
|
syn match cFormat display "%\(\d\+\$\)\=[-+' #0*]*\(\d*\|\*\|\*\d\+\$\)\(\.\(\d*\|\*\|\*\d\+\$\)\)\=\([hlL]\|ll\)\=\([bdiuoxXDOUfeEgGcCsSpn]\|\[\^\=.[^]]*\]\)" contained
|
||
|
|
endif
|
||
|
|
syn match cFormat display "%%" contained
|
||
|
|
syn region cString start=+L\="+ skip=+\\\\\|\\"+ end=+"+ contains=cSpecial,cFormat,@Spell
|
||
|
|
" cCppString: same as cString, but ends at end of line
|
||
|
|
syn region cCppString start=+L\="+ skip=+\\\\\|\\"\|\\$+ excludenl end=+"+ end='$' contains=cSpecial,cFormat,@Spell
|
||
|
|
endif
|
||
|
|
|
||
|
|
syn match cCharacter "L\='[^\\]'"
|
||
|
|
syn match cCharacter "L'[^']*'" contains=cSpecial
|
||
|
|
if exists("c_gnu")
|
||
|
|
syn match cSpecialError "L\='\\[^'\"?\\abefnrtv]'"
|
||
|
|
syn match cSpecialCharacter "L\='\\['\"?\\abefnrtv]'"
|
||
|
|
else
|
||
|
|
syn match cSpecialError "L\='\\[^'\"?\\abfnrtv]'"
|
||
|
|
syn match cSpecialCharacter "L\='\\['\"?\\abfnrtv]'"
|
||
|
|
endif
|
||
|
|
syn match cSpecialCharacter display "L\='\\\o\{1,3}'"
|
||
|
|
syn match cSpecialCharacter display "'\\x\x\{1,2}'"
|
||
|
|
syn match cSpecialCharacter display "L'\\x\x\+'"
|
||
|
|
|
||
|
|
"when wanted, highlight trailing white space
|
||
|
|
if exists("c_space_errors")
|
||
|
|
if !exists("c_no_trail_space_error")
|
||
|
|
syn match cSpaceError display excludenl "\s\+$"
|
||
|
|
endif
|
||
|
|
if !exists("c_no_tab_space_error")
|
||
|
|
syn match cSpaceError display " \+\t"me=e-1
|
||
|
|
endif
|
||
|
|
endif
|
||
|
|
|
||
|
|
" This should be before cErrInParen to avoid problems with #define ({ xxx })
|
||
|
|
syntax region cBlock start="{" end="}" transparent fold
|
||
|
|
|
||
|
|
"catch errors caused by wrong parenthesis and brackets
|
||
|
|
" also accept <% for {, %> for }, <: for [ and :> for ] (C99)
|
||
|
|
" But avoid matching <::.
|
||
|
|
syn cluster cParenGroup contains=cParenError,cIncluded,cSpecial,cCommentSkip,cCommentString,cComment2String,@cCommentGroup,cCommentStartError,cUserCont,cUserLabel,cCommentSkip,cCppOut,cCppOut2,cCppSkip,cFormat,cNumber,cFloat,cNumbersCom
|
||
|
|
if exists("c_no_curly_error")
|
||
|
|
syn region cParen transparent start='(' end=')' contains=ALLBUT,@cParenGroup,cCppParen,cCppString,@Spell
|
||
|
|
" cCppParen: same as cParen but ends at end-of-line; used in cDefine
|
||
|
|
syn region cCppParen transparent start='(' skip='\\$' excludenl end=')' end='$' contained contains=ALLBUT,@cParenGroup,cParen,cString,@Spell
|
||
|
|
syn match cParenError display ")"
|
||
|
|
syn match cErrInParen display contained "^[{}]\|^<%\|^%>"
|
||
|
|
elseif exists("c_no_bracket_error")
|
||
|
|
syn region cParen transparent start='(' end=')' contains=ALLBUT,@cParenGroup,cCppParen,cCppString,@Spell
|
||
|
|
" cCppParen: same as cParen but ends at end-of-line; used in cDefine
|
||
|
|
syn region cCppParen transparent start='(' skip='\\$' excludenl end=')' end='$' contained contains=ALLBUT,@cParenGroup,cParen,cString,@Spell
|
||
|
|
syn match cParenError display ")"
|
||
|
|
syn match cErrInParen display contained "[{}]\|<%\|%>"
|
||
|
|
else
|
||
|
|
syn region cParen transparent start='(' end=')' contains=ALLBUT,@cParenGroup,cCppParen,cErrInBracket,cCppBracket,cCppString,@Spell
|
||
|
|
" cCppParen: same as cParen but ends at end-of-line; used in cDefine
|
||
|
|
syn region cCppParen transparent start='(' skip='\\$' excludenl end=')' end='$' contained contains=ALLBUT,@cParenGroup,cErrInBracket,cParen,cBracket,cString,@Spell
|
||
|
|
syn match cParenError display "[\])]"
|
||
|
|
syn match cErrInParen display contained "[\]{}]\|<%\|%>"
|
||
|
|
syn region cBracket transparent start='\[\|<::\@!' end=']\|:>' contains=ALLBUT,@cParenGroup,cErrInParen,cCppParen,cCppBracket,cCppString,@Spell
|
||
|
|
" cCppBracket: same as cParen but ends at end-of-line; used in cDefine
|
||
|
|
syn region cCppBracket transparent start='\[\|<::\@!' skip='\\$' excludenl end=']\|:>' end='$' contained contains=ALLBUT,@cParenGroup,cErrInParen,cParen,cBracket,cString,@Spell
|
||
|
|
syn match cErrInBracket display contained "[);{}]\|<%\|%>"
|
||
|
|
endif
|
||
|
|
|
||
|
|
"integer number, or floating point number without a dot and with "f".
|
||
|
|
syn case ignore
|
||
|
|
syn match cNumbers display transparent "\<\d\|\.\d" contains=cNumber,cFloat
|
||
|
|
" Same (for comments)
|
||
|
|
syn match cNumbersCom display contained transparent "\<\d\|\.\d" contains=cNumber,cFloat
|
||
|
|
syn match cNumber display contained "\d\+\(u\=l\{0,2}\|ll\=u\)\>"
|
||
|
|
"hex number
|
||
|
|
syn match cNumber display contained "0x\x\+\(u\=l\{0,2}\|ll\=u\)\>"
|
||
|
|
syn match cFloat display contained "\d\+f"
|
||
|
|
"floating point number, with dot, optional exponent
|
||
|
|
syn match cFloat display contained "\d\+\.\d*\(e[-+]\=\d\+\)\=[fl]\="
|
||
|
|
"floating point number, starting with a dot, optional exponent
|
||
|
|
syn match cFloat display contained "\.\d\+\(e[-+]\=\d\+\)\=[fl]\=\>"
|
||
|
|
"floating point number, without dot, with exponent
|
||
|
|
syn match cFloat display contained "\d\+e[-+]\=\d\+[fl]\=\>"
|
||
|
|
if !exists("c_no_c99")
|
||
|
|
"hexadecimal floating point number, optional leading digits, with dot, with exponent
|
||
|
|
syn match cFloat display contained "0x\x*\.\x\+p[-+]\=\d\+[fl]\=\>"
|
||
|
|
"hexadecimal floating point number, with leading digits, optional dot, with exponent
|
||
|
|
syn match cFloat display contained "0x\x\+\.\=p[-+]\=\d\+[fl]\=\>"
|
||
|
|
endif
|
||
|
|
|
||
|
|
syn case match
|
||
|
|
|
||
|
|
if exists("c_comment_strings")
|
||
|
|
" A comment can contain cString, cCharacter and cNumber.
|
||
|
|
" But a "*/" inside a cString in a cComment DOES end the comment! So we
|
||
|
|
" need to use a special type of cString: cCommentString, which also ends on
|
||
|
|
" "*/", and sees a "*" at the start of the line as comment again.
|
||
|
|
" Unfortunately this doesn't very well work for // type of comments :-(
|
||
|
|
syntax match cCommentSkip contained "^\s*\*\($\|\s\+\)"
|
||
|
|
syntax region cCommentString contained start=+L\=\\\@<!"+ skip=+\\\\\|\\"+ end=+"+ end=+\*/+me=s-1 contains=cSpecial,cCommentSkip
|
||
|
|
syntax region cComment2String contained start=+L\=\\\@<!"+ skip=+\\\\\|\\"+ end=+"+ end="$" contains=cSpecial
|
||
|
|
syntax region cCommentL start="//" skip="\\$" end="$" keepend contains=@cCommentGroup,cComment2String,cCharacter,cNumbersCom,cSpaceError,@Spell
|
||
|
|
if exists("c_no_comment_fold")
|
||
|
|
" Use "extend" here to have preprocessor lines not terminate halfway a
|
||
|
|
" comment.
|
||
|
|
syntax region cComment matchgroup=cCommentStart start="/\*" end="\*/" contains=@cCommentGroup,cCommentStartError,cCommentString,cCharacter,cNumbersCom,cSpaceError,@Spell extend
|
||
|
|
else
|
||
|
|
syntax region cComment matchgroup=cCommentStart start="/\*" end="\*/" contains=@cCommentGroup,cCommentStartError,cCommentString,cCharacter,cNumbersCom,cSpaceError,@Spell fold extend
|
||
|
|
endif
|
||
|
|
else
|
||
|
|
syn region cCommentL start="//" skip="\\$" end="$" keepend contains=@cCommentGroup,cSpaceError,@Spell
|
||
|
|
if exists("c_no_comment_fold")
|
||
|
|
syn region cComment matchgroup=cCommentStart start="/\*" end="\*/" contains=@cCommentGroup,cCommentStartError,cSpaceError,@Spell
|
||
|
|
else
|
||
|
|
syn region cComment matchgroup=cCommentStart start="/\*" end="\*/" contains=@cCommentGroup,cCommentStartError,cSpaceError,@Spell fold
|
||
|
|
endif
|
||
|
|
endif
|
||
|
|
" keep a // comment separately, it terminates a preproc. conditional
|
||
|
|
syntax match cCommentError display "\*/"
|
||
|
|
syntax match cCommentStartError display "/\*"me=e-1 contained
|
||
|
|
|
||
|
|
syn keyword cOperator sizeof tagof state defined char
|
||
|
|
|
||
|
|
syn keyword cTag any bool Fixed Float String Function
|
||
|
|
|
||
|
|
syn keyword cStructure enum
|
||
|
|
syn keyword cStorageClass static const stock native forward
|
||
|
|
|
||
|
|
" Constants
|
||
|
|
" ======
|
||
|
|
syn keyword cConstant cellbits cellmax cellmin charbits charmax charmin ucharmax __Pawn debug
|
||
|
|
syn keyword cConstant true false
|
||
|
|
HEADER
|
||
|
|
|
||
|
|
my $footer = <<'FOOTER';
|
||
|
|
" Accept %: for # (C99)
|
||
|
|
syn region cPreCondit start="^\s*\(%:\|#\)\s*\(if\|ifdef\|ifndef\|elif\)\>" skip="\\$" end="$" end="//"me=s-1 contains=cComment,cCppString,cCharacter,cCppParen,cParenError,cNumbers,cCommentError,cSpaceError
|
||
|
|
syn match cPreCondit display "^\s*\(%:\|#\)\s*\(else\|endif\)\>"
|
||
|
|
if !exists("c_no_if0")
|
||
|
|
if !exists("c_no_if0_fold")
|
||
|
|
syn region cCppOut start="^\s*\(%:\|#\)\s*if\s\+0\+\>" end=".\@=\|$" contains=cCppOut2 fold
|
||
|
|
else
|
||
|
|
syn region cCppOut start="^\s*\(%:\|#\)\s*if\s\+0\+\>" end=".\@=\|$" contains=cCppOut2
|
||
|
|
endif
|
||
|
|
syn region cCppOut2 contained start="0" end="^\s*\(%:\|#\)\s*\(endif\>\|else\>\|elif\>\)" contains=cSpaceError,cCppSkip
|
||
|
|
syn region cCppSkip contained start="^\s*\(%:\|#\)\s*\(if\>\|ifdef\>\|ifndef\>\)" skip="\\$" end="^\s*\(%:\|#\)\s*endif\>" contains=cSpaceError,cCppSkip
|
||
|
|
endif
|
||
|
|
syn region cIncluded display contained start=+"+ skip=+\\\\\|\\"+ end=+"+
|
||
|
|
syn match cIncluded display contained "<[^>]*>"
|
||
|
|
syn match cInclude display "^\s*\(%:\|#\)\s*\(include\>\|tryinclude\>\)\s*["<]" contains=cIncluded
|
||
|
|
"syn match cLineSkip "\\$"
|
||
|
|
syn cluster cPreProcGroup contains=cPreCondit,cIncluded,cInclude,cDefine,cErrInParen,cErrInBracket,cUserLabel,cSpecial,cOctalZero,cCppOut,cCppOut2,cCppSkip,cFormat,cNumber,cFloat,cOctal,cOctalError,cNumbersCom,cString,cCommentSkip,cCommentString,cComment2String,@cCommentGroup,cCommentStartError,cParen,cBracket,cMulti
|
||
|
|
syn region cDefine start="^\s*\(%:\|#\)\s*\(define\|undef\)\>" skip="\\$" end="$" end="//"me=s-1 keepend contains=ALLBUT,@cPreProcGroup,@Spell
|
||
|
|
syn region cPreProc start="^\s*\(%:\|#\)\s*\(assert\>\|emit\>\|endinput\>\|endscript\>\|pragma\>\|line\>\|section\>\|warning\>\|warn\>\|error\>\)" skip="\\$" end="$" keepend contains=ALLBUT,@cPreProcGroup,@Spell
|
||
|
|
|
||
|
|
" Highlight User Labels
|
||
|
|
syn cluster cMultiGroup contains=cIncluded,cSpecial,cCommentSkip,cCommentString,cComment2String,@cCommentGroup,cCommentStartError,cUserCont,cUserLabel,cCppOut,cCppOut2,cCppSkip,cFormat,cNumber,cFloat,cNumbersCom,cCppParen,cCppBracket,cCppString
|
||
|
|
syn region cMulti transparent start='?' skip='::' end=':' contains=ALLBUT,@cMultiGroup,@Spell
|
||
|
|
" Avoid matching foo::bar() in C++ by requiring that the next char is not ':'
|
||
|
|
syn cluster cLabelGroup contains=cUserLabel
|
||
|
|
syn match cUserCont display "^\s*\I\i*\s*:$" contains=@cLabelGroup
|
||
|
|
syn match cUserCont display ";\s*\I\i*\s*:$" contains=@cLabelGroup
|
||
|
|
syn match cUserCont display "^\s*\I\i*\s*:[^:]"me=e-1 contains=@cLabelGroup
|
||
|
|
syn match cUserCont display ";\s*\I\i*\s*:[^:]"me=e-1 contains=@cLabelGroup
|
||
|
|
|
||
|
|
syn match cUserLabel display "\I\i*" contained
|
||
|
|
|
||
|
|
" C++ extentions
|
||
|
|
syn keyword cppStatement new decl
|
||
|
|
syn keyword cppAccess public
|
||
|
|
syn keyword cppOperator operator
|
||
|
|
|
||
|
|
if exists("c_minlines")
|
||
|
|
let b:c_minlines = c_minlines
|
||
|
|
else
|
||
|
|
if !exists("c_no_if0")
|
||
|
|
let b:c_minlines = 50 " #if 0 constructs can be long
|
||
|
|
else
|
||
|
|
let b:c_minlines = 15 " mostly for () constructs
|
||
|
|
endif
|
||
|
|
endif
|
||
|
|
exec "syn sync ccomment cComment minlines=" . b:c_minlines
|
||
|
|
|
||
|
|
" Define the default highlighting.
|
||
|
|
" Only used when an item doesn't have highlighting yet
|
||
|
|
hi def link cFormat cSpecial
|
||
|
|
hi def link cCppString cString
|
||
|
|
hi def link cCommentL cComment
|
||
|
|
hi def link cCommentStart cComment
|
||
|
|
hi def link cLabel Label
|
||
|
|
hi def link cUserLabel Label
|
||
|
|
hi def link cConditional Conditional
|
||
|
|
hi def link cRepeat Repeat
|
||
|
|
hi def link cCharacter Character
|
||
|
|
hi def link cSpecialCharacter cSpecial
|
||
|
|
hi def link cNumber Number
|
||
|
|
hi def link cFloat Float
|
||
|
|
hi def link cParenError cError
|
||
|
|
hi def link cErrInParen cError
|
||
|
|
hi def link cErrInBracket cError
|
||
|
|
hi def link cCommentError cError
|
||
|
|
hi def link cCommentStartError cError
|
||
|
|
hi def link cSpaceError cError
|
||
|
|
hi def link cSpecialError cError
|
||
|
|
hi def link cOperator Operator
|
||
|
|
hi def link cStructure Structure
|
||
|
|
hi def link cStorageClass StorageClass
|
||
|
|
hi def link cInclude Include
|
||
|
|
hi def link cPreProc PreProc
|
||
|
|
hi def link cDefine Macro
|
||
|
|
hi def link cIncluded cString
|
||
|
|
hi def link cError Error
|
||
|
|
hi def link cStatement Statement
|
||
|
|
hi def link cPreCondit PreCondit
|
||
|
|
hi def link cTag Type
|
||
|
|
hi def link cConstant Constant
|
||
|
|
hi def link cCommentString cString
|
||
|
|
hi def link cComment2String cString
|
||
|
|
hi def link cCommentSkip cComment
|
||
|
|
hi def link cString String
|
||
|
|
hi def link cComment Comment
|
||
|
|
hi def link cSpecial SpecialChar
|
||
|
|
hi def link cTodo Todo
|
||
|
|
hi def link cCppSkip cCppOut
|
||
|
|
hi def link cCppOut2 cCppOut
|
||
|
|
hi def link cCppOut Comment
|
||
|
|
|
||
|
|
hi def link cppAccess cppStatement
|
||
|
|
hi def link cppOperator Operator
|
||
|
|
hi def link cppStatement Statement
|
||
|
|
|
||
|
|
hi def link cFunction Function
|
||
|
|
hi def link cForward Function
|
||
|
|
|
||
|
|
let b:current_syntax = "sourcepawn"
|
||
|
|
|
||
|
|
" vim: ts=4
|
||
|
|
FOOTER
|
||
|
|
|
||
|
|
print $header;
|
||
|
|
|
||
|
|
for my $file (@files)
|
||
|
|
{
|
||
|
|
my @constants;
|
||
|
|
my @tags;
|
||
|
|
my @functions;
|
||
|
|
my @forwards;
|
||
|
|
my $inEnum = 0;
|
||
|
|
|
||
|
|
open(FILE, $file) or die "couldn't open $file: $!";
|
||
|
|
|
||
|
|
foreach (<FILE>)
|
||
|
|
{
|
||
|
|
if ($inEnum == 0)
|
||
|
|
{
|
||
|
|
if (/^\s*#define\s+([^_]\w+)\s+\S/) { push(@constants, $1); }
|
||
|
|
elsif (/^\s*public(?:\s+const)?\s+(?:\w+:)?([^_](?>\w+))(?!:)/) { push(@constants, $1); }
|
||
|
|
elsif (/^\s*(?:native|stock)\s+(?:\w+:)?(\w+)\(/) { push(@functions, $1); }
|
||
|
|
elsif (/^\s*functag public\s+(?:\w+:)?(\w+)/) { push(@tags, $1); }
|
||
|
|
elsif (/^\s*enum\s+(\w+)/) { push(@tags, $1); $inEnum = 1; }
|
||
|
|
elsif (/^\s*(?:struct|funcenum)\s+(\w+)/) { push(@tags, $1); }
|
||
|
|
elsif (/^\s*forward\s+(?:\w+:)?(\w+)\(/) { push(@forwards, $1); }
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if (/^\s*}/) { $inEnum = 0; }
|
||
|
|
elsif (/^\t?(\w+)/) { push(@constants, $1); }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
print "\n\" $file\n";
|
||
|
|
|
||
|
|
if (@constants % $group) { push @constants, ("") x ($group - (@constants % $group)); }
|
||
|
|
if (@tags % $group) { push @tags, ("") x ($group - (@tags % $group)); }
|
||
|
|
if (@functions % $group) { push @functions, ("") x ($group - (@functions % $group)); }
|
||
|
|
if (@forwards % $group) { push @forwards, ("") x ($group - (@forwards % $group)); }
|
||
|
|
|
||
|
|
$, = " ";
|
||
|
|
for (my $i = 0; $i <= $#functions; $i += $group) { print "syn keyword\tcFunction\t@functions[$i .. $i + $group - 1]\n"; }
|
||
|
|
for (my $i = 0; $i <= $#constants; $i += $group) { print "syn keyword\tcConstant\t@constants[$i .. $i + $group - 1]\n"; }
|
||
|
|
for (my $i = 0; $i <= $#tags; $i += $group) { print "syn keyword\tcTag\t\t@tags[$i .. $i + $group - 1]\n"; }
|
||
|
|
for (my $i = 0; $i <= $#forwards; $i += $group) { print "syn keyword\tcForward\t@forwards[$i .. $i + $group - 1]\n"; }
|
||
|
|
}
|
||
|
|
|
||
|
|
print $footer;
|