Code-source php


        <?php
        #    (gH)   -_-  statghfns.php  ;  TimeStamp (unix) : 25 Août 2012 vers 11:55
        
        include("../std.php") ;
        
        # redirection éventuelle de www.info vers forge.info (à cause de LaTeX)
        
        $host = getenv("HTTP_HOST") ; #echo " HOST : $host " ;
        
        if ($host=="www.info.univ-angers.fr") {
        
           $titre  = "Fonctions gH dans statgh.r" ;
           $temps  = 0 ;
           $newUrl = "http://forge.info.univ-angers.fr/~gh/wstat/statghfns.php" ;
        
           debutPageRedir($titre,$temps,$newUrl) ;
        
        } ; # fin si
        
        
        ######################################################
        
        # pn avec cr() dont anaTcr() fournit incorrectement un exemple...
        
        $fichierDesFonctions = "statgh.r"   ;
        $fichierDesExemples  = "statgh.xmp" ;
        $verStatgh = "???" ;
        
        # tableau des noms de fonctions
        
        $tfns  = array() ;
        $nbfns = -1 ;
        $fh = fopen($fichierDesFonctions,"r") ;
        while ($lig=fgets($fh,4096)) {
          if (mot($lig,1) == "version_gH") {
              $verStatgh = mot($lig,3) ;
          } ; # fin de si
          if (mot($lig,2) == "<-") {
             if (substr(mot($lig."12345678",3),0,8) == "function") {
               $nfns = mot($lig,1) ;
               if (($nfns=="vnorm") or ($nfns=="format.record") ){
                 # non, ce sont des fonctions "locales"
               } else {
                 $tfns[$nbfns++] = $nfns ;
               } ; # fin de si
             } ; # fin de si
          } ; # fin de si
        } ; # fin tant que
        fclose($fh) ;
        sort($tfns) ;
        
        ######################################################
        
        $titre1 = "Les $nbfns fonctions de $fichierDesFonctions " ;
        $titre2 = "Les $nbfns fonctions de ".s_span("$fichierDesFonctions","grouge")." (version ".s_span($verStatgh,"gvert").")" ;
        debutPage($titre1,"strict","","statghfns.js")  ;
        debutSection() ;
        h1($titre2) ;
        
        p() ;
        echo "Chargement des fonctions&nbsp;:" ;
        finp() ;
        
        p() ;
        nbsp(10) ;
        echo href("statgh.r",'source("http://forge.info.univ-angers.fr/~gh/wstat/statgh.r",encoding="latin1")',"gbleuf nou") ;
        finp() ;
        
        ######################################################
        
        sdl() ;
        
        $lafns = "" ;
        if (isset($_GET["lafns"])) { $lafns = $_GET["lafns"] ; } ;
        
        form("statghfns.php","get") ;
        table(0,15) ;
        tr() ;
        
        ## ---------------------------------------------------
        
        td("","valigntop") ;
        p() ;
        echo "Choisissez la fonction : " ;
        finp() ;
        p() ;
        
        $lafnsel = "aide" ;
        if (!$lafns=="") { $lafnsel = $lafns ; } ;
        
        input_select("lafns","size=\"20\"") ;
          foreach ($tfns as $nfns) {
            $selected = "" ;
            $plus     = " ondblclick='window.location.replace(\"statghfns.php?lafns=$nfns\")' " ;
            if ($nfns==$lafnsel) {
              $selected = "selected" ;
            } ; # fin si
            input_option($nfns,"",$selected,"",$plus) ;
          } ; # fin pour chaque
        finselect() ;
        finp() ;
        p("centre") ;
        input_submit("montrer","montrer","vert_pastel") ;
        finp() ;
        fintd() ;
        
        ## ---------------------------------------------------
        
        td() ;
        if ($lafns!="") {
        
          h2("Exemples d'utilisation de la fonction ".s_span($lafns,"gbleuf")) ;
          textarea("","cadre tajaunec",10,120) ;
          echo "\n" ;
          $fh = fopen($fichierDesExemples,"r") ;
          $ok = 0 ;
          while ($lig=fgets($fh,4096)) {
            if  (strpos("   $lig"," $lafns(")) {
              echo $lig."\n" ;
            } ; # fin si
          } ; # fin tant que
          fclose($fh) ;
          fintextarea() ;
        
          h2("Corps de la fonction ".s_span($lafns,"gbleuf")) ;
          textarea("","cadre",20,120) ;
          echo "\n" ;
          $fh = fopen($fichierDesFonctions,"r") ;
          $ok = 0 ;
          while ($lig=fgets($fh,4096)) {
            if (( (mot($lig,2) == "<-") and (substr(mot($lig."12345678",3),0,8) == "function") and (mot($lig,1)==$lafns) )
            or ( $ok==1)) {
               $lig = preg_replace("/</","&lt;",$lig) ;
               $lig = preg_replace("/>/","&gt;",$lig) ;
               echo $lig ;
               $ok = 1 ;
            } ; # fin de si
            if  (strpos($lig,"fin de fonction")) { $ok = 0 ; } ;
          } ; # fin tant que
          fclose($fh) ;
          fintextarea() ;
        
        } else {
          textarea_fichier("","cadre",25,120,"statgh","statgh.r") ;
        } ; # fin si
        fintd() ;
        
        ## ---------------------------------------------------
        
        fintr() ;
        fintable() ;
        finform() ;
        
        p("centre") ;
        echo "Cliquer ".href("statghfns.php?lafns=","ici","bouton_fin nou orange_pastel")." pour revenir à la page de départ" ; ;
        finp() ;
        
        pvide() ;
        p() ;
          echo href("montresource.php?nomfic=statghfns.php","Code-source de la page","orange_stim nou") ;
          nbsp(4) ;
          echo href("statgh.php","explications","nou") ;
          nbsp(4) ;
          echo href("statgh.r.zip","archive zip du code de statgh.r","gvert") ;
        finp() ;
        
        ######################################################
        finSection() ;
        finPage() ;
        ?>
Si vous préférez, vous pouvez utiliser celle de geshi ou même celle construite autour de la fonction highlight_file.
Listing du fichier statghfns.php avec syntaxhighlighter
