aboutsummaryrefslogtreecommitdiffhomepage
path: root/lib/sisu/develop/ao_doc_str.rb
diff options
context:
space:
mode:
Diffstat (limited to 'lib/sisu/develop/ao_doc_str.rb')
-rw-r--r--lib/sisu/develop/ao_doc_str.rb2269
1 files changed, 0 insertions, 2269 deletions
diff --git a/lib/sisu/develop/ao_doc_str.rb b/lib/sisu/develop/ao_doc_str.rb
deleted file mode 100644
index 353469ec..00000000
--- a/lib/sisu/develop/ao_doc_str.rb
+++ /dev/null
@@ -1,2269 +0,0 @@
-# encoding: utf-8
-=begin
-
-* Name: SiSU
-
-** Description: documents, structuring, processing, publishing, search
-*** document abstraction
-
-** 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/develop/ao_doc_str.rb;hb=HEAD>
-
-=end
-module SiSU_AO_DocumentStructureExtract
- require_relative 'ao_persist' # ao_persist.rb
- class Instantiate < SiSU_Param::Parameters::Instructions
- def initialize
- @@counter=@@column=@@columns=0
- @@line_mode=''
- end
- end
- class Build
- def initialize(md,data)
- @md,@data=md,data
- SiSU_AO_DocumentStructureExtract::Instantiate.new
- @pb=SiSU_AO_DocumentStructure::ObjectLayout.new.break(Hx[:br_page])
- @pbn=SiSU_AO_DocumentStructure::ObjectLayout.new.break(Hx[:br_page_new])
- @pbl=SiSU_AO_DocumentStructure::ObjectLayout.new.break(Hx[:br_page_line])
- @per=SiSU_AO_Persist::PersistDocStructExt.new
- end
- def ln_get(lv)
- case lv
- when /A/ then 0
- when /B/ then 1
- when /C/ then 2
- when /D/ then 3
- when /1/ then 4
- when /2/ then 5
- when /3/ then 6
- when /4/ then 7
- when /5/ then 8
- when /6/ then 9
- end
- end
- def image_test(str)
- str=~/\{\s*\S+?\.png.+?\}https?:\/\/\S+/ \
- ? true
- : false
- end
- def bullet_test(str)
- (str=~/\*/) \
- ? true
- : false
- end
- def quotes?
- @per.quote==:open \
- ? true
- : false
- end
- def hang_and_indent_test(str)
- hang_indent=if str=~/^_([1-9])[^_]/
- [$1,$1]
- elsif str=~/^__([1-9])/
- [0,$1]
- elsif str=~/^_([0-9])_([0-9])/
- [$1,$2]
- else
- [0,0]
- end
- hang,indent=hang_indent[0],hang_indent[1]
- [hang,indent]
- end
- def hang_and_indent_def_test(str1,str2)
- hang_indent=if str1=~/^_([1-9])[^_]/
- [$1,$1]
- elsif str1=~/^__([1-9])/
- [0,$1]
- elsif str1=~/^_([0-9])_([0-9])/
- [$1,$2]
- else
- [0,0]
- end
- obj=if str2 =~/^(.+?)\s+\\\\(?:\s+|\n)/
- str2.gsub(/^(.+?)(\s+\\\\(?:\s+|\n))/,
- "#{Mx[:fa_bold_o]}\\1#{Mx[:fa_bold_c]}\\2")
- else
- str2.gsub(/^(.+?)\n/,
- "#{Mx[:fa_bold_o]}\\1#{Mx[:fa_bold_c]}\n")
- end
- hang,indent=hang_indent[0],hang_indent[1]
- [
- hang,
- indent,
- obj,
- ]
- end
- def endnote_test?(str)
- (str=~/~\{.+?\}~|~\[.+?\]~/) \
- ? true
- : false
- end
- def extract_tags(str,nametag=nil)
- tags=[]
- if str.nil?
- else
- if str =~/(?:^|[ ])\*~([a-z0-9._-]+)(?=[ #{Mx[:br_nl]}]|$)/
- str=str.gsub(/(^|[ ])\*~([a-z0-9._-]+)(?=[ #{Mx[:br_nl]}]|$)/i,
- "\\1#{Mx[:tag_o]}\\2#{Mx[:tag_c]}").
- gsub(/ [ ]+/i,' ')
- tags=str.scan(/#{Mx[:tag_o]}(\S+?)#{Mx[:tag_c]}/).flatten.uniq
- str=str.gsub(/[ ]?#{Mx[:tag_o]}\S+?#{Mx[:tag_c]}[ ]?/,' ') #may be issues with spaces would leave one, but "code" blocks?
- end
- tags=nametag ? (tags << nametag) : tags
- tags.each do |t|
- t.gsub!(/[^a-z0-9._-]/,'')
- end
- end
- [
- str,
- tags,
- ]
- end
- def rgx_idx_ocn_seg
- @rgx_idx_ocn_seg=/(.+?)\s*[+](\d+)/
- end
- def construct_idx_array_and_hash(idxraw)
- idx_array_raw=idxraw.scan(/[^;]+/)
- idx_hash,idx_array,idx_lst={},[],[]
- idx_array_raw.each do |idx|
- idx=idx.strip
- idx_lst=case idx
- when /\S+?\s*:/
- idx_couplet_tmp=[]
- idx_couplet=idx.scan(/\s*[^:]+\s*/)
- if idx_couplet[1] =~/[|]/
- idx_couplet_tmp <<
- idx_couplet[0] <<
- idx_couplet[1].scan(/\s*[^|]+\s*/)
- else
- idx_couplet_tmp <<
- idx_couplet[0] <<
- [idx_couplet[1]]
- end
- idx_couplet=idx_couplet_tmp
- else [idx]
- end
- term_nodes=[]
- idx_lst.each do |term_node|
- case term_node
- when String
- term_node=
- term_node[0].chr.capitalize +
- term_node[1,term_node.length]
- term_node=(term_node =~/.+?[+]\d+/) \
- ? term_node
- : (term_node + '+0')
- term_nodes << term_node
- use,plus=rgx_idx_ocn_seg.match(term_node)[1,2]
- @use=use.strip
- unless idx_hash[@use] \
- and defined? idx_hash[@use]
- idx_hash[@use]=
- { sub: [], plus: plus }
- end
- when Array
- subterm_nodes=[]
- term_node.each do |subterm_node|
- subterm_node=(subterm_node =~/.+?[+]\d+/) \
- ? subterm_node
- : (subterm_node + '+0')
- subterm_nodes << subterm_node
- sub,sub_plus=rgx_idx_ocn_seg.match(subterm_node)[1,2]
- unless idx_hash[@use] \
- and defined? idx_hash[@use]
- idx_hash[@use]=
- { sub: [], plus: 0 }
- end
- idx_hash[@use][:sub] <<
- { sub.strip => { plus: sub_plus } }
- end
- term_nodes << subterm_nodes
- end
- end
- idx_array << term_nodes
- end
- {
- hash: idx_hash,
- array: idx_array,
- }
- end
- def extract_structure_loop(data,tuned_file)
- data.each do |t_o|
- if t_o =~/^--([+~-])[#]$/
- h=case $1
- when /[+]/
- @per.ocn=:on
- {
- flag: :ocn_on,
- }
- when /[~]/
- @per.ocn=:ocn_off_headings_keep
- {
- flag: :ocn_off,
- mod: :headings_keep,
- }
- when /[-]/ #of particular relevance with level 1~ which is required to precede substantive text & used e.g. in html segmented text
- @per.ocn=:ocn_off_headings_dummy_lev1
- {
- flag: :ocn_off,
- mod: :headings_exclude,
- }
- else
- @per.ocn=:on
- {
- flag: :ocn_on,
- }
- end
- t_o=SiSU_AO_DocumentStructure::ObjectFlag.new.flag_ocn(h)
- next
- end
- if t_o =~/^:[~](#{SiSU_is.language_list_regex?}|-)$/ # work with for identifying language of objects
- lng=$1
- h=case lng
- when /(?:#{SiSU_is.language_list_regex?})/
- @per.lng=:on
- @per.lng_is=lng.to_sym
- {
- flag: :lng_on,
- act: lng.to_sym,
- }
- else # ^:~-
- if @per.lng==:on
- @per.lng=:off
- @per.lng_is=:doc_default
- {
- flag: :lng_off,
- act: :doc_default,
- }
- end
- end
- t_o=SiSU_AO_DocumentStructure::ObjectFlag.new.flag_lng(h)
- next
- end
- t_o=t_o.gsub(/(?:\n\s*\n)+/m,"\n") if @per.code==:off
- unless t_o =~/^(?:@\S+?:|%+)\s/ # extract book index for paragraph if any
- idx=if t_o=~/^=\{\s*(.+)\s*\}\s*$\Z/m
- m=$1
- m=m.split(/[ ]*\n/).join(' ').
- gsub(/\s+([|:;])\s+/,'\1').
- gsub(/\s+([+]\d+)\s+/,'\1')
- t_o=t_o.gsub(/\n=\{.+?\}\s*$/m,'')
- idx_array_and_hash=construct_idx_array_and_hash(m)
- idx_array_and_hash[:hash]
- else nil
- end
- end
- if t_o !~/^(?:code(?:\.[a-z][0-9a-z_]+)?|box(?:\.[a-z_]+)?|poem|alt|group|block)\{|^\}(?:code|poem|alt|group|block)|^(?:table\{|\{table)[ ~]/ \
- and t_o !~/^```[ ]+(?:code(?:\.[a-z][0-9a-z_]+)?|box(?:\.[a-z_]+)?|poem|alt|group|block|table)|^```(?:\s+[~-][#]|\s+\~\{.+?\}\~)?\s*$|^`:quote_(?:open|close)`/ \
- and @per.code==:off \
- and @per.poem==:off \
- and @per.group==:off \
- and @per.block==:off \
- and @per.alt==:off \
- and @per.box==:off \
- and @per.table==:off
- t_o=case t_o
- when /^#{Mx[:meta_o]}\S+?#{Mx[:meta_c]}/ #metadata, header
- if t_o=~/^#{Mx[:meta_o]}(\S+?)#{Mx[:meta_c]}\s*(.+)/m
- tag,obj=$1,$2
- @metadata[tag]=obj
- end
- t_o=nil
- when /^%+\s/ #comment
- t_o=if t_o=~/^%+\s+(.+)/
- h={ obj: $1 }
- SiSU_AO_DocumentStructure::ObjectComment.new.comment(h)
- else nil
- end
- when /^:?([A-D1-6])\~/ #heading / lv
- lv=$1
- ln=ln_get(lv)
- t_o=if t_o=~/^:?[A-D1-6]\~\s+(.+)/m
- obj=$1
- note=endnote_test?(obj)
- obj,tags=extract_tags(obj)
- if @per.ocn==:ocn_off_headings_dummy_lev1 \
- or @per.ocn==:ocn_off_headings_keep
- unless obj =~ /[~-][#]\s*$/
- if @per.ocn==:ocn_off_headings_dummy_lev1 \
- and t_o =~/^1\~\S*\s+/m
- obj << ' -#'
- elsif @per.ocn==:ocn_off_headings_dummy_lev1 \
- or @per.ocn==:ocn_off_headings_keep
- obj << ' ~#'
- end
- end
- end
- h={
- lv: lv,
- ln: ln,
- obj: obj,
- idx: idx,
- tags: tags,
- }
- SiSU_AO_DocumentStructure::ObjectHeading.new.heading(h)
- elsif t_o=~/^:?[A-D1-6]\~(\S+?)-\s+(.+)/m
- name,obj=$1,$2
- note=endnote_test?(obj)
- obj,tags=extract_tags(obj)
- if @per.ocn==:ocn_off_headings_dummy_lev1 \
- or @per.ocn==:ocn_off_headings_keep
- unless obj =~ /[~-][#]\s*$/
- if @per.ocn==:ocn_off_headings_dummy_lev1 \
- and t_o =~/^1\~\S*\s+/m
- obj << ' -#'
- elsif @per.ocn==:ocn_off_headings_dummy_lev1 \
- or @per.ocn==:ocn_off_headings_keep
- obj << ' ~#'
- end
- end
- end
- h={
- lv: lv,
- name: name,
- obj: obj,
- idx: idx,
- autonum_: false,
- tags: tags,
- }
- SiSU_AO_DocumentStructure::ObjectHeading.new.heading(h)
- elsif t_o=~/^:?[A-D1-6]\~(\S+)\s+(.+)/m
- name,obj=$1,$2
- note=endnote_test?(obj)
- obj,tags=extract_tags(obj,name)
- if @per.ocn==:ocn_off_headings_dummy_lev1 \
- or @per.ocn==:ocn_off_headings_keep
- unless obj =~ /[~-][#]\s*$/
- if @per.ocn==:ocn_off_headings_dummy_lev1 \
- and t_o =~/^1\~\S*\s+/m
- obj << ' -#'
- elsif @per.ocn==:ocn_off_headings_dummy_lev1 \
- or @per.ocn==:ocn_off_headings_keep
- obj << ' ~#'
- end
- end
- end
- h={
- lv: lv,
- name: name,
- obj: obj,
- idx: idx,
- tags: tags,
- }
- SiSU_AO_DocumentStructure::ObjectHeading.new.heading(h)
- else nil
- end
- when /^_(?:[1-9]!?|[1-9]?\*)\s+/ #indented and/or bullet paragraph
- t_o=if t_o=~/^(_(?:[1-9]?\*|[1-9]!?)\s+)(.+)/m
- tst,obj=$1,$2
- if t_o=~/^_[1-9]!\s+.+/m
- hang,indent,obj=hang_and_indent_def_test(tst,obj)
- else
- hang,indent=hang_and_indent_test(tst)
- end
- bullet=bullet_test(tst)
- image=image_test(obj)
- note=endnote_test?(obj)
- obj,tags=extract_tags(obj)
- unless obj=~/\A\s*\Z/m
- if @per.ocn==:ocn_off_headings_dummy_lev1 \
- or @per.ocn==:ocn_off_headings_keep
- unless obj =~ /[~-][#]\s*$/
- obj << ' ~#'
- end
- end
- h={
- bullet_: bullet,
- hang: hang,
- indent: indent,
- obj: obj,
- idx: idx,
- note_: note,
- image_: image,
- tags: tags,
- quote: quotes?,
- }
- SiSU_AO_DocumentStructure::ObjectPara.new.paragraph(h)
- end
- else nil
- end
- when /^_[0-9]?_[0-9]!?\s+/ #hanging indent paragraph
- t_o=if t_o=~/^(_[0-9]?_[0-9]!?\s+)(.+)/m
- tst,obj=$1,$2
- if t_o=~/^_[0-9]?_[0-9]!\s+.+/m
- hang,indent,obj=hang_and_indent_def_test(tst,obj)
- else
- hang,indent=hang_and_indent_test(tst)
- end
- image=image_test(obj)
- note=endnote_test?(obj)
- obj,tags=extract_tags(obj)
- unless obj=~/\A\s*\Z/m
- if @per.ocn==:ocn_off_headings_dummy_lev1 \
- or @per.ocn==:ocn_off_headings_keep
- unless obj =~ /[~-][#]\s*$/
- obj << ' ~#'
- end
- end
- h={
- hang: hang,
- indent: indent,
- obj: obj,
- idx: idx,
- note_: note,
- image_: image,
- tags: tags,
- quote: quotes?,
- }
- SiSU_AO_DocumentStructure::ObjectPara.new.paragraph(h)
- end
- else nil
- end
- when /^<(?:br)?:(?:pa?r|o(?:bj|---)?)>\s*$/ #[br:par] #[br:obj]
- SiSU_AO_DocumentStructure::ObjectLayout.new.break(Hx[:br_obj])
- when /^(?:-\\\\-|<:pb>)\s*$/ #[br:pg]
- SiSU_AO_DocumentStructure::ObjectLayout.new.break(Hx[:br_page],:markup)
- when /^(?:=\\\\=|<:pn>)\s*$/ #[br:pgn]
- SiSU_AO_DocumentStructure::ObjectLayout.new.break(Hx[:br_page_new],:markup)
- when /^-\.\.-\s*$/ #[br:pgl]
- SiSU_AO_DocumentStructure::ObjectLayout.new.break(Hx[:br_page_line],:markup)
- else #paragraph
- image=image_test(t_o)
- note=endnote_test?(t_o)
- obj,tags=extract_tags(t_o)
- if @per.ocn==:ocn_off_headings_dummy_lev1 \
- or @per.ocn==:ocn_off_headings_keep
- unless obj =~ /[~-][#]\s*$/
- obj << ' ~#'
- end
- end
- unless obj=~/\A\s*\Z/m
- h={
- bullet_: false,
- indent: 0,
- hang: 0,
- obj: obj,
- idx: idx,
- note_: note,
- image_: image,
- tags: tags,
- quote: quotes?,
- }
- t_o=SiSU_AO_DocumentStructure::ObjectPara.new.paragraph(h)
- end
- t_o=SiSU_AO_DocumentStructureExtract::Structure.new(@md).structure_markup(t_o) #must happen earlier, node info etc. require
- end
- elsif @per.code==:off
- if t_o =~/^(?:code(?:\.[a-z][0-9a-z_]+)?\{|```[ ]+code(?:\.[a-z][0-9a-z_]+)?)/
- @per.code=case t_o
- when /^code(?:\.[a-z][0-9a-z_]+)?\{/ then :curls
- when /^```[ ]+code/ then :tics
- else @per.code #error
- end
- @per.lngsyn=if t_o =~/^(?:code\.[a-z][0-9a-z_]+\{|```[ ]+code\.[a-z_]+)/
- case t_o
- when /^code\.([a-z][0-9a-z_]+)\{/
- :"#{$1}"
- when /^```[ ]+code\.([a-z][0-9a-z_]+)/
- :"#{$1}"
- else :txt
- end
- else :txt
- end
- @@counter=1
- @codeblock_numbered=
- (t_o =~/^(?:code(?:\.[a-z][0-9a-z_]+)?\{#|```[ ]+code(?:\.[a-z][0-9a-z_]+)?\s[#])/) \
- ? true
- : false
- @num_id[:code_block] +=1
- h={
- is_for: :code,
- obj: '',
- sym: :code_block_open,
- num: @num_id[:code_block],
- syntax: @per.lngsyn,
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- elsif t_o =~/^(?:poem\{|```[ ]+poem)/
- @per.poem=case t_o
- when /^poem\{/ then :curls
- when /^```[ ]+poem/ then :tics
- else @per.poem #error
- end
- @num_id[:poem] +=1
- h={
- is_for: :poem,
- obj: '',
- sym: :poem_open,
- num: @num_id[:poem],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- tuned_file << t_o
- elsif t_o =~/^(?:box(?:\.[a-z_]+)?\{|```[ ]+box(?:\.[a-z_]+)?)/
- @per.box=case t_o
- when /^box\{/ then :curls
- when /^```[ ]+box/ then :tics
- else @per.box #error
- end
- @num_id[:box] +=1
- h={
- is_for: :box,
- obj: '',
- sym: :box_open,
- num: @num_id[:box],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- tuned_file << t_o
- elsif t_o =~/^(?:group\{|```[ ]+group)/
- @per.group=case t_o
- when /^group\{/ then :curls
- when /^```[ ]+group/ then :tics
- else @per.group #error
- end
- @num_id[:group] +=1
- h={
- is_for: :group,
- obj: '',
- sym: :group_open,
- num: @num_id[:group],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- tuned_file << t_o
- elsif t_o =~/^(?:block\{|```[ ]+block)/
- @per.block=case t_o
- when /^block\{/ then :curls
- when /^```[ ]+block/ then :tics
- else @per.block #error
- end
- @num_id[:block] +=1
- h={
- is_for: :block,
- obj: '',
- sym: :block_open,
- num: @num_id[:block],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- tuned_file << t_o
- elsif t_o =~/^(?:alt\{|```[ ]+alt)/
- @per.alt=case t_o
- when /^alt\{/ then :curls
- when /^```[ ]+alt/ then :tics
- else @per.alt #error
- end
- @num_id[:alt] +=1
- h={
- is_for: :alt,
- obj: '',
- sym: :alt_open,
- num: @num_id[:alt],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- tuned_file << t_o
- elsif t_o =~/^`:quote_open`/
- @per.quote=:open
- @num_id[:quote] +=1
- h={
- is_for: :quote,
- obj: '',
- sym: :quote_open,
- num: @num_id[:quote],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- #tuned_file << t_o #% find second source, entered twice, should be once so closed off here
- elsif t_o =~/^(?:table\{|```[ ]+table|\{table)[ ~]/
- @num_id[:table] +=1
- h={
- is_for: :table,
- obj: '',
- sym: :table_open,
- num: @num_id[:table],
- }
- ins_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- tuned_file << ins_o
- if t_o=~/^table\{(?:~h)?\s+/
- @per.table=:curls
- @rows=''
- case t_o
- when /table\{~h\s+c(\d+);\s+(.+)/
- cols=$1
- col=$2.scan(/\d+/)
- heading=true
- when /table\{\s+c(\d+);\s+(.+)/
- cols=$1
- col=$2.scan(/\d+/)
- heading=false
- end
- @h={
- head_: heading,
- cols: cols,
- widths: col,
- idx: idx,
- }
- elsif t_o=~/^```[ ]+table(?:~h)?\s+c\d+/
- @per.table=:tics
- @rows=''
- case t_o
- when /^```[ ]+table~h\s+c(\d+);\s+(.+)/
- cols=$1
- col=$2.scan(/\d+/)
- heading=true
- when /^```[ ]+table\s+c(\d+);\s+(.+)/
- cols=$1
- col=$2.scan(/\d+/)
- heading=false
- end
- @h={
- head_: heading,
- cols: cols,
- widths: col,
- idx: idx,
- }
- elsif t_o=~/^\{table(?:~h)?(?:\s+\d+;?)?\}\n.+\Z/m
- m1,m2,hd=nil,nil,nil
- tbl=/^\{table(?:~h)?(?:\s+\d+;?)?\}\n(.+)\Z/m.match(t_o)[1]
- hd=((t_o =~/^\{table~h/) ? true : false)
- tbl,tags=extract_tags(tbl)
- rws=tbl.split(/\n/)
- rows=''
- cols=nil
- rws.each do |r|
- cols=(cols ? cols : (r.scan('|').length) +1)
- r=r.gsub(/\s*\|\s*/m,"#{Mx[:tc_p]}") #r.gsub!(/\|/m,"#{Mx[:tc_p]}")
- rows += r + Mx[:tc_c]
- end
- col=[]
- if t_o =~/^\{table(?:~h)?\s+(\d+);?\}/ #width of col 1 given as %, usually when wider than rest that are even
- c1=$1.to_i
- width=(100 - c1)/(cols - 1)
- col=[ c1 ]
- (cols - 1).times { col << width }
- else #all columns of equal width
- width=100.00/cols
- cols.times { col << width }
- end
- h={
- head_: hd,
- cols: cols,
- widths: col,
- obj: rows,
- idx: idx,
- tags: tags,
- num: @num_id[:table],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectTable.new.table(h) \
- unless h.nil?
- tuned_file << t_o
- h={
- is_for: :table,
- obj: '',
- sym: :table_close,
- num: @num_id[:table],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- t_o
- elsif t_o=~/^```[ ]+table(?:~h)?\s+/
- m1,m2,hd=nil,nil,nil
- h=case t_o
- when /^```[ ]+table~h\s+(.+?)\n(.+)\Z/m #two table representations should be consolidated as one
- m1,tbl,hd=$1,$2,true
- when /^```[ ]+table\s+(.+?)\n(.+)\Z/m #two table representations should be consolidated as one
- m1,tbl,hd=$1,$2,false
- else nil
- end
- tbl,tags=extract_tags(tbl)
- col=m1.scan(/\d+/)
- rws=tbl.split(/\n/)
- rows=''
- rws.each do |r|
- r=r.gsub(/\s*\|\s*/m,"#{Mx[:tc_p]}") #r.gsub!(/\|/m,"#{Mx[:tc_p]}")
- rows += r + Mx[:tc_c]
- end
- h={
- head_: hd,
- cols: col.length,
- widths: col,
- obj: rows,
- idx: idx,
- tags: tags,
- num: @num_id[:table],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectTable.new.table(h) \
- unless h.nil?
- tuned_file << t_o
- h={
- is_for: :table,
- obj: '',
- sym: :table_close,
- num: @num_id[:table],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- t_o
- elsif t_o=~/^\{table(?:~h)?\s+/
- m1,m2,hd=nil,nil,nil
- h=case t_o
- when /\{table~h\s+(.+?)\}\n(.+)\Z/m #two table representations should be consolidated as one
- m1,tbl,hd=$1,$2,true
- when /\{table\s+(.+?)\}\n(.+)\Z/m #two table representations should be consolidated as one
- m1,tbl,hd=$1,$2,false
- else nil
- end
- tbl,tags=extract_tags(tbl)
- col=m1.scan(/\d+/)
- rws=tbl.split(/\n/)
- rows=''
- rws.each do |r|
- r=r.gsub(/\s*\|\s*/m,"#{Mx[:tc_p]}") #r.gsub!(/\|/m,"#{Mx[:tc_p]}")
- rows += r + Mx[:tc_c]
- end
- h={
- head_: hd,
- cols: col.length,
- widths: col,
- obj: rows,
- idx: idx,
- tags: tags,
- num: @num_id[:table],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectTable.new.table(h) \
- unless h.nil?
- tuned_file << t_o
- h={
- is_for: :table,
- obj: '',
- sym: :table_close,
- num: @num_id[:table],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- t_o
- end
- end
- t_o
- end
- if @per.table==:curls or @per.table==:tics
- if (@per.table==:curls \
- and t_o =~/^\}table/) \
- or (@per.table==:tics \
- and t_o =~/^```(?:\s+[~-][#]|\s+\~\{.+?\}\~)?\s*$/)
- @per.table=:off
- headings,columns,widths,idx=@h[:head_],@h[:cols],@h[:widths],@h[:idx]
- @h={
- head_: headings,
- cols: columns,
- widths: widths,
- idx: idx,
- obj: @rows,
- }
- t_o=SiSU_AO_DocumentStructure::ObjectTable.new.table(@h)
- tuned_file << t_o
- @h,@rows=nil,''
- h={
- is_for: :table,
- obj: '',
- sym: :table_close,
- num: @num_id[:table],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- t_o
- else
- if t_o.is_a?(String) \
- and t_o !~/^(?:table\{|```[ ]+table)/
- t_o=t_o.gsub(/^\n+/m,'').
- gsub(/\n+/m,"#{Mx[:tc_p]}")
- @rows += t_o + Mx[:tc_c]
- end
- t_o=nil
- end
- end
- if @per.code==:curls \
- or @per.code==:tics
- if (@per.code==:curls \
- && t_o =~/^\}code/) \
- or (@per.code==:tics \
- && t_o =~/^```(?:\s+[~-][#]|\s+\~\{.+?\}\~)?\s*$/m)
- @per.code=:off
- if @tuned_code[-1]
- @tuned_code[-1].
- gsub!(/\s*(?:#{Mx[:br_line]}|#{Mx[:br_nl]})\s*\Z/m,'')
- end
- obj=@tuned_code.join("\n")
- tags=[]
- h={
- obj: obj,
- idx: idx,
- syntax: @per.lngsyn,
- tags: tags,
- num: @num_id[:code_block],
- number_: @codeblock_numbered,
- }
- @per.lngsyn=:txt
- t_o=SiSU_AO_DocumentStructure::ObjectBlockTxt.new.code(h)
- @tuned_code=[]
- tuned_file << t_o
- h={
- is_for: :code,
- obj: '',
- sym: :code_close,
- num: @num_id[:code_block],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- end
- if (@per.code==:curls \
- || @per.code==:tics) \
- and t_o.is_a?(String)
- sub_array=t_o.dup + "#{Mx[:br_nl]}"
- @line_mode=[]
- sub_array.scan(/.+/) {|w| @line_mode << w if w =~/[\S]+/}
- t_o=SiSU_AO_DocumentStructureExtract::Build.new(@md,@line_mode).build_lines(:code).join
- @tuned_code << t_o
- t_o=nil
- end
- elsif (@per.poem==:curls \
- || @per.poem==:tics) \
- or (@per.box==:curls \
- || @per.box==:tics) \
- or (@per.group==:curls \
- || @per.group==:tics) \
- or (@per.block==:curls \
- || @per.block==:tics) \
- or (@per.alt==:curls \
- || @per.alt==:tics) \
- or (@per.quote==:open \
- && t_o =~/`:quote_close`/m) #not
- if (@per.poem==:curls \
- && t_o =~/^\}poem$/m) \
- or (@per.poem==:tics \
- && t_o =~/^```(?:\s+[~-][#]|\s+\~\{.+?\}\~)?\s*$/)
- @per.poem=:off
- h={
- is_for: :poem,
- obj: '',
- idx: idx,
- sym: :poem_close,
- num: @num_id[:poem],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- elsif (@per.box==:curls \
- && t_o =~/^\}box/) \
- or (@per.box==:tics \
- && t_o =~/^```(?:\s+[~-][#]|\s+\~\{.+?\}\~)?\s*$/)
- @per.box=:off
- obj,tags=extract_tags(@tuned_block.join("\n"))
- h={
- obj: obj,
- idx: idx,
- tags: tags,
- num: @num_id[:box],
- }
- @tuned_block=[]
- t_o=SiSU_AO_DocumentStructure::ObjectBlockTxt.new.box(h)
- tuned_file << t_o
- h={
- is_for: :box,
- obj: '',
- idx: idx,
- sym: :box_close,
- num: @num_id[:box],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- elsif (@per.group==:curls \
- && t_o =~/^\}group/) \
- or (@per.group==:tics \
- && t_o =~/^```(?:\s+[~-][#]|\s+\~\{.+?\}\~)?\s*$/)
- @per.group=:off
- obj,tags=extract_tags(@tuned_block.join("\n"))
- h={
- obj: obj,
- idx: idx,
- tags: tags,
- num: @num_id[:group],
- }
- @tuned_block=[]
- t_o=SiSU_AO_DocumentStructure::ObjectBlockTxt.new.group(h)
- tuned_file << t_o
- h={
- is_for: :group,
- obj: '',
- sym: :group_close,
- num: @num_id[:group],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- elsif (@per.block==:curls \
- && t_o =~/^\}block/) \
- or (@per.block==:tics \
- && t_o =~/^```(?:\s+[~-][#]|\s+\~\{.+?\}\~)?\s*$/)
- @per.block=:off
- obj,tags=extract_tags(@tuned_block.join("\n"))
- h={
- obj: obj,
- idx: idx,
- tags: tags,
- num: @num_id[:block],
- }
- @tuned_block=[]
- t_o=SiSU_AO_DocumentStructure::ObjectBlockTxt.new.block(h)
- tuned_file << t_o
- h={
- is_for: :block,
- obj: '',
- sym: :block_close,
- num: @num_id[:block],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- elsif (@per.alt==:curls \
- && t_o =~/^\}alt/) \
- or (@per.alt==:tics \
- && t_o =~/^```(?:\s+[~-][#]|\s+\~\{.+?\}\~)?\s*$/)
- @per.alt=:off
- obj,tags=extract_tags(@tuned_block.join("\n"))
- h={
- obj: obj,
- idx: idx,
- tags: tags,
- num: @num_id[:alt],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectBlockTxt.new.alt(h)
- @tuned_block=[]
- tuned_file << t_o
- h={
- is_for: :alt,
- obj: '',
- sym: :alt_close,
- num: @num_id[:alt],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- elsif @per.quote==:open \
- and t_o =~/`:quote_close`/m
- @per.quote=:off
- h={
- is_for: :quote,
- idx: idx,
- obj: '',
- sym: :quote_close,
- num: @num_id[:quote],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectLayout.new.open_close(h)
- elsif @per.quote==:open
- t_o,tags=extract_tags(t_o)
- h={
- indent: 1,
- obj: t_o,
- idx: idx,
- note_: note,
- image_: image,
- tags: tags,
- quote: quotes?,
- }
- SiSU_AO_DocumentStructure::ObjectPara.new.paragraph(h)
- end
- if (@per.poem==:curls \
- || @per.poem==:tics) \
- or (@per.group==:curls \
- || @per.group==:tics) \
- or (@per.alt==:curls \
- || @per.alt==:tics) \
- and t_o =~/\S/ \
- and t_o !~/^(?:\}(?:verse|code|box|alt|group|block)|(?:verse|code(?:\.[a-z][0-9a-z_]+)?|box(?:\.[a-z_]+)?|alt|group|block)\{)/ \
- and t_o !~/^```[ ]+(?:code(?:\.[a-z][0-9a-z_]+)?|box(?:\.[a-z_]+)?|poem|alt|group|block)|^```(?:\s+[~-][#]|\s+\~\{.+?\}\~)?\s*$/ # fix logic
- sub_array=t_o.dup
- @line_mode=sub_array.scan(/.+/)
- type=if @per.poem==:curls or @per.poem==:tics
- t_o=SiSU_AO_DocumentStructureExtract::Build.new(@md,@line_mode).build_lines(type).join
- poem=t_o.split(/\n\n/)
- poem.each do |v|
- v=v.gsub(/\n/m,"#{Mx[:br_nl]}\n")
- obj,tags=extract_tags(v)
- h={
- obj: obj,
- tags: tags,
- num: @num_id[:poem],
- }
- t_o=SiSU_AO_DocumentStructure::ObjectBlockTxt.new.verse(h)
- tuned_file << t_o
- end
- :poem
- else :group
- end
- end
- @verse_count+=1 if @per.poem==:curls or @per.poem==:tics
- end
- if @per.code==:off
- if @per.poem==:curls or @per.poem==:tics \
- or @per.box==:curls or @per.box==:tics \
- or @per.group==:curls or @per.group==:tics \
- or @per.alt==:curls or @per.alt==:tics \
- or (@per.quote==:open and t_o =~/`:quote_close`/m)
- if t_o.is_a?(String)
- t_o=t_o.gsub(/\n/m,"#{Mx[:br_nl]}").
- gsub(/[ ][ ]/m,"#{Mx[:nbsp]*2}").
- gsub(/#{Mx[:nbsp]}\s/,"#{Mx[:nbsp]*2}")
- t_o=t_o + Mx[:br_nl] if t_o =~/\S+/
- elsif t_o.is==:group \
- || t_o.is==:block \
- || t_o.is==:alt \
- || t_o.is==:box \
- || t_o.is==:verse
- t_o.obj=t_o.obj.gsub(/\n/m,"#{Mx[:br_nl]}").
- gsub(/[ ][ ]/m,"#{Mx[:nbsp]*2}").
- gsub(/#{Mx[:nbsp]}\s/,"#{Mx[:nbsp]*2}")
- end
- @tuned_block << t_o if t_o =~/\S+/
- else tuned_file << t_o
- end
- else tuned_file << t_o
- end
- end
- tuned_file
- end
- def identify_parts
- tuned_file=[]
- @tuned_block,@tuned_code=[],[]
- @@counter,@verse_count=0,0
- @num_id={
- code_block: 0,
- poem: 0,
- box: 0,
- group: 0,
- alt: 0,
- quote: 0,
- table: 0,
- }
- @metadata={}
- @data,bibliography=SiSU_AO_References::Bibliography.new(@md,@data).biblio_extraction
- tuned_file=extract_structure_loop(@data,tuned_file)
- if @md.flag_endnotes
- tuned_file << @pb
- h={
- ln: 1,
- lc: 1,
- obj: 'Endnotes',
- autonum_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectHeading.new.heading_insert(h)
- h={
- ln: 4,
- lc: 2,
- obj: 'Endnotes',
- name: 'endnotes',
- autonum_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectHeading.new.heading_insert(h)
- h={
- obj: 'Endnotes'
- }
- end
- if @md.flag_auto_biblio
- tuned_file << @pb
- h={
- ln: 1,
- lc: 1,
- obj: 'References',
- autonum_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectHeading.new.heading_insert(h)
- h={
- ln: 4,
- lc: 2,
- obj: 'Bibliography',
- name: 'biblio',
- autonum_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectHeading.new.heading_insert(h)
- h={
- obj: 'Bibliography'
- }
- citenumber=0
- bibliography.each do |c|
- citenumber +=1 if c.is_a?(Hash)
- if c[:is]==:book
- h={
- obj: %{[#{citenumber}] *{#{c[:author]}}* /{"#{c[:fulltitle]}"}/ #{c[:publisher]} (#{c[:year]}) #{c[:url]}},
- tags: [c[:id]],
- hang: 0,
- indent: 2,
- ocn_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectPara.new.paragraph(h)
- elsif c[:is]==:article
- h={
- obj: %{[#{citenumber}] *{#{c[:author]}}* /{"#{c[:title]}"}/ #{c[:journal]} #{c[:volume]} (#{c[:year]}) #{c[:url]}},
- tags: [c[:id]],
- hang: 0,
- indent: 2,
- ocn_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectPara.new.paragraph(h)
- end
- end
- elsif @md.flag_biblio
- tuned_file << @pb
- h={
- ln: 1,
- lc: 1,
- obj: 'References',
- autonum_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectHeading.new.heading_insert(h)
- h={
- ln: 4,
- lc: 2,
- obj: 'Bibliography',
- name: 'biblio',
- autonum_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectHeading.new.heading_insert(h)
- h={
- obj: 'Bibliography'
- }
- if bibliography.length > 0
- tuned_file=extract_structure_loop(bibliography,tuned_file)
- else
- tuned_file, citations =
- SiSU_AO_References::Citations.new(@md,tuned_file).songsheet # ao_references.rb
- citenumber=0
- citations.compact.each do |c|
- citenumber +=1 if c.is_a?(Hash)
- if c[:is]==:book
- h={
- obj: %{[#{citenumber}] *{#{c[:author]}}* /{#{c[:publication]}}/ (#{c[:year]})},
- hang: 0,
- indent: 2,
- ocn_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectPara.new.paragraph(h)
- elsif c[:is]==:article
- h={
- obj: %{[#{citenumber}] *{#{c[:author]}}* /{"#{c[:title]}"}/ #{c[:publication]} editor #{c[:editor]} (#{c[:year]})},
- hang: 0,
- indent: 2,
- ocn_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectPara.new.paragraph(h)
- end
- end
- end
- end
- if @md.book_idx
- tuned_file << @pb
- h={
- ln: 1,
- lc: 1,
- obj: 'Index',
- autonum_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectHeading.new.heading_insert(h)
- h={
- ln: 4,
- lc: 2,
- obj: 'Index',
- name: 'book_index',
- autonum_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectHeading.new.heading_insert(h)
- h={
- obj: 'Index'
- }
- end
- tuned_file << @pb
- h={
- ln: 1,
- lc: 1,
- obj: 'Metadata',
- autonum_: false,
- ocn_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectHeading.new.heading_insert(h)
- h={
- ln: 4,
- lc: 2,
- obj: 'SiSU Metadata, document information',
- name: 'metadata',
- autonum_: false,
- ocn_: false,
- }
- tuned_file << SiSU_AO_DocumentStructure::ObjectHeading.new.heading_insert(h)
- h={
- obj: 'eof',
- }
- meta=SiSU_AO_DocumentStructure::ObjectMetadata.new.metadata(@metadata)
- [tuned_file,meta,bibliography]
- end
- def table_rows_and_columns_array(table_str)
- table=[]
- table_str.split(/#{Mx[:tc_c]}/).each do |table_row|
- table_row_with_columns=table_row.split(/#{Mx[:tc_p]}/)
- table << table_row_with_columns
- end
- table
- end
- def meta_heading(h)
- h={
- lv: h[:lv],
- ln: h[:ln],
- name: h[:name],
- obj: h[:obj],
- ocn: '0',
- }
- SiSU_AO_DocumentStructure::ObjectHeading.new.heading(h)
- end
- def meta_para(str)
- h={
- obj: str,
- ocn_: false,
- }
- SiSU_AO_DocumentStructure::ObjectPara.new.paragraph(h)
- end
- def build_lines(type=:none)
- lines=@data
- lines.each.map do |line|
- line=if line =~/\S/ \
- and line !~/^(?:code(?:\.[a-z][0-9a-z_]+)?\{|\}code)/ \
- and line !~/^(?:```[ ]+code(?:\.[a-z][0-9a-z_]+)?|```(?:\s+[~-][#]|\s+\~\{.+?\}\~)?\s*$)/ \
- and not line.is_a?(Hash) #watch
- @@counter+=1 if @per.code==:curls or @per.code==:tics
- line=line.gsub(/\s\s/,"#{Mx[:nbsp]*2}").
- gsub(/#{Mx[:nbsp]}\s/,"#{Mx[:nbsp]*2}")
- line=line.gsub(/^/,"#{Mx[:gr_o]}codeline#{Mx[:gr_c]}") if type==:code # REMOVE try sort for texpdf special case
- line=if line =~/(?:https?|file|ftp):\/\/\S+$/
- line.gsub(/\s*$/," #{Mx[:br_nl]}")
- else line.gsub(/\s*$/,"#{Mx[:br_nl]}") #unless type=='code'
- end
- elsif line =~/^\s*$/
- line.gsub(/\s*$/,"#{Mx[:br_nl]}")
- else line
- end
- line
- end
- end
- end
- class Structure # this must happen early
- def initialize(md)
- @md=md
- end
- def structure(data)
- data.compact.each do |dob|
- structure_markup(dob)
- end
- end
- def structure_markup(dob) #build structure where structure provided only in meta header
- dob=if dob.is==:para \
- && (((dob.hang !~/[1-9]/) && (dob.indent !~/[1-9]/)) \
- || (dob.hang != dob.indent)) \
- and not dob.bullet_
- dob=case dob.obj
- when /^#{@md.lv0}/
- h={
- is: :heading,
- lv: 'A',
- ln: 0,
- }
- SiSU_AO_DocumentStructure::ObjectHeading.new.heading(h,dob)
- when /^#{@md.lv1}/
- h={
- is: :heading,
- lv: 'B',
- ln: 1,
- }
- SiSU_AO_DocumentStructure::ObjectHeading.new.heading(h,dob)
- when /^#{@md.lv2}/
- h={
- is: :heading,
- lv: 'C',
- ln: 2,
- }
- SiSU_AO_DocumentStructure::ObjectHeading.new.heading(h,dob)
- when /^#{@md.lv3}/
- h={
- is: :heading,
- lv: 'D',
- ln: 3,
- }
- SiSU_AO_DocumentStructure::ObjectHeading.new.heading(h,dob)
- when /^#{@md.lv4}/
- h={
- is: :heading,
- lv: '1',
- ln: 4,
- }
- SiSU_AO_DocumentStructure::ObjectHeading.new.heading(h,dob)
- when /^#{@md.lv5}/
- h={
- is: :heading,
- lv: '2',
- ln: 5,
- }
- SiSU_AO_DocumentStructure::ObjectHeading.new.heading(h,dob)
- when /^#{@md.lv6}/
- h={
- is: :heading,
- lv: '3',
- ln: 6,
- }
- SiSU_AO_DocumentStructure::ObjectHeading.new.heading(h,dob)
- else dob
- end
- else dob
- end
- dob
- end
- end
- class OCN
- def initialize(md,data,fnx,process)
- @md,@data,@fnx,@process=md,data,fnx,process
- end
- def structure_info
- def lv
- %w[A~ B~ C~ D~ 1 2 3 4]
- end
- def possible_parents(child)
- case child
- when /A~/ then 'none'
- when /B~/ then 'A~'
- when /C~/ then 'B~'
- when /D~/ then 'C~'
- when /1/ then 'A~, B~, C~, D~'
- when /2/ then '1'
- when /3/ then '2'
- when /4/ then '3'
- end
- end
- def possible_children(parent)
- case parent
- when /A~/ then 'B~, 1'
- when /B~/ then 'C~, 1'
- when /C~/ then 'D~, 1'
- when /D~/ then '1'
- when /1/ then '2'
- when /2/ then '3'
- when /3/ then '4'
- when /4/ then 'none'
- end
- end
- self
- end
- def document_structure_check_info(node,node_parent,status=:ok)
- node_ln=/^([0-7])/.match(node)[1].to_i
- node_parent_ln=/^([0-7])/.match(node_parent)[1].to_i
- if status==:error \
- or @md.opt.act[:maintenance][:set]==:on
- puts %{node: #{node}, parent node: #{node_parent} #{status.upcase}}
- if status==:error
- node_ln=/^([0-7])/.match(node)[1].to_i
- node_parent_ln=/^([0-7])/.match(node_parent)[1].to_i
- STDERR.puts %{current level: #{structure_info.lv[node_ln]} (possible parent levels: #{structure_info.possible_parents(structure_info.lv[node_ln])})
-parent level: #{structure_info.lv[node_parent_ln]} (possible child levels: #{structure_info.possible_children(structure_info.lv[node_parent_ln])})
-SKIPPED processing file:
-[#{@md.opt.lng}] "#{@md.fns}"}
- if @md.opt.act[:no_stop][:set]==:on
- $process_document = :skip
- else exit
- end
- end
- end
- end
- def warning_incorrect_parent_level_or_level(txt)
- puts %{ERROR. There is an error in markup of heading levels either here or in the parent heading.
-The current header reads:
-"#{txt}"
-has incorrect level and/or parent level
---}
- end
- def required_headers_present?
- if @process == :complete
- unless (defined? @md.title \
- and @md.title.full)
- STDERR.puts %{required header missing:
-
-@title:
-SKIPPED processing file:
-[#{@md.opt.lng}] "#{@md.fns}"
-}
- if @md.opt.act[:no_stop][:set]==:on
- $process_document = :skip
- else exit
- end
- end
- unless (defined? @md.creator.author \
- and @md.creator.author)
- STDERR.puts %{required header missing:
-
-@creator:
- :author: anonymous?
-SKIPPED processing file:
-[#{@md.opt.lng}] "#{@md.fns}"
-}
- if @md.opt.act[:no_stop][:set]==:on
- $process_document = :skip
- else exit
- end
- end
- end
- end
- def ocn #and auto segment numbering increment
- required_headers_present?
- data=@data
- @o_array=[]
- node=ocn=ocn_dv=ocn_sp=ocnh=ocnh0=ocnh1=ocnh2=ocnh3=ocnh4=ocnh5=ocnh6=ocnh7=ocno=ocnp=ocnt=ocnc=ocng=ocni=ocnu=0 # h heading, o other, t table, g group, i image
- regex_exclude_ocn_and_node = /#{Rx[:meta]}|^@\S+?:\s|^4~endnotes|^#{Mx[:lv_o]}4:endnotes#{Mx[:lv_c]}|^\^~ |<:e[:_]\d+?>|^<:\#|<:- |<[:!]!4|<hr width|#{Mx[:br_endnotes]}|\A\s*\Z/mi #ocn here #&nbsp; added with Tune.code #ยก
- parent=node1=node2=node3=node4=node5=node6=node7=nil
- node0='0:0;0'
- @collapsed_lv0=0
- @lev_occurences={ a: 0, b: 0, c: 0, d: 0, l1: 0, l2: 0, l3: 0, l4: 0 }
- data.each do |dob|
- h={}
- if (dob.obj !~ regex_exclude_ocn_and_node || dob.is==:code) \
- && (dob.of !=:comment \
- && dob.of !=:layout \
- && dob.of !=:meta) \
- && dob.ocn_
- #dob.ln now is determined, and set earlier, check how best to remove this -->
- if dob.is==:heading
- @ln=ln=case dob.lv
- when 'A' then 0
- when 'B' then 1
- when 'C' then 2
- when 'D' then 3
- when '1' then 4
- when '2' then 5
- when '3' then 6
- when '4' then 7
- when '5' then 8
- when '6' then 9
- end
- end
- if not dob.obj =~/~#|-#/
- ocn+=1
- end
- if @process == :complete \
- or (@fnx == @md.opt.fns \
- && @md.opt.fns =~/.sst$/)
- if dob.is==:heading \
- and (ln.to_s =~/^[0-9]/ \
- or ln.to_s =~@md.lv0 \
- or ln.to_s =~@md.lv1 \
- or ln.to_s =~@md.lv2 \
- or ln.to_s =~@md.lv3 \
- or ln.to_s =~@md.lv4 \
- or ln.to_s =~@md.lv5 \
- or ln.to_s =~@md.lv6 \
- or ln.to_s =~@md.lv7)
- if not dob.obj =~/~#|-#/
- ocnh+=1
- end
- if ln==0 \
- or ln=~@md.lv0
- @lev_occurences[:a] += 1
- if not dob.obj =~/~#|-#/
- ocn_flag=true
- ocnh0+=1 #heading
- node0="0:#{ocnh0};#{ocn}"
- else
- #document_structure_check_info(node0,node0,:error) #fix
- ocn_flag=false
- node0="0:0;0"
- end
- document_structure_check_info(node0,node0)
- @collapsed_lv0=0
- collapsed_level=@collapsed_lv0
- node,ocn_sp,parent=node0,"h#{ocnh}",'ROOT'
- elsif ln==1 \
- or ln=~@md.lv1
- @lev_occurences[:b] += 1
- if not dob.obj =~/~#|-#/
- ocn_flag=true
- ocnh1+=1 #heading
- node1="1:#{ocnh1};#{ocn}"
- else
- #document_structure_check_info(node0,node0,:error) #fix
- ocn_flag=false
- node1="1:0;0"
- end
- parent=if node0
- document_structure_check_info(node1,node0)
- @collapsed_lv1=@collapsed_lv0+1
- node0
- else
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node0,node0,:error)
- node0
- end
- collapsed_level=@collapsed_lv1
- node,ocn_sp,parent=node1,"h#{ocnh}",node0 #FIX
- elsif ln==2 \
- or ln=~@md.lv2
- @lev_occurences[:c] += 1
- if not dob.obj =~/~#|-#/
- ocn_flag=true
- ocnh2+=1
- node2="2:#{ocnh2};#{ocn}"
- else
- #document_structure_check_info(node0,node0,:error) #fix
- ocn_flag=false
- node2="2:0;0"
- end
- parent=if node1
- document_structure_check_info(node2,node1)
- @collapsed_lv2=@collapsed_lv1+1
- node1
- else
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node2,node0,:error)
- node0
- end
- collapsed_level=@collapsed_lv2
- node,ocn_sp=node2,"h#{ocnh}"
- elsif ln==3 \
- or ln=~@md.lv3
- @lev_occurences[:d] += 1
- if not dob.obj =~/~#|-#/
- ocn_flag=true
- ocnh3+=1
- node3="3:#{ocnh3};#{ocn}"
- else
- #document_structure_check_info(node0,node0,:error) #fix
- ocn_flag=false
- node3="3:0;0"
- end
- parent=if node2
- document_structure_check_info(node3,node2)
- @collapsed_lv3=@collapsed_lv2+1
- node2
- elsif node1
- warning_incorrect_parent_level_or_level(dob.obj)
- puts %{parent is :A~ & this level #{dob.lv}
-either parent should be level :B~
-or this level should be level :B~ rather than #{dob.lv}}
- document_structure_check_info(node3,node1,:error)
- @collapsed_lv3=@collapsed_lv1+1
- node1
- else
- document_structure_check_info(node3,node0,:error)
- warning_incorrect_parent_level_or_level(dob.obj)
- node0
- end
- collapsed_level=@collapsed_lv3
- node,ocn_sp=node3,"h#{ocnh}"
- elsif ln==4 \
- or ln=~@md.lv4
- @lev_occurences[:l1] += 1
- if not dob.obj =~/~#|-#/
- ocn_flag=true
- ocnh4+=1
- node4="4:#{ocnh4};#{ocn}"
- else
- ocn_flag=false
- node4="4:0;0"
- end
- parent=if node3
- document_structure_check_info(node4,node3)
- @collapsed_lv4=@collapsed_lv3+1
- node3
- elsif node2
- document_structure_check_info(node4,node2)
- @collapsed_lv4=@collapsed_lv2+1
- node2
- elsif node1
- document_structure_check_info(node4,node1)
- @collapsed_lv4=@collapsed_lv1+1
- node1
- elsif node0
- document_structure_check_info(node4,node0)
- @collapsed_lv4=@collapsed_lv0+1
- node0
- else
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node4,node0,:error)
- node0
- end
- collapsed_level=@collapsed_lv4
- node,ocn_sp=node4,"h#{ocnh}"
- elsif ln==5 \
- or ln=~@md.lv5
- @lev_occurences[:l2] += 1
- if not dob.obj =~/~#|-#/
- ocn_flag=true
- ocnh5+=1
- node5="5:#{ocnh5};#{ocn}"
- else
- ocn_flag=false
- node5="5:0;0"
- end
- parent=if node4
- document_structure_check_info(node5,node4)
- @collapsed_lv5=@collapsed_lv4+1
- node4
- elsif node3
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node5,node3,:error)
- @collapsed_lv5=@collapsed_lv3+1
- node3
- elsif node2
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node5,node2,:error)
- @collapsed_lv5=@collapsed_lv2+1
- node2
- elsif node1
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node5,node1,:error)
- @collapsed_lv5=@collapsed_lv1+1
- node1
- else
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node5,node0,:error)
- node0
- end
- collapsed_level=@collapsed_lv5
- node,ocn_sp=node5,"h#{ocnh}"
- elsif ln==6 \
- or ln=~@md.lv6
- @lev_occurences[:l3] += 1
- if not dob.obj =~/~#|-#/
- ocn_flag=true
- ocnh6+=1
- node6="6:#{ocnh6};#{ocn}"
- else
- ocn_flag=false
- node6="6:0;0"
- end
- parent=if node5
- document_structure_check_info(node6,node5)
- @collapsed_lv6=@collapsed_lv5+1
- node5
- elsif node4
- warning_incorrect_parent_level_or_level(dob.obj)
- puts "parent is level #4 (1~) & this level ##{dob.ln} (#{dob.lv}~)
-either parent should be level #5 (2~)
-or this level should be #5 (2~) rather ##{dob.ln} (#{dob.lv}~)"
- document_structure_check_info(node6,node4,:error)
- @collapsed_lv6=@collapsed_lv4+1
- node4
- elsif node3
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node6,node3,:error)
- @collapsed_lv6=@collapsed_lv3+1
- node3
- elsif node2
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node6,node2,:error)
- @collapsed_lv6=@collapsed_lv2+1
- node2
- elsif node1
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node6,node1,:error)
- @collapsed_lv6=@collapsed_lv1+1
- node1
- else
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node6,node0,:error)
- node0
- end
- collapsed_level=@collapsed_lv6
- node,ocn_sp=node6,"h#{ocnh}"
- elsif ln==7 \
- or ln=~@md.lv7
- @lev_occurences[:l4] += 1
- if not dob.obj =~/~#|-#/
- ocn_flag=true
- ocnh7+=1
- node7="7:#{ocnh7};#{ocn}"
- else
- ocn_flag=false
- node7="7:0;0"
- end
- parent=if node6
- document_structure_check_info(node7,node6)
- @collapsed_lv7=@collapsed_lv6+1
- node5
- elsif node5
- warning_incorrect_parent_level_or_level(dob.obj)
- puts "parent is level #5 (2~) & this level ##{dob.ln} (#{dob.lv}~)
-either parent should be level #6 (3~)
-or this level should be #6 (3~) rather ##{dob.ln} (#{dob.lv}~)"
- document_structure_check_info(node7,node5,:error)
- @collapsed_lv6=@collapsed_lv5+1
- node5
- elsif node4
- warning_incorrect_parent_level_or_level(dob.obj)
- puts "parent is level #4 (1~) & this level ##{dob.ln} (#{dob.lv}~)
-either parent should be level 6~
-or this level should be #6 (3~) rather ##{dob.ln} (#{dob.lv}~)"
- document_structure_check_info(node7,node4,:error)
- @collapsed_lv6=@collapsed_lv4+1
- node4
- elsif node3
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node7,node3,:error)
- @collapsed_lv6=@collapsed_lv3+1
- node3
- elsif node2
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node7,node2,:error)
- @collapsed_lv6=@collapsed_lv2+1
- node2
- elsif node1
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node7,node1,:error)
- @collapsed_lv6=@collapsed_lv1+1
- node1
- else
- warning_incorrect_parent_level_or_level(dob.obj)
- document_structure_check_info(node7,node0,:error)
- node0
- end
- collapsed_level=@collapsed_lv7
- node,ocn_sp=node7,"h#{ocnh}"
- end
- else
- unless @lev_occurences[:l1] > 0
- STDERR.puts %{Substantive text objects must follow a level 1~ heading and there are none at this point in processing: #{@lev_occurences[:l1]}
-SKIPPED processing file:
-[#{@md.opt.lng}] "#{@md.fns}"}
- puts dob.obj #.gsub(/^(.{1,80})/,'"\1"')
- exit
- end
- unless @ln >= 4
- lev=case @ln
- when 0 then 'A'
- when 1 then 'B'
- when 2 then 'C'
- when 3 then 'D'
- when 4 then '1'
- when 5 then '2'
- when 6 then '3'
- when 7 then '4'
- when 8 then '5'
- when 9 then '6'
- end
- STDERR.puts %{Substantive text objects must follow a level 1~ 2~ or 3~ heading: #{lev}~
-SKIPPED processing file:
-[#{@md.opt.lng}] "#{@md.fns}"}
- puts dob.obj.gsub(/^(.{1,80})/,'"\1"')
- if @md.opt.act[:no_stop][:set]==:on
- $process_document = :skip
- break
- else exit
- end
- end
- if not dob.obj =~/~#|-#/
- ocn_flag=true
- else
- ocn_flag=false
- end
- ocno+=1
- if dob.is==:table
- ocnt+=1
- ocn_sp,parent="t#{ocnt}",node
- elsif dob.is==:code
- ocnc+=1
- ocn_sp,parent="c#{ocnc}",node
- elsif dob.is==:group \
- || dob.is==:box \
- || dob.is==:block \
- || dob.is==:alt \
- || dob.is==:verse
- ocng+=1 #group, poem
- ocn_sp,parent="g#{ocng}",node
- elsif dob.is==:image #check
- ocni+=1
- ocn_sp,parent="i#{ocni}",node
- else ocnp+=1 #paragraph
- ocn_sp,parent="p#{ocnp}",node
- end
- end
- end
- if dob.is==:heading
- if ocn_flag==true
- dob.ln,dob.node,dob.ocn,dob.ocn_,dob.odv,dob.osp,dob.parent,dob.lc=
- ln, node, ocn, ocn_flag, ocn_dv,ocn_sp, parent, collapsed_level
- else
- ocnu+=1
- heading_use=:ok
- if dob.obj=~/#{Mx[:pa_non_object_no_heading]}/
- dob.obj=dob.obj.gsub(/#{Mx[:pa_non_object_no_heading]}/,'')
- heading_use=:ok
- elsif dob.obj=~/#{Mx[:pa_non_object_dummy_heading]}/
- dob.obj=dob.obj.gsub(/#{Mx[:pa_non_object_dummy_heading]}/,'')
- heading_use=:dummy
- end
- dob.ln,dob.node,dob.ocn,dob.ocn_,dob.use_, dob.odv,dob.osp,dob.parent,dob.lc=
- ln, node, nil, ocn_flag,heading_use,ocn_dv, ocn_sp, parent, collapsed_level
- end
- else
- if dob.of !=:meta \
- && dob.of !=:comment \
- && dob.of !=:layout
- if ocn_flag == true
- dob.ocn,dob.ocn_,dob.odv,dob.osp,dob.parent=
- ocn, ocn_flag,ocn_dv, ocn_sp, parent
- else
- ocnu+=1
- dob.obj=dob.obj.gsub(/#{Mx[:fa_o]}[~-]##{Mx[:fa_c]}/,'') if dob.obj
- ocn_dv,ocn_sp="u#{ocnu}","u#{ocnu}"
- dob.ocn,dob.ocn_,dob.odv,dob.osp,dob.parent=
- nil, ocn_flag,ocn_dv, ocn_sp, parent
- end
- end
- end
- h
- else dob
- end
- if dob.is==:code \
- || dob.is==:verse \
- || dob.is==:alt \
- || dob.is==:box \
- || dob.is==:group \
- || dob.is==:block
- dob.obj=dob.obj.gsub(/\n+/,"\n") #newlines taken out
- end
- @o_array << dob
- end
- if @process == :complete \
- or (@fnx == @md.opt.fns \
- && @md.opt.fns =~/.sst$/)
- unless @lev_occurences[:a] == 1
- STDERR.puts %{The number of level A~ in this document: #{@lev_occurences[:a]}
-There must be one level A~ (no more and no less)
-SKIPPED processing file:
-[#{@md.opt.lng}] "#{@md.fns}"}
- if @md.opt.act[:no_stop][:set]==:on
- $process_document = :skip
- else exit
- end
- end
- unless @lev_occurences[:l1] > 0
- STDERR.puts %{The number of level 1~ in this document: #{@lev_occurences[:l1]}
-There must be at least one level 1~ (and as many as required)
-SKIPPED processing file:
-[#{@md.opt.lng}] "#{@md.fns}"}
- if @md.opt.act[:no_stop][:set]==:on
- $process_document = :skip
- else exit
- end
- end
- end
- @o_array
- end
- end
- class XML
- def initialize(md,data)
- @data,@md=data,md
- end
- def dom
- @s=[ 'A', 'B', 'C', 'D', '1', '2', '3' ]
- tuned_file=structure_build
- tuned_file
- end
- def spaces
- Ax[:spaces]
- end
- def structure_build
- data=@data
- tuned_file=[]
- hs=[0,false,false,false]
- t={
- lv: @s[0],
- status: :open,
- }
- tuned_file << tags(t)
- if @md.opt.act[:verbose_plus][:set]==:on
- puts "\nXML sisu structure outline --->\n"
- puts "<#{@s[0]}>"
- end
- data.each_with_index do |o,i|
- if o.is==:heading \
- || o.is==:heading_insert
- case o.ln
- when 0
- tuned_file << tag_close(o.ln,hs)
- tuned_file << tag_open(o,@s)
- if @md.opt.act[:verbose_plus][:set]==:on
- puts_tag_close(o.ln,hs)
- puts_tag_open(o,@s)
- end
- hs=[0,true,false,false,false]
- when 1
- tuned_file << tag_close(o.ln,hs)
- tuned_file << tag_open(o,@s)
- if @md.opt.act[:verbose_plus][:set]==:on
- puts_tag_close(o.ln,hs)
- puts_tag_open(o,@s)
- end
- hs=[1,true,true,false,false]
- when 2
- tuned_file << tag_close(o.ln,hs)
- tuned_file << tag_open(o,@s)
- if @md.opt.act[:verbose_plus][:set]==:on
- puts_tag_close(o.ln,hs)
- puts_tag_open(o,@s)
- end
- hs=[2,true,true,true,false]
- when 3
- tuned_file << tag_close(o.ln,hs)
- tuned_file << tag_open(o,@s)
- if @md.opt.act[:verbose_plus][:set]==:on
- puts_tag_close(o.ln,hs)
- puts_tag_open(o,@s)
- end
- hs=[3,true,true,true,true]
- when 4
- tuned_file << tag_close(o.ln,hs)
- tuned_file << tag_open(o,@s)
- if @md.opt.act[:verbose_plus][:set]==:on
- puts_tag_close(o.ln,hs)
- puts_tag_open(o,@s)
- end
- hs[0]=4
- when 5
- tuned_file << tag_close(o.ln,hs)
- tuned_file << tag_open(o,@s)
- if @md.opt.act[:verbose_plus][:set]==:on
- puts_tag_close(o.ln,hs)
- puts_tag_open(o,@s)
- end
- hs[0]=5
- when 6
- tuned_file << tag_close(o.ln,hs)
- tuned_file << tag_open(o,@s)
- if @md.opt.act[:verbose_plus][:set]==:on
- puts_tag_close(o.ln,hs)
- puts_tag_open(o,@s)
- end
- hs[0]=6
- end
- end
- tuned_file << o
- end
- if @md.opt.act[:verbose_plus][:set]==:on
- puts_tag_close(0,hs)
- end
- tuned_file << tag_close(0,hs)
- tuned_file=tuned_file.flatten
- end
- def tags(o)
- tag=(o[:status]==:open) \
- ? %{<#{o[:lv]} id="#{o[:node]}">}
- : "</#{o[:lv]}>"
- ln=case o[:lv]
- when 'A' then 0
- when 'B' then 1
- when 'C' then 2
- when 'D' then 3
- when '1' then 4
- when '2' then 5
- when '3' then 6
- when '4' then 7
- when '5' then 8
- when '6' then 9
- end
- h={
- tag: tag,
- node: o[:node],
- lv: o[:lv],
- ln: ln,
- status: o[:status],
- }
- SiSU_AO_DocumentStructure::ObjectStructure.new.xml_dom(h) #downstream code utilise else ignore like comments
- end
- def tag_open(o,tag)
- t={ lv: tag[o.ln], node: o.node, status: :open }
- t_o=tags(t)
- t_o
- end
- def tag_close(lev,hs)
- ary=[]
- case hs[0]
- when 0
- if (lev <= 0) and hs[0]
- t={
- lv: @s[0],
- status: :close,
- }
- ary << tags(t)
- end
- when 1
- if (lev <= 1) and hs[1]
- t={
- lv: @s[1],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev==0)
- t={
- lv: @s[0],
- status: :close,
- }
- ary << tags(t)
- end
- when 2
- if (lev <= 2) and hs[2]
- t={
- lv: @s[2],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 1) and hs[1]
- t={
- lv: @s[1],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev==0)
- t={
- lv: @s[0],
- status: :close,
- }
- ary << tags(t)
- end
- when 3
- if (lev <= 3) and hs[3]
- t={
- lv: @s[3],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 2) and hs[2]
- t={
- lv: @s[2],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 1) and hs[1]
- t={
- lv: @s[1],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev==0)
- t={
- lv: @s[0],
- status: :close,
- }
- ary << tags(t)
- end
- when 4
- if (lev <= 4)
- t={
- lv: @s[4],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 3) and hs[3]
- t={
- lv: @s[3],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 2) and hs[2]
- t={
- lv: @s[2],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 1) and hs[1]
- t={
- lv: @s[1],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev==0)
- t={
- lv: @s[0],
- status: :close,
- }
- ary << tags(t)
- end
- when 5
- if (lev <= 5)
- t={
- lv: @s[5],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 4)
- t={
- lv: @s[4],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 3) and hs[3]
- t={
- lv: @s[3],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 2) and hs[2]
- t={
- lv: @s[2],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 1) and hs[1]
- t={
- lv: @s[1],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev==0)
- t={
- lv: @s[0],
- status: :close,
- }
- ary << tags(t)
- end
- when 6
- if (lev <= 6)
- t={
- lv: @s[6],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 5)
- t={
- lv: @s[5],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 4)
- t={
- lv: @s[4],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 3) and hs[3]
- t={
- lv: @s[3],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 2) and hs[2]
- t={
- lv: @s[2],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev <= 1) and hs[1]
- t={
- lv: @s[1],
- status: :close,
- }
- ary << tags(t)
- end
- if (lev==0)
- t={
- lv: @s[0],
- status: :close,
- }
- ary << tags(t)
- end
- end
- ary
- end
- def puts_tag_open(o,tag)
- puts %{#{spaces*o.ln}<#{tag[o.ln]} id="#{o.node}">}
- end
- def puts_tag_close(lev,hs)
- case hs[0]
- when 0
- #puts "#{spaces*0}</#{@s[0]}>" if (lev <= 0) and hs[0]
- puts "</#{@s[0]}>" if (lev==0)
- when 1
- puts "#{spaces*1}</#{@s[1]}>" if (lev <= 1) and hs[1]
- puts "</#{@s[0]}>" if (lev==0)
- when 2
- puts "#{spaces*2}</#{@s[2]}>" if (lev <= 2) and hs[2]
- puts "#{spaces*1}</#{@s[1]}>" if (lev <= 1) and hs[1]
- puts "</#{@s[0]}>" if (lev==0)
- when 3
- puts "#{spaces*3}</#{@s[3]}>" if (lev <= 3) and hs[3]
- puts "#{spaces*2}</#{@s[2]}>" if (lev <= 2) and hs[2]
- puts "#{spaces*1}</#{@s[1]}>" if (lev <= 1) and hs[1]
- puts "</#{@s[0]}>" if (lev==0)
- when 4
- puts "#{spaces*4}</#{@s[4]}>" if (lev <= 4)
- puts "#{spaces*3}</#{@s[3]}>" if (lev <= 3) and hs[3]
- puts "#{spaces*2}</#{@s[2]}>" if (lev <= 2) and hs[2]
- puts "#{spaces*1}</#{@s[1]}>" if (lev <= 1) and hs[1]
- puts "</#{@s[0]}>" if (lev==0)
- when 5
- puts "#{spaces*5}</#{@s[5]}>" if (lev <= 5)
- puts "#{spaces*4}</#{@s[4]}>" if (lev <= 4)
- puts "#{spaces*3}</#{@s[3]}>" if (lev <= 3) and hs[3]
- puts "#{spaces*2}</#{@s[2]}>" if (lev <= 2) and hs[2]
- puts "#{spaces*1}</#{@s[1]}>" if (lev <= 1) and hs[1]
- puts "</#{@s[0]}>" if (lev==0)
- when 6
- puts "#{spaces*6}</#{@s[6]}>" if (lev <= 6)
- puts "#{spaces*5}</#{@s[5]}>" if (lev <= 5)
- puts "#{spaces*4}</#{@s[4]}>" if (lev <= 4)
- puts "#{spaces*3}</#{@s[3]}>" if (lev <= 3) and hs[3]
- puts "#{spaces*2}</#{@s[2]}>" if (lev <= 2) and hs[2]
- puts "#{spaces*1}</#{@s[1]}>" if (lev <= 1) and hs[1]
- puts "</#{@s[0]}>" if (lev==0)
- end
- end
- end
-end
-__END__
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-18 20:06:30 +0000