0.53.0, pre-build, see changelog, library naming changed for scm, placed under v0 (instead of 0.53)upstream/0.53.0sisu_0.53.0

1 files changed, 0 insertions, 611 deletions

diff --git a/lib/sisu/0.52/texpdf.rb b/lib/sisu/0.52/texpdf.rb
deleted file mode 100644
index c4df0611..00000000
--- a/lib/sisu/0.52/texpdf.rb
+++ /dev/null
@@ -1,611 +0,0 @@
-=begin
- * Name: SiSU information Structuring Universe - Structured information, Serialized Units
- * Author: Ralph Amissah
-   * http://www.jus.uio.no/sisu
-   * http://www.jus.uio.no/sisu/SiSU/download.html
-
- * Description: LaTeX generation
-
- * Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Ralph Amissah
-
- * License: GPL 2 or later
-
-  Summary of GPL 2
-
-  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 2 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, write to the Free Software Foundation, Inc.,
-  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
-
-  If you have Internet connection, the latest version of the GPL should be
-  available at these locations:
-    http://www.fsf.org/licenses/gpl.html
-    http://www.gnu.org/copyleft/gpl.html
-    http://www.jus.uio.no/sisu/gpl2.fsf
-
-  SiSU was first released to the public on January 4th 2005
-
-  SiSU uses:
-  
-  *  Standard SiSU markup syntax,
-  *  Standard SiSU meta-markup syntax, and the
-  *  Standard SiSU object citation numbering and system
-  
-  © Ralph Amissah 1997, current 2007.
-  All Rights Reserved.
-
- * Ralph Amissah: ralph@amissah.com
-                  ralph.amissah@gmail.com
-=end
-module SiSU_TeX
-  require 'pstore'
-  require SiSU_lib + '/defaults'
-  require SiSU_lib + '/param'
-  include SiSU_Param
-  include SiSU_Viz
-  require SiSU_lib + '/texpdf_format'
-  include SiSU_TeX_Pdf
-  @tex_file=@@tex_footnote_array=@@tex_col_w=[]
-  @@tex_backslash ||="\\\\"
-  @@tilde='\\\\\\~' #?? debug crazy
-  @@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\\\}~\\\\end\\\{tiny\\\}\\\{\\\\marginpar.+?\s+"
-  #@@tex_pattern_margin_number="\\\\marginpar.+?\s+"
-  @@n=@@tableheader=@@rights=nil
-  @@date ||=SiSU_Env::Info_date.new
-  class Source #Songsheet #<SiSU_Param::MyFiles
-    require 'pstore'
-    require SiSU_lib + '/sysenv'
-    require SiSU_lib + '/param'
-    include SiSU_Env
-    include SiSU_Param
-    include SiSU_Viz
-    require SiSU_lib + '/dal'
-    include SiSU_DAL
-    include SiSU_TeX
-    def initialize(opt)
-      @opt=opt
-      @md=SiSU_Param::Parameters.new(@opt).get
-      @env=SiSU_Env::Info_env.new(@opt.fns)
-    end
-    def directories
-      begin
-        @dir_out_root=@env.path.output
-        case @opt.fns
-        when /\.[_-]?sst$/
-          SiSU_Env::SiSU_file.new(@md).mkdir
-          Dir.mkdir(@env.path.tex) unless FileTest.directory?(@env.path.tex)
-        end
-      rescue; SiSU_Errors::Info_error.new($!,$@,@opt.cmd,@opt.fns).error
-      ensure
-      end
-    end
-    def read
-      songsheet
-    end
-    def songsheet
-      begin
-        @md=SiSU_Param::Parameters.new(@opt).get
-        tell=SiSU_Screen::Ansi.new(@opt.cmd,'LaTeX/PDF')
-        tell.green_title_hi unless @opt.cmd =~/q/
-        path=@env.url.output_tell
-        tell=SiSU_Screen::Ansi.new(@opt.cmd,@opt.fns,"#{@env.program.pdf_viewer} #{path}/#{@md.fnb}/#{@md.fn[:pdf_l]}")
-        tell.flow if @opt.cmd =~/[MVv]/
-        tell=SiSU_Screen::Ansi.new(@opt.cmd,@opt.fns,"#{@env.program.pdf_viewer} #{path}/#{@md.fnb}/#{@md.fn[:pdf_p]}")
-        tell.flow if @opt.cmd =~/[MVv]/
-        data=IO.readlines(@opt.fns,'')                                             #wasteful, revisit
-        @md=SiSU_Param::Parameters.new(@opt).get
-        my_make=SiSU_Env::Create_file.new(@opt.cmd,@opt.fns)
-        if @md.flag_pdf
-          $flag=@md.cmd                                                         #introduced to pass 0 for no object citation numbers... to texpdf_format
-          @dir_o="#{@env.path.output}/#{@opt.fnb}"
-          directories
-          filename_index="#{@md.txt_path}/pdf"
-          newfilename=filename_index
-                                                                               #% needed needs to be reprogrammed !!!
-          SiSU_Env::Info_skin.new(@md).select
-          dal_array=SiSU_DAL::Source.new(@opt).get             # dal file drawn here
-          SiSU_TeX::Source::LaTeX_create.new(dal_array,@md,'landscape').songsheet
-          SiSU_TeX::Source::LaTeX_create.new(dal_array,@md,'portrait').songsheet
-          dal_array=''
-          pwd=Dir.pwd
-          SiSU_TeX::Source::LaTeX_to_pdf.new(@md).latexrun_selective
-          Dir.chdir(pwd)
-        else
-          tell=SiSU_Screen::Ansi.new(@opt.cmd,'instructed NOT to produce LaTeX/PDF')
-          tell.warn unless @opt.cmd =~/q/
-        end
-      rescue; SiSU_Errors::Info_error.new($!,$@,@opt.cmd,@opt.fns).error
-      ensure
-        unless @opt.cmd =~/[MV]/ #check maintenance flag
-          texfiles = Dir["#{@env.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::Info_date.new
-        @@flag={}
-        $flag=1 #remove at some stage
-        SiSU_Env::Create_file.new(@opt.cmd,@opt.fns).param_instantiate
-      end
-    end
-    private
-    class LaTeX_to_pdf #<Songsheet
-      require 'fileutils'
-      include FileUtils #::Verbose
-      @@n_lpdf||=0 #change
-      def initialize(md)
-        @md=md
-        @env=SiSU_Env::Info_env.new(@md.fns)
-      end
-      def latex_do(texfilename)
-        @texfilename=texfilename
-        @@n_lpdf=@@n_lpdf+1
-        tell=SiSU_Screen::Ansi.new(@md.cmd,'portrait ->')
-        tell.dark_grey_title_hi if @md.cmd =~/[MVv]/
-        tex_fn_base=@texfilename.gsub(/\.tex$/,'')
-        cmd=SiSU_Env::System_call.new("#{tex_fn_base}.tex",'',@md.cmd)
-        tell=SiSU_Screen::Ansi.new(@md.cmd)
-        tell.grey_open unless @md.cmd =~/q/
-        2.times { |i| cmd.latex2pdf unless ("#{tex_fn_base}.tex" !~/\w+/) }
-        tell.p_off unless @md.cmd =~/q/
-        tell=SiSU_Screen::Ansi.new(@md.cmd,'landscape ->')
-        tell.dark_grey_title_hi if @md.cmd =~/[MVv]/
-        cmd=SiSU_Env::System_call.new("#{tex_fn_base}.landscape.tex",'',@md.cmd)
-        tell.grey_open
-        2.times { |i| cmd.latex2pdf unless ("#{tex_fn_base}.landscape.tex" !~/\w+/) }
-        tell.p_off unless @md.cmd =~/q/
-        pwd=Dir.pwd
-        portrait_pdf="#{pwd}/#{tex_fn_base}.pdf"
-        landscape_pdf="#{pwd}/#{tex_fn_base}.landscape.pdf"
-        if FileTest.file?(portrait_pdf)
-          File.install(portrait_pdf,"#@dir_sisu/#{@md.fnb}/#{@md.fn[:pdf_p]}")
-          File.unlink(portrait_pdf)
-        end
-        if FileTest.file?(landscape_pdf)
-          File.install(landscape_pdf,"#@dir_sisu/#{@md.fnb}/#{@md.fn[:pdf_l]}")
-          File.unlink(landscape_pdf)
-        end
-        tell=SiSU_Screen::Ansi.new(@md.cmd,@@n_lpdf,'processed (SiSU LaTeX to pdf - using pdfetex aka. pdftex or pdflatex)')
-        tell.generic_number unless @md.cmd =~/q/
-      end
-      def latexrun_selective
-        begin
-          ep_dir=Dir.pwd
-          Dir.chdir(ep_dir)
-          @tex_f_no=0
-          info={}
-          if FileTest.file?("#{ep_dir}/#{@md.fns}")
-            if @md.fns =~/\.[_-]?sst$/
-              @dirout=SiSU_Env::Info_env.new(@md.fns)
-              case @md.fns
-              when /\.[_-]?sst$/
-                if FileTest.directory?(@env.path.tex)==true
-                  Dir.chdir(@env.path.tex)
-                  @dir_sisu=@dirout.path.output
-                  texfile=@md.fns.gsub(/$/,'.tex')
-                  texfile=texfile.gsub(/~/,'-')
-                  if File.exist?(texfile) and File.size(texfile) > 0
-                    @tex_f_no+=1
-                    latex_do(texfile)
-                  else
-                    puts "\tzero file size #{@env.path.tex}/#{@md.fns}"
-                  end
-                end
-              end
-            end
-          else
-            puts "\n#{@cX.fuschia}FILE NOT FOUND:#{@cX.off} << #{file} >> - requested latex system processing skipped\n"
-          end
-          lst=Dir["*.{aux,log,out}"]
-          lst.each {|file| File.unlink(file)} if lst
-          #touch("#{@dir_pdf}index.html") #correct @dir_pdf appears to contain slash / and should not
-        rescue; SiSU_Errors::Info_error.new($!,$@,@md.fns,@md.cmd).error
-        end
-      end
-    end
-    class LaTeX_create
-      include SiSU_Param
-      @@tex_backslash ||="\\\\"
-      @@tilde='\\\\\\~' #?? debug crazy
-      @@tex_head_portrait,@@tex_head_landscape=[],[]
-      @@flag_group,@@flag_code=false,false
-      @@dp,@@prefix_b=nil,nil
-      def initialize(data,md,orientation)
-        @data,@md,@orientation=data,md,orientation
-        @env=SiSU_Env::Info_env.new(@md.fns)
-        @st={ :tex=>{} }
-        @tex=SiSU_TeX_Pdf::Use_TeX.new(@md,@orientation)
-        @vz=SiSU_Env::Get_init.instance.skin
-        @dp=@@dp ||=SiSU_Env::Info_env.new.digest.pattern
-      end
-      def songsheet
-        begin
-          @@tex_footnote_array=[] #check
-          data=@data
-          @@rights=nil
-          tell=SiSU_Screen::Ansi.new(@md.cmd,"pdfTex #@orientation")
-          tell.txt_grey unless @md.cmd =~/q/
-          if @md.dc_rights
-            use=@md.dc_rights.dup #dup is necessary, else contents of :rights changed
-            do_mono=SiSU_TeX_Pdf::Format_text_object.new(@md,use)
-            copymark=if @md.creator_copymark; '{\\begin{small}\\raisebox{1ex}{\\copyright}\\end{small}} '
-            else ''
-            end
-            copyright=do_mono.special_characters_safe.gsub(/^\s*Copyright/, copymark)
-            @@rights||="\n #{@@tex_backslash*2}[3]\\ \\linebreak #{copyright}"
-          end
-          if @md.prefix_b
-            do_mono=SiSU_TeX_Pdf::Format_text_object.new(@md,@md.prefix_b)
-            prefix_b=do_mono.special_characters_safe
-            @@prefix_b="\n #{@@tex_backslash*2}[3]\\ \\linebreak \\ #{prefix_b}\n" unless @@prefix_b
-          end
-          if @md.markup.to_s !~/url_png/
-            @data=pre
-            @data=footnote
-            if @md.flag_tables
-              @data=tables
-            end
-            @data=numbering
-            @data=markup
-            output
-          end
-        rescue; SiSU_Errors::Info_error.new($!,$@,@md.fns,@md.cmd).error
-        ensure
-        end
-      end
-    protected
-      def pre
-        @tex_file=[]
-        data=@data
-        data.each do |para|
-          # 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 
-          pg=if para =~/<:br>/; para.split(/<:br>/)
-          else                   para
-          end
-          pg.each do |pg|
-          if pg =~/<!Th?¡\s+c/; @md.flag_tables=true # KLUDGE get from param
-          end
-          do_mono=SiSU_TeX_Pdf::Format_text_object.new(@md,pg)
-          @tex_file << do_mono.special_characters
-          end
-        end
-        data=@tex_file.delete_if {|x| x =~/^\s*0#{@@tilde}/}
-        @tex_file
-      end
-      def footnote
-        data=@data.dup
-        @tex_file=[]
-        data.each do |para|
-          para2=para.dup
-          # EMBEDDED FOOTNOTES / ENDNOTES should be straightforward but not quite a synch.
-          footnote=[]
-          if para =~/~\\\{[\d*+]+\s|\\\~\[([*+]\d+)\s/                                                # note escape not necessary in front of ~ has implications for many other matches #debug note
-            para.gsub!(/\\~\\\{(\d+)\s+(.+?)<#@dp>\\\}\\~/m,"\\footnote[\\1]{%\n \\2} ") #removed space before \\footnote 2004w21, watch
-            para.gsub!(/\\~\[([*+]\d+)\s+(.+?)<#@dp>\]\\~/m,"\\FootnoteA{\\1}{%\n \\2} ") #work on asterisk footnotes
-            para.gsub!(/\\~\\\{([*+]+)\s+(.+?)<#@dp>\\\}\\~/m,"\\FootnoteA{\\1}{%\n \\2} ") #work on asterisk footnotes
-          end
-          @tex_file << para
-        end
-        @tex_file
-      end
-      def tables
-        data=@data
-        @tex_file=[]
-        @@tableheader=0
-        data.each do |para|
-          if para =~/¡|<!T/
-            do_mono=SiSU_TeX_Pdf::Format_text_object.new(@md,para)
-            para=do_mono.longtable_landscape if @orientation =~/landscape/ # using longtable latex package
-            para=do_mono.longtable_portrait if @orientation =~/portrait/ # using longtable latex package
-          end
-          @tex_file << para 
-        end
-      end
-      def enclose(para,type='')
-        para.strip!
-        if type =~/code/; para
-          #para = '\begin{footnotesize} \begin{ttfamily} ' + para + ' \end{ttfamily} \end{footnotesize}'
-        elsif para !~/(\\begin\{tabular\}.*|\\end\{tabular\}|&|#{@@tex_backslash*2})\s*$/ #check
-          para.gsub!(/(.+)/m,"\n#{@tex.skip_small} \\1 #{@tex.skip_small}\n")
-        else para
-        end
-      end
-      def markup
-        data=@data
-        @tex_file=[]
-        md={}
-        #% document headers watch special characters in title & subtitle: glark "\{\{~(sub)?title.+?[$&%#_\{\}]" *.(lm|er)??  
-        home=@vz.txt_home.gsub(/<(br|p)>|<\/\s*(br|p)>|<(br|p)\s*\/>|\\\\/,' - ') #no line splitting in heading neither html nor latex
-        title=@md.title.gsub(/<(br|p)>|<\/\s*(br|p)>|<(br|p)\s*\/>|\\\\/,' - ') #no line splitting in heading neither html nor latex 
-        subtitle=@md.subtitle.gsub(/<(br|p)>|<\/\s*(br|p)>|<(br|p)\s*\/>|\\\\/,' - ') if @md.subtitle #no line splitting in heading neither html nor latex
-        orient=SiSU_TeX_Pdf::Format_text_object.new(@md,@orientation,"#{home}: - #{title} #{subtitle}") #.new
-        if @orientation =~/portrait/
-          @@tex_head_portrait << orient.document_head_with_orientation
-        elsif @orientation =~/landscape/
-          @@tex_head_landscape << orient.document_head_with_orientation
-        end
-        @tex_file <<<<WOK
-#{@tex.header}#{@tex.footer}
-\\makeatother
-\\makeatother
-\\begin{document}
-WOK
-        sisu_rc_footnote=if @md.sc_info; @tex.doc_sc_info_footnote_full
-        else                             @tex.doc_sc_info_footnote_brief
-        end
-        @copymark=if @md.creator_copymark; '^\copyright'
-        else                               ''
-        end
-        if @orientation =~/landscape/ # using longtable latex package
-          @tex_file << SiSU_TeX_Pdf::Format_text_object.new(@md,@md.title,@md.subtitle).title_landscape
-          if @md.dc_creator
-            do_mono=SiSU_TeX_Pdf::Format_text_object.new(@md,@md.dc_creator)
-            creator=do_mono.special_characters
-            @tex_file << if @md.creator_home
-              <<WOK
-
-\\author{\\href{#{@md.creator_home}}{#@copymark \\textnormal{#{creator}}}}
-WOK
-            else "\n\\author{#@copymark \\textnormal{#{creator}}}" 
-            end
-          end
-          @tex_file << unless @md.fnb =~/^mail\s*$/
-            "\n\\date{copy @ #{@tex.site} #{sisu_rc_footnote}}"
-          else "\\date"
-          end
-        else #portrait
-          @tex_file << SiSU_TeX_Pdf::Format_text_object.new(@md,@md.title,@md.subtitle).title_portrait
-          if @md.dc_creator
-            creator=@md.dc_creator
-            @tex_file << if @md.creator_home
-              <<WOK
-
-\\author{\\href{#{@md.creator_home}}{#@copymark \\textnormal{#{creator}}}}
-WOK
-            else "\n\\author{#@copymark \\textnormal{#{creator}}}" 
-            end
-           end
-          @tex_file << unless @md.fnb =~/^mail\s*$/; "\n\\date{copy @ #{@tex.site} #{sisu_rc_footnote}}"
-          else                                       "\\date"
-          end
-        end
-        @tex_file <<<<WOK
-\\pagenumbering{roman}\\maketitle
-\\pagestyle{fancy}
-WOK
-        #@tex_file << @tex.newpage #newpage clearpage depending on portrait or landscape
-        @tex_file << "\\newpage\n"
-        @tex_file << @@rights if @md.dc_rights #if @orientation =~/landscape/
-        @tex_file << @@prefix_b if @md.prefix_b
-        @tex_file << @tex.sisu_rights
-        @tex_file << if @md.sc_info; @tex.doc_sc_info
-        else                         @tex.doc_no_sc_info
-        end
-        @tex_file << @tex.manifest_info
-        @tex_file << @tex.newpage 
-        @tex_file <<<<WOK
-\\pagestyle{fancy}
-\\tableofcontents
-#{@tex.newpage}
-\\pagenumbering{arabic}
-#{@tex.paraskip_normal}
-WOK
-        @tex_file << @tex.newpage 
-        @group_collect=[]
-        data.each do |para|                                                      #% case follows with levels 1-6 indents & graphics
-          mono=SiSU_TeX_Pdf::Format_text_object.new(@md,para)
-          if para =~/<:(code|alt|verse|group)>/ or @@flag_group==true
-            if para =~/<:(code|alt|verse|group)>/
-              @lineone=case para 
-              when /<:(alt|verse|group)>/; para 
-              when /<:code>/; "#{@tex.paraskip_small} \\begin{footnotesize} \\begin{ttfamily} " + para
-              else 'error' #should never occur
-              end
-            end
-            if para =~/<=curly/ #takes care of escaped curly braces, expand
-              do_mono=SiSU_TeX_Pdf::Format_text_object.new(@md,para)
-              para=do_mono.special_characters_curly(para)
-            end
-            regx=/<:((?:code|alt|verse|group)(?:-end)?)>/
-            x=regx.match(para)[1] if para =~regx
-            x=$1
-            para.gsub!(/\n<:(?:code|alt|verse|group)>\n/m,'')
-            para=enclose(para,'code') unless para =~/^$/
-            if x =~/(?:alt|verse|group)/; @@flag_group=true
-            elsif x =~/code/; @@flag_group,@@flag_code=true,true
-            elsif @@flag_group==true;    @group_collect << para #<< "\n\n"
-            end
-            if x =~/(?:code|alt|verse|group)-end/
-              regx=/(\\+marginpar\{\\+begin\{tiny\}\d+\\+end\{tiny\}\})/ 
-              y=if para =~regx
-                regx.match(para)[1] 
-              else ''
-              end
-              para.gsub!(regx,'')
-              @group_collect.each{ |x| x.gsub!(/(<:\S+>|<!.*?!>|<!>)/,' ') }
-              @lineone.gsub!(/(<:\S+>|<!.*?!>|<!>)/,' ')
-              #@group_collect.each{ |x| x.gsub!(/(.#{@@tilde}\S*\s*|<:\S+>|<!.*?!>|<!>)/,' ') }
-              #@lineone.gsub!(/(.#{@@tilde}\S*\s*|<:\S+>|<!.*?!>|<!>)/,' ')
-              insert=[]
-              if para =~/<:code-end>/
-                insert << y + @lineone << @group_collect << ' \end{ttfamily} \end{footnotesize}' << " #{@tex.paraskip_normal}"
-              else insert << y + @lineone << @group_collect
-              end
-              @@flag_group,@@flag_code=false,false
-              @group_collect=[]
-              para.gsub!(/(<:\S+>|<!.*?!>|<!>)/,' ')
-              #para.gsub!(/(.#{@@tilde}\S*\s*|<:\S+>|<!.*?!>|<!>)/,' ')
-              @tex_file << insert.flatten
-            end
-          else
-            if para =~ /\}(?:https?|ftp)/
-              para=mono.http(@orientation)
-            end
-            case para
-            when /^1#{@@tilde}/;       mono.level1
-            when /^2#{@@tilde}/;       mono.level2
-            when /^3#{@@tilde}/;       mono.level3
-            when /^4#{@@tilde}/;       mono.level4
-            when /^5#{@@tilde}/;       mono.level5
-            when /^6#{@@tilde}/;       mono.level6
-            when /^<:i1>/;             mono.indent1 
-            when /^<:i2>/;             mono.indent2
-            when /<:=/;                mono.symbol_graphic #watch
-            when /^\s*<:image\s+/;     mono.image
-            when /\}image/;            mono.png
-            else
-              para.strip!
-              para=enclose(para) unless para =~/^$/
-            end
-            para.gsub!(/(\.#{@@tilde}\S*\s*|<:\S+>|<!.*?!>|<!>)/,' ')   #% tread with care
-            #para.gsub!(/(.#{@@tilde}(?:\\~\S+)?\s*|<:\S+>|<!.*?!>|<!>)/,' ')  #KEEP reference, problem escaping open curly braces \{
-            if para =~/<=curly/ #takes care of escaped curly braces, expand
-              do_mono=SiSU_TeX_Pdf::Format_text_object.new(@md,para)
-              para=do_mono.special_characters_curly(para)
-            end
-            @tex_file << para
-          end
-        end
-        @tex_file << "\n\\newpage\n" # was \\pagebreak\n
-        @md.subtitle_tex=@md.subtitle.dup if @md.subtitle
-        # kludge ... look again later
-        @tex_file << if @md.doc_skin !~/skin_mail/; @tex.doc_tail 
-        else                                        @tex.mail_tail
-        end
-        if defined? @md.lnk and @md.lnk
-          @md.lnk.each do |l|
-            if l[:say]
-              url=%<#{l[:url]}>
-              url.gsub!(/(?:\\)*([$&~%_#}{^])/,"\\\\\\1")                         #latex special chars
-              s_lnk=l[:say]
-              s_lnk.gsub!(/(<br>|<br \/>|<p>|<p \/>)/,'')
-              s_lnk.gsub!(/(?:\\)*([$&~%_#}{^])/,"\\\\\\1")                       #latex special chars
-              if url !~/^\.(\.)?\//
-                s_lnk_url=%<\\begin{scriptsize}\\href{#{url}}{#{url}}\\end{scriptsize}>  # note this bit of dereferencing magic
-              else
-                url.gsub!(/\.\.\//,'')
-                s_lnk_url="(#{@tex.site}) \\\\\n" + ' ' +
-                  "\\begin{scriptsize}" +
-                  %<\\href\{#{@vz.url_root_http}/#{url}\}\{#{@vz.url_root_http}/#{url}\}> + # note this bit of dereferencing magic
-                  "\\end{scriptsize}"
-              end
-              @tex_file << " #{s_lnk} \\\\\n #{s_lnk_url} \n" unless  @md.doc_skin =~/skin_mail/
-              s_lnk=s_lnk_url=nil
-            end
-          end
-        end
-        @tex_file << " #{@tex.sitename} home: \\\\ 
-\\begin{bfseries}#{@tex.site}\\end{bfseries}
-"
-        #Stamp.stamp #removed 200408 but watch
-        #% code for inclusion of addresses of promulgating authority
-        @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.owner_chapter}}\n" +
-            "\\addcontentsline{toc}" +
-            "{section}{#{@tex.owner_chapter}}\n"
-          @tex_file << "#{use}\n"
-          @tex_file << @@rights if @@rights
-        end
-        @tex_file << "\n\\end{document}"
-      end
-      def footnote_call_number
-        data=@data
-        data.each do |word|
-          if word =~/<:e>/
-            @@tex_footnote_array[@@tex_footnote_call_counter].strip!  if @@tex_footnote_array[@@tex_footnote_call_counter]
-            word.gsub!(/<:e>/,
-              " \\footnote{%\n #{@@tex_footnote_array[@@tex_footnote_call_counter]}} ")
-            @@tex_footnote_call_counter+=1
-          end
-        end
-      end
-      def numbering
-        data=@data
-        LaTeX_create.new(data,@md,@orientation).number_paras if @md.markup !~/not_to/
-      end
-      def number_paras
-        data=@data
-        @tex_file=[]
-        data.each do |para|
-          if para =~/<\\~(\d+);(?:[oh]|[0-6]:)\d+;\w\d+><#@dp:#@dp>$/ and para !~/\\end\{longtable\}|<EOF>/ #catch <!TZ!>
-            m=/(.+?)<\\~(\d+);(?:[oh]|[0-6]:)\d+;\w\d+><#@dp:#@dp>$/m
-            parablock=para[m,1]
-            paranum=para[m,2]
-            do_duo=SiSU_TeX_Pdf::Format_text_object.new(@md,parablock,paranum)
-            para=do_duo.para_num if parablock
-          elsif para =~/^<~\d+;(?:[oh]|[0-6]:)\d+;\w\d+><#@dp:#@dp>$/ #2005 this is added for tables, rationalise
-            m=/<~(\d+);(?:[oh]|[0-6]:)\d+;\w\d+><#@dp:#@dp>$/m
-            paranum=para[m,1]
-            para.gsub!(/<~\d+;(?:[oh]|[0-6]:)\d+;\w\d+><#@dp:#@dp>/,'')
-            para="\\marginpar{\\begin{tiny}#{paranum}\\end{tiny}}" + para
-            #para="\\marginpar{\\begin{tiny}#{paranum}\\end{tiny}}"
-          #elsif para =~/<!T.+?!~\d+?>/
-          elsif para =~/^<~\d+;(?:[oh]|[0-6]:)\d+;\w\d+>/ #extra 2005 this is added for tables, rationalise
-            m=/<~(\d+);[oh]\d+;\w\d+>/m
-            paranum=para[m, 1]
-            para.gsub!(/<~\d+;(?:[oh]|[0-6]:)\d+;\w\d+>/,'')
-            para="\\marginpar{\\begin{tiny}#{paranum}\\end{tiny}}" + para
-          elsif para =~/\\end\{longtable\}/ #catch <!TZ!>
-            para.gsub!(/<\\~\d+>|<\\~(\d+);(?:[ohm]|[0-6]:)\d+;\w\d+><#@dp:#@dp>/,'')
-            para.gsub!(/<\\~\d+>|<\\~(\d+);(?:[ohm]|[0-6]:)\d+;\w\d+>/,'') #extra
-          end
-          @tex_file << para
-        end
-        @tex_file
-      end
-      def output
-        data=@data
-        @tex_file=[]
-        data.flatten!
-        data.compact!
-        data.each do |para|
-          para.gsub!(/^\s+/,'')
-          @tex_file << para
-        end
-        fns_l=@md.fns.gsub(/~/,'-') #this is a sorry fix, but necessary as it appears latex programs like not ~
-        if @orientation =~/landscape/    #@tex_file << "\n<!EOF!>"
-          filename_tex_landscape=File.new("#{@env.path.tex}/#{fns_l}.landscape.tex",'w+')
-          filename_tex_landscape << @@tex_head_landscape 
-          @tex_file.each {|para| filename_tex_landscape.puts para,"\n" unless para.empty?}
-          filename_tex_landscape.close
-          @@tex_head_landscape=[]
-        elsif @orientation =~/portrait/
-          filename_tex_portrait=File.new("#{@env.path.tex}/#{fns_l}.tex",'w+')
-          filename_tex_portrait << @@tex_head_portrait
-          @tex_file.each {|para| filename_tex_portrait.puts para,"\n" unless para.empty?} 
-          filename_tex_portrait.close
-          @@tex_head_portrait=[]
-        end
-        @tex_file=[]
-      end
-    end
-  end
-end
-__END__