sisu 7.0.0

data/lib/sisu/src_po4a_sst_ao_sst_set.rb

@@ -0,0 +1,284 @@
+# encoding: utf-8
+=begin
+
+* Name: SiSU
+
+** Description: documents, structuring, processing, publishing, search
+*** po4a
+
+** 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/src_po4a_sst_ao_sst_set.rb;hb=HEAD>
+
+=end
+module SiSU_Po4aUtils
+  class Wrap
+    def initialize(md,orig='',trans='',n_char_max=76,n_indent=0,n_hang=nil)
+      @md,@orig,@trans,@n_char_max,@n_indent=
+       md, orig, trans, n_char_max, n_indent
+      @n_char_max_extend = n_char_max
+      @br="\n"
+      @n_hang=n_hang ? n_hang : @n_indent
+      @po4a_identify_type='type: SiSU doc'
+      #@po4a_identify_type='type: Plain text'
+    end
+    def line_wrap
+      space=' '
+      spaces_indent,spaces_hang=
+        "#{@br}#{space*@n_indent}",space*@n_hang
+      pot,i=[],0
+      pot_array=(@trans.empty?) ? [@orig] : [@orig,@trans]
+      pot_array.each do |pa|
+        line=0
+        out=[]
+        out[line]=''
+        @oldword='' #REMOVE @oldword
+        pa=pa.gsub(/<br>/,' <br> ').
+          gsub(/#{Mx[:br_nl]}/,"\n\n")
+        words=pa.scan(/\n\n|\\\\\\|<br>|\S+/m)
+        while words != ''
+          word=words.shift
+          if not word
+            out[line] unless out[line].empty? #check
+            break
+          elsif word =~/\n\n/
+            word="\n"
+            @n_char_max_extend = @n_char_max + out[line].length
+            line=line
+          elsif (out[line].length + word.length) > (@n_char_max_extend - @n_indent) \
+          and out[line] =~/\S+/
+            @n_char_max_extend = @n_char_max
+            out[line].squeeze!(' ')
+            line += 1
+          end
+          if word
+            out[line]=if out[line] \
+            and out[line] !~/\S+$/m
+              "#{out[line]}#{word}"
+            elsif out[line] \
+            and out[line] =~/\S+/
+              "#{out[line]} #{word}"
+            else "#{word.strip}"
+            end
+          end
+          @oldword=word if word =~/\S+/
+        end
+        x=out.join(spaces_indent).gsub(/\A\n+/m,'').insert(0,spaces_hang)
+        z=[]
+        x.split(/\n/).each do |y|
+          z << y
+        end
+        pot[i]=z.join("\n")
+        i +=1
+        pot
+      end
+      trans=(pot.length == 2) ? pot[1] : ''
+      po_str=<<WOK
+#{pot[0]}
+WOK
+#{trans}
+      po_str
+    end
+    def no_line_wrap_block
+      pot,i=[],0
+      pot_array=(@trans.empty?) ? [@orig] : [@orig,@trans]
+      pot_array.each do |pa|
+        z=[]
+        pa.split(/\n\n/).each do |y|
+          z << y if not y.empty?
+        end
+        pot[i]=z.join("\n")
+        i +=1
+        pot
+      end
+      trans=(pot.length == 2) ? pot[1] : ''
+      po_str=<<WOK
+#{pot[0]}
+WOK
+#{trans}
+      po_str
+    end
+    def line_wrap_indent1
+      @n_indent,@n_hang=2,2
+      line_wrap
+    end
+    def line_wrap_endnote
+      @n_indent,@n_hang=4,2
+      line_wrap
+    end
+    def array_wrap
+      if @orig.is_a?(Array)
+        @arr=[]
+        @orig.each do |line|
+          @arr << SiSU_TextUtils::Wrap.new(line,@n_char_max,@n_indent,@n_hang).line_wrap
+        end
+      end
+      @arr
+    end
+  end
+  class HeaderScan
+    def initialize(md,para)
+      @md,@p=md,para
+    end
+    def extract(tag,tag_content,type,attrib)
+      if dc_tag \
+      and dc_content
+        [dc_tag,dc_content,{dc_tag=>dc_content}]
+      else nil
+      end
+    end
+    def header(tag,tag_content,type='',attrib='') #this will break stuff and must be tested thoroughly 20060825
+      @tag,@tag_content,@type,@attrib=tag,tag_content,type,attrib
+      def label #element
+        @tag
+      end
+      def type
+        @type
+      end
+      def text
+        @tag_content
+      end
+      def info  #element text
+        @tag_content
+      end
+      def attribute
+        @attrib
+      end
+      def element
+        @tag
+      end
+      def attrib
+        @attrib
+      end
+      def el
+        @tag
+      end
+      self
+    end
+    def start_is_match
+      case @p
+      when /^#{Mx[:meta_o]}(title)#{Mx[:meta_c]}\s*(.+?)$/                      then header($1,@md.title.full,'meta','dc') #dc 1
+      when /^#{Mx[:meta_o]}(creator|author)#{Mx[:meta_c]}\s*(.+?)$/             then header('creator',$2,'meta','dc')    #dc 2
+      when /^#{Mx[:meta_o]}(subject)#{Mx[:meta_c]}\s*(.+?)$/                    then header($1,$2,'meta','dc')           #dc 3
+      when /^#{Mx[:meta_o]}(description)#{Mx[:meta_c]}\s*(.+?)$/                then header($1,$2,'meta','dc')           #dc 4
+      when /^#{Mx[:meta_o]}(publisher)#{Mx[:meta_c]}\s*(.+?)$/                  then header($1,$2,'meta','dc')           #dc 5
+      when /^#{Mx[:meta_o]}(contributor)#{Mx[:meta_c]}\s*(.+?)$/                then header($1,$2,'meta','dc')           #dc 6
+      when /^#{Mx[:meta_o]}(date)#{Mx[:meta_c]}\s*(.+?)$/                       then header($1,$2,'meta','dc')           #dc 7
+      when /^#{Mx[:meta_o]}(date\.created)#{Mx[:meta_c]}\s*(.+?)$/              then header($1,$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(date\.issued)#{Mx[:meta_c]}\s*(.+?)$/               then header($1,$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(date\.available)#{Mx[:meta_c]}\s*(.+?)$/            then header($1,$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(date\.valid)#{Mx[:meta_c]}\s*(.+?)$/                then header($1,$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(date\.modified)#{Mx[:meta_c]}\s*(.+?)$/             then header($1,$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(type)#{Mx[:meta_c]}\s*(.+?)$/                       then header($1,$2,'meta','dc')           #dc 8
+      when /^#{Mx[:meta_o]}(format)#{Mx[:meta_c]}\s*(.+?)$/                     then header($1,$2,'meta','dc')           #dc 9
+      when /^#{Mx[:meta_o]}(identifier)#{Mx[:meta_c]}\s*(.+?)$/                 then header($1,$2,'meta','dc')           #dc 10
+      when /^#{Mx[:meta_o]}(source)#{Mx[:meta_c]}\s*(.+?)$/                     then header($1,$2,'meta','dc')           #dc 11
+      when /^#{Mx[:meta_o]}(language)#{Mx[:meta_c]}\s*(.+?)$/                   then header($1,$2,'meta','dc')           #dc 12
+      when /^#{Mx[:meta_o]}(relation)#{Mx[:meta_c]}\s*(.+?)$/                   then header($1,$2,'meta','dc')           #dc 13
+      when /^#{Mx[:meta_o]}(coverage)#{Mx[:meta_c]}\s*(.+?)$/                   then header($1,$2,'meta','dc')           #dc 14
+      when /^#{Mx[:meta_o]}(rights)#{Mx[:meta_c]}\s*(.+?)$/                     then header($1,$2,'meta','dc')           #dc 15
+      when /^#{Mx[:meta_o]}(keywords)#{Mx[:meta_c]}\s*(.+?)$/                   then header($1,$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(copyright)#{Mx[:meta_c]}\s*(.+?)$/                  then header($1,$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(translator|translated_by)#{Mx[:meta_c]}\s*(.+?)$/   then header('translator',$2)
+      when /^#{Mx[:meta_o]}(illustrator|illustrated_by)#{Mx[:meta_c]}\s*(.+?)$/ then header('illustrator',$2)
+      when /^#{Mx[:meta_o]}(prepared_by)#{Mx[:meta_c]}\s*(.+?)$/                then header($1,$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(digitized_by)#{Mx[:meta_c]}\s*(.+?)$/               then header($1,$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(comments?)#{Mx[:meta_c]}\s*(.+?)$/                  then header($1,$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(abstract)#{Mx[:meta_c]}\s*(.+?)$/                   then header($1,$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(tags?)#{Mx[:meta_c]}\s*(.+?)$/                      then header($1,$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(catalogue)#{Mx[:meta_c]}\s*(.+?)$/                  then header($1,$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(class(?:ify)?_loc)#{Mx[:meta_c]}\s*(.+?)$/          then header('classify_loc',$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(class(?:ify)?_dewey)#{Mx[:meta_c]}\s*(.+?)$/        then header('classify_dewey',$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(class(?:ify)?_pg)#{Mx[:meta_c]}\s*(.+?)$/           then header('classify_pg',$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(class(?:ify)?_isbn)#{Mx[:meta_c]}\s*(.+?)$/         then header('classify_isbn',$2,'meta','extra')
+      when /^#{Mx[:meta_o]}(toc|structure)#{Mx[:meta_c]}\s*(.+?)$/              then header('structure',$2,'process','instruct')
+      when /^#{Mx[:meta_o]}(level|page|markup)#{Mx[:meta_c]}\s*(.+?)$/          then header('markup',$2,'process','instruct')
+      when /^#{Mx[:meta_o]}(bold)#{Mx[:meta_c]}\s*(.+?)$/                       then header($1,$2,'process','instruct')
+      when /^#{Mx[:meta_o]}(italics|itali[sz]e)#{Mx[:meta_c]}\s*(.+?)$/         then header('italicize',$2,'process','instruct')
+      when /^#{Mx[:meta_o]}(vocabulary|wordlist)#{Mx[:meta_c]}\s*(.+?)$/        then header('vocabulary',$2,'process','instruct')
+      when /^#{Mx[:meta_o]}(css|stylesheet)#{Mx[:meta_c]}\s*(.+?)$/             then header('css',$2,'process','instruct')
+      when /^#{Mx[:meta_o]}(links)#{Mx[:meta_c]}\s*(.+?)$/                      then header($1,$2,'process','instruct')
+      when /^#{Mx[:meta_o]}(prefix)#{Mx[:meta_c]}\s*(.+?)$/                     then header($1,$2,'process','instruct') #add a & b
+      when /^#{Mx[:meta_o]}(suffix)#{Mx[:meta_c]}\s*(.+?)$/                     then header($1,$2,'process','instruct')
+      when /^#{Mx[:meta_o]}(information)#{Mx[:meta_c]}\s*(.+?)$/                then header($1,$2,'process','instruct')
+      when /^#{Mx[:meta_o]}(contact)#{Mx[:meta_c]}\s*(.+?)$/                    then header($1,$2,'process','instruct')
+      when /^#{Mx[:meta_o]}(rcs|cvs)#{Mx[:meta_c]}\s*(.+?)$/                    then header('version',$2,'process','instruct')
+      else nil
+      end
+    end
+    def dublin
+      (@p =~/^#{Mx[:meta_o]}\S+?#{Mx[:meta_c]}/) \
+      ? start_is_match
+      : nil
+    end
+    def meta
+      (@p =~/^#{Mx[:meta_o]}\S+?#{Mx[:meta_c]}/) \
+      ? start_is_match
+      : nil
+    end
+  end
+  class ParagraphNumber
+    def initialize(paranum)
+      @paranum=/(\d+)/m.match(paranum)[1]
+    end
+    def display
+      @paranum.gsub(/(\d+)/,'#\1')
+    end
+  end
+  class PotNumber
+    @@n=0
+    def initialize
+      @@n +=2
+    end
+    def num
+      @@n
+    end
+    def reset
+      @@n=0
+    end
+  end
+end
+__END__

data/lib/sisu/src_po4a_sstm.rb

@@ -0,0 +1,135 @@
+# encoding: utf-8
+=begin
+
+* Name: SiSU
+
+** Description: documents, structuring, processing, publishing, search
+*** share sisu source markup file, copy it to output directory!
+
+** 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/src_po4a_sstm.rb;hb=HEAD>
+
+=end
+module SiSU_Markup
+  require_relative 'src_shared'                         # src_shared.rb
+    include SiSU_Source
+  require_relative 'src_po4a_share'                     # src_po4a_share.rb
+  require_relative 'se'                                 # se.rb
+    include SiSU_Env
+  class Source_Po4a < SiSU_Source::SiSUpodSource
+    def initialize(opt,build=nil,place=nil)
+      super(opt,build,place)
+      @opt=opt
+      md=SiSU_Param::Parameters.new(opt).get
+      @file=SiSU_Env::FileOp.new(md,opt.fno)
+    end
+    def dir_mk(dir)
+      unless FileTest.directory?(dir)
+        FileUtils::mkdir_p(dir)
+      end
+    end
+    def make_paths
+      dir_mk(@file.output_path.pot.dir)
+      dir_mk(@file.output_path.po.dir)
+    end
+    def language
+      def source_language_selected_str
+        @opt.act[:po4a_lang][:src] \
+        ? @opt.act[:po4a_lang][:src]
+        : 'en'
+      end
+      self
+    end
+    def read
+      unless @opt.act[:quiet][:set]==:on
+        (@opt.act[:verbose][:set]==:on \
+        || @opt.act[:verbose_plus][:set]==:on \
+        || @opt.act[:maintenance][:set]==:on) \
+        ? SiSU_Screen::Ansi.new(
+            @opt.act[:color_state][:set],
+            'Share document markup text source',
+            @opt.fns
+          ).cyan_hi_blue
+        : SiSU_Screen::Ansi.new(
+            @opt.act[:color_state][:set],
+            'Share document markup text source',
+            @opt.fns
+          ).cyan_title_hi
+      end
+      make_paths
+      if FileTest.directory?(@path_pod[:fnb])
+        FileUtils::mkdir_p(@file.output_path.src.dir) \
+          unless FileTest.directory?(@file.output_path.src.dir)
+        v=(@opt.act[:maintenance][:set]==:on) \
+        ? 'v' : ''
+        system(%{
+          #rsync -a#{v} #{@path_pod[:fnb]}/sisupod/doc/* #{@file.output_path.po4a.dir}
+          rsync -a#{v} #{@path_pod[:fnb]}/sisupod/doc/#{language.source_language_selected_str}* #{@file.output_path.po4a.dir}
+          chbk=`pwd`
+          cd #{@file.output_path.sisupod.dir}
+          for I in `find -type d` ; do chmod 755 $I ; done
+          for I in `find -type f` ; do chmod 644 $I ; done
+          cd ${chbk}
+        })
+        md=SiSU_Param::Parameters.new(@opt).get
+        file=SiSU_Env::FileOp.new(md)
+        SiSU_Po4a_Project::Po4aCfg.new(@opt,file).song
+        SiSU_Po4a_Project::Po4aProject.new(@opt,file).song
+      else
+        if (@opt.act[:verbose][:set]==:on \
+        || @opt.act[:verbose_plus][:set]==:on \
+        || @opt.act[:maintenance][:set]==:on)
+          SiSU_Screen::Ansi.new(
+            '',
+            "#{@opt.fno} not available"
+          ).blue_tab
+        end
+      end
+    end
+  end
+end
+__END__

data/lib/sisu/src_shared.rb

@@ -0,0 +1,347 @@
+# encoding: utf-8
+=begin
+
+* Name: SiSU
+
+** Description: documents, structuring, processing, publishing, search
+*** create sisupod filetype and copy it to output directory!
+
+** 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/src_shared.rb;hb=HEAD>
+
+=end
+module SiSU_Source
+  include SiSU_Env
+  class SiSUpodSource
+    require_relative 'se'                               # se.rb
+    require_relative 'se_hub_particulars'               # se_hub_particulars.rb
+    require_relative 'utils_composite'                  # utils_composite.rb
+    include SiSU_Composite_Doc_Utils                    # composite doc, .ssm, extract all related insert files, array of filenames test
+    def initialize(opt,build=nil,place=nil)
+      @opt=opt
+      @date=SiSU_Env::InfoDate.new.dt
+      @env=SiSU_Env::InfoEnv.new(opt.fns)
+      #@ver=SiSU_Env::InfoVersion.instance.get_version
+      @v=(@opt.act[:verbose_plus][:set]==:on \
+      || @opt.act[:maintenance][:set]==:on) \
+      ? 'v' : ''
+      @particulars=SiSU_Particulars::CombinedSingleton.instance.get_all(opt)
+      @file=@particulars.file
+      @local_path="#{@file.output_path.sisupod.dir}"
+      processing_sisupod=@env.processing_path.processing_sisupod(opt)
+      processing_sisupod.make
+      path_pod=processing_sisupod.paths[:sisupod]
+      path_pod_fnb=processing_sisupod.paths[:fnb]
+      FileUtils::mkdir_p(path_pod) unless FileTest.directory?(path_pod)
+      @path_pod={
+        fnb:       path_pod_fnb,
+        pod:       path_pod,
+        doc:       path_pod + '/' + Gt[:doc] + '/' + opt.lng,
+        po:        path_pod + '/' + Gt[:po]  + '/' + opt.lng,
+        pot:       path_pod + '/' + Gt[:pot],
+        conf:      path_pod + '/' + Gt[:conf],
+        image:     path_pod + '/' + Gt[:image],
+        audio:     path_pod + '/' + Gt[:audio],
+        video:     path_pod + '/' + Gt[:video],
+      }
+    end
+    def read
+      unless @opt.act[:quiet][:set]==:on
+        (@opt.act[:verbose][:set]==:on \
+        || @opt.act[:verbose_plus][:set]==:on \
+        || @opt.act[:maintenance][:set]==:on) \
+        ? SiSU_Screen::Ansi.new(
+          @opt.act[:color_state][:set],
+          'Assemble SiSU source',
+          "[#{@opt.f_pth[:lng_is]}] #{@opt.fno}").
+          green_hi_blue
+        : ''
+      end
+      unless @opt.fns.empty?
+        directories
+        doc_import_list=composite_and_imported_filenames_array(@opt.fno)
+        doc_import_list=[@opt.fno, doc_import_list].flatten
+        image_extraction(doc_import_list)
+        language_versions
+      end
+    end
+    def images_extract(f,images)                                                # consider using param info
+      rgx_image=/(?:^|[^_\\])\{(?:\s*|\~\^\s+)(\S+?\.(?:png|jpg|gif)\b)/m
+      if f !~/^%+\s/ \
+      and f =~rgx_image
+        images << f.scan(rgx_image).uniq
+      end
+      images.flatten
+    end
+    def image_extraction(doc_import_list)
+      @rgx_rb_image=/["']\S*?([a-zA-Z0-9_-]+?\.(?:png|jpg|gif))["']/
+      @rgx_image=/(?:^|[^_\\])\{\s*(\S+?\.(?:png|jpg|gif))/
+      doc_import_dir=@opt.sub_location
+      images=[]
+      if doc_import_list.length > 0
+        doc_import_list=doc_import_list.uniq.flatten
+        doc_import_list.each do |fn|
+          file_array=IO.readlines(fn,'')
+          file_array.each do |f|                                               #% work area
+            f=f.gsub(/<:=(\S+?)>/,'{ c_\1.png 14x14 }image')                   # embedded symbol (image)
+            if f !~/^%+\s/ \
+            and f =~@rgx_image
+              images=images_extract(f,images)
+            end
+          end
+        end
+      end
+      gi=SiSU_Env::GetInit.new
+      unless FileTest.file?("#{@path_pod[:conf]}/#{gi.makefile_name}")
+        if gi.makefile \
+        && FileTest.file?(gi.makefile)
+          FileUtils::mkdir_p(@path_pod[:conf]) \
+            unless FileTest.directory?(@path_pod[:conf])
+          FileUtils::cp(gi.makefile,"#{@path_pod[:conf]}/#{gi.makefile_name}")
+        end
+        #get images from makefile, consider placing in param
+      end
+      if images \
+      and images.length > 1
+        images=images.flatten.uniq
+        images.delete_if {|x| x =~/https?:\/\// }
+        #images=images.sort
+        FileUtils::mkdir_p(@path_pod[:image])
+        images_pwd=@opt.image_src_path
+        ##sequence copies base images, defaults used in all html outputs
+          #image_source_base='/usr/share/sisu/image'
+          #dir_pwd=Dir.pwd
+          #Dir.chdir(image_source_base)
+          #base_images=Dir.glob('*')
+          #base_images.each do |i|
+          #  FileUtils::cp_r(i,"#{images_path_pod}/#{i}")
+          #end
+          #Dir.chdir(dir_pwd)
+        if FileTest.directory?(images_pwd)
+          images=images.uniq
+          images.each do |i|
+            if FileTest.file?("#{images_pwd}/#{i}")
+              FileUtils::cp(
+                "#{images_pwd}/#{i}",
+                "#{@path_pod[:image]}/#{i}"
+              )
+            else
+              STDERR.puts \
+                %{\t*WARN* did not find image - } \
+                + %{"#{images_pwd}/#{i}" } \
+                + %{[#{__FILE__}:#{__LINE__}]}
+            end
+          end
+        else
+          STDERR.puts \
+            %{\t*WARN* did not find - } \
+            + %{#{images_pwd} #{@path_pod[:image]} } \
+            + %{[#{__FILE__}:#{__LINE__}]}
+        end
+      end
+      if doc_import_list.length > 0 \
+      and @opt.fno =~/\.ssm$/
+        doc_import_list.each do |f|
+          if FileTest.file?("#{@opt.base_path}#{doc_import_dir}/#{f}")
+            FileUtils::cp(
+              "#{@opt.base_path}#{doc_import_dir}/#{f}",
+              "#{@path_pod[:doc]}/#{f}"
+            )
+          else
+            STDERR.puts \
+              %{\t*WARN* did not find image - } \
+              + %{"#{@opt.base_path}#{doc_import_dir}/#{f}" } \
+              + %{[#{__FILE__}:#{__LINE__}]}
+          end
+        end
+      end
+    end
+    def language_versions
+      x=@env.document_language_versions_found                                  #check multiple document language versions (param not used)
+      doc_import_dir=@opt.sub_location
+      if x[:f] \
+      and x[:f].length > 0                                                     #store multiple document language versions, sisupod
+        x[:f].each do |f|
+          FileUtils::mkdir_p(@path_pod[:doc]) \
+            unless FileTest.directory?(@path_pod[:doc])
+          if f[:f] =~/\~(\S{2,3})\.ss[tm]$/
+            lng_f=$1
+            if @opt.lng == lng_f
+              if @opt.fno =~/\.ssm$/
+                if FileTest.file?("#{@opt.base_path}#{doc_import_dir}/#{f[:f]}")
+                  FileUtils::cp(
+                    "#{@opt.base_path}#{doc_import_dir}/#{f[:f]}",
+                    "#{@path_pod[:doc]}/#{f[:n]}"
+                  )
+                else
+                  STDERR.puts \
+                    %{\t*WARN* did not find - } \
+                    + %{"#{@opt.base_path}#{doc_import_dir}/#{f[:f]}" } \
+                    + %{[#{__FILE__}:#{__LINE__}]}
+                end
+              else
+                if FileTest.file?("#{@opt.base_path}/#{f[:f]}")
+                  cpy= :no
+                  cpy=if f[:f] =~ /^#{@opt.f_pth[:lng_is]}\// \
+                  or f[:f] =~ /~#{@opt.f_pth[:lng_is]}\.sst/
+                    :yes
+                  elsif f[:f] !~ /^(?:#{Px[:lng_lst_rgx]})\/|~(?:#{Px[:lng_lst_rgx]})\.sst/ \
+                  and @opt.f_pth[:lng_is] == 'en'
+                    :yes
+                  else :no
+                  end
+                  if cpy == :yes
+                    FileUtils::cp(
+                      "#{@opt.base_path}/#{f[:f]}",
+                      "#{@path_pod[:doc]}/#{f[:n]}"
+                    )
+                  end
+                else
+                  STDERR.puts \
+                    %{\t*WARN* did not find - } \
+                    + %{"#{@opt.base_path}/#{f[:f]}" } \
+                    + %{[#{__FILE__}:#{__LINE__}]}
+                end
+              end
+            end
+          else
+            if @opt.fno =~/\.ssm$/
+              if FileTest.file?("#{@opt.base_path}#{doc_import_dir}/#{f[:f]}")
+                FileUtils::cp_r(
+                  "#{@opt.base_path}#{doc_import_dir}/#{f[:f]}",
+                  "#{@path_pod[:doc]}/#{f[:n]}"
+                )
+              else
+                STDERR.puts \
+                  %{\t*WARN* did not find - } \
+                  + %{"#{@opt.base_path}#{doc_import_dir}/#{f[:f]}" } \
+                  + %{[#{__FILE__}:#{__LINE__}]}
+              end
+            else
+              if FileTest.file?("#{@opt.base_path}#{doc_import_dir}/#{f[:f]}")
+                cpy= :no
+                cpy=if f[:f] =~ /^#{@opt.f_pth[:lng_is]}\// \
+                or f[:f] =~ /~#{@opt.f_pth[:lng_is]}\.sst/
+                  :yes
+                elsif f[:f] !~ /^(?:#{Px[:lng_lst_rgx]})\/|~(?:#{Px[:lng_lst_rgx]})\.sst/ \
+                and @opt.f_pth[:lng_is] == 'en'
+                  :yes
+                else :no
+                end
+                if cpy == :yes
+                  FileUtils::cp(
+                    "#{@opt.base_path}#{doc_import_dir}/#{f[:f]}",
+                    "#{@path_pod[:doc]}/#{f[:n]}"
+                  )
+                end
+              else
+                STDERR.puts \
+                  %{\t*WARN* did not find - } \
+                  + %{"#{@opt.base_path}#{doc_import_dir}/#{f[:f]}" } \
+                  + %{[#{__FILE__}:#{__LINE__}]}
+              end
+            end
+          end
+        end
+      end #NB not all possibilies met, revisit, also in case of composite file may wish to add README
+    end
+    def directories
+      SiSU_Env::InfoEnv.new.sisupod_v4(@opt)
+    end
+  end
+end
+__END__
+question?:                   should you permit the packing of multiple documents in single .xz ?
+
+  open @opt.fns, parse file
+    extract from file content:
+      images and copy each image from whatever image source to _sisu/sisupod/sisu/_sisu/image
+
+   remove previously existing contents of _/sisu/sisupod &
+   make directory structure:
+
+v3 -->
+   _sisu
+     sisupod
+       doc
+         manifest.txt
+         en/content.sst                [file content]
+         fr/content.sst
+         _sisu
+           conf
+           image (ln -s ../../image)
+           audio (ln -s ../../audio)
+           video (ln -s ../../video)
+       image                           [all images for specific document gathered here]
+       audio
+       video
+
+v2 -->
+   _sisu
+     sisupod
+       content.sst                     [file content]
+       filename.sst                    [link to content.sst]
+       _sisu/
+         image/                        [all images for specific document gathered here]
+
+sisu
+  _sisu
+    sisurc.yml
+    convert/
+    standard_terms/
+    image
+    processing
+      ao/
+      tex/
+      texinfo/
+      tune/
+    sisupod
+
+special case
+
+composite file (master), e.g.
+SiSU.ssm