mirror of https://github.com/ecmwf/eccodes.git
Create separate confluence page for tools examples ECC-175
This commit is contained in:
Sandor Kertesz
parent
984caab081
commit
d81621afe4
|
|
@ -2,7 +2,13 @@ package confUtils;
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
|
|
||||||
|
#The confluence space. Can be overridden with the -c switch!! See the main script.
|
||||||
|
our $confSpace="ECC";
|
||||||
|
|
||||||
my $CONF=$ENV{CONF};
|
my $CONF=$ENV{CONF};
|
||||||
|
die "Env var CONF should point to confluence.sh script" if ( $CONF eq "" || ! -f "$CONF" );
|
||||||
|
|
||||||
|
our $confSpace="ECC";
|
||||||
|
|
||||||
#====================================================
|
#====================================================
|
||||||
#
|
#
|
||||||
|
|
@ -18,8 +24,7 @@ sub loadToConf {
|
||||||
|
|
||||||
my ($fHtml,$title,$parentPage) = @_;
|
my ($fHtml,$title,$parentPage) = @_;
|
||||||
|
|
||||||
my $cmd="$CONF -a addPage --noConvert --replace --space \"ECC\" --title \"$title\" --parent \"$parentPage\" --file $fHtml";
|
my $cmd="$CONF -a addPage --noConvert --replace --space \"$confSpace\" --title \"$title\" --parent \"$parentPage\" --file $fHtml";
|
||||||
#my $cmd="$CONF -a addPage --noConvert --replace --space \"~cgr\" --title \"$title\" --parent \"$parentPage\" --file $fHtml";
|
|
||||||
|
|
||||||
print "\t\tUpload to conflunce with command:\n\t$cmd\n";
|
print "\t\tUpload to conflunce with command:\n\t$cmd\n";
|
||||||
system($cmd);
|
system($cmd);
|
||||||
|
|
|
||||||
|
|
@ -9,23 +9,47 @@ use strict;
|
||||||
#--------------------------------------------------
|
#--------------------------------------------------
|
||||||
|
|
||||||
#The root page of examples in confluence!!! The root page must exit!!!!
|
#The root page of examples in confluence!!! The root page must exit!!!!
|
||||||
my $rootPage="Command line tools";
|
|
||||||
my $unique;
|
my $unique;
|
||||||
|
my $binDir;
|
||||||
|
my $resMode="doc"; #can be: doc, example, both
|
||||||
|
|
||||||
|
my $preview=1;
|
||||||
|
my $previewStr=" - preview";
|
||||||
|
|
||||||
#---------------------------------
|
#---------------------------------
|
||||||
# Read arguments
|
# Read arguments
|
||||||
#---------------------------------
|
#---------------------------------
|
||||||
|
|
||||||
GetOptions("unique=s" => \$unique)
|
GetOptions("unique=s" => \$unique,
|
||||||
|
"binDir=s" => \$binDir,
|
||||||
|
"confSpace=s" => \$confUtils::confSpace,
|
||||||
|
"mode=s" => \$resMode)
|
||||||
or die("Error in command line arguments\n");
|
or die("Error in command line arguments\n");
|
||||||
|
|
||||||
|
print "confluence space=".$confUtils::confSpace."\n";
|
||||||
|
|
||||||
|
#Check resmode
|
||||||
|
die("Mode (-m switch) must be \"doc\", \"example\" or \"both\"") if($resMode ne "both" && $resMode ne "doc" && $resMode ne "example");
|
||||||
|
|
||||||
#----------------------------------
|
#----------------------------------
|
||||||
# Dirs
|
# Dirs
|
||||||
#----------------------------------
|
#----------------------------------
|
||||||
|
|
||||||
#The tools executales and shell scripts
|
#The tools shell scripts are located here
|
||||||
my $toolsSrcDir="../tools";
|
my $toolsSrcDir="../tools";
|
||||||
my $toolsBinDir="/var/tmp/cgr/build/eccodes/develop/bin"; #"../tools";/var/tmp/cgr/build/eccodes/develop
|
|
||||||
|
#The tools executables are located here. The shell scripts will be copied into
|
||||||
|
#this directory. The shell scipts are required to be in the directory of the executables.
|
||||||
|
my $toolsBinDir;
|
||||||
|
if ($binDir && -d $binDir) {
|
||||||
|
$toolsBinDir=$binDir;
|
||||||
|
} else {
|
||||||
|
die("Tools bin dir is not defined. Please use the -b switch to specify it!");
|
||||||
|
}
|
||||||
|
|
||||||
|
#Check definition path
|
||||||
|
my $defPath=$ENV{ECCODES_DEFINITION_PATH};
|
||||||
|
die "Env var ECCODES_DEFINITION_PATH should point to a valid directory" if ( $defPath eq "" || ! -d "$defPath" );
|
||||||
|
|
||||||
#The genareted html files are stored here
|
#The genareted html files are stored here
|
||||||
my $htmlDir=$ENV{TMPDIR}."/res_tools_html";
|
my $htmlDir=$ENV{TMPDIR}."/res_tools_html";
|
||||||
|
|
@ -41,6 +65,19 @@ unless ( -d $htmlDir ) {
|
||||||
mkdir $htmlDir
|
mkdir $htmlDir
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if($resMode eq "both" || $resMode eq "doc") {
|
||||||
|
|
||||||
|
#==========================================================
|
||||||
|
#
|
||||||
|
# Documentation (including examples)
|
||||||
|
#
|
||||||
|
#==========================================================
|
||||||
|
|
||||||
|
my $rootPage="Command line tools";
|
||||||
|
if ($preview == 1) {
|
||||||
|
$rootPage=$rootPage.$previewStr;
|
||||||
|
}
|
||||||
|
|
||||||
#---------------------------------------------------
|
#---------------------------------------------------
|
||||||
# Loop for the code types (e.g. grib, bufr, etc.)
|
# Loop for the code types (e.g. grib, bufr, etc.)
|
||||||
#---------------------------------------------------
|
#---------------------------------------------------
|
||||||
|
|
@ -78,14 +115,14 @@ foreach my $cType (keys %allTools) {
|
||||||
|
|
||||||
if($unique eq "" or $name eq $unique) {
|
if($unique eq "" or $name eq $unique) {
|
||||||
|
|
||||||
print "-------------------------------\n--> tool: ".$name."\n";
|
print "-------------------------------\n--> tool: ".$name."\n";
|
||||||
|
|
||||||
my $fOut=$htmlDir."/".$cType."_".$name.".html";
|
my $fOut=$htmlDir."/".$cType."_".$name.".html";
|
||||||
open(OUT,">$fOut") or die "$fOut: $!";
|
open(OUT,">$fOut") or die "$fOut: $!";
|
||||||
|
|
||||||
my $str=getDoc($name);
|
my $str=getDoc($name);
|
||||||
|
|
||||||
#$str=$str.getExample($name);
|
$str=$str.getExample($name);
|
||||||
|
|
||||||
print OUT $str;
|
print OUT $str;
|
||||||
|
|
||||||
|
|
@ -94,10 +131,81 @@ foreach my $cType (keys %allTools) {
|
||||||
#Upload the file to confluence
|
#Upload the file to confluence
|
||||||
my $pageTitle=toolsPageTitle($name);
|
my $pageTitle=toolsPageTitle($name);
|
||||||
confUtils::loadToConf($fOut,$pageTitle,$parentPage);
|
confUtils::loadToConf($fOut,$pageTitle,$parentPage);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
if($resMode eq "both" || $resMode eq "example") {
|
||||||
|
|
||||||
|
#==========================================================
|
||||||
|
#
|
||||||
|
# Examples only
|
||||||
|
#
|
||||||
|
#==========================================================
|
||||||
|
|
||||||
|
my $rootPage="Command line tools examples";
|
||||||
|
if ($preview == 1) {
|
||||||
|
$rootPage=$rootPage.$previewStr;
|
||||||
|
}
|
||||||
|
|
||||||
|
#---------------------------------------------------
|
||||||
|
# Loop for the code types (e.g. grib, bufr, etc.)
|
||||||
|
#---------------------------------------------------
|
||||||
|
|
||||||
|
foreach my $cType (keys %allTools) {
|
||||||
|
|
||||||
|
if($cType eq "Generic") {continue;}
|
||||||
|
|
||||||
|
print "----------------------------------------\n";
|
||||||
|
print " Processing tools for: $cType\n";
|
||||||
|
print "----------------------------------------\n";
|
||||||
|
|
||||||
|
#Get the examples
|
||||||
|
my @tools=@{$allTools{$cType}};
|
||||||
|
|
||||||
|
if($#tools+1 == 0) {
|
||||||
|
die "No tools are defined!\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
#---------------------------------------------------
|
||||||
|
# Create a parent page for the tools of this type
|
||||||
|
#---------------------------------------------------
|
||||||
|
|
||||||
|
#print "--> Genarate parent page\n";
|
||||||
|
|
||||||
|
my $pageTitle=parentPageTitle($cType." examples");
|
||||||
|
my $parentPage=$rootPage;
|
||||||
|
|
||||||
|
#unless($unique) {
|
||||||
|
# makeParentPage($rootPage,$parentPage,$htmlDir,$cType,@tools);
|
||||||
|
#}
|
||||||
|
|
||||||
|
#--------------------------------
|
||||||
|
# Loop for the tools
|
||||||
|
#--------------------------------
|
||||||
|
|
||||||
|
my $fOut=$htmlDir."/".$cType."_all.html";
|
||||||
|
open(OUT,">$fOut") or die "$fOut: $!";
|
||||||
|
|
||||||
|
foreach my $name (@tools) {
|
||||||
|
|
||||||
|
if($unique eq "" or $name eq $unique) {
|
||||||
|
|
||||||
|
print "-------------------------------\n--> tool: ".$name."\n";
|
||||||
|
|
||||||
|
my $str=getExample($name);
|
||||||
|
|
||||||
|
print OUT $str;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
confUtils::loadToConf($fOut,$pageTitle,$parentPage);
|
||||||
|
close OUT;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
#===========================================================
|
#===========================================================
|
||||||
#===========================================================
|
#===========================================================
|
||||||
#
|
#
|
||||||
|
|
@ -185,7 +293,9 @@ sub parentPageTitle {
|
||||||
|
|
||||||
my ($codeType) = @_;
|
my ($codeType) = @_;
|
||||||
|
|
||||||
return $codeType." tools";
|
my $str=$codeType." tools";
|
||||||
|
if($preview == 1) { $str=$str.$previewStr;}
|
||||||
|
return $str;
|
||||||
}
|
}
|
||||||
|
|
||||||
#--------------------------------------------------------
|
#--------------------------------------------------------
|
||||||
|
|
@ -203,7 +313,7 @@ sub makeParentPage {
|
||||||
$str=$str."<tr><th>Name</th><th>Description</th></tr>";
|
$str=$str."<tr><th>Name</th><th>Description</th></tr>";
|
||||||
|
|
||||||
foreach my $xm (@xmp) {
|
foreach my $xm (@xmp) {
|
||||||
$str=$str."<tr><td>".confUtils::linkToPage($xm,toolsPageTitle($xm))."</td><td>".getDescription($xm)."</td></tr>";
|
$str=$str."<tr><td>".confUtils::linkToPage(toolsPageTitle($xm),toolsPageTitle($xm))."</td><td>".getDescription($xm)."</td></tr>";
|
||||||
}
|
}
|
||||||
$str=$str."</tbody></table>";
|
$str=$str."</tbody></table>";
|
||||||
|
|
||||||
|
|
@ -223,7 +333,9 @@ sub toolsPageTitle {
|
||||||
|
|
||||||
my ($exName) = @_;
|
my ($exName) = @_;
|
||||||
|
|
||||||
return $exName;
|
my $str=$exName;
|
||||||
|
if($preview == 1) { $str=$str.$previewStr;}
|
||||||
|
return $str;
|
||||||
}
|
}
|
||||||
|
|
||||||
#-----------------------------------------------------------
|
#-----------------------------------------------------------
|
||||||
|
|
@ -296,18 +408,25 @@ sub examplePath {
|
||||||
my $script=$name.".sh";
|
my $script=$name.".sh";
|
||||||
my $exe=$toolsBinDir."/".$script;
|
my $exe=$toolsBinDir."/".$script;
|
||||||
|
|
||||||
if( -e $exe) {
|
#The shell script has to be in the bin dir. If it is not there we
|
||||||
|
#copy it into it.
|
||||||
|
unless( -e $exe) {
|
||||||
|
my $cmd="cp ".$toolsSrcDir."/".$script." ".$toolsBinDir;
|
||||||
|
system($cmd);
|
||||||
|
}
|
||||||
|
|
||||||
my $cmd="cd ".$toolsBinDir.";./".$script." > ".$fTmp;
|
if( -e $exe) {
|
||||||
|
my $cmd="cd ".$toolsBinDir.";./".$script." > ".$fTmp."; cd -";
|
||||||
print "\tGenerate examples text with command:\n\t\t".$cmd."\n";
|
print "\tGenerate examples text with command:\n\t\t".$cmd."\n";
|
||||||
system($cmd);
|
system($cmd);
|
||||||
return $fTmp;
|
return $fTmp;
|
||||||
|
} else {
|
||||||
|
print "\tShell script was not found for tool ".$name." as ".$exe." .Could not generate examples\n";
|
||||||
}
|
}
|
||||||
|
|
||||||
return "";
|
return "";
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
#------------------------------------------------------------
|
#------------------------------------------------------------
|
||||||
# Generate confluence formatted html string form a source file
|
# Generate confluence formatted html string form a source file
|
||||||
#------------------------------------------------------------
|
#------------------------------------------------------------
|
||||||
|
|
|
||||||
|
|
@ -1,595 +0,0 @@
|
||||||
#!/usr/local/apps/perl/current/bin/perl -I/usr/local/lib/metaps/perl -I.
|
|
||||||
|
|
||||||
use confUtils;
|
|
||||||
use Getopt::Long;
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
#--------------------------------------------------
|
|
||||||
#
|
|
||||||
#--------------------------------------------------
|
|
||||||
|
|
||||||
#The root page of examples in confluence!!! The root page must exit!!!!
|
|
||||||
my $unique;
|
|
||||||
my $binDir;
|
|
||||||
|
|
||||||
my $preview=1;
|
|
||||||
my $previewStr=" - preview";
|
|
||||||
|
|
||||||
#---------------------------------
|
|
||||||
# Read arguments
|
|
||||||
#---------------------------------
|
|
||||||
|
|
||||||
GetOptions("unique=s" => \$unique,
|
|
||||||
"binDir=s" => \$binDir)
|
|
||||||
or die("Error in command line arguments\n");
|
|
||||||
|
|
||||||
#----------------------------------
|
|
||||||
# Dirs
|
|
||||||
#----------------------------------
|
|
||||||
|
|
||||||
#The tools shell scripts are located here
|
|
||||||
my $toolsSrcDir="../tools";
|
|
||||||
|
|
||||||
#The tools executables are located here. The shell scripts will be copied into
|
|
||||||
#this directory. The shell scipts are required to be in the directory of the executables.
|
|
||||||
my $toolsBinDir="/var/tmp/cgr/build/eccodes/develop/bin";
|
|
||||||
if ($binDir) {
|
|
||||||
$toolsBinDir=$binDir;
|
|
||||||
} else {
|
|
||||||
die("Tools bin dir is not defined. Please use the -b switch to specify it!");
|
|
||||||
}
|
|
||||||
|
|
||||||
#The genareted html files are stored here
|
|
||||||
my $htmlDir=$ENV{TMPDIR}."/res_tools_html";
|
|
||||||
|
|
||||||
my %cmdSwitches=();
|
|
||||||
my %allTools=read_config();
|
|
||||||
|
|
||||||
#----------------------------------------
|
|
||||||
# Preparations
|
|
||||||
#----------------------------------------
|
|
||||||
|
|
||||||
unless ( -d $htmlDir ) {
|
|
||||||
mkdir $htmlDir
|
|
||||||
}
|
|
||||||
|
|
||||||
if(1 == 0 ) {
|
|
||||||
|
|
||||||
#==========================================================
|
|
||||||
#
|
|
||||||
# Documentation (including examples)
|
|
||||||
#
|
|
||||||
#==========================================================
|
|
||||||
|
|
||||||
my $rootPage="Command line tools";
|
|
||||||
if ($preview == 1) {
|
|
||||||
$rootPage=$rootPage.$previewStr;
|
|
||||||
}
|
|
||||||
|
|
||||||
#---------------------------------------------------
|
|
||||||
# Loop for the code types (e.g. grib, bufr, etc.)
|
|
||||||
#---------------------------------------------------
|
|
||||||
|
|
||||||
foreach my $cType (keys %allTools) {
|
|
||||||
|
|
||||||
print "----------------------------------------\n";
|
|
||||||
print " Processing tools for: $cType\n";
|
|
||||||
print "----------------------------------------\n";
|
|
||||||
|
|
||||||
#Get the examples
|
|
||||||
my @tools=@{$allTools{$cType}};
|
|
||||||
|
|
||||||
if($#tools+1 == 0) {
|
|
||||||
die "No tools are defined!\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
#---------------------------------------------------
|
|
||||||
# Create a parent page for the tools of this type
|
|
||||||
#---------------------------------------------------
|
|
||||||
|
|
||||||
print "--> Genarate parent page\n";
|
|
||||||
|
|
||||||
my $parentPage=parentPageTitle($cType);
|
|
||||||
|
|
||||||
unless($unique) {
|
|
||||||
makeParentPage($rootPage,$parentPage,$htmlDir,$cType,@tools);
|
|
||||||
}
|
|
||||||
|
|
||||||
#--------------------------------
|
|
||||||
# Loop for the tools
|
|
||||||
#--------------------------------
|
|
||||||
|
|
||||||
foreach my $name (@tools) {
|
|
||||||
|
|
||||||
if($unique eq "" or $name eq $unique) {
|
|
||||||
|
|
||||||
print "-------------------------------\n--> tool: ".$name."\n";
|
|
||||||
|
|
||||||
my $fOut=$htmlDir."/".$cType."_".$name.".html";
|
|
||||||
open(OUT,">$fOut") or die "$fOut: $!";
|
|
||||||
|
|
||||||
my $str=getDoc($name);
|
|
||||||
|
|
||||||
$str=$str.getExample($name);
|
|
||||||
|
|
||||||
print OUT $str;
|
|
||||||
|
|
||||||
close OUT;
|
|
||||||
|
|
||||||
#Upload the file to confluence
|
|
||||||
my $pageTitle=toolsPageTitle($name);
|
|
||||||
confUtils::loadToConf($fOut,$pageTitle,$parentPage);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
} else {
|
|
||||||
|
|
||||||
#==========================================================
|
|
||||||
#
|
|
||||||
# Examples only
|
|
||||||
#
|
|
||||||
#==========================================================
|
|
||||||
|
|
||||||
my $rootPage="Command line tools examples";
|
|
||||||
if ($preview == 1) {
|
|
||||||
$rootPage=$rootPage.$previewStr;
|
|
||||||
}
|
|
||||||
|
|
||||||
#---------------------------------------------------
|
|
||||||
# Loop for the code types (e.g. grib, bufr, etc.)
|
|
||||||
#---------------------------------------------------
|
|
||||||
|
|
||||||
foreach my $cType (keys %allTools) {
|
|
||||||
|
|
||||||
print "----------------------------------------\n";
|
|
||||||
print " Processing tools for: $cType\n";
|
|
||||||
print "----------------------------------------\n";
|
|
||||||
|
|
||||||
#Get the examples
|
|
||||||
my @tools=@{$allTools{$cType}};
|
|
||||||
|
|
||||||
if($#tools+1 == 0) {
|
|
||||||
die "No tools are defined!\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
#---------------------------------------------------
|
|
||||||
# Create a parent page for the tools of this type
|
|
||||||
#---------------------------------------------------
|
|
||||||
|
|
||||||
#print "--> Genarate parent page\n";
|
|
||||||
|
|
||||||
my $pageTitle=parentPageTitle($cType." examples");
|
|
||||||
my $parentPage=$rootPage;
|
|
||||||
|
|
||||||
#unless($unique) {
|
|
||||||
# makeParentPage($rootPage,$parentPage,$htmlDir,$cType,@tools);
|
|
||||||
#}
|
|
||||||
|
|
||||||
#--------------------------------
|
|
||||||
# Loop for the tools
|
|
||||||
#--------------------------------
|
|
||||||
|
|
||||||
my $fOut=$htmlDir."/".$cType."_all.html";
|
|
||||||
open(OUT,">$fOut") or die "$fOut: $!";
|
|
||||||
|
|
||||||
foreach my $name (@tools) {
|
|
||||||
|
|
||||||
if($unique eq "" or $name eq $unique) {
|
|
||||||
|
|
||||||
print "-------------------------------\n--> tool: ".$name."\n";
|
|
||||||
|
|
||||||
my $str=getExample($name);
|
|
||||||
|
|
||||||
print OUT $str;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
confUtils::loadToConf($fOut,$pageTitle,$parentPage);
|
|
||||||
close OUT;
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
#===========================================================
|
|
||||||
#===========================================================
|
|
||||||
#
|
|
||||||
# FUNCTIONS
|
|
||||||
#
|
|
||||||
#===========================================================
|
|
||||||
#===========================================================
|
|
||||||
|
|
||||||
#====================================================
|
|
||||||
#
|
|
||||||
# Functions related to the examples
|
|
||||||
#
|
|
||||||
#====================================================
|
|
||||||
|
|
||||||
#------------------------------------------
|
|
||||||
# Read in example list
|
|
||||||
#------------------------------------------
|
|
||||||
|
|
||||||
sub read_config {
|
|
||||||
|
|
||||||
my %res=();
|
|
||||||
my $fIn="tools.par";
|
|
||||||
open(IN,"<$fIn") or die "$fIn: $!";
|
|
||||||
|
|
||||||
my $line;
|
|
||||||
my $actType;
|
|
||||||
while (defined ($line = <IN>)) {
|
|
||||||
chomp($line);
|
|
||||||
if ($line =~ /.*#/) {next;}
|
|
||||||
|
|
||||||
#print $line."\n";
|
|
||||||
|
|
||||||
$line =~ s/\"//g;
|
|
||||||
|
|
||||||
my ($a)=($line =~ /(\S+)\s*\(/);
|
|
||||||
if($a and ($a !~ /\!/)) {
|
|
||||||
$actType=$a;
|
|
||||||
#print "type: ".$a."\n";
|
|
||||||
#$res{$actType};
|
|
||||||
next;
|
|
||||||
}
|
|
||||||
|
|
||||||
if( $line =~ /\)/) {
|
|
||||||
$actType="";
|
|
||||||
next;
|
|
||||||
}
|
|
||||||
|
|
||||||
if(length($actType) > 0) {
|
|
||||||
|
|
||||||
#If ! presents we skip this tool
|
|
||||||
if($line =~ /^\s*!/) {
|
|
||||||
next;
|
|
||||||
|
|
||||||
#A switch is specified for the tool's shell script
|
|
||||||
} elsif( $line =~ /\S+ \S+/) {
|
|
||||||
|
|
||||||
my ($b,$c)=($line =~ /(\S+) (\S+)/);
|
|
||||||
if($b) {
|
|
||||||
push(@{$res{$actType}},$b);
|
|
||||||
$cmdSwitches{$b}="$c";
|
|
||||||
}
|
|
||||||
|
|
||||||
#The tools shell script has to be called without a switch
|
|
||||||
} else {
|
|
||||||
my ($b) =($line =~ /(\S+)/);
|
|
||||||
#print "ex: ".$b."\n";
|
|
||||||
if($b) {
|
|
||||||
push(@{$res{$actType}},$b);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
close IN;
|
|
||||||
|
|
||||||
return %res;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-----------------------------------------------------------------------------
|
|
||||||
# Genarate the page title for the parent page for a given type of examples
|
|
||||||
#-----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
sub parentPageTitle {
|
|
||||||
|
|
||||||
my ($codeType) = @_;
|
|
||||||
|
|
||||||
my $str=$codeType." tools";
|
|
||||||
if($preview == 1) { $str=$str.$previewStr;}
|
|
||||||
return $str;
|
|
||||||
}
|
|
||||||
|
|
||||||
#--------------------------------------------------------
|
|
||||||
# Create parent page for a given type of examples
|
|
||||||
#--------------------------------------------------------
|
|
||||||
|
|
||||||
sub makeParentPage {
|
|
||||||
my ($rootPage,$pageTitle,$outDir,$cType,@xmp) = @_;
|
|
||||||
|
|
||||||
my $f=$outDir."/parent_".$cType."html";
|
|
||||||
|
|
||||||
open(OUT,">$f") or die "$f: $!";
|
|
||||||
|
|
||||||
my $str="<table><tbody>";
|
|
||||||
$str=$str."<tr><th>Name</th><th>Description</th></tr>";
|
|
||||||
|
|
||||||
foreach my $xm (@xmp) {
|
|
||||||
$str=$str."<tr><td>".confUtils::linkToPage(toolsPageTitle($xm),toolsPageTitle($xm))."</td><td>".getDescription($xm)."</td></tr>";
|
|
||||||
}
|
|
||||||
$str=$str."</tbody></table>";
|
|
||||||
|
|
||||||
print OUT $str;
|
|
||||||
|
|
||||||
close OUT;
|
|
||||||
|
|
||||||
#Load it to confluence
|
|
||||||
confUtils::loadToConf($f,$pageTitle,$rootPage);
|
|
||||||
}
|
|
||||||
|
|
||||||
#-----------------------------------------------------------------------------
|
|
||||||
# Genarate the page title for a given example
|
|
||||||
#-----------------------------------------------------------------------------
|
|
||||||
|
|
||||||
sub toolsPageTitle {
|
|
||||||
|
|
||||||
my ($exName) = @_;
|
|
||||||
|
|
||||||
my $str=$exName;
|
|
||||||
if($preview == 1) { $str=$str.$previewStr;}
|
|
||||||
return $str;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-----------------------------------------------------------
|
|
||||||
# Get the file path for an example with the given language
|
|
||||||
#-----------------------------------------------------------
|
|
||||||
|
|
||||||
sub toolsBinPath {
|
|
||||||
my ($name) = @_;
|
|
||||||
return $toolsBinDir."/".$name;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-----------------------------------------------------------
|
|
||||||
# Check if the file for a given example exists.
|
|
||||||
#-----------------------------------------------------------
|
|
||||||
|
|
||||||
sub hasExample {
|
|
||||||
|
|
||||||
my ($name,$lang) = @_;
|
|
||||||
#my $f=examplePath($name,$lang);
|
|
||||||
#if( -e $f ) {return 1};
|
|
||||||
|
|
||||||
#print "$f no!!!\n";
|
|
||||||
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub docPath {
|
|
||||||
|
|
||||||
my ($name) = @_;
|
|
||||||
|
|
||||||
my $fTmp=$htmlDir."/doc_".$name.".tmp";
|
|
||||||
|
|
||||||
my $exe=$name;
|
|
||||||
if( -e $toolsBinDir."/".$exe) {
|
|
||||||
|
|
||||||
my $swt;
|
|
||||||
if(defined($cmdSwitches{$name})) {
|
|
||||||
$swt=$cmdSwitches{$name};
|
|
||||||
}
|
|
||||||
|
|
||||||
my $cmd;
|
|
||||||
|
|
||||||
#If the switch is desc it does not run the shell script but
|
|
||||||
#use the .desc file"
|
|
||||||
if ($swt eq "desc") {
|
|
||||||
$cmd="cp ".$toolsSrcDir."/".$name.".desc ".$fTmp;
|
|
||||||
} else {
|
|
||||||
$cmd=$toolsBinDir."/".$exe." > ".$fTmp;
|
|
||||||
}
|
|
||||||
|
|
||||||
print "\tGenerate documentation with command:\n\t\t".$cmd."\n";
|
|
||||||
|
|
||||||
system($cmd);
|
|
||||||
return $fTmp;
|
|
||||||
}
|
|
||||||
|
|
||||||
return "";
|
|
||||||
}
|
|
||||||
|
|
||||||
#------------------------------------------------------------
|
|
||||||
#
|
|
||||||
#------------------------------------------------------------
|
|
||||||
|
|
||||||
sub examplePath {
|
|
||||||
|
|
||||||
my ($name) = @_;
|
|
||||||
|
|
||||||
my $fTmp=$htmlDir."/ex_".$name.".tmp";
|
|
||||||
|
|
||||||
my $script=$name.".sh";
|
|
||||||
my $exe=$toolsBinDir."/".$script;
|
|
||||||
|
|
||||||
#The shell script has to be in the bin dir. If it is not there we
|
|
||||||
#copy it into it.
|
|
||||||
unless( -e $exe) {
|
|
||||||
my $cmd="cp ".$toolsSrcDir."/".$script." ".$toolsBinDir;
|
|
||||||
system($cmd);
|
|
||||||
}
|
|
||||||
|
|
||||||
if( -e $exe) {
|
|
||||||
my $cmd="cd ".$toolsBinDir.";./".$script." > ".$fTmp."; cd -";
|
|
||||||
print "\tGenerate examples text with command:\n\t\t".$cmd."\n";
|
|
||||||
system($cmd);
|
|
||||||
return $fTmp;
|
|
||||||
} else {
|
|
||||||
print "\tShell script was not found for tool ".$name." as ".$exe." .Could not generate examples\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
return "";
|
|
||||||
}
|
|
||||||
|
|
||||||
#------------------------------------------------------------
|
|
||||||
# Generate confluence formatted html string form a source file
|
|
||||||
#------------------------------------------------------------
|
|
||||||
|
|
||||||
sub getDoc {
|
|
||||||
|
|
||||||
my ($name) = @_;
|
|
||||||
|
|
||||||
my $fPath=docPath($name);
|
|
||||||
|
|
||||||
my $str;
|
|
||||||
my $tbody=0;
|
|
||||||
|
|
||||||
open (IN,"<$fPath") or return "";
|
|
||||||
while (defined (my $line = <IN>)) {
|
|
||||||
|
|
||||||
$line =~ s/^\s+//g;
|
|
||||||
$line=~ s/\n//g;
|
|
||||||
|
|
||||||
if($line =~ /^NAME\s*/) {
|
|
||||||
next;
|
|
||||||
}
|
|
||||||
|
|
||||||
if($line =~ /^DESCRIPTION|USAGE|OPTIONS\s*/) {
|
|
||||||
|
|
||||||
if($tbody == 1) {
|
|
||||||
$str=$str."</p>";
|
|
||||||
$tbody=0;
|
|
||||||
}
|
|
||||||
|
|
||||||
$str=$str."<h2>".$line."</h2>";
|
|
||||||
|
|
||||||
unless($line =~ /OPTIONS\s*/)
|
|
||||||
{
|
|
||||||
$str=$str."<p>";
|
|
||||||
$tbody=1;
|
|
||||||
}
|
|
||||||
|
|
||||||
} elsif( $line =~ /^\s*-\w /) {
|
|
||||||
|
|
||||||
if($tbody == 1) {
|
|
||||||
$str=$str."</p>";
|
|
||||||
$tbody=0;
|
|
||||||
}
|
|
||||||
|
|
||||||
my @v=split(/\t|\s{2,}/,$line);
|
|
||||||
|
|
||||||
if($#v+1 > 0) {
|
|
||||||
$str=$str."<br /><b>".@v[0]."</b><br /><p>";
|
|
||||||
if($#v+1 > 1) {
|
|
||||||
for(my $k=1; $k <= $#v; $k++) {
|
|
||||||
$str=$str.@v[$k]." ";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
$tbody=1;
|
|
||||||
|
|
||||||
} else {
|
|
||||||
|
|
||||||
if($line =~ /\S/) {
|
|
||||||
$str=$str.$line." ";
|
|
||||||
} elsif ($tbody == 1) {
|
|
||||||
$str=$str."</p>";
|
|
||||||
$tbody=0;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
close IN;
|
|
||||||
if($tbody == 1) {
|
|
||||||
$str=$str."</p>";
|
|
||||||
}
|
|
||||||
|
|
||||||
return $str;
|
|
||||||
}
|
|
||||||
|
|
||||||
#--------------------------------------------------------
|
|
||||||
# Extract the description of a given example
|
|
||||||
#--------------------------------------------------------
|
|
||||||
|
|
||||||
sub getDescription {
|
|
||||||
|
|
||||||
my ($name) = @_;
|
|
||||||
|
|
||||||
my $fPath=docPath($name);
|
|
||||||
|
|
||||||
print "\tExtract desription from: ".$fPath."\n";
|
|
||||||
|
|
||||||
my $str;
|
|
||||||
|
|
||||||
local $/=undef;
|
|
||||||
open (IN,"<$fPath") or return "";
|
|
||||||
$str=<IN>;
|
|
||||||
close IN;
|
|
||||||
|
|
||||||
($str) = ($str =~ /DESCRIPTION\s*([\S|\s]+)USAGE/);
|
|
||||||
$str =~ s/\n/ /g;
|
|
||||||
|
|
||||||
return $str;
|
|
||||||
}
|
|
||||||
|
|
||||||
#--------------------------------------------------------
|
|
||||||
#
|
|
||||||
#--------------------------------------------------------
|
|
||||||
|
|
||||||
sub getExample {
|
|
||||||
|
|
||||||
my ($name) = @_;
|
|
||||||
|
|
||||||
my $fPath=examplePath($name);
|
|
||||||
|
|
||||||
unless($fPath) {
|
|
||||||
return "";
|
|
||||||
}
|
|
||||||
|
|
||||||
my $str;
|
|
||||||
|
|
||||||
local $/=undef;
|
|
||||||
open (IN,"<$fPath") or return "";
|
|
||||||
$str=<IN>;
|
|
||||||
close IN;
|
|
||||||
|
|
||||||
my @v=split(/-#/,$str);
|
|
||||||
|
|
||||||
$str="<h2>".$name." examples</h2>";
|
|
||||||
$str=$str."<ol>";
|
|
||||||
foreach my $block (@v) {
|
|
||||||
print "block=".$block."\n";
|
|
||||||
|
|
||||||
#If there is text
|
|
||||||
if($block =~ /\S+/) {
|
|
||||||
|
|
||||||
$block =~ s/\\n//g;
|
|
||||||
$block =~ s/\n>/\n> /g;
|
|
||||||
$block =~ s/&&/&&/g;
|
|
||||||
|
|
||||||
my $blockMod;
|
|
||||||
my $prevLine;
|
|
||||||
my $inList=0;
|
|
||||||
foreach my $line (split(/\n/,$block)) {
|
|
||||||
|
|
||||||
if($line =~ /\\verbatim/) {
|
|
||||||
$line =~ s/\\verbatim/<ac:structured-macro ac:name="code"><ac:plain-text-body><!\[CDATA\[/g;
|
|
||||||
} elsif($line =~ /\\endverbatim/) {
|
|
||||||
$line =~ s/\\endverbatim/\]\]><\/ac:plain-text-body><\/ac:structured-macro>/g;
|
|
||||||
} elsif($line =~ /\\code/) {
|
|
||||||
$line =~ s/\\code/<ac:structured-macro ac:name="code"><ac:plain-text-body><!\[CDATA\[/g;
|
|
||||||
} elsif($line =~ /\\endcode/) {
|
|
||||||
$line =~ s/\\endcode/\]\]><\/ac:plain-text-body><\/ac:structured-macro>/g;
|
|
||||||
} elsif($line =~ /^\s*- /) {
|
|
||||||
$line =~ s/^\s*- /<li>/;
|
|
||||||
|
|
||||||
if($inList == 1) {
|
|
||||||
$line="</li>".$line;
|
|
||||||
} else {
|
|
||||||
$line="<ul>".$line;
|
|
||||||
}
|
|
||||||
|
|
||||||
$inList=1;
|
|
||||||
}
|
|
||||||
|
|
||||||
if($line =~ /^\s*\.\s*/ and $inList==1) {
|
|
||||||
$line="</li></ul>";
|
|
||||||
$inList=0;
|
|
||||||
}
|
|
||||||
|
|
||||||
$prevLine=$line;
|
|
||||||
|
|
||||||
$blockMod=$blockMod.$line."\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
$str=$str."<li><p>".$blockMod."</p></li><br />";
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
$str=$str."</ol>";
|
|
||||||
|
|
||||||
|
|
||||||
return $str;
|
|
||||||
}
|
|
||||||
Loading…
Reference in New Issue