00001 <?php
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00080 class t3lib_TSparser {
00081 var $strict = 1;
00082
00083
00084 var $setup = Array();
00085 var $raw;
00086 var $rawP;
00087 var $lastComment='';
00088 var $commentSet=0;
00089 var $multiLineEnabled=0;
00090 var $multiLineObject='';
00091 var $multiLineValue=array();
00092 var $inBrace = 0;
00093 var $lastConditionTrue = 1;
00094 var $sections=array();
00095 var $sectionsMatch=array();
00096 var $syntaxHighLight = 0;
00097 var $highLightData=array();
00098 var $highLightData_bracelevel = array();
00099
00100
00101 var $regComments = 0;
00102 var $regLinenumbers = 0;
00103 var $errors=array();
00104 var $lineNumberOffset=0;
00105 var $breakPointLN=0;
00106 var $highLightStyles=array(
00107 'prespace' => array('<span class="ts-prespace">','</span>'),
00108 'objstr_postspace' => array('<span class="ts-objstr_postspace">','</span>'),
00109 'operator_postspace' => array('<span class="ts-operator_postspace">','</span>'),
00110 'operator' => array('<span class="ts-operator">','</span>'),
00111 'value' => array('<span class="ts-value">','</span>'),
00112 'objstr' => array('<span class="ts-objstr">','</span>'),
00113 'value_copy' => array('<span class="ts-value_copy">','</span>'),
00114 'value_unset' => array('<span class="ts-value_unset">','</span>'),
00115 'ignored' => array('<span class="ts-ignored">','</span>'),
00116 'default' => array('<span class="ts-default">','</span>'),
00117 'comment' => array('<span class="ts-comment">','</span>'),
00118 'condition' => array('<span class="ts-condition">','</span>'),
00119 'error' => array('<span class="ts-error">','</span>'),
00120 'linenum' => array('<span class="ts-linenum">','</span>'),
00121 );
00122 var $highLightBlockStyles = '';
00123 var $highLightBlockStyles_basecolor = '#cccccc';
00124
00125
00133 function parse($string,$matchObj='') {
00134 $this->raw = explode(chr(10),$string);
00135 $this->rawP = 0;
00136 $pre = '[GLOBAL]';
00137 while($pre) {
00138 if ($this->breakPointLN && $pre=='[_BREAK]') {
00139 $this->error('Breakpoint at '.($this->lineNumberOffset+$this->rawP-2).': Line content was "'.$this->raw[$this->rawP-2].'"',1);
00140 break;
00141 }
00142
00143 if (strtoupper($pre)=='[GLOBAL]' || strtoupper($pre)=='[END]' || (!$this->lastConditionTrue && strtoupper($pre)=='[ELSE]')) {
00144 $pre = trim($this->parseSub($this->setup));
00145 $this->lastConditionTrue=1;
00146 } else {
00147 if (strtoupper($pre)!='[ELSE]') {$this->sections[md5($pre)]=$pre;}
00148 if ((is_object($matchObj) && $matchObj->match($pre)) || $this->syntaxHighLight) {
00149 if (strtoupper($pre)!='[ELSE]') {$this->sectionsMatch[md5($pre)]=$pre;}
00150 $pre = trim($this->parseSub($this->setup));
00151 $this->lastConditionTrue=1;
00152 } else {
00153 $pre = trim($this->nextDivider());
00154 $this->lastConditionTrue=0;
00155 }
00156 }
00157 }
00158 if ($this->inBrace) {$this->error('Line '.($this->lineNumberOffset+$this->rawP-1).': The script is short of '.$this->inBrace.' end brace(s)',1); }
00159 if ($this->multiLineEnabled) {$this->error('Line '.($this->lineNumberOffset+$this->rawP-1).': A multiline value section is not ended with a parenthesis!',1); }
00160 $this->lineNumberOffset+=count($this->raw)+1;
00161 }
00162
00169 function nextDivider() {
00170 while (isset($this->raw[$this->rawP])) {
00171 $line = ltrim($this->raw[$this->rawP]);
00172 $this->rawP++;
00173 if ($line && substr($line,0,1)=='[') {
00174 return $line;
00175 }
00176 }
00177 }
00178
00185 function parseSub(&$setup) {
00186 global $TYPO3_CONF_VARS;
00187
00188 while (isset($this->raw[$this->rawP])) {
00189 $line = ltrim($this->raw[$this->rawP]);
00190 $lineP = $this->rawP;
00191 $this->rawP++;
00192 if ($this->syntaxHighLight) $this->regHighLight("prespace",$lineP,strlen($line));
00193
00194
00195 if ($this->breakPointLN && ($this->lineNumberOffset+$this->rawP-1)==($this->breakPointLN+1)) {
00196 return '[_BREAK]';
00197 }
00198
00199
00200 if (!$this->multiLineEnabled && substr($line,0,2)=='
00201
00202
00203
00204
00205
00206
00207
00208
00209
00210
00211
00212
00213
00214
00215
00216
00217
00218
00219
00220
00221
00222
00223
00224
00225
00226
00227
00228
00229
00230
00231
00232
00233
00234
00235
00236
00237
00238
00239
00240
00241
00242
00243
00244
00245
00246
00247
00248
00249
00250
00251
00252
00253
00254 ', $line, $match)) {
00255 $tsFunc = trim($match[1]);
00256 $tsFuncArg = $match[2];
00257 list ($currentValue) = $this->getVal($objStrName,$setup);
00258
00259 switch ($tsFunc) {
00260 case 'prependString':
00261 $newValue = $tsFuncArg . $currentValue;
00262 break;
00263 case 'apppendString':
00264 $newValue = $currentValue . $tsFuncArg;
00265 break;
00266 case 'removeString':
00267 $newValue = str_replace($tsFuncArg, '', $currentValue);
00268 break;
00269 case 'replaceString':
00270 list($fromStr,$toStr) = explode('|', $tsFuncArg, 2);
00271 $newValue = str_replace($fromStr, $toStr, $currentValue);
00272 break;
00273 case 'addToList':
00274 $newValue = (strcmp('',$currentValue) ? $currentValue.',' : '') . trim($tsFuncArg);
00275 break;
00276 case 'removeFromList':
00277 $existingElements = t3lib_div::trimExplode(',',$currentValue);
00278 $removeElements = t3lib_div::trimExplode(',',$tsFuncArg);
00279 if (count($removeElements)) {
00280 $newValue = implode(',', array_diff($existingElements, $removeElements));
00281 }
00282 break;
00283 default:
00284 if (isset($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tsparser.php']['preParseFunc'][$tsFunc])) {
00285 $hookMethod = $TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tsparser.php']['preParseFunc'][$tsFunc];
00286 $params = array('currentValue'=>$currentValue, 'functionArgument'=>$tsFuncArg);
00287 $fakeThis = FALSE;
00288 $newValue = t3lib_div::callUserFunction($hookMethod,$params,$fakeThis);
00289 } else {
00290 t3lib_div::sysLog('Missing function definition for '.$tsFunc.' on TypoScript line '.$lineP,'Core',2);
00291 }
00292 }
00293
00294 if (isset($newValue)) {
00295 $line = '= '.$newValue;
00296 }
00297 }
00298
00299 switch(substr($line,0,1)) {
00300 case '=':
00301 if ($this->syntaxHighLight) $this->regHighLight('value', $lineP, strlen(ltrim(substr($line,1)))-strlen(trim(substr($line,1))));
00302
00303 if (strstr($objStrName,'.')) {
00304 $value = Array();
00305 $value[0] = trim(substr($line,1));
00306 $this->setVal($objStrName,$setup,$value);
00307 } else {
00308 $setup[$objStrName] = trim(substr($line,1));
00309 if ($this->lastComment && $this->regComments) {
00310 $setup[$objStrName.'..'].=$this->lastComment;
00311 }
00312 if ($this->regLinenumbers) {
00313 $setup[$objStrName.'.ln..'][]=($this->lineNumberOffset+$this->rawP-1);
00314 }
00315 }
00316 break;
00317 case '{':
00318 $this->inBrace++;
00319 if (strstr($objStrName,'.')) {
00320 $exitSig=$this->rollParseSub($objStrName,$setup);
00321 if ($exitSig) return $exitSig;
00322 } else {
00323 if (!isset($setup[$objStrName.'.'])) {$setup[$objStrName.'.'] = Array();}
00324 $exitSig=$this->parseSub($setup[$objStrName.'.']);
00325 if ($exitSig) return $exitSig;
00326 }
00327 break;
00328 case '(':
00329 $this->multiLineObject = $objStrName;
00330 $this->multiLineEnabled=1;
00331 $this->multiLineValue=array();
00332 break;
00333 case '<':
00334 if ($this->syntaxHighLight) $this->regHighLight("value_copy", $lineP, strlen(ltrim(substr($line,1)))-strlen(trim(substr($line,1))));
00335 $theVal = trim(substr($line,1));
00336 if (substr($theVal,0,1)=='.') {
00337 $res = $this->getVal(substr($theVal,1),$setup);
00338 } else {
00339 $res = $this->getVal($theVal,$this->setup);
00340 }
00341 $this->setVal($objStrName,$setup,unserialize(serialize($res)),1);
00342 break;
00343 case '>':
00344 if ($this->syntaxHighLight) $this->regHighLight("value_unset", $lineP, strlen(ltrim(substr($line,1)))-strlen(trim(substr($line,1))));
00345 $this->setVal($objStrName,$setup,'UNSET');
00346 break;
00347 default:
00348 $this->error('Line '.($this->lineNumberOffset+$this->rawP-1).': Object Name String, "'.htmlspecialchars($objStrName).'" was not preceeded by any operator, =<>({');
00349 break;
00350 }
00351 }
00352 $this->lastComment='';
00353 }
00354 } elseif (substr($line,0,1)=='}') {
00355 $this->inBrace--;
00356 $this->lastComment='';
00357 if ($this->syntaxHighLight) $this->regHighLight("operator", $lineP, strlen($line)-1);
00358 if ($this->inBrace<0) {
00359 $this->error('Line '.($this->lineNumberOffset+$this->rawP-1).': An end brace is in excess.',1);
00360 $this->inBrace=0;
00361 } else {
00362 break;
00363 }
00364 } else {
00365 if ($this->syntaxHighLight) $this->regHighLight("comment", $lineP);
00366
00367
00368 if ($this->regComments) $this->lastComment.= trim($line).chr(10);
00369 }
00370 }
00371 }
00372
00373
00374 if ($this->commentSet) {
00375 if ($this->syntaxHighLight) $this->regHighLight("comment", $lineP);
00376 if (substr($line,0,2)=='*/') $this->commentSet=0;
00377 }
00378 }
00379 }
00380
00389 function rollParseSub($string,&$setup) {
00390 if ((string)$string!='') {
00391 $keyLen = strcspn($string,'.');
00392 if ($keyLen==strlen($string)) {
00393 $key = $string.'.';
00394 if (!isset($setup[$key])){$setup[$key]=Array();}
00395 $exitSig=$this->parseSub($setup[$key]);
00396 if ($exitSig) return $exitSig;
00397 } else {
00398 $key = substr($string,0,$keyLen).'.';
00399 if (!isset($setup[$key])){$setup[$key]=Array();}
00400 $exitSig=$this->rollParseSub(substr($string,$keyLen+1),$setup[$key]);
00401 if ($exitSig) return $exitSig;
00402 }
00403 }
00404 }
00405
00413 function getVal($string,$setup) {
00414 if ((string)$string!='') {
00415 $keyLen = strcspn($string,'.');
00416 if ($keyLen==strlen($string)) {
00417 $retArr=array();
00418 if (isset($setup[$string])) {$retArr[0]=$setup[$string]; }
00419 if (isset($setup[$string.'.'])) {$retArr[1]=$setup[$string.'.']; }
00420 return $retArr;
00421 } else {
00422 $key = substr($string,0,$keyLen).'.';
00423 if ($setup[$key]) {
00424 return $this->getVal(substr($string,$keyLen+1),$setup[$key]);
00425 }
00426 }
00427 }
00428 }
00429
00439 function setVal($string,&$setup,$value,$wipeOut=0) {
00440 if ((string)$string!='') {
00441 $keyLen = strcspn($string,'.');
00442 if ($keyLen==strlen($string)) {
00443 if ($value=='UNSET') {
00444 unset($setup[$string]);
00445 unset($setup[$string.'.']);
00446 if ($this->regLinenumbers) {
00447 $setup[$string.'.ln..'][]=($this->lineNumberOffset+$this->rawP-1).'>';
00448 }
00449 } else {
00450 $lnRegisDone=0;
00451 if ($wipeOut && $this->strict) {
00452 if ((isset($setup[$string]) && !isset($value[0])) || (isset($setup[$string.'.']) && !isset($value[1]))) {$this->error('Line '.($this->lineNumberOffset+$this->rawP-1).': Object copied in this line "'.trim($this->raw[($this->rawP-1)]).'" would leave either the value or properties untouched in TypoScript Version 1. Please check that this is not a problem for you.',1);}
00453 unset($setup[$string]);
00454 unset($setup[$string.'.']);
00455 if ($this->regLinenumbers) {
00456 $setup[$string.'.ln..'][]=($this->lineNumberOffset+$this->rawP-1).'<';
00457 $lnRegisDone=1;
00458 }
00459 }
00460 if (isset($value[0])) {$setup[$string] = $value[0];}
00461 if (isset($value[1])) {$setup[$string.'.'] = $value[1];}
00462 if ($this->lastComment && $this->regComments) {
00463 $setup[$string.'..'].=$this->lastComment;
00464 }
00465 if ($this->regLinenumbers && !$lnRegisDone) {
00466 $setup[$string.'.ln..'][]=($this->lineNumberOffset+$this->rawP-1);
00467 }
00468 }
00469 } else {
00470 $key = substr($string,0,$keyLen).'.';
00471 if (!isset($setup[$key])){$setup[$key]=Array();}
00472 $this->setVal(substr($string,$keyLen+1),$setup[$key],$value);
00473 }
00474 }
00475 }
00476
00485 function error($err,$num=2) {
00486 if (is_object($GLOBALS['TT'])) $GLOBALS['TT']->setTSlogMessage($err,$num);
00487 $this->errors[]=array($err,$num,$this->rawP-1,$this->lineNumberOffset);
00488 }
00489
00497 function checkIncludeLines($string) {
00498 $splitStr='<INCLUDE_TYPOSCRIPT:';
00499 if (strstr($string,$splitStr)) {
00500 $newString='';
00501 $allParts = explode($splitStr,chr(10).$string.chr(10));
00502 reset($allParts);
00503 while(list($c,$v)=each($allParts)) {
00504 if (!$c) {
00505 $newString.=$v;
00506 } elseif (preg_match('/\r?\n\s*$/',$allParts[$c-1])) {
00507 $subparts=explode('>',$v,2);
00508 if (preg_match('/^\s*\r?\n/',$subparts[1])) {
00509
00510 $newString.='### '.$splitStr.$subparts[0].'> BEGIN:'.chr(10);
00511 $params = t3lib_div::get_tag_attributes($subparts[0]);
00512 if ($params['source']) {
00513 $sourceParts = explode(':',$params['source'],2);
00514 switch(strtolower(trim($sourceParts[0]))) {
00515 case 'file':
00516 $filename = t3lib_div::getFileAbsFileName(trim($sourceParts[1]));
00517 if (strcmp($filename,'')) {
00518 if (@is_file($filename) && filesize($filename)<100000) {
00519 $newString.=t3lib_div::getUrl($filename).chr(10);
00520 }
00521 }
00522 break;
00523 }
00524 }
00525 $newString.='### '.$splitStr.$subparts[0].'> END:'.chr(10);
00526 $newString.=$subparts[1];
00527 } else $newString.=$splitStr.$v;
00528 } else $newString.=$splitStr.$v;
00529 }
00530 $string=substr($newString,1,-1);
00531 }
00532 return $string;
00533 }
00534
00541 function checkIncludeLines_array($array) {
00542 reset($array);
00543 while(list($k)=each($array)) {
00544 $array[$k]=t3lib_TSparser::checkIncludeLines($array[$k]);
00545 }
00546 return $array;
00547 }
00548
00549
00550
00551
00552
00553
00554
00555
00556
00557
00558
00559
00560
00561
00562
00563
00564
00565
00566
00567
00568
00569
00570
00571
00572
00573
00574
00584 function doSyntaxHighlight($string,$lineNum='',$highlightBlockMode=0) {
00585 $this->syntaxHighLight=1;
00586 $this->highLightData=array();
00587 $this->error=array();
00588 $string = str_replace(chr(13),'',$string);
00589
00590 $this->parse($string);
00591
00592 return $this->syntaxHighlight_print($lineNum,$highlightBlockMode);
00593 }
00594
00605 function regHighLight($code,$pointer,$strlen=-1) {
00606 if ($strlen==-1) {
00607 $this->highLightData[$pointer] = array(array($code,0));
00608 } else {
00609 $this->highLightData[$pointer][] = array($code,$strlen);
00610 }
00611 $this->highLightData_bracelevel[$pointer] = $this->inBrace;
00612 }
00613
00623 function syntaxHighlight_print($lineNumDat,$highlightBlockMode) {
00624
00625 $errA=array();
00626 foreach($this->errors as $err) {
00627 $errA[$err[2]][]=$err[0];
00628 }
00629
00630 $lines=array();
00631 foreach($this->raw as $rawP => $value) {
00632 $start=0;
00633 $strlen=strlen($value);
00634 $lineC='';
00635
00636 if (is_array($this->highLightData[$rawP])) {
00637 foreach($this->highLightData[$rawP] as $set) {
00638 $len = $strlen-$start-$set[1];
00639 if ($len > 0) {
00640 $part = substr($value,$start,$len);
00641 $start+=$len;
00642 $st = $this->highLightStyles[(isset($this->highLightStyles[$set[0]])?$set[0]:'default')];
00643 if (!$highlightBlockMode || $set[0]!='prespace') $lineC.=$st[0].htmlspecialchars($part).$st[1];
00644 }elseif ($len < 0) debug(array($len,$value,$rawP));
00645 }
00646 } else debug(array($value));
00647
00648 if (strlen(substr($value,$start))) $lineC.=$this->highLightStyles['ignored'][0].htmlspecialchars(substr($value,$start)).$this->highLightStyles['ignored'][1];
00649
00650 if ($errA[$rawP]) {
00651 $lineC.=$this->highLightStyles['error'][0].'<strong> - ERROR:</strong> '.htmlspecialchars(implode(';',$errA[$rawP])).$this->highLightStyles['error'][1];
00652 }
00653
00654 if ($highlightBlockMode && $this->highLightData_bracelevel[$rawP]) {
00655 $lineC = str_pad('',$this->highLightData_bracelevel[$rawP]*2,' ',STR_PAD_LEFT).'<span style="'.$this->highLightBlockStyles.($this->highLightBlockStyles_basecolor?'background-color: '.t3lib_div::modifyHTMLColorAll($this->highLightBlockStyles_basecolor,-$this->highLightData_bracelevel[$rawP]*16):'').'">'.(strcmp($lineC,'')?$lineC:' ').'</span>';
00656 }
00657
00658 if (is_array($lineNumDat)) {
00659 $lineNum = $rawP+$lineNumDat[0];
00660 $lineC = $this->highLightStyles['linenum'][0].str_pad($lineNum,4,' ',STR_PAD_LEFT).':'.$this->highLightStyles['linenum'][1].' '.$lineC;
00661 }
00662
00663
00664 $lines[] = $lineC;
00665 }
00666
00667 return '<pre class="ts-hl">'.implode(chr(10),$lines).'</pre>';
00668 }
00669 }
00670
00671
00672 if (defined('TYPO3_MODE') && $TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['t3lib/class.t3lib_tsparser.php']) {
00673 include_once($TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['t3lib/class.t3lib_tsparser.php']);
00674 }
00675 ?>