Listing du fichier statghfns.php
00001 <?php
00002 # (gH) -_- statghfns.php ; TimeStamp (unix) : 25 Août 2012 vers 11:55
00003
00004 include("../std.php") ;
00005
00006 # redirection éventuelle de www.info vers forge.info (à cause de LaTeX)
00007
00008 $host = getenv("HTTP_HOST") ; #echo " HOST : $host " ;
00009
00010 if ($host=="www.info.univ-angers.fr") {
00011
00012 $titre = "Fonctions gH dans statgh.r" ;
00013 $temps = 0 ;
00014 $newUrl = "http://forge.info.univ-angers.fr/~gh/wstat/statghfns.php" ;
00015
00016 debutPageRedir($titre,$temps,$newUrl) ;
00017
00018 } ; # fin si
00019
00020
00021 ######################################################
00022
00023 # pn avec cr() dont anaTcr() fournit incorrectement un exemple...
00024
00025 $fichierDesFonctions = "statgh.r" ;
00026 $fichierDesExemples = "statgh.xmp" ;
00027 $verStatgh = "???" ;
00028
00029 # tableau des noms de fonctions
00030
00031 $tfns = array() ;
00032 $nbfns = -1 ;
00033 $fh = fopen($fichierDesFonctions,"r") ;
00034 while ($lig=fgets($fh,4096)) {
00035 if (mot($lig,1) == "version_gH") {
00036 $verStatgh = mot($lig,3) ;
00037 } ; # fin de si
00038 if (mot($lig,2) == "<-") {
00039 if (substr(mot($lig."12345678",3),0,8) == "function") {
00040 $nfns = mot($lig,1) ;
00041 if (($nfns=="vnorm") or ($nfns=="format.record") ){
00042 # non, ce sont des fonctions "locales"
00043 } else {
00044 $tfns[$nbfns++] = $nfns ;
00045 } ; # fin de si
00046 } ; # fin de si
00047 } ; # fin de si
00048 } ; # fin tant que
00049 fclose($fh) ;
00050 sort($tfns) ;
00051
00052 ######################################################
00053
00054 $titre1 = "Les $nbfns fonctions de $fichierDesFonctions " ;
00055 $titre2 = "Les $nbfns fonctions de ".s_span("$fichierDesFonctions","grouge")." (version ".s_span($verStatgh,"gvert").")" ;
00056 debutPage($titre1,"strict","","statghfns.js") ;
00057 debutSection() ;
00058 h1($titre2) ;
00059
00060 p() ;
00061 echo "Chargement des fonctions :" ;
00062 finp() ;
00063
00064 p() ;
00065 nbsp(10) ;
00066 echo href("statgh.r",'source("http://forge.info.univ-angers.fr/~gh/wstat/statgh.r",encoding="latin1")',"gbleuf nou") ;
00067 finp() ;
00068
00069 ######################################################
00070
00071 sdl() ;
00072
00073 $lafns = "" ;
00074 if (isset($_GET["lafns"])) { $lafns = $_GET["lafns"] ; } ;
00075
00076 form("statghfns.php","get") ;
00077 table(0,15) ;
00078 tr() ;
00079
00080 ## ---------------------------------------------------
00081
00082 td("","valigntop") ;
00083 p() ;
00084 echo "Choisissez la fonction : " ;
00085 finp() ;
00086 p() ;
00087
00088 $lafnsel = "aide" ;
00089 if (!$lafns=="") { $lafnsel = $lafns ; } ;
00090
00091 input_select("lafns","size=\"20\"") ;
00092 foreach ($tfns as $nfns) {
00093 $selected = "" ;
00094 $plus = " ondblclick='window.location.replace(\"statghfns.php?lafns=$nfns\")' " ;
00095 if ($nfns==$lafnsel) {
00096 $selected = "selected" ;
00097 } ; # fin si
00098 input_option($nfns,"",$selected,"",$plus) ;
00099 } ; # fin pour chaque
00100 finselect() ;
00101 finp() ;
00102 p("centre") ;
00103 input_submit("montrer","montrer","vert_pastel") ;
00104 finp() ;
00105 fintd() ;
00106
00107 ## ---------------------------------------------------
00108
00109 td() ;
00110 if ($lafns!="") {
00111
00112 h2("Exemples d'utilisation de la fonction ".s_span($lafns,"gbleuf")) ;
00113 textarea("","cadre tajaunec",10,120) ;
00114 echo "\n" ;
00115 $fh = fopen($fichierDesExemples,"r") ;
00116 $ok = 0 ;
00117 while ($lig=fgets($fh,4096)) {
00118 if (strpos(" $lig"," $lafns(")) {
00119 echo $lig."\n" ;
00120 } ; # fin si
00121 } ; # fin tant que
00122 fclose($fh) ;
00123 fintextarea() ;
00124
00125 h2("Corps de la fonction ".s_span($lafns,"gbleuf")) ;
00126 textarea("","cadre",20,120) ;
00127 echo "\n" ;
00128 $fh = fopen($fichierDesFonctions,"r") ;
00129 $ok = 0 ;
00130 while ($lig=fgets($fh,4096)) {
00131 if (( (mot($lig,2) == "<-") and (substr(mot($lig."12345678",3),0,8) == "function") and (mot($lig,1)==$lafns) )
00132 or ( $ok==1)) {
00133 $lig = preg_replace("/</","<",$lig) ;
00134 $lig = preg_replace("/>/",">",$lig) ;
00135 echo $lig ;
00136 $ok = 1 ;
00137 } ; # fin de si
00138 if (strpos($lig,"fin de fonction")) { $ok = 0 ; } ;
00139 } ; # fin tant que
00140 fclose($fh) ;
00141 fintextarea() ;
00142
00143 } else {
00144 textarea_fichier("","cadre",25,120,"statgh","statgh.r") ;
00145 } ; # fin si
00146 fintd() ;
00147
00148 ## ---------------------------------------------------
00149
00150 fintr() ;
00151 fintable() ;
00152 finform() ;
00153
00154 p("centre") ;
00155 echo "Cliquer ".href("statghfns.php?lafns=","ici","bouton_fin nou orange_pastel")." pour revenir à la page de départ" ; ;
00156 finp() ;
00157
00158 pvide() ;
00159 p() ;
00160 echo href("montresource.php?nomfic=statghfns.php","Code-source de la page","orange_stim nou") ;
00161 nbsp(4) ;
00162 echo href("statgh.php","explications","nou") ;
00163 nbsp(4) ;
00164 echo href("statgh.r.zip","archive zip du code de statgh.r","gvert") ;
00165 finp() ;
00166
00167 ######################################################
00168 finSection() ;
00169 finPage() ;
00170 ?>
La coloration syntaxique est réalisée par un enrobage de la function php nommée highlight_file
mais si vous préférez, vous pouvez utiliser celle de SyntaxHighlighter ou même celle de geshi.
Pour ne pas voir les numéros de ligne, ajoutez &nl=non à la suite du nom du fichier.
Retour à la page principale de (gH)