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;
|
||||
|
||||
#The confluence space. Can be overridden with the -c switch!! See the main script.
|
||||
our $confSpace="ECC";
|
||||
|
||||
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 $cmd="$CONF -a addPage --noConvert --replace --space \"ECC\" --title \"$title\" --parent \"$parentPage\" --file $fHtml";
|
||||
#my $cmd="$CONF -a addPage --noConvert --replace --space \"~cgr\" --title \"$title\" --parent \"$parentPage\" --file $fHtml";
|
||||
my $cmd="$CONF -a addPage --noConvert --replace --space \"$confSpace\" --title \"$title\" --parent \"$parentPage\" --file $fHtml";
|
||||
|
||||
print "\t\tUpload to conflunce with command:\n\t$cmd\n";
|
||||
system($cmd);
|
||||
|
|
|
|||
|
|
@ -9,23 +9,47 @@ use strict;
|
|||
#--------------------------------------------------
|
||||
|
||||
#The root page of examples in confluence!!! The root page must exit!!!!
|
||||
my $rootPage="Command line tools";
|
||||
my $unique;
|
||||
my $binDir;
|
||||
my $resMode="doc"; #can be: doc, example, both
|
||||
|
||||
my $preview=1;
|
||||
my $previewStr=" - preview";
|
||||
|
||||
#---------------------------------
|
||||
# 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");
|
||||
|
||||
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
|
||||
#----------------------------------
|
||||
|
||||
#The tools executales and shell scripts
|
||||
#The tools shell scripts are located here
|
||||
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
|
||||
my $htmlDir=$ENV{TMPDIR}."/res_tools_html";
|
||||
|
|
@ -41,6 +65,19 @@ unless ( -d $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.)
|
||||
#---------------------------------------------------
|
||||
|
|
@ -77,16 +114,16 @@ foreach my $cType (keys %allTools) {
|
|||
foreach my $name (@tools) {
|
||||
|
||||
if($unique eq "" or $name eq $unique) {
|
||||
|
||||
print "-------------------------------\n--> tool: ".$name."\n";
|
||||
|
||||
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);
|
||||
|
||||
$str=$str.getExample($name);
|
||||
|
||||
print OUT $str;
|
||||
|
||||
close OUT;
|
||||
|
|
@ -94,10 +131,81 @@ foreach my $cType (keys %allTools) {
|
|||
#Upload the file to confluence
|
||||
my $pageTitle=toolsPageTitle($name);
|
||||
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) = @_;
|
||||
|
||||
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>";
|
||||
|
||||
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>";
|
||||
|
||||
|
|
@ -223,7 +333,9 @@ sub toolsPageTitle {
|
|||
|
||||
my ($exName) = @_;
|
||||
|
||||
return $exName;
|
||||
my $str=$exName;
|
||||
if($preview == 1) { $str=$str.$previewStr;}
|
||||
return $str;
|
||||
}
|
||||
|
||||
#-----------------------------------------------------------
|
||||
|
|
@ -295,19 +407,26 @@ sub examplePath {
|
|||
|
||||
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;
|
||||
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
|
||||
#------------------------------------------------------------
|
||||
|
|
|
|||
|
|
@ -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