Listing du fichier reponseUniprotFns.php avec syntaxhighlighter
<?php
# (gH) -_- reponseUniprotFns.php ; TimeStamp (unix) : 06 Juillet 2009 vers 12:53
###################################################
function chaineUrl_1($url,$avant,$apres) {
###################################################
# on parcourt $url et on récupère le premier texte vu entre
# les chaines $avant et $apres
$lem = "" ;
$fh = @fopen($url,"r") ;
$continue = 1 ;
// cela permet d'arreter la lecture du fichier dès le premier IPR vu
if (!$fh) {
echo "impossible d'ouvrir l'URL $url\n" ;
return($lem) ;
} ; # finsi
while ((!feof($fh)) and ($continue==1)) {
$lig = fgets($fh, 4096) ;
$idp = strpos($lig,$avant) ;
if ($idp>-1) {
$lig = substr($lig,$idp+strlen($avant)) ;
$jdp = strpos($lig,$apres) ;
$lem = substr($lig,0,$jdp) ;
$continue = 0 ;
} ; # finsi
} ; # fin de tant que
fclose($fh) ;
return($lem) ;
} ; # fin de fonction chaineUrl_1
###################################################
function exprUrl1($url,$er) {
###################################################
# on parcourt $url et on récupère le premier texte
# correspondant à l'expression régulière $er
$lem = "" ;
$fh = @fopen($url,"r") ;
$continue = 1 ;
if (!$fh) {
return($lem) ;
} ; # finsi
while ((!feof($fh)) and ($continue==1)) {
$lig = fgets($fh, 4096) ;
$idp = preg_match($er,$lig,$tdr) ;
if (count($tdr)>0) {
$lem = $tdr[1] ;
$continue = 0 ;
} ; # finsi
} ; # fin de tant que
fclose($fh) ;
return($lem) ;
} ; # fin de fonction exprUrl1
###################################################
function xslUrl1($urlxml,$fxsl) {
###################################################
# on exécute la transformation du fichier $fxsl
# sur le fichier xml issu de l'URL $urlxml
# (on utilise la version "longue" de l'écriture en php)
$ipr = "" ;
$fh = @fopen($urlxml,"r") ;
$continue = 1 ;
if (!$fh) {
return($ipr) ;
} ; # finsi
// Chargement du fichier XML
$xml = new domDocument();
$xml -> load($urlxml);
// Chargement du fichier XSL
$xsl = new domDocument();
$xsl -> load($fxsl);
// Nouvelle instance du processeur XSLT
$xslt = new XSLTProcessor();
// Import de la feuille XSL
$xslt -> importStylesheet($xsl);
// Transformation et affichage du résultat
$ipr = $xslt -> transformToXml($xml);
return($ipr) ;
} ; # fin de fonction xslUrl
###################################################
###################################################
function chaineUrl_2($url,$avant1,$apres1,$avant2="?",$apres2="!") {
###################################################
# on parcourt $url et on récupère tous les textes vus entre
# les chaines $avant et $apres
$lem = "" ;
$fh = @fopen($url,"r") ;
if (!$fh) {
return($lem) ;
} ; # finsi
while (!feof($fh)) {
$lem1 = "?" ;
$lem2 = "??" ;
$lig = fgets($fh, 4096) ;
$idp = strpos($lig,$avant1) ;
while ($idp>-1) {
$lig = substr($lig,$idp+strlen($avant1)) ;
$jdp = strpos($lig,$apres1) ;
$lem1 = " ".substr($lig,0,$jdp) ;
$kdp = strpos($lig,$avant2) ;
if ($kdp>-1) {
$lig = substr($lig,$kdp+strlen($avant2)) ;
$ldp = strpos($lig,$apres2) ;
$lem2 = substr($lig,0,$ldp) ;
} ; # fin de si
$lem .= "$lem1 $lem2 ; " ;
$idp = strpos($lig,$avant1) ;
} ; # finsi
} ; # fin de tant que
fclose($fh) ;
return($lem) ;
} ; # fin de fonction chaineUrl_2
###################################################
function exprUrl2($url,$er) {
###################################################
# on parcourt $url et on récupère tous les textes
# correspondants à l'expression régulière $er
$lem = "" ;
$fh = @fopen($url,"r") ;
if (!$fh) {
return($lem) ;
} ; # finsi
$jdp = 0 ;
while (!feof($fh)) {
$lig = fgets($fh, 4096) ;
$idp = preg_match_all($er,$lig,$tdr) ;
if ($idp>0) {
for ($idv=0;$idv<$idp;$idv++) {
$lem1 = $tdr[1][$idv] ;
$lem2 = $tdr[2][$idv] ;
$lem .= "$lem1 $lem2 ; " ;
} ; # fin pour
} ; # finsi
} ; # fin de tant que
fclose($fh) ;
return($lem) ;
} ; # fin de fonction exprUrl2
###################################################
function xslUrl2($urlxml,$fxsl) {
###################################################
# on exécute la transformation du fichier $fxsl
# sur le fichier xml issu de l'URL $urlxml
# ce qui différe de la fonction xslUrl1,
# c'est le fichier transformation
$ipr = "" ;
$fh = @fopen($urlxml,"r") ;
$continue = 1 ;
if (!$fh) {
return($ipr) ;
} ; # finsi
$xml = new domDocument();
$xml -> load($urlxml);
$xsl = new domDocument();
$xsl -> load($fxsl);
$xslt = new XSLTProcessor();
$xslt -> importStylesheet($xsl);
$ipr = $xslt -> transformToXml($xml);
return($ipr) ;
} ; # fin de fonction xslUrl2
###################################################
function choixIpr($ldsol) {
###################################################
# choix du numéro Interpor (ipr) :
# on décompose via le point-virgule
# s'il n'y a qu'une seule solution, c'est le bon ipr
# sinon, si on trouve LEA, c'est ce qu'il faut garder
# sinon, enfin, on garde le premier IPR vu
$ldsol = trim($ldsol) ;
$lng1 = strlen($ldsol) -1 ;
if (substr($ldsol,$lng1,1)==";") { $ldsol = substr($ldsol,0,$lng1) ; } ;
$tdsol = split(";",$ldsol) ;
$lasol = $tdsol[0] ;
$nbe = count($tdsol) ;
if ($nbe>1) {
for ($ids=0;$ids<$nbe;$ids++) {
$solc = $tdsol[$ids] ;
if (strpos($solc,"LEA")>-1) { $lasol = $solc ; } ;
} ; # fin pour
} ; # fin si
$motsol = preg_split("/\s+/",trim($lasol)) ;
$ipr = $motsol[0] ;
return( $ipr) ;
} ; # fin de fonction choixIpr
###################################################
?>
La coloration syntaxique est réalisée par : SyntaxHighlighter. Si vous préférez, vous pouvez utiliser celle de geshi ou même celle construite autour de la fonction highlight_file. |
Retour à la page principale de
(gH)