Zvýraznenie syntaxi PHP uprostred textu

  elseif (Eregi(„^[a-z0-9]+[a-z0-9\._-]*[a-z0-9]+@[a-z0-9]+[a-z0-9\._-]*[a-z0-9]+\.[a-z]{2,3}$“, $slovo[$i])):
     //a môže to byť ešte emailová adresa. Regulárny výraz pochádza z článku Regulárne výrazy II z www.interval.cz */
    if(strlen($slovo[$i]) > $dlzka): //do tretice všetko dobré
         //nie som si istý, či emailová adresa môže mať maximálne 40 znakov.
       $noveSlovo = „<a href=\“mailto:“.$slovo[$i].“\“>“ . SubStr($slovo[$i],0,80) . „…</a>“;
    else:
       $noveSlovo = „<a href=\“mailto:“.$slovo[$i].“\“>“ . $slovo[$i] . „</a>“;
    endif;

  else:
      //nejedná sa o židny odkaz, ale o normálne slovo
    if (StrLen($slovo[$i]) > $dlzka): //ak je dlhšie…
       $noveSlovo = Chunk_Split($slovo[$i], $dlzka, “ „);  /*funkcia chunk_split(retazec, dlzka , lep) rozdelí reťazec vždy po dĺžka znakov na menšie, a spojí ich lepom*/
    else:
       $noveSlovo = $slovo[$i]; //normálne slovo do povolenej dĺžky
    endif;
  endif;
  $novyText .= $noveSlovo . “ „; //nakoniec slová znovu pospájame do textu
endfor;

  $povolene[0] = „>“;            $entita[0] = „&gt;“;
  $povolene[1] = „<b>“;        $entita[1] = „&lt;b>“;
  $povolene[2] = „</b>“;       $entita[2] = „&lt;/b>“;
  $povolene[3] = „<font „;      $entita[3] = „&lt;font“;
  $povolene[4] = „</font>“;    $entita[4] = „&lt;/font>“;
  $povolene[5] = „<a“;           $entita[5] = „&lt;a“;
  $povolene[6] = „</a>“;        $entita[6] = „&lt;/a>“;
  $povolene[7] = „&“;             $entita[7] = „&amp;“;
  $povolene[8] = „<i>“;          $entita[8] = „&lt;i>“;
  $povolene[9] = „</i>“;         $entita[9] = „&lt;/i>“;
  $povolene[10] = „\““;           $entita[10] = „&quot;“;

  for ($x=0;$x<Count($povolene);$x++):
     $novyText = Eregi_Replace($entita[$x], $povolene[$x], $novyText);
  endfor;
  return $novyText;
} //nezabudnite funkiu zavrieť

Function format_zdroj($celok, $dlzka){

  $TAG = „zdrojovy_kod“; //sem si napíšte váš vlastný tag
  $pocet_zk = SubStr_Count($celok, „<$TAG>“); //počet otváracích tagov <$TAG>
  $pocet_end_zk = SubStr_Count($celok, „</$TAG>“); //počet uzatváracích tagov </$TAG>

  if ($pocet_end_zk != $pocet_zk OR $pocet_zk == 0)
      return format_text($celok, $dlzka); //ak nie je rovnaký počet otváracích a zatváracích tagov, fcia vráti celok ako text.
  $koniec = StrRPos ($celok, „</$TAG>“) + StrLen(„</$TAG>“); //pozícia posledného tagu </$TAG>. StrRPos hľadá prvú pozíciu od konca
  $koniec = SubStr($celok, $koniec); //odrezanie poslednej časti z celku (jedná sa o normálny text) do premennej koniec
  $table = "<table align=center width=\"90%\">\n\t<tr><td class=\"zdroj_kod\">";
  $table_end = "</td></tr></table>"; //pripravím si začiatok a koniec tabuľky, ktorá bude obklopovať zdrojový kód
  $NovyCelok = "";

  for ($i=0;$i<$pocet_zk;$i++):
  //tento cyklus vykonáme toľko krát, koľkokrát je použitý <$TAG>

    $start = StrPos($celok,"<$TAG>") + StrLen("<$TAG>"); //pozícia prvého použitia <$TAG> v reťazci $celok, ku ktorej je pripočítaná dlĺžka tagu
    $dlzka_ZK = StrPos($celok,"</$TAG>") – $start; //dlzka zdrojoveho kodu
    $text = SubStr($celok, 0, $start – StrLen("<$TAG>")); //text ktory sa nachadza pred prvym pouzitim <$TAG>
    $zdroj = SubStr($celok, $start, $dlzka_ZK); // "odrežeme" zdrojový kód

    $zdroj = StripSlashes($zdroj); //ešte musím  zo zdroja odstrániť spätné lomítka, ktoré sa (ne)dosadili v závislosti od nastavenia magic_quotes_runtime v php.ini

    OB_Start(); //zapnem bufferovanie výstupu – to znamená všetko čo sa bude mať odoslať, sa neodošle, ale sa uloží do bufferu, až pokým sa nenarazí na funkciu, ktorá buffer vypne.
    Highlight_String(Trim($zdroj)); //odstránenie prebytočných medzier z koncov a zvýraznenie syntaxe výstup funkcie sa uloží do bufferu
    $zdroj = OB_Get_Contents(); //načítanie bufferu do premennej zdroj
    ob_end_clean(); //vypnutie bufferu a vymazanie jeho obsahu

    $farby = Array("h"=>"highlight.html",
                          "c"=>"highlight.comment",
                          "s"=>"highlight.string",
                          "k"=>"highlight.keyword",
                          "d"=>"highlight.default");
/*farby je asociatívne pole, kde idex pola znamená triedu CSS, ktorá sa použije pre daný prvok zdrojového kódu*/

    while (List($class, $color) = Each ($farby)): //každý index načítam do premennej $class a prvok do $farba. Každú farbu nahradím príslušnou CSS triedou, čím samozrejme šetrím bajty vo výstupe
      $farba = "color=\"" . Get_Cfg_Var($color) . "\""; //zistím, aká farba je nastavená v php.ini pre daný element
      $zdroj = Str_Replace("$farba", "class=$class", $zdroj); //nahradím farbu za mnou vytvorenú triedu CSS. Toto je výhodné napríklad vtedy, ak nemôžte zasahovať do hp.ini
    endwhile;

  $zdroj = Str_Replace("<code>“,$table, $zdroj); //tag code dosadzuje funkcia Hightlight_String na začiatok a na koniec. Ja ho nahradím tabuľkou
  $zdroj = Str_Replace("</code>“,$table_end, $zdroj);
  $zdroj = Str_Replace("&nbsp;“,“ „, $zdroj); //každá aj jednoduchá medzera je nahradená nedelitelnou. Ja ju prevediem späť na jednoduchú aby som zašetril bajty.
  $zdroj = Str_Replace("  „,“&nbsp; „, $zdroj); //dve medzery za sebou už nahrádzam jednou non breaking a jednou normálnou

  $NovyCelok .= format_text($text, $dlzka) . $zdroj; //sformátovaný text a zdrojový kód pripojím k NovémuCelku
  $celok = SubStr($celok, $dlzka_ZK + $start + StrLen("</$TAG>“)); //a od starého odrežem už sformátovanú časť

endfor;

$NovyCelok .= format_text($koniec, $dlzka); //a nesmiem zabudnúť pridať poslednú časť textu

return $NovyCelok;
}