From d2a0dcbc681948219391aa507742347756475905 Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph@amissah.com>
Date: Sun, 7 Apr 2013 22:18:03 -0400
Subject: v4: zap, delete output files, based on given (existing) source file
 name

---
 lib/sisu/v4/sysenv.rb | 94 ++++++++++++++++++++++++++++++++-------------------
 1 file changed, 60 insertions(+), 34 deletions(-)

(limited to 'lib/sisu/v4/sysenv.rb')

diff --git a/lib/sisu/v4/sysenv.rb b/lib/sisu/v4/sysenv.rb
index d9f2a080..400d53b0 100644
--- a/lib/sisu/v4/sysenv.rb
+++ b/lib/sisu/v4/sysenv.rb
@@ -3038,45 +3038,71 @@ WOK
       include FileUtils::Verbose
     def initialize(opt)
       @opt=opt
-      z=SiSU_Env::FileMap.new(@opt)
-      @zap=z.local_sisu_source
-      if @opt.cmd =~ /[hH]/
-        @zap=Dir.glob(@zap).join(' ')
-        @zap=if @opt.cmd !~ /w/
-          @zap.gsub(/#{@source_path}\/concordance.html/,'')
-        else @zap
+      z=SiSU_Env::FileMap.new(opt)
+      zap=z.local_sisu_source
+      if opt.cmd =~ /h/i
+        zap=Dir.glob(zap).join(' ')
+        @zap=if opt.cmd !~ /w/
+          zap.gsub(/#{@source_path}\/concordance.html/,'')
+        else zap
         end
       end
       @env=SiSU_Env::InfoEnv.new
     end
     def zap
-      def main_output
-        (@zap !~/\/\//) \
-        ? (FileUtils::rm_rf(@zap) if FileTest.directory?(@zap))
-        : (puts 'suspect zap request, ignored')
-      end
-      def site_map
-        if @opt.fnb \
-        and not @opt.fnb.empty?
-          sm="#{@env.path.output}/sitemaps/sitemap_#{@opt.fnb}.xml"
-          FileUtils::rm(sm) if FileTest.file?(sm)
-        end
-      end
-      def epub
-        if @opt.fnb \
-        and not @opt.fnb.empty?
-          sm="#{@env.path.output}/epub/#{@opt.fnb}.epub"
-          FileUtils::rm(sm) if FileTest.file?(sm)
-        end
-      end
-      def src # consider
-        if @opt.fnb \
-        and not @opt.fnb.empty?
-          sm="#{@env.path.output}/src/pod/#{@opt.fns}.txz"
-          FileUtils::rm(sm) if FileTest.file?(sm)
-          sm="#{@env.path.output}/src/#{@opt.fns}"
-          FileUtils::rm(sm) if FileTest.file?(sm)
-        end
+      def deletion(fn)
+        if FileTest.file?(fn)==true
+          File.delete(fn)
+          tell=SiSU_Screen::Ansi.new(@opt.cmd,@opt.fns, 'remove: ' + fn)
+          tell.warn unless @opt.cmd =~/q/
+        end
+      end
+      def remove_output
+        if @opt.act[:maintenance][:set] == :on
+          m=InfoFile.new(@opt.fnc)
+          tell=SiSU_Screen::Ansi.new(@opt.cmd,@opt.fns, 'remove maintenance files from: ' + @env.processing_path.dal)
+          tell.warn unless @opt.cmd =~/q/
+          deletion(m.marshal.dal_content)
+          deletion(m.marshal.dal_idx_sst_rel_html_seg)
+          deletion(m.dal_idx_sst_rel)
+          deletion(m.dal_idx_html)
+          deletion(m.dal_idx_xhtml)
+          deletion(m.dal_metadata)
+          deletion(m.dal_map_nametags)
+          deletion(m.dal_map_ocn_htmlseg)
+          deletion(m.html_tune)
+        end
+        md=SiSU_Param::Parameters.new(@opt).get
+        f=SiSU_Env::FileOp.new(md)
+        deletion(f.place_file.html_segtoc.dir)
+        deletion(f.place_file.html_scroll.dir)
+        deletion(f.place_file.html_book_index.dir)
+        deletion(f.place_file.html_concordance.dir)
+        deletion(f.place_file.epub.dir)
+        deletion("#{f.output_path.pdf.dir}/#{f.base_filename.pdf_p_letter}")
+        deletion("#{f.output_path.pdf.dir}/#{f.base_filename.pdf_l_letter}")
+        deletion("#{f.output_path.pdf.dir}/#{f.base_filename.pdf_p_a4}")
+        deletion("#{f.output_path.pdf.dir}/#{f.base_filename.pdf_l_a4}")
+        deletion("#{f.output_path.pdf.dir}/#{f.base_filename.pdf_p_a5}")
+        deletion("#{f.output_path.pdf.dir}/#{f.base_filename.pdf_l_a5}")
+        deletion("#{f.output_path.pdf.dir}/#{f.base_filename.pdf_p_b5}")
+        deletion("#{f.output_path.pdf.dir}/#{f.base_filename.pdf_l_b5}")
+        deletion("#{f.output_path.pdf.dir}/#{f.base_filename.pdf_p_legal}")
+        deletion("#{f.output_path.pdf.dir}/#{f.base_filename.pdf_p_legal}")
+        deletion(f.place_file.odt.dir)
+        deletion(f.place_file.xhtml.dir)
+        deletion(f.place_file.xml_sax.dir)
+        deletion(f.place_file.xml_dom.dir)
+        deletion(f.place_file.info.dir)
+        deletion(f.place_file.manpage.dir)
+        deletion(f.place_file.sqlite_discrete.dir)
+        deletion(f.place_file.txt.dir)
+        deletion(f.place_file.hash_digest.dir)
+        deletion(f.place_file.manifest.dir)
+        deletion(f.place_file.qrcode_md.dir)
+        deletion(f.place_file.qrcode_title.dir)
+        deletion(f.place_file.src.dir)
+        deletion(f.place_file.sisupod.dir)
       end
       self
     end
-- 
cgit v1.2.3