File Source for parser.php

<?php
/**
* Fichier Parser
* PHP versions 4 et 5
*
* LODEL - Logiciel d'Edition ELectronique.
*
* Copyright (c) 2001-2002, Ghislain Picard, Marin Dacos
* Copyright (c) 2003, Ghislain Picard, Marin Dacos, Luc Santeramo, Nicolas Nutten, Anne Gentil-Beccot
* Copyright (c) 2004, Ghislain Picard, Marin Dacos, Luc Santeramo, Anne Gentil-Beccot, Bruno Cénou
* Copyright (c) 2005, Ghislain Picard, Marin Dacos, Luc Santeramo, Gautier Poupeau, Jean Lamy, Bruno Cénou
* Copyright (c) 2006, Marin Dacos, Luc Santeramo, Bruno Cénou, Jean Lamy, Mikaël Cixous, Sophie Malafosse
*
* Home page: http://www.lodel.org
*
* E-Mail: lodel@lodel.org
*
* All Rights Reserved
*
* 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., 675 Mass Ave, Cambridge, MA 02139, USA.
*
* @author Ghislain Picard
* @author Jean Lamy
* @copyright 2005, Ghislain Picard, Marin Dacos, Luc Santeramo, Gautier Poupeau, Jean Lamy, Bruno Cénou
* @copyright 2006, Marin Dacos, Luc Santeramo, Bruno Cénou, Jean Lamy, Mikaël Cixous, Sophie Malafosse
* @licence http://www.gnu.org/copyleft/gpl.html
* @version CVS:$Id:
* @package lodel
*/
function parse($in, $out)
{
$parser = new LodelParser;
$parser->parse($in, $out);
}
class Parser
{
var $infilename; // nom du template
var $signature;
var $variable_regexp = "[A-Z][A-Z_0-9]*(?:\.[A-Z][A-Z_0-9]*)*";
var $variablechar; // list of prefix for the variables
var $loops = array ();
var $funcs = array ();
var $macrocode = array ();
var $charset;
var $commands = array ();
var $codepieces = array (); // code piece definition
var $macros_txt;
var $fct_txt;
# var $wantedvars;
var $looplevel = 0;
var $arr;
var $countarr;
var $linearr;
var $currentline;
var $ind;
var $refresh = "";
var $isphp = false; // the parser produce a code which produce either html, either php. In the latter, a sequence must be written at the beginning to inform the cache system.
var $id = "";
function errmsg($msg, $ind = 0)
{
// À REVOIR : déterminer le numéro de ligne dans le template
//if ($ind)
//$line = "line ".$this->linearr[$ind];
//die("LODELSCRIPT ERROR line $line (".$this->infilename."): $msg");
die("LODELSCRIPT ERROR in file ".$this->infilename." : $msg");
}
function parse_loop_extra(& $tables, & $tablesinselect, & $extrainselect, & $selectparts)
{
}
function parse_variable_extra($prefix, $name)
{
return FALSE;
}
function parse_before($contents)
{
}
function parse_after($contents)
{
}
function decode_loop_content_extra($balise, & $content, & $options, $tables)
{
}
function Parser()
{ // constructor
$this->commands = array ("USE", "MACRO", "FUNC", "LOOP", "IF", "LET", "ELSE", "DO", "DOFIRST", "DOLAST", "BEFORE", "AFTER", "ALTERNATIVE", "ESCAPE", "CONTENT", "SWITCH", "CASE");
$this->codepieces = array ('sqlfetchassoc' => "mysql_fetch_assoc(%s)", 'sqlquery' => "mysql_query(%s)", 'sqlerror' => "or mymysql_error(%s,%s)", 'sqlfree' => "mysql_free_result(%s)", 'sqlnumrows' => "mysql_num_rows(%s)");
}
function parse($in, $out)
{
global $sharedir;
$this->infilename = $in;
if (!file_exists($in))
$this->errmsg("Unable to read file $in");
$this->signature = preg_replace("/\W+/", "_", $out);
$this->fct_txt = "";
// read the file
if (!function_exists("file_get_contents")) {
$fp = fopen($in, "r");
while (!feof($fp))
$file .= fread($fp, 1024);
fclose($fp);
} else {
$file = file_get_contents($in);
}
$contents = stripcommentandcr($file);
$this->_split_file($contents); // split the contents into commands
$this->parse_main(); // parse the commands
if ($this->ind != $this->countarr)
$this->errmsg("this file contains more closing tags than opening tags");
$contents = join("", $this->arr); // recompose the file
unset ($this->arr); // save memory now.
$this->parse_after($contents); // user defined parse function
// remove <DEFMACRO>.*?</DEFMACRO>
$contents = preg_replace("/<DEF(MACRO|FUNC)\b[^>]*>.*?<\/DEF(MACRO|FUNC)>\s*\n?/s", "", $contents);
if ($this->fct_txt) {
$contents = '<?php
'.$this->fct_txt.'?>'.$contents;
}
//
// refresh manager
//
#die("::".$this->refresh);
if ($this->refresh) {
$code = '<'.'?php if ($GLOBALS[cachedfile] && !$dontcheckrefresh) { $cachetime=filemtime($GLOBALS[cachedfile].".php"); ';
// refresh period in second
if (preg_match("/^\d+$/", $this->refresh)) {
$code .= ' if($cachetime+'.$this->refresh.'<time()) return "refresh"; ';
// refresh time
} else {
$code .= '$now = time(); $date = getdate($now);';
$refreshtimes = preg_split("/,/", $this->refresh);
foreach ($refreshtimes as $refreshtime) {
$refreshtime = preg_split("/:/", $refreshtime);
$code .= '$refreshtime=mktime('.intval($refreshtime[0]).','.intval($refreshtime[1]).','.intval($refreshtime[2]).',$date[mon],$date[mday],$date[year]);';
$code .= 'if ($cachetime<$refreshtime && $now>$refreshtime) return "refresh"; ';
}
}
$code .= '} ?'.'>';
$contents = '<'.'?php echo \''.quote_code($code).'\'; ?>
'.$contents;
} elseif ($this->isphp) {
$contents = '<?php if ($GLOBALS[cachedfile]) echo \'<?php #--# ?>\'; ?>'.$contents; // this is use to check if the output is a must be evaluated as a php or a raw file.
}
// clean the open/close php tags
$contents = preg_replace(array ('/\?><\?(php\b)?/', '/<\?php[\s\n]*\?>/'), array ("", ""), $contents);
if (!$this->charset)
$this->charset = 'iso-8859-1';
if ($this->charset != 'utf-8') {
#$t=microtime();
require_once TOINCLUDE. 'utf8.php'; // conversion des caracteres
$contents = utf8_encode($contents);
convertHTMLtoUTF8($contents);
}
@unlink($out); // detruit avant d'ecrire.
$fp = fopen($out, "w") or $this->errmsg("cannot write file $out");
fputs($fp, $contents);
fclose($fp);
if ($GLOBALS['filemask'])
chmod($out, 0666 & octdec($GLOBALS['filemask']));
return $ret;
}
function parse_variable(& $text, $escape = "php")
{
$i = strpos($text, "[");
while ($i !== false) {
$startvar = $i;
$i ++;
// parenthesis syntaxe [(
if ($text {$i} == "(") {
$para = true;
$i ++;
} else {
$para = false;
}
if ($text {$i} == "#" || strpos($text {$i }, $this->variablechar) !== false) { //
$varchar = $text {$i};
$i ++;
// look for the name of the variable now
if ($text {$i} < 'A' || $text {$i} > 'Z')
continue; // not a variable
$varname = $text {$i};
$i ++;
while (($text {$i} >= 'A' && $text {$i} <= 'Z') || ($text {$i} >= '0' &&
$text {$i} <= '9') || $text {$i} == "_" || $text {$i} == ".") {
$varname .= $text {$i};
$i ++;
}
$pipefunction = "";
if ($text {$i} == ":") { // a lang
$lang = "";
$i ++;
while ($text {$i} >= 'A' && $text {$i} < 'Z') {
$lang .= $text {$i};
$i ++;
}
$pipefunction = '|multilingue("'.$lang.'")';
}
if ($text {$i} == "|") { // have a pipe function
// look for the end of the variable
$bracket = 1;
$mustnewparse = false;
while ($bracket) {
switch ($text {$i}) {
case "[" :
$bracket ++;
$mustparse = true; // potentially a new variable
break;
case "]" :
$bracket --;
break;
}
if ($bracket > 0)
$pipefunction .= $text {$i};
$i ++;
}
$i --; // comes back to the bracket.
if ($para && $pipefunction {strlen($pipefunction) - 1 } == ")") {
$pipefunction = substr($pipefunction, 0, -1);
$i --;
}
if ($mustparse) {
$this->parse_variable($pipefunction, false);
}
}
// look for a proper end of the variable
if ($para && $text {$i} == ")" && $text {$i +1} == "]") {
$i += 2;
} elseif (!$para && $text {$i} = "]") {
$i ++;
}
else
continue; // not a variable
// build the variable code
$varcode = $this->_make_variable_code($varchar, $varname, $pipefunction, $escape);
$text = substr_replace($text, $varcode, $startvar, $i - $startvar);
$i = $startvar +strlen($varcode); // move the counter
} // we found a variable
$i = strpos($text, "[", $i);
} // while there are some variable
}
function _make_variable_code($prefix, $name, $pipefunction, $escape)
{
$variable = $this->parse_variable_extra($prefix, $name);
if ($variable === false) { // has the variable being processed ?
$variable = "\$context['".str_replace(".", "']['", strtolower($name))."']";
}
# parse the filter
if ($pipefunction) { // traitement particulier ?
//echo $pipefunction."<br />";
$array = preg_split('/(?=\|[a-z]*[^\'|^\"]+)/',$pipefunction);
foreach($array as $fct) {
//foreach (explode("|", $pipefunction) as $fct) {
if($fct[0] == '|') {
$fct = substr($fct, 1);
}
#foreach (preg_split ('/(?<!")(\|)(?!")/', $pipefunction) as $fct) {
// note that explode is a little bit radical. It should be more advanced parser
if ($fct == "false" || $fct == "true" || $fct == "else") {
$fct .= "function";
}
if ($fct == "elsefunction") {
$fct = "falsefunction";
}
if ($fct) {
// get the args if any
if (preg_match("/^([A-Za-z][A-Za-z_0-9]*)$(.*?)$$/", $fct, $result)) {
$args = ','. $result[2];
$fct = $result[1];
} elseif (preg_match("/^([A-Za-z][A-Za-z_0-9]*)$/", $fct)) {
$args = '';
} else {
// error
$this->errmsg("The name of the pipe function \"$fct\" is invalid");
}
} else
continue;
//$variable = $fct. '('. $variable.$args. ')';
//si la variable est contenue dans les arguments :
$variable = "$fct($variable$args)";
}
}
switch ($escape) {
case 'php' :
// traitement normal, php espace
$testcode = ' echo '.$variable.';';
$code = '<'.'?php '.$testcode.' ?'.'>';
break;
case 'quote' :
$code = '".'.$variable.'."';
$testcode = ' echo "'.$code.'";';
break;
default :
$code = $variable;
}
// unable to test the code....
// must use the PEAR::PHP_Parser
return $code;
}
function countlines($ind)
{
if ($ind == 0) {
$this->currentline += substr_count($this->arr[$ind], "\n");
} else {
$this->linearr[$ind] = $this->currentline;
$this->currentline += substr_count($this->arr[$ind +1], "\n") + substr_count($this->arr[$ind +2], "\n");
}
}
function parse_main()
{
while ($this->ind < $this->countarr) {
switch ($this->arr[$this->ind]) {
case 'CONTENT' :
$attrs = $this->_decode_attributs($arr[$this->ind + 1]);
$this->charset = $attrs['CHARSET'] ? $attrs['CHARSET'] : "iso-8859-1";
// attribut refresh
$this->_checkforrefreshattribut($attrs);
$this->_clearposition();
break;
case 'USE' :
$siteroot = defined('SITEROOT') ? SITEROOT : '';
$attrs = $this->_decode_attributs($this->arr[$this->ind + 1]);
if ($attrs['MACROFILE']) {
$macrofilename = $attrs['MACROFILE'];
if (file_exists("tpl/".$macrofilename)) {
$contents = file_get_contents("tpl/".$macrofilename);
} elseif ($GLOBALS['sharedir'] && file_exists($siteroot.$GLOBALS['sharedir']."/macros/".$macrofilename)) {
$contents = file_get_contents($siteroot.$GLOBALS['sharedir']."/macros/".$macrofilename);
} elseif (file_exists($GLOBALS['home']."../tpl/".$macrofilename)) {
$contents = file_get_contents($GLOBALS['home']."../tpl/".$macrofilename);
} else {
$this->errmsg("the macro file \"$macrofilename\" doesn't exist");
}
$this->macros_txt .= stripcommentandcr($contents);
$this->_clearposition();
} elseif ($attrs['TEMPLATEFILE']) {
$this->_clearposition();
$this->arr[$this->ind] = '<?php insert_template($context,"'.basename($attrs['TEMPLATEFILE']).'"); ?>';
}
break;
// returns
case 'ELSE' :
case 'DO' :
case 'DOFIRST' :
case 'DOLAST' :
case 'AFTER' :
case 'BEFORE' :
case 'ALTERNATIVE' :
case 'CASE' :
return;
case '/MACRO' :
case '/FUNC' :
$this->_clearposition();
break;
default :
if ($this->arr[$this->ind]{0} == '/') {
// closing tag ?
if ($this->arr[$this->ind + 1])
$this->errmsg("The closing tag ".$this->arr[$this->ind]." is malformed");
return;
} else {
$methodname = 'parse_'. $this->arr[$this->ind];
if (method_exists($this, $methodname)) {
$this->$methodname ();
#call_user_func(array(&$this,$methodname));

	lodel

[ class tree: lodel ] [ index: lodel ] [ all elements ]

Source for file parser.php