Subversion Repositories doc-tools

Compare Revisions

Ignore whitespace Rev 3 → Rev 4

/trunk/php_autodoc_fornd.pl
6,7 → 6,7
#
# Bien entendu, cela doit être ensuite complété à la main
#
# Version : 0.5.1
# Version : 0.6
#
# Language: Perl
#
135,6 → 135,11
if ($fichier=~/\.php3?$/) {
$langage = "\n language: $php_name\n";
}
elsif ($fichier=~/\.js$/) {
$langage = "\n language: $js_name\n";
$language_context=$js_name;
push(@language_context_stack, $language_context);
}
elsif ($fichier=~/\.p(l|m)$/) {
$langage = "\n language: $perl_name\n";
}
207,7 → 212,7
 
my ($func_name,$param_liste)=@_;
print O "/*\n Function: $func_name\n";
print O "\n Language:\n$language_context\n";
print O "\n Language:\n $language_context\n";
output_parameters($param_liste);
print O "\n*/\n";
}
454,6 → 459,54
}
#
# Function: backup_file
#
# Traite un fichier en entrée en lui ajoutant les commentaires
#
# Parameters:
# $inputFile : chemin d'accès au fichier
#
# Retourne:
#
# rien
#
sub backup_file {
# Récupération chemin de tavail et nom de fichier
my ($inputFile) = @_;
# Supprimer le "./" initial s'il existe ; récupérer path et fichier
#print "$inputFile\n";
$inputFile=~s!^(\./)?((.*)/)?(.*)$!$3/$4!;
my $rep=$3;
my $file=$4;
#print "$inputFile\n$rep#$file\n";
# Vérification de l'existence des répertoires du chemin de backup
# On teste d'abord le chemin complet pour aller vite
# S'il existe, on passe directement à la copie
# Sinon on le traite élément par élément de gauche à droite
my $full_dir_path="ND_backup_dir/$rep";
if (!-d $full_dir_path) {
@path_element=split('/',$full_dir_path);
my $current_path='.';
foreach my $element (@path_element ) {
$current_path="$current_path/$element";
if (!-d $current_path) {
# créer le rep;
if (! mkdir $current_path,0660) {
print "\n$current_path : erreur creation !";
}
}
}
}
# Calcul du chemin du fichier de backup
my $backupFile="ND_backup_dir/$rep/$file";
$backupFile.='.bak';
# Copie de l'original vers le répertoire de backup
copy($inputFile,$backupFile);
}
#
# Function: process_one_file
#
# Traite un fichier en entrée en lui ajoutant les commentaires
485,16 → 538,11
# Calcul du chemin du fichier d'entrée
$inputFile="$rep/$entree";
# Calcul du fichier de backup
my $backupFile="ND_backup_dir/$inputFile";
$backupFile.='.bak';
# Affichage écran du travail en cours
print "Traitement de $entree vers $sortie\n";
# Faire copie de sauvegarde
copy($inputFile,$backupFile);
backup_file($inputFile);
 
# Ouvrir les fichiers d'entrée et de sortie
open F,"$inputFile";