Added AMXX Pawn geshi generation script.
This commit is contained in:
Nicholas Hastings
parent
ad36745a7c
commit
1f589d0d5d
203
editor/geshi/create-amxx-geshi.pl
Normal file
203
editor/geshi/create-amxx-geshi.pl
Normal file
@ -0,0 +1,203 @@
|
|||||||
|
use File::Glob;
|
||||||
|
|
||||||
|
my $output = <<EOF;
|
||||||
|
<?php
|
||||||
|
/**
|
||||||
|
* =============================================================================
|
||||||
|
* SourcePawn GeSHi Syntax File
|
||||||
|
* Copyright (C) 2010 AlliedModders LLC
|
||||||
|
* INC parser originally by Zach "theY4Kman" Kanzler,
|
||||||
|
* ported to perl and enhanced by Nicholas "psychonic" Hastings
|
||||||
|
* =============================================================================
|
||||||
|
*
|
||||||
|
* This program is free software; you can redistribute it and/or modify it under
|
||||||
|
* the terms of the GNU General Public License, version 3.0, as published by the
|
||||||
|
* Free Software Foundation.
|
||||||
|
*
|
||||||
|
* This program is distributed in the hope that it will be useful, but WITHOUT
|
||||||
|
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||||||
|
* FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
||||||
|
* details.
|
||||||
|
*
|
||||||
|
* You should have received a copy of the GNU General Public License along with
|
||||||
|
* this program. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
*/
|
||||||
|
|
||||||
|
\$language_data = array(
|
||||||
|
'LANG_NAME' => 'Pawn (AMXX)',
|
||||||
|
'COMMENT_SINGLE' => array(1 => '//'),
|
||||||
|
'COMMENT_MULTI' => array("/*" => "*/"),
|
||||||
|
'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,
|
||||||
|
'QUOTEMARKS' => array('"','\\''),
|
||||||
|
'ESCAPE_CHAR' => '^',
|
||||||
|
'ESCAPE_REGEXP' => array(
|
||||||
|
1 => "#\\\\\\\\x[\\da-fA-F]{1,2}#",
|
||||||
|
2 => "#\\\\\\\\b[01]{1,8}#",
|
||||||
|
3 => "#%[%sdif%NLbxXtTc]#",
|
||||||
|
),
|
||||||
|
'SYMBOLS' => array(
|
||||||
|
0 => array(';'),
|
||||||
|
// Assignment operators
|
||||||
|
1 => array('=', '+=', '-=', '/=', '*=', '&=', '|=', '~=', '^='),
|
||||||
|
// Comparison and logical operators
|
||||||
|
2 => array('==', '!=', '&&', '||', '>', '<', '<=', '>='),
|
||||||
|
// Other operators
|
||||||
|
3 => array('+', '-', '*', '/', '|', '&', '~', '++', '--', '^', '%%', '!'),
|
||||||
|
),
|
||||||
|
'KEYWORDS' => array(
|
||||||
|
// Reserved words
|
||||||
|
1 => array(
|
||||||
|
'for', 'if', 'else', 'do', 'while', 'switch', 'case', 'return',
|
||||||
|
'break', 'continue', 'new', 'public', 'stock', 'const',
|
||||||
|
'enum', 'forward', 'static', 'native',
|
||||||
|
'sizeof', 'true', 'false', 'default',
|
||||||
|
),
|
||||||
|
// Tags
|
||||||
|
2 => array(
|
||||||
|
'bool', 'Float', 'any',
|
||||||
|
__tags__
|
||||||
|
),
|
||||||
|
// Natives
|
||||||
|
3 => array(
|
||||||
|
__natives__
|
||||||
|
),
|
||||||
|
// Forwards
|
||||||
|
4 => array(
|
||||||
|
__forwards__
|
||||||
|
),
|
||||||
|
// Defines
|
||||||
|
5 => array(
|
||||||
|
'MaxClients',
|
||||||
|
__defines__
|
||||||
|
),
|
||||||
|
),
|
||||||
|
'NUMBERS' => array(
|
||||||
|
GESHI_NUMBER_INT_BASIC | GESHI_NUMBER_FLT_NONSCI | GESHI_NUMBER_BIN_PREFIX_0B | GESHI_NUMBER_HEX_PREFIX
|
||||||
|
),
|
||||||
|
'TAB_WIDTH' => 4,
|
||||||
|
'CASE_SENSITIVE' => array(
|
||||||
|
1 => true,
|
||||||
|
2 => true,
|
||||||
|
3 => true,
|
||||||
|
4 => true,
|
||||||
|
5 => true
|
||||||
|
),
|
||||||
|
'REGEXPS' => array(
|
||||||
|
0 => array(
|
||||||
|
GESHI_SEARCH => '(#include\\s+)(<\\w+>)',
|
||||||
|
GESHI_REPLACE => '\\\\2',
|
||||||
|
GESHI_BEFORE => '\\\\1',
|
||||||
|
),
|
||||||
|
1 => array(
|
||||||
|
GESHI_SEARCH => '(#\\w+)(\\s+)',
|
||||||
|
GESHI_REPLACE => '\\\\1',
|
||||||
|
GESHI_AFTER => '\\\\2'
|
||||||
|
),
|
||||||
|
),
|
||||||
|
'STYLES' => array(
|
||||||
|
'KEYWORDS' => array(
|
||||||
|
1 => 'color: #0000EE; font-weight: bold;',
|
||||||
|
2 => 'color: #218087; font-weight: bold;',
|
||||||
|
3 => 'color: #000040;',
|
||||||
|
4 => 'color: #000040;',
|
||||||
|
5 => 'color: #8000FF;',
|
||||||
|
),
|
||||||
|
'COMMENTS' => array(
|
||||||
|
1 => 'color: #006600; font-style: italic;',
|
||||||
|
'MULTI' => 'color: #006600; font-style: italic;',
|
||||||
|
),
|
||||||
|
'ESCAPE_CHAR' => array(
|
||||||
|
0 => 'color: #ff00ff;',
|
||||||
|
1 => 'color: #ff00ff;',
|
||||||
|
2 => 'color: #ff00ff;',
|
||||||
|
3 => 'color: #ff00ff;',
|
||||||
|
),
|
||||||
|
'SYMBOLS' => array(
|
||||||
|
0 => 'color: #1B5B00; font-weight: bold;',
|
||||||
|
1 => 'color: #1B5B00;',
|
||||||
|
2 => 'color: #1B5B00;',
|
||||||
|
3 => 'color: #1B5B00;',
|
||||||
|
),
|
||||||
|
'STRINGS' => array(
|
||||||
|
0 => 'color: #B90000;',
|
||||||
|
),
|
||||||
|
'BRACKETS' => array(
|
||||||
|
0 => 'color: #1B5B00; font-weight: bold;',
|
||||||
|
),
|
||||||
|
'NUMBERS' => array(
|
||||||
|
0 => 'color: #AE5700;',
|
||||||
|
),
|
||||||
|
'REGEXPS' => array(
|
||||||
|
0 => 'color: #B90000;',
|
||||||
|
1 => 'color: #0000aa;'
|
||||||
|
),
|
||||||
|
'SCRIPT' => array(
|
||||||
|
),
|
||||||
|
'METHODS' => array(
|
||||||
|
)
|
||||||
|
)
|
||||||
|
);
|
||||||
|
|
||||||
|
?>
|
||||||
|
EOF
|
||||||
|
|
||||||
|
my @incs = glob("amxx_include/*.inc");
|
||||||
|
my %generated_stuff = {};
|
||||||
|
my @forwards = ();
|
||||||
|
my @natives = ();
|
||||||
|
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(@forwards, $contents =~ m/forward\s+(?:[a-zA-Z]*:)?([a-zA-Z][a-zA-Z0-9_-]*)\s*\(/g);
|
||||||
|
push(@natives, $contents =~ m/native\s+(?:[a-zA-Z]*:)?([a-zA-Z][a-zA-Z0-9_-]*)\s*\(/g);
|
||||||
|
push(@natives, $contents =~ m/stock\s+(?:[a-zA-Z]*:)?([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 (@forwards)
|
||||||
|
{
|
||||||
|
$generated_stuff{forwards} .= "'$_',";
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach (@natives)
|
||||||
|
{
|
||||||
|
$generated_stuff{natives} .= "'$_',";
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach (@defines)
|
||||||
|
{
|
||||||
|
$generated_stuff{defines} .= "'$_',";
|
||||||
|
}
|
||||||
|
|
||||||
|
$output =~ s/__tags__/$generated_stuff{tags}/;
|
||||||
|
$output =~ s/__forwards__/$generated_stuff{forwards}/;
|
||||||
|
$output =~ s/__natives__/$generated_stuff{natives}/;
|
||||||
|
$output =~ s/__defines__/$generated_stuff{defines}/;
|
||||||
|
|
||||||
|
open OUTPUTTEXT, ">pawnamxx.php";
|
||||||
|
print OUTPUTTEXT $output;
|
||||||
|
close OUTPUTTEXT;
|
||||||
Loading…
Reference in New Issue
Block a user