# coding: utf-8 =begin * Name: SiSU * Description: a framework for document structuring, publishing and search * Author: Ralph Amissah * Copyright: (C) 1997 - 2009 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: * Download: * Ralph Amissah ** Description: html generation, html pre-processing =end require "#{SiSU_lib}/param" module SiSU_HTML_Tune require "#{SiSU_lib}/sysenv" 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 !~/¡/u 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!(/#{Mx[:gl_o]}(#[0-9]{3})#{Mx[:gl_c]}/u,'&\1;') @html.gsub!(/#{Mx[:gl_o]}#([a-z]{2,4})#{Mx[:gl_c]}/u,'&\1;') @html.gsub!(/¢/u,'¢') # ¢ @html.gsub!(/£/u,'£') # £ @html.gsub!(/¥/u,'¥') # ¥ @html.gsub!(/§/u,'§') # § @html.gsub!(/©/u,'©') # © @html.gsub!(/ª/u,'ª') # ª @html.gsub!(/«/u,'«') # « @html.gsub!(/®/u,'®') # ® @html.gsub!(/°/u,'°') # ° @html.gsub!(/±/u,'±') # ± @html.gsub!(/²/u,'²') # ² @html.gsub!(/³/u,'³') # ³ @html.gsub!(/µ/u,'µ') # µ @html.gsub!(/¶/u,'¶') # ¶ @html.gsub!(/¹/u,'¹') # ¹ @html.gsub!(/º/u,'º') # º @html.gsub!(/»/u,'»') # » @html.gsub!(/¼/u,'¼') # ¼ @html.gsub!(/½/u,'½') # ½ @html.gsub!(/¾/u,'¾') # ¾ @html.gsub!(/×/u,'×') # × @html.gsub!(/÷/u,'÷') # ÷ @html.gsub!(/¿/u,'¿') # ¿ @html.gsub!(/À/u,'À') # À @html.gsub!(/Á/u,'Á') # Á @html.gsub!(/Â/u,'Â') # Â @html.gsub!(/Ã/u,'Ã') # Ã @html.gsub!(/Ä/u,'Ä') # Ä @html.gsub!(/Å/u,'Å') # Å @html.gsub!(/Æ/u,'Æ') # Æ @html.gsub!(/Ç/u,'Ç') # Ç @html.gsub!(/È/u,'È') # È @html.gsub!(/É/u,'É') # É @html.gsub!(/Ê/u,'Ê') # Ê @html.gsub!(/Ë/u,'Ë') # Ë @html.gsub!(/Ì/u,'Ì') # Ì @html.gsub!(/Í/u,'Í') # Í @html.gsub!(/Î/u,'Î') # Î @html.gsub!(/Ï/u,'Ï') # Ï @html.gsub!(/Ð/u,'Ð') # Ð @html.gsub!(/Ñ/u,'Ñ') # Ñ @html.gsub!(/Ò/u,'Ò') # Ò @html.gsub!(/Ó/u,'Ó') # Ó @html.gsub!(/Ô/u,'Ô') # Ô @html.gsub!(/Õ/u,'Õ') # Õ @html.gsub!(/Ö/u,'Ö') # Ö @html.gsub!(/Ø/u,'Ø') # Ø @html.gsub!(/Ù/u,'Ù') # Ù @html.gsub!(/Ú/u,'Ú') # Ú @html.gsub!(/Û/u,'Û') # Û @html.gsub!(/Ü/u,'Ü') # Ü @html.gsub!(/Ý/u,'Ý') # Ý @html.gsub!(/Þ/u,'Þ') # Þ @html.gsub!(/ß/u,'ß') # ß @html.gsub!(/à/u,'à') # à @html.gsub!(/á/u,'á') # á @html.gsub!(/â/u,'â') # â @html.gsub!(/ã/u,'ã') # ã @html.gsub!(/ä/u,'ä') # ä @html.gsub!(/å/u,'å') # å @html.gsub!(/æ/u,'æ') # æ @html.gsub!(/ç/u,'ç') # ç @html.gsub!(/è/u,'è') # è @html.gsub!(/é/u,'é') # é @html.gsub!(/ê/u,'ê') # ê @html.gsub!(/ë/u,'ë') # ë @html.gsub!(/ì/u,'ì') # ì @html.gsub!(/í/u,'í') # í @html.gsub!(/î/u,'î') # î @html.gsub!(/ï/u,'ï') # ï @html.gsub!(/ð/u,'ð') # ð @html.gsub!(/ñ/u,'ñ') # ñ @html.gsub!(/ò/u,'ò') # ò @html.gsub!(/ó/u,'ó') # ó @html.gsub!(/ô/u,'ô') # ô @html.gsub!(/õ/u,'õ') # õ @html.gsub!(/ö/u,'ö') # ö @html.gsub!(/ø/u,'ø') # ø @html.gsub!(/ù/u,'ù') # ú @html.gsub!(/ú/u,'ú') # û @html.gsub!(/û/u,'û') # ü @html.gsub!(/ü/u,'ü') # ý @html.gsub!(/þ/u,'þ') # þ @html.gsub!(/ÿ/u,'ÿ') # ÿ @html.gsub!(/ý/u,'ý') @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 @env=SiSU_Env::Info_env.new(@md.fns) @url_brace=SiSU_Viz::Skin.new.url_decoration #@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 data=Tune.new(data,@md).markup 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!(/#{Mx[:lv_o]}\d:(\S?)#{Mx[:lv_c]}/,'\0#\1. ') @tuned_file << para end end def markup @tuned_file=[] @data.each do |para| #@utf8.new(para).html #@utf8.html(@para) para.gsub!(/#{Mx[:mk_o]}#([a-zA-Z]+)#{Mx[:mk_c]}/,'&\1;') para.gsub!(/#{Mx[:mk_o]}(#[0-9]+)#{Mx[:mk_c]}/,'&\1;') para.gsub!(/#{Mx[:br_line]}|#{Mx[:br_nl]}/,'
') para.gsub!(/#{Mx[:fa_bold_o]}(.+?)#{Mx[:fa_bold_c]}/,'\1') para.gsub!(/#{Mx[:fa_italics_o]}(.+?)#{Mx[:fa_italics_c]}/,'\1') para.gsub!(/#{Mx[:fa_underscore_o]}(.+?)#{Mx[:fa_underscore_c]}/,'\1') para.gsub!(/#{Mx[:fa_superscript_o]}(.+?)#{Mx[:fa_superscript_c]}/,'\1') para.gsub!(/#{Mx[:fa_subscript_o]}(.+?)#{Mx[:fa_subscript_c]}/,'\1') para.gsub!(/#{Mx[:fa_insert_o]}(.+?)#{Mx[:fa_insert_c]}/,'\1') para.gsub!(/#{Mx[:fa_cite_o]}(.+?)#{Mx[:fa_cite_c]}/,'\1') para.gsub!(/#{Mx[:fa_strike_o]}(.+?)#{Mx[:fa_strike_c]}/,'\1') para.gsub!(/#{Mx[:mk_o]}:name#(\S+?)#{Mx[:mk_c]}/,'') para.gsub!(/#{Mx[:nbsp]}/,' ') para.gsub!(/<(p|br)>/,'<\1 />') para=SiSU_HTML_Tune::Clean_html.new(para).clean @tuned_file << para end end def urls(data) @words=[] data.each do |word| @words << if word=~/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}((?:https?|file|ftp)\S+|image)/ if word =~/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}(?:(?:https?|file|ftp):\/\/\S+?\.[^'"><\s]+?|image)[;.,]?(?:\s|$)/ m,u,d=/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}((?:https?|file|ftp):\/\/\S+?\.[^'"><\s]+?|image)([;.,]?(?:\s|$))/.match(word).captures else m,u=/#{Mx[:lnk_o]}(.+?)#{Mx[:lnk_c]}((?:https?|file|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!(/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}((?:https?|file|ftp)\S+|image)/,ins) else link=m[/(.+)/m] png=m.scan(/\S+/)[0].strip link=link.strip ins=%{#{link}#{d}} word.gsub!(/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}(?:https?|file|ftp)\S+/,ins) end word else word end word end @words=@words.join(' ') end def url_markup data=@data @tuned_file=[] data.each do |para| #para.gsub!(/#{Mx[:mk_o]}name#(\S+?)#{Mx[:mk_c]}/,'') para.gsub!(/<-#>/,'') #para.gsub!(/<(p|br)>/,'<\1 />') unless para =~/^#{Mx[:gr_o]}code#{Mx[:gr_c]}/ 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 =~/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}((?:https?|file|ftp)\S+|image)/ @word_mode=para.scan(/#{Mx[:lnk_o]}.+?#{Mx[:lnk_c]}(?:(?:https?|file|ftp)\S+|image)|(?:#{Mx[:gl_o]}\S+?#{Mx[:gl_c]})+|\S+/u) words=urls(@word_mode) para.gsub!(/.+/m,words) end if (para !~/^#{Mx[:meta_o]}|^#{Mx[:gr_o]}code#{Mx[:gr_c]}/) 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!(/([a-zA-Z0-9._-]+\@\S+?\.[a-zA-Z0-9._-]+)/,'<\1>') end para.gsub!(/\b[_\\]((?:https?|file|ftp):\/\/\S+?\.[^'"><\s]+?)([;.,]?(?:\s|$))/,'\1\2') #http ftp matches escaped, no decoration para.gsub!(/((?:^|\s)#{Mx[:lnk_c]})((?:https?|file|ftp):\/\/\S+?\.[^'"><\s]+?)([;.,]?(?:\s|$))/,'\1\2\3') #special case \{ e.g. \}http://url para.gsub!(/(^|#{Mx[:gl_c]}|\s)((?:https?|file|ftp):\/\/\S+?\.[^'"><\s]+?)([;.,]?(?=\s|$))/,%{\\1#{@url_brace.xml_open}\\2#{@url_brace.xml_close}\\3}) #http ftp matches with decoration if para =~/..\/\S+/ \ and para !~/(\"..\/\S+?\"|>\s*..\/\S+<)/ para.gsub!(/(\.\.\/\S+)/,'\1') end para.gsub!(//m,'\1>') #code-block: angle brackets special characters para.gsub!(/(^|[^}])_/m,'\1>') end @tuned_file << para end end def endnotes_html data=@data @tuned_file=[] data.each do |para| unless para =~/^#{Mx[:gr_o]}code#{Mx[:gr_c]}/ para.gsub!(/(#{Mx[:en_a_o]}|#{Mx[:en_b_o]})(\d+)\s+(.+?) #{Mx[:id_o]}#@dp#{Mx[:id_c]}(#{Mx[:en_a_c]}|#{Mx[:en_b_c]})/, '  \2  ' + #note- endnote- '\1\2  \2. \3 \4') #endnote- note- (careful may have switched) para.gsub!(/(#{Mx[:en_b_o]})([*+]\d+)\s+(.+?) #{Mx[:id_o]}#@dp#{Mx[:id_c]}(#{Mx[:en_b_c]})/, '  \2  ' + #note- endnote- '\1\2  \2. \3 \4') #endnote- note- (careful may have switched) para.gsub!(/(#{Mx[:en_a_o]})([*+]+)\s+(.+?) #{Mx[:id_o]}#@dp#{Mx[:id_c]}(#{Mx[:en_a_c]})/, '  \2  ' + #note- endnote- '\1\2  \2 \3 \4') #endnote- note- (careful may have switched) end @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 end __END__