# encoding: utf-8
=begin
* Name: SiSU
* Description: a framework for document structuring, publishing and search
* Author: Ralph Amissah
* Copyright: (C) 1997 - 2012, 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 .
If you have Internet connection, the latest version of the GPL should be
available at these locations:
* SiSU uses:
* Standard SiSU markup syntax,
* Standard SiSU meta-markup syntax, and the
* Standard SiSU object citation numbering and system
* Hompages:
* Download:
* Ralph Amissah
** Description: LaTeX formatting template, unicode utf-8 version, used for pdf
=end
module SiSU_TeX_Pdf
@@table_pg_break_counter=1
include SiSU_Viz
class Bare_urls
def initialize(md,dob=nil)
@md,@dob=md,dob
@brace_url=SiSU_Viz::Skin.new.url_decoration
end
def bare_urls
@dob.obj.gsub!(/#{Mx[:url_o]}([a-zA-Z0-9._-]+\@\S+?\.[a-zA-Z0-9._-]+)#{Mx[:url_c]}/,
"#{@brace_url.tex_open}\\1#{@brace_url.tex_close}")
@dob.tmp.gsub!(/(^|[^\\])_/m,'\1\_') #watch may not work
@dob.tmp.gsub!(/(^|[^#{Mx[:lnk_c]}])#{Mx[:url_o]}_?(?:\\?_)?(\S+?)#{Mx[:url_c]}/m,
"\\1#{@brace_url.tex_open}\\begin{scriptsize}\\url{\\2}\\end{scriptsize}#{@brace_url.tex_close}")
@dob
end
def bare_urls_in_code
@dob.tmp.gsub!(/(^|[^\\])_/m,'\1\_') #watch may not work
@dob.tmp.gsub!(/(https?:\/\/\S+?)([{]|[.,;)\]]?(?: |$))/m,
'\begin{scriptsize}\url{\1}\end{scriptsize}\2')
@dob
end
end
class Format_text_object
require_relative 'defaults' # defaults.rb
attr_accessor :string,:string1,:orientation,:url,:dir,:tex
@@sys=SiSU_Env::System_call.new
@@tex_pattern_margin_number=/\\begin\{tiny\}\\hspace\{0mm\}\\end\{tiny\}\{\\marginpar.+?\}\}\}/
@@tableheader={
'a4' => { p: 0, l: 0 },
'a5' => { p: 0, l: 0 },
'b5' => { p: 0, l: 0 },
'letter' => { p: 0, l: 0 },
'legal' => { p: 0, l: 0 }
}
@@sys=SiSU_Env::System_call.new
def initialize(md,dob=nil)
@md,@dob=md,dob
if defined? @md.image \
and @md.image =~/center/
@center_begin,@center_end='\begin{center}','\end{center}'
else @center_begin,@center_end='',''
end
@start_table=''
@tx=SiSU_Env::Get_init.instance.tex
@brace_rel=SiSU_Viz::Skin.new.rel_decoration
@env ||=SiSU_Env::Info_env.new(@md.fns)
@tex2pdf=@@tex3pdf ||=SiSU_Env::System_call.new.tex2pdf_engine
end
def ocn_display(dob)
"\\begin{tiny}\\hspace{0mm}\\end{tiny}{\\marginpar{\\begin{tiny}\\hspace{0mm}\\hypertarget{#{dob.ocn}}{#{dob.ocn}}\\end{tiny}}}" #ocn object citation numbering
end
def table_special_characters(r)
r.gsub!(/#{Mx[:tc_p]}|$/u,'&')
r.gsub!(/%/,'\%')
r.gsub!(/#{Mx[:fa_bold_o]}(.+?)#{Mx[:fa_bold_c]}/,'\begin{bfseries}\1 \end{bfseries}')
r.gsub!(/#{Mx[:fa_italics_o]}(.+?)#{Mx[:fa_italics_c]}/,'\emph{\1}')
r.gsub!(/#{Mx[:fa_underscore_o]}(.+?)#{Mx[:fa_underscore_c]}/,'\uline{\1}') # ulem
r.gsub!(/#{Mx[:fa_cite_o]}(.+?)#{Mx[:fa_cite_c]}/,"``\\1''") # quote #CHECK
r.gsub!(/#{Mx[:fa_insert_o]}(.+?)#{Mx[:fa_insert_c]}/,'\uline{\1}') # ulem
r.gsub!(/#{Mx[:fa_strike_o]}(.+?)#{Mx[:fa_strike_c]}/,'\sout{\1}') # ulem
r.gsub!(/#{Mx[:fa_superscript_o]}(.+?)#{Mx[:fa_superscript_c]}/,"\$^{\\textrm{\\1}}\$")
r.gsub!(/#{Mx[:fa_subscript_o]}(.+?)#{Mx[:fa_subscript_c]}/,"\$_{\\textrm{\\1}}\$")
r
end
def longtable_landscape
end_table='\end{longtable}'
row_break='\\\\\\'
txt=if @dob.is=='table'
tw=case @dob.tmp[:paper_size]
when /a4/i; @tx.a4.landscape.w #European default, SiSU default
when /letter/i; @tx.letter.landscape.w #U.S. default
when /legal/i; @tx.legal.landscape.w #U.S. alternative
when /book|b5/i; @tx.b5.landscape.w #book default - larger
when /a5/i; @tx.a5.landscape.w
else @tx.a4.landscape.w #default currently A4
end
textwidth=(tw.to_i/2) - 24
colW=[]
colW << '{'
@dob.widths.each do |x|
x=(x.to_i * textwidth)/100
col_w=x.to_s # x.gsub(/.+/,'l\|') #unless x.nil?
colW << "p{#{col_w}mm}" if col_w
end
colW << '}'
colW=colW.join
start_table="\n\\setlength{\\LTleft}{0pt}\n\\setlength{\\LTright}{\\fill}\n" +
"\\begin{tiny}\n\\begin{longtable}#{colW}\n"
rows=@dob.obj.split(/#{Mx[:br_nl]}/)
if @dob.head_ #result imperfect, check on
rows[0].gsub!(/(^|.+?)(?:#{Mx[:tc_p]}|$)/u,'\bfseries \1&')
rows[0].gsub!(/&\s*$/," #{row_break} \\hline\\endhead #{row_break}")
end
rows.each do |r|
r=table_special_characters(r)
r.gsub!(/$/," #{row_break}\n") unless r =~/#{row_break*2}$/
if r=~/\/ # not tested table footer if any
tablefoot=$1
r.gsub!(/\/,'')
r="#{r} \\multicolumn{#{@dob.cols}}{l}{\\tiny #{tablefoot}} \\\\ \\hline\n\\endfoot\n\\hline\n"
end
end
table=rows.join #@dob[:dal].obj=rows.join
ocn_display(@dob) + start_table + table + " #{end_table}\n\\end{tiny}"
else ''
end
end
def longtable_portrait
end_table='\end{longtable}'
row_break='\\\\\\'
txt=if @dob.is=='table'
tw=case @dob.tmp[:paper_size]
when /a4/i; @tx.a4.portrait.w #European default, SiSU default
when /letter/i; @tx.letter.portrait.w #U.S. default
when /legal/i; @tx.legal.portrait.w #U.S. alternative
when /book|b5/i; @tx.b5.portrait.w #book default - larger
when /a5/i; @tx.a5.portrait.w
else @tx.a4.portrait.w #default currently A4
end
textwidth=tw.to_i - 20
colW=[]
colW << '{'
@dob.widths.each do |x|
x=(x.to_i * textwidth)/100 #x=(x.to_i/100.0 * 160)
col_w=x.to_s # x.gsub(/.+/,'l\|') #unless x.nil?
colW << "p{#{col_w}mm}" if col_w
end
colW << '}'
colW=colW.join
start_table="\n\\setlength{\\LTleft}{0pt}\n\\setlength{\\LTright}{\\fill}\n" +
"\\begin{tiny}\n\\begin{longtable}#{colW}\n"
rows=@dob.obj.split(/#{Mx[:br_nl]}/)
if @dob.head_
rows[0].gsub!(/(^|.+?)(?:#{Mx[:tc_p]}|$)/u,'\bfseries \1&')
rows[0].gsub!(/&\s*$/," #{row_break} \\hline\\endhead #{row_break}")
end
rows.each do |r|
r=table_special_characters(r)
r.gsub!(/$/," #{row_break}\n") unless r =~/#{row_break*2}$/
if r=~/\/ # not tested table footer if any
tablefoot=$1
r.gsub!(/\/,'')
r="#{r} \\multicolumn{#{@dob.cols}}{l}{\\tiny #{tablefoot}} \\\\ \\hline\n\\endfoot\n\\hline\n"
end
end
table=rows.join #@dob[:dal].obj=rows.join
ocn_display(@dob) + start_table + table + " #{end_table}\n\\end{tiny}"
else ''
end
end
def heading_major
dob=@dob
title=@md.title.full
dob.tmp.strip! if dob.tmp
dob.tmp.gsub!(/\\begin\{(bfseries|itshape)\}(.+?)\\end\{\1\}/m,'\2')
cont_ln=dob.tmp.dup
cont_ln.gsub!(/\\begin\{(monosp)\}(.+?)\\end\{\1\}/m,'\2')
cont_ln.gsub!(@@tex_pattern_margin_number,'')
clearp=(dob.lv =~/B/ && dob.obj =='Metadata') ? "\\clearpage\n" : ''
if dob.tmp =~/\\[Ff]ootnote/ #and dob =~/^[1-6]#{Tex[:tilde]}/ # removing footnotes from headings!
cont_ln.gsub!(/\s*\\footnote\[\d+\]\{%\n .+? \}\s*/,' ')
cont_ln.gsub!(/\s*\\Footnote[A]\{[*+]+\d*\}\{%\n .+? \}\s*/,' ')
end
dob.tmp.gsub!(/^(.*)\n?$/m,
"#{clearp}\\part*{\\1}
\\addcontentsline{toc}{section}{#{cont_ln}}
\\markboth{#{title}}\n")
dob
end
def level4
dob=@dob
dob.tmp.strip! if dob.tmp
dob.tmp.gsub!(/\\begin\{(bfseries|itshape)\}(.+?)\\end\{\1\}/m,'\2')
cont_ln=dob.tmp.dup
cont_ln.gsub!(/\\begin\{(monosp)\}(.+?)\\end\{\1\}/m,'\2')
cont_ln.gsub!(@@tex_pattern_margin_number,'')
cont_ln.gsub!(/#{Tex[:backslash]*2}/,"#{Tex[:backslash]*4}") # added w42
cont_ln.gsub!(/\\footnote\[\d+\]\{%.+?\\end\{scriptsize\}\s*\}/m,'') #arbitrary bugfix, revisit should not be necessary, eg. wta.1994 2004w22
cont_ln.gsub!(/\\Footnote[A]\{[*+]+\d*\}\{%.+?\\end\{scriptsize\}\s*\}/m,'') #arbitrary bugfix, revisit should not be necessary, eg. wta.1994 2004w22
title=@md.title.full
if dob.name =~/endnotes/
dob.tmp.gsub!(/.+/m,'')
end
if dob.tmp =~/\\footnote/ #and dob =~/^[1-6]#{Tex[:tilde]}/ # removing footnotes from headings!
cont_ln.gsub!(/\s*\\footnote\[\d+\]\{%\n .+? \}\s*/,' ')
cont_ln.gsub!(/\s*\\Footnote[A]\{[*+]+\d*\}\{%\n .+? \}\s*/,' ')
end
dob.tmp.gsub!(/^(.*)?\n?$/m,"\\subsubsection*{\\1}
\\addcontentsline{toc}{subsection}{#{cont_ln}}
\\markright{#{title}}")
dob
end
def level5
dob=@dob
# there is a problem here with creation of headers does not do what you would want it to header starts with a * and is not in bold work on \\@txt*, same for next section 2002w46
dob.tmp.strip! if dob.tmp
dob.tmp.gsub!(/\\begin\{(bfseries|itshape)\}(.+?)\\end\{\1\}/m,'\2')
cont_ln=dob.tmp.dup
cont_ln.gsub!(/\\begin\{(monosp)\}(.+?)\\end\{\1\}/m,'\2')
cont_ln.gsub!(@@tex_pattern_margin_number,'')
cont_ln.gsub!(/\\footnote\[\d+\]\{%.+?\\end\{scriptsize\}\s*\}/m,'') #arbitrary bugfix, revisit should not be necessary, eg. wta.1994 2004w22
cont_ln.gsub!(/\\Footnote[A]\{[*+]+\d*\}\{%.+?\\end\{scriptsize\}\s*\}/m,'') #arbitrary bugfix, revisit should not be necessary, eg. wta.1994 2004w22
cont_ln.gsub!(/\\\&/,' and ') #revisit: tmp bugfix 200507, substitutes & with 'and' in toc, needed e.g. for AT&T, see ffa
if dob.tmp =~/\\footnote/ #and dob =~/^[1-6]#{Tex[:tilde]}/ # removing footnotes from headings!
cont_ln.gsub!(/\s*\\footnote\[\d+\]\{%\n .+? \}\s*/,' ')
cont_ln.gsub!(/\s*\\Footnote[A]\{[*+]+\d*\}\{%\n .+? \}\s*/,' ')
end
dob.tmp.gsub!(/^(.*)?\n?$/m,
"\\subsubsection*{\\1}
\\addcontentsline{toc}{subsubsection}{#{cont_ln} \\\\
}")
dob
end
def level6
dob=@dob
# there is a problem here with creation of headers does not do what you would want it to header starts with a * and is not in bold work on \\sub@txt*, same for previous section 2002w46
dob.tmp.strip! if dob.tmp
dob.tmp.gsub!(/\\begin\{(bfseries|itshape)\}(.+?)\\end\{\1\}/m,'\2')
cont_ln=dob.tmp.dup
cont_ln.gsub!(/\\begin\{(monosp)\}(.+?)\\end\{\1\}/m,'\2')
cont_ln.gsub!(@@tex_pattern_margin_number,'')
cont_ln.gsub!(/\\footnote\[\d+\]\{%.+?\\end\{scriptsize\}\s*\}/m,'') #arbitrary bugfix, revisit should not be necessary, eg. wta.1994 2004w22
cont_ln.gsub!(/\\Footnote[A]\{[*+]+\d*\}\{%.+?\\end\{scriptsize\}\s*\}/m,'') #arbitrary bugfix, revisit should not be necessary, eg. wta.1994 2004w22
if dob.tmp =~/\\footnote/ #and dob =~/^[1-6]#{Tex[:tilde]}/ # removing footnotes from headings!
cont_ln.gsub!(/\s*\\footnote\[\d+\]\{%\n .+? \}\s*/,' ')
cont_ln.gsub!(/\s*\\Footnote[A]\{[*+]+\d*\}\{%\n .+? \}\s*/,' ')
end
dob.tmp.gsub!(/^(.*)?\n?$/m,
"\\subsubsection*{\\1}
\\addcontentsline{toc}{subsubsection}{~~~~#{cont_ln} \\\\
}")
#dob.tmp.gsub!(/^(.*)?\n?$/m,
# '\subsubsection*{\1}')
dob
end
def hang
case @dob.indent
when /0/
case @dob.hang
when /0/; indent,hang='0mm', '0mm'
when /1/; indent,hang='0mm','10mm'
when /2/; indent,hang='0mm','20mm'
when /3/; indent,hang='0mm','30mm'
when /4/; indent,hang='0mm','40mm'
when /5/; indent,hang='0mm','50mm'
when /6/; indent,hang='0mm','60mm'
when /7/; indent,hang='0mm','70mm'
when /8/; indent,hang='0mm','80mm'
when /9/; indent,hang='0mm','90mm'
end
when /1/
case @dob.hang
when /0/; indent,hang='10mm','-10mm'
when /1/; indent,hang='10mm', '0mm'
when /2/; indent,hang='10mm', '10mm'
when /3/; indent,hang='10mm', '20mm'
when /4/; indent,hang='10mm', '30mm'
when /5/; indent,hang='10mm', '40mm'
when /6/; indent,hang='10mm', '50mm'
when /7/; indent,hang='10mm', '60mm'
when /8/; indent,hang='10mm', '70mm'
when /9/; indent,hang='10mm', '80mm'
end
when /2/
case @dob.hang
when /0/; indent,hang='20mm','-20mm'
when /1/; indent,hang='20mm','-10mm'
when /2/; indent,hang='20mm', '0mm'
when /3/; indent,hang='20mm', '10mm'
when /4/; indent,hang='20mm', '20mm'
when /5/; indent,hang='20mm', '30mm'
when /6/; indent,hang='20mm', '40mm'
when /7/; indent,hang='20mm', '50mm'
when /8/; indent,hang='20mm', '60mm'
when /9/; indent,hang='20mm', '70mm'
end
when /3/
case @dob.hang
when /0/; indent,hang='30mm','-30mm'
when /1/; indent,hang='30mm','-20mm'
when /2/; indent,hang='30mm','-10mm'
when /3/; indent,hang='30mm', '0mm'
when /4/; indent,hang='30mm', '10mm'
when /5/; indent,hang='30mm', '20mm'
when /6/; indent,hang='30mm', '30mm'
when /7/; indent,hang='30mm', '40mm'
when /8/; indent,hang='30mm', '50mm'
when /9/; indent,hang='30mm', '60mm'
end
when /4/
case @dob.hang
when /0/; indent,hang='40mm','-40mm'
when /1/; indent,hang='40mm','-30mm'
when /2/; indent,hang='40mm','-20mm'
when /3/; indent,hang='40mm','-10mm'
when /4/; indent,hang='40mm', '0mm'
when /5/; indent,hang='40mm', '10mm'
when /6/; indent,hang='40mm', '20mm'
when /7/; indent,hang='40mm', '30mm'
when /8/; indent,hang='40mm', '40mm'
when /9/; indent,hang='40mm', '50mm'
end
when /5/
case @dob.hang
when /0/; indent,hang='50mm','-50mm'
when /1/; indent,hang='50mm','-40mm'
when /2/; indent,hang='50mm','-30mm'
when /3/; indent,hang='50mm','-20mm'
when /4/; indent,hang='50mm','-10mm'
when /5/; indent,hang='50mm', '0mm'
when /6/; indent,hang='50mm', '10mm'
when /7/; indent,hang='50mm', '20mm'
when /8/; indent,hang='50mm', '30mm'
when /9/; indent,hang='50mm', '40mm'
end
when /6/
case @dob.hang
when /0/; indent,hang='60mm','-60mm'
when /1/; indent,hang='60mm','-50mm'
when /2/; indent,hang='60mm','-40mm'
when /3/; indent,hang='60mm','-30mm'
when /4/; indent,hang='60mm','-20mm'
when /5/; indent,hang='60mm','-10mm'
when /6/; indent,hang='60mm', '0mm'
when /7/; indent,hang='60mm', '10mm'
when /8/; indent,hang='60mm', '20mm'
when /9/; indent,hang='60mm', '30mm'
end
when /7/
case @dob.hang
when /0/; indent,hang='70mm','-70mm'
when /1/; indent,hang='70mm','-60mm'
when /2/; indent,hang='70mm','-50mm'
when /3/; indent,hang='70mm','-40mm'
when /4/; indent,hang='70mm','-30mm'
when /5/; indent,hang='70mm','-20mm'
when /6/; indent,hang='70mm','-10mm'
when /7/; indent,hang='70mm', '0mm'
when /8/; indent,hang='70mm', '10mm'
when /9/; indent,hang='70mm', '20mm'
end
when /8/
case @dob.hang
when /0/; indent,hang='80mm','-80mm'
when /1/; indent,hang='80mm','-70mm'
when /2/; indent,hang='80mm','-60mm'
when /3/; indent,hang='80mm','-50mm'
when /4/; indent,hang='80mm','-40mm'
when /5/; indent,hang='80mm','-30mm'
when /6/; indent,hang='80mm','-20mm'
when /7/; indent,hang='80mm','-10mm'
when /8/; indent,hang='80mm', '0mm'
when /9/; indent,hang='80mm', '10mm'
end
when /9/
case @dob.hang
when /0/; indent,hang='90mm','-90mm'
when /1/; indent,hang='90mm','-80mm'
when /2/; indent,hang='90mm','-70mm'
when /3/; indent,hang='90mm','-60mm'
when /4/; indent,hang='90mm','-50mm'
when /5/; indent,hang='90mm','-40mm'
when /6/; indent,hang='90mm','-30mm'
when /7/; indent,hang='90mm','-20mm'
when /8/; indent,hang='90mm','-10mm'
when /9/; indent,hang='90mm', '0mm'
end
end
"\\begin{ParagraphHang}{#{indent}}{#{hang}}#{@dob.tmp} \\end{ParagraphHang}}"
end
def indent
indent=case @dob.indent
when /1/; '0mm'
when /2/; '10mm'
when /3/; '20mm'
when /4/; '30mm'
when /5/; '40mm'
when /6/; '50mm'
when /7/; '60mm'
when /8/; '70mm'
when /9/; '80mm'
end
"\\begin{ParagraphIndent}{#{indent}}#{@dob.tmp} \\end{ParagraphIndent}}"
end
def bullet
blt=if @dob.indent
indent=case @dob.indent
when /1/; '0em'
when /2/; '1.0em'
when /3/; '2.0em'
when /4/; '3.0em'
when /5/; '4.0em'
when /6/; '5.0em'
when /7/; '6.0em'
when /8/; '7.0em'
when /9/; '8.0em'
else '-1.0em'
end
"\\begin{Bullet}{#{indent}}$\\txtbullet$\\hspace{\\enspace}#{@dob.tmp}\\end{Bullet}"
else
"\\begin{Bullet}{-5mm}$\\txtbullet$\\hspace{\\enspace}#{@dob.tmp}\\end{Bullet}"
end
blt
end
def symbol_graphic
dir=SiSU_Env::Info_env.new(@md.fns)
image='c_' + /<:=\s*(\S+?)\s*>/m.match(@txt).captures.join + '.png' #watch
if FileTest.file?("#{dir.path.image_source_include}/#{image}")
@txt.gsub!(/<:=\s*(\S+?)\s*>/,
"\\includegraphics*[width=11pt]{#{dir.path.image_source_include}/c_\\1.png}")
else
SiSU_Screen::Ansi.new(@md.opt.cmd,"ERROR - image:",%{"#{image}" missing},"search path: #{dir.path.image_source_include}").error2 unless @md.opt.cmd =~/q/
@txt.gsub!(/#{Mx[:lnk_o]}\S+\.(png|jpg|gif).+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/,'') # fragile match operator\\ fragile !
end
end
def image
dir=SiSU_Env::Info_env.new(@md.fns)
image,m=/#{Mx[:lnk_o]}\s*(\S+)\s+.+?width=``(\d+)''.+?#{Mx[:lnk_c]}/m.match(@txt).captures
width=m[1] || '100'
width=width.to_i*0.4
image_source=if @md.fns =~/\.(?:ssm\.)?sst$/ \
and FileTest.file?("#{dir.path.image_source_include_local}/#{image}")
dir.path.image_source_include_local
elsif @md.fns =~/\.-ss[tm]$/ \
and FileTest.file?("#{dir.path.image_source_include_remote}/#{image}")
dir.path.image_source_include_remote
elsif FileTest.file?("#{dir.path.image_source_include}/#{image}")
dir.path.image_source_include
else
SiSU_Screen::Ansi.new(@md.opt.cmd,"ERROR - image:",%{"#{image}" missing},"search locations: #{dir.path.image_source_include_local},#{dir.path.image_source_include_remote} and #{dir.path.image_source_include}").error2 unless @md.opt.cmd =~/q/
nil
end
if image_source #CHECK
@txt.gsub!(/#{Mx[:lnk_o]}\s*(\S+)\s+.+?#{Mx[:lnk_c]}/,
@center_begin + "\\includegraphics*[width=#{width}pt]{#{image_source}/\\1}" + @center_end )
else @txt.gsub!(/#{Mx[:lnk_o]}\s*(\S+)\s+.+?#{Mx[:lnk_c]}/,'\1}')
end
end
def png(ps='') #fc missing image check
dir=SiSU_Env::Info_env.new(@md.fns)
# messy clean up
z=@txt[/#{Mx[:lnk_o]}(\S.+?)#{Mx[:lnk_c]}(?:image|png)/,1].strip if @txt =~ /#{Mx[:lnk_o]}\S.+?#{Mx[:lnk_c]}(?:image|png)/ # match operator for z \\ fragile !
if z #debug 2004w14
image=z[/(\S+?\.(?:png|jpg|gif)\b)/m]
image.gsub!(/\\/,'')
width=if z =~ /\d+x\d*/
w=(z[/\s(\d+)x\d*/,1]).to_i
w*0.8
else '100' #revisit, is bug for small images/icons
end
width='380' if width.to_i > 380
c=z[/``(.+?)''/m]
end
hsp="\n{\\color{mywhite} .}&~\n" # ~ character for hardspace
caption="{\\\\\\\ \n\\begin{scriptsize}#{hsp*3}#{c}\\end{scriptsize}&}" if c
image_source=if @md.fns =~/\.(?:ssm\.)?sst$/ \
and FileTest.file?("#{dir.path.image_source_include_local}/#{image}")
dir.path.image_source_include_local
elsif @md.fns =~/\.-ss[tm]$/ \
and FileTest.file?("#{dir.path.image_source_include_remote}/#{image}")
dir.path.image_source_include_remote
elsif FileTest.file?("#{dir.path.image_source_include}/#{image}")
dir.path.image_source_include
else
unless image.nil? \
or image.length < 2
SiSU_Screen::Ansi.new(@md.opt.cmd,"ERROR - image:",%{"#{image}" missing},"search locations: #{dir.path.image_source_include_local},#{dir.path.image_source_include_remote} and #{dir.path.image_source_include}").error2 unless @md.opt.cmd =~/q/
end
nil
end
if image_source
@txt.gsub!(/#{Mx[:lnk_o]}\S+\.(png|jpg|gif).+?#{Mx[:lnk_c]}(image|png)/, # fragile match operator\\ fragile !
"#{@center_begin}\n\\includegraphics*[width=#{width}pt]{#{image_source}/#{image}}#{caption}#{@center_end}")
else @txt.gsub!(/#{Mx[:lnk_o]}\S+\.(png|jpg|gif).+?#{Mx[:lnk_c]}(image|png)/,'')
end
end
def url_str_internal(str,idx=nil)
map_nametags=SiSU_Particulars::Combined_singleton.instance.get_map_nametags(@md).nametags_map #p map_nametags
rgx_url_generic=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:rel_o]}\S+?#{Mx[:rel_c]}/m
rgx_url_relative=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:rel_o]}:\S+?#{Mx[:rel_c]}/m
rgx_url_internal=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:rel_o]}#?\S+?#{Mx[:rel_c]}/m
while str =~/#{Mx[:lnk_o]}([^#{Mx[:lnk_o]}#{Mx[:lnk_c]}]+)#{Mx[:lnk_c]}#{Mx[:rel_o]}:(\S+?)#{Mx[:rel_c]}/m
link,url=$1,$2
link,url=link.strip,url.strip
link.gsub!(/&/,"#{Xx[:protect]}&")
url="#{@env.url.root}/" + url
str.sub!(/#{Mx[:lnk_o]}[^#{Mx[:lnk_o]}#{Mx[:lnk_c]}]+#{Mx[:lnk_c]}#{Mx[:rel_o]}:\S+?#{Mx[:rel_c]}/m,"#{@brace_rel.tex_open}\\href{#{url}}{#{link}}#{@brace_rel.tex_close}")
end
while str =~/#{Mx[:lnk_o]}([^#{Mx[:lnk_o]}#{Mx[:lnk_c]}]+)#{Mx[:lnk_c]}#{Mx[:rel_o]}#?(\S+?)#{Mx[:rel_c]}/m
link,url=$1,$2
link,url=link.strip,url.strip
link.gsub!(/&/,"#{Xx[:protect]}&")
url.gsub!(/\\_/,'_')
ocn_lnk=if map_nametags[url] \
and map_nametags[url][:ocn]
map_nametags[url][:ocn]
else nil
end
ocn_lnk=(url=~/^\d+$/ ? url : ocn_lnk)
if ocn_lnk and not ocn_lnk.empty?
idx \
? (str.sub!(rgx_url_internal,"\\hyperlink{#{ocn_lnk}}{#{link}}"))
: (str.sub!(rgx_url_internal,"#{@brace_rel.tex_open}\\hyperlink{#{ocn_lnk}}{#{link}}#{@brace_rel.tex_close}"))
else
puts %{name tag: "#{url}" not found}
str.sub!(rgx_url_internal,"#{link}")
end
#[keep] code that follows uses nametags directly, currently nametags converted to their ocn, related code: |texpdf.rb|@|hypertargets|
#idx \
#? (str.sub!(rgx_url_internal,"\\hyperlink{#{url}}{#{link}}")) \
#: (str.sub!(rgx_url_internal,"#{@brace_rel.tex_open}\\hyperlink{#{url}}{#{link}}#{@brace_rel.tex_close}"))
end
str.gsub!(/#{Xx[:protect]}/,'')
str
end
def url_str(str)
rgx_url_generic=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
while str =~rgx_url_generic
if str=~rgx_url_generic
regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}(\S+?)#{Mx[:url_c]}/m
z,url=regx_url.match(str).captures if str =~regx_url
url=url.strip
link=z.strip
link.gsub!(/&/,"#{Xx[:protect]}&")
str.sub!(rgx_url_generic,"#{@brace_rel.tex_open}\\href{#{url}}{#{link}}#{@brace_rel.tex_close}")
str.gsub!(/#{Xx[:protect]}/,'')
str
else str
end
str
end
str
end
def url_with_txt(dob)
rgx_url_generic=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
while dob.tmp =~rgx_url_generic
if dob.tmp=~rgx_url_generic
if dob.tmp =~/#{Mx[:lnk_o]}(?:.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}(\S+?)#{Mx[:url_c]}/m
punctuate=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m.match(dob.tmp).captures.join
else
regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}(\S+?)#{Mx[:url_c]}/m
punctuate=''
end
z,url=regx_url.match(dob.tmp).captures if dob.tmp =~regx_url
url=url.strip
link=z.strip
link.gsub!(/&/,"#{Xx[:protect]}&")
dob.tmp.sub!(rgx_url_generic,"#{@brace_rel.tex_open}\\href{#{url}}{#{link}}#{@brace_rel.tex_close}#{punctuate}")
dob.tmp.gsub!(/#{Xx[:protect]}/,'')
dob
else dob
end
dob
end
dob
end
def urls_txt_and_images
dob=@dob
dir=SiSU_Env::Info_env.new(@md.fns)
@dm={
'a4'=> @tx.a4.landscape.img_px,
'letter'=> @tx.letter.landscape.img_px,
'legal'=> @tx.legal.landscape.img_px,
'b5'=> @tx.b5.landscape.img_px,
'a5'=> @tx.a5.landscape.img_px
}
images_hash={ }
generic_rgx=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}(?:#{Mx[:url_o]}\S+?#{Mx[:url_c]}|image\b)/m
rgx_url_generic=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
url_bare_rgx=/#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
url_image_rgx=/#{Mx[:lnk_o]}[a-zA-Z0-9_\\-]+\.(?:png|jpg|gif).+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
image_rgx=/#{Mx[:lnk_o]}[a-zA-Z0-9_\\-]+\.(?:png|jpg|gif).+?#{Mx[:lnk_c]}image/m
@md.papersize_array.each do |ps|
images_hash[ps] = dob.tmp
while images_hash[ps] =~generic_rgx
if dob.tmp =~rgx_url_generic \
and dob.tmp !~/\.(?:png|jpg|gif)|#{Mx[:lnk_c]}image\b/m
dob=url_with_txt(dob)
elsif images_hash[ps]=~generic_rgx
if dob.tmp=~rgx_url_generic
if images_hash[ps] =~/#{Mx[:lnk_o]}(?:.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m
regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}(\S+?)#{Mx[:url_c]}/m
punctuate=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/m.match(images_hash[ps]).captures.join
else
regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}#{Mx[:url_o]}(\S+?)#{Mx[:url_c]}/m
punctuate=''
end
z,url=regx_url.match(images_hash[ps]).captures if images_hash[ps] =~regx_url
url=url.strip
else
if images_hash[ps] =~/#{Mx[:lnk_o]}(?:.+?)#{Mx[:lnk_c]}image\.[^'"\s]+?(?:[;.,]?(?:\s|$)|(?:\s|$))/m
regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}image\.[^'"\s]+?(?:[;.,]?(?:\s|$)|(?:\s|$))/m
punctuate=/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}image\.[^'"\s]+?([;.,]?(?:\s|$))/m.match(images_hash[ps]).captures.join
else
regx_url=%r/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}image/m
punctuate=''
end
z=regx_url.match(images_hash[ps])[1] if images_hash[ps] =~regx_url
url=''
end
if images_hash[ps] =~/#{Mx[:lnk_o]}\s*\S+\.?(?:png|jpg|gif)/m \
and images_hash[ps]=~/\s+\d+x\d+(\s+|\s*#{Mx[:lnk_c]})/m
image,x,y=z.scan(/\S+/)
image.gsub!(/\\/,'')
w=((z =~/\s(\d+)x\d*/) ? z[/\s(\d+)x\d*/,1] : 200)
width={}
width['a4'] = ((w.to_i > @dm['a4']) ? @dm['a4'] : w)
width['letter'] = ((w.to_i > @dm['letter']) ? @dm['letter'] : w)
width['legal'] = ((w.to_i > @dm['legal']) ? @dm['legal'] : w)
width['a5'] = ((w.to_i > @dm['a5']) ? @dm['a5'] : w)
width['b5'] = ((w.to_i > @dm['b5']) ? @dm['b5'] : w)
c=z[/``(.+?)''/m,1]
hsp="\n{\\color{mywhite} .}&~\n" # ~ character for hardspace
caption=(c ? "{\\\\\ \n\\begin{scriptsize}#{hsp*3}#{c}\\end{scriptsize}&}" : '')
elsif images_hash[ps] =~/#{Mx[:lnk_o]}\s*(\S+\.?\.(?:png|jpg|gif))/m
SiSU_Screen::Ansi.new(@md.opt.cmd,%{document built without image: "#{$1}" as image dimensions not provided (either image not found or neither imagemagick nor graphicsmagick is installed)?\n}).print_grey #unless @opt.cmd =~/q/
images_hash[ps].gsub!(/#{Mx[:lnk_o]}\s*(\S+\.?\.(?:png|jpg|gif))/,'[image]')
end
if image #most images fc etc. #% clean up !
if @md.fns =~/\.(?:ssm\.)?sst$/ \
and FileTest.file?("#{dir.path.image_source_include_local}/#{image}")
case images_hash[ps]
when url_image_rgx
images_hash[ps].sub!(url_image_rgx,
"#{@center_begin}\\\n\\href{#{url}}{\\includegraphics*[width=#{width[ps]}pt]{#{dir.path.image_source_include_local}/#{image}}}#{caption} #{@center_end}")
when image_rgx
images_hash[ps].sub!(image_rgx,
"#{@center_begin}\\\n\\includegraphics*[width=#{width[ps]}pt]{#{dir.path.image_source_include_local}/#{image}}#{caption} #{@center_end}")
end
images_hash[ps]
elsif @md.fns =~/\.-ss[tm]$/ \
and FileTest.file?("#{dir.path.image_source_include_remote}/#{image}")
case images_hash[ps]
when url_image_rgx
images_hash[ps].sub!(url_image_rgx,
"#{@center_begin}\\\n\\href{#{url}}{\\includegraphics*[width=#{width[ps]}pt]{#{dir.path.image_source_include_remote}/#{image}}}#{caption}#{@center_end}")
when image_rgx
images_hash[ps].sub!(image_rgx,
"#{@center_begin}\\\n\\includegraphics*[width=#{width[ps]}pt]{#{dir.path.image_source_include_remote}/#{image}}#{caption}#{@center_end}")
end
images_hash[ps]
elsif FileTest.file?("#{dir.path.image_source_include}/#{image}")
case images_hash[ps]
when url_image_rgx
images_hash[ps].sub!(url_image_rgx,
"#{@center_begin}\\\n\\href{#{url}}\n{\\includegraphics*[width=#{width[ps]}pt]{#{dir.path.image_source_include}/#{image}}}#{caption}#{@center_end}")
when image_rgx
images_hash[ps].sub!(image_rgx,
"#{@center_begin}\\\n\\includegraphics*[width=#{width[ps]}pt]{#{dir.path.image_source_include}/#{image}}#{caption}#{@center_end}")
end
images_hash[ps]
else
SiSU_Screen::Ansi.new(@md.opt.cmd,"ERROR - image:",%{"#{image}" missing},"search locations: #{dir.path.image_source_include_local},#{dir.path.image_source_include_remote} and #{dir.path.image_source_include}").error2 unless @md.opt.cmd =~/q/
if images_hash[ps] =~url_image_rgx \
or images_hash[ps] =~image_rgx
images_hash[ps]=''
end
images_hash[ps]
end
else
link=z.strip #[/(.+?)\\/m,1]
images_hash[ps]="\\href{#{url}}{#{link}}#{punctuate}" if images_hash[ps] =~/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}#{Mx[:url_o]}\S+?#{Mx[:url_c]}/
images_hash[ps]
end
else images_hash[ps]
end
images_hash[ps] #=ocn_display(dob) + images_hash[ps]
end #while loop
images_hash
end
images_hash
use_images_hash={}
images_hash.each do |k,t|
use_images_hash[k]={ l: t, p: t}
end
dob.tmp=use_images_hash
dob
end
def title
title=SiSU_TeX_Pdf::Special_characters.new(@md,@md.title.full).special_characters_safe
"\n\\title{#{title}}"
end
def title_landscape
title
end
def title_portrait
title
end
end
class Format_head
require_relative 'prog_text_translation' # prog_text_translation.rb
def initialize(md,t_o)
@md,@t_o=md,t_o
@env=SiSU_Env::Info_env.new(@md.fns)
if t_o.class==Hash
@txt =t_o[:txt] || nil
@subtitle=t_o[:subtitle] || nil
@ps=t_o[:paper_size] || nil
@ocn=t_o[:ocn] || nil
@layout=t_o[:orientation] || nil
else
p t_o.class
p caller
end
@tx=SiSU_Env::Get_init.instance.tex
@brace_url=SiSU_Viz::Skin.new.url_decoration
@tex2pdf=@@tex3pdf ||=SiSU_Env::System_call.new.tex2pdf_engine
@ps=@txt if @txt=~/(?:a4|letter|legal|book|a5|b5)/i
@lang ||=SiSU_i18n::Languages.new #.list[@md.opt.lng][:xlp]
@author=if defined? @md.creator.author \
and @md.creator.author=~/\S+/
SiSU_TeX_Pdf::Special_characters.new(@md,@md.creator.author).special_characters_safe
else ''
end
@subject=if defined? @md.classify.subject \
and @md.classify.subject=~/\S+/
SiSU_TeX_Pdf::Special_characters.new(@md,@md.classify.subject).special_characters_safe
else ''
end
@keywords=if defined? @md.classify.keywords \
and @md.classify.keywords=~/\S+/
SiSU_TeX_Pdf::Special_characters.new(@md,@md.classify.keywords).special_characters_safe
else ''
end
end
def tex_head_lang #babel 18n
lang_char_arr=@md.i18n
mainlang_char=if @md.i18n == Array \
and @md.i18n.length > 0
lang_char_arr.slice(0)
else @md.opt.lng
end
mainlang=@lang.list[mainlang_char][:xlp]
otherlang=if mainlang != 'english'
[ @lang.list['en'][:xlp] ]
else []
end
if lang_char_arr.length > 0
lang_char_arr.slice(1..9).each { |ch| otherlang << @lang.list[ch][:xlp] }
otherlang.uniq!
end
otherlang=otherlang.join(',')
{ mainlang: mainlang, otherlang: otherlang }
end
def tex_head_encode
texpdf_font=if defined? @md.make.texpdf_font.main \
and not @md.make.texpdf_font.main.nil? \
and @md.make.texpdf_font.main=~/\S{3,}/
@md.make.texpdf_font.main
else @env.font.texpdf.main
end
texpdf_font_sans=if defined? @md.make.texpdf_font.sans \
and not @md.make.texpdf_font.sans.nil? \
and @md.make.texpdf_font.sans=~/\S{3,}/ # not used
@md.make.texpdf_font.sans
else @env.font.texpdf.sans
end
texpdf_font_serif=if defined? @md.make.texpdf_font.serif \
and not @md.make.texpdf_font.serif.nil? \
and @md.make.texpdf_font.serif=~/\S{3,}/ # not used
@md.make.texpdf_font.serif
else @env.font.texpdf.serif
end
texpdf_font_mono=if defined? @md.make.texpdf_font.mono \
and not @md.make.texpdf_font.mono.nil? \
and @md.make.texpdf_font.mono=~/\S{3,}/
@md.make.texpdf_font.mono
else @env.font.texpdf.mono
end
# you may wish to check selected font against avaiable fonts:
# fc-list :outline -f "%{family}\n"
case @tex2pdf
when /xe/
<')
w.gsub!(/[\\]?~/,'~')
w.gsub!(/[#{Mx[:br_line]}#{Mx[:br_paragraph]}]/,"\n") #watch
w.gsub!(/#{Mx[:gl_o]}#(?:126|152)#{Mx[:gl_c]}/,'~') #126 usual
w.gsub!(/\\?\||#{Mx[:gl_o]}#124#{Mx[:gl_c]}/,'|') #unless is=='code' #unless w=~/<~\d+;(?:[ohmu]|[0-6]:)\d+;\w\d+>/ # | SiSU not really special sisu character but done, also LaTeX
para_array << w
end
str=para_array.join(' ')
str=str.strip unless is=='code'
str
else ''
end
str.gsub(/\s*#{Mx[:mk_o]}:name#\S+?#{Mx[:mk_c]}\s*/,' ')
str.gsub!(/.+?<-#>/,'')
str.gsub!(/#{Mx[:br_eof]}/,'')
str.gsub!(/#{Mx[:br_endnotes]}/,'')
#problem sequence ->
str.gsub!(/&(?:lt|#060);/,'<') # < SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#(?:gt|062)#{Mx[:gl_c]}/,'>') # > SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#123#{Mx[:gl_c]}/,'{') # { SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#125#{Mx[:gl_c]}/,'}') # } SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#(?:126|152)#{Mx[:gl_c]}/,'~') # ~ SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#035#{Mx[:gl_c]}/,'#') # # SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#033#{Mx[:gl_c]}/,'!') # ! SiSU not really special sisu character but done, also LaTeX
#str.gsub!(/(^|\s)\*\s/,'\1\asterisk ') # * should you wish to escape astrisk e.g. describing \*{bold}*
str.gsub!(/#{Mx[:gl_o]}#042#{Mx[:gl_c]}/,'*') # * should you wish to escape astrisk e.g. describing \*{bold}*
str.gsub!(/#{Mx[:gl_o]}#045#{Mx[:gl_c]}/,'-') # - SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#043#{Mx[:gl_c]}/,'+') # + SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#044#{Mx[:gl_c]}/,',') # + SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#038#{Mx[:gl_c]}/,'&') #unless @txt=~/<:code>/ # / SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#047#{Mx[:gl_c]}/,'/') # / SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#092#{Mx[:gl_c]}/,'\\') # \ SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#095#{Mx[:gl_c]}/,'_') # _ SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#124#{Mx[:gl_c]}/,'|') # | SiSU not really special sisu character but done, also LaTeX
str.gsub!(/#{Mx[:gl_o]}#058#{Mx[:gl_c]}/,':') # : SiSU not really special sisu character but done, also LaTeX
str.gsub!(/#{Mx[:gl_o]}#094#{Mx[:gl_c]}|\^/,'^') # ^ SiSU not really special sisu character but done, also LaTeX
##watch placement, problem sequence ^
str.gsub!(/&atild;<\/font><\/sup>/,' ')
str.gsub!(/\\copy(right|mark)?/,'<=copymark>') # ok problem with superscript
str
end
def xetex_special_characters_1(str,is='') # ~ ^ $ & % _ { } #LaTeX special characters - KEEP list
#str=Iconv.conv('ISO-8859-1', 'UTF-8', @txt) # `require': iconv will be deprecated in the future, use String#encode instead.
word=str.scan(/\S+|\n/) #unless line =~/^(?:@\S|%+\s)/
para_array=[]
str=if word
word.each do |w| # _ - / # | : ! ^ ~
if w !~/https?:/ \
and w=~/\/\S+?\// \
and w.length > 6
w.gsub!(/([_.\/])/,'\1\-')
end
w.gsub!(/#{Mx[:gl_o]}#lt#{Mx[:gl_c]}/,'<'); w.gsub!(/#{Mx[:gl_o]}#gt#{Mx[:gl_c]}/,'>')
w.gsub!(/[\\]?~/,'<=tilde>')
w.gsub!(/[#{Mx[:br_line]}#{Mx[:br_paragraph]}]/,' \newline ') #watch
w.gsub!(/#{Mx[:gl_o]}#(?:126|152)#{Mx[:gl_c]}/,'<=tilde>') #126 usual
w.gsub!(/\\?\||#{Mx[:gl_o]}#124#{Mx[:gl_c]}/,'\pipe') #unless is=='code' #unless w=~/<~\d+;(?:[ohmu]|[0-6]:)\d+;\w\d+>/ # | SiSU not really special sisu character but done, also LaTeX
if w !~/#{Mx[:rel_o]}/ \
and w !~/#{Mx[:gl_o]}#/
w.gsub!(/\#/,'<=hash>')
end
para_array << w
end
str=para_array.join(' ')
str=str.strip unless is=='code'
str
else ''
end
str.gsub(/\s*#{Mx[:mk_o]}:name#\S+?#{Mx[:mk_c]}\s*/,' ')
str.gsub!(/.+?<-#>/,'')
str.gsub!(/#{Mx[:br_eof]}/,'')
str.gsub!(/#{Mx[:br_endnotes]}/,'')
#problem sequence ->
str.gsub!(/&(?:nbsp);|#{Mx[:nbsp]}/,'\hardspace') unless is=='code' # < SiSU special character also LaTeX
str.gsub!(/&(?:lt|#060);/,'\lt') # < SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#(?:gt|062)#{Mx[:gl_c]}/,'\gt') # > SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#123#{Mx[:gl_c]}/,'\curlyopen') # { SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#125#{Mx[:gl_c]}/,'\curlyclose') # } SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#(?:126|152)#{Mx[:gl_c]}/,'<=tilde>') # ~ SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#035#{Mx[:gl_c]}/,'\#') # # SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#033#{Mx[:gl_c]}/,'!') # ! SiSU not really special sisu character but done, also LaTeX
str.gsub!(/(^|\s)\*\s/,'\1\asterisk ') # * should you wish to escape astrisk e.g. describing \*{bold}*
str.gsub!(/#{Mx[:gl_o]}#042#{Mx[:gl_c]}/,'\*') # * should you wish to escape astrisk e.g. describing \*{bold}*
str.gsub!(/#{Mx[:gl_o]}#045#{Mx[:gl_c]}/,'-') # - SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#043#{Mx[:gl_c]}/,'+') # + SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#044#{Mx[:gl_c]}/,',') # + SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#038#{Mx[:gl_c]}/,'<=amp>') #unless @txt=~/<:code>/ # / SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#047#{Mx[:gl_c]}/,'\slash') # / SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#092#{Mx[:gl_c]}/,'\textbackslash') # \ SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#095#{Mx[:gl_c]}/,'<=underscore>') # _ SiSU special character also LaTeX
str.gsub!(/#{Mx[:gl_o]}#124#{Mx[:gl_c]}/,'|') # | SiSU not really special sisu character but done, also LaTeX
str.gsub!(/#{Mx[:gl_o]}#058#{Mx[:gl_c]}/,':') # : SiSU not really special sisu character but done, also LaTeX
str.gsub!(/#{Mx[:gl_o]}#094#{Mx[:gl_c]}|\^/,'\caret') # ^ SiSU not really special sisu character but done, also LaTeX
##watch placement, problem sequence ^
str.gsub!(/&atild;<\/font><\/sup>/,' ')
str.gsub!(/\\copy(right|mark)?/,'<=copymark>') # ok problem with superscript
str
end
def xetex_special_characters_2(str,is='')
str.gsub!(/#{Mx[:gl_o]}#156#{Mx[:gl_c]}/,'\oe ')
str.gsub!(/\$/,'\$')
str.gsub!(/\#/,'\#')
str.gsub!(/\%/,'\%')
str.gsub!(/\~/,'\~') #revist, should not be necessary to mark remaining tildes
if str !~/^\s*#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}image\s/
str.gsub!(/_/,'\_')
end
str.gsub!(/\{/,'\{')
str.gsub!(/\}/,'\}')
if is=='code'
str.gsub!(/&/,'{\\\&}')
str.gsub!(/\\~(\\\{)/,'{$\tilde$}\1')
str.gsub!(/(\\\})\\~/,'\1{$\tilde$}')
str.gsub!(/\\~(\[)/,'{$\tilde$}\1')
str.gsub!(/(\])\\~/,'\1{$\tilde$}')
str.gsub!(/<=tilde>/,'{$\tilde$}')
str.gsub!(/<=hash>/,'{\#}')
else
str.gsub!(/ |#{Mx[:nbsp]}/,'~') # ~ character for hardspace
str.gsub!(/&/,'<=amp>')
end
str.gsub!(/&\S+?;/,' ')
str.gsub!(/§/u,'\S') #latex: space between next character not preserved? #str.gsub!(/§ /,'\S ')
str.gsub!(/£/u,'\pounds')
str.gsub!(//,' ')
str.gsub!(/<\/a>/,' ')
str.gsub!(/((?:^|\s)#{Mx[:lnk_c]})#{Mx[:url_o]}(\S+?)#{Mx[:url_c]}/,
'\1\begin{scriptsize}\url{\2}\end{scriptsize}\3') #special case \{ e.g. \}http://url
str.gsub!(/#{Mx[:url_o]}\\_(\S+?)#{Mx[:url_c]}/,
'\begin{scriptsize}\url{\1}\end{scriptsize}') #special case \{ e.g. \}http://url
str.gsub!(/#{Mx[:url_o]}_(\S+?)#{Mx[:url_c]}/,
'\begin{scriptsize}\\url{\1}\end{scriptsize}') #specially escaped url no decoration
unless is=='code'
str.gsub!(/(^|#{Mx[:gl_c]}|\s)((?:https?|file|ftp):\/\/\S+?\.[^'"\s]+?)([;.,]?(?=\s|$))/,
"\\1#{@brace_url.tex_open}\\begin{scriptsize}\\url{\\2}\\end{scriptsize}#{@brace_url.tex_close}\\3") #url matching with decoration positive lookahead, sequence issue with { linked }http://url cannot use \b at start
else #code-block: angle brackets special characters, note _ already escaped
str.gsub!(/\\_/m,'{\UseTextSymbol{OML}{>}}')
end
str.gsub!(/<:ee>/,'')
str.gsub!(//,' ')
#proposed change, insert, but may be redundant
str.gsub!(/<(br|p)>|<\/\s*(br|p)>|<(br|p)\s*\/>/," #{Tex[:backslash]*2} ") # Work Area
str.gsub!(/#{Mx[:fa_bold_o]}(.+?)#{Mx[:fa_bold_c]}/,'\begin{bfseries}\1 \end{bfseries}')
str.gsub!(/(.+?)<\/h\d+>/,'\begin{bfseries}\1 \end{bfseries}')
str.gsub!(/#{Mx[:fa_italics_o]}(.+?)#{Mx[:fa_italics_c]}/,'\emph{\1}')
str.gsub!(/#{Mx[:fa_underscore_o]}(.+?)#{Mx[:fa_underscore_c]}/,'\uline{\1}') # ulem
str.gsub!(/#{Mx[:fa_cite_o]}(.+?)#{Mx[:fa_cite_c]}/,"``\\1''") # quote #CHECK
str.gsub!(/#{Mx[:fa_insert_o]}(.+?)#{Mx[:fa_insert_c]}/,'\uline{\1}') # ulem
str.gsub!(/#{Mx[:fa_strike_o]}(.+?)#{Mx[:fa_strike_c]}/,'\sout{\1}') # ulem
str.gsub!(/#{Mx[:fa_superscript_o]}(.+?)#{Mx[:fa_superscript_c]}/,"\$^{\\textrm{\\1}}\$")
str.gsub!(/#{Mx[:fa_subscript_o]}(.+?)#{Mx[:fa_subscript_c]}/,"\$_{\\textrm{\\1}}\$")
str.gsub!(/#{Mx[:fa_monospace_o]}(.+?)#{Mx[:fa_monospace_c]}/,'\begin{monosp}\1\end{monosp}')
unless is=='code'
str.gsub!(/"(.+?)"/,'“\1”') # quote marks / quotations open & close " need condition exclude for code
str.gsub!(/\s+"/,' “') # open "
str.gsub!(/^(#{Mx[:lv_o]}[1-6-]:\S*?#{Mx[:lv_c]}|<.+?>)?\s*"/,'\1“') #fix Mx[:lv_o] # open "
str.gsub!(/"(\s|\.|,|:|;)/,'”\1') # close "
str.gsub!(/"(#{Mx[:lv_o]}[1-6-]:\S*?#{Mx[:lv_c]}|<.+?>)?\s*$/,'”\1') #fix Mx[:lv_o] # close "
str.gsub!(/"(\.|,)/,'”') # close "
str.gsub!(/\s+'/,' `') # open '
str.gsub!(/^(#{Mx[:lv_o]}[1-6-]:\S*?#{Mx[:lv_c]}|<.+?>)?\s*'/,'\1`') #fix Mx[:lv_o] # open '
end
str.gsub!(/(|<\/font>)/,'')
str.gsub!(/\s*#{Mx[:fa_superscript_o]}(\S+?)#{Mx[:fa_superscript_c]}/,'^\1')
str
end
def xetex_special_characters_3(str)
str.gsub!(/
])/,'\1') # clean up, incredibly messy :-( footnote indents, problems if match exists in ordinary paragraphs? check! Work Area 200501 a bit tricky as must be able to match multiple times, and to clean remainder
str.gsub!(/([^<][^b][^r]\s+)\/>/,'\1') # clean up, incredibly messy :-( footnote indents, problems if match exists in ordinary paragraphs? check! Work Area 200501 a bit tricky as must be able to match multiple times, and to clean remainder
while str =~/(https?:\/\/\S+?)(?:<=tilde>\S+)+/ #tilde in urls \href treated differently from text #FIX
str.gsub!(/(https?:\/\/\S+?)(?:<=tilde>(\S+))+/,'\1~\2')
end
str.gsub!(/<=tilde>/,'{$\tilde$}')
str.gsub!(/(https?:\/\/\S+?)(?:(?:<=hash>)(\S+))+/,'\1#\2') #hash in urls \href treated differently from text #FIX
str.gsub!(/<=hash>/,'{\#}')
while str =~/(https?:\/\/\S+?)(?:<=amp>\S+)+/ #amp in urls \href treated differently from text #FIX
str.gsub!(/(https?:\/\/\S+?)(?:<=amp>(\S+))+/,'\1&\2')
end
str.gsub!(/<=amp>/,'{\\\&}') #changed ... 2005
str.gsub!(/<=copymark>\s*(.+)/,
'^\copyright \textnormal{\1} \2') # watch likely to be problematic
str
end
def special_characters_safe_close(str)
str.gsub!(/<=tilde>/,'{$\tilde$}')
str.gsub!(/<=hash>/,'{\#}')
str.gsub!(/<=amp>/,'{\\\&}') #changed ... 2005
str.gsub!(/<=copymark>\s*(.+)/,
'^\copyright \textnormal{\1} \2') # watch likely to be problematic
str
end
def special_characters_code_fix(str)
str.gsub!(/<=tilde>/,'{$\tilde$}')
str
end
def special_characters_unsafe_1(str) #depreciated, make obsolete
# some substitutions are sequence sensitive, rearrange with care.
str.gsub!(/\\textbackslash (copyright|clearpage|newpage)/,"\\\\\\1") #kludge bad solution, find out where tail is sent through specChar !
str
end
def special_characters #special characters - some substitutions are sequence sensitive, rearrange with care.
str,is=@txt,@is
str=xetex_special_characters_1(str,is) unless str.nil?
str=special_characters_unsafe_1(str) unless str.nil? #xetex_special_characters_unsafe_1(@txt)
str=xetex_special_characters_2(str,is) unless str.nil? #issues with xetex
str=xetex_special_characters_3(str) unless str.nil?
@txt=str
end
def special_word_break_points
str=@txt
str.gsub!(/([_,.;:\/|=])/,'\1\-')
str.gsub!(/(--)(\S{4,})/,'\1\-\2')
@txt=str
end
def special_number_break_points
str=@txt
str=str.gsub(/([0-9a-f]{8})/i,'\1\-')
@txt=str
end
def special_characters_safe #special characters - some substitutions are sequence sensitive, rearrange with care.
str,is=@txt,@is
str=xetex_special_characters_1(str,is) unless str.nil?
str=xetex_special_characters_2(str,is) unless str.nil? # remove this to start with, causes issues
str=special_characters_safe_close(str) unless str.nil?
@txt=str
end
def characters_code_listings #special characters - some substitutions are sequence sensitive, rearrange with care.
str,is=@txt,@is
str=xetex_code_listings(str,is) unless str.nil?
@txt=str
end
def special_characters_code
str=@txt
str.gsub!(/ \\\\([ #{Mx[:br_nl]}]+|$)/,' \textbackslash\textbackslash\hardspace\1')
str
end
end
class Use_TeX
attr_accessor :url,:txt,:date
def initialize(md)
@md=md
@vz=SiSU_Env::Get_init.instance.skin
@date=SiSU_Env::Info_date.new # #{@date.year}
@copymark='{\\begin{footnotesize}\\raisebox{1ex}{\\copyright}\\end{footnotesize}}'
@brace_url=SiSU_Viz::Skin.new.url_decoration
end
def skip
"\n\\vspace*{\\smallskipamount} \n"
end
def paraskip_normal
'\setlength{\parskip}{1ex plus0.5ex minus0.2ex}'
end
def paraskip_small
'\setlength{\parskip}{0.5ex plus0.2ex minus0.1ex}'
end
def paraskip_tiny
'\setlength{\parskip}{0.1ex plus0.1ex minus0.1ex}'
end
def skip_small
"\\smallskip{}"
end
def skip_small_vspace
"\n\\vspace*{\\smallskipamount} \n"
end
def skip_small_footnote
end
def skip_medium
"\n\\medskip{}\n\n"
end
def skip_dummy
"\n"
end
def header
"\\lhead[ ]{ }\n" +
"\\chead[ \\fancyplain{} \\bfseries \\footnotesize \\leftmark ]{ \\fancyplain{} \\bfseries \\footnotesize \\rightmark }\n" +
"\\rhead[ ]{ }\n"
end
def footer
base_prog_txt=if @md.base_program
case @md.base_program
when /kdissert/i; " \\\\ \\href{http://freehackers.org/~tnagy/kdissert/}{Kdissert}"
else ''
end
else ''
end
"\\lfoot[\\textrm{\\thepage}]{\\tiny \\href{#{@vz.url_footer_signature}}{#{@vz.txt_signature}}#{base_prog_txt}}\n" +
"\\cfoot[\\href{#{@vz.url_home}}{#{@vz.url_txt}}]{\\href{#{@vz.url_home}}{#{@vz.url_txt}}}\n" +
"\\rfoot[\\tiny \\href{#{@vz.url_sisu}}{#{@vz.txt_signature}}]{\\textrm{\\thepage}}\n"
end
def site
if not @vz.url_home.empty? \
and not @vz.url_txt.empty?
"\n\\date{\\begin{footnotesize} copy @ \\href{#{@vz.url_home}}{#{@vz.url_txt}} \\end{footnotesize}}"
else ''
end
end
def sitename #owners site, eg freeculture, free.for.all, gutenberg etc.
"\\href{#{@vz.url_home}}{#{@vz.txt_home}}"
end
def owner_chapter
"Contact Details for Original Promulgating Authority"
end
#BOOK standard dimensions - 229x156
def newpage(orientation)
case orientation
when /landscape/ # using longtable latex package
<