UNLOZE/sourcemod
10
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added Notepad++ userDefineLang.xml generator for Sourcepawn

Browse Source 
(based on the SP GeSHi generator)
This commit is contained in:
Nicholas Hastings 2010-04-19 11:10:26 -04:00
parent 31a16375ab
commit ce7cb9cf64
2 changed files with 120 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
editor/npp/create-pawn-npp.pl Normal file
View File

@ -0,0 +1,84 @@
use File::Glob;
my $output = <<EOF;
<NotepadPlus>
<UserLang name="sourcemod" ext="sma inc p pawn core sp">
<Settings>
<Global caseIgnored="no" escapeChar="\" />
<TreatAsSymbol comment="yes" commentLine="yes" />
<Prefix words1="no" words2="yes" words3="no" words4="no" />
</Settings>
<KeywordLists>
<Keywords name="Delimiters">&quot;&apos;0&quot;&apos;0</Keywords>
<Keywords name="Folder+">{</Keywords>
<Keywords name="Folder-">}</Keywords>
<Keywords name="Operators">- ! % &amp; ( ) , . : ; ? @ [ \ ] ^ | ~ + &lt; = &gt;</Keywords>
<Keywords name="Comment">1/* 2*/ 0//</Keywords>
<Keywords name="Words1">for if else do while switch case return break continue new decl public stock const enum forward static funcenum functag native sizeof true false</Keywords>
<Keywords name="Words2">#</Keywords>
<Keywords name="Words3">Action bool Float Plugin String any __tags__</Keywords>
<Keywords name="Words4">MaxClients __defines__</Keywords>
</KeywordLists>
<Styles>
<WordsStyle name="DEFAULT" styleID="11" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="FOLDEROPEN" styleID="12" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="FOLDERCLOSE" styleID="13" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="KEYWORD1" styleID="5" fgColor="0000FF" bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="KEYWORD2" styleID="6" fgColor="0000A0" bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="KEYWORD3" styleID="7" fgColor="25929A" bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="KEYWORD4" styleID="8" fgColor="8000FF" bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="COMMENT" styleID="1" fgColor="008040" bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="COMMENT LINE" styleID="2" fgColor="008040" bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="NUMBER" styleID="4" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="OPERATOR" styleID="10" fgColor="000000" bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="DELIMINER1" styleID="14" fgColor="B90000" bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="DELIMINER2" styleID="15" fgColor="B90000" bgColor="FFFFFF" fontName="" fontStyle="0" />
<WordsStyle name="DELIMINER3" styleID="16" fgColor="000000" bgColor="112435" fontName="" fontStyle="0" />
</Styles>
</UserLang>
</NotepadPlus>
EOF
my @incs = glob("sourcepawn_include/*.inc");
my %generated_stuff = {};
my @tags = ();
my @defines = ();
foreach (@incs)
{
undef $/;
open FILE, $_ or die "Couldn't open file: $!";
binmode FILE;
my $contents = <FILE>;
close FILE;
push(@tags, $contents =~ m/enum\s+([a-zA-Z][a-zA-Z0-9_-]*)\s*\{/g);
push(@defines, $contents =~ m/\#define\s+([^_\s][^\s]*)/g);
while ($contents =~ m/[^c]enum\s+(?:\w+\s+)?{(.+?)}/sg)
{
my $enumcontents = $1;
$enumcontents =~ s/=\s*[a-zA-Z0-9\+\-\*\/_\|&><\(\)~\^!=]+\s*//g;
$enumcontents =~ s/\/\/.*//g;
$enumcontents =~ s/\/\*.*?\*\///sg;
$enumcontents =~ s/\s//g;
$enumcontents =~ s/,$//;
push(@defines, split(/,/, $enumcontents));
}
}
foreach (@tags)
{
$generated_stuff{tags} .= "$_ ";
}
foreach (@defines)
{
$generated_stuff{defines} .= "$_ ";
}
$output =~ s/__tags__/$generated_stuff{tags}/;
$output =~ s/__defines__/$generated_stuff{defines}/;
open OUTPUTTEXT, ">userDefineLang.xml";
print OUTPUTTEXT $output;
close OUTPUTTEXT;

36
editor/npp/userDefineLang.xml Normal file
View File

File diff suppressed because one or more lines are too long