#!/usr/bin/perl -w
# remd: Transforme un fichier texte en fichier html. v2.2 alain Adelmar *
# Il créra un index en transformant les chapitres numerotés en liens *
# dynamiques appellant les sections transformés en pages et sous-sections *
# en chapitres ((option -n)par defaut). Grâce au jeu d'options il pourra *
# le faire à partir de texte ne comprenant que des titres et sous-titres *
# défini par des lignes vides et tabulations (option -t) ou des textes ne *
# comprenant que des titres en Maj (style page de man en text/plain) (-m) *
# Il accépte aussi le nom du fichier à traiter en tant qu'argument *
# usage: txt2html [-mnt] filename... *
# options: *
# -m chapitres et sous-chapitres définis par des MAJUSCULES. *
# -n chapitres et sous-chapitres définis par des numeros (par défaut). *
# -t chapitres et sous-chapitres définis par des tabulations. *
# -------------------------------------------------------------- *
# ( Linux & UNIX-Like ) - écrit par alain Adelmar 18.03.2001~ 11.12.2003 *
#**************************************************************************
# $ID$
# voir le nom de fichier pour les liens entre XWindow et copie_xwind
use Cwd;
$dir = cwd;
$id = 0;
$x = "x" x 25;
#traiter les options & arguments ----
if (defined $ARGV[0]) {
foreach $_ (@ARGV) {
($arg = $_ and &traite_mode($arg)) if /^-\w/;
#($ma_date = $ma_date_h) if /^--h/;
if ($_ =~ /\w{3,}.*?$/) {
$filename = $_;
$argv++;
&ouvrir($filename);
}
}
}
else {
print "Usage:\ttxt2html [-mnt] [nom_de_fichier]\n";
$argv = 0;
$filename ="";
&ouvrir($filename);
}
$bienvenu = "$x\tx $dt x\n$x\nBienvenu sur l'éditeur alEd de Jago\n editeur alain A_d_e_l_m_a_r\nTaper Ctr-D pour sortir\n\n$x\n\n";
# mettre en variable les incontournables___
$p_s_s = 'précédant | suivant | sommaire';
$li = '';
$lblhtm = '' . "\n" . '';
$lblhtmo = '';
$h_ref = '' . "$line" . '' . "\n";
$ancre_in = '