New file |
0,0 → 1,77 |
<?php |
/* |
* $Id: coloration_delphi.php,v 1.1 2005-09-09 09:37:17 ddelon Exp $ |
* |
* Souligneur syntaxique Delphi |
* |
* copyrigth Eric Feldstein 2003 2004 mailto:garfield_fr@tiscali.fr |
* |
* Licence : la meme que wikini (voir le fichier LICENCE). |
* Vous êtes libre d'utiliser et de modifier ce code à condition de laisser le copyright |
* d'origine. Vous pouvez bien sur vous ajouter à la liste des auteurs. |
* |
* Installation : copier le fichier dans le repertoire "formatters" de WikiNi |
*/ |
include_once('formatters/hightlighter.class.inc'); |
|
$DH = new Hightlighter(); |
$DH->isCaseSensitiv = false; |
|
//************* commentaires ************* |
$DH->comment = array('({[^$][^}]*})', //commentaires: { ... } |
'(\(\*[^$](.*)\*\))' //commentaires: (* ... *) |
); |
$DH->commentLine = array('(//.*\n)'); //commentaire // |
$DH->commentStyle = "color: red; font-style: italic"; //style CSS pour balise SPAN |
|
//************* directives de compilation ************* |
$DH->directive = array('({\\$[^{}]*})', //directive {$....} |
'(\(\*\\$(.*)\*\))' //directive (*$....*) |
); |
$DH->directiveStyle = "color: green"; //style CSS pour balise SPAN |
|
//************* chaines de caracteres ************* |
$DH->string = array("('[^']*')",'(#\d+)'); //chaine = 'xxxxxxxx' ou #23 |
$DH->stringStyle = "background: yellow"; |
|
//************* nombres ************* |
$DH->number[] = '(\b\d+(\.\d*)?([eE][+-]?\d+)?)'; //123 ou 123. ou 123.456 ou 123.E-34 ou 123.e-34 123.45E+34 ou 4e54 |
$DH->number[] = '(\$[0-9A-Fa-f]+\b)'; //ajout des nombres hexadecimaux : $AF |
$DH->numberStyle = 'color: blue'; |
|
//************* mots clé ************* |
$DH->keywords['MotCle']['words'] = array('absolute','abstract','and','array','as','asm', |
'begin', |
'case','class','const','constructor', |
'default','destructor','dispinterface','div','do','downto', |
'else','end','except','exports','external', |
'file','finalization','finally','for','function', |
'goto', |
'if','implementation','inherited','initialization','inline','interface','is', |
'label','library','loop','message', |
'mod', |
'nil','not', |
'object','of','or','out','overload','override', |
'packed','private','procedure','program','property','protected','public','published', |
'raise','read','record','repeat','resourcestring', |
'set','shl','shr','stdcall','string', |
'then','threadvar','to','try','type','unit','until', |
'use','uses', |
'var','virtual','while', |
'with','write', |
'xor' |
); |
$DH->keywords['MotCle']['style'] = 'font-weight: bold'; //style CSS pour balise SPAN |
|
//************* liste des symboles ************* |
$DH->symboles = array('#','$','&','(','(.',')','*','+',',','-','.','.)','..', |
'/',':',':=',';','<','<=','<>','=','>','>=','@','[',']','^'); |
$DH->symbolesStyle = ''; |
|
//************* identifiants ************* |
$DH->identifier = array('[_A-Za-z]?[_A-Za-z0-9]+'); |
$DH->identStyle = ''; |
|
echo "<pre>".$DH->Analyse($text)."</pre>"; |
unset($DH); |
?> |