php.ComLanka.com PHP Tutorial ,PHP source code, PHP online example

Algorithms Arrays Passwords Uncategorized
Commerce Uncategorized
Databases Abstraction Layers Informix LDAP MS SQL MySQL ODBC PostgreSQL Uncategorized
Date & Time Calculators Conversion Translation Uncategorized
Discussion Chat Forums Guestbooks Polls Uncategorized
Email Validation Uncategorized
External Uncategorized
Files and Directories Uncategorized
Games Uncategorized
Graphics 3-D Graphs Resizing Thumbnails Uncategorized
HTML Forms Menus & Navigation Source Viewers Tables Templates Uncategorized
HTTP Authentication Cookies File Uploading Uncategorized
I18N Uncategorized
Math Uncategorized
Miscellaneous Uncategorized
Searching and Trees Uncategorized
Security Uncategorized
Text Uncategorized
Utilities Calendars Counters Link Checkers Weather Uncategorized
XML Uncategorized

php sample source codes
TinyButStrong is a Template Engine for pro and beginners. It s a single Php class with 8 methods and 2 properties. The TBS tags can be visible with any Visual Html Editor.<br> <br> TinyButStrong support MySQL, PostgreSQL and other databases in native. It merges blocs ; sub-blocs ; multi-columns ; Html lists, radio buttons and checkboxes ; sub-templates ; It performs headers ; formats ; conditional display ; event functions ; <br> You can find Manual, Examples, Support and Forum at the web page. <?php /* ******************************************************** TinyButStrong 1.92 Template Engine for Pro and Beginners ------------------------ Web site : www.tinybutstrong.com Author : skrol29@freesurf.fr ******************************************************** This library is free software. You can redistribute and modify it even for commercial usage, but you must accept and respect the LPGL License (v2.1 or later). */ //You can change the TinyButStrong markers in you code. if (!isset($tbs_ChrOpen)) $tbs_ChrOpen = '[' ; if (!isset($tbs_ChrClose)) $tbs_ChrClose = ']' ; // Render flags. define('TBS_NOTHING', 0) ; define('TBS_OUTPUT', 1) ; define('TBS_EXIT', 2) ; // Special cache actions. define('TBS_DELETE', -1) ; define('TBS_CANCEL', -2) ; define('TBS_CACHENOW', -3) ; //Check PHP version if (!isset($_tbs_VersionMin)) $_tbs_VersionMin = '4.0.4' ; if (PHP_VERSION<$_tbs_VersionMin) tbs_Misc_Alert('PHP Version Check','Your PHP version is '.PHP_VERSION.' while TinyButStrong needs PHP version '.$_tbs_VersionMin.' or higher.' ) ; //Init common variables $tbs_CurrVal = '' ; $tbs_CurrRec = array() ; $tbs_CurrNav = False ; $_tbs_PhpVarLst = False ; $_tbs_Timer = tbs_Misc_Timer() ; $_tbs_False = False ; tbs_Misc_ActualizeChr() ; //Classes class clsTbsLocator { var $PosBeg = False ; var $PosEnd = False ; var $FullName = False ; var $SubName = False ; var $PrmLst = array() ; var $PrmPos = False ; var $BlockNbr = 0 ; var $BlockLst = False ; } class clsTinyButStrong { //Public properties var $Source = '' ; //Current result of the merged template var $Render = 3 ; var $HtmlCharSet = '' ; //Private properties var $_Version = '1.92'; var $_LastFile = '' ; //The last loaded template file var $_StartMerge = 0 ; var $_Timer = False ; //True if a system field about time has been found in the template var $_CacheFile = False ; // The name of the file to save the content in. var $_DebugTxt = '' ; //Public methods function LoadTemplate($File,$HtmlCharSet='') { $this->_StartMerge = tbs_Misc_Timer() ; tbs_Misc_ActualizeChr() ; //Load the file if (tbs_Misc_GetFile($this->Source,$File)===False) { tbs_Misc_Alert('LoadTemplate','Unable to read the file \''.$File.'\'.') ; return False ; } $this->_LastFile = $File ; //CharSet if ($HtmlCharSet==-1) { $this->HtmlCharSet = '' ; $Pos = 0 ; do { $Loc = tbs_Html_FindTag($this->Source,'META',True,$Pos,True,1,True) ; if ($Loc!==False) { $Pos = $Loc->PosEnd + 1 ; if (isset($Loc->PrmLst['http-equiv'])) { if (strtolower($Loc->PrmLst['http-equiv'])==='content-type') { if (isset($Loc->PrmLst['content'])) { $x = ';'.strtolower($Loc->PrmLst['content']).';' ; $x = str_replace(' ','',$x) ; $p = strpos($x,';charset=') ; if ($p!==False) { $x = substr($x,$p+strlen(';charset=')) ; $p = strpos($x,';') ; if ($p!==False) $x = substr($x,0,$p) ; $this->HtmlCharSet = $x ; $Loc = False ; } } } } } } while ($Loc!==False) ; } else { $this->HtmlCharSet = $HtmlCharSet ; } //Include files tbs_Misc_ClearPhpVarLst() ; tbs_Merge_Auto($this->Source,$this->HtmlCharSet,True) ; return True ; } function GetBlockSource($BlockName,$List=False) { $BlockLoc = tbs_Locator_FindBlockLst($this->Source,$BlockName,0) ; if ($BlockLoc->DefFound===False) { if ($List) { return False ; } else { return array() ; } } else { if ($List) { return $BlockLoc->BlockLst ; } else { return $BlockLoc->BlockLst[1] ; } } } function MergeBlock($BlockName,$SrcId,$Query='',$PageSize=0,$PageNum=0,$RecKnown=0) { return tbs_Merge_Block($this->Source,$this->HtmlCharSet,$BlockName,$SrcId,$Query,$PageSize,$PageNum,$RecKnown) ; } function MergeField($Name,$Value) { tbs_Misc_ClearPhpVarLst() ; //Usefull here because the field can have an file inclusion tbs_Merge_Field($this->Source,$this->HtmlCharSet,$Name,$Value,True,True) ; } function MergeSpecial($Type) { $Type = strtolower($Type) ; tbs_Misc_ClearPhpVarLst() ; tbs_Merge_Special($this,$Type) ; } function MergeNavigationBar($BlockName,$NavSize,$PageCurr,$RecCnt=-1,$RecByPage=1) { return tbs_Merge_NavigationBar($this->Source,$this->HtmlCharSet,$BlockName,$NavSize,$PageCurr,$RecCnt,$RecByPage) ; } function Show($End='',$MergePhpVar=True,$Output='') { //Those parameters are only for comaptibility //Now you must use the ->Render property tbs_Misc_ClearPhpVarLst() ; if ($MergePhpVar) { tbs_Merge_Special($this,'include,include.onshow,var,sys,check,timer') ; } else { tbs_Merge_Special($this,'include,include.onshow,sys,check,timer') ; } if ($this->_DebugTxt!=='') $this->Source = $this->_DebugTxt.$this->Source ; if ($this->_CacheFile!==False) { tbs_Cache_Save($this->_CacheFile,$this->Source) ; } if ($Output==='') { if (($this->Render & TBS_OUTPUT) == TBS_OUTPUT) echo $this->Source ; } elseif ($Output) { echo $this->Source ; } if ($End==='') { if (($this->Render & TBS_EXIT) == TBS_EXIT) exit ; } elseif ($End) { exit ; } } function CacheAction($CacheId,$TimeOut=3600,$Dir='') { $Mask = 'cache_tbs_*.php' ; $CacheId = trim($CacheId) ; $Res = False ; if ($TimeOut === TBS_CANCEL) { //Cancel cache save if any $this->_CacheFile = False ; } elseif ($CacheId === '*') { if ($TimeOut === TBS_DELETE) $Res = tbs_Cache_DeleteAll($Dir,$Mask) ; } else { $CacheFile = tbs_Cache_File($Dir,$CacheId,$Mask) ; if ($TimeOut === TBS_CACHENOW) { tbs_Cache_Save($CacheFile,$this->Source) ; } elseif ($TimeOut === TBS_DELETE) { if (file_exists($CacheFile)) @unlink($CacheFile) ; } elseif($TimeOut>=0) { $Res = tbs_Cache_IsValide($CacheFile,$TimeOut) ; if ($Res) { //Load the cache $this->_CacheFile = False ; if (tbs_Misc_GetFile($this->Source,$CacheFile)) { if (($this->Render & TBS_OUTPUT) == TBS_OUTPUT) echo $this->Source ; if (($this->Render & TBS_EXIT) == TBS_EXIT) Exit ; } else { tbs_Misc_Alert('CacheAction','Unable to read the file \''.$CacheFile.'\'.') ; $Res==False ; } } else { //The result will be saved in the cache when the Show() method is called $this->_CacheFile = $CacheFile ; @touch($CacheFile); } } } return $Res ; } //Hidden functions function DebugPrint($Txt) { if ($Txt===False) { $this->_DebugTxt = '' ; } else { $this->_DebugTxt .= 'Debug: '.htmlentities($Txt).'<br>' ; } } function DebugLocator($Name) { $this->_DebugTxt .= tbs_Misc_DebugLocator($this->Source,$Name) ; } //Only for compatibility function MergePHPVar() { tbs_Merge_Special($this->Source,'var',True) ; } } //******************************************************* //Find a TBS Field-Merge function tbs_Locator_FindTbs(&$Txt,$Name,$Pos,$AcceptSub) { $PosOpen = $Pos - 1 ; $PosEnd = False ; do { //Search for the opening char $PosOpen = strpos($Txt,$GLOBALS['tbs_ChrOpen'],$PosOpen + 1) ; //If found => the next char are analyzed if ($PosOpen!==False) { //Look if what is next the begin char is the name of the locator if (strcasecmp(substr($Txt,$PosOpen+1,strlen($Name)),$Name)===0) { $Loc = new clsTbsLocator ; //Then we check if what is next the name of the merge is an expected char $ReadPrm = False ; $PosX = $PosOpen + 1 + strlen($Name) ; $x = $Txt[$PosX] ; if ($x===$GLOBALS['tbs_ChrClose']) { $PosEnd = $PosX ; } elseif ($AcceptSub and ($x==='.')) { $Loc->SubName = '' ; //it is no longer the false value $ReadPrm = True ; $PosX++ ; } elseif (strpos(';',$x)!==False) { $ReadPrm = True ; $PosX++ ; } if ($ReadPrm) { //Read the Parameters tbs_Locator_ReadPrm($Txt,$PosX,';','= ','\'','([{',')]}',$GLOBALS['tbs_ChrClose'],0,$Loc,$PosEnd) ; if (isset($Loc->PrmLst['comm'])) { //Enlarge the limits to the comentary bounds. tbs_Locator_EnlargeToStr($Txt, $PosOpen, $PosEnd, '<!--' ,'-->') ; } } } } } while ( ($PosEnd===False) and ($PosOpen!==False) ) ; if ($PosEnd===False) { return False ; } else { $Loc->PosBeg = $PosOpen ; $Loc->PosEnd = $PosEnd ; if ($Loc->SubName===False) { $Loc->FullName = $Name ; } else { $Loc->FullName = $Name.'.'.$Loc->SubName ; } return $Loc ; } } //This function reads the parameters that follow the Begin Position and returns the parmeters in an array function tbs_Locator_ReadPrm(&$Txt,$Pos,$ChrsPrm,$ChrsEqu,$ChrsStr,$ChrsOpen,$ChrsClose,$ChrEnd,$LenMax,&$Loc,&$PosEnd) { //$Pos : position in $Txt where the scan begins //$ChrsPrm : a string that contains all characters that can be a parameter separator (typically : space and ;) //$ChrsEqu : a string that contains all characters that can be a equale symbole (used to get prm value ) //$ChrsStr : a string that contains all characters that can be a string delimiters (typically : ' and ") //$ChrsOpen : a string that contains all characters that can be an opening bracket (typically : ( ) //$ChrsClose : a string that contains all characters that can be an closing bracket (typically : ( ) //$ChrEnd : the character that marks the end of the parameters list. //$LenMax : the maximum of characters to read (enable to not read all the dicument when the parameters list has an unvalide syntaxe). //$Loc : the current TBS locatore //Return values : //$PosEnd : the position of the $ChrEnd in the $Txt string // variables initalisation $PosCur = $Pos ; // The cursor position $PosBuff = True ; // True if the current char has to be added to the buffer $PosEnd = False ; // True if the end char has been met $PosMax = strlen($Txt)-1 ; // The max position that the cursor can go if ($LenMax>0) { if ($PosMax>$PosDeb+$LenMax) { $PosMax = $PosDeb+$LenMax ; } } $PrmNbr = 0 ; $PrmName = '' ; $PrmBuff = '' ; $PrmPosBeg = False ; $PrmPosEnd = False ; $PrmEnd = False ; $PrmPosEqu = False ; //Position of the first equal symbole $PrmChrEqu = '' ; //Position of the first equal symbole $PrmCntOpen = 0 ; //Number of bracket inclusion. 0 means no bracket encapuslation. $PrmIdxOpen = False ; //Index of the current opening bracket in the $ChrsOpen array. False means we are not inside a bracket. $PrmCntStr = 0 ; //Number of string delimiter found. $PrmIdxStr = False ; //Index of the current string delimiter. False means we are not inside a string. $PrmIdxStr1 = False ; //Save the first string delimiter found. do { if ($PosCur>$PosMax) return ; if ($PrmIdxStr===False) { // we are not inside a string, we check if it's the begining of a new string $PrmIdxStr = strpos($ChrsStr,$Txt[$PosCur]) ; if ($PrmIdxStr===False) { //we are not inside a string, we check if we are not inside brackets if ($PrmCntOpen===0) { //we are not inside brackets if ($Txt[$PosCur]===$ChrEnd) {//we check if it's the end of the parameters list $PosEnd = $PosCur ; $PrmEnd = True ; $PosBuff = False ; } elseif (strpos($ChrsEqu,$Txt[$PosCur])!==False) { //we check if it's an equale symbole if ($PrmPosEqu===False) { if (trim($PrmBuff)!=='') { $PrmPosEqu = $PosCur ; $PrmChrEqu = $Txt[$PosCur] ; } } elseif ($PrmChrEqu===' ') { if ($PosCur==$PrmPosEqu+1) { $PrmPosEqu = $PosCur ; $PrmChrEqu = $Txt[$PosCur] ; } } } elseif (strpos($ChrsPrm,$Txt[$PosCur])!==False) { //we check if it's a parameter separator $PosBuff = False ; if ($Txt[$PosCur]===' ') {//The space char can be a parameter separator only in HTML locators if ($PrmBuff!=='') { $PrmEnd = True ; } } else { //-> if ($Txt[$PosCur]===' ') {... //We have a ';' separator $PrmEnd = True ; } } else { //check if it's an opening bracket $PrmIdxOpen = strpos($ChrsOpen,$Txt[$PosCur]) ; if ($PrmIdxOpen!==False) { $PrmCntOpen++ ; } } } else { //--> if ($PrmCntOpen==0) //we are inside brackets, we have to check if there is another opening bracket or a closing bracket if ($Txt[$PosCur]===$ChrsOpen[$PrmIdxOpen]) { $PrmCntOpen++ ; } elseif ($Txt[$PosCur]===$ChrsClose[$PrmIdxOpen]) { $PrmCntOpen-- ; } } } else { //--> if ($IdxStr===False) //we meet a new string $PrmCntStr++ ; //count the number of string delimiter meet for the current parameter if ($PrmCntStr===1) $PrmIdxStr1=$PrmIdxStr ; //save the first delimiter for the current parameter } //--> if ($IdxStr===False) } else { //--> if ($IdxStr===False) //we are inside a string, if ($Txt[$PosCur]===$ChrsStr[$PrmIdxStr]) {//we check if we are on a char delimiter if ($PosCur===$PosMax) { $PrmIdxStr = False ; } else { //we check if the next char is also a string delimiter, is it's so, the string continue if ($Txt[$PosCur+1]===$ChrsStr[$PrmIdxStr]) { $PosCur++ ; // the string continue } else { $PrmIdxStr = False ; //the string ends } } } } //--> if ($IdxStr===False) //Check if it's the end of the scan if ($PosEnd===False) { if ($PosCur>=$PosMax) { $PosEnd = $PosCur ; //end of the scan $PrmEnd = True ; } } //Add the current char to the buffer if ($PosBuff) { $PrmBuff .= $Txt[$PosCur] ; if ($PrmPosBeg===False) $PrmPosBeg = $PosCur ; $PrmPosEnd = $PosCur ; } else { $PosBuff = True ; } //analyze the current parameter if ($PrmEnd===True) { if (strlen($PrmBuff)>0) { if ( ($PrmNbr===0) and ($Loc->SubName!==False) ) { //Set the SubName value $Loc->SubName = strtolower($PrmBuff) ; $PrmEquMode = 0 ; } else { if ($PrmPosEqu===False) { $PrmName = trim($PrmBuff) ; $PrmBuff = True ; } else { $PrmName = trim(substr($PrmBuff,0,$PrmPosEqu-$PrmPosBeg)) ; $PrmBuff = trim(substr($PrmBuff,$PrmPosEqu-$PrmPosBeg+1)) ; if ($PrmCntStr===1) tbs_Misc_DelDelimiter($PrmBuff,$ChrsStr[$PrmIdxStr1]) ; } $Loc->PrmLst[$PrmName] = $PrmBuff ; } $PrmNbr++ ; // Usefulle for subname identification $PrmBuff = '' ; $PrmPosBeg = False ; $PrmCntStr = 0 ; $PrmCntOpen = 0 ; $PrmIdxStr = False ; $PrmIdxOpen = False ; $PrmPosEqu = False ; } $PrmEnd = False ; } // next char $PosCur++ ; } while ($PosEnd===False) ; } //This function enables to enlarge the pos limits of the Locator. //If the search result is not correct, $PosBeg must not change its value, and $PosEnd must be False. //This is because of the calling function. function tbs_Locator_EnlargeToStr(&$Txt,&$PosBeg,&$PosEnd,$StrBeg,$StrEnd) { if ($PosEnd===False) { return ; } //Searche for the begining string $Pos = $PosBeg ; $Ok = False ; do { $Pos = strrpos(substr($Txt,0,$Pos),$StrBeg[0]) ; if ($Pos!==False) { if (substr($Txt,$Pos,strlen($StrBeg))===$StrBeg) $Ok = True ; } } while ( (!$Ok) and ($Pos!==False) ); if ($Ok===False) { $PosEnd = False ; } else { //Search for the endinf string $PosEnd = strpos($Txt,$StrEnd,$PosEnd + 1) ; if ($PosEnd!==False) { $PosBeg = $Pos ; $PosEnd = $PosEnd + strlen($StrEnd) - 1 ; } } } function tbs_Locator_EnlargeToTag(&$Txt,&$Loc,$Tag,$MakeBlock,$Encaps,$Extend,$ReturnSrc) { if ($Tag==='') return False ; if ($Tag==='row') $Tag = 'tr' ; if ($Tag==='opt') $Tag = 'option' ; $Ok = False ; $TagO = tbs_Html_FindTag($Txt,$Tag,True,$Loc->PosBeg-1,False,$Encaps,False) ; if ($TagO!==False) { //Search for the closing tag $TagC = tbs_Html_FindTag($Txt,$Tag,False,$Loc->PosEnd+1,True,$Encaps,False) ; if ($TagC!==False) { //It's ok, we get the text string between the locators (including the locators !!) $Ok = True ; $PosBeg = $TagO->PosBeg ; $PosEnd = $TagC->PosEnd ; //Extend if ($Extend===0) { if ($ReturnSrc) { $Ok = '' ; if ($Loc->PosBeg>$TagO->PosEnd) $Ok .= substr($Txt,$TagO->PosEnd+1,min($Loc->PosBeg,$TagC->PosBeg)-$TagO->PosEnd-1) ; if ($Loc->PosEnd<$TagC->PosBeg) $Ok .= substr($Txt,max($Loc->PosEnd,$TagO->PosEnd)+1,$TagC->PosBeg-max($Loc->PosEnd,$TagO->PosEnd)-1) ; } } else { //Forward $TagC = True ; for ($i=$Extend;$i>0;$i--) { if ($TagC!==False) { $TagO = tbs_Html_FindTag($Txt,$Tag,True,$PosEnd+1,True,1,False) ; if ($TagO!==False) { $TagC = tbs_Html_FindTag($Txt,$Tag,False,$TagO->PosEnd+1,True,0,False) ; if ($TagC!==False) { $PosEnd = $TagC->PosEnd ; } } } } $TagO = True ; for ($i=$Extend;$i<0;$i++) { //Backward if ($TagO!==False) { $TagC = tbs_Html_FindTag($Txt,$Tag,False,$PosBeg-1,False,1,False) ; if ($TagC!==False) { $TagO = tbs_Html_FindTag($Txt,$Tag,True,$TagC->PosBeg-1,False,0,False) ; if ($TagO!==False) { $PosBeg = $TagO->PosBeg ; } } } } } //-> if ($Extend!==0) { if ($MakeBlock) { if ($Loc->SubName===False) { //If there is no subname then it's an relative syntax -> we delete the block definition $x = substr($Txt,$PosBeg,$Loc->PosBeg - $PosBeg) ; $x = $x . substr($Txt,$Loc->PosEnd+1,$PosEnd - $Loc->PosEnd) ; } else { //If there is a subname then it's a simplified syntax -> we let the field-locator. $x = substr($Txt,$PosBeg,$PosEnd - $PosBeg + 1) ; } $Loc->BlockNbr = 1 ; //Type=Block $Loc->BlockLst[1] = $x ; } $Loc->PosBeg = $PosBeg ; $Loc->PosEnd = $PosEnd ; } } return $Ok ; } //This function enables to merge a locator with a text and returns the position just after the replaced block //This position can be usefull because we don't know in advance how $Value will be replaced. function tbs_Locator_Replace(&$Txt,&$HtmlCharSet,&$Loc,&$Value,$CheckSub) { //Found the value if there is a subname if ($CheckSub and ($Loc->SubName!==False)) { $SubLst = explode('.',$Loc->SubName) ; $SubId = 0 ; $SubNbr = count($SubLst) ; while ($SubId<$SubNbr) { if (is_array($Value)) { if (isset($Value[$SubLst[$SubId]])) { $Value = &$Value[$SubLst[$SubId]] ; } else { unset($Value) ; $Value = '' ; if (!isset($Loc->PrmLst['noerr'])) tbs_Misc_Alert('Array value','Can\'t merge ['.$Loc->FullName.'] because there is no key named \''.$SubLst[$SubId].'\'.',True) ; } $SubId++ ; } else { if (isset($Loc->PrmLst['selected'])) { $SelArray = &$Value ; } else { if (!isset($Loc->PrmLst['noerr'])) tbs_Misc_Alert('Array value expected','Can\'t merge ['.$Loc->FullName.'] because the value before the key \''.$SubLst[$SubId].'\' is not an array.',True) ; } unset($Value) ; $Value = '' ; $SubId = $SubNbr ; } } } $CurrValSave = &$GLOBALS['tbs_CurrVal'] ; $CurrVal = $Value ; $GLOBALS['tbs_CurrVal'] = &$CurrVal ; $Select = False ; if ($Loc->BlockNbr==0) { //Type=field $HtmlConv = True ; $BrConv = True ; //True if we have to convert nl to br with Html conv. $WhiteSp = False ; //True if we have to preserve whitespaces $EmbedVal = False ; //Value to embed in the current val $Script = True ; //False to ignore script execution $Protect = True ; //Default value for common field //File inclusion if (isset($Loc->PrmLst['file'])) { $File = $Loc->PrmLst['file'] ; tbs_Misc_ReplaceVal($File,$CurrVal) ; tbs_Merge_PhpVar($File,$GLOBALS['_tbs_False']) ; //The file definition may contains PHPVar field $OnlyBody = True ; if (isset($Loc->PrmLst['htmlconv'])) { if (strtolower($Loc->PrmLst['htmlconv'])==='no') { $OnlyBody = False ; //It's a text file, we don't get the BODY part } } if (tbs_Misc_GetFile($CurrVal,$File)===False) { if (!isset($Loc->PrmLst['noerr'])) tbs_Misc_Alert('\'file\' Parameter','Can\'t process the \'file\' parameter in the field ['.$Loc->FullName.']. Unable to read the file \''.$CurrVal.'\'.',True) ; } if ($OnlyBody) $CurrVal = tbs_Html_GetPart($CurrVal,'BODY',False,True) ; $HtmlConv = False ; $Protect = False ; //Default value for file inclusion } //OnFormat event if (isset($Loc->PrmLst['onformat'])) { $OnFormat = $Loc->PrmLst['onformat'] ; if (function_exists($OnFormat)) { $OnFormat($Loc->FullName,$CurrVal) ; } else { if (!isset($Loc->PrmLst['noerr'])) tbs_Misc_Alert('\'onformat\' Parameter','The function \''.$OnFormat.'\' specified in the field \''.$Loc->FullName.'\' doesn\'t exist.',True) ; } } //Select a value in a HTML option list if (isset($Loc->PrmLst['selected'])) { $Select = True ; if (is_array($CurrVal)) { $SelArray = &$CurrVal ; unset($CurrVal) ; $CurrVal = ' ' ; } else { $SelArray = False ; } } //Convert the value to a string, use format if specified if (isset($Loc->PrmLst['frm'])) { $CurrVal = tbs_Misc_Format($CurrVal,$Loc->PrmLst['frm']) ; $HtmlConv = False ; } else { if (!is_string($CurrVal)) $CurrVal = strval($CurrVal) ; } //case of an 'if' 'then' 'else' options if (isset($Loc->PrmLst['if'])) { tbs_Misc_ReplaceVal($Loc->PrmLst['if'],$CurrVal) ; if (tbs_Misc_CheckCondition($Loc->PrmLst['if'])===True) { if (isset($Loc->PrmLst['then'])) { $EmbedVal = $CurrVal ; $CurrVal = $Loc->PrmLst['then'] ; } //else -> it's the given value } else { $Script = False ; if (isset($Loc->PrmLst['else'])) { $EmbedVal = $CurrVal ; $CurrVal = $Loc->PrmLst['else'] ; } else { $CurrVal = '' ; $Protect = False ; //Only because it is empty } } } if ($Script) {//Include external PHP script if (isset($Loc->PrmLst['script'])) { $File = $Loc->PrmLst['script'] ; tbs_Misc_ReplaceVal($File,$CurrVal) ; tbs_Merge_PhpVar($File,$GLOBALS['_tbs_False']) ; //The file definition may contains PHPVar field if (isset($Loc->PrmLst['getob'])) ob_start() ; $tbs_CurrVal = &$CurrVal ; //For compatibility with TBS<1.90. The included script uses local variable and $tbs_CurrVal was told to be available. if (isset($Loc->PrmLst['once'])) { include_once($File) ; } else { include($File) ; } if (isset($Loc->PrmLst['getob'])) { $CurrVal = ob_get_contents() ; ob_end_clean() ; } $HtmlConv = False ; } } //MaxLength if (isset($Loc->PrmLst['max'])) { $x = intval($Loc->PrmLst['max']) ; if (strlen($CurrVal)>$x) { $CurrVal = substr($CurrVal,0,$x-1).'...' ; } } //Check HtmlConv parameter if (isset($Loc->PrmLst['htmlconv'])) { $x = strtolower($Loc->PrmLst['htmlconv']) ; $x = '+'.str_replace(' ','',$x).'+' ; if (strpos($x,'+no+')!==False) $HtmlConv = False ; if (strpos($x,'+yes+')!==False) $HtmlConv = True ; if (strpos($x,'+nobr+')!==False) { $HtmlConv = True ; $BrConv = False ; } if (strpos($x,'+esc+')!==False) { $HtmlConv = False ; $CurrVal = str_replace('\'','\'\'',$CurrVal) ; } if (strpos($x,'+wsp+')!==False) $WhiteSp = True ; if (strpos($x,'+look+')!==False) { if (tbs_Html_IsHtml($CurrVal)) { $HtmlConv = False ; $CurrVal = tbs_Html_GetPart($CurrVal,'BODY',False,True) ; } else { $HtmlConv = True ; } } } else { if ($HtmlCharSet===False) $HtmlConv = False ; //No HTML } //HTML conversion if ($HtmlConv) { tbs_Html_Conv($CurrVal,$HtmlCharSet,$BrConv,$WhiteSp) ; if ($EmbedVal!==False) tbs_Html_Conv($EmbedVal,$HtmlCharSet,$BrConv,$WhiteSp) ; } //We protect the data that does not come from the source of the template //Explicit Protect parameter if (isset($Loc->PrmLst['protect'])) { $x = strtolower($Loc->PrmLst['protect']) ; switch ($x) { case 'no' : $Protect = False ; break ; case 'yes': $Protect = True ; break ; } } if ($Protect) { if ($EmbedVal===False) { $CurrVal = str_replace($GLOBALS['tbs_ChrOpen'],$GLOBALS['tbs_ChrProtect'],$CurrVal) ; } else { //We must not protec the data wich comes from the source of the template, only the embeded value $EmbedVal = str_replace($GLOBALS['tbs_ChrOpen'],$GLOBALS['tbs_ChrProtect'],$EmbedVal) ; tbs_Misc_ReplaceVal($CurrVal,$EmbedVal) ; } } //Case when it is an empty string if ($CurrVal==='') { if (isset($Loc->PrmLst['.'])) { $CurrVal = '&nbsp;' ; //Enables to avoid blanks in HTML tables } elseif (isset($Loc->PrmLst['ifempty'])) { $CurrVal = $Loc->PrmLst['ifempty'] ; } } } //-> if ($Loc->BlockNbr==0) //Friend option (for blocks and fields) if ($CurrVal==='') { if (isset($Loc->PrmLst['friendb'])) { $Loc2 = tbs_Html_FindTag($Txt,$Loc->PrmLst['friendb'],True,$Loc->PosBeg,False,1,False) ; if ($Loc2!==False) { $Loc->PosBeg = $Loc2->PosBeg ; if ($Loc->PosEnd<$Loc2->PosEnd) $Loc->PosEnd = $Loc2->PosEnd ; } } if (isset($Loc->PrmLst['frienda'])) { $Loc2 = tbs_Html_FindTag($Txt,$Loc->PrmLst['frienda'],True,$Loc->PosBeg,True,1,False) ; if ($Loc2!==False) $Loc->PosEnd = $Loc2->PosEnd ; } if (isset($Loc->PrmLst['friend'])) { tbs_Locator_EnlargeToTag($Txt,$Loc,$Loc->PrmLst['friend'],False,1,0,False) ; } if (isset($Loc->PrmLst['friend2'])) { $CurrVal = tbs_Locator_EnlargeToTag($Txt,$Loc,$Loc->PrmLst['friend2'],False,1,0,True) ; } } $Txt = substr_replace($Txt,$CurrVal,$Loc->PosBeg,$Loc->PosEnd-$Loc->PosBeg+1) ; $NewEnd = $Loc->PosBeg + strlen($CurrVal) ; if ($Select) tbs_Html_MergeItems($Txt,$Loc,$CurrVal,$SelArray,$NewEnd) ; $GLOBALS['tbs_CurrVal'] = &$CurrValSave ; //Restore saved value. This is uselfull for field inclusion. return $NewEnd ; // Returns the new end position of the field } //Search the next locator wich is a block definition. function &tbs_Locator_FindBlockDef(&$Txt,$BlockName,$PosBeg,$OnlyType=False) { $Ok = False ; $Pos = $PosBeg ; do { $Loc = tbs_Locator_FindTbs($Txt,$BlockName,$Pos,True) ; if ($Loc!==False) { $Ok = True ; $Pos = $Loc->PosEnd + 1 ; //The locator is a field locator but it may contain a block definition if (isset($Loc->PrmLst['block'])) { $Loc->PrmLst['block'] = trim(strtolower($Loc->PrmLst['block'])) ; if ($OnlyType!==False) { if ($Loc->PrmLst['block']<>$OnlyType) $Ok = False ; } } else { $Ok = False ; } } } while ( ($Ok===False) and ($Loc!==False) ) ; if ($Ok) { return $Loc ; } else { return False ; } } //Return the first block locator object just after the PosBeg position function &tbs_Locator_FindBlock1(&$Txt,$BlockName,$PosBeg) { $Ok = False ; $Loc = tbs_Locator_FindBlockDef($Txt,$BlockName,$PosBeg,False) ; if ($Loc!==False) { if ($Loc->PrmLst['block']==='begin') { //Case of a begin-end $Loc2 = tbs_Locator_FindBlockDef($Txt,$BlockName,$Loc->PosEnd,'end') ; if ($Loc2!==False) { //It's ok, we get the source between the locators (without the bound locators). $Ok = True ; $Loc->BlockNbr = 1 ; $Loc->BlockLst[1] = substr($Txt,$Loc->PosEnd+1,$Loc2->PosBeg - $Loc->PosEnd - 1) ; $Loc->PosEnd = $Loc2->PosEnd ; } } else { if (isset($Loc->PrmLst['encaps'])) { $Encaps = abs(intval($Loc->PrmLst['encaps'])) ; } else { $Encaps = 1 ; } if (isset($Loc->PrmLst['extend'])) { $Extend = intval($Loc->PrmLst['extend']) ; } else { $Extend = 0 ; } $Ok = tbs_Locator_EnlargeToTag($Txt,$Loc,$Loc->PrmLst['block'],True,$Encaps,$Extend,False) ; if ($Ok===False) $Loc = False ; } } if ($Ok===False) { return False ; } else { return $Loc ; } } //Returns a locator object which points on a block wich covers all the block definitions, and contains all the text to merge //Returns a locator even if there is no block definition found. function &tbs_Locator_FindBlockLst(&$Txt,$BlockName,$Pos) { $LocR = new clsTbsLocator ; $LocR->DefFound = false ; $LocR->BlockNbr = 0 ; $LocR->HeaderNbr = 0 ; $LocR->FooterNbr = 0 ; $LocR->Serial = array() ; $LocR->EmptySrc = false ; $LocR->PrmLst = array() ; $LocR->NoDataSrc = false ; $LocR->SpecialSrc = false ; do { $Loc = tbs_Locator_FindBlock1($Txt,$BlockName,$Pos) ; if ($Loc!==False) { if (($LocR->DefFound!==False) and isset($Loc->PrmLst['p1'])) { $Loc = False ; //Stop the list feed } else { $Pos = $Loc->PosEnd + 1 ; //Define the block limits if ($LocR->DefFound===False) { $LocR->DefFound = True ; $LocR->PosBeg = $Loc->PosBeg ; $LocR->PosEnd = $Loc->PosEnd ; } else { if ( $LocR->PosBeg > $Loc->PosBeg ) $LocR->PosBeg = $Loc->PosBeg ; if ( $LocR->PosEnd < $Loc->PosEnd ) $LocR->PosEnd = $Loc->PosEnd ; } //Merge block parameters if (count($Loc->PrmLst)>0) $LocR->PrmLst = array_merge($LocR->PrmLst,$Loc->PrmLst) ; //Add the text int the list of blocks if (isset($Loc->PrmLst['nodata'])) { $LocR->NoDataSrc = $Loc->BlockLst[1] ; } elseif (isset($Loc->PrmLst['currpage'])) { $LocR->SpecialSrc = $Loc->BlockLst[1] ; } elseif (isset($Loc->PrmLst['headergrp'])) { $LocR->HeaderNbr++ ; $LocR->HeaderLst[$LocR->HeaderNbr] = array(0=>$Loc->BlockLst[1],1=>strtolower($Loc->PrmLst['headergrp']),2=>False) ; } else { $LocR->BlockNbr++ ; $LocR->BlockLst[$LocR->BlockNbr] = $Loc->BlockLst[1] ; $LocR->Serial[$LocR->BlockNbr] = isset($Loc->PrmLst['serial']) ; //Look for the empty sub-block definition if ($LocR->Serial[$LocR->BlockNbr]) { $LocSub = tbs_Locator_FindBlock1($Loc->BlockLst[1],$BlockName.'_0',0) ; if ($LocSub!==False) { $LocR->EmptySrc = $LocSub->BlockLst[1] ; //Save the empty sub-block source and delete it from its parent block source. $LocR->BlockLst[$LocR->BlockNbr] = substr($LocR->BlockLst[$LocR->BlockNbr],0,$LocSub->PosBeg).substr($LocR->BlockLst[$LocR->BlockNbr],$LocSub->PosEnd+1) ; $LocSub = tbs_Locator_FindBlock1($LocR->BlockLst[$LocR->BlockNbr],$BlockName.'_1',0) ; if ($LocSub===False) $LocR->BlockNbr-- ; //If no other sub-block then we delete the block from the list } } } } } } while ($Loc!==False) ; if ($LocR->DefFound===False) { $LocR->PosBeg = 0 ; $LocR->PosEnd = strlen($Txt) - 1 ; $LocR->BlockNbr = 1 ; $LocR->BlockLst[1] = $Txt ; $LocR->Serial[1] = False ; } return $LocR ; } //Merge all the occurences of a field-locator in the text string //Returns the number of fields found. function tbs_Merge_Field(&$Txt,&$HtmlCharSet,$Name,&$Value,$AcceptSub,$CheckSub) { $Nbr = 0 ; $PosBeg = 0 ; do { $Loc = tbs_Locator_FindTbs($Txt,$Name,$PosBeg,$AcceptSub) ; if ($Loc!==False) { $PosBeg = tbs_Locator_Replace($Txt,$HtmlCharSet,$Loc,$Value,$CheckSub) ; $Nbr++ ; } } while ($Loc!==False) ; return $Nbr ; } function tbs_Merge_Block(&$Txt,&$HtmlCharSet,&$BlockName,&$SrcId,$Query,$PageSize,$PageNum,$RecKnown) { $Pos = 0 ; $RowTot = 0 ; $Query0 = False ; //a not False value means they are parameters $CurrRecSave = &$GLOBALS['tbs_CurrRec'] ; $CurrRec = array() ; $GLOBALS['tbs_CurrRec'] = &$CurrRec ; //Get source type and info $SrcType = False ; $SrcSubType = False ; $RecSet = True ; //Must be true for first loop $RecInfo = False ; tbs_Data_Prepare($SrcId,$SrcType,$SrcSubType,$RecInfo) ; if ($SrcType===False) return 0 ; do { $RowNum = 0 ; //Number of row merged $RowStop = 0 ; //Stop the merge after this row $RowSpe = 0 ; //Row with a special block's definition (used for the navigation bar) $Groups = False ; //True if there is Hearder Group definitions $OnSection = False ; //Search the block $BlockLoc = tbs_Locator_FindBlockLst($Txt,$BlockName,$Pos) ; if ($BlockLoc->DefFound===False) { $RowStop = 1 ; //Merge only the first record } else { if ($BlockLoc->SpecialSrc!==False) $RowSpe = $RecKnown ; //Save the query definition if ($Query0===False) { if (isset($BlockLoc->PrmLst['p1'])) $Query0 = $Query ; } } //Replace parameters if ($Query0!==False) { if ($BlockLoc->DefFound===False) { $Query0 = False ; //End of the loop $RecSet = False ; } else { $Query = $Query0 ; $i = 1 ; do { $x = 'p'.$i ; if (isset($BlockLoc->PrmLst[$x])) { $Query = str_replace('%p'.$i.'%',$BlockLoc->PrmLst[$x],$Query) ; $i++ ; } else { $i = False ; } } while ($i!==False) ; } } //Open the recordset if ($RecSet!==False) { tbs_Data_Open($SrcId,$Query,$SrcType,$SrcSubType,$RecSet,$RecInfo) ; if ($RecSet===False) { $GLOBALS['tbs_CurrRec'] = &$CurrRecSave ; return $RowTot ; } } if ($RecSet!==False) { //Check for OnSection event if (isset($BlockLoc->PrmLst['onsection'])) { if (function_exists($BlockLoc->PrmLst['onsection'])) { $OnSection = $BlockLoc->PrmLst['onsection'] ; } else { tbs_Misc_Alert('MergeBlock','Unvalide value for the \'onsection\' parameter of the block The block ['.$BlockName.']. The function \''.$BlockLoc->PrmLst['onsection'].'\' is not found.') ; } } if ($SrcType===4) { //Special for Text merge if ($BlockLoc->DefFound===False) { tbs_Misc_Alert('MergeBlock','Can\'t merge the block \''.$BlockName.'\' with a text value because the block definition is not found.') ; } else { $RowNum = 1 ; $CurrRec = False ; if ($OnSection!==False) $OnSection($BlockName,$CurrRec,$RecSet,$RowNum) ; tbs_Locator_Replace($Txt,$GLOBALS['_tbs_False'],$BlockLoc,$RecSet,False) ; } } else { //Other data source type $CurrRec = array() ; //Manage pages if ($PageSize>0) { if ($PageNum>0) { //We pass all record until the asked page $RowStop = ($PageNum-1) * $PageSize ; while ($RowNum<$RowStop) { tbs_Data_Fetch($SrcType,$RecSet,$RecInfo,$CurrRec,$RowNum) ; if ($CurrRec===False) $RowStop=$RowNum ; } if ($CurrRec!==False) { $RowStop = $PageNum * $PageSize ; } } else { if ($PageNum==-1) { //Goto end of the recordset //Read records, saving the last page in $x $i = 0 ; while ($CurrRec!==False) { tbs_Data_Fetch($SrcType,$RecSet,$RecInfo,$CurrRec,$RowNum) ; if ($CurrRec!==False) { $i++ ; if ($i>$PageSize) { $x = array() ; $i = 1 ; } $x[] = $CurrRec ; } } //Close the real recordset source tbs_Data_Close($SrcType,$RecSet,$RecInfo) ; //Open a new recordset on the array $SrcType = 0 ; //Array $SrcSubType = 0 ; tbs_Data_Open($x,$Query,$SrcType,$SrcSubType,$RecSet,$RecInfo) ; //Modify info in order to make the tbs_Data_Fetch() function work properly $RecInfo['count'] = $RowNum ; $RowNum = $RowNum - $i ; $CurrRec = array() ; $x = '' ; } else { $RowStop = 1 ; $PageCnt = 1 ; } } } if ($CurrRec!==False) tbs_Data_Fetch($SrcType,$RecSet,$RecInfo,$CurrRec,$RowNum) ; //Initialise if ($BlockLoc->HeaderNbr > 0) $Groups = True ; $BlockRes = '' ; // The result of the chained merged blocks $BlockSrc = '' ; // The current block source $i = 1 ; $SubId = 0 ; //The current sub-block id (0 if no serial option) $SubDef = '' ; //The current sub-block definition $SubLoc = False ; //The current sub-block locator //Main loop while($CurrRec!==False) { $CurrRec['#'] = $RowNum ; //Manage headers if ($Groups===True) { if ($RowNum===1) { $change = True ; } else { $change = False ; } for ($j=1 ; $j<=$BlockLoc->HeaderNbr ; $j++) { $val = $CurrRec[$BlockLoc->HeaderLst[$j][1]] ; if (!$change) { $change = !( $BlockLoc->HeaderLst[$j][2] === $val ) ; } if ($change) { $BlockSrc .= $BlockLoc->HeaderLst[$j][0] ; $BlockLoc->HeaderLst[$j][2] = $val ; } } } //Manage the detail section if ($BlockLoc->Serial[$i]===True) { $SubId++ ; $SubLoc = tbs_Locator_FindBlock1($BlockSrc,$BlockName.'_'.$SubId,0) ; if ($SubLoc===False) { //Next main-block definition $BlockRes .= $BlockSrc ; $BlockSrc = '' ; $SubId = 0 ; $i++ ; if ($i>$BlockLoc->BlockNbr) $i = 1 ; } } if ($BlockLoc->Serial[$i]===False) { //Classic merge $BlockSrc .= $BlockLoc->BlockLst[$i] ; if ($RowNum===$RowSpe) $BlockSrc = $BlockLoc->SpecialSrc ; if ($OnSection!==False) $OnSection($BlockName,$CurrRec,$BlockSrc,$RowNum) ; tbs_Merge_List($BlockSrc,$HtmlCharSet,$BlockName,$CurrRec) ; //we merge the fields $BlockRes .= $BlockSrc ; //We add the block to the serial $BlockSrc = '' ; $i++ ; if ($i>$BlockLoc->BlockNbr) $i = 1 ; } else { //Merge with serial if ($SubLoc===False) {//False => it's a new main-block definition $BlockSrc = $BlockLoc->BlockLst[$i] ; $SubId = 1 ; $SubLoc = tbs_Locator_FindBlock1($BlockSrc,$BlockName.'_1',0) ; } if ($SubLoc!==False) { $SubDef = $SubLoc->BlockLst[1] ; if ($RowNum===$RowSpe) $SubDef = $BlockLoc->SpecialSrc ; if ($OnSection!==False) $OnSection($BlockName,$CurrRec,$SubDef,$RowNum) ; tbs_Merge_List($SubDef,$HtmlCharSet,$BlockName.'_'.$SubId,$CurrRec) ; //we merge the fields tbs_Locator_Replace($BlockSrc,$GLOBALS['_tbs_False'],$SubLoc,$SubDef,False) ; } } //Next row if ($RowNum===$RowStop) { $CurrRec = False ; } else { if ($CurrRec!==False) { //$CurrRec can be set to False by the OnSection event function. tbs_Data_Fetch($SrcType,$RecSet,$RecInfo,$CurrRec,$RowNum) ; } } } //--> while($CurrRec!==False) { //Serial: merge the extra the sub-blocks if (($BlockLoc->Serial[$i]===True) and ($SubId!==0)) { $CurrRec = False ; $j = $RowNum ; //Enable to have the fictive number of record in a varibale to pass by reference to $OnSection. do { $SubId++ ; $j++ ; $SubLoc = tbs_Locator_FindBlock1($BlockSrc,$BlockName.'_'.$SubId,0) ; if ($SubLoc!==False) { if ($BlockLoc->EmptySrc===False) { $SubDef = $SubLoc->BlockLst[1] ; if ($OnSection!==False) $OnSection($BlockName,$CurrRec,$SubDef,$j) ; $x = '' ; tbs_Merge_Field($SubDef,$HtmlCharSet,$BlockName.'_'.$SubId,$x,True,False) ; } else { $SubDef = $BlockLoc->EmptySrc ; if ($OnSection!==False) $OnSection($BlockName,$CurrRec,$SubDef,$j) ; } tbs_Locator_Replace($BlockSrc,$GLOBALS['_tbs_False'],$SubLoc,$SubDef,False) ; } } while ($SubLoc!==False) ; $BlockRes .= $BlockSrc ; } //Calculate the value to return if ($PageSize>0) { if ($RecKnown<0) { $CurrRec = True ; while($CurrRec!==False) { //Pass pages in order to count all records tbs_Data_Fetch($SrcType,$RecSet,$RecInfo,$CurrRec,$RowNum) ; } } else { if ($RowNum<$RowStop) { //the number of page was surestimated } else { if ($RecKnown>$RowNum) $RowNum = $RecKnown ; //We know that there is more records } } } //Special operation if no data if ($RowNum===0) { if ($BlockLoc->DefFound===False) { $BlockRes = $BlockLoc->BlockLst[1] ; } else { if ($BlockLoc->NoDataSrc!==False) $BlockRes = $BlockLoc->NoDataSrc ; if ($OnSection!==False) { $CurrRec = False ; $OnSection($BlockName,$CurrRec,$BlockRes,$RowNum) ; } } } //Merge the result tbs_Locator_Replace($Txt,$GLOBALS['_tbs_False'],$BlockLoc,$BlockRes,False) ; //The block must not be converted to HTML !! $Pos = $BlockLoc->PosBeg ; } //-> if ($SrcType===4) {...} else {... //Close the resource tbs_Data_Close($SrcType,$RecSet,$RecInfo) ; } //-> if ($RecSet!==False) {.. $RowTot += $RowNum ; } while ($Query0!==False) ; $CurrRec['#'] = $RowTot ; tbs_Merge_Field($Txt,$HtmlCharSet,$BlockName,$CurrRec,True,True) ; //Merge the number of record for the entire template //End of the merge $GLOBALS['tbs_CurrRec'] = &$CurrRecSave ; return $RowTot ; } //Type : 0=PHP Array, 1=MySQL, 2=ODBC, 3=SQL-Server,4=Text,5=ADODB, 6=number, 7 or str=custom, 8=PostGreSQL function tbs_Data_Prepare(&$SrcId,&$SrcType,&$SrcSubType,&$RecInfo) { $Src = False ; $SrcType = False ; $SrcSubType = 0 ; if (is_array($SrcId)) { $SrcType = 0 ; } elseif (is_resource($SrcId)) { $Key = get_resource_type($SrcId) ; switch ($Key) { case 'mysql link' : $SrcType = 1 ; break ; case 'mysql link persistent' : $SrcType = 1 ; break ; case 'mysql result' : $SrcType = 1 ; $SrcSubType = 1 ; break ; case 'odbc link' : $SrcType = 2 ; break ; case 'odbc link persistent' : $SrcType = 2 ; break ; case 'odbc result' : $SrcType = 2 ; $SrcSubType = 1 ; break ; case 'mssql link' : $SrcType = 3 ; break ; case 'mssql link persistent' : $SrcType = 3 ; break ; case 'mssql result' : $SrcType = 3 ; $SrcSubType = 1 ; break ; case 'pgsql link' : $SrcType = 8 ; break ; case 'pgsql link persistent' : $SrcType = 8 ; break ; case 'pgsql result' : $SrcType = 8 ; $SrcSubType = 1 ; break ; default : $Src = 'ressource type' ; $SrcType = 7 ; $x = $Key ; $x = str_replace('-','_',$SrcSubType) ; $SrcSubType = '' ; $i = 0 ; $iMax = strlen($SrcSubType) ; while ($i<$iMax) { if (($x[$i]==='_') or (($x[$i]>='a') and ($x[$i]<='z')) or (($x[$i]>='0') and ($x[$i]<='9'))) { $SrcSubType .= $x[$i] ; $i++; } else { $i = $iMax ; } } } } elseif (is_string($SrcId)) { switch (strtolower($SrcId)) { case 'array' : $SrcType = 0 ; $SrcSubType = 1 ; break ; case 'clear' : $SrcType = 0 ; $SrcSubType = 2 ; break ; case 'mysql' : $SrcType = 1 ; $SrcSubType = 2 ; break ; case 'mssql' : $SrcType = 3 ; $SrcSubType = 2 ; break ; case 'text' : $SrcType = 4 ; break ; case 'num' : $SrcType = 6 ; break ; default : $Key = $SrcId ; $Src = 'keyword' ; $SrcType = 7 ; $SrcSubType = $SrcId ; } } elseif (is_object($SrcId)) { $Key = get_class($SrcId) ; if ($Key==='COM') { if (strlen(@$SrcId->ConnectionString())>0) { //Look if it's a Connection object if ($SrcId->State==1) { $SrcType = 5 ; //ADODB } else { tbs_Misc_Alert('MergeBlock','The specified ADODB Connection is not open or not ready.') ; } } elseif (strlen(@$SrcId->CursorType())>0) { //Look if it's a RecordSet object if ($SrcId->State==1) { $SrcType = 5 ; //ADODB $SrcSubType = 1 ; } else { tbs_Misc_Alert('MergeBlock','The specified ADODB Recordset is not open or not ready.') ; } } else { tbs_Misc_Alert('MergeBlock','The specified COM Object is not a Connection or a Recordset.') ; } } else { $Src = 'object type' ; $SrcType = 7 ; $SrcSubType = $Key ; } } elseif ($SrcId===false) { tbs_Misc_Alert('MergeBlock','The specified source is set to FALSE. Maybe your connection has failed.') ; } else { tbs_Misc_Alert('MergeBlock','Unsupported variable type : \''.gettype($SrcId).'\'.') ; } if ($SrcType===7) { $SrcOpen = 'tbsdb_'.$SrcSubType.'_open' ; $SrcFetch = 'tbsdb_'.$SrcSubType.'_fetch' ; $SrcClose = 'tbsdb_'.$SrcSubType.'_close' ; if (function_exists($SrcOpen)) { if (function_exists($SrcFetch)) { if (function_exists($SrcClose)) { $RecInfo = array('o'=>$SrcOpen,'f'=>$SrcFetch,'c'=>$SrcClose) ; } else { tbs_Misc_Alert('MergeBlock','The expected custom function \''.$SrcClose.'\' is not found.') ; $SrcType = False ; } } else { tbs_Misc_Alert('MergeBlock','The expected custom function \''.$SrcFetch.'\' is not found.') ; $SrcType = False ; } } else { tbs_Misc_Alert('MergeBlock','The data source Id \''.$Key.'\' is an unsupported '.$Src.'. And the corresponding custom function \''.$SrcOpen.'\' is not found.') ; $SrcType = False ; } } } function tbs_Data_Open(&$SrcId,&$Query,&$SrcType,&$SrcSubType,&$RecSet,&$RecInfo) { switch ($SrcType) { case 0: //Array switch ($SrcSubType) { case 0: $RecSet = $SrcId ; break ; case 1: $RecSet = $Query ; break ; case 2: $RecSet = array() ; break ; } if (is_array($RecSet)) { $RecInfo = array('count'=>count($RecSet),'reset'=>True) ; } else { tbs_Misc_Alert('MergeBlock','The parameters is not an array') ; $RecSet = False ; } break ; case 1: //MySQL switch ($SrcSubType) { case 0: $RecSet = @mysql_query($Query,$SrcId) ; break ; case 1: $RecSet = $SrcId ; break ; case 2: $RecSet = @mysql_query($Query) ; break ; } if ($RecSet===False) tbs_Misc_Alert('MergeBlock','MySql: '.mysql_error()) ; break ; case 2: //ODBC switch ($SrcSubType) { case 0: $RecSet = @odbc_exec($SrcId,$Query) ; break ; case 1: $RecSet = $SrcId ; break ; } if ($RecSet===False) { tbs_Misc_Alert('MergeBlock','ODBC: '.odbc_errormsg()) ; } else { $RecInfo = array() ; $iMax = odbc_num_fields($RecSet) ; for ($i=1;$i<=$iMax;$i++) { $RecInfo[$i] = ''.odbc_field_name($RecSet,$i) ; } } break ; case 3: //MsSQL switch ($SrcSubType) { case 0: $RecSet = @mssql_query($Query,$SrcId) ; break ; case 1: $RecSet = $SrcId ; break ; case 2: $RecSet = @mssql_query($Query) ; break ; } if ($RecSet===False) { tbs_Misc_Alert('MergeBlock','SQL-Server: '.mssql_get_last_message()) ; } break ; case 4: //Text if (is_string($Query)) { $RecSet = $Query ; } else { $RecSet = ''.$Query ; } break ; case 5: //ADODB switch ($SrcSubType) { case 0: $RecSet = @$SrcId->Execute($Query) ; //We use the Connection object reather than the Recordset object in order to manage errors if ($SrcId->Errors->Count>0) { tbs_Misc_Alert('MergeBlock','ADODB: '.$SrcId->Errors[0]->Description) ; $RecSet = False ; } elseif (@$RecSet->State!=1) { tbs_Misc_Alert('MergeBlock','The ADODB query doesn\'t return a RecordSet or the ResordSet is not ready.') ; $RecSet = False ; } break ; case 1: $RecSet = $SrcId ; break ; } if ($RecSet!==False) { $RecInfo = array() ; $iMax = $RecSet->Fields->Count ; for ($i=0;$i<$iMax;$i++) { $RecInfo[$i] = ''.$RecSet->Fields[$i]->Name ; } } break ; case 6: //Num If (is_array($Query)) { $RecSet = $Query ; if (!isset($RecSet['min'])) $RecSet['min'] = 1 ; if (!isset($RecSet['step'])) $RecSet['step'] = 1 ; } else { $RecSet = array('min'=>1,'max'=>ceil($Query),'step'=>1) ; } if (isset($RecSet['max'])) { $RecSet['val'] = $RecSet['min'] ; } else { tbs_Misc_Alert('MergeBlock','The \'num\' source is an array that has no value for the \'max\' key.') ; $RecSet = False ; } break ; case 7: //Custom function $RecSet = $RecInfo['o']($SrcId,$Query) ; break ; case 8: //PostgreSQL switch ($SrcSubType) { case 0: $RecSet = @pg_query($SrcId,$Query) ; break ; case 1: $RecSet = $SrcId ; break ; } if ($RecSet===False) tbs_Misc_Alert('MergeBlock','PostgreeSQL: '.pg_last_error($SrcId)) ; break ; } } function tbs_Data_Fetch(&$SrcType,&$RecSet,&$RecInfo,&$RowData,&$RowNum) { switch ($SrcType) { case 0: //Array if ($RowNum<$RecInfo['count']) { if ($RecInfo['reset']) { $RowData = reset($RecSet) ; $RecInfo['reset'] = False ; } else { $RowData = next($RecSet) ; } if (!is_array($RowData)) $RowData = array('key'=>key($RecSet), 'val'=>$RowData) ; } else { $RowData = False ; } break ; case 1: //MySQL $RowData = mysql_fetch_assoc($RecSet) ; break ; case 2: //ODBC, odbc_fetch_array -> Error with PHP 4.1.1 $RowData = odbc_fetch_row($RecSet) ; if ($RowData) { $RowData = array() ; foreach ($RecInfo as $colid=>$colname) { $RowData[$colname] = odbc_result($RecSet,$colid) ; } } break ; case 3: //MsSQL $RowData = mssql_fetch_array($RecSet) ; break ; case 4: //Text if ($RowNum===0) { if ($RecSet==='') { $RowData = False ; } else { $RowData = &$RecSet ; } } else { $RowData = False ; } break ; case 5: //ADODB if ($RecSet->EOF()) { $RowData = False ; } else { $RowData = array() ; foreach ($RecInfo as $colid=>$colname) { $RowData[$colname] = $RecSet->Fields[$colid]->Value ; } $RecSet->MoveNext() ; //brackets () must be there } break ; case 6: //Num if ($RecSet['val']<=$RecSet['max']) { $RowData = array('val'=>$RecSet['val']) ; $RecSet['val'] = $RecSet['val'] + $RecSet['step'] ; } else { $RowData = False ; } break ; case 7: //Custom function $RowData = $RecInfo['f']($RecSet,$RowNum+1) ; break ; case 8: //PostgreSQL $RowData = @pg_fetch_array($RecSet,$RowNum,PGSQL_ASSOC) ; //warning comes when no record left. break ; } //Set the row count if ($RowData!==False) $RowNum++ ; } function tbs_Data_Close(&$SrcType,&$RecSet,&$RecInfo) { switch ($SrcType) { case 1: mysql_free_result($RecSet) ; break ; case 2: odbc_free_result($RecSet) ; break ; case 3: mssql_free_result($RecSet) ; break ; case 5: $RecSet->Close ; break ; case 7: $RecInfo['c']($RecSet) ; break ; case 8: pg_free_result($RecSet) ; break ; } } //This function enables to merge a set of 'case' blocks. //'case' bocks are blocks with the same name and 'when','then', 'else' conditions. function tbs_Merge_CaseBlock1(&$Txt,$BlockName) { $Pos = 0 ; $Ok = False ; $ElseFound = False ; //Scan for each Blocks while ($Pos!==False) { $Loc = tbs_Locator_FindBlock1($Txt,$BlockName,$Pos) ; if ($Loc===False) { $Pos = False ; } else { //Check if it has a 'if' parameter if (isset($Loc->PrmLst['if'])) { if (tbs_Misc_CheckCondition($Loc->PrmLst['if'])==True) { $x = $Loc->BlockLst[1] ; $Ok = True ; } else { $x = '' ; } } else { //If it's a 'else' block, we keep it for the end of the scan if (isset($Loc->PrmLst['else'])) { $ElseFound = True ; $Pos = $Loc->PosEnd ; $x = False ; } else { $x = '' ; } } //Merge the bock if ($x!==False) { $Pos = tbs_Locator_Replace($Txt,$GLOBALS['_tbs_False'],$Loc,$x,False) ; } } //--> if ($Loc===False) } //--> while ($Pos!==False) //Now, we scan for each 'else' blocks. if ($ElseFound===True) { $Pos = 0 ; while ($Pos!==False) { $Loc = tbs_Locator_FindBlock1($Txt,$BlockName,$Pos) ; if ($Loc===False) { $Pos = False ; } else { if ($Ok===True) { $x = '' ; } else { $x = $Loc->BlockLst[1] ; } $Pos = tbs_Locator_Replace($Txt,$GLOBALS['_tbs_False'],$Loc,$x,False) ; } } } } //Look for each 'check' block and merge them. function tbs_Merge_CaseBlockAll(&$Txt,$BlockName) { $PosBeg = 0 ; $CurrName = '' ; $LastName = '' ; while ($PosBeg!==False) { $Loc = tbs_Locator_FindBlock1($Txt,$BlockName,$PosBeg) ; if ($Loc===False) { $PosBeg = False ; } else { if ($Loc->SubName===False) { //We skip this block because it has no subname. $PosBeg = $Loc->PosEnd ; } else { $LastName = $CurrName ; $CurrName = $BlockName.'.'.$Loc->SubName ; if (strcasecmp($LastName,$CurrName)==0) { //This enable to no go into an nevereding loop $PosBeg = $Loc->PosEnd ; } else { tbs_Merge_CaseBlock1($Txt,$CurrName) ; } } } } } //Merge the PHP global variables of the main script. function tbs_Merge_PhpVar(&$Txt,&$HtmlCharSet) { $FieldName = 'var' ; //Check if the PhpVar list has to be initialized if ($GLOBALS['_tbs_PhpVarLst']===False) { //Build an array that enables to find any global variable name from its lower case name $GLOBALS['_tbs_PhpVarLst'] = array() ; $x = array_keys($GLOBALS) ; foreach ($x as $Key) { $GLOBALS['_tbs_PhpVarLst'][strtolower($Key)] = $Key ; } } //Then we scann all field in the model $Pos = 0 ; do { $Loc = tbs_Locator_FindTbs($Txt,$FieldName,$Pos,True) ; if ($Loc!==False) { $x = strpos($Loc->SubName,'.') ; if ($x===False) { $VarName = $Loc->SubName ; $Loc->SubName = False ; } else { $VarName = substr($Loc->SubName,0,$x) ; $Loc->SubName = substr($Loc->SubName,$x+1) ; } if (isset($GLOBALS['_tbs_PhpVarLst'][$VarName])) { $Pos = tbs_Locator_Replace($Txt,$HtmlCharSet,$Loc,$GLOBALS[$GLOBALS['_tbs_PhpVarLst'][$VarName]],True) ; } else { if (isset($Loc->PrmLst['noerr'])) { $x = '' ; $Pos = tbs_Locator_Replace($Txt,$HtmlCharSet,$Loc,$x,False) ; } else { tbs_Misc_Alert('Merge Php Var','Can\'t merge ['.$Loc->FullName.'] because there is no corresponding PHP variable.',True) ; $Pos = $Loc->PosEnd + 1 ; } } } } while ($Loc!==False) ; } //This function enables to merge TBS special fields function tbs_Merge_TbsVar(&$TBS) { $Pos = 0 ; do { $Loc = tbs_Locator_FindTbs($TBS->Source,'sys',$Pos,True) ; if ($Loc!==False) { $Pos = $Loc->PosEnd ; switch ($Loc->SubName) { case 'now': $x = mktime() ; $Pos = tbs_Locator_Replace($TBS->Source,$TBS->HtmlCharSet,$Loc,$x,False) ; break ; case 'version': $Pos = tbs_Locator_Replace($TBS->Source,$TBS->HtmlCharSet,$Loc,$TBS->_Version,False) ; break ; case 'script_name': if (isset($_SERVER)) { //PHP<4.1.0 compatibilty $x = tbs_Misc_GetFilePart($_SERVER['PHP_SELF'],1) ; } else { global $HTTP_SERVER_VARS ; $x = tbs_Misc_GetFilePart($HTTP_SERVER_VARS['PHP_SELF'],1) ; } $Pos = tbs_Locator_Replace($TBS->Source,$TBS->HtmlCharSet,$Loc,$x,False) ; break ; case 'template_name': $Pos = tbs_Locator_Replace($TBS->Source,$TBS->HtmlCharSet,$Loc,$TBS->_LastFile,False) ; break ; case 'template_date': $x = filemtime($TBS->_LastFile) ; $Pos = tbs_Locator_Replace($TBS->Source,$TBS->HtmlCharSet,$Loc,$x,False) ; break ; case 'template_path': $x = tbs_Misc_GetFilePart($TBS->_LastFile,0) ; $Pos = tbs_Locator_Replace($TBS->Source,$TBS->HtmlCharSet,$Loc,$x,False) ; break ; case 'name': $x = 'TinyButStrong' ; $Pos = tbs_Locator_Replace($TBS->Source,$TBS->HtmlCharSet,$Loc,$x,False) ; break ; case 'logo': $x = '**TinyButStrong**' ; $Pos = tbs_Locator_Replace($TBS->Source,$TBS->HtmlCharSet,$Loc,$x,False) ; break ; case 'merge_time' : $TBS->_Timer = True ; break ; case 'script_time': $TBS->_Timer = True ; break ; case 'charset': $Pos = tbs_Locator_Replace($TBS->Source,$TBS->HtmlCharSet,$Loc,$TBS->HtmlCharSet,False) ; break ; } } } while ($Loc!==False) ; } //Proceed to one of the special merge function tbs_Merge_Special(&$TBS,$Type) { if ($Type==='*') $Type = 'include,include.onshow,var,sys,check,timer' ; $TypeLst = split(',',$Type) ; foreach ($TypeLst as $Type) { switch ($Type) { case 'var': tbs_Merge_PhpVar($TBS->Source,$TBS->HtmlCharSet) ; break ; case 'sys': tbs_Merge_TbsVar($TBS) ; break ; case 'check': $x = '' ; tbs_Merge_Field($TBS->Source,$TBS->HtmlCharSet,'tbs_check',$x,False,False) ; tbs_Merge_CaseBlockAll($TBS->Source,'tbs_check') ; break ; case 'include': tbs_Merge_Auto($TBS->Source,$TBS->HtmlCharSet,True) ; break ; case 'include.onshow': tbs_Merge_Auto($TBS->Source,$TBS->HtmlCharSet,False) ; break ; case 'timer': if ($TBS->_Timer) { //This property is set wihtin the tbs_Merge_PhpVar() function global $_tbs_Timer ; $Micro = tbs_Misc_Timer() ; $x = $Micro - $TBS->_StartMerge ; tbs_Merge_Field($TBS->Source,$TBS->HtmlCharSet,'sys.merge_time',$x,False,False) ; $x = $Micro - $_tbs_Timer ; tbs_Merge_Field($TBS->Source,$TBS->HtmlCharSet,'sys.script_time',$x,False,False) ; } break ; } } } //Merge a list with named items. Used by tbs_Merge_Block(). function tbs_Merge_List(&$Txt,&$HtmlCharSet,$Name,&$List) { foreach ($List as $key => $val) { $Pos = 0 ; do { $Loc = tbs_Locator_FindTbs($Txt,$Name.'.'.$key,$Pos,True) ; if ($Loc!==False) $Pos = tbs_Locator_Replace($Txt,$HtmlCharSet,$Loc,$val,True) ; } while ($Loc!==False) ; } } //Include file function tbs_Merge_Auto(&$Txt,&$HtmlCharSet,$OnLoad) { $TmpValue = '' ; $Nbr = 0 ; $Pos = 0 ; do { $Loc = tbs_Locator_FindTbs($Txt,'tbs_include',$Pos,True) ; if ($Loc!==False) { $Ok = False ; if ($OnLoad) { if (($Loc->SubName===False) or (strtolower($Loc->SubName)==='onload') ) $Ok = True ; } else { if (strtolower(''.$Loc->SubName)==='onshow') $Ok = True ; } if ($Ok) { $Nbr++ ; if ($Nbr>64) { tbs_Misc_Alert('Automatic fields','The field ['.$Loc->FullName.'] can\'t be merged because the limit (64) is riched. You maybe have self-included templates.') ; $Loc=False ; } else { $Pos = $Loc->PosBeg ; tbs_Locator_Replace($Txt,$HtmlCharSet,$Loc,$TmpValue,False) ; } } else { $Pos = $Loc->PosEnd ; } } } while ($Loc!==False) ; } function tbs_Merge_NavigationBar(&$Txt,&$HtmlCharSet,$BlockName,$NavSize,$PageCurr,$RecCnt,$RecByPage) { //Check values if ($NavSize<=0) $NavSize = 10 ; if ($PageCurr<=0) $PageCurr = 1 ; if ($RecByPage<=0) $RecByPage = 1 ; $CurrPos = 0 ; $SaveNav = &$GLOBALS['tbs_CurrNav'] ; $CurrNav = array('curr'=>$PageCurr,'first'=>1,'last'=>-1,'bound'=>False) ; $GLOBALS['tbs_CurrNav'] = &$CurrNav ; //Calculate previous pages data $PageMin = $PageCurr - ( ($PageCurr-1) % $NavSize) ; $CurrNav['prev'] = $PageCurr - 1 ; if ($CurrNav['prev']<1) { $CurrNav['prev'] = 1 ; $CurrNav['bound'] = 1 ; } //Calculate next pages data $PageMax = $PageMin + $NavSize - 1 ; $CurrNav['next'] = $PageCurr + 1 ; if ($RecCnt>=0) { $PageCnt = ceil($RecCnt/$RecByPage) ; $PageMax = min($PageMax,$PageCnt) ; } else { $PageCnt = -1 ; } if ($PageCnt>0) { if ($PageCurr>=$PageCnt) { $CurrNav['next'] = $PageCnt ; $CurrNav['last'] = $PageCnt ; $CurrNav['bound'] = $PageCnt ; } else { $CurrNav['last'] = $PageCnt ; } } //Merge general information $Pos = 0 ; do { $Loc = tbs_Locator_FindTbs($Txt,$BlockName,$Pos,True) ; if ($Loc!==False) { $Pos = $Loc->PosBeg + 1 ; if (isset($CurrNav[$Loc->SubName])) { $Val = $CurrNav[$Loc->SubName] ; if ($CurrNav[$Loc->SubName]===$CurrNav['bound']) { if (isset($Loc->PrmLst['endpoint'])) { $Val = '' ; } } tbs_Locator_Replace($Txt,$HtmlCharSet,$Loc,$Val,False) ; } } } while ($Loc!==False) ; //Merge pages $Data = array() ; $RecSpe = 0 ; $RecCurr = 0 ; for ($PageId=$PageMin;$PageId<=$PageMax;$PageId++) { $RecCurr++ ; if ($PageId==$PageCurr) $RecSpe = $RecCurr ; $Data[] = array('page'=>$PageId) ; } tbs_Merge_Block($Txt,$HtmlCharSet,$BlockName,$Data,'',0,0,$RecSpe) ; $GLOBALS['tbs_CurrNav'] = &$SaveNav ; } //This function returns a part of the HTML document (HEAD or BODY) //The $CancelIfEmpty parameter enables to cancel the extraction when the part is not found. function tbs_Html_GetPart(&$Txt,$Tag,$WithTags=False,$CancelIfEmpty=False) { $x = False ; $LocOpen = tbs_Html_FindTag($Txt,$Tag,True,0,True,0,False) ; if ($LocOpen!==False) { $LocClose = tbs_Html_FindTag($Txt,$Tag,False,$LocOpen->PosEnd+1,True,0,False) ; if ($LocClose!==False) { if ($WithTags) { $x = substr($Txt,$LocOpen->PosBeg,$LocClose->PosEnd - $LocOpen->PosBeg + 1) ; } else { $x = substr($Txt,$LocOpen->PosEnd+1,$LocClose->PosBeg - $LocOpen->PosEnd - 1) ; } } } if ($x===False) { if ($CancelIfEmpty) { $x = $Txt ; } else { $x = '' ; } } return $x ; } //This function return True if thte text seems to have some HTML tags. function tbs_Html_IsHtml(&$Txt) { $IsHtml = False ; //Search for opening and closing tags $pos = strpos($Txt,'<') ; if ( ($pos!==False) and ($pos<strlen($Txt)-1) ) { $pos = strpos($Txt,'>',$pos + 1) ; if ( ($pos!==False) and ($pos<strlen($Txt)-1) ) { $pos = strpos($Txt,'</',$pos + 1) ; if ( ($pos!==False)and ($pos<strlen($Txt)-1) ) { $pos = strpos($Txt,'>',$pos + 1) ; if ($pos!==False) { $IsHtml = True ; } } } } //Search for special char if ($IsHtml===False) { $pos = strpos($Txt,'&') ; if ( ($pos!==False) and ($pos<strlen($Txt)-1) ) { $pos2 = strpos($Txt,';',$pos+1) ; if ($pos2!==False) { $x = substr($Txt,$pos+1,$pos2-$pos1) ; //We extract the found text between the couple of tags if (strlen($x)<=10) { if (strpos($x,' ')===False) { $IsHtml = True ; } } } } } //Look for a simple tag if ($IsHtml===False) { $Loc1 = tbs_Html_FindTag($Txt,'BR',True,0,True,0,False) ; //line break if ($Loc1===False) { $Loc1 = tbs_Html_FindTag($Txt,'HR',True,0,True,0,False) ; //horizontal line if ($Loc1!==False) { $IsHtml = True ; } } else { $IsHtml = True ; } } return $IsHtml ; } //Merge items of a list, or radio or check buttons. //At this point, the Locator is already merged with $SelValue. function tbs_Html_MergeItems(&$Txt,&$Loc,&$SelValue,&$SelArray,$NewEnd) { if ($Loc->PrmLst['selected']===True) { $IsList = True ; $MainTag = 'SELECT' ; $ItemTag = 'OPTION' ; $ItemPrm = 'selected' ; } else { $IsList = False ; $MainTag = 'FORM' ; $ItemTag = 'INPUT' ; $ItemPrm = 'checked' ; } $ItemPrmZ = ' '.$ItemPrm ; $TagO = tbs_Html_FindTag($Txt,$MainTag,True,$Loc->PosBeg-1,False,0,False) ; if ($TagO!==False) { $TagC = tbs_Html_FindTag($Txt,$MainTag,False,$Loc->PosBeg,True,0,False) ; if ($TagC!==False) { //We get the main block without the main tags $MainSrc = substr($Txt,$TagO->PosEnd+1,$TagC->PosBeg - $TagO->PosEnd -1) ; if ($IsList) { $Item0Beg = $Loc->PosBeg - ($TagO->PosEnd+1) ; $Item0Src = '' ; } else { //we delete the merged value $MainSrc = substr_replace($MainSrc,'',$Loc->PosBeg - ($TagO->PosEnd+1), strlen($SelValue)) ; } //Now, we going to scann all of the item tags $Pos = 0 ; $SelNbr = 0 ; $Item0Ok = False ; while ($Pos!==False) { $ItemLoc = tbs_Html_FindTag($MainSrc,$ItemTag,True,$Pos,True,0,True) ; if ($ItemLoc===False) { $Pos = False ; } else { //we get the value of the item $ItemValue = False ; $Select = True ; if ($IsList) { //Look for the end of the item $OptCPos = strpos($MainSrc,'<',$ItemLoc->PosEnd+1) ; if ($OptCPos===False) $OptCPos = strlen($MainSrc) ; if (($Item0Ok===False) and ($ItemLoc->PosBeg<$Item0Beg) and ($Item0Beg<=$OptCPos)) { //If it's the original item, we save it and delete it. if (($OptCPos+1<strlen($MainSrc)) and ($MainSrc[$OptCPos+1]==='/')) { $OptCPos = strpos($MainSrc,'>',$OptCPos) ; if ($OptCPos===False) { $OptCPos = strlen($MainSrc) ; } else { $OptCPos++ ; } } $Item0Src = substr($MainSrc,$ItemLoc->PosBeg,$OptCPos-$ItemLoc->PosBeg) ; $MainSrc = substr_replace($MainSrc,'',$ItemLoc->PosBeg,strlen($Item0Src)) ; if (!isset($ItemLoc->PrmLst[$ItemPrm])) $Item0Src = substr_replace($Item0Src,$ItemPrmZ,$ItemLoc->PosEnd-$ItemLoc->PosBeg,0) ; $OptCPos = min($ItemLoc->PosBeg,strlen($MainSrc)-1) ; $Select = False ; $Item0Ok = True ; } else { if (isset($ItemLoc->PrmLst['value'])) { $ItemValue = $ItemLoc->PrmLst['value'] ; } else { //The value of the option is its caption. $ItemValue = substr($MainSrc,$ItemLoc->PosEnd+1,$OptCPos - $ItemLoc->PosEnd - 1) ; $ItemValue = str_replace(chr(9),' ',$ItemValue) ; $ItemValue = str_replace(chr(10),' ',$ItemValue) ; $ItemValue = str_replace(chr(13),' ',$ItemValue) ;
Apolda Template is a simple, but powerful template class written in PHP. <p>Main features are:<br> <ul><li>Support of simple replacements and multiple (nested) blocks. <li>Simple API, easy to understand especially from the programmer's point of view. <li>Flexible block handling via Template objects. </ul> <?php define("TEMPLATE_ERR_FILE","Could not load template file."); /** * Apolda Simple Template class. * This file is part of Apolda Web Tool Suite. * * The complete apolda classes are distributed under the * GNU Lesser General Public License. * See the lesser.txt file for details. * * @author Ralf Geschke <ralf@kuerbis.org> * @copyright 2002 by Ralf Geschke * @version $Id: class_template.inc.php,v 1.6 2002/07/16 09:05:07 geschke Exp $ * @access public */ class Template { var $delimiterStart = "{"; var $delimiterEnd = "}"; var $t; var $templatefile; /** * Constructor function. * If a template filename is submitted, this function will * initialize the template object tree. * * @param string $filename Name of template file. * @access public * @return void */ function Template($filename = "") { /* todo: - remove setting error messages from constructor ( to a base class ? ) */ $this->loadTemplateFile($filename); } /** * Set start delimiter * Call this function if you wish to change the default start * delimiter '{' to another character. * * @param string $delim * @return void */ function setStartDelim($delim="{") { $this->delimiterStart = $delim; } /** * Set end delimiter * Call this function if you wish to change the default end * delimiter '}' to another character. * * @param string $delim * @return void */ function setEndDelim($delim="}") { $this->delimiterEnd = $delim; } /** * Load and initialize template file. * This is only useful if it is not possible to * set a template filename by creating an instance of * the template class. * * @param string $filename Name of template file. * @access public * @return void */ function loadTemplateFile($filename = "") { if (!$filename) return false; if ($filename) $this->templatefile = $filename; if (!$fp = @fopen($this->templatefile,'r')) { die(TEMPLATE_ERR_FILE); } $this->t = fread($fp,filesize($this->templatefile)); fclose($fp); $this->_initTemplate(); } /** * Submit a string variable as template content. * This is useful if your template doesn't exist as file, * e.g. if it is saved in a database. * * @param string $templatestring * @access public * @return void */ function loadTemplateContent($templatestring="") { $this->t = $templatestring; $this->_initTemplate(); } /** * Parse the template. * This function creates the template object tree and replaces contents * of blocks with simple placeholders. * * @access private * @return void */ function _initTemplate() { preg_match_all("/<!--\s+BEGIN\s+(.*)?\s+-->\s*\n*\s*(.*)\s*\n*\s*<!--\s+END\s+(\\1)\s+-->/ms",$this->t,$ma); for ($i = 0; $i < count($ma[0]); $i++) { $search = "/\s*\n*<!--\s+BEGIN\s+(" . $ma[1][$i] . ")?\s+-->(.*)<!--\s+END\s+(" . $ma[1][$i]. ")\s+-->\s*\n*/ms"; $replace = $this->delimiterStart . $ma[1][$i] . $this->delimiterEnd; $this->bl[$ma[1][$i]] =& new Template(); $this->bl[$ma[1][$i]]->loadTemplateContent($ma[2][$i]); $this->t = preg_replace($search,$replace,$this->t); } } /** * Fetch a block out of the template. * If the block exists, this function returns a Template object, * otherwise nothing (false). * When parsing the template, the blocks will removed * into Template objects and replaced with placeholders. * The name of the placeholder is identical to the name * of the removed block. * * @param string $blockName * @access public * @return object Template or boolean false */ function fetchBlock($blockName) { if (isset($this->bl[$blockName])) return $this->bl[$blockName]; else return false; } /** * Assign value to an existing placeholder. * If this function is called multiple, the contents * will be added. * * The parameter $varName can be a string, an associative * array or a Template object. * * @param mixed $varName * Allowed types: Requirements: * string $varValue * array Array format: * array ("name_of_placeholder" => Value, * ... ) * object Template object or any object which * returns HTML code via get() method. * * @param string $varValue (optional) * @access public */ function assign($varName,$varValue=false) { if (is_array($varName)) { foreach ($varName as $key => $value) { $this->pl[$key][] = $value; } } else { $this->pl[$varName][] = $varValue; } } /** * Delete the contents of submitted variables. * * @param none * @access public */ function reset() { unset($this->pl); } /** * Print a template with all replacements done. * * @param none * @access public */ function out() { print $this->get(); } /** * Returns a template with all replacements done. * * @param none * @access public * @return string parsed template content */ function get() { if (is_array($this->pl)) { foreach ($this->pl as $key => $value) { $search = $this->delimiterStart . $key . $this->delimiterEnd; $replaceText = ""; for ($i = 0; $i < count($this->pl[$key]); $i++) { if (is_object($this->pl[$key][$i])) $replaceText .= $this->pl[$key][$i]->get(); else $replaceText .= $this->pl[$key][$i]; } $this->t = str_replace($search,$replaceText,$this->t); } } return $this->t; } } ?>
I have tried a number of ready made templates before writing this. But, none of them seem to me suitable for me. They were either too complicated, or too simple. So I decided to write "a template".. 2 main features for ATemplate are: * Allows nested templates, * Easy to use.. (I hope so..) <? class atemplate { ##PRIVATE## var $templates = array(); var $outputs = array(); ##PUBLIC## function atemplate($a) { while(list($tplname, $filename)=each($a)) { $this->templates[$tplname]= $this->readtpl($filename); } } function embed($name, $toname) { $this->outputs[$toname] = str_replace('{'.$name.'}', $this->outputs[$name], $this->outputs[$toname]); $this->outputs[$name] =''; } function process($tplname, $a) { $tmp = $this->templates[$tplname]; while (list($var, $val)=each($a)) { $tmp =str_replace('{'.$var.'}', $val, $tmp); } $this->outputs[$tplname] .= $tmp; } function printit() { while(list( , $val)=each($this->outputs)) { print("$val\n"); } } function append($name, $toname) { $this->outputs[$toname] .= $this->outputs[$name]; $this->outputs[$name] = ''; } ##PRIVATE## function readtpl($filename) { if(file_exists($filename)) { $res =implode("\n",file($filename)); return $res; } die("Can not find $filename"); } } ?>
Though similar to other such offerings (i.e. Smarty) , DtTemplate has a few distinct advantages in its design. Primarily, its formatting language is extremely intuitive and bears a striking resemblance to html. This makes the template syntax very familiar to web designers. Furthermore, this library compiles its templates , and as such runtime is FAST! Though simple , our design does not compromise flexibility, DtTemplate fully supports embedded php code within its own templates. This library supports I18-localized error messages. There is extensive documentation available on the website with examples and code snippets that should make this library easily accessible to template designers and programmers alike. http://www.derosetechnologies.com/dttemplate-home.php
ETS is a template system written with PHP. It allows a complete reshuffle of templates with exactly the same data and is extremely valuable when working with database... It s a powerful tool that will help you efficiently to build documents. /** * ETS - Easy Template System - 3.02 * Copyright (C) 2002 Franck Marcia <phpets@hotmail.com> * http://ets.sourceforge.net * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library 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 * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * * @author Franck Marcia <phpets@hotmail.com> * @version 3.02 */ /** * Size reducing behaviour */ define('_ETS_REDUCE_NULL', 0); define('_ETS_REDUCE_OFF', 1); define('_ETS_REDUCE_SPACES', 2); define('_ETS_REDUCE_ALL', 4); /** * Parsing modes */ define('_ETS_DATA', 1); define('_ETS_NAME', 2); define('_ETS_CLOSING_TAG', 4); define('_ETS_VALUE', 8); define('_ETS_COMMENT', 16); define('_ETS_CDATA', 32); /** * Parsing mode groups */ define('_ETS_GROUP0', _ETS_COMMENT + _ETS_CDATA); /** * Element types */ define('_ETS_NULL', 0x0); define('_ETS_ROOT', 0x1); define('_ETS_TEXT', 0x2); define('_ETS_TAG', 0x4); define('_ETS_ALT_TAG', 0x8); define('_ETS_TEMPLATE', 0x10); define('_ETS_SET', 0x20); define('_ETS_SETVAL', 0x40); define('_ETS_MIS', 0x80); define('_ETS_MISVAL', 0x100); define('_ETS_PHP', 0x200); define('_ETS_CONST', 0x400); define('_ETS_IF', 0x800); define('_ETS_CODE', 0x1000); define('_ETS_CHOOSE', 0x2000); define('_ETS_WHENTEST', 0x4000); define('_ETS_ELSE', 0x8000); define('_ETS_CHOOSEVAR', 0x10000); define('_ETS_WHENVAL', 0x20000); define('_ETS_CALL', 0x40000); define('_ETS_ARG', 0x80000); define('_ETS_MIS_TEMPLATE', 0x100000); define('_ETS_REDUCE', 0x200000); define('_ETS_REPEAT', 0x400000); define('_ETS_INCLUDE', 0x800000); define('_ETS_INSERT', 0x1000000); /** * Element type groups */ define('_ETS_CODEs', _ETS_CODE + _ETS_PHP); define('_ETS_CHOOSEs', _ETS_CHOOSE + _ETS_CHOOSEVAR); define('_ETS_SETs', _ETS_SET + _ETS_SETVAL); define('_ETS_MISs', _ETS_MIS + _ETS_MISVAL); define('_ETS_GROUP1', _ETS_CHOOSEs + _ETS_CODEs + _ETS_CALL + _ETS_ROOT); define('_ETS_GROUP2', _ETS_CHOOSEs + _ETS_CODEs + _ETS_CALL); define('_ETS_GROUP3', _ETS_CHOOSEs + _ETS_CALL + _ETS_ROOT); /** * Building directions */ define('_ETS_FORWARD', 1); define('_ETS_BACKWARD', 2); /** * Building types */ define('_ETS_MISSING', 1); define('_ETS_SCALAR', 2); define('_ETS_COMPLEX', 4); define('_ETS_PARENT', 8); define('_ETS_FROM_ROOT', 16); /** * Template management class * This class is intended to be used by printt() and sprintt() only */ class _ets { /** * Data tree */ var $datatree; /** * Mask tree */ var $masktree = array(); /** * Size reducing behavior */ var $reduce = _ETS_REDUCE_NULL; /** * Current file name in parsing */ var $filename = NULL; /***** E R R O R *****/ /** * Print out error message and exit */ function error($type, $message, $line = 0, $elttype = _ETS_NULL) { switch ($type) { case 0: if ($elttype == _ETS_ROOT) { echo "<b>ETS error:</b> $message can't be defined outside a template on line $line of <b>{$this->filename}</b><br>"; } else { echo '<b>ETS error:</b> ' . $this->eltlabel($elttype) . " can't contain $message on line $line of <b>{$this->filename}</b><br>"; } exit; case 1: echo '<b>ETS error:</b> unexpected closing tag {/' . $message . "} on line $line of <b>{$this->filename}</b><br>"; exit; case 2: echo "<b>ETS error:</b> $message on line $line of <b>{$this->filename}</b><br>"; exit; case 3: echo "<b>ETS error:</b> end of " . $this->modelabel($elttype) . " starting on line $line not found in file <b>{$this->filename}</b><br>"; exit; case 4: echo "<b>ETS error:</b> closing tag not found for " . $this->eltlabel($elttype) . " starting on line $line in file <b>{$this->filename}</b><br>"; exit; case 5: if ($line == 0) { echo "<b>ETS error:</b> unable to read file $message given as argument<br>"; } else { echo "<b>ETS error:</b> unable to read file $message of " . $this->eltlabel($elttype) . " on line $line of <b>{$this->filename}</b><br>"; } exit; } } /** * Define the label of a element type from an id */ function eltlabel($eltid) { switch($eltid) { case _ETS_ROOT: return 'root element'; case _ETS_TEXT: return 'text element'; case _ETS_TAG: return 'simple tag element'; case _ETS_ALT_TAG: return 'alternate tag element'; case _ETS_TEMPLATE: return 'template element'; case _ETS_SET: return 'set element'; case _ETS_SETVAL: return 'set-value element'; case _ETS_MIS: return 'missing element'; case _ETS_MISVAL: return 'missing-value element'; case _ETS_PHP: return 'PHP element'; case _ETS_CONST: return 'constant element'; case _ETS_IF: return 'if element'; case _ETS_CODE: return 'PHP code or test'; case _ETS_CHOOSE: return 'choose element'; case _ETS_WHENTEST: return 'when-test element'; case _ETS_ELSE: return 'else element'; case _ETS_CHOOSEVAR: return 'choose-variable element'; case _ETS_WHENVAL: return 'when-value element'; case _ETS_CALL: return 'call element'; case _ETS_ARG: return 'argument element'; case _ETS_MIS_TEMPLATE: return 'missing template element'; case _ETS_REDUCE: return 'reduce element'; case _ETS_REPEAT: return 'repeat element'; case _ETS_INCLUDE: return 'include element'; case _ETS_INSERT: return 'insert element'; } } /** * Define the label of a parsing mode from an id */ function modelabel($modeid) { switch($modeid) { case _ETS_COMMENT: return 'comment'; case _ETS_CDATA: return 'cdata'; } } /***** P A R S I N G *****/ /** * Define size reducing behavior */ function set_reduce($value) { switch(strtoupper($value)) { case 'OFF': case 'NOTHING': $this->reduce = _ETS_REDUCE_OFF; break; case 'SPACE': case 'SPACES': $this->reduce = _ETS_REDUCE_SPACES; break; case 'CRLF': case 'ON': case 'ALL': $this->reduce = _ETS_REDUCE_ALL; break; } } /** * Walk through a slash separated path of a node to build a tree */ function node_path_walk($elements, $rank, $ptype, &$i, &$line, $cvalue, $ncontent, $content) { if (count($elements) == 1) { $elt[$ptype . ':' . $i . ':' . $elements[0] . ':' . $cvalue] = $this->parse($ptype, $i, $line, $ncontent, $content); } else { $element1 = array_shift($elements); $masktype = ($ptype == _ETS_MIS || $ptype == _ETS_MISVAL) ? _ETS_MIS_TEMPLATE : _ETS_TEMPLATE; $elt[$masktype . ':' . $i . '.' . $rank . ':' . $element1] = $this->node_path_walk($elements, $rank + 1, $ptype, $i, $line, $cvalue, $ncontent, $content); } return $elt; } /** * Store a new node in the template tree */ function store_node(&$elts, $ptype, &$i, &$line, $cname, $cvalue, $ncontent, $content) { $isabsolute = FALSE; if ($cname{0} == '/' && $cname{1} == '/') { $isabsolute = TRUE; $cname = substr($cname, 2); } $elements = explode('/', $cname); if (count($elements) == 1 && !$isabsolute) { $elts[$ptype . ':' . $i . ':' . $cname . ':' . $cvalue] = $this->parse($ptype, $i, $line, $ncontent, $content); } else { if ($isabsolute) { $elts[_ETS_TEMPLATE . ':' . $i . '.1://'] = $this->node_path_walk($elements, 2, $ptype, $i, $line, $cvalue, $ncontent, $content); } else { $element1 = array_shift($elements); $masktype = ($ptype == _ETS_MIS || $ptype == _ETS_MISVAL) ? _ETS_MIS_TEMPLATE : _ETS_TEMPLATE; $elts[$masktype . ':' . $i . '.1:' . $element1] = $this->node_path_walk($elements, 2, $ptype, $i, $line, $cvalue, $ncontent, $content); } } } /** * Walk through a slash separated path of a leaf to build a tree */ function leaf_path_walk($elements, $rank, $ptype, &$i, $cvalue) { if (count($elements) == 1) { $elt[$ptype . ':' . $i . ':' . $elements[0] . ':' . $cvalue] = ''; } else { $element1 = array_shift($elements); $elt[_ETS_TEMPLATE . ':' . $i . '.' . $rank . ':' . $element1] = $this->leaf_path_walk($elements, $rank + 1, $ptype, $i, $cvalue); } return $elt; } /** * Store a new leaf in the template tree */ function store_leaf(&$elts, $ptype, &$i, $cname, $cvalue = NULL) { $isabsolute = FALSE; if ($cname{0} == '/' && $cname{1} == '/') { $isabsolute = TRUE; $cname = substr($cname, 2); } $elements = explode('/', $cname); if (count($elements) == 1 && !$isabsolute) { $elts[$ptype . ':' . $i . ':' . $cname . ':' . $cvalue] = ''; } else { if ($isabsolute) { $elts[_ETS_TEMPLATE . ':' . $i . '.1://'] = $this->leaf_path_walk($elements, 2, $ptype, $i, $cvalue); } else { $element1 = array_shift($elements); $elts[_ETS_TEMPLATE . ':' . $i . '.1:' . $element1] = $this->leaf_path_walk($elements, 2, $ptype, $i, $cvalue); } } } /** * Store a new text in the template tree */ function store_text(&$elts, &$i, $ptype, $ntext, $ctext) { if ($ntext == 1) { if ($ptype == _ETS_CODE) { // don't store border spaces in code $ctext = trim($ctext); if ($ctext !== '') { $elts[_ETS_TEXT . ':' . $i] = $ctext; } } elseif ($ptype != _ETS_ROOT) { $elts[_ETS_TEXT . ':' . $i] = $ctext; } } } /** * Define if the parameter is a non printable character */ function is_space($char) { $asc = ord($char); if ($asc == 32) { return TRUE; } elseif ($asc > 8 && $asc < 14) { return TRUE; } return FALSE; } /** * Recursively parse template */ function parse($ptype, &$i, &$line, $ncontent, $content) { $elts = array(); $mode = _ETS_DATA; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $nspecial = 0; $saveline = $line; for ( ; $i < $ncontent; ++$i) { // current character and following $c0 = $content{$i}; $c1 = $content{$i + 1}; $a0 = ord($c0); // line count if ($a0 == 10 || ($a0 == 13 && ord($c1) != 10)) { ++$line; } // data acquisition if ($mode == _ETS_DATA) { // tag? if ($c0 == '{') { $c2 = $content{$i + 2}; $c3 = $content{$i + 3}; $c4 = $content{$i + 4}; $c5 = $content{$i + 5}; $c6 = $content{$i + 6}; $c7 = $content{$i + 7}; // {* (comment) if ($c1 == '*') { if ($ptype & _ETS_CODEs) { $this->error(0, 'comment', $line, $ptype); } $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_COMMENT; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; ++$i; ++$nspecial; $saveline = $line; // {# (cdata) } elseif ($c1 == '#') { if ($ptype & _ETS_GROUP1) { $this->error(0, 'cdata', $line, $ptype); } $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_CDATA; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; ++$i; ++$nspecial; $saveline = $line; // {mask: } elseif ($c1 == 'm' && $c2 == 'a' && $c3 == 's' && $c4 == 'k' && $c5 == ':') { if ($ptype & _ETS_GROUP2) { $this->error(0, 'template element', $line, $ptype); } $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_NAME; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = _ETS_TEMPLATE; $i += 5; // {call: } elseif ($c1 == 'c' && $c2 == 'a' && $c3 == 'l' && $c4 == 'l' && $c5 == ':') { if ($ptype & _ETS_GROUP1) { $this->error(0, 'call element', $line, $ptype); } $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_NAME; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = _ETS_CALL; $i += 5; // {const: } elseif ($c1 == 'c' && $c2 == 'o' && $c3 == 'n' && $c4 == 's' && $c5 == 't' && $c6 == ':') { if ($ptype & _ETS_GROUP1) { $this->error(0, 'constant element', $line, $ptype); } $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_NAME; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = _ETS_CONST; $i += 6; // {set: } elseif ($c1 == 's' && $c2 == 'e' && $c3 == 't' && $c4 == ':') { if ($ptype & _ETS_GROUP1) { $this->error(0, 'set element', $line, $ptype); } $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_NAME; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = _ETS_SET; $i += 4; // {mis: } elseif ($c1 == 'm' && $c2 == 'i' && $c3 == 's' && $c4 == ':') { if ($ptype & _ETS_GROUP1) { $this->error(0, 'missing element', $line, $ptype); } $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_NAME; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = _ETS_MIS; $i += 4; // {choose: } elseif ($c1 == 'c' && $c2 == 'h' && $c3 == 'o' && $c4 == 'o' && $c5 == 's' && $c6 == 'e' && $c7 == ':') { if ($ptype & _ETS_GROUP1) { $this->error(0, 'choose element', $line, $ptype); } $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_NAME; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = _ETS_CHOOSEVAR; $i += 7; // {arg: } elseif ($c1 == 'a' && $c2 == 'r' && $c3 == 'g' && $c4 == ':') { if ($ptype == _ETS_CALL) { $mode = _ETS_NAME; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = _ETS_ARG; $i += 4; } else { $this->error(0, 'argument element', $line, $ptype); } // {reduce: } elseif ($c1 == 'r' && $c2 == 'e' && $c3 == 'd' && $c4 == 'u' && $c5 == 'c' && $c6 == 'e' && $c7 == ':') { if ($ptype == _ETS_ROOT) { if ($this->reduce == _ETS_REDUCE_NULL) { $mode = _ETS_NAME; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = _ETS_REDUCE; $i += 7; } else { $this->error(2, 'reuse of reduce element', $line, $ptype); } } else { $this->error(0, 'reduce element', $line, $ptype); } // {include: } elseif ($c1 == 'i' && $c2 == 'n' && $c3 == 'c' && $c4 == 'l' && $c5 == 'u' && $c6 == 'd' && $c7 == 'e' & $content{$i + 8} == ':') { if ($ptype & _ETS_GROUP2) { $this->error(0, 'include element', $line, $ptype); } $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_VALUE; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = _ETS_INCLUDE; switch ($content{$i + 9}) { case '\'': $quotetype = 1; $i += 9; break; case '"': $quotetype = 2; $i += 9; break; default: $quotetype = 0; $i += 8; break; } // {insert: } elseif ($c1 == 'i' && $c2 == 'n' && $c3 == 's' && $c4 == 'e' && $c5 == 'r' && $c6 == 't' && $c7 == ':') { if ($ptype & _ETS_GROUP1) { $this->error(0, 'insert element', $line, $ptype); } $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_VALUE; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = _ETS_INSERT; switch ($content{$i + 8}) { case '\'': $quotetype = 1; $i += 8; break; case '"': $quotetype = 2; $i += 8; break; default: $quotetype = 0; $i += 7; break; } // {when: } elseif ($c1 == 'w' && $c2 == 'h' && $c3 == 'e' && $c4 == 'n' && $c5 == ':') { // of of whentest if ($ptype == _ETS_CHOOSE) { $mode = _ETS_DATA; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 6; $index = _ETS_WHENTEST . ':' . $i; $elts['when'][$index]['test'] = $this->parse(_ETS_CODE, $i, $line, $ncontent, $content); $elts['when'][$index]['true'] = $this->parse(_ETS_WHENTEST, $i, $line, $ncontent, $content); } // of whenval elseif ($ptype == _ETS_CHOOSEVAR) { $mode = _ETS_VALUE; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = _ETS_WHENVAL; switch ($c6) { case '\'': $quotetype = 1; $i += 6; break; case '"': $quotetype = 2; $i += 6; break; default: $quotetype = 0; $i += 5; break; } } else { $this->error(0, 'when element', $line, $ptype); } // {if: } elseif ($c1 == 'i' && $c2 == 'f' && $c3 == ':') { if ($ptype & _ETS_GROUP1) { $this->error(0, 'if element', $line, $ptype); } $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_DATA; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 4; $index = _ETS_IF . ':' . $i; $elts[$index]['test'] = $this->parse(_ETS_CODE, $i, $line, $ncontent, $content); $elts[$index]['true'] = $this->parse(_ETS_IF, $i, $line, $ncontent, $content); // {repeat: } elseif ($c1 == 'r' && $c2 == 'e' && $c3 == 'p' && $c4 == 'e' && $c5 == 'a' && $c6 == 't' && $c7 == ':') { if ($ptype & _ETS_GROUP1) { $this->error(0, 'repeat element', $line, $ptype); } $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_DATA; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 8; $index = _ETS_REPEAT . ':' . $i; $elts[$index]['value'] = $this->parse(_ETS_CODE, $i, $line, $ncontent, $content); $elts[$index]['repeat'] = $this->parse(_ETS_REPEAT, $i, $line, $ncontent, $content); // simple tag with absolute path } elseif ($c1 == '/' && $c2 == '/') { if ($ptype & _ETS_GROUP3) { $this->error(0, 'simple tag element with absolute path', $line, $ptype); } $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_NAME; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cvalue = ''; $cname = '//'; $nameinvalue = 0; $nametype = _ETS_TAG; $i += 2; // other simple tag } elseif ($c1 != '/' && !$this->is_space($c1)) { // {else if ($c1 == 'e' && $c2 == 'l' && $c3 == 's' && $c4 == 'e' && ($this->is_space($c5) || $c5 == '}' )) { if ($ptype & _ETS_CHOOSEs) { $mode = _ETS_NAME; $ntext = $nvalue = $nspace = 0; $nname = 1; $ctext = $cvalue = ''; $cname = 'else'; $nameinvalue = 0; $nametype = _ETS_TAG; $i += 4; } else { $this->error(0, 'else element', $line, $ptype); } } elseif ($ptype & _ETS_GROUP3) { $this->error(0, 'simple tag element', $line, $ptype); // other } else { $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_NAME; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = _ETS_TAG; } // {/mask } elseif ($c1 == '/' && $c2 == 'm' && $c3 == 'a' && $c4 == 's' && $c5 == 'k') { if ($ptype == _ETS_TEMPLATE) { $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_CLOSING_TAG; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 5; } else { $this->error(1, 'mask', $line, $ptype); } // {/set } elseif ($c1 == '/' && $c2 == 's' && $c3 == 'e' && $c4 == 't') { if ($ptype & _ETS_SETs) { $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_CLOSING_TAG; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 4; } else { $this->error(1, 'set', $line, $ptype); } // {/mis } elseif ($c1 == '/' && $c2 == 'm' && $c3 == 'i' && $c4 == 's') { if ($ptype & _ETS_MISs) { $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_CLOSING_TAG; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 4; } else { $this->error(1, 'mis', $line, $ptype); } // {/php } elseif ($c1 == '/' && $c2 == 'p' && $c3 == 'h' && $c4 == 'p') { if ($ptype == _ETS_PHP) { $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_CLOSING_TAG; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 4; } else { $this->error(1, 'PHP', $line, $ptype); } // {/if } elseif ($c1 == '/' && $c2 == 'i' && $c3 == 'f') { if ($ptype == _ETS_IF) { $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_CLOSING_TAG; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 3; } else { $this->error(1, 'if', $line, $ptype); } // {/choose } elseif ($c1 == '/' && $c2 == 'c' && $c3 == 'h' && $c4 == 'o' && $c5 == 'o' && $c6 == 's' && $c7 == 'e') { if ($ptype & _ETS_CHOOSEs) { $mode = _ETS_CLOSING_TAG; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 7; } else { $this->error(1, 'choose', $line, $ptype); } // {/call } elseif ($c1 == '/' && $c2 == 'c' && $c3 == 'a' && $c4 == 'l' && $c5 == 'l') { if ($ptype == _ETS_CALL) { $mode = _ETS_CLOSING_TAG; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 5; } else { $this->error(1, 'call', $line, $ptype); } // {/arg } elseif ($c1 == '/' && $c2 == 'a' && $c3 == 'r' && $c4 == 'g') { if ($ptype == _ETS_ARG) { $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_CLOSING_TAG; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 4; } else { $this->error(1, 'arg', $line, $ptype); } // {/when } elseif ($c1 == '/' && $c2 == 'w' && $c3 == 'h' && $c4 == 'e' && $c5 == 'n') { // of when val if ($ptype == _ETS_WHENVAL) { $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_CLOSING_TAG; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 5; // of when test } elseif ($ptype == _ETS_WHENTEST) { $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_CLOSING_TAG; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 5; } else { $this->error(1, 'when', $line, $ptype); } // {/else } elseif ($c1 == '/' && $c2 == 'e' && $c3 == 'l' && $c4 == 's' && $c5 == 'e') { if ($ptype == _ETS_ELSE) { $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_CLOSING_TAG; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 5; } else { $this->error(1, 'else', $line, $ptype); } // {/repeat } elseif ($c1 == '/' && $c2 == 'r' && $c3 == 'e' && $c4 == 'p' && $c5 == 'e' && $c6 == 'a' && $c7 == 't') { if ($ptype == _ETS_REPEAT) { $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_CLOSING_TAG; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; $i += 7; } else { $this->error(1, 'repeat', $line, $ptype); } // {/ (simplified closing tag) } elseif ($c1 == '/' && ($c2 == '}' || $this->is_space($c2))) { if ($ptype != _ETS_ROOT) { $this->store_text($elts, $i, $ptype, $ntext, $ctext); $mode = _ETS_CLOSING_TAG; $ntext = $nname = $nvalue = $nspace = 0; $ctext = $cname = $cvalue = ''; $nameinvalue = 0; $nametype = NULL; ++$i; } else { $this->error(1, '', $line, $ptype); } // text } elseif ($ptype != _ETS_CHOOSE && $ptype != _ETS_CHOOSEVAR && $ptype != _ETS_CALL && $ptype != _ETS_ROOT) { $ctext .= $c0; $ntext = 1; } // end of test of if or whentest element } elseif ($c0 == '}' && $ptype == _ETS_CODE) { $this->store_text($elts, $i, $ptype, $ntext, $ctext); ++$i; return $elts; // no text in choosevar element } elseif ($ptype == _ETS_CHOOSE && !$this->is_space($c0)) { $this->error(2, "unexpected character '$c0' in choose element", $line); // no text in choose element } elseif ($ptype == _ETS_CHOOSEVAR && !$this->is_space($c0)) { $this->error(2, "unexpected character '$c0' in choose-variable element", $line); // no text in call element } elseif ($ptype == _ETS_CALL && !$this->is_space($c0)) { $this->error(2, "unexpected character '$c0' in call element", $line); // text } elseif ($ptype != _ETS_ROOT) { $ctext .= $c0; $ntext = 1; } // name acquisition } elseif ($mode == _ETS_NAME) { // end of name acquisition if ($c0 == '}' && $nname == 1) { // reduce if ($nametype == _ETS_REDUCE) { $this->set_reduce($cname); // template } elseif ($nametype == _ETS_TEMPLATE) { ++$i; if ($ptype != _ETS_ROOT) { $this->store_node($elts, _ETS_TEMPLATE, $i, $line, $cname, NULL, $ncontent, $content); } elseif (isset($elts[$cname])) { $this->error(2, "template $cname already defined", $line); } else { $elts[$cname] = $this->parse(_ETS_TEMPLATE, $i, $line, $ncontent, $content); } // call } elseif ($nametype == _ETS_CALL) { ++$i; $this->store_node($elts, _ETS_CALL, $i, $line, $cname, NULL, $ncontent, $content); // const } elseif ($nametype == _ETS_CONST) { $this->store_leaf($elts, _ETS_CONST, $i, $cname); // set } elseif ($nametype == _ETS_SET) { ++$i; $this->store_node($elts, _ETS_SET, $i, $line, $cname, NULL, $ncontent, $content); // mis } elseif ($nametype == _ETS_MIS) { ++$i; $this->store_node($elts, _ETS_MIS, $i, $line, $cname, NULL, $ncontent, $content); // tag? } elseif ($nametype == _ETS_TAG) { // php if ($cname == 'php') { ++$i; $elts[_ETS_PHP . ':' . $i] = $this->parse(_ETS_PHP, $i, $line, $ncontent, $content); // choose } elseif ($cname == 'choose') { ++$i; $elts[_ETS_CHOOSE . ':' . $i] = $this->parse(_ETS_CHOOSE, $i, $line, $ncontent, $content); // else } elseif (($ptype == _ETS_CHOOSE || $ptype == _ETS_CHOOSEVAR) && $cname == 'else') { if (isset($elts['else'])) { $this->error(2, "else statement already exists in " . $this->eltlabel($ptype), $line); } else { ++$i; $elts['else'] = $this->parse(_ETS_ELSE, $i, $line, $ncontent, $content); } // alternate tag } elseif ($nameinvalue == 1) { $this->store_leaf($elts, _ETS_ALT_TAG, $i, $cname, $cvalue); $nameinvalue = 0; // tag! } else { $this->store_leaf($elts, _ETS_TAG, $i, $cname); } // choose var } elseif ($nametype == _ETS_CHOOSEVAR) { ++$i; $this->store_node($elts, _ETS_CHOOSEVAR, $i, $line, $cname, NULL, $ncontent, $content); // arg } elseif ($nametype == _ETS_ARG) { ++$i; $this->store_node($elts, _ETS_ARG, $i, $line, $cname, NULL, $ncontent, $content); } $mode = _ETS_DATA; // space in name acquisition } elseif ($this->is_space($c0)) { if (($nameinvalue == 0 && $nname == 1) || ($nameinvalue == 1 && $nvalue == 1)) { $nspace = 1; } else { $this->error(2, "unexpected space before name", $line); } // start of value acquisition } elseif ($c0 == ':' && $nname == 1 && ($nametype == _ETS_SET || $nametype == _ETS_MIS)) { $cvalue = ''; $nvalue = 0; $nspace = 0; $mode = _ETS_VALUE; switch ($c1) { case '\'': $quotetype = 1; ++$i; break; case '"': $quotetype = 2; ++$i; break; default: $quotetype = 0; break; } // start of second name acquisition } elseif ($c0 == ':' && $nametype == _ETS_TAG && $nname == 1 && $nvalue == 0) { $cvalue = ''; $nvalue = 0; $nameinvalue = 1; $nspace = 0; // data after trailing spaces } elseif ($nspace == 1) { $this->error(2, "unexpected character '$c0' after spaces in name", $line); // name acquisition } elseif (($nname == 0 && preg_match('/[a-zA-Z_\.\x7f-\xff]/', $c0)) || ($nname == 1 && preg_match('/[\[\]\'\/a-zA-Z0-9_\.\x7f-\xff]/', $c0))) { if ($nameinvalue == 1) { $cvalue .= $c0; $nvalue = 1; } else { $cname .= $c0; $nname = 1; } // absolute path at the beginning of name acquisition } elseif ($c0 == '/' && $c1 == '/' && $nname == 0) { $cname = '//'; ++$i; // error in name acquisition } else { $this->error(2, "unexpected character '$c0' in name", $line); } // end of closing tag } elseif ($mode == _ETS_CLOSING_TAG) { if ($c0 == '}') { $this->store_text($elts, $i, $ptype, $ntext, $ctext); return $elts; } elseif (!$this->is_space($c0)) { $this->error(2, "unexpected character '$c0' in closing tag", $line); } // value acquisition } elseif ($mode == _ETS_VALUE) { // end of value acquisition if ($c0 == '}' && $nvalue == 1 && ($quotetype == 0 || $nspace == 1 || $nspace == 2)) { if ($nametype == _ETS_SET) { ++$i; $this->store_node($elts, _ETS_SETVAL, $i, $line, $cname, $cvalue, $ncontent, $content); } elseif ($nametype == _ETS_MIS) { ++$i; $this->store_node($elts, _ETS_MISVAL, $i, $line, $cname, $cvalue, $ncontent, $content); } elseif ($nametype == _ETS_WHENVAL) { ++$i; $elts['when'][_ETS_WHENVAL . ':' . $i . '::' . $cvalue] = $this->parse(_ETS_WHENVAL, $i, $line, $ncontent, $content); } elseif ($nametype == _ETS_INCLUDE) { ++$i; if ($ptype == _ETS_ROOT) { $filename = $this->filename; $masktree = $this->parse_file($cvalue); $this->filename = $filename; if (!isset($masktree)) { $this->error(5, $cvalue, $line, _ETS_INCLUDE); } $this->masktree = array_merge($this->masktree, $masktree); } else { if (!file_exists($cvalue)) { $this->error(5, $cvalue, $line, _ETS_INCLUDE); } $this->store_leaf($elts, _ETS_INCLUDE, $i, '', $cvalue); } } elseif ($nametype == _ETS_INSERT) { if (!file_exists($cvalue)) { $this->error(5, $cvalue, $line, _ETS_INSERT); } $this->store_leaf($elts, _ETS_INSERT, $i, '', $cvalue); } $mode = _ETS_DATA; // no more character after space for single quoted string } elseif ($c0 == '\'' && $quotetype == 1 && $nspace == 0) { $nspace = 2; // no more character after space for double quoted string } elseif ($c0 == '"' && $quotetype == 2 && $nspace == 0) { $nspace = 2; // space in value acquisition } elseif ($this->is_space($c0)) { if ($nvalue == 0 && $quotetype == 0) { // no value without quote $this->error(2, "unexpected space at the beginning of a value", $line); } else { // value found or with quotes if ($quotetype == 0) { // no quote $nspace = 1; } else { // with quotes if ($nspace == 2) { // after quotes $nspace = 1; } else { // in quotes $cvalue .= $c0; $nvalue = 1; } } } // escape } with \} in value acquisition without quote } elseif ($c0 == '\\' && $c1 == '}' && $nspace == 0) { $cvalue .= '}'; $nvalue = 1; ++$i; // espace ' with \' in value acquisition for single quoted string } elseif ($c0 == '\\' && $c1 == '\'' && $quotetype == 1 && $nspace == 0) { $cvalue .= '\''; $nvalue = 1; ++$i; // espace " with \" in value acquisition for single quoted string } elseif ($c0 == '\\' && $c1 == '"' && $quotetype == 2 && $nspace == 0) { $cvalue .= '"'; $nvalue = 1; ++$i; // value acquisition } elseif ($nspace == 0) { $cvalue .= $c0; $nvalue = 1; // error in value acquisition } else { $this->error(2, "unexpected character '$c0' in value", $line); } // comment } elseif ($mode == _ETS_COMMENT) { // nested if ($c0 == '{' && $c1 == '*') { ++$i; ++$nspecial; // end } elseif ($c0 == '*' && $c1 == '}') { ++$i; --$nspecial; // last end if ($nspecial == 0) { $mode = _ETS_DATA; } } // cdata } elseif ($mode == _ETS_CDATA) { // nested if ($c0 == '{' && $c1 == '#') { ++$i; ++$nspecial; // end } elseif ($c0 == '#' && $c1 == '}') { ++$i; --$nspecial; // last end if ($nspecial == 0) { $mode = _ETS_DATA; } // text acquisition } else { $ctext .= $c0; $ntext = 1; } } } // errors if ($mode & _ETS_GROUP0) { $this->error(3, '', $saveline, $mode); } if ($ptype != _ETS_ROOT) { $this->error(4, '', $saveline, $ptype); } return $elts; } /** * Read a file and return its content */ function read_file() { $content = NULL; $this->filename = trim($this->filename); if ($handle = @fopen($this->filename, 'rb')) { $size = filesize($this->filename); $content = @fread($handle, $size); fclose($handle); } return $content; } /** * Parse a file and return its template tree */ function parse_file($filename) { $this->filename = $filename; $content = $this->read_file(); return isset($content) ? $this->parse(_ETS_ROOT, $i = 0, $line = 1, strlen($content), $content) : NULL; } /** * Construct an array of file names if needed */ function transform_filenames($filenames) { if (!is_array($filenames)) { $filenames = explode(',', $filenames); } return $filenames; } /** * Read files then parse their content to build a template tree */ function parse_files($filenames) { // Construct an array of file names $filenames = $this->transform_filenames($filenames); // Parse each file $parsed = array(); foreach ($filenames as $filename) { $masktree = $this->parse_file($filename); if (!isset($masktree)) { $this->error(5, $this->filename); } $this->masktree = array_merge($this->masktree, $masktree); } } /***** M A T C H I N G *****/ /** * Retrieve the value of a string representation of a variable */ function get_value($parent, $varname) { if (isset($parent->$varname)) { return $parent->$varname; } else { $elements = explode('[', $varname); if (count($elements) == 1) { return NULL; } else { $vartest = $parent; foreach($elements as $elementid => $element) { if ($elementid == 0) { $vartest = $parent->$element; if (!isset($vartest)) { return NULL; } } else { $index = substr($element, 0, -1); if ($index == '_first') { $index = 0; } elseif ($index == '_last') { $index = count($vartest) - 1; } if (!isset($vartest[$index])) { return NULL; } else { $vartest = $vartest[$index]; } } } } return $vartest; } } /** * Add system variables to an object */ function add_system_var(&$datatree, $index, $last, $key) { $datatree->_key = $key; $datatree->_index = $index; $datatree->_rank = $index + 1; $datatree->_odd = $datatree->_not_even = (1 == $datatree->_rank % 2); $datatree->_even = $datatree->_not_odd = (0 == $datatree->_rank % 2); $datatree->_first = (0 == $index); $datatree->_middle = !$datatree->_first && !$last; $datatree->_last = $last; $datatree->_not_first = !$datatree->_first; $datatree->_not_last = !$last; $datatree->_not_middle = !$datatree->_middle; } /** * Excerpt info defined in the index of each node of the template tree */ function parse_info($info) { $elements = explode(':', $info); $count = count($elements); if ($count > 4) { for ($i = 4; $i < $count; ++$i) { $elements[3] .= ':' . $elements[$i]; } } else { $elements = array_pad($elements, 4, ''); } return array($elements[0], $elements[2], $elements[3]); } /** * Recursively match the template tree with the data tree */ function build_mask($datatree, $masktree, $direction = _ETS_FORWARD, $index = -1, $last = FALSE, $key = '', $incode = FALSE) { $built = array(); // array if (isset($datatree) && is_array($datatree) && count($datatree) > 0) { $lindex = 0; $count = count($datatree) - 1; // remove parent element foreach($datatree as $dk => $dv) { if (!is_scalar($dv) && $dk !== '_parent') { if (is_object($dv)) { $dv->_parent = &$datatree['_parent']; } elseif (is_array($dv)) { $dv['_parent'] = &$datatree['_parent']; } $built[] = $this->build_mask($dv, $masktree, _ETS_FORWARD, $lindex, ($count == $lindex + 1), $dk); } ++$lindex; } return implode('', $built); } // define system variables if (is_object($datatree) && $index > -1 && !isset($datatree->_key)) { $this->add_system_var($datatree, $index, $last, $key); } // loop through each child template foreach($masktree as $maskinfo => $child) { // retrieve info from index list($masktype, $maskname, $maskvalue) = $this->parse_info($maskinfo); switch ($masktype) { // content data element case _ETS_TEXT: $built[] = $child; break; // php element case _ETS_PHP: $return = NULL; @eval('$return=' . $this->build_mask($datatree, $child, _ETS_FORWARD, -1, FALSE, '', TRUE) . ';'); if (isset($return)) { $built[] = $return; } break; // const element case _ETS_CONST: if (isset($this->masktree[$maskname])) { $built[] = $this->build_mask($datatree, $this->masktree[$maskname]); } break; // call element case _ETS_CALL: if (isset($this->masktree[$maskname])) { $argdatatree = $datatree; foreach ($child as $arginfo => $argchild) { list($argtype, $argname, $argvalue) = $this->parse_info($arginfo); $argdatatree->$argname = $this->build_mask($datatree, $argchild); } $built[] = $this->build_mask($argdatatree, $this->masktree[$maskname]); } break; // include element case _ETS_INCLUDE: $this->masktree = array_merge($this->masktree, $this->parse_file($maskvalue)); break; // insert element case _ETS_INSERT: $this->filename = $maskvalue; $built[] = $this->read_file(); break; // other types of element default: // retrieve value $currentdata = $this->get_value($datatree, $maskname); // define data type if ($maskname == '//') { $datatype = _ETS_FROM_ROOT; $root = $this->