mirror of
https://github.com/pierre42100/comunic
synced 2024-11-17 02:51:13 +00:00
79 lines
2.7 KiB
PHP
79 lines
2.7 KiB
PHP
|
<?php
|
||
|
|
|
||
|
|
/*
|
||
|
|
* VB.NET
|
||
|
|
*
|
||
|
|
* Language spec:
|
||
|
|
* http://msdn.microsoft.com/en-us/library/aa712050(v=vs.71).aspx
|
||
|
|
*
|
||
|
|
* TODO: IIRC vb can be embedded in asp pages like php or ruby on rails,
|
||
|
|
* and XML literals: these are a little bit confusing, something
|
||
|
|
* like "<xyz>.something" appears to be a valid XML fragment (i.e. the <xyz>
|
||
|
|
* is a complete fragment), but at other times, the fragment would run until
|
||
|
|
* the root tag is popped. Need to find a proper description of the grammar
|
||
|
|
* to figure it out
|
||
|
|
*/
|
||
|
|
class LuminousVBScanner extends LuminousSimpleScanner {
|
||
|
|
|
||
|
|
public $case_sensitive = false;
|
||
|
|
|
||
|
|
public function init() {
|
||
|
|
|
||
|
|
$this->add_pattern('PREPROCESSOR', "/^[\t ]*#.*/m");
|
||
|
|
$this->add_pattern('COMMENT', "/'.*/");
|
||
|
|
|
||
|
|
$this->add_pattern('COMMENT', '/\\bREM\\b.*/i');
|
||
|
|
// float
|
||
|
|
$this->add_pattern('NUMERIC', '/ (?<!\d)
|
||
|
|
\d+\.\d+ (?: e[+\\-]?\d+)?
|
||
|
|
|\.\d+ (?: e[+\\-]?\d+)?
|
||
|
|
| \d+ e[+\\-]?\d+
|
||
|
|
/xi');
|
||
|
|
// int
|
||
|
|
$this->add_pattern('NUMERIC', '/ (?:
|
||
|
|
&H[0-9a-f]+
|
||
|
|
| &O[0-7]+
|
||
|
|
| (?<!\d)\d+
|
||
|
|
) [SIL]*/ix');
|
||
|
|
|
||
|
|
$this->add_pattern('CHARACTER', '/"(?:""|.)"c/i');
|
||
|
|
|
||
|
|
$this->add_pattern('STRING', '/" (?> [^"]+ | "" )* ($|")/x');
|
||
|
|
// in theory we should also match unicode quote chars
|
||
|
|
// in reality, well, I read the php docs and I have no idea if it's
|
||
|
|
// even possible.
|
||
|
|
// The chars are:
|
||
|
|
// http://www.fileformat.info/info/unicode/char/201c/index.htm
|
||
|
|
// and
|
||
|
|
// http://www.fileformat.info/info/unicode/char/201d/index.htm
|
||
|
|
|
||
|
|
// date literals, this isn't as discriminating as the grammar specifies.
|
||
|
|
$this->add_pattern('VALUE', "/#[ \t][^#\n]*[ \t]#/");
|
||
|
|
|
||
|
|
$this->add_pattern('OPERATOR', '/[&*+\\-\\/\\\\^<=>,\\.]+/');
|
||
|
|
|
||
|
|
// http://msdn.microsoft.com/en-us/library/aa711645(v=VS.71).aspx
|
||
|
|
// XXX: it warns about ! being ambiguous but I don't see how it can be
|
||
|
|
// ambiguous if we use this regex?
|
||
|
|
$this->add_pattern('IDENT', '/[a-z_]\w*[%&@!#$]?/i');
|
||
|
|
|
||
|
|
// we'll borrow C#'s list of types (ie modules, classes, etc)
|
||
|
|
include(dirname(__FILE__) . '/include/vb.php');
|
||
|
|
include(dirname(__FILE__) . '/include/csharp_list.php');
|
||
|
|
$this->add_identifier_mapping('VALUE', $luminous_vb_values);
|
||
|
|
$this->add_identifier_mapping('OPERATOR', $luminous_vb_operators);
|
||
|
|
$this->add_identifier_mapping('TYPE', $luminous_vb_types);
|
||
|
|
$this->add_identifier_mapping('KEYWORD', $luminous_vb_keywords);
|
||
|
|
$this->add_identifier_mapping('TYPE', $luminous_csharp_type_list);
|
||
|
|
}
|
||
|
|
|
||
|
|
public static function guess_language($src, $info) {
|
||
|
|
$p = 0.0;
|
||
|
|
if (preg_match('/^Imports\s+System/i', $src)) $p += 0.1;
|
||
|
|
if (preg_match('/Dim\s+\w+\s+As\s+/i', $src)) $p += 0.2;
|
||
|
|
if (preg_match('/(Public|Private|Protected)\s+Sub\s+/i', $src)) $p += 0.1;
|
||
|
|
return $p;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|