diff options
Diffstat (limited to 'lib/sisu/0.52/html_tune.rb')
-rw-r--r-- | lib/sisu/0.52/html_tune.rb | 376 |
1 files changed, 0 insertions, 376 deletions
diff --git a/lib/sisu/0.52/html_tune.rb b/lib/sisu/0.52/html_tune.rb deleted file mode 100644 index 1043f310..00000000 --- a/lib/sisu/0.52/html_tune.rb +++ /dev/null @@ -1,376 +0,0 @@ -=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 summary='' width="96%" border="0" bgcolor="white" cellpadding="0" col="3"> -<tr ...><td width="2%" align="right"> - \;</td> -<td width="94%" valign="top" align="justify">' - @@table_align_close='</td> -<td width="4%" align="right" valign="top"> -<font size="1" color="#777777"> - </font> </td></tr></table>' - @@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<a name="H#\2">#\2.</a> ') - @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+?)>/,'<a name="\1"></a>') - para.gsub!(/<-#>/,'') - para.gsub!(/<:p[bn]>/,'') - para.gsub!(/<(p|br)>/,'<\1 />') - para.gsub!(/<:br>/,'<br />') - if para =~/<::\s+/ #watch - para.gsub!(/<::\s+(\S+?)\s+!>/, - %{<img src="#{@env.url.images}/c_\\1.png" alt="\\1" width="14" height="14" align="bottom" border="0">}) - end - if para =~/<:image\s+/ - para.gsub!(/<:image\s+(http\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+>/, - %{<a href="\\1"><img src="#{@env.url.images_local}/\\2" \\3 \\4 naturalsizeflag="0" align="bottom" border="0"></a>}) - para.gsub!(/<:image\s+(http\S+)\s+(\S+)\s+>/, - %{<a href="\\1"><img src="#{@env.url.images_local}/\\2" naturalsizeflag="0" align="bottom" border="0"></a>}) - para.gsub!(/<:image\s+(\S+)\s+(\S+)\s+(\S+)\s+>/, - %{<img src="#{@env.url.images_local}/\\1" \\2 \\3 naturalsizeflag="0" align="bottom" border="0">}) - para.gsub!(/<:image\s+(\S+)\s+>/, - %{<img src="#{@env.url.images_local}/\\1" naturalsizeflag="0" align="bottom" border="0">}) - 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,%{<sup>©</sup>}) - if (para !~/\<:ad\s+\.\.\//) - para.gsub!(/\<:ad\s+(\S+)?\s+(\S+\.png)\s+(.+)?\;\s+(.+)?\;\s*!\>/, - %{\n<center><a href="http:\/\/\\1" target="external"><img src="#{@env.url.images_local}/\\2" alt="\\3"></a></center>\n}) - else - para.gsub!(/\<:ad\s+(\S+)?\s+(\S+\.png)\s+(.+)?\;\s+(.+)?\;\s*\>/, - %{\n<center><a href="\\1" target="_top"><img src="#{@env.url.images_local}/\\2" alt="\\3"></a></center>\n}) - end - para.gsub!(/!pick/, %{<img border="0" height="15" width="15" src="#{@env.url.images}/#{@vz.icon_choice}" alt="stellar">}) - para.gsub!(/!new/, %{ <img border="0" height="15" width="15" src="#{@env.url.images}/#{@vz.icon_new}" alt="new">}) - para.gsub!(/<:h(.{1,7}?)>/,'<a href="#h\1">\1</a>') - para.gsub!(/<:to(\d{1,7}?)>/,'<a href="#to\1">to { \1 }</a> ') - if (para =~/\b\S+\@\S+?\.\S+/ and para !~/(\"\S+\@\S+?\.\S+\"|>\S+\@\S+?\.\S+?<)/) - para.gsub!(/\b(\S+\@\S+?\.\S+)(\s)/,'<a href="mailto:\1">\1</a>\\2') - end - if (para !~/(\"\w+:\/\/\S+?\"|>\s*\w+:\/\/\w+?\S*<)/) #url markup http etc. - if para=~/\w+:\/\/\S+?\.\S+?[.,] / - para.gsub!(/(\w+:\/\/\S+?\.\S+?)([.,] )/,'<a href="\1" target="_top">\1</a>\2') #full stops ! have been a bother - else - para.gsub!(/(\w+:\/\/\S+?\.\S+)/, '<a href="\1" target="_top">\1</a>') - 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<a href="\2" target="_top">\2</a>\3') #full stops ! have been a bother - else - para.gsub!(/([ ^])((?:https?|ftp):\/\/\S+)/,'\1<a href="\2" target="_top">\2</a>') - end - end - if (para =~/..\/\S+/ and para !~/(\"..\/\S+?\"|>\s*..\/\S+<)/) - para.gsub!(/(\.\.\/\S+)/,'<a href="\1">\1</a>') - end - para.gsub!(/<a href="\.\.\//,%{<a href="#{@vz.url_site}/}) - end - @tuned_file << para - end - end - def endnotes_html - data=@data - @tuned_file=[] - data.each do |para| - para.gsub!(/(~[{])(\d+) (.+?) <#@dp>([}]~)/, - ' <a name="-\2" href="#_\2"> <sup>\2</sup> </a> ' + #note- endnote- - '\1\2 <a name="_\2" href="#-\2"> <sup>\2.</sup></a> \3 \4') #endnote- note- (careful may have switched) - para.gsub!(/(~\[)([*+]\d+) (.+?) <#@dp>(\]~)/, - ' <a name="-\2" href="#_\2"> <sup>\2</sup> </a> ' + #note- endnote- - '\1\2 <a name="_\2" href="#-\2"> <sup>\2.</sup></a> \3 \4') #endnote- note- (careful may have switched) - para.gsub!(/(~\{)([*+]+) (.+?) <#@dp>(\}~)/, - ' <a name="-\2" href="#_\2"> <sup>\2</sup> </a> ' + #note- endnote- - '\1\2 <a name="_\2" href="#-\2"> <sup>\2</sup></a> \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<EOF>" 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=%{<br /><p class="caption">#{c}</p>} 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$/ - %{<a href="#{u}"><img src="#{image_path}/#{png}" #{w} #{h} naturalsizeflag="0" align="bottom" border="0"></a>#{caption}} - else %{<img src="#{image_path}/#{png}" #{w} #{h} naturalsizeflag="0" align="bottom" border="0">#{caption}} - end - word.gsub!(/\{.+?\}((?:https?|ftp)\S+|image)/,ins) - else - link=m[/(.+)/m] - png=m.scan(/\S+/)[0].strip - link=link.strip - ins=%{<a href="#{u}">#{link}</a>#{d}} - word.gsub!(/\{.+?\}(?:https?|ftp)\S+/,ins) - end - word - else word - end - word - end - @words - end - end -end -__END__ |