From 960c3088bc88f2db879154053280b06c160d4d70 Mon Sep 17 00:00:00 2001 From: Ralph Amissah Date: Tue, 21 Apr 2015 14:45:52 -0400 Subject: lib/sisu/*, single libs directory (c&d gone) (7) * removed lib/sisu/{current,develop} dir branches v7 (v5 & v6 retired) * simplify dir structure, offer single version per snapshot * have enjoyed carrying stable and development versions v5 & v6 in a single tarball, may return to this structure --- lib/sisu/current/sst_convert_markup.rb | 323 --------------------------------- 1 file changed, 323 deletions(-) delete mode 100644 lib/sisu/current/sst_convert_markup.rb (limited to 'lib/sisu/current/sst_convert_markup.rb') diff --git a/lib/sisu/current/sst_convert_markup.rb b/lib/sisu/current/sst_convert_markup.rb deleted file mode 100644 index 3b81cf29..00000000 --- a/lib/sisu/current/sst_convert_markup.rb +++ /dev/null @@ -1,323 +0,0 @@ -# encoding: utf-8 -=begin - -* Name: SiSU - -** Description: documents, structuring, processing, publishing, search -*** A conversion script for canned substitutions, a fairly generic - simple tool that can be used to store other canned conversions, used here for - altering SiSU markup - -** Author: Ralph Amissah - - - -** 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 . - - If you have Internet connection, the latest version of the GPL should be - available at these locations: - - - - - -** SiSU uses: - * Standard SiSU markup syntax, - * Standard SiSU meta-markup syntax, and the - * Standard SiSU object citation numbering and system - -** Hompages: - - - -** Git - - - -=end -module SiSU_Modify - require_relative 'sst_identify_markup' # sst_identify_markup.rb - require_relative 'sst_from_xml' # sst_from_xml.rb - require_relative 'utils_response' # utils_response.rb - class ConvertMarkup - include SiSU_Response - def initialize(opt) - @opt=opt - @description='This is a script that contains canned text conversions for reuse' - @warn='WARNING, PROCEED AT YOUR OWN RISK, will make file changes.' - end - def current_match_and_replace - convert_37_to_38 - end - def message(text) - response='' - unless @opt.cmd=~/QQ/ \ - or @opt.act[:quiet][:set]==:on - response=response?(%{#{ text}\nProceed? }) - end - end - def help - print < ./#{s}" - FileUtils::cp("#{pwd}/#{f}","#{pwd}/#{s}") - else "File already exists, < #{s} > will not overwrite" - end - end - end - end - def convert_to_simple_xml_model_sax - SiSU_SimpleXML_ModelSax::Convert.new(@opt).read - end - def convert_to_simple_xml_model_dom - SiSU_simple_xml_model_dom::Convert.new(@opt).read - end - def convert_to_simple_xml_model_node - SiSU_simple_xml_model_node::Convert.new(@opt).read - end - def convert_kdi_to_sst - SiSU_Kdissert::Convert.new(@opt).read - end - def convert_s_xml_to_sst - SiSU_sstFromXML::Convert.new(@opt).read - end - def convert_footnotes - require_relative 'sst_do_inline_footnotes' - SiSU_ConvertFootnotes::Source.new(@opt).read - end - def conversion - #%% do it --------------------------> - if @opt.files \ - and @opt.files.length > 0 - mr=nil - #%% changes to make m match, r replace --------------------------> - if @opt.selections.str =~/--help/ then help - elsif @opt.selections.str =~/(?:convert|to)[=-](?:xml |sxs|sax|sxd|dom|sxn|node)/ - ext=case @opt.selections.str - when /(?:convert|to)[=-](?:xml|sxs|sax)/ then '.sxs.xml' - when /(?:convert|to)[=-](?:sxd|dom)/ then '.sxd.xml' - when /(?:convert|to)[=-](?:sxn|node)/ then '.sxn.xml' - end - message("#{@opt.files.inspect}\n\nWARNING, PROCEED AT YOUR OWN RISK,\noverwriting any equivalent file with the extension #{ext}") - mr=case @opt.selections.str - when /(?:convert|to)[=-](?:sxs|sax|xml )/ then convert_to_simple_xml_model_sax - when /(?:convert|to)[=-](?:sxd|dom)/ then convert_to_simple_xml_model_dom - when /(?:convert|to)[=-](?:sxn|node)/ then convert_to_simple_xml_model_node - else help - end - else - mr=case @opt.selections.str - when /(?:(?:37)?to-?38|--(?:convert|to)[=-](?:current|0.38))/ then convert_37_to_38 - when /(?:(?:38)?to-?37|--(?:convert|to)[=-](?:0.37))/ then convert_38_to_37 - when /(?:36to37)/ then convert_filename_36_to_37 - when /(?:convert|from)[=-]kdi/ then convert_kdi_to_sst - when /(?:(?:convert|from)[=-])?(?:xml_to_sst|xml2sst|sxml|sxs|sxd|sxd)/ then convert_s_xml_to_sst - when /(?:convert|to)[=-]footnotes/ then convert_footnotes - when /convert|default/ then current_match_and_replace - else help - end - end - unless @opt.selections.str =~/kdi/ - match_and_replace=mr - #start_processing =/not used in this example/i - end_processing =/END\s+OF\s+FILE/ - i=@opt.fns - if i =~/(?:\.sst|\.ssm|\.ssi)$/ - @new,@matched,@flag_start,@flag_end,@empty1,@empty2=true,false,false,false,false,false - o="#{i}.bk" #o is for old - markup_version=SiSU_Markup::MarkupIdentify.new(@opt).markup_version? - if (@opt.selections.str=~/37/ and markup_version=~/0.38/) \ - or (@opt.selections.str=~/current|38/ and markup_version=~/0.37/) - puts "#{i} #{markup_version}" - file=File.open(i,'r') - cont=file.readlines - file.close - cont.each do |y| - match_and_replace.each do |m,r,w| - if y =~m \ - and y =~w - if @new - @new=false - File.unlink(o) if File.exist?(o) - File.rename(i,o) - File.unlink(i) if File.exist?(i) - @file=File.new(i,'w') - @matched=true - break - end - end - end - end - if @matched - puts "conversion match in #{i}" unless @opt.act[:quiet][:set]==:on - @flag_start=true - cont.each do |y| - if y =~end_processing - @flag_end=true - end - if @flag_start \ - and not @flag_end - match_and_replace.each do |m,r,w| - if y =~m \ - and y =~w - puts m.inspect + ' -> ' + r unless @opt.act[:quiet][:set]==:on - if (@opt.act[:verbose][:set]==:on \ - || @opt.act[:verbose_plus][:set]==:on \ - || @opt.act[:maintenance][:set]==:on) - puts "in: #{y}" - end - y.gsub!(m,r) if m and r - if (@opt.act[:verbose][:set]==:on \ - || @opt.act[:verbose_plus][:set]==:on \ - || @opt.act[:maintenance][:set]==:on) - puts "out: #{y}" - end - end - end - end - @empty1=(y=~/^\s*$/) \ - ? true - : false - @file.puts y unless (@empty1==true and @empty2==true) - @empty2=(y=~/^\s*$/) \ - ? true - : false - end - @file.close - else puts "NO conversion match in #{i}" unless @opt.act[:quiet][:set]==:on - end - else - if (@opt.act[:verbose][:set]==:on \ - || @opt.act[:verbose_plus][:set]==:on \ - || @opt.act[:maintenance][:set]==:on) - puts "Requested conversion #{@opt.selections.str} markup #{markup_version} identified in #{i}" - end - end - end - end - else puts 'this routine makes permanent changes to the contents of the files matched, as instructed within [no matches]' - end - end - end -end -#%% files to match for this conversion set -------------------------> -require_relative 'hub_options' # hub_options.rb -argv=$* -base_path=Dir.pwd -@opt=SiSU_Commandline::Options.new(argv,base_path) -case @opt.selections.str -when /=kdi/ - SiSU_Modify::ConvertMarkup.new(@opt).conversion -when /(?:36|37|38)?to-?(?:37|38)|--convert|--to|--from|default/ -@opt.files.each do |fns| - @opt.fns=fns - SiSU_Modify::ConvertMarkup.new(@opt).conversion -end -else - @opt.selections.str='--help' - SiSU_Modify::ConvertMarkup.new(@opt).help -end -__END__ -- cgit v1.2.3