From 65477054fd798728bf186aa2938727ddddbe86a5 Mon Sep 17 00:00:00 2001
From: Ralph Amissah
Date: Tue, 22 May 2007 02:06:46 +0100
Subject: Imported upstream version 0.52.7
---
lib/sisu/0.52/shared_html_lite.rb | 180 ++++++++++++++++++++++++++++++++++++++
1 file changed, 180 insertions(+)
create mode 100644 lib/sisu/0.52/shared_html_lite.rb
(limited to 'lib/sisu/0.52/shared_html_lite.rb')
diff --git a/lib/sisu/0.52/shared_html_lite.rb b/lib/sisu/0.52/shared_html_lite.rb
new file mode 100644
index 00000000..4d4e03b1
--- /dev/null
+++ b/lib/sisu/0.52/shared_html_lite.rb
@@ -0,0 +1,180 @@
+=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: modules shared by db and flatfile output generators, mostly xml/xhtml/html formatting
+
+ * 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_Format_Shared
+ require SiSU_lib + '/defaults'
+ include SiSU_Viz
+ class CSS_Format
+ def initialize(content=nil,id=nil,ocnd='',ocns='',lv='',hname=nil)
+ content.gsub!(/<:i[12]>/,'')
+ @content=content
+ @id=@ocn=id
+ @ocnd,@ocns=ocnd,ocns
+ @lv=@notenumber=lv.to_s
+ @hname=hname.to_s
+ @tab="\t"
+ # lots introduced to do html tables in db
+ @@tablehead,@@tablefoot=[],[]
+ @vz=SiSU_Env::Get_init.instance.skin
+ end
+ def paragraph
+ %{#{@tab*1}\n#{@tab*2}#@content\n#{@tab*1}
\n} << "\n"
+ end
+ def endnote
+ <
+#{@tab*2}#@notenumber. #@content
+#{@tab*1}
+GSUB
+ end
+ def lev_toc_hname
+ %{#{@tab*1}\n#{@tab*2}#@content\n#{@tab*1}
\n} << "\n"
+ end
+ def lev_toc
+ %{#{@tab*1}\n#{@tab*2}#@content\n#{@tab*1}
\n} << "\n"
+ end
+ def lev4_plus
+ %{#{@tab*1}\n#{@tab*2}#@content\n#{@tab*1}
\n} << "\n"
+ end
+ def lev4_minus
+ %{#{@tab*1}\n#{@tab*2}#@content\n#{@tab*1}
\n} << "\n"
+ end
+ def norm_comment
+ %{#{@tab*1}\n#{@tab*2}#@content\n#{@tab*1}
\n}
+ end
+ def norm
+ %{#{@tab*1}\n#{@tab*2}#@content\n#{@tab*1}
\n}
+ end
+ def indent1
+ %{#{@tab*1}\n#{@tab*2}#@content\n#{@tab*1}
\n}
+ end
+ def indent2
+ %{#{@tab*1}\n#{@tab*2}#@content\n#{@tab*1}
\n}
+ end
+ def para_table
+ %{}
+ end
+ def ocn
+ %{#{@tab*1}#@ocn
} << "\n"
+ end
+ def html_table # get rid of use html_table
+ @new_content=[]
+ @content.split(/\n/).each do |parablock|
+ m=parablock[//,1]
+ @@tablefoot</,'')
+ @@tablehead=1 if parablock =~//,
+ #%{ | \n} +
+ %{})
+ if parablock =~//
+ tablefoot=[]
+ @@tablefoot.each {|x| tablefoot << %{#{x} \n}}
+ @@tablefoot=[]
+ parablock.gsub!(//,
+ %{#{@vz.table_close}\n}) # +
+ #%{#{tablefoot}})
+ end
+ if @@tablehead == 1
+ if parablock =~/¡¡/
+ parablock.gsub!(/} +
+ %{\n} +
+ %{#{para_table}})
+ parablock.gsub!(/¡¡(\d+?)¡/,
+ %{ | } +
+ %{#{para_table}})
+ parablock.gsub!(/!>/, ' | ')
+ @@tablehead=0 #if parablock =~/!>/
+ end
+ parablock
+ else
+ parablock.gsub!(/} +
+ %{\n} +
+ %{#{para_table}})
+ parablock.gsub!(/¡¡(\d+?)¡/,
+ %{ | } +
+ %{#{para_table}})
+ parablock.gsub!(/!>/, ' | ')
+ parablock
+ end
+ @new_content << parablock
+ end
+ @new_content.join
+ end
+ end
+ class CSS_Format_generic #does CSS_Format in one definition, needs to be told about class, despite brevity of generic, easier to see structure with CSS_Format
+ def initialize(css_class='',content='',id=nil,ocnd=nil,ocns=nil,lv='',hname=nil)
+ @tab="\t"
+ @class=css_class
+ @content=content
+ @lv=@notenumber=lv.to_s
+ #@ocn=ocn.to_s
+ @hname=hname.to_s
+ @id=@ocn=id
+ end
+ def paragraph
+ css_class=%{class="#@class" }
+ if @ocn
+ id=%{id="#@ocn" }
+ type=%{type="substantive" }
+ else
+ id=%{id="none" }
+ type=%{type="comment" }
+ end
+ header=%{header="#@hname" } if @hname
+ %{#{@tab*1}\n#{@tab*2}#@content\n#{@tab*1} \n} << "\n"
+ end
+ def para
+ paragraph
+ end
+ end
+end
+__END__
+
--
cgit v1.2.3
|