add tagwall

2 files changed, 654 insertions, 0 deletions

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