sisu 7.0.0

data/lib/sisu/html_scroll.rb

@@ -0,0 +1,235 @@
+# encoding: utf-8
+=begin
+
+* Name: SiSU
+
+** Description: documents, structuring, processing, publishing, search
+*** html scroll generation, processing
+
+** 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/html_scroll.rb;hb=HEAD>
+
+=end
+module SiSU_HTML_Scroll
+  require_relative 'html_shared'                        # html_shared.rb
+  require_relative 'html'                               # html.rb
+  require_relative 'shared_metadata'                    # shared_metadata.rb
+  require_relative 'html_promo'                         # html_promo.rb
+  class Scroll
+    def initialize(md='',data='',endnotes='')
+      @md,@data,@endnotes=md,data,endnotes
+    end
+    def songsheet
+      begin
+        scr=SiSU_HTML_Scroll::Scroll.new(@md,@data,@endnotes).markup
+        scr[:tails]=SiSU_HTML_Scroll::Scroll.new(@md).tails
+        scr
+      rescue
+        SiSU_Errors::Rescued.new($!,$@,@md.opt.selections.str,@md.fns).location do
+          __LINE__.to_s + ':' + __FILE__
+        end
+      ensure
+      end
+    end
+  protected
+    def markup
+      data=@data
+      @rcdc=false
+      @scr={ body: [], metadata: [], owner_details: [] }
+      data.each do |dob|
+        dob.obj=dob.obj.gsub(/#{@md.file.output_path.html_seg.rel_image}/m,
+          @md.file.output_path.html_scroll.rel_image)
+        if defined? dob.name and dob.name =~/^meta/ \
+        and dob.obj =~/Document Information/
+          dob.obj=dob.obj.
+            gsub(/(Document Information(?: \(metadata\))?)/,
+              '\1<a name="docinfo"></a>')
+        end
+        if dob.obj =~/^Metadata$/ \
+        and dob.lv =='B'
+          dob.obj=dob.obj.gsub(/Metadata/,'') #dob.obj=''
+        end
+        if defined? dob.name \
+        and dob.name =~/^metadata/ \
+        and dob.lv =='1' \
+        and dob.obj =~/SiSU Metadata, document information/
+          @rcdc=true
+        end
+        dob.obj=dob.obj.gsub(/href="[a-z0-9._-]+(#\S+?")/m,'href="\1'). # internal document links
+          gsub(/href="#{Xx[:segment]}/m,'href="')
+        if dob.obj !~/(^#{Rx[:meta]}|#{Mx[:br_eof]})/
+          unless dob.is ==:code
+            dob.obj=dob.obj.
+              gsub(/(?:#{Mx[:en_a_o]}.+?#{Mx[:en_a_c]}|#{Mx[:en_b_o]}.+?#{Mx[:en_b_c]})\s*/m,' ')
+          end
+          if defined? dob.ocn
+            @p_num=SiSU_HTML_Format::ParagraphNumber.new(@md,dob.ocn)
+          end
+          sto=SiSU_HTML_Format::FormatTextObject.new(@md,dob)
+          para_html=if dob.is==:heading
+            x=if dob.ln==0
+              sto.heading_body0
+            elsif dob.ln==1
+              sto.heading_body1
+            elsif dob.ln==2
+              sto.heading_body2
+            elsif dob.ln==3
+              sto.heading_body3
+            elsif dob.ln==4
+              sto.heading_body4
+            elsif dob.ln==5
+              sto.heading_body5
+            elsif dob.ln==6
+              sto.heading_body6
+            elsif dob.ln==7
+              sto.heading_body7
+            end
+          elsif dob.is==:break \
+          and dob.from==:markup
+            '<br><hr width=90% /><br>'
+          elsif dob.is==:heading_insert
+            x=if dob.ln==0
+              unless dob.obj.empty?
+                sto.heading_body0
+              end
+            elsif dob.ln==1
+              unless dob.obj.empty?
+                sto.heading_body1
+              end
+            elsif dob.ln==2
+              unless dob.obj.empty?
+                sto.heading_body2
+              end
+            elsif dob.ln==3
+              unless dob.obj.empty?
+                sto.heading_body3
+              end
+            elsif dob.ln==4 \
+            and dob.obj !~/^(?:Endnotes|Index|Metadata|Manifest)$/
+              unless dob.obj.empty?
+                sto.heading_body4
+              end
+            elsif dob.ln==4 \
+            and dob.obj=='Endnotes'
+              sto.heading_body4
+              @endnotes.join("\n")
+            elsif dob.ln==4 \
+            and dob.obj=='Index'
+              sto.heading_body4
+              book_idx=SiSU_Particulars::CombinedSingleton.
+                instance.get_idx_html(@md.opt).html_idx
+              book_idx.each do |y| #takes book index prepared for segments & strips segment identifying info
+                y.gsub!(/<a href="\S+?\.html#(\d+)">(\1(?:-\d+)?)<\/a>/,
+                  '<a href="#\1">\2</a>')
+              end
+              book_idx.join("\n")
+            elsif dob.ln==5
+              unless dob.obj.empty?
+                sto.heading_body5
+              end
+            elsif dob.ln==6
+              unless dob.obj.empty?
+                sto.heading_body6
+              end
+            elsif dob.ln==7
+              unless dob.obj.empty?
+                sto.heading_body7
+              end
+            end
+          elsif dob.is==:para
+            if dob.indent \
+            and dob.hang \
+            and dob.indent =~/[0-9]/ \
+            and dob.hang =~/[0-9]/
+              if dob.bullet_
+                (dob.indent =~/[1-9]/) \
+                ? sto.format('li',"i#{dob.indent}")
+                : sto.format('li','bullet')
+              elsif dob.indent == dob.hang
+                sto.format('p',"i#{dob.indent}")
+              elsif dob.indent != dob.hang
+                sto.format('p',"h#{dob.hang}i#{dob.indent}")
+              else sto.para
+              end
+            else sto.para
+            end
+          elsif dob.is==:block
+            sto.block
+          elsif dob.is==:group
+            sto.group
+          elsif dob.is==:alt
+            sto.alt
+          elsif dob.is==:verse
+            sto.verse
+          elsif dob.is==:code
+            sto.code
+          elsif dob.is==:table
+            sto.table
+          elsif dob.is==:break
+          end
+          if dob =~/<a name="n\d+">/ \
+          and dob =~/^(?:\^~\d+\s|<!e[:_]\d+!>)/ # hmmm re-adjusted 200507, for alt endnote which should again be matched ^~ ... not in response to problem though
+            dob=''
+          end
+          unless @rcdc
+            @scr[:body] << para_html unless para_html =~/\A\s*\Z/
+          end
+        end
+      end
+      @scr
+    end
+    def tails
+      scr_tail=[]
+      format_head_scroll=SiSU_HTML_Format::HeadToc.new(@md)
+      scr_tail \
+      << format_head_scroll.scroll_tail \
+      << format_head_scroll.html_close
+      scr_tail
+    end
+  end
+end
+__END__

data/lib/sisu/html_segments.rb

@@ -0,0 +1,716 @@
+# encoding: utf-8
+=begin
+
+* Name: SiSU
+
+** Description: documents, structuring, processing, publishing, search
+*** html segment generation, processing
+
+** 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/html_segments.rb;hb=HEAD>
+
+=end
+module SiSU_HTML_Seg
+  require_relative 'html_shared'                        # html_shared.rb
+  require_relative 'html'                               # html.rb
+  require_relative 'html_persist'                       # html_persist.rb
+  require_relative 'html_promo'                         # html_promo.rb
+  require_relative 'shared_metadata'                    # shared_metadata.rb
+  class Output
+    def initialize(md,outputfile,per,minitoc,type='')
+      @md, @output_seg_file,@per,@minitoc,@type=
+        md,outputfile,      per,minitoc,  type
+      @title_banner_=SiSU_Env::CreateSite.new(@md.opt).html_seg_title_banner?
+      @file=SiSU_Env::FileOp.new(@md)
+      @make=SiSU_Env::ProcessingSettings.new(@md)
+      @cl=(@make.build.html_minitoc?) \
+      ? 'content'
+      : 'content0'
+    end
+    def output
+      if @per.title =~/\S/
+        filename_seg=[]
+        if @make.build.html_top_band?
+          filename_seg \
+          << @per.title \
+          << @per.tocband_banner
+        else
+          filename_seg \
+          << @per.title
+        end
+        if @type=='endnotes'
+          @per.headings=[]
+          format_head_seg=SiSU_HTML_Format::HeadSeg.new(@md)
+          if @title_banner_
+            @per.headings \
+            << format_head_seg.
+              title_banner(@md.title.main,@md.title.sub,@author)
+          end
+          txt_obj={ txt: 'Endnotes', ocn_display: '' }
+          format_seg=SiSU_HTML_Format::FormatSeg.new(@md,txt_obj)
+          @per.headings \
+          << format_seg.title_heading1
+          filename_seg \
+          << @per.heading_endnotes \
+          << @minitoc << @per.headings \
+          << %{\n<div class="#{@cl}">\n} \
+          << @per.endnote_all \
+          << '</div>' # << '</div>'
+        elsif @type=='idx'
+          @per.headings=[]
+          format_head_seg=SiSU_HTML_Format::HeadSeg.new(@md)
+          if @title_banner_
+            @per.headings \
+            << format_head_seg.
+              title_banner(@md.title.main,@md.title.sub,@author)
+          end
+          txt_obj={ txt: 'Index', ocn_display: '' }
+          format_seg=SiSU_HTML_Format::FormatSeg.new(@md,txt_obj)
+          @per.headings << format_seg.title_heading1
+          filename_seg \
+          << @per.heading_idx \
+          << @minitoc << @per.headings \
+          << %{\n<div class="#{@cl}">\n} \
+          << @per.idx \
+          << '</div>' # << '</div>'
+        elsif @type=='metadata'
+          metadata=SiSU_Metadata::Summary.new(@md).html_display.metadata
+          @per.headings=[]
+          format_head_seg=SiSU_HTML_Format::HeadSeg.new(@md)
+          if @title_banner_
+            @per.headings \
+            << format_head_seg.
+              title_banner(@md.title.main,@md.title.sub,@author)
+          end
+          txt_obj={ txt: 'Metadata', ocn_display: '' }
+          format_seg=SiSU_HTML_Format::FormatSeg.new(@md,txt_obj)
+          @per.headings \
+          << format_seg.title_heading1
+          filename_seg \
+          << @per.heading_idx \
+          << @minitoc \
+          << @per.headings \
+          << %{\n<div class="#{@cl}">\n} \
+          << metadata \
+          << '</div>' # << '</div>'
+        else
+          if @make.build.html_top_band?
+            filename_seg \
+            << @minitoc \
+            << @per.headings \
+            << @per.main \
+            << "\n</div>\n"
+          else
+            filename_seg \
+            << @minitoc \
+            << @per.main \
+            << "\n</div>\n"
+          end
+        end
+        filename_seg <<=if @make.build.html_top_band?
+          @per.tail \
+          << @per.tocband_bannerless \
+          << @per.credits
+        else
+          @per.tail \
+          << @per.credits
+        end
+        filename_seg=filename_seg.flatten.compact #watch
+        filename_seg.each do |str|
+          unless str =~/\A\s*\Z/
+            str=str.strip.
+              gsub(Xx[:html_relative2],
+                @file.path_rel_links.html_seg_2).
+              gsub(Xx[:html_relative1],
+                @file.path_rel_links.html_seg_1)
+            @output_seg_file << str
+          end
+        end
+        @output_seg_file.close
+      end
+    end
+  end
+  class Seg
+    @@seg_url=''
+    @@tracker=0
+    @@seg_name=[]
+    attr_reader :seg_name_x,:seg_name_x_tracker
+    def initialize(md=nil,data='')
+      @md,@data=md,data
+      @per=SiSU_HTML_Persist::Persist.new
+      @seg_name_x=@per.seg_name_x=(@@seg_name || [])
+      @seg_name_x_tracker=@per.seg_name_x_tracker=(@@tracker || 0)
+      @env=SiSU_Env::InfoEnv.new(@md.fns) if @md
+      if @md
+        @make=SiSU_Env::ProcessingSettings.new(@md)
+        @cl=(@make.build.html_minitoc?) \
+        ? 'content'
+        : 'content0'
+      else @cl='content'
+      end
+      if @md
+        @title_banner_=SiSU_Env::CreateSite.new(@md.opt).html_seg_title_banner?
+      end
+    end
+    def songsheet
+      begin
+        @minitoc=SiSU_HTML::Source::Toc.new(@md,@data).minitoc
+        @per=SiSU_HTML_Persist::Persist.new
+        data=get_subtoc_endnotes(@data,@per)
+        data=articles(data,@per)
+        cleanup(@md,@per) # (((( added ))))
+        #### (((( END )))) ####
+      rescue
+        SiSU_Errors::Rescued.new($!,$@,@md.opt.selections.str,@md.fns).location do
+          __LINE__.to_s + ':' + __FILE__
+        end
+      ensure
+        SiSU_HTML_Persist::Persist.new.persist_init
+        @@seg_name=@per.seg_name=[]
+      end
+    end
+  protected
+    def articles(data,per)
+      @per=per
+      tracking,newfile=0,0
+      printed_endnote_seg='n'
+      idx_html=nil
+      if @md.book_idx
+        #my_make_source_file=SiSU_Env::CreateFile.new(@md.fns)
+        idx_html=SiSU_Particulars::CombinedSingleton.
+          instance.get_idx_html(@md.opt).html_idx
+        idx_html.each do |x|
+          @per.idx << x
+        end
+        @per.heading_idx=''
+      end
+      data.each do |dob|
+        if (dob.is == :heading \
+        || dob.is == :heading_insert) \
+        && dob.ln == 4
+          @@seg_name << dob.name
+          @per.seg_name = @@seg_name
+          dob.name
+        end
+      end
+      @per.seg_name_x=@per.seg_name
+      @per.seg_name.length
+      testforartnum=@per.seg_name_x
+      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],
+          @per.seg_name.length
+        ).segmented
+      end
+      map_nametags=SiSU_Particulars::CombinedSingleton.
+        instance.get_map_nametags(@md).nametags_map #p map_nametags
+      data.each do |dob|
+        if defined? dob.obj \
+        and dob.obj =~/href="#{Xx[:segment]}#+\S+?"/
+          while dob.obj =~/href="#{Xx[:segment]}#+(\S+?)"/
+            m=$1
+            if map_nametags[m] \
+            and map_nametags[m][:segname]
+              inf=SiSU_Env::FileOp.new(@md) if @md
+              lng=(inf.output_dir_structure.by_language_code?) \
+              ? ''
+              : '.' + @md.opt.lng
+              dob.obj.sub!(/href="#{Xx[:segment]}#+(\S+?)"/,
+                %{href="#{map_nametags[m][:segname]}#{lng}#{Sfx[:html]}#\\1"})
+            else
+              p "NOT FOUND name_tags: #{m}"
+              dob.obj.sub!(/href="#{Xx[:segment]}#+(\S+?)"/,
+                %{href="#\\1"}) # not satisfactory
+            end
+          end
+        end
+        if (dob.is==:heading \
+        || dob.is==:heading_insert) \
+        && dob.ln==4
+          @per.heading4=dob.obj
+          @per.is4=newfile=1
+        end
+        if (dob.is==:heading \
+        || dob.is==:heading_insert) \
+        && dob.ln==3
+          @per.heading3=dob.obj
+          @per.is4,@per.is3=0,1
+        end
+        if (dob.is==:heading \
+        || dob.is==:heading_insert) \
+        && dob.ln==2
+          @per.heading2=dob.obj
+          @per.is4,@per.is3,@per.is2=0,0,1
+        end
+        if (dob.is==:heading \
+        || dob.is==:heading_insert) \
+        && dob.ln==1
+          @per.heading1=dob.obj
+          @per.is4,@per.is3,@per.is2,@per.is1=0,0,0,1
+        end
+        if (dob.is==:heading \
+        || dob.is==:heading_insert) \
+        && dob.ln==0
+          @per.heading0=dob.obj
+          @per.is4,@per.is3,@per.is2,@per.is1,@per.is0=0,0,0,0,1
+        end
+        if (@per.is1 && !@per.is2 && !@per.is3 && !@per.is4)
+          if not (dob.is==:heading \
+          || dob.is==:heading_insert) \
+          && dob.ln==0
+            $_ #; check
+          end
+        end
+        if @per.is4==1
+          if newfile==1 \
+          or dob.obj =~/^#{Mx[:br_endnotes]}|^#{Mx[:br_eof]}/
+            newfile=0
+            if (dob.is==:heading \
+            || dob.is==:heading_insert) \
+            && dob.ln==4
+              if tracking != 0
+                @file=SiSU_Env::FileOp.new(@md)
+                unless FileTest.directory?(@file.output_path.html_seg.dir)
+                  FileUtils::mkdir_p(@file.output_path.html_seg.dir) \
+                    if File.writable?("#{@file.output_path.base.dir}/.")
+                end
+                tail(@md,@per)
+                #SiSU_HTML_Seg::Seg.new(@md,@per).tail
+                fnh={
+                  fn: @per.seg_name_x[tracking-1],
+                }
+                fn=@md.file.base_filename.html_seg(fnh)
+                segfilename="#{@file.output_path.html_seg.dir}/#{fn}"
+                output_seg_file=File.new(segfilename,'w') if @per.seg_name_x[tracking-1]
+                minitoc=(@make.build.html_minitoc?) ? @minitoc : ''
+                if dob.is==:heading \
+                || (@per.seg_name_x[tracking-1] !~/endnotes|book_index|metadata/)
+                  SiSU_HTML_Seg::Output.new(@md,output_seg_file,@per,minitoc).output
+                elsif dob.is==:heading_insert
+                  if @per.seg_name_x[tracking-1]=='endnotes'
+                    SiSU_HTML_Seg::Output.new(@md,output_seg_file,@per,minitoc,'endnotes').output
+                  elsif @per.seg_name_x[tracking-1]=='book_index'
+                    SiSU_HTML_Seg::Output.new(@md,output_seg_file,@per,minitoc,'idx').output
+                    @per.idx=[]
+                  elsif @per.seg_name_x[tracking-1]=='metadata'
+                    SiSU_HTML_Seg::Output.new(@md,output_seg_file,@per,minitoc,'metadata').output
+                  else puts "#{__FILE__}::#{__LINE__}"
+                  end
+                else puts "#{__FILE__}::#{__LINE__}"
+                end
+                SiSU_HTML_Seg::Seg.new.reinitialise(per)
+                #per=persist_init
+                heading_art(dob)
+                head(dob)
+               #keep use for last segment, eg if metadata is last segment
+                if @per.seg_name_x[tracking] =='metadata' # this is for metadata
+                  fnh={
+                    fn: @per.seg_name_x[tracking],
+                  }
+                  fn=@md.file.base_filename.html_seg(fnh)
+                  segfilename="#{@file.output_path.html_seg.dir}/#{fn}"
+                  output_seg_file=File.new(segfilename,'w')
+                  SiSU_HTML_Seg::Output.new(@md,output_seg_file,@per,minitoc,'metadata').output
+                  #per=persist_init
+                  Seg.new.reinitialise(per)
+                end
+              end
+              if tracking==0
+                heading_art(dob)
+                head(dob)
+              end
+            end
+            tracking=tracking+1
+          end
+          if (dob.is==:heading \
+          || dob.is==:heading_insert) \
+          && dob.ln==4 \
+          && dob.name
+            @per.get_hash_to=dob.name
+            @per.get_hash_fn=dob.name
+          end
+          if dob.obj.is_a?(String)
+            markup(dob)
+          elsif dob.obj.is_a?(Array)
+            dob.obj.each do |pg|
+              markup(pg)
+            end
+          end
+          if testforartnum[tracking-1] =~/endnote/
+            if printed_endnote_seg=='n'
+              printed_endnote_seg='y'
+            end
+          end
+        end
+      end
+      data
+    end
+    def heading_art(dob)
+      format_head_seg=SiSU_HTML_Format::HeadSeg.new(@md)
+      @per.dot_nav=if (@make.build.html_navigation?) \
+      && (@make.build.html_navigation_bar?)
+        x=if (dob.is==:heading \
+        || dob.is==:heading_insert) \
+        && (dob.ln.to_s =~/^[0-7]/)
+          x=if @@tracker < @per.seg_name.length-1
+            format_head_seg.dot_control_pre_next
+          else
+            format_head_seg.dot_control_pre
+          end
+        else @per.dot_nav
+        end
+      else @per.dot_nav=''
+      end
+      ads=SiSU_HTML_Promo::Ad.new(@md)
+      @per.title=format_head_seg.head_seg << ads.div.major
+    end
+    def head(dob)
+      clean=/<!.*?!>|<:.*?>/
+      format_head_seg=SiSU_HTML_Format::HeadSeg.new(@md)
+      if @make.build.html_navigation?
+        if @@tracker < @per.seg_name.length-1
+          @per.segtocband=if @@tracker==0
+            format_head_seg.toc_next2
+          else
+            format_head_seg.toc_pre_next2
+          end
+        else @per.segtocband=format_head_seg.toc_pre2
+        end
+      else @per.segtocband=''
+      end
+      @p_num ||= ''
+      if @per.is0==1
+        @author=%{<b>#{@md.author}</b>\n} if @md.author.to_s =~/\S/
+        @per.tocband_banner \
+        << format_head_seg.navigation_band(@per.segtocband,@per.dot_nav)
+        @per.tocband_bannerless \
+        << '<br>' \
+        << format_head_seg.navigation_band_bottom(@per.segtocband,@per.dot_nav)
+        if @title_banner_
+          @per.headings \
+          << format_head_seg.title_banner(@md.title.main,@md.title.sub,@author).gsub(clean,'')
+        end
+        ocn=(@per.heading0[/.+?#{Mx[:id_o]}~(\d+);(?:[oh]|[0-6]:)\d+;\w\d+#{Mx[:id_c]}#{Mx[:id_o]}#{@dp}:#{@dp}#{Mx[:id_c]}$/]) \
+        ? $1
+        : ''
+        @p_num=SiSU_HTML_Format::ParagraphNumber.new(@md,ocn)
+        txt_obj={ txt: @per.heading0, ocn_display: @p_num.ocn_display }
+        format_seg=SiSU_HTML_Format::FormatSeg.new(@md,txt_obj)
+        @per.headings \
+        << format_seg.title_heading0.gsub(clean,'')
+        @per.heading0=@per.heading0.
+          gsub(/&nbsp;<a name="-[\d*+]+" href="#_[\d*+]+">&nbsp;<sup>[\d*+]+<\/sup>&nbsp;<\/a>/,'')
+      end
+      if @per.is1==1
+        heading1=@per.heading1
+        ocn=(heading1[/.+?#{Mx[:id_o]}~(\d+);(?:[oh]|[0-6]:)\d+;\w\d+#{Mx[:id_c]}#{Mx[:id_o]}#{@dp}:#{@dp}#{Mx[:id_c]}$/]) \
+        ? $1
+        : ''
+        @p_num=SiSU_HTML_Format::ParagraphNumber.new(@md,ocn)
+        txt_obj={ txt: heading1, ocn_display: @p_num.ocn_display }
+        format_seg=SiSU_HTML_Format::FormatSeg.new(@md,txt_obj)
+        @per.headings \
+        << format_seg.title_heading1.gsub(clean,'')
+        @per.heading1=@per.heading1.
+          gsub(/&nbsp;<a name="-[\d*+]+" href="#_[\d*+]+">&nbsp;<sup>[\d*+]+<\/sup>&nbsp;<\/a>/,'')
+      end
+      if @per.is2==1
+        heading2=@per.heading2
+        ocn=(heading2[/.+?#{Mx[:id_o]}~(\d+);(?:[oh]|[0-6]:)\d+;\w\d+#{Mx[:id_c]}#{Mx[:id_o]}#{@dp}:#{@dp}#{Mx[:id_c]}$/]) \
+        ? $1
+        : ''
+        @p_num=SiSU_HTML_Format::ParagraphNumber.new(@md,ocn)
+        txt_obj={ txt: heading2, ocn_display: @p_num.ocn_display }
+        format_seg=SiSU_HTML_Format::FormatSeg.new(@md,txt_obj)
+        @per.headings \
+        << format_seg.title_heading2.gsub(clean,'')
+        @per.heading2=@per.heading2.
+          gsub(/&nbsp;<a name="-[\d*+]+" href="#_[\d*+]+">&nbsp;<sup>[\d*+]+<\/sup>&nbsp;<\/a>/,'')
+      end
+      if @per.is3==1
+        heading3=@per.heading3
+        ocn=(heading3[/.+?#{Mx[:id_o]}~(\d+);(?:[oh]|[0-6]:)\d+;\w\d+#{Mx[:id_c]}#{Mx[:id_o]}#{@dp}:#{@dp}#{Mx[:id_c]}$/]) \
+        ? $1
+        : ''
+        @p_num=SiSU_HTML_Format::ParagraphNumber.new(@md,ocn)
+        txt_obj={ txt: heading3, ocn_display: @p_num.ocn_display }
+        format_seg=SiSU_HTML_Format::FormatSeg.new(@md,txt_obj)
+        @per.headings \
+        << format_seg.title_heading3.gsub(clean,'')
+        @per.heading3=@per.heading3.
+          gsub(/&nbsp;<a name="-[\d*+]+" href="#_[\d*+]+">&nbsp;<sup>[\d*+]+<\/sup>&nbsp;<\/a>/,'')
+      end
+      if @per.is4==1
+        heading4=@per.heading4
+        ocn=(heading4[/.+?#{Mx[:id_o]}~(\d+);(?:[oh]|[0-6]:)\d+;\w\d+#{Mx[:id_c]}#{Mx[:id_o]}#{@dp}:#{@dp}#{Mx[:id_c]}$/]) \
+        ? $1
+        : ''
+        @p_num=SiSU_HTML_Format::ParagraphNumber.new(@md,ocn)
+        txt_obj={ txt: heading4, ocn_display: @p_num.ocn_display }
+        format_seg=SiSU_HTML_Format::FormatSeg.new(@md,txt_obj)
+        @per.headings \
+        << format_seg.title_heading4.gsub(clean,'')
+      end
+      @@tracker=@@tracker+1
+    end
+    def markup(dob)
+      @debug=[]
+      SiSU_HTML_Format::HeadSeg.new(@md)
+      if dob.is !=:meta
+        if dob.is==:heading \
+        || dob.is==:heading_insert \
+        || dob.is == :para
+          @p_num=SiSU_HTML_Format::ParagraphNumber.new(@md,dob.ocn)
+        end
+        sto=SiSU_HTML_Format::FormatTextObject.new(@md,dob)
+        dob_html=if dob.is == :heading \
+        || dob.is==:heading_insert \
+        || dob.is==:para
+          dob_html=if dob.is==:heading \
+          || dob.is==:heading_insert
+            if dob.ln==4
+              sto.seg_heading4
+            elsif dob.ln==5
+              sto.seg_heading5
+            elsif dob.ln==6
+              sto.seg_heading6
+            elsif dob.ln==7
+              sto.seg_heading6
+            end
+          elsif dob.is==:para
+            if dob.indent \
+            and dob.hang \
+            and dob.indent =~/[0-9]/ \
+            and dob.hang =~/[0-9]/
+              if dob.bullet_
+                if dob.indent =~/[1-9]/
+                  sto.format('li',"i#{dob.indent}")
+                else
+                  sto.format('li','bullet')
+                end
+              elsif dob.indent == dob.hang
+                sto.format('p',"i#{dob.indent}")
+              elsif dob.indent != dob.hang
+                sto.format('p',"h#{dob.hang}i#{dob.indent}")
+              else sto.para
+              end
+            else sto.para
+            end
+          end
+        elsif dob.is==:block
+          sto.block
+        elsif dob.is==:group
+          sto.group
+        elsif dob.is==:alt
+          sto.alt
+        elsif dob.is==:verse
+          sto.verse
+        elsif dob.is==:code
+          sto.code
+        elsif dob.is==:table
+          sto.table
+        elsif dob.is==:break \
+        and dob.from==:markup
+          '<br><hr width=90% /><br>'
+        end
+        if @md.flag_separate_endnotes
+          dob.obj=dob.obj.gsub(/"\s+href="#(#{Mx[:note]}\d+)">/,%{" href=\"endnotes#{Sfx[:html]}#\\1">})       #endnote- twice #removed file type
+        end
+        if (dob.is==:heading \
+        || dob.is==:heading_insert \
+        || dob.is==:para) \
+        && (not dob.ocn \
+        || (dob.ocn.to_s.empty?))
+          format_seg=SiSU_HTML_Format::FormatSeg.new(@md,dob)
+        end
+        dob.obj=dob.obj.gsub(/\s*(-\{{2}~\d+|<:e[:_]\d+>).*/,'')                   #potentially dagerous - removes all paragraphs with <!e_!> #?? workpoint
+        if dob.obj =~/<a name="_\d+" href="#-\d+">&nbsp;<sup>/                #endnote- note-
+          format_seg=SiSU_HTML_Format::FormatSeg.new(@md,dob)
+          dob=format_seg.no_paranum
+        end
+        if (dob.is==:heading \
+        || dob.is==:heading_insert) \
+        && dob.ln==4
+          @per.main << %{\n<div class="#{@cl}">\n}
+          @per.main << dob_html
+          if @make.build.segsubtoc?
+            @per.main << @per.seg_subtoc[@per.get_hash_fn]                       #% insertion of sub-toc
+          end
+        else
+          @per.main << dob_html #unless @@flag_alt==true
+        end
+      end
+    end
+    def tail(md,per)
+      @md,@per=md,per
+      format_head_seg=SiSU_HTML_Format::HeadSeg.new(@md)
+      if @md.flag_auto_endnotes \
+      and @per.seg_endnotes[@per.get_hash_fn]
+        @per.tail <<  %{\n<div class="#{@cl}">\n<div class="endnote">\n}
+        if @per.seg_endnotes[@per.get_hash_fn].flatten.length > 0
+          @per.tail << format_head_seg.endnote_mark
+          @per.tail << @per.seg_endnotes[@per.get_hash_fn].flatten #endnotes deposited at end of individual segments ||@|EXTRACTION OF ENDNOTES|
+        end
+        @per.tail << '</div>'
+        @per.tail << '</div>' #this div closes div class content
+      end
+      ads=SiSU_HTML_Promo::Ad.new(@md)
+      @per.credits \
+      << format_head_seg.credit \
+      << ads.div.close \
+      << ads.display \
+      << format_head_seg.html_close
+    end
+    def reinitialise(per)
+      per.title,per.dot_nav,per.tocband_banner,per.tocband_bannerless,per.headings,per.main,per.tail,per.credits=Array.new(8){[]}
+      @per.segtocband=nil
+    end
+    def cleanup(md,per)
+      #per=persist_init
+      reinitialise(per)
+      @@tracker=0
+      @per.seg_endnotes,@per.seg_subtoc={},{}
+      @per.seg_endnotes_array,@per.seg_subtoc_array=[],[]
+      per.endnote_all=[]
+    end
+    def get_subtoc_endnotes(data,per) #get endnotes & sub-table of contents subtoc
+      @per=per
+      data.each do |dob|
+        dob.obj=dob.obj.gsub(/<a name=\"h\d.*?\">(.+?)<\/a>/mi,'\1')
+        if @md.flag_auto_endnotes
+          if (dob.is==:heading \
+          || dob.is==:heading_insert) \
+          && (dob.ln.to_s =~/^[0-4]/) \
+          and not @per.fn.to_s.empty?
+            @per.seg_endnotes[@per.fn]=[]
+            @per.seg_endnotes[@per.fn] << @per.seg_endnotes_array
+            @per.seg_endnotes_array=[] if dob.ln==4
+          end
+          if (dob.is==:heading \
+          || dob.is==:heading_insert) \
+          && dob.ln==4                                              #%  EXTRACTION OF SUB-TOCs & SEGMENT NAME, after EXTRACTION OF ENDNOTES & SUB-TOCs
+            @per.seg_subtoc[@per.fn]=@per.seg_subtoc_array
+            @per.seg_subtoc_array=[]
+            if dob.name \
+            and dob.obj
+              @per.fn=dob.name
+            else
+              if dob.name =~/\S+/
+                @per.fn=dob.name
+              else @per.fn=''
+              end
+            end
+          end
+        end
+        if dob.is==:heading \
+        && (dob.ln.to_s =~/^[5-7]/)
+          case dob.ln
+          when 5
+            txt_obj={ txt: dob.obj.strip, ocn: dob.ocn }
+            format_seg=SiSU_HTML_Format::FormatSeg.new(@md,txt_obj)
+            subtoc=format_seg.subtoc_lev5 #keep and make available, this is the subtoc
+          when 6
+            txt_obj={ txt: dob.obj.strip, ocn: dob.ocn }
+            format_seg=SiSU_HTML_Format::FormatSeg.new(@md,txt_obj)
+            subtoc=format_seg.subtoc_lev6 #keep and make available, this is the subtoc
+          when 7
+            txt_obj={ txt: dob.obj.strip, ocn: dob.ocn }
+            format_seg=SiSU_HTML_Format::FormatSeg.new(@md,txt_obj)
+            subtoc=format_seg.subtoc_lev7 #keep and make available, this is the subtoc
+          end
+          @per.seg_subtoc_array << subtoc
+        end
+        if @md.flag_auto_endnotes
+          if (dob.obj =~/(?:#{Mx[:en_a_o]}|#{Mx[:en_b_o]})[\d*+]+\s*<a href="##{Mx[:note_ref]}[\d*+]+"/) \
+          && dob.is !=:code # endnote-
+            endnote_array=[]
+            if dob.obj=~/#{Mx[:en_a_o]}.+?#{Mx[:en_a_c]}/m
+              endnote_array << dob.obj.scan(/#{Mx[:en_a_o]}.+?#{Mx[:en_a_c]}/m)
+            end
+            if dob.obj=~/#{Mx[:en_b_o]}[*]\d+\s.+?#{Mx[:en_b_c]}/m
+              endnote_array \
+              << dob.obj.scan(/#{Mx[:en_b_o]}[*]\d+\s.+?#{Mx[:en_b_c]}/m)
+            end
+            if dob.obj=~/#{Mx[:en_b_o]}[+]\d+\s.+?#{Mx[:en_b_c]}/m
+              endnote_array \
+              << dob.obj.scan(/#{Mx[:en_b_o]}[+]\d+\s.+?#{Mx[:en_b_c]}/m)
+            end
+            endnote_array=endnote_array.flatten.compact #watch, check compacting
+            endnote_array.each do |note|
+              note_match=note.dup
+              note_match_seg=note.dup
+              e_n=note_match_seg[/(?:#{Mx[:en_a_o]}[\d*+]+|#{Mx[:en_b_o]}[*+]\d+)\s+(.+?)(?:#{Mx[:en_a_c]}|#{Mx[:en_b_c]})/m,1]
+              try=e_n.split(/<br(?: \/)?>/)
+              try.each do |e|
+                txt_obj={ txt: e }
+                format_seg=SiSU_HTML_Format::FormatSeg.new(@md,txt_obj)
+                note_match=if e =~/#{Mx[:pa_o]}i[1-9]#{Mx[:pa_c]}/
+                  format_seg.endnote_body_indent
+                else format_seg.endnote_body
+                end
+                @per.seg_endnotes_array << note_match
+              end
+              try.join('<br>')
+              #% creation of separate end segment/page of all endnotes referenced back to reference segment
+              m=/(?:#{Mx[:en_a_o]}[\d*+]+|#{Mx[:en_b_o]}[*+]\d+)\s+(.+?href=")(##{Mx[:note_ref]}[\d*+]+".+)(?:#{Mx[:en_a_c]}|#{Mx[:en_b_c]})/mi
+              endnote_part_a=note_match_seg[m,1]
+              endnote_part_b=note_match_seg[m,2]
+              txt_obj={ endnote_part_a: endnote_part_a, endnote_part_b: endnote_part_b }
+              format_seg=SiSU_HTML_Format::FormatSeg.new(@md,txt_obj)
+              note_match_all_seg=format_seg.endnote_seg_body(@per.fn) #BUG WATCH 200408
+              @per.endnote_all << note_match_all_seg
+            end
+            dob.obj=dob.obj.gsub(/(?:#{Mx[:en_a_o]}.+?#{Mx[:en_a_c]}|#{Mx[:en_b_o]}.+?#{Mx[:en_b_c]})\s*/m,' ')
+          end
+        end
+      end
+    end
+  end
+end
+__END__