From 9daf4133bf6f61cbe3787a46b021d261242a85f0 Mon Sep 17 00:00:00 2001
From: Andrew Dolgov <fox@bah.spb.su>
Date: Sat, 19 May 2007 08:34:02 +0100
Subject: add tagwall

---
 tw/lang/TW_base.php | 471 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 tw/lang/TW_lang.php | 183 ++++++++++++++++++++
 2 files changed, 654 insertions(+)
 create mode 100644 tw/lang/TW_base.php
 create mode 100644 tw/lang/TW_lang.php

(limited to 'tw/lang')

diff --git a/tw/lang/TW_base.php b/tw/lang/TW_base.php
new file mode 100644
index 000000000..ae84d6e8f
--- /dev/null
+++ b/tw/lang/TW_base.php
@@ -0,0 +1,471 @@
+<?
+/*
+ * tag|wall                                           | PHP Tag Filter |
+ * ---------------------------------------------------------------------
+
+   Copyright (C) 2002  Juraj 'HVGE' Durech
+   Copyright (C) 2002  www.designia.sk
+   
+   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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 
+   
+ * ---------------------------------------------------------------------
+ */
+
+/*
+ * $this->pt	text
+ * $this->pti	text index
+ */
+class TW_base		// TW_lang extends this class
+{
+	var $error;		// error module object
+	var $output;	// output module object
+	var $out;		// output string
+	
+	var $content_off;
+	
+	var $tags;			// relationships between tags
+	var $config;		// current configuration	(twParser::strip_tags())
+	var $config_tags;	// tags in current configuration
+	var $config_attr;	// attributes in current configuration
+	var $config_req_attr;	// required attributes
+		
+
+	var $TAG;
+	var $is_attributes;
+	var $ATTRIBUTES;		// index => array("atr","value")
+	var $ATTR;				// array(atr,value)
+	var $VALUE;
+	
+/********************************************************************************************
+ * BASE CONSTRUCTOR 
+ */
+	function TW_base()
+	{
+		global $tw_tag_relations;
+		
+		$this->stack();
+		$this->tags = &$tw_tag_relations;
+		$this->content_off = 0;
+	}
+/*
+ * BASE "DESTRUCTOR" (parser call this function if end of string is rached)
+ */
+	function base_end()
+	{
+		while( $tag = $this->stack_pop() )
+		{
+			$this->out .= $this->output->close( $tag );
+		}
+		return null;
+	}
+
+
+/********************************************************************************************
+ * TAG STACK implementation
+ */
+ 	var $Tstack;
+
+	function stack() 				{	$this->Tstack[0] = null;	}
+	function stack_push( $tag )		{	array_unshift( $this->Tstack, $tag );	}
+	function stack_pop()			{	return array_shift( $this->Tstack );	}
+	function stack_search( $tag )	{	return in_array( $tag, $this->Tstack );	}
+
+	function stack_top( $tag = null )
+	{
+		if( $tag )	return $this->Tstack[0] == $tag;
+		return $this->Tstack[0];
+	}
+
+
+
+
+/********************************************************************************************
+ *	S T A R T _ T A G _ f i l t e r			<tag atr=value>
+ *
+ */ 	
+ 	
+ 	function START_TAG_filter()
+ 	{
+		$tag = $this->TAG;
+		if( $tag == null )
+		{
+			//###### syntax error
+			return;
+		}
+		if( in_array($tag,$this->config_tags) )
+		{
+			//enabled tag
+
+			if(is_string($this->config_attr[$tag]))
+			{
+				$this->TAG = $tag = $this->config_attr[$tag];
+				//tag substitution warning
+			}
+			
+			// ------- perform attribute check -----------
+			
+			if($this->is_attributes)
+			{
+				if(!$this->config_attr[$tag])
+				{
+					$this->ATTRIBUTES = null;
+					// remove attribute warning
+				}
+				else
+				{
+					foreach( $this->ATTRIBUTES as $key => $attr )
+					{
+						if( ! in_array($attr[0], $this->config_attr[$tag] ) )
+						{
+							$this->ATTRIBUTES[$key][1] = null;
+							// remove attribute warning
+							continue;
+						}
+						
+						// --------- perform value check -----------
+						
+						if(($val = $attr[1])==null) continue;
+						if(($cmda = &$this->config[$tag][$attr[0]])==null) continue; //null - accept all values
+						switch($cmda[0] & 7)
+						{
+							case TW_URL:
+								// V0.1.2: fixed some fatal bugs, big thanx to fczbkk
+								//
+								// TODO: make better url check with parse_url()
+								
+								$val = strtolower($val);
+								if(strpos($val, "http://") === false)
+								{
+									if(strpos($val, "ftp://") === false)
+									    if(strpos($val, "email:") === false)
+										if(strpos($val, "https://") === false)
+										    if(strpos($val, "./") === false)	// local relative url
+											$val = "http://".$val;
+								}
+								$this->ATTRIBUTES[$key][1] = $val;
+								break;
+							
+							case TW_LINK:
+								//TODO: add link separator check here.
+								//      Do not use this attribute in config!
+								break;
+							
+							case TW_NUM:
+								if( $val >= $cmda[2] && $val <= $cmda[3] ) break;
+								$this->ATTRIBUTES[$key][1] = $cmda[1];
+								break;
+							
+							case TW_CASE:
+								if( !in_array($val, $cmda[2]) ) $this->ATTRIBUTES[$key][1] = $cmda[1];
+								break;
+						}
+					}
+				}
+			}
+			// check required attributes
+			if($this->config_req_attr[$tag])
+			{
+				if( $this->is_attributes )
+					foreach( $this->config_req_attr[$tag] as $required )
+					{
+						$req_found = 0;
+						foreach( $this->ATTRIBUTES as $val)
+							if( $val[0] == $required )
+							{
+								$req_found = 1;
+								break;
+							}
+						if($req_found) continue;
+						
+						switch(	$this->config[$tag][$required][0] & 7 )
+						{
+							case TW_LINK:
+							case TW_URL:
+								// error
+								break;
+							
+							default:
+								$this->ATTRIBUTES[$required] = array($required, $this->config[$tag][$required][1]);
+								break;
+						}
+					}
+				else
+				{
+					foreach( $this->config_req_attr[$tag] as $required )
+					{
+						switch(	$this->config[$tag][$required][0] & 7 )
+						{
+							case TW_LINK:
+							case TW_URL:
+								
+								// required tag error
+								
+								break;
+							
+							default:
+								$this->ATTRIBUTES[$required] = array($required, $this->config[$tag][$required][1]);
+								break;
+						}						
+					}
+				}
+					
+			}			
+			// cross tag removal algorithm
+			
+			$flag = $this->tags[$tag];
+			$top = $this->stack_top();
+			
+			if( $flag[2] != null )		// check if tag before is specified
+			{
+				// yes, tag before is specified, check relationship
+				if(! in_array($top, $flag[2]) )
+				{
+					if( $flag[0] & TW_OPT ) 
+					{
+						if( $top == $tag )
+						{
+							// End Tag is optional and current tag is the same as last tag (on stack).
+							// Close previos for XHTML compatibility and open new the same tag.
+							// Return, because no manipulation with stack is required.
+							$this->out .= $this->output->close( $tag );
+							$this->out .= $this->output->pair( $tag, $this->ATTRIBUTES );
+							return;
+						}
+						if( $this->stack_search($tag) )
+						{
+							// repair stack
+							while(($top = $this->stack_pop() ) != $tag )
+							{
+								/*if( !($this->tags[$top][0] & TW_OPT ) )
+								{
+									// auto close warning
+								}*/
+								$this->out .= $this->output->close( $top );
+							}
+							$this->stack_push($tag);
+							$this->out .= $this->output->close( $tag );
+							$this->out .= $this->output->pair( $tag, $this->ATTRIBUTES );
+							return;
+						}
+					}
+					// <th>...<td>  =>> <th>...</th><td>...	(<th> & <td> they have common parent tag (<tr>) )
+					if( $this->tags[$top][0] & TW_OPT )
+					{
+						if( $this->tags[$top][2] == $flag[2] )
+						{
+							$this->out .= $this->output->close( $this->stack_pop() );
+							$this->out .= $this->output->pair( $tag, $this->ATTRIBUTES );
+							$this->stack_push( $tag );
+							return;
+						}
+					}
+					// invalid relation between tags #######
+					return;
+				}
+				// valid relationship
+			}
+			if( $flag[0] & TW_NOP )
+			{
+				//tag without End Tag <br />
+				$this->out .= $this->output->single( $tag, $this->ATTRIBUTES );
+			}
+			else
+			{
+				//Tag with End Tag, push to stack
+				if( ($top == $tag) && ($flag[0] & TW_OPT) )
+				{
+					// '<p><p>' => '<p></p><p>'
+					$this->out .= $this->output->close( $tag );
+					$this->out .= $this->output->pair( $tag, $this->ATTRIBUTES );
+					return;
+				}
+				$this->out .= $this->output->pair( $tag, $this->ATTRIBUTES );
+				$this->stack_push( $tag );
+			}
+			return;
+		}
+		else
+		{
+			//disabled tag (or not supported) ######
+			return;
+		}
+ 	}
+ 	
+/********************************************************************************************
+ *	E N D _ T A G _ f i l t e r				</tag>	
+ *
+ */
+ 	function END_TAG_filter()
+ 	{
+		$tag = $this->TAG;
+		if( $tag == null ) 
+		{
+			// </>
+			if ($tag = $this->stack_pop() )
+			{
+				$this->out .= $this->output->close($tag);
+				return;
+			}
+			else
+			{
+				// kunda underflow :)
+				return;
+			}
+		}
+		if(in_array($tag,$this->config_tags))
+		{
+			// enabled tag
+			if(is_string($this->config_attr[$tag]))
+			{
+				$this->TAG = $tag = $this->config_attr[$tag];
+				//tag substitution warning
+			}
+
+			$top = $this->stack_top( $tag );
+			if( $top )
+			{
+				$this->out .= $this->output->close( $tag );
+				$this->stack_pop();
+				return;
+			}
+			
+			if( $this->stack_search($tag) )
+			{
+				// closing cross tags
+				while( ($top = $this->stack_pop()) != $tag )
+				{
+					/*if( !($this->tags[$top][0] & TW_OPT ) )
+					{
+						// auto close warning
+					}*/
+					$this->out .= $this->output->close( $top );
+				}
+				$this->out .= $this->output->close( $tag );
+			}
+			else
+			{
+				// ###### cross tag error
+				return;
+			}
+		}
+		// drop out warning 		
+ 	}
+
+
+/*
+ * THERE ARE STATE IN, OUT & NEW FUNCTIONS
+ *
+ */
+ 
+/********************************************************************************************
+ * STATE T_begin 	'<'
+ */
+	function T_begin_in()
+	{
+		$this->tag_position = $this->pti;
+		$this->TAG = null;
+	}
+
+	// --- MAIN TAG-FILTER FUNCTION ---
+
+	function T_begin_out($word)
+	{
+		$this->START_TAG_filter();
+	}
+
+/********************************************************************************************
+ * STATE TC_begin 	'</'
+ */
+	function T_Cbegin_in()
+	{
+		$this->tag_position = $this->pti;
+		$this->TAG = null;
+	}
+
+	// TAG CLOSE function
+	//
+	function T_Cbegin_out($word)
+	{
+		$this->END_TAG_filter();
+	}
+
+/********************************************************************************************
+ * STATE T_gettag 	'tagname'
+ */
+	function T_gettag_in() 
+	{
+		$this->is_attributes = 0;
+		$this->ATTRIBUTES = null;
+		return;
+	}
+
+	function T_gettag_new($word)	{	$this->TAG = strtolower($word);	}	
+	function T_gettag_out($word)	{ return; }
+
+/********************************************************************************************
+ * STATE A_begin	'__atr...'
+ */
+	function A_begin_in()	{		$this->ATTR = null;	}
+	function A_begin_new($word)	{	$this->ATTR[0] = strtolower($word);	}
+	function A_begin_out($word)
+	{
+		if( $this->is_attributes )
+		{
+			foreach( $this->ATTRIBUTES as $akey => $aval )
+			{
+			    if($this->ATTR[0] == $aval[0])
+			    {
+				// duplicate warning
+				$this->ATTRIBUTES[$akey] = $aval;
+				return;
+			    }
+			}
+		}
+		else
+		{
+			$this->is_attributes = 1;
+		}
+		$this->ATTRIBUTES[] = $this->ATTR;
+	}
+
+/********************************************************************************************
+ * STATE V_begin	'atr...'
+ */
+	function V_begin_in()	{		$this->VALUE = null;	}
+	function V_begin_out($word)	{	$this->ATTR[1] = $this->VALUE;	}
+
+/********************************************************************************************
+ * STATE VALUE1
+ */
+ 	function VALUE1_in() { return; }
+ 	function VALUE1_out($word) { $this->VALUE = substr($word,0,strlen($word)-1); }
+
+/********************************************************************************************
+ * STATE VALUE2
+ */
+ 	function VALUE2_in() { return; }
+ 	function VALUE2_out($word) 
+ 	{
+ 		$this->VALUE = str_replace("\"", "&#34", substr($word, 0, strlen($word)-1) );
+	}
+/********************************************************************************************
+ * STATE VALUE3
+ */
+ 	function VALUE3_in() { return; }
+ 	function VALUE3_out($word) { $this->VALUE = $word; }
+ 	
+ 	
+} // END class TW_base
+?>
\ No newline at end of file
diff --git a/tw/lang/TW_lang.php b/tw/lang/TW_lang.php
new file mode 100644
index 000000000..2c962213a
--- /dev/null
+++ b/tw/lang/TW_lang.php
@@ -0,0 +1,183 @@
+<?
+/*
+ * tag|wall                                           | PHP Tag Filter |
+ * ---------------------------------------------------------------------
+
+   Copyright (C) 2002  Juraj 'HVGE' Durech
+   Copyright (C) 2002  www.designia.sk
+   
+   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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 
+   
+ * ---------------------------------------------------------------------
+ * TW - based on SHL Language File
+ * 
+ * Spolocne so SHL
+ * - kompatibilita s FSHL generatorom 0.4.x
+ * - zakladna kostra stavoveho diagramu je spolocna
+ *
+ * Rozdiely voci SHL
+ * - polia maju iny vyznam pretoze spracuva iny stavovy automat
+ * - vsetky stavy sa volaju rekurentne
+ *
+ * function STATE_in()  - vola sa pri vstupe do stavu (Ovplyvnuje flag PF_XIO)
+ * function STATE_out() - vola sa pri opusteni stavu (_RET) (Ovplyvnuje flag PF_XIO)
+ *                        tiez hned po navrate z rekurzie flag PF_XDONE sposobi zavolanie
+ *                        STATE_out() a opustenie aktualneho stavu (simulovany _RET)
+ * function STATE_new() - vola sa pri zmene stavu (Ovplyvnuje flag PF_XNEW)
+ */ 
+class TW_lang
+{
+	var $states;
+	var $initial_state;
+	var $keywords;
+	var $version;
+	var $signature;
+
+	function TW_lang()
+	{
+		$this->signature = "TW";
+		$this->version = "1.0";
+		$this->initial_state="OUT";
+		$this->states = 
+		array
+		(
+		"OUT" => array (
+				array(
+						"<"		=> array("T_tagWall",0),
+						
+						//"&"		=> array("VChar",0),		// validate char (currently not implemented in base)						
+						),
+
+				PF_CLEAN,		// PF_CLEAN - znaky sa forwarduju na vystup
+				0,0
+				),
+
+		"T_tagWall" => array (
+				array(
+						"ALPHA" => array("T_begin",1),		// normal tag
+						"/"		=> array("T_Cbegin",0),		// close tag
+						"<"		=> array("T_tagWall",1),	// '<<<<<<<<' fix (faster than _RET)
+						"!--"	=> array("HTML_comment",0),
+						"_ALL"	=> array("_RET",0),			// '<?' other fixes
+						),
+			
+				PF_XDONE,
+				0,0
+				),
+
+
+		"T_Cbegin" => array (
+				array(
+						"ALPHA"	=> array("T_gettag",1),
+						"_ALL"	=> array("_RET",0),
+						),
+				PF_XIO | PF_XDONE,						0,0
+				),
+
+
+		"T_begin" => array (
+				array(
+						"ALPHA"	=> array("T_gettag",1),
+						"_ALL"	=> array("_RET",0),
+						),
+				
+				PF_XIO | PF_XDONE,						0,0
+				),
+
+			
+		"T_gettag" => array (
+				array(
+						"!ALNUM"=> array("T_in",1),
+						),
+						
+				PF_XIO | PF_XDONE | PF_XNEW,			0,0
+				),
+
+
+		"T_in" => array(
+				array(
+						"ALPHA"	=> array("A_begin",1),	// char back to stream
+						">"		=> array("_RET",0),
+						"/>"	=> array("_RET",0),		// pozor na spracovanie v T_begin
+						),
+				
+				0,0,0
+				),
+
+		"A_begin" => array (
+				array(
+						"!ALPHA"=> array("V_begin",1),
+						">"		=> array("_RET",1),		// vracia string do streamu
+						"/>"	=> array("_RET",1),		// pozor na spracovanie v TAGbegin
+						),
+				
+				PF_XIO | PF_XDONE | PF_XNEW ,			0,0
+				),
+
+		// this is wide attribute=value implementation
+		"V_begin" => array (
+				array(
+						'"'		=> array("VALUE1",0),
+						"'"		=> array("VALUE2",0),
+						"ALNUM" => array("VALUE3",1),
+
+						">"		=> array("_RET",1),
+						"/>"	=> array("_RET",1),
+						),
+
+				PF_XIO | PF_XDONE,						0,0
+				),
+			
+		// "DOUBLEQUOTED VALUE"
+		"VALUE1" => array(
+				array(
+						'"'		=> array("_RET",0),
+						),
+				PF_XIO,									0,0
+				),
+
+		// 'SINGLEQUOTED VALUE'
+		"VALUE2" => array(
+				array(
+						"'"		=> array("_RET",0),
+						),
+				PF_XIO,									0,0
+				),
+
+		// UNQUOTEDVALUE99
+		"VALUE3" => array(
+				array(
+/*						"_" => array ("VALUE3",0),	//Uncomment for better HTML4 compatibility (not recommended)
+						"." => array ("VALUE3",0), 
+*/
+						"-" => array ("VALUE3",0),
+						"!ALNUM"=> array("_RET",1),
+						),
+				PF_XIO,									0,0
+				),
+
+		// all comment content will be removed
+		"HTML_comment" => array(
+				array(
+						"-->"	=> array("_RET",0),
+						),
+				0,0,0
+				),
+		);
+		
+		$this->keywords=null;
+	}
+}
+?>
\ No newline at end of file
-- 
cgit v1.2.3