diff options
Diffstat (limited to 'lib/sisu/current/texpdf.rb')
| -rw-r--r-- | lib/sisu/current/texpdf.rb | 1162 |
1 files changed, 0 insertions, 1162 deletions
diff --git a/lib/sisu/current/texpdf.rb b/lib/sisu/current/texpdf.rb deleted file mode 100644 index cd4504aa..00000000 --- a/lib/sisu/current/texpdf.rb +++ /dev/null @@ -1,1162 +0,0 @@ -# encoding: utf-8 -=begin - -* Name: SiSU - -** Description: documents, structuring, processing, publishing, search -*** LaTeX generation - -** Author: Ralph Amissah - <ralph@amissah.com> - <ralph.amissah@gmail.com> - -** Copyright: (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, - 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015 Ralph Amissah, - All Rights Reserved. - -** License: GPL 3 or later: - - SiSU, a framework for document structuring, publishing and search - - Copyright (C) Ralph Amissah - - This program 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 3 of the License, or (at your option) - any later version. - - This program 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 program. If not, see <http://www.gnu.org/licenses/>. - - If you have Internet connection, the latest version of the GPL should be - available at these locations: - <http://www.fsf.org/licensing/licenses/gpl.html> - <http://www.gnu.org/licenses/gpl.html> - - <http://www.sisudoc.org/sisu/en/manifest/gpl.fsf.html> - -** SiSU uses: - * Standard SiSU markup syntax, - * Standard SiSU meta-markup syntax, and the - * Standard SiSU object citation numbering and system - -** Hompages: - <http://www.jus.uio.no/sisu> - <http://www.sisudoc.org> - -** Git - <http://git.sisudoc.org/gitweb/?p=code/sisu.git;a=summary> - <http://git.sisudoc.org/gitweb/?p=code/sisu.git;a=blob;f=lib/sisu/current/texpdf.rb;hb=HEAD> - -=end -module SiSU_TeX - begin - require 'pstore' - rescue LoadError - SiSU_Utils::CodeMarker.new(__LINE__,__FILE__,:fuchsia). - error('pstore NOT FOUND (LoadError)') - end - require_relative 'texpdf_parts' # texpdf_parts.rb - require_relative 'se_hub_particulars' # se_hub_particulars.rb - include SiSU_Particulars - require_relative 'texpdf_format' # texpdf_format.rb - include SiSU_TeX_Pdf - require_relative 'shared_metadata' # shared_metadata.rb - require_relative 'prog_text_translation' # prog_text_translation.rb - @tex_file=@@tex_footnote_array=@@tex_col_w=[] - @@tabular="{tabular}" - @@column_instruct=@@squigle_close=@@tex_line_mode=@@tex_word_mode=@@line_mode='' - @@tex_debug_counter=@@table_pagebreak_counter=@@tex_footnote_call_counter=@@tex_table_flag=@@tex_counter=@@tex_column=@@tex_columns=@@tex_columns=@@counting=0 - @@tex_pattern_margin_number=/\\\\begin\\\{tiny\\\}\\\\hspace\\\{0mm\\\}\\\\end\\\{tiny\\\}\\\{\\\\marginpar.+?\s+/ - @@n=@@tableheader=@@rights=nil - @@date ||=SiSU_Env::InfoDate.new - class Source - begin - require 'pstore' - rescue LoadError - SiSU_Utils::CodeMarker.new(__LINE__,__FILE__,:fuchsia). - error('pstore NOT FOUND (LoadError)') - end - require_relative 'se' # se.rb - include SiSU_Env - require_relative 'ao' # ao.rb - include SiSU_AO - include SiSU_TeX - def initialize(opt) - @opt=opt - @particulars=SiSU_Particulars::CombinedSingleton.instance.get_all(opt) - @md=@particulars.md - @env=SiSU_Env::InfoEnv.new(@md.fns) #@env=@particulars.env - end - def directories - begin - case @opt.fns - when /\.(?:-|ssm\.)?sst$/ - SiSU_Env::FileOp.new(@md).mkdir - Dir.mkdir(@env.processing_path.tex) unless FileTest.directory?(@env.processing_path.tex) - end - rescue - SiSU_Errors::Rescued.new($!,$@,@opt.selections.str,@opt.fns).location do - __LINE__.to_s + ':' + __FILE__ - end - ensure - end - end - def read - begin - song - ensure - Dir.chdir(@opt.f_pth[:pth]) - end - end - def song - begin - @md=@particulars.md - SiSU_Screen::Ansi.new( - @opt.act[:color_state][:set], - 'LaTeX/PDF', - "[#{@opt.f_pth[:lng_is]}] #{@opt.fno}" - ).green_title_hi unless @opt.act[:quiet][:set]==:on - if (@opt.act[:verbose][:set]==:on \ - || @opt.act[:verbose_plus][:set]==:on \ - || @opt.act[:maintenance][:set]==:on) - @env.url.output_tell - if @md.opt.act[:pdf_l][:set]==:on - SiSU_Screen::Ansi.new( - @opt.act[:color_state][:set], - @opt.fns, - "#{@env.program.pdf_viewer} #{@md.file.output_path.pdf.dir}/#{@md.file.base_filename.pdf_l}#{@md.papersize_array[0]}.pdf" - ).flow - end - if @md.opt.act[:pdf_p][:set]==:on - SiSU_Screen::Ansi.new( - @opt.act[:color_state][:set], - @opt.fns, - "#{@opt.fns} #{@env.program.pdf_viewer} #{@md.file.output_path.pdf.dir}/#{@md.file.base_filename.pdf_p}#{@md.papersize_array[0]}.pdf" - ).flow - end - end - @md=@particulars.md - $flag=@md.opt.selections.str #introduced to pass 0 for no object citation numbers... to texpdf_format - directories - #% needed needs to be reprogrammed !!! - ao_array=SiSU_AO::Source.new(@opt).get # ao file drawn here - SiSU_TeX::Source::LaTeXcreate.new(@particulars).songsheet - ao_array='' - pwd=Dir.pwd - SiSU_TeX::Source::LaTeXtoPdf.new(@md,@particulars.env).latexrun_selective - Dir.chdir(pwd) - rescue - SiSU_Errors::Rescued.new($!,$@,@opt.selections.str,@opt.fns).location do - __LINE__.to_s + ':' + __FILE__ - end - ensure - unless (@opt.act[:verbose_plus][:set]==:on \ - || @opt.act[:maintenance][:set]==:on) - texfiles=Dir["#{@env.processing_path.tex}/#{@opt.fns}*"] - texfiles.each do |f| - if FileTest.file?(f) - File.unlink(f) - end - end - end - @tex_file=@@tex_footnote_array=[] - @@column_instruct='' - @@squigle_close=@@tex_line_mode=@@tex_word_mode=@@line_mode='' - @@tex_debug_counter=@@table_pagebreak_counter=@@tex_footnote_call_counter=@@tex_table_flag=@@tex_counter=@@tex_column=@@tex_columns=@@tex_columns=@@counting=0 - @@tex_col_w=[] - @@n=@@tableheader=@@rights=nil - @@date=SiSU_Env::InfoDate.new - @@flag={} - $flag=1 #remove at some stage - SiSU_Env::Clear.new(@opt.selections.str,@opt.fns).param_instantiate - end - end - private - class LaTeXtoPdf - @@n_lpdf||=0 #change - def initialize(md,env) - @md,@env=md,env - @f=SiSU_Env::FileOp.new(@md).base_filename - end - def latex_do(texfilename,papersize) - @texfilename=texfilename - @@n_lpdf=@@n_lpdf+1 - tex_fn_base=@texfilename.gsub(/\.tex$/,'') - tell=SiSU_Screen::Ansi.new(@md.opt.selections.str) - if @md.opt.act[:pdf_p][:set]==:on - if (@md.opt.act[:verbose][:set]==:on \ - || @md.opt.act[:verbose_plus][:set]==:on \ - || @md.opt.act[:maintenance][:set]==:on) - SiSU_Screen::Ansi.new( - @md.opt.act[:color_state][:set], - "#{papersize} portrait ->" - ).dark_grey_title_hi - end - cmd=SiSU_Env::SystemCall.new("#{tex_fn_base}.tex",'',@md.opt.selections.str) - if @md.opt.act[:verbose][:set]==:on \ - || @md.opt.act[:verbose_plus][:set]==:on \ - || @md.opt.act[:maintenance][:set]==:on - tell.grey_open - end - if "#{tex_fn_base}" =~/\w+/ \ - and "#{papersize}" =~/\w+/ - 2.times { |i| cmd.latex2pdf(@md,papersize) } #comment out to skip processing of latex portrait - end - if @md.opt.act[:verbose][:set]==:on \ - || @md.opt.act[:verbose_plus][:set]==:on \ - || @md.opt.act[:maintenance][:set]==:on - tell.p_off - end - end - if @md.opt.act[:pdf_l][:set]==:on - if (@md.opt.act[:verbose][:set]==:on \ - || @md.opt.act[:verbose_plus][:set]==:on \ - || @md.opt.act[:maintenance][:set]==:on) - SiSU_Screen::Ansi.new( - @md.opt.act[:color_state][:set], - "#{papersize} landscape ->" - ).dark_grey_title_hi - end - cmd=SiSU_Env::SystemCall.new("#{tex_fn_base}.landscape.tex",'',@md.opt.selections.str) - if (@md.opt.act[:verbose][:set]==:on \ - || @md.opt.act[:verbose_plus][:set]==:on \ - || @md.opt.act[:maintenance][:set]==:on) - tell.grey_open - end - if "#{tex_fn_base}" =~/\w+/ \ - and "#{papersize}" =~/\w+/ - 2.times { |i| cmd.latex2pdf(@md,papersize) } #comment out to skip processing of latex landscape - end - if (@md.opt.act[:verbose][:set]==:on \ - || @md.opt.act[:verbose_plus][:set]==:on \ - || @md.opt.act[:maintenance][:set]==:on) - tell.p_off - end - end - pwd=Dir.pwd - if @md.opt.act[:pdf_p][:set]==:on - portrait_pdf="#{pwd}/#{tex_fn_base}.pdf" - end - if @md.opt.act[:pdf_l][:set]==:on - landscape_pdf="#{pwd}/#{tex_fn_base}.landscape.pdf" - end - case papersize - when /a4/ then pdf_p=@f.pdf_p_a4; pdf_l=@f.pdf_l_a4 - when /a5/ then pdf_p=@f.pdf_p_a5; pdf_l=@f.pdf_l_a5 - when /b5/ then pdf_p=@f.pdf_p_b5; pdf_l=@f.pdf_l_b5 - when /letter/ then pdf_p=@f.pdf_p_letter; pdf_l=@f.pdf_l_letter - when /legal/ then pdf_p=@f.pdf_p_legal; pdf_l=@f.pdf_l_legal - else pdf_p=@f.pdf_p_a4; pdf_l=@f.pdf_l_a4 - end - FileUtils::mkdir_p(@md.file.output_path.pdf.dir) unless FileTest.directory?(@md.file.output_path.pdf.dir) - cX=SiSU_Screen::Ansi.new(@md.opt.act[:color_state][:set]).cX - if @md.opt.act[:pdf_p][:set]==:on - if FileTest.file?(portrait_pdf) - FileUtils::cp(portrait_pdf,"#{@md.file.output_path.pdf.dir}/#{pdf_p}") - FileUtils::rm(portrait_pdf) - else - STDERR.puts "#{__FILE__}:#{__LINE__} NOT FOUND: #{portrait_pdf}" if @md.opt.act[:maintenance][:set]==:on - errmsg="pdf file not generated #{portrait_pdf.gsub(/.+?([^\/]+?\.pdf)$/,'\1')} (check texlive dependencies)" - if @md.opt.act[:no_stop][:set]==:on - SiSU_Utils::CodeMarker.new(__LINE__,__FILE__,:fuchsia). - error("#{errmsg}, proceeding without pdf output (as requested)") - else - SiSU_Utils::CodeMarker.new(__LINE__,__FILE__,:fuchsia). - error("#{errmsg}, STOPPING") - exit - end - end - end - if @md.opt.act[:pdf_l][:set]==:on - if FileTest.file?(landscape_pdf) - FileUtils::cp(landscape_pdf,"#{@md.file.output_path.pdf.dir}/#{pdf_l}") - FileUtils::rm(landscape_pdf) - else - STDERR.puts "#{__FILE__}:#{__LINE__} NOT FOUND: #{landscape_pdf}" if @md.opt.act[:maintenance][:set]==:on - errmsg="pdf file not generated #{landscape_pdf.gsub(/.+?([^\/]+?\.pdf)$/,'\1')} (check texlive dependencies)" - if @md.opt.act[:no_stop][:set]==:on - SiSU_Utils::CodeMarker.new(__LINE__,__FILE__,:fuchsia). - error("#{errmsg}, proceeding without pdf output (as requested)") - else - SiSU_Utils::CodeMarker.new(__LINE__,__FILE__,:fuchsia). - error("#{errmsg}, STOPPING") - exit - end - end - end - if (@md.opt.act[:verbose][:set]==:on \ - || @md.opt.act[:verbose_plus][:set]==:on \ - || @md.opt.act[:maintenance][:set]==:on) - SiSU_Screen::Ansi.new( - @md.opt.act[:color_state][:set], - @@n_lpdf, - 'processed (SiSU LaTeX to pdf - using pdfetex aka. pdftex or pdflatex)' - ).generic_number - end - end - def latexrun_selective - begin - pwd=Dir.pwd - Dir.chdir(pwd) #watch - @tex_f_no=0 - if FileTest.file?(@env.source_file_with_path) - @md.papersize_array.each do |ps| - if @md.fns =~/\.(?:-|ssm\.)?sst$/ - case @md.fns - when /\.(?:-|ssm\.)?sst$/ - if FileTest.directory?(@env.processing_path.tex)==true - Dir.chdir(@env.processing_path.tex) - texfile=@md.fns.gsub(/$/,".#{ps}.tex"). - gsub(/~/,'-') - if @md.opt.act[:pdf_p][:set]==:on \ - or @md.opt.act[:pdf_l][:set]==:on - latex_do(texfile,ps) - if @md.opt.act[:pdf_p][:set]==:on - if File.exist?(texfile) \ - and File.size(texfile) > 0 - #@tex_f_no+=1 - else - errmsg="zero file size #{@env.processing_path.tex}/#{texfile}" - if @md.opt.act[:no_stop][:set]==:on - SiSU_Utils::CodeMarker.new(__LINE__,__FILE__,:fuchsia). - error("#{errmsg}, proceeding without pdf output (as requested)") - else - SiSU_Utils::CodeMarker.new(__LINE__,__FILE__,:fuchsia). - error("#{errmsg}, STOPPING") - exit - end - end - end - end - end - end - end - end - case @md.papersize_array[0] #default pdf - when /a4/ then pdf_p=@f.pdf_p_a4; pdf_l=@f.pdf_l_a4 - when /a5/ then pdf_p=@f.pdf_p_a5; pdf_l=@f.pdf_l_a5 - when /b5/ then pdf_p=@f.pdf_p_b5; pdf_l=@f.pdf_l_b5 - when /letter/ then pdf_p=@f.pdf_p_letter; pdf_l=@f.pdf_l_letter - when /legal/ then pdf_p=@f.pdf_p_legal; pdf_l=@f.pdf_l_legal - else pdf_p=@f.pdf_p_a4; pdf_l=@f.pdf_l_a4 - end - if @md.opt.act[:pdf_p][:set]==:on - if FileTest.file?("#{@md.file.output_path.pdf.dir}/#{pdf_p}") - mklnk=((@md.file.output_dir_structure.by_language_code?) \ - || (@md.file.output_dir_structure.by_filetype?)) \ - ? "#{@md.fnb}.portrait.pdf" - : 'portrait.pdf' - if FileTest.directory?(@md.file.output_path.pdf.dir) - pwd=Dir.pwd - Dir.chdir(@md.file.output_path.pdf.dir) - FileUtils::rm_f(mklnk) - FileUtils::ln_s(pdf_p, mklnk) - Dir.chdir(pwd) - end - end - end - if @md.opt.act[:pdf_l][:set]==:on - if FileTest.file?("#{@md.file.output_path.pdf.dir}/#{pdf_l}") - mklnk=((@md.file.output_dir_structure.by_language_code?) \ - || (@md.file.output_dir_structure.by_filetype?)) \ - ? "#{@md.fnb}.landscape.pdf" - : 'landscape.pdf' - pwd_set=Dir.pwd - Dir.chdir(@md.file.output_path.pdf.dir) - FileUtils::rm_f(mklnk) - FileUtils::ln_s(pdf_l, mklnk) - Dir.chdir(pwd_set) - end - end - else - SiSU_Screen::Ansi.new( - @md.opt.act[:color_state][:set], - "*WARN* FILE NOT FOUND: << #{@md.fns} >> - requested latex system processing skipped" - ).warn - end - lst=Dir["*.{aux,log,out}"] - lst.each {|file| File.unlink(file)} if lst - rescue - SiSU_Errors::Rescued.new($!,$@,@md.opt.selections.str,@md.fns).location do - __LINE__.to_s + ':' + __FILE__ - end - end - end - end - class LaTeXcreate - include SiSU_Parts_TeXpdf - @@tex_head={ - 'a4'=> { p: nil, l: nil }, - 'a5'=> { p: nil, l: nil }, - 'b5'=> { p: nil, l: nil }, - 'letter'=>{ p: nil, l: nil }, - 'legal'=> { p: nil, l: nil }, - 'book'=> { p: nil, l: nil } - } - @@prefix_b=nil - def initialize(particulars) - @particulars=particulars - @md=@particulars.md - @env=SiSU_Env::InfoEnv.new(@md.fns) #@env=@particulars.env - @data=@particulars.ao_array # ao file drawn here - @st={ tex: {} } - @tex_ml=SiSU_TeX_Pdf::UseTeX.new(@md) - @dp=@@dp ||=SiSU_Env::InfoEnv.new.digest.pattern - l=SiSU_Env::StandardiseLanguage.new(@md.opt.lng).language - @language=l[:n] - @translate=SiSU_Translate::Source.new(@md,@language) - @codeblock_box='listings' #alternative 'boites' - @make ||=SiSU_Env::ProcessingSettings.new(@md) - end - def songsheet - begin - data=@data - @@tex_footnote_array=[] - @@rights=nil - txt_gen=if @md.opt.act[:pdf_l][:set]==:on \ - and @md.opt.act[:pdf_p][:set]==:on - 'pdfTex portrait & landscape' - elsif @md.opt.act[:pdf_l][:set]==:on - 'pdfTex landscape' - elsif @md.opt.act[:pdf_p][:set]==:on - 'pdfTex portrait' - else - SiSU_Utils::CodeMarker.new(__LINE__,__FILE__,:fuchsia).error('error: neither landscape nor portrait') - end - if (@md.opt.act[:verbose][:set]==:on \ - || @md.opt.act[:verbose_plus][:set]==:on \ - || @md.opt.act[:maintenance][:set]==:on) - SiSU_Screen::Ansi.new( - @md.opt.act[:color_state][:set], - txt_gen - ).txt_grey - end - if defined? @md.rights.all \ - and not @md.rights.all.empty? - sp_char=SiSU_TeX_Pdf::SpecialCharacters.new(@md,@md.rights.copyright.copyright_and_license.dup) - copymark='Copyright {\begin{small}{\copyright\end{small}} ' - #copymark='Copyright {\begin{small}^{\copyright\end{small}} ' - copyright=sp_char.special_characters_safe.gsub(/\s*Copyright \(C\)/, copymark) - @@rights||="\n #{Tex[:backslash]*2}[3]\\ \\linebreak #{copyright}" - end - if defined? @md.notes.prefix_b \ - and not @md.notes.prefix_b.empty? - sp_char=SiSU_TeX_Pdf::SpecialCharacters.new(@md,@md.notes.prefix_b) - prefix_b=sp_char.special_characters_safe - @@prefix_b="\n #{Tex[:backslash]*2}[3]\\ \\linebreak \\ #{prefix_b}\n" unless @@prefix_b - end - data=pre(data) - data=footnote(data) - if @md.flag_tables #WORK ON 2009 - data=tables(data) #uncomment to start experimenting with tables - end - data=number_paras(data) - data=markup(data) - output(data) - rescue - SiSU_Errors::Rescued.new($!,$@,@md.opt.selections.str,@md.fns).location do - __LINE__.to_s + ':' + __FILE__ - end - ensure - end - end - protected - def pre(data) - @tex_file=[] - data.each do |dob| - # DEBUG 2003w16 this is a kludge, because i could not get parameters - # from param, Sort out ... revert to more elegant solution - # even more of a kludge as had to insert newlines where code is used not satisfactory, think about - dob.tmp=dob.obj #.dup - if dob.is==:para \ - || dob.is==:heading - dob.tmp=dob.tmp.gsub(/#{Mx[:mk_o]}:name#\S+?#{Mx[:mk_c]}/,'') - dob.tmp=SiSU_TeX_Pdf::SpecialCharacters.new(@md,dob.tmp).special_characters - if dob.tmp =~/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:rel_o]}\S+?#{Mx[:rel_c]}/ - dob.tmp=SiSU_TeX_Pdf::FormatTextObject.new(@md,dob.tmp).url_str_internal(dob.tmp) - end - elsif dob.is ==:code - dob.tmp=if @codeblock_box=='listings' - dob.tmp - else - SiSU_TeX_Pdf::SpecialCharacters.new(@md,dob.tmp).special_characters_code - end - elsif dob.is ==:break - if dob.obj==Mx[:br_page]; dob.tmp='\newpage' - elsif dob.obj==Mx[:br_page_new]; dob.tmp='\clearpage' - elsif dob.obj==Mx[:br_page_line]; dob.tmp=' \\ \hline \\ ' - elsif dob.obj==Mx[:br_obj]; dob.tmp='\parasep' - end - elsif dob.is==:comment \ - || dob.is==:meta - dob.tmp='' #dob.tmp=nil - end - end - data - end - def footnote(data) - data.each do |dob| - # EMBEDDED FOOTNOTES / ENDNOTES should be straightforward but not quite a synch. - if dob.tmp =~/#{Mx[:en_a_o]}[\d*+]+\s|#{Mx[:en_b_o]}([*+]\d+)\s/ - dob.tmp=dob.tmp.gsub(/#{Mx[:en_a_o]}(\d+)\s+(.+?)#{Mx[:en_a_c]}/m,"\\footnote[\\1]{%\n \\2} "). - gsub(/#{Mx[:en_b_o]}([*+]\d+)\s+(.+?)#{Mx[:en_b_c]}/m,"\\FootnoteA{\\1}{%\n \\2} "). - gsub(/#{Mx[:en_a_o]}([*+]+)\s+(.+?)#{Mx[:en_a_c]}/m,"\\FootnoteA{\\1}{%\n \\2} ") - end - end - data - end - def tables_hash(md,dob) - @block={} - @dob=dob - @md.papersize_array.each do |ps| - @@tableheader={ ps => { p: 0, l: 0 } } - dob.tmp={ tmp: dob.tmp, paper_size: ps } - format_l=SiSU_TeX_Pdf::FormatTextObject.new(md,dob) - dob.tmp={ tmp: dob.tmp, paper_size: ps } - format_p=SiSU_TeX_Pdf::FormatTextObject.new(md,dob) - @block[ps]={ - l: format_l.longtable_landscape, - p: format_p.longtable_portrait - } - end - @dob.tmp=@block - @dob - end - def tables(data) - @tex_file=[] - data.each do |dob| - @tex_file << if dob.is_a?(String) \ - or dob.is_a?(Hash) - dob - elsif dob.is==:table - tables_hash(@md,dob) #Hash result - else dob - end - end - @tex_file - end - def enclose(dob) - dob - end - def box_boites(dob,ocn) - sp_char=SiSU_TeX_Pdf::SpecialCharacters.new(@md,dob.tmp,dob.is) - dob.tmp=sp_char.special_characters_safe - dob.tmp=dob.tmp.gsub(/(#{Mx[:nbsp]})/m,'{\color{mywhite}\1}'). - #dob.tmp.gsub(/#{Mx[:nbsp]}/m,'{~}') # dob.tmp.gsub(/#{Mx[:nbsp]}\s*/m,'{~}') - gsub(/#{Mx[:vline]}/m,'\vline'). - gsub(/ \\( |#{Mx[:br_nl]})/,' {\textbackslash}\1'). - gsub(/#{Mx[:br_nl]}\s*\Z/m,''). - gsub(/#{Mx[:br_nl]}{2}/,'\newline \\\\\\ '). - gsub(/#{Mx[:br_nl]}/,' \\\\\\ '). - gsub(/\n\n\n/m," \\newline\n\n") - ocn=SiSU_TeX_Pdf::FormatTextObject.new(@md).ocn_display(dob) - dob.tmp = ocn \ - + @tex_ml.paraskip_small \ - + '\begin{Codeblock}' \ - + '\begin{codeblockboitebox} \hardspace \newline ' \ - + dob.tmp \ - + '\end{codeblockboitebox}' \ - + '\end{Codeblock}' \ - + "\n" \ - + @tex_ml.paraskip_normal - dob - end - def box_listings(dob,ocn) - sp_char=SiSU_TeX_Pdf::SpecialCharacters.new(@md,dob.tmp,dob.is) - dob.tmp=sp_char.characters_code_listings - dob.tmp=dob.tmp.gsub(/^\s+/m,''). #bug, fix earlier, should be made unecessary - gsub(/#{Mx[:nbsp]}/m,' '). - gsub(/#{Mx[:vline]}/m,'|'). - gsub(/#{Mx[:br_nl]}(?:\s?\n)?/m,"\n"). - gsub(/\n\n\n/m," \n\n") - ocn=SiSU_TeX_Pdf::FormatTextObject.new(@md).ocn_display(dob) - dob.tmp = ocn \ - + @tex_ml.paraskip_small \ - + '\begin{Codeblock}' \ - + "\n" \ - + '\begin{lstlisting} ' \ - + "\n" \ - + dob.tmp \ - + "\n" \ - + '\end{lstlisting} ' \ - + "\n" \ - + '\end{Codeblock}' \ - + "\n" \ - + @tex_ml.paraskip_normal - dob - end - def markup_common(dob) - if dob.of==:block - @lineone=if dob.is==:block \ - || dob.is==:group \ - || dob.is==:alt \ - || dob.is==:verse - dob.tmp=dob.tmp.gsub(/#{Mx[:nbsp]}/m,' \hardspace '). - gsub(/#{Mx[:gl_bullet]}/m,'\txtbullet \hardspace '). #Bullet environment not used for grouped text, no hanging indent here - gsub(/#{Mx[:br_nl]}+/m,"\n\n") #match not ideal, but currently not inserting extra newlines anyway - ocn=SiSU_TeX_Pdf::FormatTextObject.new(@md).ocn_display(dob) - dob.tmp=if dob.is==:group \ - || dob.is==:block \ - || dob.is==:alt - dob.tmp=SiSU_TeX_Pdf::SpecialCharacters.new(@md,dob.tmp).special_characters_safe - ocn \ - + @tex_ml.paraskip_small \ - + "\n" \ - + ' \\begin{footnotesize}' \ - + "\n\n" \ - + dob.tmp \ - + '\\end{footnotesize}' \ - + "\n" \ - + @tex_ml.paraskip_normal - elsif dob.is==:verse - dob.tmp=dob.tmp.gsub(/#{Mx[:fa_bold_o]}(.+?)#{Mx[:fa_bold_c]}/m,'\begin{bfseries}\1 \end{bfseries}'). - gsub(/#{Mx[:fa_italics_o]}(.+?)#{Mx[:fa_italics_c]}/m,'\emph{\1}'). - gsub(/#{Mx[:fa_underscore_o]}(.+?)#{Mx[:fa_underscore_c]}/m,'\uline{\1}') - ocn \ - + @tex_ml.paraskip_tiny \ - + "\n" \ - + ' \\begin{footnotesize}' \ - + "\n\n" \ - + dob.tmp \ - + '\\end{footnotesize}' \ - + "\n" \ - + @tex_ml.paraskip_normal \ - + "\n\\linebreak\n" - end - dob - elsif dob.is ==:code - dob=if @codeblock_box == 'listings' - box_listings(dob,ocn) - elsif @codeblock_box == 'boites' - box_boites(dob,ocn) - else - box_boites(dob,ocn) - end - dob - else 'error' #should never occur - end - dob=enclose(dob) unless dob.tmp =~/^$/ - dob - else - tst=SiSU_TeX_Pdf::FormatTextObject.new(@md,dob) - case dob.is - when :heading - case dob.ln - when 0 - tst.title_level_A - when 1 - tst.section_heading_level_B - when 2 - tst.section_heading_level_C - when 3 - tst.section_heading_level_D - when 4 - tst.heading_level_1 - when 5 - tst.heading_level_2 - when 6 - tst.heading_level_3 - when 7 - tst.heading_level_4 - else dob - end - when :heading_insert - br="\n\\\\\n" - if dob.name=='book_index' - h=tst.section_heading_level_B - heading="\\clearpage\n" + h.tmp - idx_arr=[] - idx=SiSU_Particulars::CombinedSingleton.instance.get_idx_raw(@md.opt).raw_idx - idx.each do |x| - x=if x.is_a?(String) - x=SiSU_TeX_Pdf::SpecialCharacters.new(@md,x).special_characters - x=SiSU_TeX_Pdf::FormatTextObject.new(@md,x).url_str_internal(x,true) - else x=nil - end - idx_arr << x.sub(/,$/,'') if x.is_a?(String) - end - idx_str=idx_arr.join(br) - l=heading + br + idx_str - p=heading + br + - '\begin{multicols}{2}' + br + - idx_str + br + - '\end{multicols}' - dob.tmp={ l: l, p: p } - elsif dob.ln==2 \ - and dob.obj=~/Metadata\b/ - tst.section_heading_level_B - elsif dob.ln==4 \ - and dob.obj=~/Metadata\b/ - h=tst.heading_level_1 - metadata=SiSU_Metadata::TeX_Metadata.new(@md).metadata_tex - dob.tmp=h.tmp + ' ' + '\begin{scriptsize}' + metadata.join(br) + '\end{scriptsize}' - else dob.tmp='' # dob.tmp={ l: '', p: '' } - end - when :para - if dob.bullet_ - dob.tmp=tst.bullet - elsif dob.indent \ - and dob.hang \ - and dob.indent =~/[1-9]/ \ - and dob.indent == dob.hang - dob.tmp=tst.indent - elsif dob.hang \ - and dob.hang =~/[0-9]/ \ - and (dob.indent != dob.hang or dob.indent =~/[1-9]/) - dob.tmp=tst.hang - else - dob.tmp=dob.tmp.strip - dob=enclose(dob) unless dob.tmp =~/^$/ - end - else - dob.tmp=dob.tmp.strip unless dob.is==:code - dob=enclose(dob) unless dob.tmp =~/^$/ - end - if dob.is_a?(String) - dob.tmp=dob.tmp.gsub(/\s*(?:#{Mx[:br_line]}|#{Mx[:br_nl]})\s*/,' \newline '). #% tread with care - gsub(/(\.#{Tex[:tilde]}\S*\s*|<:\S+>|#{Mx[:fa_o]}.*?#{Mx[:fa_c]}|#{Mx[:gr_o]}.*?#{Mx[:gr_c]}|<!.*?!>|<!>)/,' ') #% tread with care - end - dob - end - if dob.tmp =~/(?:#{Mx[:url_o]}\S+?#{Mx[:url_c]}|image\b)/m \ - && dob.is !=:code - dob=SiSU_TeX_Pdf::BareUrls.new(@md,dob).bare_urls - tst=SiSU_TeX_Pdf::FormatTextObject.new(@md,dob) - dob=tst.urls_txt_and_images - dob - elsif dob.tmp =~/https?:\/\/\S+\b/m \ - && dob.is ==:code \ - && @codeblock_box !='listings' - dob=SiSU_TeX_Pdf::BareUrls.new(@md,dob).bare_urls_in_code - dob - end - if dob.class !=Hash \ - && dob.tmp =~/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}image\b/ \ - && dob.is !=:code - tst=SiSU_TeX_Pdf::FormatTextObject.new(@md,dob) - end - dob - end - def tex_box_listings - <<-WOK -\\definecolor{listinggray}{gray}{0.9} -\\definecolor{lbcolor}{rgb}{0.9,0.9,0.9} -\\lstset{ - backgroundcolor=\\color{lbcolor}, - tabsize=4, - rulecolor=, - language=, - basicstyle=\\scriptsize, - upquote=true, - aboveskip={1.5\\baselineskip}, - columns=fixed, - showstringspaces=false, - extendedchars=true, - breaklines=true, - prebreak = \\raisebox{0ex}[0ex][0ex]{\\ensuremath{\\hookleftarrow}}, - frame=single, - showtabs=false, - showspaces=false, - showstringspaces=false, - identifierstyle=\\ttfamily, - keywordstyle=\\color[rgb]{0,0,1}, - commentstyle=\\color[rgb]{0.133,0.545,0.133}, - stringstyle=\\color[rgb]{0.627,0.126,0.941}, -} - WOK - end - def tex_box_boites - <<-WOK -\\def\\codeblockboitebox{% - \\def\\bkvz@before@breakbox{\\ifhmode\\par\\fi\\vskip\\breakboxskip\\relax}% - \\def\\bkvz@set@linewidth{\\advance\\linewidth -2\\fboxrule - \\advance\\linewidth -2\\fboxsep} % - \\def\\bk@line{\\hbox to \\linewidth{% - \\ifbkcount\\smash{\\llap{\\the\\bk@lcnt\\ }}\\fi - \\psframebox*[framesep=0pt,linewidth=0pt]{% - \\vrule\\@width\\fboxrule \\hskip\\fboxsep - \\box\\bk@bxa - \\hskip\\fboxsep \\vrule\\@width\\fboxrule - }% - }}% - %\\def\\bkvz@top{\\hrule\\@height\\fboxrule} - \\def\\bkvz@top{\\hrule height .6pt}% - \\def\\bkvz@bottom{\\hrule\\@height\\fboxrule}% - \\breakbox} -\\def\\endcodeblockboitebox{\\endbreakbox} - WOK - end - def tex_codeblock - codeblock_box=if @codeblock_box=='listings' - tex_box_listings - elsif @codeblock_box=='boites' - tex_box_boites - else - tex_box_boites - end - codeblock_box - end - def markup(data) - @tex_file=[] - home=the_text.txt_home.gsub(/#{Mx[:br_line]}|#{Mx[:br_nl]}|#{Mx[:br_paragraph]}|\\\\/,' - ') #no line splitting in heading neither html nor latex - title=@md.title.full.gsub(/#{Mx[:br_line]}|#{Mx[:br_nl]}|#{Mx[:br_paragraph]}|\\\\/,' - ') #no line splitting in heading neither html nor latex - @md.papersize_array.each do |ps| - if @md.opt.act[:pdf_p][:set]==:on - txt_obj={ txt: "#{home}: - #{title}", paper_size: ps, orientation: :portrait } - orient_portrait=SiSU_TeX_Pdf::FormatHead.new(@md,txt_obj) - @@tex_head[ps][:p]=orient_portrait.document_head_with_orientation(@codeblock_box) - end - if @md.opt.act[:pdf_l][:set]==:on - txt_obj={ txt: "#{home}: - #{title}", paper_size: ps, orientation: :landscape } - orient_landscape=SiSU_TeX_Pdf::FormatHead.new(@md,txt_obj) - @@tex_head[ps][:l]=orient_landscape.document_head_with_orientation(@codeblock_box) - end - end - @tex_file << <<-WOK -#{@tex_ml.header}#{@tex_ml.footer} -\\tolerance=300 -\\clubpenalty=300 -\\widowpenalty=300 -\\makeatother -\\makeatother -\\chardef\\txtbullet="2022 -\\chardef\\tilde="7E -%\\chardef\\asterisk="2A -\\def\\asterisk{{\\rm \\char42} } -\\definecolor{Light}{gray}{.92} -\\newcommand{\\Codeblock}[1]{\\normaltext\\raggedright\\small\\ttfamily\\texbackslash#1} -\\newcommand{\\monosp}[1]{\\normaltext\\ttfamily\\texbackslash#1} -\\newcommand{\\parasep}{\\\\ \\begin{center}*\\hspace{2em}*\\hspace{2em}*\\end{center} \\\\} -\\newcommand{\\hardspace}{{~}} -%\\newcommand{\\hardspace}{\\hspace{.5em}} -\\newcommand{\\caret}{{\\^{~}}} -\\newcommand{\\pipe}{{\\textbar}} -\\newcommand{\\curlyopen}{\{} -\\newcommand{\\curlyclose}{\}} -\\newcommand{\\lt}{{\UseTextSymbol{OML}{<}}} -\\newcommand{\\gt}{{\UseTextSymbol{OML}{>}}} -\\newcommand{\\slash}{{/}} -\\newcommand{\\underscore}{\\_} -\\newcommand{\\exclaim}{\\Verbatim{!}} -#{tex_codeblock} -% (tilde hash amp affected by http) -% \\sloppy -\\begin{document} - WOK - @copymark='' #check and remove as now is superflous - x={} - txt_obj={ title: @md.title.full } - if @md.opt.act[:pdf_l][:set]==:on - x[:l]=SiSU_TeX_Pdf::FormatTextObject.new(@md,txt_obj).title_landscape - end - if @md.opt.act[:pdf_p][:set]==:on - x[:p]=SiSU_TeX_Pdf::FormatTextObject.new(@md,txt_obj).title_portrait - end - @tex_file << x - x=nil - if defined? @md.creator.author \ - and @md.creator.author - sp_char=SiSU_TeX_Pdf::SpecialCharacters.new(@md,@md.creator.author) - author=sp_char.special_characters - @tex_file << if @md.author_home - <<-WOK - -\\author{\\href{#{@md.author_home}}{#{@copymark} \\textnormal{#{author}}}} - WOK - else "\n\\author{#{@copymark} \\textnormal{#{author}}}" - end - end - if defined? @md.make.cover_image \ - and not @md.make.cover_image.nil? \ - and @md.make.cover_image[:cover] =~/\S+/ - x={} - dir=SiSU_Env::InfoEnv.new(@md.fns) - x[:l] =<<-WOK -\\titlepic{\\includegraphics[width=0.3\\textwidth]{#{dir.path.image_source_include}/#{@md.make.cover_image[:cover]}}} - WOK - x[:p] =<<-WOK -\\titlepic{\\includegraphics[width=0.6\\textwidth]{#{dir.path.image_source_include}/#{@md.make.cover_image[:cover]}}} - WOK - @tex_file << x - x=nil - end - @tex_file << unless @md.fnb =~/^mail\s*$/ then @tex_ml.site - else '\date' - end - @tex_file << <<-WOK -\\pagenumbering{roman}\\maketitle -\\pagestyle{fancy} - WOK - if defined? @md.rights.all \ - and @md.rights.all - @tex_file << "\\newpage\n" - @tex_file << @@rights - @tex_file << @@prefix_b if defined? @md.creator.prefix_b and @md.creator.prefix_b - end - x={} - if (@make.build.toc?) - toc=<<-WOK -\\renewcommand{\\contentsname}{#{@translate.contents}} -\\tableofcontents - WOK - toc_pb={ l: @tex_ml.newpage(:landscape), p: @tex_ml.newpage(:portrait) } - else - toc='' - toc_pb={ l: '', p: '' } - end - if @md.opt.act[:pdf_l][:set]==:on - x[:l] =<<-WOK -#{@tex_ml.newpage(:landscape)} -\\pagestyle{fancy} -#{toc}#{toc_pb[:l]} -\\pagenumbering{arabic} -#{@tex_ml.paraskip_normal} -#{@tex_ml.newpage(:landscape)} - WOK - end - if @md.opt.act[:pdf_p][:set]==:on - x[:p] =<<-WOK -#{@tex_ml.newpage(:portrait)} -\\pagestyle{fancy} -#{toc}#{toc_pb[:p]} -#{@tex_ml.newpage(:portrait)} -\\pagenumbering{arabic} -#{@tex_ml.paraskip_normal} -#{@tex_ml.newpage(:portrait)} - WOK - end - @tex_file << x - x=nil - data.each do |dob| #% case follows with levels 1-6 indents & graphics - if dob.is_a?(Hash) - elsif dob.of==:para \ - || dob.of==:block #GATEWAY FIX FIX stuff - dob=markup_common(dob) - elsif dob.is==:table - if ( dob.tmp['a4'] \ - or dob.tmp['a5'] \ - or dob.tmp['b5'] \ - or dob.tmp['letter'] \ - or dob.tmp['legal']) - @md.papersize_array.each do |ps| - if dob.tmp[ps] - if (dob.tmp[ps][:p] and dob.tmp[ps][:l]) - dob.tmp[ps]={ - p: markup_common(dob.tmp[ps][:p]), - l: markup_common(dob.tmp[ps][:l]) - } - else p "#{__FILE__}:#{__LINE__}" if @md.opt.act[:maintenance][:set]==:on - end - end - end - elsif dob.tmp.is_a?(Hash) \ - and (dob.tmp[:p] and dob.tmp[:l]) - dob = { - p: markup_common(dob.tmp[:p]), - l: markup_common(dob.tmp[:l]) - } - else p "#{__FILE__}:#{__LINE__}" if @md.opt.act[:maintenance][:set]==:on - end - end - @tex_file << dob - end - @st[:tex][:stmp]||=@md.stmpd - stamp=@st[:tex][:stmp] if @st[:tex][:stmp] - if stamp - use=stamp.gsub(/\n/,"#{Tex[:backslash]*2}\n") - @tex_file << "\n\\newpage\n" - @tex_file << "\\section*" + - "{#{@tex_ml.owner_chapter}}\n" + - "\\addcontentsline{toc}" + - "{section}{#{@tex_ml.owner_chapter}}\n" - @tex_file << "#{use}\n" - @tex_file << @@rights if @@rights - end - @tex_file << "\n\\end{document}" - end - def number_paras_numbering(dob) # need tables and other types of object - if dob.of ==:para - paranum=dob.ocn ? dob.ocn : '' - paranum = '' if paranum.to_i==0 - paranumber_display=if @make.build.ocn? - tags='' - #[keep] code that follows inserts "name tags" as hypertargets, currently using ocn (converting nametags to ocn) for internal linking, related code: |texpdf_format.rb|@|uses nametags directly| - #if dob.tags.length > 0 # insert tags "hypertargets" - # dob.tags.each do |t| - # tags=tags +"\\hspace{0mm}\\hypertarget{#{t}}{\\hspace{0mm}}" - # end - #end - "\\begin{tiny}\\hspace{0mm}\\end{tiny}{\\marginpar{\\begin{tiny}\\hspace{0mm}\\hypertarget{#{dob.ocn}}{#{dob.ocn}}#{tags}\\end{tiny}}}" #ocn object citation numbering - else '' - end - dob.tmp = paranumber_display + dob.tmp - end - dob - end - def number_paras(data) - data.each do |dob| - dob=if dob.is_a?(Hash) - if ( dob['a4'] \ - or dob['a5'] \ - or dob['b5'] \ - or dob['letter'] \ - or dob['legal']) - para_hash={} - @md.papersize_array.each do |ps| - if defined? dob.tmp and dob.tmp[ps] - if (dob.tmp[ps][:p] and dob.tmp[ps][:l]) - para_hash[ps]={ - p: number_paras_numbering(dob.tmp[ps][:p]), - l: number_paras_numbering(dob.tmp[ps][:l]) - } - dob.tmp=para_hash - else p "#{__FILE__}:#{__LINE__}" if @md.opt.act[:maintenance][:set]==:on - end - end - end - elsif (dob.tmp[:p] and dob.tmp[:l]) - dob.tmp = { - p: number_paras_numbering(dob.tmp[:p]), - l: number_paras_numbering(dob.tmp[:l]) - } - else p "#{__FILE__}:#{__LINE__}" if @md.opt.act[:maintenance][:set]==:on - end - else - dob=if dob.of !=:comment \ - || dob.of !=:meta \ - || dob.of !=:layout - number_paras_numbering(dob) - else dob - end - end - end - data - end - def output_morph_hash(o) - ps,h,fn=o[:ps],o[:h],o[:filename] - if h[ps] \ - and (h[ps][:p] or h[ps][:l]) - if @md.opt.act[:pdf_p][:set]==:on - if h[ps][:p] - h[ps][:p]=h[ps][:p].gsub(/[ ]+$/m,''). - gsub(/\n\n\n+/m,"\n\n") - end - if h[ps][:p] !~/\A\s*\Z/ - fn[:portrait].puts h[ps][:p],"\n" - end - end - if @md.opt.act[:pdf_l][:set]==:on - if h[ps][:l] - h[ps][:l]=h[ps][:l].gsub(/[ ]+$/m,''). - gsub(/\n\n\n+/m,"\n\n") - end - if h[ps][:l] !~/\A\s*\Z/ - fn[:landscape].puts h[ps][:l],"\n" - end - end - elsif (h[:p] or h[:l]) - if @md.opt.act[:pdf_p][:set]==:on - if h[:p] - h[:p]=h[:p].gsub(/[ ]+$/m,''). - gsub(/\n\n\n+/m,"\n\n") - end - if h[:p] !~/\A\s*\Z/ - fn[:portrait].puts h[:p],"\n" - end - end - if @md.opt.act[:pdf_l][:set]==:on - if h[:l] - h[:l]=h[:l].gsub(/[ ]+$/m,''). - gsub(/\n\n\n+/m,"\n\n") - end - if h[:l] !~/\A\s*\Z/ - fn[:landscape].puts h[:l],"\n" - end - end - else p "#{__FILE__}:#{__LINE__}" if @md.opt.act[:maintenance][:set]==:on - end - end - def output(array) - @array=array=array.flatten.compact - fns=@md.fns.gsub(/~/,'-') #this is a sorry fix, but necessary as it appears latex programs like not ~ - @md.papersize_array.each do |ps| - texfile_landscape=(@md.opt.act[:pdf_l][:set]==:on) \ - ? (File.new("#{@env.processing_path.tex}/#{fns}.#{ps}.landscape.tex",'w+')) - : nil - texfile_portrait=(@md.opt.act[:pdf_p][:set]==:on) \ - ? (File.new("#{@env.processing_path.tex}/#{fns}.#{ps}.tex",'w+')) - : nil - file={ - landscape: texfile_landscape, - portrait: texfile_portrait - } - if @md.opt.act[:pdf_p][:set]==:on - file[:portrait] << @@tex_head[ps][:p] - end - if @md.opt.act[:pdf_l][:set]==:on - file[:landscape] << @@tex_head[ps][:l] - end - array.each do |morph| - if morph.is_a?(String) - #morph.gsub!(/^\s+/,'') - if morph !~/\A\s*\Z/ - if @md.opt.act[:pdf_p][:set]==:on - file[:portrait].puts morph,"\n" - end - if @md.opt.act[:pdf_l][:set]==:on - file[:landscape].puts morph,"\n" - end - end - elsif morph.class.inspect =~ /SiSU_AO_DocumentStructure/ \ - and morph.tmp \ - and morph.tmp.is_a?(String) - if morph.is !=:code \ - && morph.of !=:block - morph.tmp=morph.tmp.gsub(/^\s+/,'') - else morph.tmp - end - if (morph.tmp !~/\A\s*\Z/) \ - || morph.is==:code - if @md.opt.act[:pdf_p][:set]==:on - file[:portrait].puts morph.tmp,"\n" - end - if @md.opt.act[:pdf_l][:set]==:on - file[:landscape].puts morph.tmp,"\n" - end - end - elsif morph.is_a?(Hash) #inserted headers and the like, only - h={ ps: ps, h: morph, filename: file } - output_morph_hash(h) - elsif morph.tmp.is_a?(Hash) #tables & images? - h={ ps: ps, h: morph.tmp, filename: file } - output_morph_hash(h) - end - end - array=@array - if @md.opt.act[:pdf_p][:set]==:on - file[:portrait].close - end - if @md.opt.act[:pdf_l][:set]==:on - file[:landscape].close - end - end - @@tex_head={ - 'a4'=> { p: nil, l: nil }, - 'a5'=> { p: nil, l: nil }, - 'b5'=> { p: nil, l: nil }, - 'letter'=>{ p: nil, l: nil }, - 'legal'=> { p: nil, l: nil }, - 'book'=> { p: nil, l: nil } - } - array=[] - end - end - end -end -__END__ |