home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Systeme / ShellUnix / MAN2HTML.SH < prev    next >
Encoding:
Linux/UNIX/POSIX Shell Script  |  1998-07-09  |  15.7 KB  |  762 lines
  1. #!/bin/sh
  2. #---------------------------------------------------------------------- 
  3. # NOM                                        
  4. #    man2html = Transforme un fichier de type Man au format HTML.
  5. # 
  6. # SYNTAXE                                    
  7. #    man2html -h|H|M          (aide)   
  8. #    man2html fichier_format_man > fichier_html
  9. # 
  10. #---------------------------------------------------------------------- 
  11. # VERSION
  12. #    1.2
  13. # 
  14. # DESCRIPTION
  15. #    * Cette procedure permet de convertir un fichier au format
  16. #    "man" (nroff), en un fichier au format HTML visualisable par
  17. #    mosaic. Dans le cas ou des references de type "See ..." sont
  18. #    inscrites dans le fichier man, la procedure genere une ancre
  19. #    HTML, et permet l'accession au chapitre mentionne.
  20. #    Il se peut que des references ne fonctionnent pas (ex. xv: See
  21. #    "Appendix..."), car elles se referent a des documents papier !
  22. #    Il n'y a pas encore de controle sur les ancres, mais cela se
  23. #    fera certainement dans un proche avenir...
  24. # 
  25. #    * La procedure fonctionne tres bien avec des fichiers de taille
  26. #    non importante. L'utilisation d'une telle procedure sur les
  27. #    manuels Unix (ls, cp, etc.), n'est pas garantie.
  28. # 
  29. #    * La procedure test si le fichier passe en argument est compresse
  30. #    ou non, et se charge d'une decompression le cas echeant.
  31. # 
  32. # 
  33. # OPTIONS
  34. #    -h|H    aide courte ou longue.        
  35. #                                            
  36. #    -M    affiche l'aide dans une fenetre Mosaic.
  37. #                                            
  38. # EXEMPLE(S)
  39. #    * Lancement de l'application avec affichage de l'aide longue:
  40. #        $ man2html -H
  41. # 
  42. #    * Affichage de l'aide longue au format Mosaic:
  43. #        $ man2html -W
  44. # 
  45. #    * Genere un fichier html du fichier "man" de la commande Unix ls:
  46. #        $ man2html xv.1 > ls.html 
  47. # 
  48. # 
  49. # DEPENDANCE(S)
  50. #    awk, vi.
  51. #                                            
  52. # REMARQUE(S)
  53. #    * Il est vrai qu'il existe deja des procedures dans le domaine
  54. #    public qui normalement s'occupe de transformer du man en html
  55. #    j'en ai essaye quelques une en perl (elles ne fonctionnaient pas),
  56. #    je n'ai malheureuse pas reussi a les faire fonctionner correctment,
  57. #    nul n'est parfait, mais c'est promis des que je peux j'apprends le
  58. #    perl !
  59. #    Et je suis encore moins parfait, dans la mesure ou cette procedure
  60. #    ne fonctionne pas sur tout les fichiers Man, car la procedure ne fait
  61. #    pas d'interpretation a la mode nroff. Elle se contente juste de
  62. #    remplacer les balises nroff par des balises html, du moins elle
  63. #    essaye... Car il est fort possible que certaines balises ne soient
  64. #    pas reconnues. Si cela arrive envoyez moi un courrier pour que je
  65. #    puisse rectifier la procedure.
  66. # 
  67. #    * Procedure distribuee en Freeware/Gratuiciel.
  68. #                                            
  69. #                                            
  70. # AUTEUR
  71. #    Bertrand LE QUELLEC
  72. #                                            
  73. # E-MAIL
  74. #     Copyright (c) 1998 Bertrand LE QUELLEC, All Rigths Reserved.
  75. # 
  76. # CONTACT
  77. #   eMail : blq@mygale.org ou blq@wanadoo.fr
  78. #   Url   : http://www.mygale.org/09/blq/ ou http://perso.wanadoo.fr/blq/
  79. #                                            
  80. # Cree : 04/04/95 - Modifie le 17/03/98
  81. #---------------------------------------------------------------------- 
  82. # Permission to use, copy, modify, distribute, and sell this software
  83. # and its documentation for any purpose is hereby granted without fee,
  84. # provided that the above copyright notice appear in all copies and
  85. # that both that copyright notice and this permission notice appear in
  86. # supporting documentation, and that the name of Bertrand LE QUELLEC    
  87. # not be used in advertising or publicity pertaining to distribution 
  88. # of the software without specific, written prior permission. Bertrand 
  89. # LE QUELLEC makes no representations about the suitability of
  90. # this software for any purpose. It is provided "as is" without
  91. # express or implied warranty.
  92. #
  93. # THIS SOFTWARE IS PROVIDED BY Bertrand LE QUELLEC `AS IS' AND ANY
  94. # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  95. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  96. # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL Bertrand LE QUELLEC BE
  97. # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  98. # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  99. # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  100. # BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  101. # WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
  102. # OR OTHERWISE)     ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
  103. # EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  104. #---------------------------------------------------------------------- 
  105.  
  106. # ------------------------------------------
  107. # ZONE DE DEFINITION DES VARIABLES GLOBALES:
  108. # ------------------------------------------
  109. NOM_PROCEDURE=`basename $0`
  110. LA_PROCEDURE=$0
  111. CD=`pwd`
  112. RM=0
  113. AWK=`[ -f /usr/bin/nawk ] && echo "nawk" || echo "awk" `
  114.  
  115.  
  116. ##
  117. ## Variables particulieres:
  118. ##
  119. DATE=`date "+%d/%m/%y"`
  120. MODE_COULEUR=0
  121.  
  122.  
  123. ##
  124. ## Les variables concernant l'utilisateur:
  125. ##
  126. DEFAUT_AUTEUR=`whoami`
  127. DEFAUT_EDITEUR=${EDITOR}
  128. DEFAUT_SHELL=${SHELL}
  129.  
  130.  
  131. #---------------------------------------------------------------------- 
  132. # ZONE DE DEFINITION DES FONCTIONS LOCALES:
  133. # -----------------------------------------
  134. # La fonction doit etre precedee d'un commentaire avec en debut de ligne
  135. # le caractere # (diese) repete deux fois.
  136.  
  137. ##
  138. ## En cas d'une interruption la fonction suivante est executee.
  139. ## Les interruptions sont des signaux envoyes au processus du script,
  140. ## par la commande Unix: kill(1). La "capture" de ces signaux est
  141. ## identifiee par la commande Shell: trap definie apres la zone des
  142. ## options.
  143. ##
  144. TrapInterrup()
  145. {
  146.     # Vous pouvez executer des instructions avant une sortie 
  147.     # par signal (ou brutale!).
  148.     exit 1
  149. }
  150.  
  151.  
  152. ##
  153. ## Renvoie le PATH et nom d'un ou plusieurs executables.
  154. ## Si le ou les executables sont introuvables la fonction ne renvoie rien.
  155. ## Dans le cas d'un alias la fonction ne renvoie rien, car le PATH n'est
  156. ## pas recuperable.
  157. ##
  158. Type()
  159. {
  160.     [ $# -ne 0 ] && type $* | $AWK '$2=="is" && $4!="alias" {print $NF}'
  161. }
  162.  
  163.  
  164. ##
  165. ## Affiche l'aide indiquee en en-tete du script shell.
  166. ## Ne pas supprimer car cette fonction est utilisee a l'appel de la
  167. ## procedure avec les options -H ou -H
  168. ##
  169. AideProc()
  170. {
  171.     fichier=$1
  172.     niveau=$2
  173.  
  174.     [ -z "$fichier" ] && {
  175.         Erreur "Aide(): nombre d'argument incorect."
  176.         return 0
  177.         }
  178.  
  179.     [ ! -f "$fichier" ] && {
  180.         Erreur "Aide(): impossible d'atteindre le fichier $fichier."
  181.         return 0
  182.     }
  183.  
  184.     [ ${niveau:=2} = 2 ] && {
  185.         $AWK 'BEGIN {i=2}
  186.             /^#(#+|-+|÷+|\*+|\\+|\++|=+|\.+|\/+)+ *$/{
  187.                 if(--i<=0)exit
  188.                 next
  189.             }
  190.             /^#[     ]*[A-Z]*[     ]*$/{
  191.                 next
  192.             }
  193.             /^#[^!]/{
  194.                 print substr($0,1,80)
  195.             }
  196.         ' $fichier | sed -e 's/^#[     ]*//'
  197.     } || {
  198.         $AWK '\
  199.             /^#(#+|-+|÷+|\*+|\\+|\++|=+|\.+|\/+)+ *$/{
  200.                 if(--i<=0) exit
  201.                 next
  202.             }
  203.             /^#[^!]/{
  204.                 print substr($0,2,80)
  205.             }
  206.         ' i=$niveau $fichier | pg -e
  207.     }
  208. }
  209.  
  210. ##
  211. ## Renvoie le type de la machine ou l'on se trouve et surtout le
  212. ## systeme d'exploitation en cours. La fonction renvoie un des numero
  213. ## suivant en reponse:
  214. ##
  215. ##    inconue            0
  216. ##
  217. ##    SunOs            1
  218. ##    Sun Solaris        2
  219. ##    HP s700            3
  220. ##    HP s800            4
  221. ##    HP s300            5
  222. ##    Silicon Graphic 6
  223. ##    IBM AIX            7
  224. ##
  225. ## Pour recuperer le code retour de la fonction, utilisez la variable $?
  226. ##
  227. Machine()
  228. {
  229.     os=`uname`
  230.  
  231.     [ "$os" = "SunOS" ] && return 1
  232.     
  233.     [ "$os" = "HP-UX" ] && {
  234.         if uname -a | grep "PA-RISC" 1> /dev/null
  235.         then
  236.             return 3
  237.         elif uname -a | grep "HP-PA" 1> /dev/null
  238.             return 4
  239.         then
  240.             return 5
  241.         fi
  242.     }
  243.  
  244.     [ "$os" = "IRIX" ] && return 6
  245.  
  246.     [ "$os" = "AIX" ] && return 7
  247.  
  248.     return 0
  249. }
  250.  
  251.  
  252. ##
  253. ## Affiche un message en rouge si l'on se trouve dans une fenetre hpterm
  254. ## et se met en attente de 2 secondes.
  255. ## Il est possible de recuperer le code retour de la fonction.
  256. ##
  257. Erreur()
  258. {
  259.     [ $# -eq 0 ] && return -1
  260.  
  261.     echo "\n\t${ROUGE}$*${NORMAL}"
  262.     sleep 2
  263.  
  264.     return 0
  265. }
  266.  
  267.  
  268. #---------------------------------------------------------------------- 
  269. # DEFENITION DES FONCTIONS LOCALES AU PROGRAMME:
  270. # ----------------------------------------------
  271.  
  272.  
  273. #---------------------------------------------------------------------- 
  274. # RECUPERATION DES OPTIONS:
  275. # -------------------------
  276. set -- `getopt hHx $*`                
  277. for opt in $*                                            
  278. do                                                             
  279.     case $opt in                                           
  280.         -h) AideProc $LA_PROCEDURE    ; exit 0 ;;
  281.         -H) AideProc $LA_PROCEDURE 3  ; exit 0 ;;
  282.  
  283.         -x) set -x ; shift ;;
  284.  
  285.         --)    shift ; break ;;
  286.     esac                                                        
  287. done                                                          
  288.  
  289.  
  290. #----------------------------------------------------------------------
  291. # AUTRES DEFINITIONS:
  292. # -------------------
  293. trap TrapInterrup 3 2 15    # Recuperation des interruptions 3, 2 et 15
  294.  
  295. #----------------------------------------------------------------------
  296. # DEBUT ZONE DU PROGRAMME:
  297. # ------------------------
  298.  
  299. [ ! -f "$1" ] && {
  300.     Erreur "Il maque le fichier en entree."
  301.     AideProc $LA_PROCEDURE
  302.     
  303.     exit 0
  304. }
  305.  
  306. fichier=$1
  307. [ `file $fichier | grep -c compress` -gt 1 ] && {
  308.     cp $fichier /tmp/$fichier.Z
  309.     uncompress /tmp/$fichier.Z
  310.     $fichier=/tmp/$fichier
  311.     RM=1
  312. }
  313.  
  314. name=`basename $fichier`
  315. cp $fichier /tmp/${NOM_PROCEDURE}.$$
  316.  
  317. vi /tmp/${NOM_PROCEDURE}.$$ << ETIQ > /dev/null 2>&1
  318. :1,\$s%\\\\s[-+][0-9]\([^\]*\)\\\\s[-+][0-9]%\1%g
  319. :1,\$s%\\\\fB\([^\]*\)\\\\fP%<B>\1</B>%g
  320. :1,\$s%\\\\fB\([^\]*\)\\\\fR%<B>\1</B>%g
  321. :1,\$s%\\\\fB\([^\]*\)\\\\fI\([^\]*\)\\\\fR%<B>\1</B><I>\2</I>%g
  322. :1,\$s%\\\\fI\([^\]*\)\\\\fP%<I>\1</I>%g
  323. :1,\$s%\\\\fI\([^\]*\)\\\\fR%<I>\1</I>%g
  324. :1,\$s%\\\\fI\([^\]*\)\\\\fB\([^\]*\)\\\\fR%<I>\1</I><B>\2</B>%g
  325. :1,\$s%\.BI\(.*\) \(.*\)$%<B>\1</B> <I>\2</I>%g
  326. :1,\$s%\.B[IR] \(.*\)%<B>\1</B>%g
  327. :1,\$s%\.B\(.*\)%<B>\1</B>%g
  328. :1,\$s%\.IP \(.*\) [0-9]i%\.IP \1%g
  329. :1,\$s%\.I[^P] \(.*\)%<I>\1</I>%g
  330. :1,\$s%\.I\(.*\)\\\\fP%<I>\1</I>%g
  331. :1,\$s%\.I\(.*\)%<I>\1</I>%g
  332. :1,\$s%\\\\-\(.*\)%-\1%g
  333. :1,\$s%[sS]ee \"\(.*\)\"%See \"<A HREF\=\"$name.html#\1\">\1</A>\"%g
  334. :1,\$s%[sS]ee \(.*\) \"\(.*\)\"%See \1 \"<A HREF\=\"$name.html#\2\">\2</A>\"%g
  335. :1,\$s%\\\\0\\\\0\\\\(rh\\\\0\\\\0%  =>  %g
  336. :1,\$s%\\\\&%%g
  337. :wq
  338. ETIQ
  339.  
  340. echo "
  341. <HTML><HEAD>
  342. <TITLE>Manuel de la commande: `echo $name|cut -d. -f1`</TITLE>
  343. </HEAD><BODY>
  344. "
  345.  
  346. $AWK '
  347.     BEGIN {
  348.         chapitre=0
  349.         section=0
  350.         sous_chapitre=0
  351.  
  352.         premier=1
  353.         marque=0
  354.         gras=0
  355.         italique=0
  356.         ip=0
  357.         sh=0
  358.         last=0
  359.         tab=0
  360.         see=0
  361.         ul=0
  362.     }
  363.  
  364.     /^\.ad/{
  365.         next
  366.     }
  367.  
  368.     /^\.ns/{
  369.         next
  370.     }
  371.  
  372.     /^\.de/{
  373.         next
  374.     }
  375.  
  376.     /^\.\\"/{
  377.         next
  378.     }
  379.  
  380.     /^\.UC/{
  381.         next
  382.     }
  383.  
  384.     /^\.sp[ \t]*$/{
  385.         print "<BR><BR>"
  386.         next
  387.     }
  388.  
  389.     /^\.ev/{
  390.         next
  391.     }
  392.  
  393.     /^\.t[ia] /{
  394.         next
  395.     }
  396.  
  397.     /^\.nf/{
  398.         if(ul) print "</UL>"
  399.  
  400.         ul=1
  401.         print "<UL>"
  402.         next
  403.     }
  404.  
  405.     /^\.fi/{
  406.         if(ul)    print "</UL>"
  407.         ul=0
  408.         next
  409.     }
  410.  
  411.     /^\.i[nf] /{
  412.         next
  413.     }
  414.  
  415.     /^\.d[es] /{
  416.         next
  417.     }
  418.  
  419.     /^\.n[hfs][ \t]*$/{
  420.         next
  421.     }
  422.  
  423.     /^\.na[ \t]*$/{
  424.         print "<BR>"
  425.         next
  426.     }
  427.  
  428.     /^\.ft/{
  429.         next
  430.     }
  431.  
  432.     /^\.R[ES][ \t]*/{
  433.         next
  434.     }
  435.  
  436.     /^\.TH/{
  437.         if(marque) marque=0
  438.         if(tab) tab=0
  439.         if(ip == 1) print "</UL>"
  440.         if(ul) print "</UL>"
  441.  
  442.         sub(/\.TH/, "", $0)
  443.  
  444.         print "<BR>"
  445.         printf("<H1> <A HREF=%s.html>", nom_appli)
  446.         printf("%s", $1) | "dd conv=ucase 2> /dev/null | cat"
  447.         close("dd conv=ucase 2> /dev/null | cat")
  448.         printf("(%s)", $2)
  449.         print "</A></H1>"
  450.  
  451.         ip=0
  452.         sh=0
  453.         see=0
  454.         ul=0
  455.  
  456.         next
  457.     }
  458.  
  459.     /^\.SH /{
  460.         see=0
  461.  
  462.         if(ip == 1) print "</UL>"
  463.         if(ul) print "</UL>"
  464.         if(sous_chapitre) print "</UL>"
  465.         if(section) print "</UL>"
  466.         if(chapitre) print "</P></DD></DT>"
  467.  
  468.         see=index($0, "SEE ALSO")
  469.  
  470.         sub(/\.SH /, "", $0)
  471.         gsub(/\t/, " ", $0)
  472.  
  473.         if(premier == 0) print "<HR SIZE=5>"
  474.  
  475.         printf("<H2><A NAME=\"%s\">%s</H2>\n", $0, $0)
  476.         print "<DT><DD><P>"
  477.  
  478.         chapitre=1
  479.         sous_chapitre=0
  480.         section=0
  481.         last=2
  482.         marque=0
  483.         tab=0
  484.         ip=0
  485.         premier=0
  486.         sh=1
  487.         ul=0
  488.  
  489.         next
  490.     }
  491.  
  492.     /^\.SS /{
  493.         if(ip == 1) print "</UL>"
  494.         if(ul) print "</UL>"
  495.         if(sous_chapitre) print "</UL>"
  496.         if(section) print "</UL>"
  497.  
  498.         sub(/\.SS /, "", $0)
  499.         gsub(/\t/, " ", $0)
  500.         printf("<H3><A NAME=\"%s\"> <IMG SRC=ball.gif> %s</H3>\n", $0, $0)
  501.         print "<UL>"
  502.  
  503.         section=1
  504.         last=2
  505.         ip=0
  506.         sh=0
  507.         sous_chapitre=0
  508.         marque=0
  509.         tab=0
  510.         see=0
  511.         ul=0
  512.  
  513.         next
  514.     }
  515.  
  516.     /^\.TP [0-9]*[\.]?[0-9]*/{
  517.         if(ip == 1) print "</UL>"
  518.         if(ul) print "</UL>"
  519.         if(last == 0) print "<BR>"
  520.  
  521.         marque=1
  522.         tab=1
  523.         ip=0
  524.         sh=0
  525.         see=0
  526.         ul=0
  527.  
  528.         next
  529.     }
  530.  
  531.     /^\.[HT]P[ \t]*$/ {
  532.         if(ip == 1) print "</UL>"
  533.         if(ul) print "</UL>"
  534.         if(last == 0) print "<BR>"
  535.  
  536.         marque=1
  537.         tab=1
  538.         ip=0
  539.         sh=0
  540.         see=0
  541.  
  542.         next
  543.     }
  544.  
  545.     /\\\(bu/{
  546.         if(ip == 1) print "</UL>"
  547.  
  548.         ip=0
  549.         sh=0
  550.         last=0
  551.         see=0
  552.         ul=0
  553.  
  554.         next
  555.     }
  556.  
  557.     /^\.P[PD][ \t]*[0-9]*/{
  558.         ip=0
  559.         sh=0
  560.         see=0
  561.  
  562.         next
  563.     }
  564.  
  565.     /^\.IP[ \t]*$/{
  566.         if(ip == 1) print "</UL>"
  567.         if(ul) print "</UL>"
  568.         if(last == 0) print "<BR>"
  569.  
  570.         print "<BR><UL>"
  571.  
  572.         ip=1
  573.         marque=0
  574.         tab=0
  575.         sh=0
  576.         last=0
  577.         see=0
  578.         ul=0
  579.  
  580.         next
  581.     }
  582.  
  583.     /^\.IP [ \t]*"[0-9]+\." [0-9]*[ \t]*$/{
  584.         if(ip == 1) print "</UL>"
  585.         if(ul) print "</UL>"
  586.  
  587.         gsub(/\.IP [ \t]*/, "", $0)
  588.         gsub(/"/, "", $0)
  589.         gsub(/ [0-9]*[ \t]*$/, "", $0)
  590.  
  591.         printf("<UL><LI>%s ", $0)
  592.         getline
  593.         print $0
  594.  
  595.         ip=1
  596.         marque=0
  597.         tab=0
  598.         sh=0
  599.         last=0
  600.         see=0
  601.         ul=0
  602.  
  603.         next
  604.     }
  605.  
  606.     /^\.IP/{
  607.         if(ip == 1) print "</UL>"
  608.         if(ul) print "</UL>"
  609.  
  610.         gsub(/\.IP/, "", $0)
  611.         gsub(/"/, "", $0)
  612.  
  613.         if(length($0) > 2) printf("<H3><IMG SRC=ball.gif> %s</H3>\n", $0)
  614.  
  615.         print "<UL><LI>"
  616.  
  617.         ip=1
  618.         sh=0
  619.         marque=0
  620.         tab=0
  621.         last=0
  622.         see=0
  623.         ul=0
  624.  
  625.         next
  626.     }
  627.  
  628.     /^\.LP/{
  629.  
  630.         next
  631.     }
  632.  
  633.     /^$/{
  634.         if(last != 2)
  635.         {
  636.             print "<BR><BR>"
  637.             last=1
  638.         }
  639.  
  640.         next
  641.     }
  642.  
  643.     /\\fB/ {
  644.         if(gras) gsub(/\\fP/, "</B>", $0)
  645.  
  646.         gsub(/\\fB/, "<B>", $0)
  647.         gras=1
  648.     }
  649.  
  650.     /\\fI/ {
  651.         if(italique) gsub(/\\fP/, "", $0)
  652.  
  653.         gsub(/\\fI/, "", $0)
  654.         italique=1
  655.     }
  656.  
  657.     /\\fP/ {
  658.         if(gras)
  659.         {
  660.             gras=0
  661.             gsub(/\\fP/, "</B>", $0)
  662.         }
  663.  
  664.         if(italique)
  665.         {
  666.             italique=0
  667.             gsub(/\\fP/, "", $0)
  668.         }
  669.  
  670.         gsub(/\\fP/, "", $0)
  671.     }
  672.  
  673.     /\.br/ {
  674.         if(marque || last == 1)
  675.             sub(/\.br/, "", $0)
  676.         else
  677.             sub(/\.br/, "<BR>", $0)
  678.  
  679.         print $0
  680.  
  681.         next
  682.     }
  683.  
  684.     /[sS]ee / {
  685.         pos1=index($0, ".html#")
  686.         pos2=index($0, "\">")
  687.         pos1=pos1+length(".html#")
  688.         pos2=pos2+length("\">")
  689.  
  690.         if(pos2 > 0)
  691.         {
  692.             printf("%s", substr($0, 0, pos1-1))
  693.             print substr($0, pos1, pos2-pos1) | "dd conv=ucase 2> /dev/null | cat"
  694.             close("dd conv=ucase 2> /dev/null | cat")
  695.             print substr($0, pos2, length($0)-pos2)
  696.  
  697.             next
  698.         }    
  699.     }
  700.     {
  701.         if(marque)
  702.         {
  703.             marque=0
  704.             if(last == 1)
  705.                 printf("<IMG SRC=ball.gif> %s\n", $0)
  706.             else
  707.                 printf("<BR><IMG SRC=ball.gif> %s\n", $0)
  708.         }
  709.         else
  710.         {
  711.             if(ul)
  712.                 print $0, "<BR>"
  713.             else
  714.             {
  715.                 if (see)
  716.                 {
  717.                     for(i=1; i <= NF; i++)
  718.                     {
  719.                         if(index($i, "<"))
  720.                         {
  721.                             printf("%s ", $i)
  722.                             continue
  723.                         }
  724.  
  725.                         lefichier=$i
  726.                         par=index($i, "(")
  727.  
  728.                         if (par)
  729.                             lefichier=substr($i, 0, par-1)
  730.  
  731.                         rep_fichier=lefichier
  732.                         if (system("ls " rep_fichier " 1> /dev/null 2> /dev/null && exit 1 || exit 0"))
  733.                             printf(" <A HREF=%s.html>%s</A>", lefichier, $i)
  734.                         else
  735.                             printf("%s ", $i)
  736.                     }
  737.  
  738.                     print ""
  739.                 }
  740.                 else
  741.                     print $0
  742.             }
  743.         }
  744.  
  745.         sh=0
  746.         last=0
  747.     }
  748.  
  749.     END {
  750.         if(ip == 2) print "</UL>"
  751.         if(ul) print "</UL>"
  752.         if(sous_chapitre) print "</UL>"
  753.         if(section) print "</P></DD></DT>"
  754.         if(chapitre) print "</P></DD></DT>"
  755.  
  756.         print "</BODY></HTML>"
  757.     }' file=$name nom_appli=`echo $name | cut -d. -f1` /tmp/${NOM_PROCEDURE}.$$
  758.  
  759. rm -f /tmp/${NOM_PROCEDURE}.$$
  760. [ $RM -eq 1 ] && rm -f $fichier
  761.  
  762.