diff options
author | Ralph Amissah <ralph.amissah@gmail.com> | 2007-06-02 11:27:06 +0100 |
---|---|---|
committer | Ralph Amissah <ralph.amissah@gmail.com> | 2007-06-02 11:27:06 +0100 |
commit | 26767cc88c0548ad7978021796d0ccc4c9f7ffed (patch) | |
tree | fe225e99e180b5d2925cbf776826f74db27e1888 /lib/sisu/0.52/xml_tables.rb | |
parent | restrict use to ruby1.8 branch, i.e. < 1.9 (diff) |
0.53.0, pre-build, see changelog, library naming changed for scm, placed under v0 (instead of 0.53)upstream/0.53.0sisu_0.53.0
Diffstat (limited to 'lib/sisu/0.52/xml_tables.rb')
-rw-r--r-- | lib/sisu/0.52/xml_tables.rb | 202 |
1 files changed, 0 insertions, 202 deletions
diff --git a/lib/sisu/0.52/xml_tables.rb b/lib/sisu/0.52/xml_tables.rb deleted file mode 100644 index 5f48c3f7..00000000 --- a/lib/sisu/0.52/xml_tables.rb +++ /dev/null @@ -1,202 +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: common file for xml table generation - - * 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 -module SiSU_Tables - require SiSU_lib + '/defaults' - include SiSU_Viz - class Table #_xml - @@tablehead=0 - @@tablefoot=[] #watch #bug??? #check was @@tablefoot - def initialize(one,ocn='') - @one,@parablock,@ocn,@vz=one,one,ocn,SiSU_Env::Get_init.instance.skin - end - def table_split #% used but, no longer operational, revisit - @new_content=[] - @one.split(/\n/).each do |parablock| - table=Table_xml.new("#{parablock}\n") - @new_content << table.table - end - @new_content.join - end - end - class Table_xml <Table - @@tablehead=0 - @@tablefoot=[] - @@dp=nil - def initialize(one,ocn='') - @one,@parablock,@ocn,@vz=one,one,ocn,SiSU_Env::Get_init.instance.skin - @dp=@@dp ||=SiSU_Env::Info_env.new.digest.pattern - end - def table - m=@parablock[/<!f(.+?)!>/,1] - @@tablefoot << m if m - @parablock.gsub!(/<!f.+?!>/,'') - @@tablehead=1 if @parablock =~/<!Th¡/ - if @parablock =~/<!Th?¡/ - @parablock.gsub!(/<!Th?¡.+?!~(\d+);\w\d+;\w\d+>/, - %{\n<ocn>#@ocn</ocn><table summary="normal text css" width="100%" border="0" bgcolor="white" cellpadding="2" align="center">}) - end - if @parablock =~/<!TZ!>/ - tablefoot=[] - #bug table footers need rethink, removed for now - @@tablefoot.each {|x| tablefoot << ''} - @@tablefoot=[] - @parablock.gsub!(/<!TZ!>\s+<~(\d+);(?:\w|[0-6]:)\d+;\w\d+><#@dp:#@dp>/,"</table>\n") # + - @parablock.gsub!(/<!TZ!>\s*/,"</table>\n") - end - if @@tablehead == 1 - if @parablock =~/¡¡/ - @parablock.gsub!(/<!¡¡(\d+?)¡/, - %{<tr> - <td width="\\1%" valign="top"> - #{@vz.paragraph_table_xml}<b>}) - @parablock.gsub!(/¡¡(\d+?)¡/, - %{</b></td><td width="\\1%" valign="top"> - #{@vz.paragraph_table_xml}<b>}) - @parablock.gsub!(/!>/,"</b>\n</td>\n</tr>") - @@tablehead=0 - end - @parablock - else - @parablock.gsub!(/<!¡¡(\d+?)¡/, - %{<tr> - <td width="\\1%" valign="top"> - #{@vz.paragraph_table_xml}}) - @parablock.gsub!(/¡¡(\d+?)¡/, - %{ - </td> - <td width="\\1%" valign="top"> - #{@vz.paragraph_table_xml}}) - @parablock.gsub!(/!>/,"\n</td>\n</tr>\n") - end - @parablock - end - end - class Table_xml_exp <Table - @@tablehead=0 - @@tablefoot=[] - def initialize(one) - @one,@parablock,@vz=one,one,SiSU_Env::Get_init.instance.skin - end - def table_head(inf) - %{<table summary="normal text css" width="100%" border="0" bgcolor="white" cellpadding="2" align="center"> - <tr> - <td valign="top" align="justify"> - <a name="#{inf}"></a> - </td> - <td> -<table summary="normal text css" width="100%" border="0" bgcolor="white" cellpadding="2" align="center">} - end - def table_end(tablefoot='') - %{</table>#{@vz.margin_numless}#{@vz.margin_numless} #{@vz.table_close} -#{tablefoot}} - end - def table_row(inf,h=false) - bold=if h; '<b>' - else '' - end - %{ -<tr> - <td width="#{inf}%" valign="top">#{bold}} - end - def table_cell(inf,h=false) - if h; %{</b></td><td width="#{inf}%" valign="top"><b>} - else %{</td><td width="#{inf}%" valign="top">} - end - end - def table_row_close(h=false) - bold_close=if h; '</b>' - else '' - end - "#{bold_close}</td></tr>" - end - def table - m=@parablock[/<!f(.+?)!>/,1] - @@tablefoot << m if m - @parablock.gsub!(/<!f.+?!>/,'') - @@tablehead=1 if @parablock =~/<!Th¡/ - if @parablock =~/<!Th?¡.+?!~(\d+);\w\d+;\w\d+>/; @parablock=table_head($1) - end - if @parablock =~/<!TZ!>/ - tablefoot=[] - @@tablefoot.each {|x| tablefoot << ''} - @@tablefoot=[] - if @parablock =~/<!TZ!>/; @parablock=table_end - end - end - if @@tablehead == 1 - if @parablock =~/¡¡/ - if @parablock =~/<!¡¡(\d+?)¡/ - @parablock.gsub!(/<!¡¡(\d+?)¡/,table_row($1,true)) - end - if @parablock =~/¡¡(\d+?)¡/ - @parablock.gsub!(/¡¡(\d+?)¡/,table_cell($1,true)) - end - if @parablock =~/!>/ - @parablock.gsub!(/!>/,table_row_close(true)) - end - @@tablehead=0 - end - @parablock - else - if @parablock =~/<!¡¡(\d+?)¡/ - @parablock.gsub!(/<!¡¡(\d+?)¡/,table_row($1)) - end - if @parablock =~/¡¡(\d+?)¡/ - @parablock.gsub!(/¡¡(\d+?)¡/,table_cell($1)) - end - if @parablock =~/!>/ - @parablock.gsub!(/!>/,table_row_close) - end - @parablock - end - @parablock - end - end -end - |