drop tagwall from trunk

2 files changed, 0 insertions, 654 deletions

diff --git a/tw/lang/TW_base.php b/tw/lang/TW_base.php
deleted file mode 100644
index 0be6e1be8..000000000
--- a/tw/lang/TW_base.php
+++ /dev/null
@@ -1,471 +0,0 @@
-<?php

-/*

- * 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(stripos($val, "http://") === false)

-								{

-									if(stripos($val, "ftp://") === false)

-									    if(stripos($val, "email:") === false)
-										if(stripos($val, "https://") === false)
-										    if(stripos($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

-?>
diff --git a/tw/lang/TW_lang.php b/tw/lang/TW_lang.php
deleted file mode 100644
index 95c93b031..000000000
--- a/tw/lang/TW_lang.php
+++ /dev/null
@@ -1,183 +0,0 @@
-<?php

-/*

- * 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;

-	}

-}

-?>