From 26767cc88c0548ad7978021796d0ccc4c9f7ffed Mon Sep 17 00:00:00 2001 From: Ralph Amissah Date: Sat, 2 Jun 2007 11:27:06 +0100 Subject: 0.53.0, pre-build, see changelog, library naming changed for scm, placed under v0 (instead of 0.53) --- lib/sisu/v0/sst_convert_markup.rb | 298 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 298 insertions(+) create mode 100644 lib/sisu/v0/sst_convert_markup.rb (limited to 'lib/sisu/v0/sst_convert_markup.rb') diff --git a/lib/sisu/v0/sst_convert_markup.rb b/lib/sisu/v0/sst_convert_markup.rb new file mode 100644 index 00000000..6cdc76b0 --- /dev/null +++ b/lib/sisu/v0/sst_convert_markup.rb @@ -0,0 +1,298 @@ +=begin + * Name: modify.rb + * Author: Ralph Amissah + * http://www.jus.uio.no/sisu + * http://www.jus.uio.no/sisu/SiSU/download.html + + * Description: 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 + + * Copyright (C) 2004, 2006 Ralph Amissah + + * Packaged with: SiSU information Structuring Universe - Structured information, Serialized Units + * SiSU Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 Ralph Amissah + + * License: GPL 2 or later + + Summary of GPL 2 + + 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 2 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, write to the Free Software Foundation, Inc., + 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA + + If you have Internet connection, the latest version of the GPL should be + available at these locations: + http://www.fsf.org/licenses/gpl.html + http://www.gnu.org/copyleft/gpl.html + http://www.jus.uio.no/sisu/gpl2.fsf + + © Ralph Amissah 1997, current 2007. + All Rights Reserved. + + * Ralph Amissah: ralph@amissah.com + ralph.amissah@gmail.com +=end +module SiSU_Modify + require "#{SiSU_lib}/sst_identify_markup" + require "#{SiSU_lib}/sst_from_kdissert" + require "#{SiSU_lib}/sst_to_s_xml_sax" + require "#{SiSU_lib}/sst_to_s_xml_dom" + require "#{SiSU_lib}/sst_to_s_xml_node" + require "#{SiSU_lib}/sst_from_xml" + require "#{SiSU_lib}/response" + class Convert_markup + require 'fileutils' + include FileUtils #::Verbose + def initialize(opt) + @opt=opt + @description='This is a script that contains canned text conversions for reuse' + @response=SiSU_Response::Response.new + @ask=SiSU_Response::Response.new + @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.cmd=~/q/ + response=@ask.response?(%{#{ text}\nProceed? }) + end + end + def help + print < ./#{s}" + 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_simple_xml_model_sax::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_sst_from_xml::Convert.new(@opt).read + end + def convert_footnotes + require "#{SiSU_lib}/sst_do_inline_footnotes" + SiSU_Convert_footnotes::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.mod.inspect =~/--help/; help + elsif @opt.mod.inspect =~/(?:convert|to)[=-](?:xml |sxs|sax|sxd|dom|sxn|node)/ + ext=case @opt.mod.inspect + when /(?:convert|to)[=-](?:xml|sxs|sax)/; '.sxs.xml' + when /(?:convert|to)[=-](?:sxd|dom)/; '.sxd.xml' + when /(?:convert|to)[=-](?:sxn|node)/; '.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.mod.inspect + when /(?:convert|to)[=-](?:sxs|sax|xml )/; convert_to_simple_xml_model_sax + when /(?:convert|to)[=-](?:sxd|dom)/; convert_to_simple_xml_model_dom + when /(?:convert|to)[=-](?:sxn|node)/; convert_to_simple_xml_model_node + else help + end + else + mr=case @opt.mod.inspect + when /(?:(?:37)?to-?38|--(?:convert|to)[=-](?:current|0.38))/; convert_37_to_38 + when /(?:(?:38)?to-?37|--(?:convert|to)[=-](?:0.37))/; convert_38_to_37 + when /(?:36to37)/; convert_filename_36_to_37 + when /(?:convert|from)[=-]kdi/; convert_kdi_to_sst + when /(?:(?:convert|from)[=-])?(?:xml_to_sst|xml2sst|sxml|sxs|sxd|sxd)/; convert_s_xml_to_sst + when /(?:convert|to)[=-]footnotes/; convert_footnotes + when /convert|default/; current_match_and_replace + else help + end + end + unless @opt.mod.inspect =~/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::Markup_identify.new(@opt).markup_version? + if (@opt.mod.inspect=~/37/ and markup_version=~/0.38/) or + (@opt.mod.inspect=~/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.cmd=~/q/ + @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.cmd=~/q/ + puts "in: #{y}" if @opt.cmd=~/[vVM]/ + y.gsub!(m,r) if m and r + puts "out: #{y}" if @opt.cmd=~/[vVM]/ + end + end + end + if y=~/^\s*$/; @empty1=true + else @empty1=false + end + @file.puts y unless (@empty1==true and @empty2==true) + if y=~/^\s*$/; @empty2=true + else @empty2=false + end + end + @file.close + else puts "NO conversion match in #{i}" unless @opt.cmd=~/q/ + end + else puts "Requested conversion #{@opt.mod.inspect} markup #{markup_version} identified in #{i}" if @opt.cmd=~/[vVM]/ + 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 "#{SiSU_lib}/options" +argv=$* +@opt=SiSU_commandline::Options.new(argv) +case @opt.mod.inspect +when /=kdi/ + SiSU_Modify::Convert_markup.new(@opt).conversion +when /(?:36|37|38)?to-?(?:37|38)|--convert|--to|--from|default/ +@opt.files.each do |fns| + @opt.fns=fns + SiSU_Modify::Convert_markup.new(@opt).conversion +end +else + @opt.mod='--help' + SiSU_Modify::Convert_markup.new(@opt).help +end +__END__ -- cgit v1.2.3