Subversion Repositories Applications.papyrus

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
448 ddelon 1
<?php
2
/*
3
* $Id: coloration_delphi.php,v 1.1 2005-09-22 14:02:49 ddelon Exp $
4
*
5
* Souligneur syntaxique Delphi
6
*
7
* copyrigth Eric Feldstein 2003 2004 mailto:garfield_fr@tiscali.fr
8
*
9
* Licence : la meme que wikini (voir le fichier LICENCE).
10
* Vous êtes libre d'utiliser et de modifier ce code à condition de laisser le copyright
11
* d'origine. Vous pouvez  bien sur vous ajouter à la liste des auteurs.
12
*
13
* Installation : copier le fichier dans le repertoire "formatters" de WikiNi
14
*/
15
include_once('formatters/hightlighter.class.inc');
16
 
17
$DH = new Hightlighter();
18
$DH->isCaseSensitiv = false;
19
 
20
//************* commentaires *************
21
$DH->comment = array('({[^$][^}]*})',			//commentaires: { ... }
22
					'(\(\*[^$](.*)\*\))'		      //commentaires: (* ... *)
23
                );
24
$DH->commentLine = array('(//.*\n)'); 			//commentaire //
25
$DH->commentStyle = "color: red; font-style: italic";	//style CSS pour balise SPAN
26
 
27
//************* directives de compilation *************
28
$DH->directive = array('({\\$[^{}]*})',			//directive {$....}
29
					'(\(\*\\$(.*)\*\))'			      //directive (*$....*)
30
				);
31
$DH->directiveStyle = "color: green";			   //style CSS pour balise SPAN
32
 
33
//************* chaines de caracteres *************
34
$DH->string = array("('[^']*')",'(#\d+)');		//chaine = 'xxxxxxxx' ou #23
35
$DH->stringStyle = "background: yellow";
36
 
37
//************* nombres *************
38
$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
39
$DH->number[] = '(\$[0-9A-Fa-f]+\b)';				//ajout des nombres hexadecimaux : $AF
40
$DH->numberStyle = 'color: blue';
41
 
42
//************* mots clé *************
43
$DH->keywords['MotCle']['words'] = array('absolute','abstract','and','array','as','asm',
44
						'begin',
45
						'case','class','const','constructor',
46
						'default','destructor','dispinterface','div','do','downto',
47
						'else','end','except','exports','external',
48
						'file','finalization','finally','for','function',
49
						'goto',
50
						'if','implementation','inherited','initialization','inline','interface','is',
51
						'label','library','loop','message',
52
						'mod',
53
						'nil','not',
54
						'object','of','or','out','overload','override',
55
						'packed','private','procedure','program','property','protected','public','published',
56
						'raise','read','record','repeat','resourcestring',
57
						'set','shl','shr','stdcall','string',
58
						'then','threadvar','to','try','type','unit','until',
59
						'use','uses',
60
						'var','virtual','while',
61
						'with','write',
62
						'xor'
63
					);
64
$DH->keywords['MotCle']['style'] = 'font-weight: bold';   //style CSS pour balise SPAN
65
 
66
//************* liste des symboles *************
67
$DH->symboles = array('#','$','&','(','(.',')','*','+',',','-','.','.)','..',
68
					'/',':',':=',';','<','<=','<>','=','>','>=','@','[',']','^');
69
$DH->symbolesStyle = '';
70
 
71
//************* identifiants *************
72
$DH->identifier = array('[_A-Za-z]?[_A-Za-z0-9]+');
73
$DH->identStyle = '';
74
 
75
echo "<pre>".$DH->Analyse($text)."</pre>";
76
unset($DH);
77
?>