[Sommaire] [Imprimer]

   1  <?php
   2  /*

   3  * $Id: coloration_delphi.php,v 1.2 2004/04/20 23:49:20 garfieldfr 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  ?>