#!/bin/csh
#######################################################################################################################################
# #
# F I C H I E R D E S T I N E A L ' A L I A S ' GetTL_SS ' : #
# #
# #
# Author of '$xiMoC/GetTL_SS$vv$Y' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20021129133107). #
# #
#######################################################################################################################################
GNumero1
GNumero2
GNumero3
# Gestion de la numerotation... #
GetLangG $FiChIeR5$HTML
GetDateCG $FiChIeR5$HTML
# Recuperation de {langue,date} du fichier argument... #
# #
# On notera qu'il n'y pas de '$MDateC' (entre autres choses...) car, en effet, je ne sais #
# pas l'evaluer puisque les fichiers '$m4' de generation des diapositives d'un diaporama #
# sont detruits apres usage. La solution a ete trouvee le 20021123182626 en utilisant celle #
# qui est contenue dans le fichier '$HTML'. #
set Titre=`echo $FiChIeR5 | $SE -e "s/^\([^.][^.]*\)\..*/\1/"`
set Titre=`echo "$Titre" | $SE -e "s/_//"g -e "s/\([$Alphabet_A_Z]\)/ \1/g" -e "s/^ *//"`
set Titre=`echo "$Titre" | $SE -f $xiMo/CONTENTS$D/CorrectionTitres.01$vv$sed`
# La mise en majuscules de '$Titre' a ete introduite le 20021125094036. #
# #
# Le dispositif de correction des titres a ete introduite le 20021129094751 en particulier a #
# cause de 'Galerie_GeneralitiesVisualization' qui ne donne pas un titre syntaxiquement #
# correct en anglais. Le changer en 'Galerie_GeneralitiesAboutVisualization' n'est pas une #
# bonne solution car elle impose de changer le nom d'une page ce qui est dangereux pour la #
# perennite d'une partie du site... #
#20110511213121____:if ("$TLangue" != "$K_VIDE") then #
#20110512102409____:if (("$TLangue1" != "$K_VIDE") && ("$TLangue2" != "$K_VIDE")) then #
if ("$TLangue" != "$K_VIDE") then
#20110511213121____: set Titre=`echo "$Titre" | $SE -e "$TLangue"` #
#20110512102409____: set Titre=`echo "$Titre" | $SE -e "$TLangue1" -e "$TLangue2"` #
set Titre=`echo "$Titre" | $SE -f $TLangue`
else
endif
#20110510105451____:set Titre=`echo "$Titre" | $R "$Alphabet_a_z" "$Alphabet_A_Z"` #
# La modification du 20110510105451 vient de '$xiMos/Gserveur$vv$Y 20110509134251'... #
if ("$MLangue" != "$K_VIDE") then
set MLangue=" $MLangue"
else
endif
set TNomDiaporamaGeant=`echo "$NomDiaporamaGeant" | $SE -e "s/\([$Alphabet_a_z]\)\([$Alphabet_A_Z]\)/\1 \2/g"`
set TNomDiaporamaGeantF=`echo "$NomDiaporamaGeantF" | $SE -e "s/\([$Alphabet_a_z]\)\([$Alphabet_A_Z]\)/\1 \2/g"`
#20110511213121____:if ("$TLangue" != "$K_VIDE") then #
#20110512102409____:if (("$TLangue1" != "$K_VIDE") && ("$TLangue2" != "$K_VIDE")) then #
if ("$TLangue" != "$K_VIDE") then
#20110511213121____: set TNomDiaporamaGeant=`echo "$TNomDiaporamaGeant" | $SE -e "$TLangue"` #
#20110511213121____: set TNomDiaporamaGeantF=`echo "$TNomDiaporamaGeantF" | $SE -e "$TLangue"` #
#20110512102409____: set TNomDiaporamaGeant=`echo "$TNomDiaporamaGeant" | $SE -e "$TLangue1" -e "$TLangue2"` #
#20110512102409____: set TNomDiaporamaGeantF=`echo "$TNomDiaporamaGeantF" | $SE -e "$TLangue1" -e "$TLangue2"` #
set TNomDiaporamaGeant=`echo "$TNomDiaporamaGeant" | $SE -f $TLangue`
set TNomDiaporamaGeantF=`echo "$TNomDiaporamaGeantF" | $SE -f $TLangue`
else
endif
unset TLangue
set TNomDiaporamaGeant=`echo "$TNomDiaporamaGeant" | $R "[$Alphabet_a_z]" "[$Alphabet_A_Z]"`
set TNomDiaporamaGeantF=`echo "$TNomDiaporamaGeantF" | $R "[$Alphabet_a_z]" "[$Alphabet_A_Z]"`
#20110509132355____:set Titre=`echo "$Titre" | $SE -e "s/$TNomDiaporamaGeantF/GIGANTIC RANDOM FRACTAL SLIDE SHOW/"` #
set Titre=`echo "$Titre" | $SE -e "s/$TNomDiaporamaGeantF/Gigantic Random Fractal Slide Show/"`
# Ceci a ete introduit le 20110303135314... #
# #
# ATTENTION : le traitement de '$TNomDiaporamaGeantF' doit preceder celui de #
# '$TNomDiaporamaGeant' car, en effet le second est "inclus" dans le premier... #
#20080927161013____:set Titre=`echo "$Titre" | $SE -e "s/$TNomDiaporamaGeant/GIGANTIC SLIDE SHOW/"` #
#20110509132355____:set Titre=`echo "$Titre" | $SE -e "s/$TNomDiaporamaGeant/GIGANTIC RANDOM SLIDE SHOW/"` #
set Titre=`echo "$Titre" | $SE -e "s/$TNomDiaporamaGeant/Gigantic Random Slide Show/"`
# Ceci a ete introduit le 20050923222711... #
# #
# ATTENTION : le traitement de '$TNomDiaporamaGeantF' doit preceder celui de #
# '$TNomDiaporamaGeant' car, en effet le second est "inclus" dans le premier... #
unset TNomDiaporamaGeant
unset TNomDiaporamaGeantF
set Titre=`echo "$Titre" | $SE -e "s/Galeries/Diaporamas :/"`
set Titre=`echo "$Titre" | $SE -e "s/GALERIES/DIAPORAMAS :/"`
set Titre=`echo "$Titre" | $SE -e "s/Galleries/Slide Shows :/"`
set Titre=`echo "$Titre" | $SE -e "s/GALLERIES/SLIDE SHOWS :/"`
set Titre=`echo "$Titre" | $SE -e "s/Galerie/Diaporama :/"`
set Titre=`echo "$Titre" | $SE -e "s/GALERIE/DIAPORAMA :/"`
set Titre=`echo "$Titre" | $SE -e "s/Gallery/Slide Show :/"`
set Titre=`echo "$Titre" | $SE -e "s/GALLERY/SLIDE SHOW :/"`
# Le 20030904163141, il a ete decide de titrer les diaporamas avec {Diaporama,Slide Show}, #
# ce qui est plus logique et qui permet de mieux faire la difference avec les galeries, en #
# particulier dans les listes generees par 'v $xiMo/CONTENTS$Z', d'ou les traductions qui #
# precedent et ce sans faire d'hypotheses sur les majuscules et sur les minuscules... #
#20110511213121____:set VaLiDe_Titre=`echo "$Titre" | $EGRE "Diaporama :|DIAPORAMA :|Slide Show :|SLIDE SHOW :"` #
set VaLiDe_Titre=`echo "$Titre" | $EGRE "Diaporama[s]* :|DIAPORAMA[S]* :|Slide Show[s]* :|SLIDE SHOW[S]* :"`
if ("$VaLiDe_Titre" == "$K_VIDE") then
#20110509132355____: set Titre="SLIDE SHOW : $Titre" #
set Titre="Slide Show : $Titre"
# Ceci a ete introduit le 20040207184056 depuis que d'autres pages '$m4' que les Galeries #
# peuvent produire des diaporamas ('v $xiMd/infinity.01$vv$m4 Generer_la_version_Diaporama'). #
else
endif
unset VaLiDe_Titre
set Titre=`echo "$Titre" | $SE -e "s/Ensemble Des /Full set of randomized /"`
# Introduit le 20110512104637... #
set Titre=`echo "$Titre" | $SE -e 's/ *:$//'`
# Introduit le 20110511213121... #
FilSTmpB FMImageSymbole $m4
#20121216102309____:set ImAgEs="/images/" #
set ImAgEs="$K_sepS"`GetLeaf $xiMi`"$K_sepS"
#set I_JfC=`$CA $FiChIeR5$HTML | $GRE "$ImAgEs.*/$FIimage$JPEG" | $SE -e "s+^.*$ImAgEs++" -e "s+\""$D/$FIimage$JPEG"'.*$++'| $SOR -u` #
FilSTmpB FMImagesFichier
set FiChIeR5_SlideShow=`echo $FiChIeR5 | $SE -e "s/$DebutSlideShow"'$'"/$SlideShow/"`
# Afin de recuperer l'integralite du "Slide Show". #
$CA $FiChIeR5_SlideShow$HTML | \
$GRE "$ImAgEs.*/$FItimbre$JPEG" | \
$SE -e "s+^.*$ImAgEs++" \
-e "s+\""$D/$FItimbre$JPEG"'.*$++' | \
$GRE -v "^JFC\." \
>> $FMImagesFichier
unset FiChIeR5_SlideShow
set I_JfC=`$CA $FMImagesFichier | $HEA -1`
# Suite au probleme 'v ''$xiMt/Galerie_SelfPortraits$vv.$m4.$I 20220602181117', le choix #
# de l'image 'ImageSymboleServeurJFC' a ete modifie le 20220603091223 en utilisant, non #
# pas la premiere dispositive ('$DebutSlideShow'), mais la definition du diaporama complet #
# ('v ''$xiMoC/GetTL_FVs$vv$Y SlideShow'). La consequence de cela est que la probabilite de #
# de ne pas definir 'ImageSymboleServeurJFC' (comme cela s'etait donc vu avec la galerie #
# 'v ''$xiMt/Galerie_SelfPortraits$vv.$m4.$I') est quasiment nulle... #
FilSTmpE FMImagesFichier
$CA $xiMoC/GetTL_SS$vv.$m4.$I | \
$SE -e "s/I_JfC/$I_JfC/" \
>> $FMImageSymbole
# Generation d'un fichier '$m4' destine a 'GetImage' afin qu'il recupere la premiere image #
# du diaporama... #
# #
# On notera le 20121217092855 que l'image 'ImageSymboleServeurJFC' est donc pour les #
# diaporamas la premiere image de ceux-ci. En general 'v $xiMo/CONTENTS$Z' est execute #
# sur '$mREFERENCE' et c'est donc la premiere image des diaporamas de '$mREFERENCE' qui #
# sera referencee. Or sur '$mDev_WWW', les diaporamas peuvent ne pas etre "en phase" avec #
# ceux de '$mREFERENCE' (c'est d'ailleurs le cas a cette date) ; ainsi sur '$mDev_WWW' #
# l'image 'ImageSymboleServeurJFC' peut etre differente de la premiere du diaporama #
# correspondant... #
unset I_JfC
unset ImAgEs
GetImage $FMImageSymbole
FilSTmpE FMImageSymbole
#20050209102801____:echo " PoInT(TeXtE($N2.$N3 - $MDateC CALLd($FiChIeR5,GrAs($Titre))$MLangue.))" #
#20110623111024____:echo " $PoiN(TeXtE($N2.$N3 - $MDateC CALLd($FiChIeR5,GrAs($Titre))$MLangue.))" #
#20121216091425____:if ("$MDateC" != "$K_VIDE") then #
# Test introduit le 20110623111024... #
#20110623112235____:echo " $PoiN(TeXtE($N2.$N3 - $MDateC CHANGE_DE_LIGNE CALLd($FiChIeR5,GrAs($Titre))$MLangue.))" #
#20121216091425____: echo " $PoiN(TeXtE($N2.$N3 $MDateC CHANGE_DE_LIGNE CALLd($FiChIeR5,GrAs($Titre))$MLangue.))" #
#20121216091425____:else #
#20121216091425____: echo " $PoiN(TeXtE($N2.$N3 CHANGE_DE_LIGNE CALLd($FiChIeR5,GrAs($Titre))$MLangue.))" #
#20121216091425____:endif #
if ("$MImageSymbole" != "$K_VIDE") then
# L'image associee 'I_JfC' a ete introduite le 20121216091425 : il s'agit de la premiere #
# image du diaporama... #
if ("$MDateC" != "$K_VIDE") then
#20240403101848____:echo " $PoiN(TeXtE($N2.$N3 $MDateC CALLd($FiChIeR5,$MImageSymbole+GrAs($Titre)) $MLangue.))" #
echo " $PoiN(TeXtE($N2.$N3 $MDateC CALLd($FiChIeR5,$MImageSymbole+$Titre) $MLangue.))"
else
#20240403101848____:echo " $PoiN(TeXtE($N2.$N3 CALLd($FiChIeR5,$MImageSymbole+GrAs($Titre)) $MLangue.))" #
echo " $PoiN(TeXtE($N2.$N3 CALLd($FiChIeR5,$MImageSymbole+$Titre) $MLangue.))"
endif
else
if ("$MDateC" != "$K_VIDE") then
#20240403101848____:echo " $PoiN(TeXtE($N2.$N3 $MDateC CHANGE_DE_LIGNE CALLd($FiChIeR5,GrAs($Titre))$MLangue.))" #
echo " $PoiN(TeXtE($N2.$N3 $MDateC CHANGE_DE_LIGNE CALLd($FiChIeR5,$Titre)$MLangue.))"
else
#20240403101848____: echo " $PoiN(TeXtE($N2.$N3 CHANGE_DE_LIGNE CALLd($FiChIeR5,GrAs($Titre))$MLangue.))" #
echo " $PoiN(TeXtE($N2.$N3 CHANGE_DE_LIGNE CALLd($FiChIeR5,$Titre)$MLangue.))"
endif
endif
unset MImageSymbole
unset MLangue
unset MDateC
unset Titre
saut
PNumero1
if ($?No_GeN_BElemLT == $NEXIST) then
# Introduit le 20240211111705... #
PNumero3
else
endif
# Gestion de la numerotation... #
unset N3
echo $FiChIeR5 \
>>! $LiStE_PaGeS
# Introduit le 20031017221024... #
Copyright © Jean-François COLONNA, 202-2024.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 202-2024.