diff options
Diffstat (limited to 'lib/sisu/current/sst_convert_markup.rb')
-rw-r--r-- | lib/sisu/current/sst_convert_markup.rb | 323 |
1 files changed, 0 insertions, 323 deletions
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 - <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/current/sst_convert_markup.rb;hb=HEAD> - -=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 <<WOK - -#{@description} - -sisu --convert --to38 [filename/wildcard] - converts pre 0.37 sisu markup to 0.38 experimental - [--37to38] - -sisu --convert --to37 [filename/wildcard] - converts pre 0.37 sisu markup to 0.38 experimental - [--38to37] - -sisu --convert --36to37 [filename/wildcard] - converts pre 0.36 file-name, to 0.37 file-name - [--36to37] - -sisu --identify [filename] - attempts to identify markup version used in file - -sisu --query [version number] - gives short summary of distinguishing characteristic - of that version of markup - -WOK - exit - end - #%% substitutions to be made - def convert_37_to_38 - message("#{@warn}\nConvert sisu markup from 0.37 to 0.38") - [ - [/^0~(\S+?)([+-])\s+/, '@\1:\2 ', //], - [/^0~(\S+)\s+/, '@\1: ', //], - [/^@toc:\s+/, '@structure: ', //], - [/^1~/, ':A~', //], - [/^2~/, ':B~', //], - [/^3~/, ':C~', //], - [/^4~/, '1~', //], - [/^5~/, '2~', //], - [/^6~/, '3~', //], - [/^7~/, '4~', //], - [/^8~/, '5~', //], - [/^9~/, '6~', //], - [/1/, ':A', /^@(?:level|markup):\s/], - [/2/, ':B', /^@(?:level|markup):\s/], - [/3/, ':C', /^@(?:level|markup):\s/], - [/4/, '1', /^@(?:level|markup):\s/], - [/5/, '2', /^@(?:level|markup):\s/], - [/6/, '3', /^@(?:level|markup):\s/] - ] - end - def convert_38_to_37 - message("#{@warn}\nConvert sisu markup from 0.38 to 0.37") - [ - [/^@(\S+?):([+-])\s+/, '0~\1\2 ', //], - [/^@(\S+?):\s+/, '0~\1 ', //], - [/^0~structure\s+/, '0~toc ', //], - [/^1~/, '4~', //], - [/^2~/, '5~', //], - [/^3~/, '6~', //], - [/^4~/, '7~', //], - [/^5~/, '8~', //], - [/^6~/, '9~', //], - [/^:?A~/, '1~', //], - [/^:?B~/, '2~', //], - [/^:?C~/, '3~', //], - [/1/, '4', /^0~(?:level|markup)\s/], - [/2/, '5', /^0~(?:level|markup)\s/], - [/3/, '6', /^0~(?:level|markup)\s/], - [/:?A/, '1', /^0~(?:level|markup)\s/], - [/:?B/, '2', /^0~(?:level|markup)\s/], - [/:?C/, '3', /^0~(?:level|markup)\s/] - ] - end - def convert_filename_36_to_37 - @opt.files.each do |f| - s=case f - when /(\.s[1-3])$/ then f.sub($1,'.sst') - when /(\.r[1-3])$/ then f.sub($1,'.ssm') - when /(\.ri)$/ then f.sub($1,'.ssi') - else f - end - pwd=Dir.pwd - unless f==s - unless File.exist?("#{pwd}/#{s}") - puts "./#{f} -> ./#{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__ |