servers/ttrss
1
0
Fork 0
mirror of https://tt-rss.org/git/tt-rss.git synced 2024-06-30 12:30:52 +02:00
Code Issues Releases Wiki Activity

add tagwall

Browse Source
This commit is contained in:
Andrew Dolgov 2007-05-19 08:34:02 +01:00
parent ff15256d60
commit 9daf4133bf
15 changed files with 1984 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
tw/error/FOO_error.php Normal file
View File

@ -0,0 +1,43 @@
<?
/*
* 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
* ---------------------------------------------------------------------
* tag|wall error module
*
* description:
* - this is default error module.
*/
class FOO_error extends TW_errors
{
function FOO_error($options = 0)
{
$this->TW_errors($options);
}
function add($errval, $position, $show_code, $param1=null, $param2=null )
{
$this->ErrorArray["TW_err_".$this->identifier++] = array($errval, $param1, $param2, $position, $show_code);
if($errval & 0xff00) $this->IsError = 1;
return null;
}
}
?>

94
tw/error/LINK_error.php Normal file
View File

@ -0,0 +1,94 @@
<?
/*
* 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
* ---------------------------------------------------------------------
* tag|wall error module
*
* description:
* - this module appending automatic links and colored piece of bad code.
*
* - Module using following CSS classes (you must define it in your CSS stylesheet)
*
* .tw-err-int - internal error (in output string)
* .tw-err-err - standard error
* .tw-err-war - warning
* .tw-err-com - comment
*
* .tw-err-int-l - internal error (in error list)
* .tw-err-err-l - standard error
* .tw-err-war-l - warning
* .tw-err-com-l - comment
*/
class LINK_error extends TW_errors
{
function LINK_error($options = 0)
{
$this->TW_errors($options);
}
function add($errval, $position, $show_code, $param1=null, $param2=null )
{
$err_id = "TW_err_".$this->identifier++;
$this->ErrorArray[$err_id] = array($errval, $param1, $param2, $position, $show_code);
if($errval & 0xff00) $this->IsError = 1;
// append errors and warnings
if(($errval & 0x0ff0) && $show_code != null )
return '<a name="'.$err_id.'"><span class="'.$this->get_error_class($errval).'">'.$show_code.'</span></a>';
return null;
}
// You can call this method from your project and create nice list of errors.
//
// $lang - error string pack
// $mask - any combination of following masks:
// 0xf000 - internal,
// 0x0f00 - errors,
// 0x00f0 - warnings,
// 0x000f - comments
//
function create_list (&$lang, $mask = 0x0ff0)
{
$errors = $this->get_by_mask($mask);
$out = "<ul>";
foreach($errors as $key => $value)
{
$errno = $value[TWE_ERRNO];
$piece = '<span class="'.$this->get_error_class($errno).'">'.$value[TWE_CODE].'</span>';
$list ='<a href="#'.$key.'">'.$this->get_error_text($key,$lang).$piece.'</a>';
$out .= '<li class="'.$this->get_error_class($errno).'-l">'.$list.'</li>';
}
return $out."</ul>";
}
function get_error_class ($error)
{
if($error&0xf000) return "tw-err-int";
if($error&0x0f00) return "tw-err-err";
if($error&0x00f0) return "tw-err-war";
return "tw-err-com";
}
}
?>

69
tw/error/__Template_error.php Normal file
View File

@ -0,0 +1,69 @@
<?
/*
* tag|wall ver 0.1.0 | 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
* ---------------------------------------------------------------------
* tag|wall error module
*
* description:
* - TODO: add module description
*
* output modifications:
* - TODO: add your output modifications here
*/
class ???_error extends TW_errors
{
// TODO: add module depended variables here
// Class constructor
// NOTE: parser calling this with his options. See twParser constructor.
//
function ???_error($options = 0)
{
// call parent class constructor
$this->TW_errors($options);
// TODO: add your own module initializations here
}
// You must implement your own add method.
function add($errval, $position, $show_code, $param1=null, $param2=null )
{
$err_id = "TW_err_".$this->identifier++;
//
// This is basic error implementation. Modify this code only if you really need it.
//
$this->ErrorArray[$err_id] = array($errval, $param1, $param2, $position, $show_code);
if($errval & 0xff00) $this->IsError = 1;
// TODO: create your output additions here, and return it as string
return null;
}
// TODO:
// You can implement ohther methods here.
// For example: special error filters, post-parsing functions for generating
// error lists, etc...
}
?>

59
tw/filter-setup/paranoya.php Normal file
View File

@ -0,0 +1,59 @@
<?
// WARNING:
//
// All tags used in configuration must be defined in tw/tw-tags.php file too.
//
$tw_paranoya_setup = array(
"a" => array(
"href" => array( TW_RQ_URL ), // value is required url
"name" => array( TW_RQ_LINK ), // value is link (link+href combination must be fixed in base)
"title" => null,
),
"hr" => null, // without attributes
"br" => null,
"img" => array(
"width" => array( TW_NUM, 80, 60, 120 ), // 80 - default, number must be in range <60,120>
"height"=> array( TW_NUM, 80, 60, 120 ),
"src" => array( TW_RQ_URL ),
"title" => null,
"border"=> array( TW_RQ_NUM, 0, 0, 0),
),
"p" => array(
// null - default value (null = remove attr if value not found in case array)
"class" => array( TW_CASE, null, array("par1","par2","par3") ),
),
"b" => "strong", // tag substitution <b> -> <strong>
"strong" => null, // new tag must be configured too
"i" => null,
"u" => null,
"div" => array(
"title" => null,
),
"span" => array(
"class" => array( TW_CASE, null, array("my-class1","my-class2","my-class3") ),
),
"blockquote" => null,
"h1" => null,
"h2" => null,
"h3" => null,
"table" => null,
"td" => null,
"tr" => null,
"th" => null,
"ul" => null,
"ol" => null,
"li" => null,
"dl" => null,
"dt" => null,
"dd" => null,
);
?>

471
tw/lang/TW_base.php Normal file
View File

@ -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
?>

183
tw/lang/TW_lang.php Normal file
View File

@ -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;
}
}
?>

57
tw/localization/EN_errors.php Normal file
View File

@ -0,0 +1,57 @@
<?
/*
* 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
* ---------------------------------------------------------------------
* tag|wall error strings
*
* NOTE:
* TW not using this file directly. You can include it to your project
* at your opinion. Then you can use method TW_errors::get_error_text()
* for getting error texts.
*
* Please correct my stupid english :)
*/
$tw_error_strings = array(
// comments & tips
TWE_OK => null,
TWE_VERSION => "Versions: parser V %s, language V%s",
TWE_CREDITS => "tag|wall: code Juraj Durech (hvge@cauldron.sk).",
TWE_NOTE => "%s",
// warnings
TWE_STACK_UNDERFLOW => "Stack underflow, tag '%s' was dropped out.",
TWE_STACK_NOT_EMPTY => "There are some unclosed tags on stack.",
TWE_UNEXPECTED_EOST => "Unexpected end of stream.",
TWE_UNEXPECTED_QUOTE => "Unexpected quote.",
// errors
TWE_SYNTAX => "HTML syntax error.",
TWE_TOO_MANY_ATTRS => "Too many attributes in tag '%s'.",
// internal errors
TWE_FILE_NOT_FOUND => "File '%s' not found.",
TWE_BAD_SIGNATURE => "Language '%s' have bad signature '%s'.",
TWE_LANG_NOT_FOUND => "Language '%s' not found.",
);
?>

74
tw/output/HL_DEBUG_output.php Normal file
View File

@ -0,0 +1,74 @@
<?php
/*
* tag|wall | PHP Tag Filter |
* ---------------------------------------------------------------------
Copyright (C) 2002 Juraj 'HVGE' Durech
Copyright (C) 2002 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
* ---------------------------------------------------------------------
* HL_DEBUG_output.php xhtml debug output module (highlight tags)
*/
class HL_DEBUG_output
{
function HL_DEBUG_output() { return; }
// input: string, array()
function pair ($tag, &$attributes)
{
if($attributes == null)
return $this->highlight( "<$tag>" );
$attr = null;
foreach ($attributes as $value)
{
if($value[1]) $attr .= ' '.$value[0].'="'.$value[1].'"';
}
return $this->highlight( "<$tag$attr>" );
}
function single ($tag, &$attributes)
{
if($attributes == null)
return $this->highlight( "<$tag />" );
$attr = null;
foreach ($attributes as $value)
{
if($value[1]) $attr .= $value[0].'="'.$value[1].'" ';
}
return $this->highlight( "<$tag $attr/>" );
}
// template for end tags
function close ($tag)
{
return $this->highlight( "</$tag>" );
}
function template_end() { return null; }
function highlight($string)
{
$string = str_replace("&","&amp",$string);
return '<span style="background-color:yellow">'.str_replace("<","&lt;",$string).'</span>';
}
} //END class HTML_output
?>

67
tw/output/HTML_output.php Normal file
View File

@ -0,0 +1,67 @@
<?php
/*
* tag|wall | PHP Tag Filter |
* ---------------------------------------------------------------------
Copyright (C) 2002 Juraj 'HVGE' Durech
Copyright (C) 2002 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
* ---------------------------------------------------------------------
* HTML_output.php html output module
*/
class HTML_output
{
function HTML_output() { return; }
// input: string, array()
function pair ($tag, &$attributes)
{
if($attributes == null)
return "<$tag>";
$attr = null;
foreach ($attributes as $value)
{
if($value[1]) $attr .= ' '.$value[0].'="'.$value[1].'"';
}
return "<$tag$attr>";
}
function single ($tag, &$attributes)
{
if($attributes == null)
return "<$tag>";
$attr = null;
foreach ($attributes as $value)
{
if($value[1]) $attr .= ' '.$value[0].'="'.$value[1].'"';
}
return "<$tag$attr>";
}
// template for end tags
function close ($tag)
{
return "</$tag>";
}
function template_end() { return null; }
} //END class HTML_output
?>

67
tw/output/XHTML_output.php Normal file
View File

@ -0,0 +1,67 @@
<?php
/*
* tag|wall | PHP Tag Filter |
* ---------------------------------------------------------------------
Copyright (C) 2002 Juraj 'HVGE' Durech
Copyright (C) 2002 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
* ---------------------------------------------------------------------
* XHTML_output.php xhtml output module
*/
class XHTML_output
{
function XHTML_output() { return; }
// input: string, array()
function pair ($tag, &$attributes)
{
if($attributes == null)
return "<$tag>";
$attr = null;
foreach ($attributes as $value)
{
if($value[1]) $attr .= ' '.$value[0].'="'.$value[1].'"';
}
return "<$tag$attr>";
}
function single ($tag, &$attributes)
{
if($attributes == null)
return "<$tag />";
$attr = null;
foreach ($attributes as $value)
{
if($value[1]) $attr .= $value[0].'="'.$value[1].'" ';
}
return "<$tag $attr/>";
}
// template for end tags
function close ($tag)
{
return "</$tag>";
}
function template_end() { return null; }
} //END class XHTML_output
?>

117
tw/tw-config.php Normal file
View File

@ -0,0 +1,117 @@
<?
/*
* tag|wall | PHP Tag Filter|
* ---------------------------------------------------------------------
Copyright (C) 2002 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-config.php
*
*/
// paths
define ('TW_PATH', 'tw/');
define ('TW_LANG', TW_PATH.'lang/');
define ('TW_CACHE', TW_PATH.'tw_cache/');
define ('TW_SETUP', TW_PATH.'filter-setup/');
define ('TW_ERRMODULE', TW_PATH.'error/');
define ('TW_OUTMODULE', TW_PATH.'output/');
// tag flags
define ('TW_NOP', 0x0001);
define ('TW_OPT', 0x0002);
define ('TW_OVR', 0x0004);
define ('TW_DUP', 0x0008);
// attr filter commands
define ('TW_ALL', 0);
define ('TW_URL', 1); // value is url
define ('TW_LINK', 2); // value is link
define ('TW_NUM', 3); // value must be between
define ('TW_CASE', 4); // value must be in case of..
define ('TW_REQ', 8); // required attribute
define ('TW_RQ_ALL', TW_REQ);
define ('TW_RQ_URL', 1 | TW_REQ);
define ('TW_RQ_LINK', 2 | TW_REQ);
define ('TW_RQ_NUM', 3 | TW_REQ);
define ('TW_RQ_CASE', 4 | TW_REQ);
if(!defined('FSHL_WITH_TW_DEFINED'))
{
define ('FSHL_WITH_TW_DEFINED', 1);
// debug modes (on - 1, off - 0)
// only shlParser supports DEBUG modes
define ('DEBUG_STATE', 0); // enable debug states
define ('DEBUG_REPORT', 0); // enable parser error reports and infos
// fshlParser() 'option' flags (not used at this time)
define ('P_DISABLE_RECURSION', 0x0001);
define ('P_DISABLE_NEWLANG', 0x0002);
define ('P_DISABLE_EXECUTE', 0x0004);
define ('P_DISABLE_EXIT', 0x0008);
define ('P_DEFAULT', 0x0000);
// F/SHL state flags
define ('PF_VOID', 0x0000);
define ('PF_KEYWORD', 0x0001);
define ('PF_RECURSION', 0x0004);
define ('PF_NEWLANG', 0x0008);
define ('PF_EXECUTE', 0x0010); // not used
// TW state flags
define ('PF_CLEAN', 0x0100);
define ('PF_XIO', 0x0200);
define ('PF_XDONE', 0x0400);
define ('PF_XNEW', 0x0800);
// state field indexes
define ('XL_DIAGR', 0);
define ('XL_FLAGS', 1);
define ('XL_CLASS', 2);
define ('XL_DATA', 3);
define ('XL_DSTATE', 0);
define ('XL_DTYPE', 1);
// internal and special states
define ('P_RET_STATE', '_RET');
define ('P_QUIT_STATE', '_QUIT');
// group delimiters
$group_delimiters=array(
"SPACE", "!SPACE",
"NUMBER", "!NUMBER",
"ALPHA", "!ALPHA",
"ALNUM", "!ALNUM",
"HEXNUM", "!HEXNUM",
"_ALL",
// TODO: Add special language depended groups here.
// See function shlParser::isdelimiter()
// and fshlGenerator::make_isdx(). You must
// implement your new delimiters...
"PHP_DELIM",
);
$fshl_signatures=array("SHL","TW");
} //end if(!defined())
?>

118
tw/tw-errors.php Normal file
View File

@ -0,0 +1,118 @@
<?
/*
* 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-errors.php
*
* This file containing basic error definitions and basic error handling class.
*
*/
// comments
define('TWE_OK', 0x0000); // null
define('TWE_VERSION', 0x0001); // param1=parser_version, param2=lang_version
define('TWE_NOTE', 0x0002); // param2=note / tips / etc...
define('TWE_CREDITS', 0x0003); // null
// warnings
define('TWE_STACK_UNDERFLOW', 0x0010); // param1=tag_name
define('TWE_STACK_NOT_EMPTY', 0x0020); // param1=tags, stack not empty
define('TWE_UNEXPECTED_EOST', 0x0030); // unexpected end of stream (tag completed automatically)
define('TWE_UNEXPECTED_QUOTE', 0x0040); // atr="value>...
// errors
define('TWE_SYNTAX', 0x0100); // null, HTML syntax error (for future strict bases)
define('TWE_TOO_MANY_ATTRS', 0x0200); // tag_name, too many attrs in tag ..
// internal errors
define('TWE_FILE_NOT_FOUND', 0x1000); // param1 = file
define('TWE_BAD_SIGNATURE', 0x2000); // param1 = language, param2 = signature
define('TWE_LANG_NOT_FOUND', 0x3000); // param1 = language
// indexes to ErrorArray
define('TWE_ERRNO', 0); // error value
define('TWE_PARAM1', 1); // parameter 1
define('TWE_PARAM2', 2); // parameter 2
define('TWE_POSIT', 3); // position in source
define('TWE_CODE', 4); // piece of bad code
class TW_errors
{
var $IsError;
var $ErrorArray;
var $identifier;
/* class constructor
*/
function TW_errors($options = 0)
{
$this->IsError = 0;
$this->ErrorArray = null;
$this->identifier = 0;
}
function is_error() { return $this->IsError; }
function get_err_array() { return $this->ErrorArray; }
function get_comments() { return $this->get_by_mask(0x000f); }
function get_warnings() { return $this->get_by_mask(0x00f0); }
function get_errors() { return $this->get_by_mask(0x0f00); }
function get_internal() { return $this->get_by_mask(0xf000); }
function get_by_mask($mask)
{
$ErrTemp = null;
foreach($this->ErrorArray as $key => $value)
{
if($value[TWE_ERRNO] & $mask) $ErrTemp[$key] = $value;
}
return $ErrTemp;
}
/* Input:
* id: error id,
* lang: error_language_array
*
* Outupt:
* error text or null
*/
function get_error_text ( $id, &$lang )
{
if( in_array($id, $this->ErrorArray) )
{
$errno = $this->ErrorArray[$id][TWE_ERRNO];
if( in_array($errno,$lang) )
return sprintf( $lang[$errno],
$this->ErrorArray[$id][TWE_PARAM1],
$this->ErrorArray[$id][TWE_PARAM2] );
else
return sprintf( "Please translate errno 0x%x.",$errno );
}
return null;
}
} // END class TW_errors
?>

97
tw/tw-tags.php Normal file
View File

@ -0,0 +1,97 @@
<?
/*
* 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-tags.php - this file contains common tag definitions and
* relationships
*
* WARNING: This is not filter configuration. Relationships are used
* for correct cross tag fixing.
* ---------------------------------------------------------------------
* Tag flags:
*
* TW_DUP - remove duplicates ( not implemented )
* <i>...<i>:::</i></i> => <i>...:::</i>
*
* TW_NOP - tag without end tag
* <br /><hr /> etc..
*
* TW_OPT - tag have optional end tag ( optional end tag is closed automatically )
* <li>line1<li>line2 => <li>line1</li><li>line2</li>
*
* CONT.OFF - content off ( not implemented )
* <tag>content-off<tag2>content-on</tag1></tag> => <tag><tag2>content-on</tag1></tag>
*
* REQ.TAG - required tag in stack
* <ul><li>... this is correct
* <p><li>... this is not correct, result is <p>...
*/
$tw_tag_relations = array(
// TAG FLAG CONT.OFF REQ. TAG
"a" => array(0, 0, null),
"b" => array(0, 0, null),
"blockquote"=> array(0, 0, null),
"big" => array(0, 0, null),
"br" => array(TW_NOP, 0, null),
"code" => array(0, 0, null),
"dl" => array(0, 0, null),
"dt" => array(TW_OPT, 0, array("dl")),
"dd" => array(TW_OPT, 0, array("dl")),
"div" => array(0, 0, null),
"em" => array(0, 0, null),
"h1" => array(0, 0, null),
"h2" => array(0, 0, null),
"h3" => array(0, 0, null),
"h4" => array(0, 0, null),
"h5" => array(0, 0, null),
"h6" => array(0, 0, null),
"hr" => array(TW_NOP, 0, null),
"i" => array(0, 0, null),
"img" => array(TW_NOP, 0, null),
"ul" => array(0, 1, null),
"ol" => array(0, 1, null),
"li" => array(TW_OPT, 0, array("ul","ol")),
"object" => array(0, 1, null),
"p" => array(TW_OPT, 0, null),
"pre" => array(0, 0, null),
"small" => array(0, 0, null),
"span" => array(0, 0, null),
"strong" => array(0, 0, null),
"style" => array(0, 1, null),
"sub" => array(0, 0, null),
"sup" => array(0, 0, null),
"table" => array(0, 1, null),
"caption" => array(0, 0, array("table")),
"tbody" => array(0, 0, array("table")),
"tfoot" => array(0, 0, array("table")),
"thead" => array(0, 0, array("table")),
"tr" => array(TW_OPT, 1, array("table","tbody")),
"td" => array(TW_OPT, 0, array("tr")),
"th" => array(TW_OPT, 0, array("tr")),
"u" => array(0, 0, null),
// TODO: add your specific tags here...
);
?>

291
tw/tw.php Normal file
View File

@ -0,0 +1,291 @@
<?
/*
* tag|wall ver 0.1.4 | PHP Tag Filter |
* ---------------------------------------------------------------------
Copyright (C) 2002 Juraj 'HVGE' Durech
Copyright (C) 2002 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.php
*
* main tag|wall parser core
* ---------------------------------------------------------------------
*
*/
define ("TW_PARSER_VERSION", "0.1.4");
require_once(TW_PATH."tw-tags.php");
require_once(TW_PATH."tw-errors.php");
class twParser
{
// class variables
var $text, $textlen, $textpos;
var $lang, $options;
var $output, $err, $content_off;
var $out;
var $_trans, $_flags, $_data, $_delim, $_class, $_keywords;
var $_ret,$_quit;
var $base, $_names;
// -----------------------------------------------------------------------
// USER LEVEL functions
//
/* twParser CLASS CONSTRUCTOR
*
* input:
* string $language - TW language class name ( see directory tw/lang/ )
* int $options - parser options (not used)
*/
function twParser(
$language = "TW",
$options = P_DEFAULT
)
{
$_lang = $language."_lang";
$_base = $language."_base";
require_once (TW_LANG."$_base.php");
require_once (TW_CACHE."$_lang.php");
$this->lang = new $_lang;
$this->base = $_base;
$this->options = $options;
$this->_trans = &$this->lang->trans;
$this->_flags = &$this->lang->flags;
$this->_delim = &$this->lang->delim;
$this->_ret = &$this->lang->ret;
$this->_quit = &$this->lang->quit;
$this->_names = &$this->lang->names;
$this->content_off = &$this->lang->content_off;
}
/* STRIP TAGS
*
* input:
* string $text - input string
* array $configuration - filter configuration array ( see files in directory tw/filter-setup/ )
* string $output_module - output module name ( tw/output )
* string $error_module - error module name ( tw/error )
* int $offset - offset in $text
*
* output:
* parsed string
*/
function strip_tags (
$text,
&$configuration,
$output_module = "XHTML",
$error_module = "FOO",
$offset = 0
)
{
// open modules
$_err = $error_module."_error";
require_once (TW_ERRMODULE."$_err.php");
$this->err = new $_err( $this->options );
$_out = $output_module."_output";
require_once (TW_OUTMODULE."$_out.php");
$this->output = new $_out;
// parser init
$this->text = &$text;
$this->textlen = strlen($text);
$this->text .= "IMNOTREALLYOPTIMISTIC";
$this->textpos = $offset;
$this->out = null;
// FSHL pointers init
$this->lang->pt = &$this->text;
$this->lang->pti = &$this->textpos;
$this->lang->out = &$this->out;
$this->lang->err = &$this->err;
$this->lang->output = &$this->output;
// base init
$base = &$this->base;
$this->lang->$base();
$this->lang->config_tags = array_keys($configuration);
// load initial configuration
foreach($configuration as $tag => $attributes)
{
$this->lang->config_req_attr[$tag] = null;
if(is_array($attributes))
{
$this->lang->config_attr[$tag] = array_keys($configuration[$tag]);
foreach($attributes as $attr => $command)
{
if( $command )
if( $command[0] & TW_REQ ) $this->lang->config_req_attr[$tag][] = $attr;
}
}
else
{
$this->lang->config_attr[$tag] = $attributes;
}
}
$this->lang->config = &$configuration;
// start parser
$this->parse_string ( $this->lang->initial_state );
$this->out .= $this->lang->base_end();
$this->out .= $this->output->template_end();
return $this->out;
}
function get_position() { return $this->textpos; }
function get_out() { return $this->out; }
// error wrapper
function is_error() { return $this->err->is_error(); }
function get_err_array() { return $this->err->get_err_array(); }
function get_comments() { return $this->err->get_by_mask(0x000f); }
function get_warnings() { return $this->err->get_by_mask(0x00f0); }
function get_errors() { return $this->err->get_by_mask(0x0f00); }
function get_internal() { return $this->err->get_by_mask(0xf000); }
function get_by_mask($mask) { return $this->err->get_by_mask($mask); }
function get_error_text ( $id, &$lang ) { return $this->err->get_error_text ( $id, &$lang ); }
// ---------------------------------------------------------------------------------
// LOW LEVEL functions
//
// main parser function
//
function parse_string ($state)
{
$flags = $this->_flags[$state];
$statename_n = $this->_names[$state]."_new";
// perform IN function if required
if( $flags & PF_XIO )
{
$statename_i = $this->_names[$state]."_in";
$statename_o = $this->_names[$state]."_out";
$this->lang->$statename_i();
}
$stateword = null;
while( ($word = $this->getword("isd$state")) != null )
{
if(is_array($word))
{
// word is delimiter
$newstate = $this->_trans[$state][$word[0]][XL_DSTATE];
// char back to stream (CB2S) if required
if( $this->_trans[$state][$word[0]][XL_DTYPE] )
{
if( $newstate == $state )
{
// If it is the same state, CB2S flag have different significance
// re-initialize state (call IN function)
$stateword = null;
if( $flags & PF_XIO ) $this->lang->$statename_i();
continue;
}
$this->textpos -= strlen($word[1]);
}
else
{
$stateword .= $word[1]; // add new parsed word to stateword
}
if( $newstate == $this->_ret ) // newstate is _RET from recursion
{
// perform NEW function if required
if( $flags & PF_XNEW ) $this->lang->$statename_n($stateword);
// perform OUT function if required
if( $flags & PF_XIO ) $this->lang->$statename_o($stateword);
// return from recursion
return;
}
if( $state != $newstate ) // recursion - only if it is really new state
{
// perform NEW function if required
if( $flags & PF_XNEW ) $this->lang->$statename_n($stateword);
// recursion
$this->parse_string($newstate);
// perform OUT function if required and return.
if( $flags & PF_XDONE )
{
if( $flags & PF_XIO ) $this->lang->$statename_o(null);
return;
}
continue;
}
}
else
{
// word is not delimiter
if( $flags & PF_CLEAN )
{
if(!$this->content_off)
$this->out .= str_replace("<","&gt",$word);
}
else
{
$stateword .= $word;
}
}
} //END while()
// TODO: check this OUT
// perform NEW function if required
if( $flags & PF_XNEW ) $this->lang->$statename_n($stateword);
// perform OUT function if required and return.
if( $flags & PF_XIO ) $this->lang->$statename_o($stateword);
}
// get word from stream
//
function getword ($state)
{
$result = null;
if($this->textpos < $this->textlen)
{
$del = $this->lang->$state(); // call "is delimiter" isdX function
if($del != false)
{
// actual char (or sub-string) is delimiter
$this->textpos += strlen($del[1]);
return $del;
}
else
{
// Actual char/string is not delimiter.
// Result word is between current position and first delimiter in stream
$result = $this->text[$this->textpos++];
while(($this->textpos < $this->textlen) && !$this->lang->$state())
$result .= $this->text[$this->textpos++];
}
}
return $result;
}
} // END class twParser
?>

177
tw/tw_cache/TW_lang.php Normal file
View File

@ -0,0 +1,177 @@
<?php
/* --------------------------------------------------------------- *
* WARNING: ALL CHANGES IN THIS FILE WILL BE LOST
*
* Source language file: tw/lang/TW_lang.php
* Language version: 1.0 (Sign:TW)
*
* Target file: tw/tw_cache/TW_lang.php
* Build date: Wed 20.11.2002 00:29:40
*
* Generator version: 0.4.1
* --------------------------------------------------------------- */
class TW_lang extends TW_base
{
var $trans,$flags,$data,$delim,$class,$keywords;
var $version,$signature,$initial_state,$ret,$quit;
var $pt,$pti,$generator_version;
var $names;
function TW_lang ()
{
$this->version="1.0";
$this->signature="TW";
$this->generator_version="0.4.1";
$this->initial_state=0;
$this->trans=array(0=>array("<"=>array(0=>1,1=>0,),),1=>array("ALPHA"=>array(0=>3,1=>1,),"/"=>array(0=>2,1=>0,),"<"=>array(0=>1,1=>1,),"!--"=>array(0=>11,1=>0,),"_ALL"=>array(0=>12,1=>0,),),2=>array("ALPHA"=>array(0=>4,1=>1,),"_ALL"=>array(0=>12,1=>0,),),3=>array("ALPHA"=>array(0=>4,1=>1,),"_ALL"=>array(0=>12,1=>0,),),4=>array("!ALNUM"=>array(0=>5,1=>1,),),5=>array("ALPHA"=>array(0=>6,1=>1,),">"=>array(0=>12,1=>0,),"/>"=>array(0=>12,1=>0,),),6=>array("!ALPHA"=>array(0=>7,1=>1,),">"=>array(0=>12,1=>1,),"/>"=>array(0=>12,1=>1,),),7=>array("\""=>array(0=>8,1=>0,),"'"=>array(0=>9,1=>0,),"ALNUM"=>array(0=>10,1=>1,),">"=>array(0=>12,1=>1,),"/>"=>array(0=>12,1=>1,),),8=>array("\""=>array(0=>12,1=>0,),),9=>array("'"=>array(0=>12,1=>0,),),10=>array("-"=>array(0=>10,1=>0,),"!ALNUM"=>array(0=>12,1=>1,),),11=>array("-->"=>array(0=>12,1=>0,),),);
$this->flags=array(0=>256,1=>1024,2=>1536,3=>1536,4=>3584,5=>0,6=>3584,7=>1536,8=>512,9=>512,10=>512,11=>0,);
$this->delim=array(0=>array(0=>"<",),1=>array(0=>"ALPHA",1=>"/",2=>"<",3=>"!--",4=>"_ALL",),2=>array(0=>"ALPHA",1=>"_ALL",),3=>array(0=>"ALPHA",1=>"_ALL",),4=>array(0=>"!ALNUM",),5=>array(0=>"ALPHA",1=>">",2=>"/>",),6=>array(0=>"!ALPHA",1=>">",2=>"/>",),7=>array(0=>"\"",1=>"'",2=>"ALNUM",3=>">",4=>"/>",),8=>array(0=>"\"",),9=>array(0=>"'",),10=>array(0=>"-",1=>"!ALNUM",),11=>array(0=>"-->",),);
$this->ret=12;
$this->quit=13;
$this->names=array(0=>"OUT",1=>"T_tagWall",2=>"T_Cbegin",3=>"T_begin",4=>"T_gettag",5=>"T_in",6=>"A_begin",7=>"V_begin",8=>"VALUE1",9=>"VALUE2",10=>"VALUE3",11=>"HTML_comment",12=>"_RET",13=>"_QUIT",);
}
/* OUT */
function isd0 ()
{
$c1=$this->pt[$this->pti];
if($c1=="<")
return array("<","<");
return false;
}
/* T_tagWall */
function isd1 ()
{
$p=$this->pti;
$c1=$this->pt[$p++];
$c2=$c1.$this->pt[$p++];
$c3=$c2.$this->pt[$p];
if(stristr("eaoinltsrvdukzmcpyhjbfgxwq",$c1))
return array("ALPHA",$c1);
if($c1=="/")
return array("/","/");
if($c1=="<")
return array("<","<");
if($c3=="!--")
return array("!--","!--");
return array("_ALL",$c1);
}
/* T_Cbegin */
function isd2 ()
{
$c1=$this->pt[$this->pti];
if(stristr("eaoinltsrvdukzmcpyhjbfgxwq",$c1))
return array("ALPHA",$c1);
return array("_ALL",$c1);
}
/* T_begin */
function isd3 ()
{
$c1=$this->pt[$this->pti];
if(stristr("eaoinltsrvdukzmcpyhjbfgxwq",$c1))
return array("ALPHA",$c1);
return array("_ALL",$c1);
}
/* T_gettag */
function isd4 ()
{
$c1=$this->pt[$this->pti];
if(!stristr("eaoinltsrvdukzmcpyhjbfgxwq0123456789",$c1))
return array("!ALNUM",$c1);
return false;
}
/* T_in */
function isd5 ()
{
$p=$this->pti;
$c1=$this->pt[$p++];
$c2=$c1.$this->pt[$p];
if(stristr("eaoinltsrvdukzmcpyhjbfgxwq",$c1))
return array("ALPHA",$c1);
if($c1==">")
return array(">",">");
if($c2=="/>")
return array("/>","/>");
return false;
}
/* A_begin */
function isd6 ()
{
$p=$this->pti;
$c1=$this->pt[$p++];
$c2=$c1.$this->pt[$p];
if(!stristr("eaoinltsrvdukzmcpyhjbfgxwq",$c1))
return array("!ALPHA",$c1);
if($c1==">")
return array(">",">");
if($c2=="/>")
return array("/>","/>");
return false;
}
/* V_begin */
function isd7 ()
{
$p=$this->pti;
$c1=$this->pt[$p++];
$c2=$c1.$this->pt[$p];
if($c1=="\"")
return array("\"","\"");
if($c1=="'")
return array("'","'");
if(stristr("eaoinltsrvdukzmcpyhjbfgxwq0123456789",$c1))
return array("ALNUM",$c1);
if($c1==">")
return array(">",">");
if($c2=="/>")
return array("/>","/>");
return false;
}
/* VALUE1 */
function isd8 ()
{
$c1=$this->pt[$this->pti];
if($c1=="\"")
return array("\"","\"");
return false;
}
/* VALUE2 */
function isd9 ()
{
$c1=$this->pt[$this->pti];
if($c1=="'")
return array("'","'");
return false;
}
/* VALUE3 */
function isd10 ()
{
$c1=$this->pt[$this->pti];
if($c1=="-")
return array("-","-");
if(!stristr("eaoinltsrvdukzmcpyhjbfgxwq0123456789",$c1))
return array("!ALNUM",$c1);
return false;
}
/* HTML_comment */
function isd11 ()
{
$p=$this->pti;
$c3=$this->pt[$p++].$this->pt[$p++].$this->pt[$p];
if($c3=="-->")
return array("-->","-->");
return false;
}
}
?>