Weblabor

print_r(token_get_all('<?php echo "Hello Weblabor!"; ?>'));

Array
 (
 [0] => Array
     (
         [0] => 354
         [1] => < ?php
     )

 [1] => Array
     (
         [0] => 314
         [1] => echo
     )

 [2] => Array
     (
         [0] => 357
         [1] =>
     )

 [3] => Array
     (
         [0] => 313
         [1] => "Hello Weblabor!"
     )

 [4] => ;
 [5] => Array
     (
         [0] => 357
         [1] =>
     )

 [6] => Array
     (
         [0] => 356
         [1] => ? >
     )
 )

<?php
token_name(354) == T_OPEN_TAG
token_name(314) == T_ECHO
?>

<?php
while(list($i, $token) = each($tokens))
?>

; : , . [ ] ( ) | ^ & + - / * = % ! ~$ < > ? @

<?php

// Akkor lássuk az egyszerűbb, egykarakteres tokeneket:
if (is_string($token)) {

  switch($token) {
    
    // Általában a pontosvesszők és kettőspontok után szokott lenni
    // újsor karakter, tegyünk mi is azon melegében és csináljunk igazítást
    // is, mivel egy újabb programsorhoz érkeztünk el.
    case ';':
    case ':':
      print $token . chr(10) . str_repeat(' ', $indent);
           break;
    
    // A nyitó- és záró kapcsos zárójelek után is szokott lenni újsor, de
    // ezeket külön kell kezelni, mivel egy "blokk" (pl. függvény definíció)
    // kezdetét/végét jelölik, ezért nemcsak újsor karakter kell, hanem az
    // igazítás mértékét is manipulálni kell:
    case '{':
      print $token . chr(10) . str_repeat(' ', ++$indent);
      break;
    case '}':
      print $token . chr(10) . str_repeat(' ', --$indent);
      break;
    
    // Ezzel meg is volnánk, csak a maradék többi karakterről
    // kell gondoskodni; azaz csak kiíratni őket és lezárni a
    // switch-blokkot:
    default:
      print $token;
      break;
  }
}

// Jöjjenek hát a bonyolultabb fajta tokenek, vizsgáljuk csak
// a token fajtáját.
else {
    
  switch($token[0]) {
    
    // Újsort és igazítás teszünk a nyitó PHP tagek elé, ill. hogy a PHP
    // kód is beljebb legyen igazítva teszünk igazítást is:
    case T_OPEN_TAG:
      print '< ?php' . chr(10) . str_repeat(' ', ++$indent);
      break;
    
    // Még azt szeretnénk elérni, hogy az értékadások (T_*_EQUAL) és
    // értékvizsgálatok (T_*_IDENTICAL) elé és után is tegyünk egy
    // szóközt, hogy szép $változó = érték; formátumhoz jussunk
    case T_AND_EQUAL:
    case T_BOOLEAN_AND:
    case T_BOOLEAN_OR:
    case T_CONCAT_EQUAL:
    case T_DIV_EQUAL:
    case T_DOUBLE_ARROW:
    case T_IS_EQUAL:
    case T_IS_GREATER_OR_EQUAL:
    case T_IS_IDENTICAL:
    case T_IS_NOT_EQUAL:
    case T_IS_NOT_IDENTICAL:
    case T_LOGICAL_OR:
    case T_LOGICAL_XOR:
    case T_LOGICAL_AND:
    case T_IS_SMALLER_OR_EQUAL:
    case T_MINUS_EQUAL:
    case T_OR_EQUAL:
    case T_PLUS_EQUAL:
    case T_SL:
    case T_SL_EQUAL:
    case T_SR:
    case T_SR_EQUAL:
    case T_XOR_EQUAL:
      // Itt felsoroltuk az összes értékadás típust a teljesség kedvéért, node
      // mit is kell csinálni? Kiírni egy szóközt, a token értékét (legyen az
      // >> vagy .=) majd megint egy szóköz, hogy szép legyen
      print ' ' . $token[1] . ' ';
      break;
    
    // A többi tokennel peddig itt nem foglalkozunk, azok nyugodtan mehetnek
    // a kimenetre és zárjuk le a switchet is
    default:
      print $token[1];
      break;
  }

}
?>