From e690cfc47cfd30ad12f8816387628ebc644b96fe Mon Sep 17 00:00:00 2001 From: Kornel Benko Date: Sun, 17 Nov 2013 23:17:27 +0100 Subject: [PATCH] make test environment. Exports with luatex and xetex. In successful cooperation with Scott Kostyshak. We provide many lyx-documents which are not compilable with luatex or xetex. But some of them compile, if we change the font use to non_tex_fonts. Since this would change the appropriate source, we have to convert it first into a save location. To make it there compilable, we have to convert also all file references. languages used font he|el|ru|uk 'FreeSans' fa 'FreeFarsi' zh_CN 'WenQuanYi Micro Hei' The whole job is done with a perl script. --- development/autotests/CMakeLists.txt | 11 +- development/autotests/export.cmake | 24 +- development/autotests/lyxStatus.pm | 357 ++++++++++++++++++++++++ development/autotests/revertedTests | 5 - development/autotests/useSystemFonts.pl | 348 +++++++++++++++++++++++ 5 files changed, 737 insertions(+), 8 deletions(-) create mode 100644 development/autotests/lyxStatus.pm create mode 100644 development/autotests/useSystemFonts.pl diff --git a/development/autotests/CMakeLists.txt b/development/autotests/CMakeLists.txt index 514e3bc7fb..f27b1f9c4a 100644 --- a/development/autotests/CMakeLists.txt +++ b/development/autotests/CMakeLists.txt @@ -101,9 +101,14 @@ if(Q_WS_X11) endif() endif() +find_package(Perl) + macro(getoutputformats filepath varname) file(STRINGS "${filepath}" lines) - set(out_formats "xhtml" "pdf" "pdf2" "pdf4" "pdf5") + set(out_formats "xhtml" "dvi" "dvi3" "pdf" "pdf2" "pdf3" "pdf4" "pdf5") + if(NOT PERL_FOUND) + list(REMOVE_ITEM out_formats "pdf4" "pdf5") + endif() set(${varname} ${out_formats}) foreach(_l ${lines}) if(_l MATCHES "^\\\\default_output_format +\([^ ]+\)") @@ -182,6 +187,8 @@ foreach(libsubfolder doc examples templates) -Dextension=16.lyx -Dfile=${f} -Dreverted=${reverted} + -DTOP_SRC_DIR=${TOP_SRC_DIR} + -DPERL_EXECUTABLE=${PERL_EXECUTABLE} -P "${TOP_SRC_DIR}/development/autotests/export.cmake") setmarkedtestlabel(${TestName} ${reverted} "export") endif() @@ -224,6 +231,8 @@ foreach(libsubfolder doc examples templates) -Dextension=${format} -Dfile=${f} -Dreverted=${reverted} + -DTOP_SRC_DIR=${TOP_SRC_DIR} + -DPERL_EXECUTABLE=${PERL_EXECUTABLE} -P "${TOP_SRC_DIR}/development/autotests/export.cmake") setmarkedtestlabel(${TestName} ${reverted} "export") endif() diff --git a/development/autotests/export.cmake b/development/autotests/export.cmake index e5867502dc..80ceed93ca 100755 --- a/development/autotests/export.cmake +++ b/development/autotests/export.cmake @@ -21,14 +21,34 @@ # -Dextension=xxx \ # -Dfile=xxx \ # -Dreverted=[01] \ +# -DTOP_SRC_DIR=${TOP_SRC_DIR} +# -DPERL_EXECUTABLE=${PERL_EXECUTABLE} # -P "${TOP_SRC_DIR}/development/autotests/export.cmake" # -message(STATUS "Executing ${lyx} -userdir \"${WORKDIR}/.lyx\" -E ${format} ${file}.${extension} \"${LYX_ROOT}/${file}.lyx\"") +set(Perl_Script "${TOP_SRC_DIR}/development/autotests/useSystemFonts.pl") +if(format MATCHES "pdf4|pdf5") + message(STATUS "LYX_TESTS_USERDIR = ${LYX_TESTS_USERDIR}") + message(STATUS "Converting with perl ${Perl_Script}") + set(LYX_SOURCE "${WORKDIR}/${file}_${format}.lyx") + message(STATUS "Using source \"${LYX_ROOT}/${file}.lyx\"") + message(STATUS "Using dest \"${LYX_SOURCE}\"") + execute_process(COMMAND ${PERL_EXECUTABLE} "${Perl_Script}" "${LYX_ROOT}/${file}.lyx" "${LYX_SOURCE}" ${format} + RESULT_VARIABLE _err) + string(COMPARE EQUAL ${_err} 0 _erg) + if(NOT _erg) + message(FATAL_ERROR "Export failed while converting") + endif() +else() + message(STATUS "Not converting") + set(LYX_SOURCE "${LYX_ROOT}/${file}.lyx") +endif() + +message(STATUS "Executing ${lyx} -userdir \"${LYX_TESTS_USERDIR}\" -E ${format} ${file}.${extension} \"${LYX_SOURCE}\"") set(ENV{${LYX_USERDIR_VER}} "${LYX_TESTS_USERDIR}") execute_process(COMMAND ${CMAKE_COMMAND} -E remove ${file}.${extension}) execute_process( - COMMAND ${lyx} -userdir "${LYX_TESTS_USERDIR}" -E ${format} ${file}.${extension} "${LYX_ROOT}/${file}.lyx" + COMMAND ${lyx} -userdir "${LYX_TESTS_USERDIR}" -E ${format} ${file}.${extension} "${LYX_SOURCE}" RESULT_VARIABLE _err) if(reverted) string(COMPARE EQUAL ${_err} 0 _erg) diff --git a/development/autotests/lyxStatus.pm b/development/autotests/lyxStatus.pm new file mode 100644 index 0000000000..b8d0b5fd82 --- /dev/null +++ b/development/autotests/lyxStatus.pm @@ -0,0 +1,357 @@ +#! /usr/bin/env perl +# -*- mode: perl; -*- + +package lyxStatus; + +use strict; + +our(@EXPORT, @ISA); + +BEGIN { + use Exporter (); + @ISA = qw(Exporter); + @EXPORT = qw(initLyxStack checkLyxLine closeLyxStack diestack); +} + +my @stack = (); # list of HASH-Arrays +my $rFont = {}; +# The elements are: +# type (layout, inset, header, preamble, ...) +# name +# matching list of matching spes +# search: regular expression +# ext: list of extensions needed for the full path of the file spec +# filetype: one of prefix_only,replace_only,copy_only,prefix_for_list,interpret +# fileidx: index into the resulting array, defining the filename +# result: conatenation of the elements should reflect the parsed line +# but first set the modified value into $result->[$fileidx] +# numerical value will be replaced with appropriate matching group value + +sub initLyxStack($) +{ + $rFont = $_[0]; + $stack[0] = { type => "Starting"}; +} + +sub diestack($) +{ + my ($msg) = @_; + # Print stack + print "Called stack\n"; + my @call_stack = (); + for my $depth ( 0 .. 100) { + #my ($pkg, $file, $line, $subname, $hasargs, $wantarray) = caller($depth) + my @stack = caller($depth); + last if ($stack[0] ne "main"); + push(@call_stack, \@stack); + } + for my $depth ( 0 .. 100) { + last if (! defined($call_stack[$depth])); + my $subname = $call_stack[$depth]->[3]; + my $line = $call_stack[$depth]->[2]; + print "($depth) $subname()"; + if ($depth > 0) { + my $oldline = $call_stack[$depth-1]->[2]; + print ":$oldline"; + } + print " called from "; + if (defined($call_stack[$depth+1])) { + my $parent = $call_stack[$depth+1]->[3]; + print "$parent():$line\n"; + } + else { + my $file = $call_stack[$depth]->[1]; + print "\"$file\":$line\n"; + } + } + die($msg); +} + +sub closeLyxStack() +{ + &diestack("Stack not OK") if ($stack[0]->{type} ne "Starting"); +} + +sub setMatching($) +{ + my ($match) = @_; + + $stack[0]->{"matching"} = $match; +} + +sub getMatching() +{ + return($stack[0]->{"matching"}); +} + +########################################################### +# +sub checkForEndBlock($) +{ + my ($l) = @_; + + for my $et ( qw( layout inset preamble header)) { + if ($l =~ /^\\end_$et$/) { + &diestack("Not in $et") if ($stack[0]->{type} ne "$et"); + #print "End $et\n"; + shift(@stack); + return(1); + } + } + return(0); +} + +sub newMatch($$) +{ + my %elem = @_; + + if (! defined($elem{"ext"})) { + $elem{"ext"} = ""; + } + if (! defined($elem{"filetype"})) { + $elem{"filetype"} = "prefix_only"; + } + if (! defined($elem{"fileidx"})) { + $elem{"fileidx"} = 1; + } + &diestack("No result defined") if (! defined($elem{"result"})); + return(\%elem); +} + +sub getSearch($) +{ + my ($m) = @_; + + return($m->{"search"}); +} + +sub getFileType($) +{ + my ($m) = @_; + + return($m->{"filetype"}); +} + +sub getFileIdx($) +{ + my ($m) = @_; + + return($m->{"fileidx"}); +} + +sub getExt($) +{ + my ($m) = @_; + + return($m->{"ext"}); +} + +sub getResult($) +{ + my ($m) = @_; + + return($m->{"result"}); +} + +sub checkForHeader($) +{ + my ($l) = @_; + + if ($l =~ /^\\begin_header\s*$/) { + my %selem = (); + $selem{type} = "header"; + $selem{name} = $1; + unshift(@stack, \%selem); + my @rElems = (); + $rElems[0] = &newMatch("search" => '^\\\\master\s+(.*\.lyx)', + "filetype" => "prefix_only", + "result" => ["\\master ", ""]); + if (keys %{$rFont}) { + for my $ff ( keys %{$rFont}) { + my $elem = &newMatch("search" => '^\\\\font_' . $ff . '\s+default', + "filetype" => "replace_only", + "result" => ["\\font_$ff ", $rFont->{$ff}]); + push(@rElems, $elem); + } + my $elemntf = &newMatch("search" => '^\\\\use_non_tex_fonts\s+false', + "filetype" => "replace_only", + "result" => ["\\use_non_tex_fonts true"]); + push(@rElems, $elemntf); + } + &setMatching(\@rElems); + return(1); + } + return(0); +} + +sub checkForPreamble($) +{ + my ($l) = @_; + + if ($l =~ /^\\begin_preamble\s*$/) { + my %selem = (); + $selem{type} = "preamble"; + $selem{name} = $1; + unshift(@stack, \%selem); + my $rElem = &newMatch("ext" => [".eps", ".png"], + "search" => '^\\\\photo(.*\{)(.*)\}', + "fileidx" => 2, + "result" => ["\\photo", "1", "2", "}"]); + &setMatching([$rElem]); + return(1); + } + return(0); +} + +sub checkForLayoutStart($) +{ + my ($l) = @_; + + if ($l =~ /^\\begin_layout\s+(.+)$/) { + #print "started layout\n"; + my %selem = (); + $selem{type} = "layout"; + $selem{name} = $1; + unshift(@stack, \%selem); + if ($selem{name} eq "Picture") { + my $rElem = &newMatch("ext" => [".eps", ".png"], + "search" => '^(.+)', + "result" => ["", "", ""]); + &setMatching([$rElem]); + } + return(1); + } + return(0); +} + +sub checkForInsetStart($) +{ + my ($l) = @_; + + if ($l =~ /^\\begin_inset\s+(.*)$/) { + #print "started inset\n"; + my %selem = (); + $selem{type} = "inset"; + $selem{name} = $1; + unshift(@stack, \%selem); + if ($selem{name} =~ /^(Graphics|External)$/) { + my $rElem = &newMatch("search" => '^\s+filename\s+(.+)$', + "filetype" => "copy_only", + "result" => ["\tfilename ", "", ""]); + &setMatching([$rElem]); + } + return(1); + } + return(0); +} + +sub checkForLatexCommand($) +{ + my ($l) = @_; + + if ($stack[0]->{type} eq "inset") { + if ($l =~ /^LatexCommand\s+([^\s]+)\s*$/) { + my $param = $1; + if ($stack[0]->{name} =~ /^CommandInset\s+bibtex$/) { + if ($param eq "bibtex") { + my $rElem1 = &newMatch("ext" => ".bib", + "filetype" => "prefix_for_list", + "search" => '^bibfiles\s+\"(.+)\"', + "result" => ["bibfiles \"", "1", "\""]); + my $rElem2 = &newMatch("ext" => ".bst", + "filetype" => "prefix_for_list", + "search" => '^options\s+\"(.+)\"', + "result" => ["options \"", "1", "\""]); + &setMatching([$rElem1, $rElem2]); + } + } + elsif ($stack[0]->{name} =~ /^CommandInset\s+include$/) { + if ($param =~ /^(verbatiminput\*?|lstinputlisting)$/) { + my $rElem = &newMatch("search" => '^filename\s+\"(.+)\"', + "filetype" => "copy_only", + "result" => ["filename \"", "", "\""]); + &setMatching([$rElem]); + } + elsif ($param =~ /^(include|input)$/) { + my $rElem = &newMatch("search" => '^filename\s+\"(.+)\"', + "filetype" => "interpret", + "result" => ["filename \"", "", "\""]); + &setMatching([$rElem]); + } + } + } + } + return(0); +} + +# +# parse the given line +# returns a hash with folloving values +# found: 1 if line matched some regex +# fileidx: index into result +# ext: list of possible extensions to use for a valid file +# filelist: list of found file-pathes (may be more then one, e.g. in bibfiles spec) +# separator: to be used while concatenating the filenames +# filetype: prefix_only,replace_only,copy_only,interpret +# same as before, but without 'prefix_for_list' +sub checkLyxLine($) +{ + my ($l) = @_; + + return({"found" => 0}) if (&checkForHeader($l)); + return({"found" => 0}) if (&checkForPreamble($l)); + return({"found" => 0}) if (&checkForEndBlock($l)); + return({"found" => 0}) if (&checkForLayoutStart($l)); + return({"found" => 0}) if (&checkForInsetStart($l)); + return({"found" => 0}) if (&checkForLatexCommand($l)); + if (defined($stack[0])) { + my $rMatch = &getMatching(); + for my $m ( @{$rMatch}) { + my $search = &getSearch($m); + if ($l =~ /$search/) { + my @matches = ($1, $2, $3, $4); + my $filetype = &getFileType($m); + my @result2 = @{&getResult($m)}; + + for my $r (@result2) { + if ($r =~ /^\d$/) { + $r = $matches[$r-1]; + } + } + if ($filetype eq "replace_only") { + # No filename needed + my %result = ("found" => 1, + "filetype" => $filetype, + "result" => \@result2); + return(\%result); + } + else { + my $fileidx = &getFileIdx($m); + my $filename = $matches[$fileidx-1]; + if ($filename !~ /^\.*$/) { + my %result = ("found" => 1, + "fileidx" => $fileidx, + "ext" => &getExt($m), + "result" => \@result2); + if ($filetype eq "prefix_for_list") { + # bibfiles|options in CommandInset bibtex + my @filenames = split(',', $filename); + $result{"separator"} = ","; + $result{"filelist"} = \@filenames; + $result{"filetype"} = "prefix_only"; + } + else { + $result{"separator"} = ""; + $result{"filelist"} = [$filename]; + $result{"filetype"} = $filetype; + } + return(\%result); + } + } + } + } + } + return({"found" => 0}); +} + +1; diff --git a/development/autotests/revertedTests b/development/autotests/revertedTests index 832ee6a91b..92015b5360 100644 --- a/development/autotests/revertedTests +++ b/development/autotests/revertedTests @@ -5,10 +5,6 @@ export/doc/id/Intro_pdf5 export/doc/id/Shortcuts_pdf5 export/doc/id/Tutorial_pdf5 export/doc/id/UserGuide_pdf5 -export/doc/ru/Intro_pdf5 -export/doc/ru/Tutorial_pdf5 -export/doc/zh_CN/Intro_pdf5 -export/doc/zh_CN/Tutorial_pdf5 export/examples/Literate_pdf export/examples/Literate_pdf2 export/examples/Literate_pdf5 @@ -24,7 +20,6 @@ export/examples/hu/example_lyxified_pdf5 export/examples/hu/example_raw_pdf5 export/examples/hu/splash_pdf5 export/examples/id/splash_pdf5 -export/examples/ru/splash_pdf5 # See http://www.lyx.org/trac/ticket/8823 export/examples/ja/lilypond_pdf export/examples/ja/sweave_pdf diff --git a/development/autotests/useSystemFonts.pl b/development/autotests/useSystemFonts.pl new file mode 100644 index 0000000000..c26f758e1e --- /dev/null +++ b/development/autotests/useSystemFonts.pl @@ -0,0 +1,348 @@ +#! /usr/bin/env perl +# -*- mode: perl; -*- +# +# file useSystemFonts.pl +# 1.) Copies lyx-files to another location +# 2.) While copying, +# 2a.) searches for relative references to files and +# replaces them with absolute ones +# 2b.) In order to be able to compile with luatex or xetex +# changes default fonts to use non-tex-fonts instead +# +# Syntax: perl useSystemFonts.pl sourceFile destFile format +# Each param represents a path to a file +# sourceFile: full path to a lyx file +# destFile: destination path +# Each subdocument will be copied into a subdirectory of dirname(destFile) +# format: any string of the form '[a-zA-Z0-9]+', e.g. pdf5 +# +# This file is free software; you can redistribute it and/or +# modify it under the terms of the GNU General Public +# License as published by the Free Software Foundation; either +# version 2 of the License, or (at your option) any later version. +# +# This software is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public +# License along with this software; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# Copyright (c) 2013 Kornel Benko +# (c) 2013 Scott Kostyshak + +use strict; + +BEGIN { + use File::Spec; + my $p = File::Spec->rel2abs( __FILE__ ); + $p =~ s/[\/\\]?[^\/\\]+$//; + unshift(@INC, "$p"); +} +use File::Basename; +use File::Path; +use Cwd 'abs_path'; +use File::Copy "cp"; +use File::Temp qw/ :POSIX /; +use lyxStatus; + +# convert lyx file to be compilable with xetex + +my ($source, $dest, $format, $rest) = @ARGV; + +&diestack("Too many arguments") if (defined($rest)); +&diestack("Sourcefilename not defined") if (! defined($source)); +&diestack("Destfilename not defined") if (! defined($dest)); +&diestack("Format (e.g. pdf4) not defined") if (! defined($format)); + +$source = &abs_path($source); +$dest = &abs_path($dest); + +my %font = (); + +if ($source =~ /\/(he|el|ru|uk)\//) { + $font{roman} = "FreeSans"; + $font{sans} = "FreeSans"; + $font{typewriter} = "FreeSans"; +} +elsif ($source =~ /\/fa\//) { + $font{roman} = "FreeFarsi"; + $font{sans} = "FreeFarsi"; + $font{typewriter} = "FreeFarsi Monospace"; +} +elsif ($source =~ /\/zh_CN\//) { + $font{roman} = "FreeSans"; + $font{sans} = "WenQuanYi Micro Hei"; + $font{typewriter} = "WenQuanYi Micro Hei"; +} +else { + # Nothing to do? +} + +my $sourcedir = dirname($source); +my $destdir = dirname($dest); +if (! -d $destdir) { + &diestack("could not make dir \"$destdir\"") if (! mkdir $destdir); +} + +my $destdirOfSubdocuments; +{ + my ($name, $pat, $suffix) = fileparse($source, qr/\.[^.]*/); + my $ext = $format; + if ($source =~ /\/([a-z][a-z](_[A-Z][A-Z])?)\//) { + $ext .= "_$1"; + } + else { + $ext .= "_main"; + } + $destdirOfSubdocuments = "$destdir/tmp_$ext" . "_$name"; # Global var, something TODO here +} + +if(-d $destdirOfSubdocuments) { + rmtree($destdirOfSubdocuments); +} +mkdir($destdirOfSubdocuments); # for possibly included files + +my %IncludedFiles = (); +my %type2hash = ( + "copy_only" => "copyonly", + "interpret" => "interpret"); + +&addNewJob($source, $dest, "interpret", {}, \%IncludedFiles); + +©FoundSubdocuments(\%IncludedFiles); + +#&printCopiedDocuments(\%IncludedFiles); + +exit(0); +########################################################### + +sub printCopiedDocuments($) +{ + my ($rFiles) = @_; + for my $k (keys %{$rFiles}) { + my $rJob = $rFiles->{$k}; + for my $j ( values %type2hash) { + if (defined($rJob->{$j})) { + print "$j: $k->$rJob->{$j}, " . $rJob->{$j . "copied"} . "\n"; + } + } + } +} + +sub interpretedCopy($$$$) +{ + my ($source, $dest, $destdirOfSubdocuments, $rFiles) = @_; + my $sourcedir = dirname($source); + my $res = 0; + + &diestack("could not read \"$source\"") if (!open(FI, $source)); + &diestack("could not write \"$dest\"") if (! open(FO, '>', $dest)); + + &initLyxStack(\%font); + + while (my $l = ) { + chomp($l); + my $rStatus = &checkLyxLine($l); + if ($rStatus->{found}) { + my $rF = $rStatus->{result}; + if ($rStatus->{"filetype"} eq "replace_only") { + # e.g. if no files involved (font chage etc) + $l = join('', @{$rF}); + } + else { + my $filelist = $rStatus->{filelist}; + my $fidx = $rStatus->{fileidx}; + my $separator = $rStatus->{"separator"}; + my $foundrelative = 0; + for my $f (@{$filelist}) { + my @isrel = &isrelative($f, + $sourcedir, + $rStatus->{ext}); + if ($isrel[0]) { + $foundrelative = 1; + my $ext = $isrel[1]; + if ($rStatus->{"filetype"} eq "prefix_only") { + $f = &getNewNameOf("$sourcedir/$f", $rFiles); + } + else { + my ($newname, $res1); + ($newname, $res1) = &addFileCopyJob("$sourcedir/$f$ext", + "$destdirOfSubdocuments", + $rStatus->{"filetype"}, + $rFiles); + print "Added ($res1) file \"$sourcedir/$f$ext\" to be copied to \"$newname\"\n"; + if ($ext ne "") { + $newname =~ s/$ext$//; + } + $f = $newname; + $res += $res1; + } + } + } + if ($foundrelative) { + $rF->[$fidx] = join($separator, @{$filelist}); + $l = join('', @{$rF}); + } + } + } + print FO "$l\n"; + } + close(FI); + close(FO); + + &closeLyxStack(); + return($res); +} + +sub copyFoundSubdocuments($) +{ + my ($rFiles) = @_; + my $res = 0; + do { + $res = 0; + my %copylist = (); + + for my $filename (keys %{$rFiles}) { + next if (! ©JobPending($filename, $rFiles)); + $copylist{$filename} = 1; + } + for my $f (keys %copylist) { + # Second loop needed, because here $rFiles may change + my ($res1, @destfiles) = ©Job($f, $rFiles); + $res += $res1; + for my $destfile (@destfiles) { + print "res1 = $res1 for \"$f\" to be copied to $destfile\n"; + } + } + } while($res > 0); # loop, while $rFiles changed +} + +sub copyJob($$) +{ + my ($source, $rFiles) = @_; + my $sourcedir = dirname($source); + my $res = 0; + my @dest = (); + + for my $k (values %type2hash) { + if ($rFiles->{$source}->{$k}) { + if (! $rFiles->{$source}->{$k . "copied"}) { + $rFiles->{$source}->{$k . "copied"} = 1; + my $dest = $rFiles->{$source}->{$k}; + push(@dest, $dest); + if ($k eq "copyonly") { + &diestack("Could not copy \"$source\" to \"$dest\"") if (! cp($source, $dest)); + } + else { + &interpretedCopy($source, $dest, $destdirOfSubdocuments, $rFiles); + } + $res += 1; + } + } + } + return($res, @dest); +} + +# Trivial check +sub isrelativeFix($$$) +{ + my ($f, $sourcedir, $ext) = @_; + + return(1, $ext) if (-e "$sourcedir/$f$ext"); + return(0,0); +} + +sub isrelative($$$) +{ + my ($f, $sourcedir, $ext) = @_; + + if (ref($ext) eq "ARRAY") { + for my $ext2 (@{$ext}) { + my @res = &isrelativeFix($f, $sourcedir, $ext2); + if ($res[0]) { + return(@res); + } + } + return(0,0); + } + else { + return(&isrelativeFix($f, $sourcedir, $ext)); + } +} + +sub createTemporaryFileName($$) +{ + my ($source, $destdir) = @_; + + # get the basename to be used for the template + my ($name, $path, $suffix) = fileparse($source, qr/\.[^.]*/); + #print "source = $source, name = $name, path = $path, suffix = $suffix\n"; + my $template = "xx_$name" . "_"; + my $fname = File::Temp::tempnam($destdir, $template); + + # Append extension from source + if ($suffix ne "") { + $fname .= "$suffix"; + } + return($fname); +} + +# Check, if file not copied yet +sub copyJobPending($$) +{ + my ($f, $rFiles) = @_; + for my $t (values %type2hash) { + if (defined($rFiles->{$f}->{$t})) { + return 1 if (! $rFiles->{$f}->{$t . "copied"}); + } + } + return 0; +} + +sub addNewJob($$$) +{ + my ($source, $newname, $hashname, $rJob, $rFiles) = @_; + + $rJob->{$hashname} = $newname; + $rJob->{$hashname . "copied"} = 0; + $rFiles->{$source} = $rJob; +} + +sub addFileCopyJob($$$$) +{ + my ($source, $destdirOfSubdocuments, $filetype, $rFiles) = @_; + my ($res, $newname) = (0, undef); + my $rJob = $rFiles->{$source}; + + my $hashname = $type2hash{$filetype}; + if (! defined($hashname)) { + &diestack("unknown filetype \"$filetype\""); + } + if (!defined($rJob->{$hashname})) { + &addNewJob($source, + &createTemporaryFileName($source, $destdirOfSubdocuments), + "$hashname", $rJob, $rFiles); + $res = 1; + } + $newname = $rJob->{$hashname}; + return($newname, $res); +} + +sub getNewNameOf($$) +{ + my ($f, $rFiles) = @_; + my $resultf = $f; + + if (defined($rFiles->{$f})) { + for my $t (values %type2hash) { + if (defined($rFiles->{$f}->{$t})) { + $resultf = $rFiles->{$f}->{$t}; + last; + } + } + } + return($resultf); +} -- 2.39.2