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/html_tune.rb | 376 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 376 insertions(+) create mode 100644 lib/sisu/v0/html_tune.rb (limited to 'lib/sisu/v0/html_tune.rb') diff --git a/lib/sisu/v0/html_tune.rb b/lib/sisu/v0/html_tune.rb new file mode 100644 index 00000000..2d295a6c --- /dev/null +++ b/lib/sisu/v0/html_tune.rb @@ -0,0 +1,376 @@ +=begin + * Name: SiSU information Structuring Universe - Structured information, Serialized Units + * Author: Ralph Amissah + * http://www.jus.uio.no/sisu + * http://www.jus.uio.no/sisu/SiSU/download.html + + * Description: html generation, html pre-processing + + * 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 + + SiSU was first released to the public on January 4th 2005 + + SiSU uses: + + * Standard SiSU markup syntax, + * Standard SiSU meta-markup syntax, and the + * Standard SiSU object citation numbering and system + + © Ralph Amissah 1997, current 2007. + All Rights Reserved. + + * Ralph Amissah: ralph@amissah.com + ralph.amissah@gmail.com +=end +require "#{SiSU_lib}/param" +module SiSU_Tune + #require "#{SiSU_lib}/defaults" + require "#{SiSU_lib}/sysenv" + require "#{SiSU_lib}/param" + require "#{SiSU_lib}/html_format" #watch + include SiSU_Env + include SiSU_Screen + @@line_mode='' + @@endnote_array=[] + @@endnote_call_counter=1 + @@table_align=' + + +
+ \;' + @@table_align_close=' + +   
' + @@counter,@@column,@columns=0,0,0 + class Output + def initialize(data,md) + @data,@md=data,md + @cX=SiSU_Screen::Ansi.new(@md.cmd).cX + end + def hard_output + my_make=SiSU_Env::Create_file.new(@md.cmd,@md.fns) + @filename_tune=my_make.file_tune + data=[] + @data.each{|x| x.strip; data << x if not x.empty?} #1.9 array? + data.each do |para| + @filename_tune.puts para, "\n" #if para !~/¡/ + end + end + def marshal + my_make=SiSU_Env::Create_file.new(@md.cmd,@md.fns) + @marshal_tune=my_make.marshal_tune + File.open(@marshal_tune,'w') {|f| Marshal.dump(@data.to_a,f)} + end + end + class Clean_html + def initialize(html='') + @html=html + end + def clean + @html.gsub!(/¢/,'¢') # ¢ + @html.gsub!(/£/,'£') # £ + @html.gsub!(/¥/,'¥') # ¥ + @html.gsub!(/§/,'§') # § + @html.gsub!(/©/,'©') # © + @html.gsub!(/ª/,'ª') # ª + @html.gsub!(/«/,'«') # « + @html.gsub!(/®/,'®') # ® + @html.gsub!(/°/,'°') # ° + @html.gsub!(/±/,'±') # ± + @html.gsub!(/²/,'²') # ² + @html.gsub!(/³/,'³') # ³ + @html.gsub!(/µ/,'µ') # µ + @html.gsub!(/¶/,'¶') # ¶ + @html.gsub!(/¹/,'¹') # ¹ + @html.gsub!(/º/,'º') # º + @html.gsub!(/»/,'»') # » + @html.gsub!(/¼/,'¼') # ¼ + @html.gsub!(/½/,'½') # ½ + @html.gsub!(/¾/,'¾') # ¾ + @html.gsub!(/×/,'×') # × + @html.gsub!(/÷/,'÷') # ÷ + @html.gsub!(/¿/,'¿') # ¿ + @html.gsub!(/À/,'À') # À + @html.gsub!(/Á/,'Á') # Á + @html.gsub!(/Â/,'Â') #  + @html.gsub!(/Ã/,'Ã') # à + @html.gsub!(/Ä/,'Ä') # Ä + @html.gsub!(/Å/,'Å') # Å + @html.gsub!(/Æ/,'Æ') # Æ + @html.gsub!(/Ç/,'Ç') # Ç + @html.gsub!(/È/,'È') # È + @html.gsub!(/É/,'É') # É + @html.gsub!(/Ê/,'Ê') # Ê + @html.gsub!(/Ë/,'Ë') # Ë + @html.gsub!(/Ì/,'Ì') # Ì + @html.gsub!(/Í/,'Í') # Í + @html.gsub!(/Î/,'Î') # Î + @html.gsub!(/Ï/,'Ï') # Ï + @html.gsub!(/Ð/,'Ð') # Ð + @html.gsub!(/Ñ/,'Ñ') # Ñ + @html.gsub!(/Ò/,'Ò') # Ò + @html.gsub!(/Ó/,'Ó') # Ó + @html.gsub!(/Ô/,'Ô') # Ô + @html.gsub!(/Õ/,'Õ') # Õ + @html.gsub!(/Ö/,'Ö') # Ö + @html.gsub!(/Ø/,'Ø') # Ø + @html.gsub!(/Ù/,'Ù') # Ù + @html.gsub!(/Ú/,'Ú') # Ú + @html.gsub!(/Û/,'Û') # Û + @html.gsub!(/Ü/,'Ü') # Ü + @html.gsub!(/Ý/,'Ý') # Ý + @html.gsub!(/Þ/,'Þ') # Þ + @html.gsub!(/ß/,'ß') # ß + @html.gsub!(/à/,'à') # à + @html.gsub!(/á/,'á') # á + @html.gsub!(/â/,'â') # â + @html.gsub!(/ã/,'ã') # ã + @html.gsub!(/ä/,'ä') # ä + @html.gsub!(/å/,'å') # å + @html.gsub!(/æ/,'æ') # æ + @html.gsub!(/ç/,'ç') # ç + @html.gsub!(/è/,'è') # è + @html.gsub!(/é/,'é') # é + @html.gsub!(/ê/,'ê') # ê + @html.gsub!(/ë/,'ë') # ë + @html.gsub!(/ì/,'ì') # ì + @html.gsub!(/í/,'í') # í + @html.gsub!(/î/,'î') # î + @html.gsub!(/ï/,'ï') # ï + @html.gsub!(/ð/,'ð') # ð + @html.gsub!(/ñ/,'ñ') # ñ + @html.gsub!(/ò/,'ò') # ò + @html.gsub!(/ó/,'ó') # ó + @html.gsub!(/ô/,'ô') # ô + @html.gsub!(/õ/,'õ') # õ + @html.gsub!(/ö/,'ö') # ö + @html.gsub!(/ø/,'ø') # ø + @html.gsub!(/ù/,'ù') # ú + @html.gsub!(/ú/,'ú') # û + @html.gsub!(/û/,'û') # ü + @html.gsub!(/ü/,'ü') # ý + @html.gsub!(/þ/,'þ') # þ + @html.gsub!(/ÿ/,'ÿ') # ÿ + @html.gsub!(/ý/,'ý') + @html + end + end + class Tune + @@dp=nil + def initialize(data,md) + @data,@md=data,md + @vz=SiSU_Env::Get_init.instance.skin + @env=SiSU_Env::Info_env.new(@md.fns) + @sys=SiSU_Env::System_call.new + @dp=@@dp ||=SiSU_Env::Info_env.new.digest.pattern + #@utf8=SiSU_character_encode::UTF8 #.new + end + def songsheet + begin + @cX=SiSU_Screen::Ansi.new(@md.cmd).cX + tell=SiSU_Screen::Ansi.new(@md.cmd,'Tune') + tell.txt_grey unless @md.cmd =~/q/ + data=Tune.new(@data,@md).endnotes_html + data=Tune.new(data,@md).url_markup + if @sys.locale =~/utf-?8/i + data=Tune.new(data,@md).utf8_markup + end + if @md.cmd =~/M/ #Hard Output Tune Optional on/off here + data=Output.new(data,@md).hard_output + Output.new(data,@md).marshal + end + tuned=Tune.new(@data,@md).output + rescue; SiSU_Errors::Info_error.new($!,$@,@md.cmd,@md.fns).error + ensure + end + end + def para_numbers + data=@data + @tuned_file=[] + data.each do |para| + para.gsub!(/(\d~(\S+))/,'\1#\2. ') + @tuned_file << para + end + end + def utf8_markup + @tuned_file=[] + @data.each do |para| + #@utf8.new(para).html + #@utf8.html(@para) + if @sys.locale =~/utf-?8/i # instead ucs for utf8 #require 'iconv' ? Iñtërnâtiônàlizætiøn + #¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûü + #¢£¥§©ª«®°±²³µ¶¹º»¼½¾×÷ + ##para.gsub!(//, '&#;') + ##para.gsub!(//, '&;') + para=SiSU_Tune::Clean_html.new(para).clean + end + @tuned_file << para + end + end + def url_markup + data=@data + @tuned_file=[] + data.each do |para| + para.gsub!(/<:name\#(\S+?)>/,'') + para.gsub!(/<-#>/,'') + para.gsub!(/<:p[bn]>/,'') + para.gsub!(/<(p|br)>/,'<\1 />') + para.gsub!(/<:br>/,'
') + if para =~/<::\s+/ #watch + para.gsub!(/<::\s+(\S+?)\s+!>/, + %{\\1}) + end + if para =~/<:image\s+/ + para.gsub!(/<:image\s+(http\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+>/, + %{}) + para.gsub!(/<:image\s+(http\S+)\s+(\S+)\s+>/, + %{}) + para.gsub!(/<:image\s+(\S+)\s+(\S+)\s+(\S+)\s+>/, + %{}) + para.gsub!(/<:image\s+(\S+)\s+>/, + %{}) + end + if para =~/\{.+?\}((?:http|ftp)\S+|image)/ + @word_mode=para.scan(/\{.+?\}(?:(?:https?|ftp)\S+|image)|\S+/) + word_mode=SiSU_Tune::Tune_urls.new(@word_mode,@md).urls + words=word_mode.join(' ') + para.gsub!(/.+/,words) + end + if (para !~/^0~/) + para.gsub!(/\\copyright/i,%{©}) + if (para !~/\<:ad\s+\.\.\//) + para.gsub!(/\<:ad\s+(\S+)?\s+(\S+\.png)\s+(.+)?\;\s+(.+)?\;\s*!\>/, + %{\n
\\3
\n}) + else + para.gsub!(/\<:ad\s+(\S+)?\s+(\S+\.png)\s+(.+)?\;\s+(.+)?\;\s*\>/, + %{\n
\\3
\n}) + end + para.gsub!(/!pick/, %{stellar}) + para.gsub!(/!new/, %{ new}) + para.gsub!(/<:h(.{1,7}?)>/,'\1') + para.gsub!(/<:to(\d{1,7}?)>/,'to { \1 } ') + if (para =~/\b\S+\@\S+?\.\S+/ and para !~/(\"\S+\@\S+?\.\S+\"|>\S+\@\S+?\.\S+?<)/) + para.gsub!(/\b(\S+\@\S+?\.\S+)(\s)/,'\1\\2') + end + if (para !~/(\"\w+:\/\/\S+?\"|>\s*\w+:\/\/\w+?\S*<)/) #url markup http etc. + if para=~/\w+:\/\/\S+?\.\S+?[.,] / + para.gsub!(/(\w+:\/\/\S+?\.\S+?)([.,] )/,'\1\2') #full stops ! have been a bother + else + para.gsub!(/(\w+:\/\/\S+?\.\S+)/, '\1') + end + end + if (para =~/[ ^](?:https?|ftp):\/\/\S+/) #url markup http leftovers watch carefully may accept too much 2004w46 + if para=~/([ ^])((?:https?|ftp):\/\/\S+?)([\.,] )/ + para.gsub!(/([ ^])((?:https?|ftp):\/\/\S+?)([\.,] )/,'\1\2\3') #full stops ! have been a bother + else + para.gsub!(/([ ^])((?:https?|ftp):\/\/\S+)/,'\1\2') + end + end + if (para =~/..\/\S+/ and para !~/(\"..\/\S+?\"|>\s*..\/\S+<)/) + para.gsub!(/(\.\.\/\S+)/,'\1') + end + para.gsub!(/([}]~)/, + '  \2  ' + #note- endnote- + '\1\2  \2. \3 \4') #endnote- note- (careful may have switched) + para.gsub!(/(~\[)([*+]\d+) (.+?) <#@dp>(\]~)/, + '  \2  ' + #note- endnote- + '\1\2  \2. \3 \4') #endnote- note- (careful may have switched) + para.gsub!(/(~\{)([*+]+) (.+?) <#@dp>(\}~)/, + '  \2  ' + #note- endnote- + '\1\2  \2 \3 \4') #endnote- note- (careful may have switched) + @tuned_file << para + end + end + def output + data=@data + @tuned_file=[] + data.each do |para| + para.strip! + para.chomp! + @tuned_file << para + end + @tuned_file << "\n" if (@md.fns =~/\.sst0/) #remove + @tuned_file + end + end + class Tune_urls + def initialize(data,md) + @data,@md=data,md + @vz=SiSU_Env::Get_init.instance.skin + @env=SiSU_Env::Info_env.new(@md.fns) + end + def urls + @words=[] + @data.each do |word| + @words << if word=~/\{(.+?)\}((?:https?|ftp)\S+|image)/ + if word =~/\{(.+?)\}((?:https?|ftp)\S+|image)([.,](?:\s|$))/ + m,u,d=/\{(.+?)\}((?:https?|ftp)\S+|image)([.,](?:\s|$))/.match(word).captures + else m,u=/\{(.+?)\}((?:https?|ftp)\S+|image)/.match(word).captures + d='' + end + case m + when /\.png|\.jpg|\.gif|c=|\d+x\d+/ + w,h=/(\d+)x(\d+)/.match(m).captures if m =~/\d+x\d+/ + w=%{width="#{w}"} if w + h=%{height="#{h}"} if h + c=m[/"(.+?)"/m,1] + caption=%{

#{c}

} if c + png=m.scan(/\S+/)[0] + image_path=if @md.fns =~/\.-ss[tm]$/; @env.url.images_external + else @env.url.images_local + end + ins=if u and u.strip !~/^image$/ + %{#{caption}} + else %{#{caption}} + end + word.gsub!(/\{.+?\}((?:https?|ftp)\S+|image)/,ins) + else + link=m[/(.+)/m] + png=m.scan(/\S+/)[0].strip + link=link.strip + ins=%{#{link}#{d}} + word.gsub!(/\{.+?\}(?:https?|ftp)\S+/,ins) + end + word + else word + end + word + end + @words + end + end +end +__END__ -- cgit v1.2.3