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->datatree; if ($direction == _ETS_FORWARD) { if (is_array($root)) { $root['_parent'] = &$datatree; } elseif (is_object($root)) { $root->_parent = &$datatree; } } } elseif ($maskname == '..') { $datatype = _ETS_PARENT; } elseif (isset($currentdata)) { if (is_scalar($currentdata)) { if ($currentdata === FALSE && !$incode) { $datatype = _ETS_MISSING; } elseif ($currentdata === '' && !$incode) { $datatype = _ETS_MISSING; } else { $datatype = _ETS_SCALAR; } } elseif (is_object($currentdata) && count(get_object_vars($currentdata)) > 0) { $datatype = _ETS_COMPLEX; if ($direction == _ETS_FORWARD) { $currentdata->_parent = &$datatree; } } elseif (is_array($currentdata) && count($currentdata) > 0) { $datatype = _ETS_COMPLEX; if ($direction == _ETS_FORWARD) { $currentdata['_parent'] = &$datatree; } } else { $datatype = _ETS_MISSING; } } else { $datatype = _ETS_MISSING; } switch ($masktype) { // simple tag element case _ETS_TAG: if ($datatype == _ETS_SCALAR && isset($this->masktree[$maskname])) { $built[] = $this->build_mask($datatree, $this->masktree[$maskname]); } elseif ($datatype == _ETS_SCALAR) { if ($incode) { if ($currentdata === TRUE) { $built[] = 'TRUE'; } elseif ($currentdata === FALSE) { $built[] = 'FALSE'; } elseif (is_string($currentdata)) { $built[] = '"' . addcslashes($currentdata, "\0..\31\"") . '"'; } else { $built[] = $currentdata; } } else { $built[] = $currentdata; } } elseif ($datatype == _ETS_COMPLEX && isset($this->masktree[$maskname])) { $built[] = $this->build_mask($currentdata, $this->masktree[$maskname]); } elseif ($datatype == _ETS_MISSING && $incode) { $built[] = 'NULL'; } break; // alternate tag element case _ETS_ALT_TAG: if ($datatype == _ETS_SCALAR && isset($this->masktree[$maskvalue])) { $built[] = $this->build_mask($datatree, $this->masktree[$maskname]); } elseif ($datatype == _ETS_COMPLEX && isset($this->masktree[$maskvalue])) { $built[] = $this->build_mask($currentdata, $this->masktree[$maskvalue]); } elseif ($datatype == _ETS_SCALAR) { $built[] = $currentdata; } break; // template element case _ETS_TEMPLATE: if ($datatype == _ETS_SCALAR) { $built[] = $this->build_mask($datatree, $child); } elseif ($datatype == _ETS_COMPLEX) { $built[] = $this->build_mask($currentdata, $child, _ETS_FORWARD, $index, $last, $key, $incode); } elseif ($datatype == _ETS_PARENT) { if (is_array($datatree)) { $built[] = $this->build_mask($datatree['_parent'], $child, _ETS_BACKWARD, $index, $last, $key, $incode); } elseif (is_object($datatree)) { $built[] = $this->build_mask($datatree->_parent, $child, _ETS_BACKWARD, $index, $last, $key, $incode); } } elseif ($datatype == _ETS_FROM_ROOT) { $built[] = $this->build_mask($root, $child, _ETS_FORWARD, $index, $last, $key, $incode); } break; // if element case _ETS_IF: $test = $this->build_mask($datatree, $child['test'], _ETS_FORWARD, -1, FALSE, '', TRUE); $return = NULL; @eval('$return=' . $test . ';'); if ($return === TRUE) { $built[] = $this->build_mask($datatree, $child['true']); } break; // repeat element case _ETS_REPEAT: $test = $this->build_mask($datatree, $child['value'], _ETS_FORWARD, -1, FALSE, '', TRUE); $return = NULL; @eval('$return=(int)(' . $test . ');'); for ($i = 0; $i < $return; ++$i) { $built[] = $this->build_mask($datatree, $child['repeat']); } break; // choose element case _ETS_CHOOSE: $notfound = TRUE; if (isset($child['when'])) { foreach($child['when'] as $grandchild) { $test = $this->build_mask($datatree, $grandchild['test'], _ETS_FORWARD, -1, FALSE, '', TRUE); $return = NULL; @eval('$return=' . $test . ';'); if ($return === TRUE) { $notfound = FALSE; $built[] = $this->build_mask($datatree, $grandchild['true']); break; } } } if ($notfound && isset($child['else'])) { $built[] = $this->build_mask($datatree, $child['else']); } break; // choose variable element case _ETS_CHOOSEVAR: if ($datatype == _ETS_SCALAR) { $notfound = TRUE; if (isset($child['when'])) { foreach($child['when'] as $gcmaskinfo => $grandchild) { list($gcmasktype, $gcmaskname, $gcmaskvalue) = $this->parse_info($gcmaskinfo); if ($currentdata == $gcmaskvalue) { $built[] = $this->build_mask($datatree, $grandchild); $notfound = FALSE; } } } if ($notfound && isset($child['else'])) { $built[] = $this->build_mask($datatree, $child['else']); } } break; // set element case _ETS_SET: if ($datatype != _ETS_MISSING) { $built[] = $this->build_mask($datatree, $child); } break; // mis element case _ETS_MIS: if ($datatype == _ETS_MISSING) { $built[] = $this->build_mask($datatree, $child); } break; // set val element case _ETS_SETVAL: if ($datatype == _ETS_SCALAR) { if ($currentdata == $maskvalue) { $built[] = $this->build_mask($datatree, $child); } } break; // mis val element case _ETS_MISVAL: if ($datatype == _ETS_MISSING || ($datatype == _ETS_SCALAR && $currentdata != $maskvalue)) { $built[] = $this->build_mask($datatree, $child); } break; // mis mask element case _ETS_MIS_TEMPLATE: if ($datatype == _ETS_MISSING || $datatype == _ETS_COMPLEX) { $built[] = $this->build_mask($currentdata, $child); } elseif ($datatype == _ETS_PARENT) { if (is_array($datatree)) { $built[] = $this->build_mask($datatree['_parent'], $child, _ETS_BACKWARD); } elseif (is_object($datatree)) { $built[] = $this->build_mask($datatree->_parent, $child, _ETS_BACKWARD); } } break; } break; } } // done return implode('', $built); } /***** I N T E R F A C E *****/ /** * Build the result */ function build_all($entry) { if (!isset($this->masktree[$entry])) { return NULL; } if (is_array($this->datatree)) { $this->datatree['_parent'] = NULL; } elseif (is_object($this->datatree)) { $this->datatree->_parent = NULL; } $built = $this->build_mask($this->datatree, $this->masktree[$entry]); switch ($this->reduce) { case _ETS_REDUCE_OFF: return $built; case _ETS_REDUCE_SPACES: return preg_replace('/(\r\n|\r|\n)+/sm', "\n", preg_replace('/[ \t]*?(\r\n|\r|\n)+[\t ]*/sm', "\n", $built)); case _ETS_REDUCE_ALL: return preg_replace('/[ \t]*?(\r\n|\r|\n)+[\t ]*/sm', '', $built); } } /** * Contructor : store the data tree then build the template tree */ function _ets($datatree, $filenames) { $this->datatree = $datatree; $this->parse_files($filenames); } } /** * Return a build template */ function sprintt($datatree, $filenames, $entry = 'main') { $ets = new _ets($datatree, $filenames); return $ets->build_all($entry); } /** * Print out a built template */ function printt($datatree, $filenames, $entry = 'main') { $ets = new _ets($datatree, $filenames); echo $ets->build_all($entry); } ?>
ETS is a template system written with PHP. It allows a complete reshuffle of the template 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. <?php /** * ETS - Easy Template System - 3.01 * 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.01 */ /** * 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; /** * Size reducing behavior */ var $reduce = 0; /** * File sizes */ var $filesizes = array(); /***** E R R O R *****/ /** * Print out error message and exit */ function error($type, $message, $pname = '', $line = 0, $filename = '') { switch ($type) { case 0: echo "<b>ETS error:</b> $message on line $line of <b>$filename</b><br>"; break; case 1: echo "<b>ETS error:</b> $message in <b>$pname</b> on line $line of <b>$filename</b><br>"; break; case 2: echo "<b>ETS error:</b> <b>$message</b> (starting on line $line) not found in <b>$pname</b> at end of file <b>$filename</b><br>"; break; case 3: echo "<b>ETS error:</b> <b>closing tag</b> not found for <b>$message</b> (starting on line $line) at end of file <b>$filename</b><br>"; break; } exit; } /***** P A R S I N G *****/ /** * Construct an array of file names if needed */ function transform_filenames($filenames) { // Construct an array of file names if (!is_array($filenames)) { $filenames = explode(',', $filenames); } // Sort sort($filenames); // Done return $filenames; } /** * Read listed files and return their content */ function read_files($filenames) { // Construct an array of file names $filenames = $this->transform_filenames($filenames); // Construct an array of file content $content = array(); foreach ($filenames as $filekey => $filename) { $filename = trim($filename); if ($handle = @fopen($filename, 'rb')) { $size = filesize($filename); $content[$filekey] = @fread($handle, $size); fclose($handle); $this->filesizes[$filename] = $size; } } // Added file sizes $sum = 0; foreach ($this->filesizes as $filename => $filesize) { $sum += $filesize; $this->filesizes[$filename] = $sum; } // Return concatenated file contents return implode('', $content); } /** * Define size reducing behavior */ function set_reduce($value) { switch(strtoupper($value)) { case 'OFF': case 'NOTHING': $this->reduce = 0; break; case 'SPACE': case 'SPACES': $this->reduce = 1; break; case 'CRLF': case 'ON': case 'ALL': $this->reduce = 2; break; } } /** * Walk through a slash separated path of a node to build a tree */ function node_path_walk($elements, $rank, &$l, $t1, &$i, &$j, $n, $f, $t2, $s, $c, $r) { if (count($elements) == 1) { $x[$t1 . ':' . $i . ':' . $elements[0] . (isset($f) ? (':' . $f) : '')] = $this->parse($t2, $i, $j, $s, $c, $elements[0]); } else { $element1 = array_shift($elements); $lt = ($t1 == 'n' || $t1 == 'o') ? 'x:' : 'm:'; $x[$lt . $i . '.' . $rank . ':' . $element1] = $this->node_path_walk($elements, $rank + 1, $l, $t1, $i, $j, $n, $f, $t2, $s, $c, $r); } return $x; } /** * Store a new node in the template tree */ function store_node(&$l, $t1, &$i, &$j, $n, $f, $t2, $s, $c, $r) { $isabsolute = FALSE; if ($n{0} == '/' && $n{1} == '/') { $isabsolute = TRUE; $n = substr($n, 2); } $elements = explode('/', $n); if (count($elements) == 1 && !$isabsolute) { $l[$t1 . ':' . $i . ':' . $n . (isset($f) ? (':' . $f) : '')] = $this->parse($t2, $i, $j, $s, $c, $n); } else { if ($isabsolute) { $l['m:' . $i . '.1://'] = $this->node_path_walk($elements, 2, $l, $t1, $i, $j, $n, $f, $t2, $s, $c, $r); } else { $element1 = array_shift($elements); $lt = ($t1 == 'n' || $t1 == 'o') ? 'x:' : 'm:'; $l[$lt . $i . '.1:' . $element1] = $this->node_path_walk($elements, 2, $l, $t1, $i, $j, $n, $f, $t2, $s, $c, $r); } } } /** * Walk through a slash separated path of a leaf to build a tree */ function leaf_path_walk($elements, $rank, &$l, $t, &$i, &$j, $n, $f) { if (count($elements) == 1) { $x[$t . ':' . $i . ':' . $elements[0] . (isset($f) ? (':' . $f) : '')] = ''; } else { $element1 = array_shift($elements); $x['m:' . $i . '.' . $rank . ':' . $element1] = $this->leaf_path_walk($elements, $rank + 1, $l, $t, $i, $j, $n, $f); } return $x; } /** * Store a new leaf in the template tree */ function store_leaf(&$l, $t, &$i, &$j, $n, $f = NULL) { $isabsolute = FALSE; if ($n{0} == '/' && $n{1} == '/') { $isabsolute = TRUE; $n = substr($n, 2); } $elements = explode('/', $n); if (count($elements) == 1 && !$isabsolute) { $l[$t . ':' . $i . ':' . $n . (isset($f) ? (':' . $f) : '')] = ''; } else { if ($isabsolute) { $l['m:' . $i . '.1://'] = $this->leaf_path_walk($elements, 2, $l, $t, $i, $j, $n, $f); } else { $element1 = array_shift($elements); $l['m:' . $i . '.1:' . $element1] = $this->leaf_path_walk($elements, 2, $l, $t, $i, $j, $n, $f); } } } /** * Store a new text in the template tree */ function store_text(&$l, &$i, $r, $u, &$e, $ptype = '') { if ($r == 0 && $u == 1) { if ($ptype == 'ic') { // don't store border spaces in code $e = trim($e); if (strlen(trim($e)) > 0) { $l['d:' . $i] = $e; } } else { $l['d:' . $i] = $e; } } } /** * 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, &$j, $ncontent, $content, $pname, $isroot = 0) { $elts = array(); $mode = 0; $ntext = 0; $ctext = $cname = $cvalue = ''; $ncomment = 0; $nameinvalue = 0; $savej = $j; for ( ; $i < $ncontent; ++$i) { // current character and following $c0 = $content{$i}; $c1 = $content{$i + 1}; $a0 = ord($c0); // current file foreach($this->filesizes as $filename => $filesize) { if ($i < $filesize) { break; } } // line count if ($a0 == 10 || ($a0 == 13 && ord($c1) != 10)) { ++$j; } // data acquisition if ($mode == 0) { // 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 ($ptype != 'ic' && $c1 == '*') { ++$i; $savej = $j; ++$ncomment; $mode = 4; // cdata } elseif ($ptype != 'a' && $ptype != 'b' && $ptype != 'g' && $ptype != 'ic' && $c1 == '#') { ++$i; $savej = $j; ++$ncomment; $mode = 5; // starting tags? : if so waiting for name } elseif ($ptype != 'a' && $ptype != 'b' && $ptype != 'g' && $ptype != 'ic' && $c1 == 'm' && $c2 == 'a' && $c3 == 's' && $c4 == 'k' && $c5 == ':') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 5; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 1; $nametype = 1; } elseif ($ptype != 'a' && $ptype != 'b' && $ptype != 'g' && $ptype != 'ic' && $c1 == 'c' && $c2 == 'a' && $c3 == 'l' && $c4 == 'l' && $c5 == ':') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 5; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 1; $nametype = 2; } elseif ($ptype != 'a' && $ptype != 'b' && $ptype != 'g' && $ptype != 'ic' && $c1 == 'c' && $c2 == 'o' && $c3 == 'n' && $c4 == 's' && $c5 == 't' && $c6 == ':') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 6; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 1; $nametype = 3; } elseif ($ptype != 'a' && $ptype != 'b' && $ptype != 'g' && $ptype != 'ic' && $c1 == 's' && $c2 == 'e' && $c3 == 't' && $c4 == ':') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 4; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 1; $nametype = 4; } elseif ($ptype != 'a' && $ptype != 'b' && $ptype != 'g' && $ptype != 'ic' && $c1 == 'm' && $c2 == 'i' && $c3 == 's' && $c4 == ':') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 4; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 1; $nametype = 5; } elseif ($ptype != 'a' && $ptype != 'b' && $ptype != 'g' && $ptype != 'ic' && $c1 == 'c' && $c2 == 'h' && $c3 == 'o' && $c4 == 'o' && $c5 == 's' && $c6 == 'e' && $c7 == ':') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 7; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 1; $nametype = 7; } elseif ($ptype == 'g' && $c1 == 'a' && $c2 == 'r' && $c3 == 'g' && $c4 == ':') { $i += 4; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 1; $nametype = 9; } elseif ($isroot == 1 && $c1 == 'r' && $c2 == 'e' && $c3 == 'd' && $c4 == 'u' && $c5 == 'c' && $c6 == 'e' && $c7 == ':') { $i += 7; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 1; $nametype = -1; } elseif ($ptype == 'a' && $c1 == 'w' && $c2 == 'h' && $c3 == 'e' && $c4 == 'n' && $c5 == ':') { $i += 6; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $index = 'f:' . $i; $elts['when'][$index]['test'] = $this->parse('ic', $i, $j, $ncontent, $content, 'when condition'); $elts['when'][$index]['true'] = $this->parse('f', $i, $j, $ncontent, $content, 'when expression'); } elseif ($ptype == 'b' && $c1 == 'w' && $c2 == 'h' && $c3 == 'e' && $c4 == 'n' && $c5 == ':') { $i += 5; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 3; $nametype = 8; switch ($c6) { case '\'': $quotetype = 1; ++$i; break; case '"': $quotetype = 2; ++$i; break; default: $quotetype = 0; break; } // if tags? : so parse test then parse expression } elseif ($ptype != 'a' && $ptype != 'b' && $ptype != 'g' && $ptype != 'ic' && $c1 == 'i' && $c2 == 'f' && $c3 == ':') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 4; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $index = 'i:' . $i; $elts[$index]['test'] = $this->parse('ic', $i, $j, $ncontent, $content, 'if condition'); $elts[$index]['true'] = $this->parse('ie', $i, $j, $ncontent, $content, 'if expression'); // empty tags? : so wait for name } elseif ($ptype != 'a' && $ptype != 'b' && $ptype != 'g' && $c1 == '/' && $c2 == '/') { $this->store_text($elts, $i, $isroot, $ntext, $ctext, $ptype); $i += 2; $cname = '//'; $ctext = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 1; $nametype = 6; } elseif ($ptype != 'a' && $ptype != 'b' && $ptype != 'g' && $c1 != '/' && !$this->is_space($c1)) { $this->store_text($elts, $i, $isroot, $ntext, $ctext, $ptype); $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 1; $nametype = 6; } elseif (($ptype == 'a' || $ptype == 'b') && $c1 == 'e' && $c2 == 'l' && $c3 == 's' && $c4 == 'e') { $i += 4; $ctext = $cvalue = ''; $cname = 'else'; $nname = 1; $ntext = $nvalue = $nspace = 0; $mode = 1; $nametype = 6; // closing tags? : so wait for end character } elseif ($ptype == 'm' && $c1 == '/' && $c2 == 'm' && $c3 == 'a' && $c4 == 's' && $c5 == 'k') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 5; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 2; } elseif ($ptype == 'v' && $c1 == '/' && $c2 == 's' && $c3 == 'e' && $c4 == 't') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 4; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 2; } elseif ($ptype == 'n' && $c1 == '/' && $c2 == 'm' && $c3 == 'i' && $c4 == 's') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 4; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 2; } elseif ($ptype == 'p' && $c1 == '/' && $c2 == 'p' && $c3 == 'h' && $c4 == 'p') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 4; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 2; } elseif ($ptype == 'ie' && $c1 == '/' && $c2 == 'i' && $c3 == 'f') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 3; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 2; } elseif (($ptype == 'a' || $ptype == 'b') && $c1 == '/' && $c2 == 'c' && $c3 == 'h' && $c4 == 'o' && $c5 == 'o' && $c6 == 's' && $c7 == 'e') { $i += 7; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 2; } elseif ($ptype == 'g' && $c1 == '/' && $c2 == 'c' && $c3 == 'a' && $c4 == 'l' && $c5 == 'l') { $i += 5; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 2; } elseif ($ptype == 'k' && $c1 == '/' && $c2 == 'a' && $c3 == 'r' && $c4 == 'g') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 4; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 2; } elseif ($ptype == 'e' && $c1 == '/' && $c2 == 'w' && $c3 == 'h' && $c4 == 'e' && $c5 == 'n') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 5; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 2; } elseif ($ptype == 'f' && $c1 == '/' && $c2 == 'w' && $c3 == 'h' && $c4 == 'e' && $c5 == 'n') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 5; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 2; } elseif ($ptype == 'h' && $c1 == '/' && $c2 == 'e' && $c3 == 'l' && $c4 == 's' && $c5 == 'e') { $this->store_text($elts, $i, $isroot, $ntext, $ctext); $i += 5; $ctext = $cname = $cvalue = ''; $nname = $ntext = $nvalue = $nspace = 0; $mode = 2; // text } elseif ($ptype != 'a' && $ptype != 'b' && $ptype != 'g' && $isroot == 0) { $ctext .= $c0; $ntext = 1; } // end of if } elseif ($c0 == '}' && $ptype == 'ic') { $this->store_text($elts, $i, $isroot, $ntext, $ctext, $ptype); ++$i; return $elts; // no text in choose element } elseif (($ptype == 'a' || $ptype == 'b') && !$this->is_space($c0)) { if ($ptype == 'a') { $this->error(1, "unexpected character $c0 in choose element", 'choose', $j, $filename); } else { $this->error(1, "unexpected character $c0 in choose element", 'choose:' . $pname, $j, $filename); } // no text in call elemetn } elseif ($ptype == 'g' && !$this->is_space($c0)) { $this->error(1, "unexpected character $c0 in call element", 'call', $j, $filename); // text } elseif ($isroot == 0) { $ctext .= $c0; $ntext = 1; } // name acquisition } elseif ($mode == 1) { if ($c0 == '}' && $nname == 1) { if ($nametype == -1) { // reduce $this->set_reduce($cname); } elseif ($nametype == 1) { // mask ++$i; if ($isroot == 0) { $this->store_node($elts, 'm', $i, $j, $cname, NULL, 'm', $ncontent, $content, $isroot); } elseif (isset($elts[$cname])) { $this->error(0, "template $cname already defined", '', $j, $filename); } else { $elts[$cname] = $this->parse('m', $i, $j, $ncontent, $content, $cname); } } elseif ($nametype == 2) { // call ++$i; $this->store_node($elts, 'g', $i, $j, $cname, NULL, 'g', $ncontent, $content, $isroot); } elseif ($nametype == 3) { // const $this->store_leaf($elts, 'c', $i, $j, $cname); } elseif ($nametype == 4) { // set ++$i; $this->store_node($elts, 'v', $i, $j, $cname, NULL, 'v', $ncontent, $content, $isroot); } elseif ($nametype == 5) { // mis ++$i; $this->store_node($elts, 'n', $i, $j, $cname, NULL, 'n', $ncontent, $content, $isroot); } elseif ($nametype == 6) { // tag if ($cname == 'php') { ++$i; $elts['p:' . $i] = $this->parse('p', $i, $j, $ncontent, $content, $cname); } elseif ($cname == 'choose') { ++$i; $elts['a:' . $i] = $this->parse('a', $i, $j, $ncontent, $content, $cname); } elseif (($ptype == 'a' || $ptype == 'b') && $cname == 'else') { if (isset($elts['else'])) { if ($ptype == 'a') { $this->error(1, "else statement already exists", 'choose', $j, $filename); } else { $this->error(1, "else statement already exists", 'choose:' . $pname, $j, $filename); } } else { ++$i; $elts['else'] = $this->parse('h', $i, $j, $ncontent, $content, $cname); } } elseif ($nameinvalue == 1) { $this->store_leaf($elts, 's', $i, $j, $cname, $cvalue); $nameinvalue = 0; } else { $this->store_leaf($elts, 't', $i, $j, $cname); } } elseif ($nametype == 7) { // choose var ++$i; $this->store_node($elts, 'b', $i, $j, $cname, NULL, 'b', $ncontent, $content, $isroot); } elseif ($nametype == 9) { // arg ++$i; $this->store_node($elts, 'k', $i, $j, $cname, NULL, 'k', $ncontent, $content, $isroot); } $mode = 0; } elseif ($this->is_space($c0)) { if (($nameinvalue == 0 && $nname == 1) || ($nameinvalue == 1 && $nvalue == 1)) { $nspace = 1; } else { $this->error(1, "unexpected space before name", $pname, $j, $filename); } } elseif ($c0 == ':' && $nname == 1 && ($nametype == 4 || $nametype == 5)) { $cvalue = ''; $nvalue = 0; $nspace = 0; $mode = 3; switch ($c1) { case '\'': $quotetype = 1; ++$i; break; case '"': $quotetype = 2; ++$i; break; default: $quotetype = 0; break; } } elseif ($c0 == ':' && $nametype == 6 && $nname == 1 && $nvalue == 0) { $cvalue = ''; $nvalue = 0; $nameinvalue = 1; $nspace = 0; } elseif ($nspace == 1) { // data after ending spaces $this->error(1, "unexpected character $c0 after spaces in name", $pname, $j, $filename); } 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) { // second name tag $cvalue .= $c0; $nvalue = 1; } else { $cname .= $c0; $nname = 1; } } elseif ($c0 == '/' && $c1 == '/' && $nname == 0) { $cname = '//'; ++$i; } else { $this->error(1, "unexpected character $c0 in name", $pname, $j, $filename); } // end of closing tag } elseif ($mode == 2) { if ($c0 == '}') { $this->store_text($elts, $i, $isroot, $ntext, $ctext, $ptype); return $elts; } elseif (!$this->is_space($c0)) { $this->error(1, "unexpected character $c0 in closing tag", $pname, $j, $filename); } // value acquisition } elseif ($mode == 3) { if ($c0 == '}' && $nvalue == 1 && ($quotetype == 0 || $nspace == 1 || $nspace == 2)) { if ($nametype == 4) { // set val ++$i; $this->store_node($elts, 'w', $i, $j, $cname, $cvalue, 'v', $ncontent, $content, $isroot); } elseif ($nametype == 5) { // mis val ++$i; $this->store_node($elts, 'o', $i, $j, $cname, $cvalue, 'n', $ncontent, $content, $isroot); } elseif ($nametype == 8) { // when val ++$i; $elts['when']['e:' . $i . '::' . $cvalue] = $this->parse('e', $i, $j, $ncontent, $content, $cname); } $mode = 0; } elseif ($c0 == '\'' && $quotetype == 1 && $nspace == 0) { $nspace = 2; // no more data } elseif ($c0 == '"' && $quotetype == 2 && $nspace == 0) { $nspace = 2; // no more data } elseif ($this->is_space($c0)) { if ($nvalue == 0 && $quotetype == 0) { // no value without quote $this->error(1, "unexpected space at the beginning of a value", $pname, $j, $filename); } 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; } } } } elseif ($c0 == '\\' && $c1 == '}' && $nspace == 0) { $cvalue .= '}'; $nvalue = 1; ++$i; } elseif ($c0 == '\\' && $c1 == '\'' && $quotetype == 1 && $nspace == 0) { $cvalue .= '\''; $nvalue = 1; ++$i; } elseif ($c0 == '\\' && $c1 == '"' && $quotetype == 2 && $nspace == 0) { $cvalue .= '"'; $nvalue = 1; ++$i; } elseif ($nspace == 0) { $cvalue .= $c0; $nvalue = 1; } else { $this->error(1, "unexpected character $c0 in value", $pname, $j, $filename); } // comment } elseif ($mode == 4) { if ($c0 == '{' && $c1 == '*') { ++$i; ++$ncomment; } elseif ($c0 == '*' && $c1 == '}') { ++$i; --$ncomment; if ($ncomment == 0) { $mode = 0; } } // cdata } elseif ($mode == 5) { if ($c0 == '{' && $c1 == '#') { ++$i; ++$ncomment; } elseif ($c0 == '#' && $c1 == '}') { ++$i; --$ncomment; if ($ncomment == 0) { $mode = 0; } } else { $ctext .= $c0; $ntext = 1; } } } switch ($mode) { case 4: $this->error(2, "end of comment", $pname, $savej, $filename); case 5: $this->error(2, "end of cdata", $pname, $savej, $filename); } if ($isroot == 0) { switch ($ptype) { case 'm': $this->error(3, "mask:$pname", $pname, $savej, $filename); case 'v': $this->error(3, "set:$pname", $pname, $savej, $filename); case 'n': $this->error(3, "mis:$pname", $pname, $savej, $filename); case 'p': $this->error(3, "php", '', $savej, $filename); } } return $elts; } /** * Read files then parse content to build a template tree */ function parse_files($filenames) { $content = $this->read_files($filenames); $this->masktree = $this->parse('r', $i = 0, $j = 1, strlen($content), $content, 'root', 1); } /***** 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); $nelements = count($elements); if ($nelements == 2) { return array($elements[0], '', ''); } elseif ($nelements == 3) { return array($elements[0], $elements[2], ''); } elseif ($nelements == 4) { return array($elements[0], $elements[2], $elements[3]); } else { return array('', '', ''); } } /** * Recursively match the template tree with the data tree */ function build_mask($datatree, $masktree, $direction = '>', $index = -1, $last = FALSE, $key = '', $intest = 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, '>', $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); } foreach($masktree as $maskinfo => $child) { // retrieve info from index list($masktype, $maskname, $maskvalue) = $this->parse_info($maskinfo); switch ($masktype) { // content data element case 'd': $built[] = $child; break; // php element case 'p': $return = NULL; @eval('$return=' . $this->build_mask($datatree, $child, '>', -1, FALSE, '', TRUE) . ';'); if (isset($return)) { $built[] = $return; } else { #PHP ELEMENT ERROR } break; // const element case 'c': if (isset($this->masktree[$maskname])) { $built[] = $this->build_mask($datatree, $this->masktree[$maskname]); } break; // call element case 'g': 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; // other types of element default: // retrieve value $currentdata = $this->get_value($datatree, $maskname); // define data type if ($maskname == '//') { $datatype = 9; $root = $this->datatree; if ($direction == '>') { ### if (is_array($root)) { ### $root['_parent'] = &$datatree; ### } elseif (is_object($root)) { ### $root->_parent = &$datatree; ### } ### } ### } elseif ($maskname == '..') { ### $datatype = 8; ### } elseif (isset($currentdata)) { if (is_scalar($currentdata)) { if ($currentdata === FALSE && !$intest) { $datatype = 0; } elseif ($currentdata === '' && !$intest) { $datatype = 0; } else { $datatype = 1; } } elseif (is_object($currentdata) && count(get_object_vars($currentdata)) > 0) { $datatype = 2; if ($direction == '>') { ### $currentdata->_parent = &$datatree; ### } ### } elseif (is_array($currentdata) && count($currentdata) > 0) { $datatype = 2; if ($direction == '>') { ### $currentdata['_parent'] = &$datatree; ### } ### } else { $datatype = 0; } } else { $datatype = 0; } switch ($masktype) { // simple tag element case 't': if ($datatype == 1 && isset($this->masktree[$maskname])) { $built[] = $this->build_mask($datatree, $this->masktree[$maskname]); } elseif ($datatype == 1) { if ($intest) { if ($currentdata === TRUE) { $built[] = 'TRUE'; } elseif ($currentdata === FALSE) { $built[] = 'FALSE'; } elseif (is_string($currentdata)) { $built[] = '"' . addcslashes($currentdata, "\0..\31\"") . '"'; } else { $built[] = $currentdata; } } else { $built[] = $currentdata; } } elseif ($datatype == 2 && isset($this->masktree[$maskname])) { $built[] = $this->build_mask($currentdata, $this->masktree[$maskname]); } elseif ($datatype == 0 && $intest) { $built[] = 'NULL'; } break; // alternate tag element case 's': if ($datatype == 1 && isset($this->masktree[$maskvalue])) { $built[] = $this->build_mask($datatree, $this->masktree[$maskname]); } elseif ($datatype == 2 && isset($this->masktree[$maskvalue])) { $built[] = $this->build_mask($currentdata, $this->masktree[$maskvalue]); } elseif ($datatype == 1) { $built[] = $currentdata; } break; // template element case 'm': if ($datatype == 1) { $built[] = $this->build_mask($datatree, $child); } elseif ($datatype == 2) { $built[] = $this->build_mask($currentdata, $child, '>', $index, $last, $key, $intest); } elseif ($datatype == 8) { ### if (is_array($datatree)) { ### $built[] = $this->build_mask($datatree['_parent'], $child, '<', $index, $last, $key, $intest); ### } elseif (is_object($datatree)) { ### $built[] = $this->build_mask($datatree->_parent, $child, '<', $index, $last, $key, $intest); ### } ### } elseif ($datatype == 9) { $built[] = $this->build_mask($root, $child, '>', $index, $last, $key, $intest); } break; // if element case 'i': $test = $this->build_mask($datatree, $child['test'], '>', -1, FALSE, '', TRUE); $return = NULL; @eval('$return=' . $test . ';'); if ($return === TRUE) { $built[] = $this->build_mask($datatree, $child['true']); } break; // choose element case 'a': $notfound = TRUE; if (isset($child['when'])) { foreach($child['when'] as $grandchild) { $test = $this->build_mask($datatree, $grandchild['test'], '>', -1, FALSE, '', TRUE); $return = NULL; @eval('$return=' . $test . ';'); if ($return === TRUE) { $notfound = FALSE; $built[] = $this->build_mask($datatree, $grandchild['true']); break; } } } if ($notfound && isset($child['else'])) { $built[] = $this->build_mask($datatree, $child['else']); } break; // choose variable element case 'b': if ($datatype == 1) { $notfound = TRUE; if (isset($child['when'])) { foreach($child['when'] as $gcmaskinfo => $grandchild) { list($gcmasktype, $gcmaskname, $gcmaskvalue) = $this->parse_info($gcmaskinfo); if ($currentdata == $gcmaskvalue) { $built[] = $this->build_mask($datatree, $grandchild); $notfound = FALSE; } } } if ($notfound && isset($child['else'])) { $built[] = $this->build_mask($datatree, $child['else']); } } break; // set element case 'v': if ($datatype != 0) { $built[] = $this->build_mask($datatree, $child); } break; // mis element case 'n': if ($datatype == 0) { $built[] = $this->build_mask($datatree, $child); } break; // set val element case 'w': if ($datatype == 1) { if ($currentdata == $maskvalue) { $built[] = $this->build_mask($datatree, $child); } } break; // mis val element case 'o': if ($datatype == 0 || ($datatype == 1 && $currentdata != $maskvalue)) { $built[] = $this->build_mask($datatree, $child); } break; // mis mask element case 'x': if ($datatype == 0 || $datatype == 2) { $built[] = $this->build_mask($currentdata, $child); } elseif ($datatype == 8) { if (is_array($datatree)) { ### $built[] = $this->build_mask($datatree['_parent'], $child, '<'); ### } elseif (is_object($datatree)) { ### $built[] = $this->build_mask($datatree->_parent, $child, '<'); } } break; } break; } } // done return implode('', $built); } /***** I N T E R F A C E *****/ /** * Build the result */ function build_all($entry) { if (!isset($this->masktree[$entry])) { return NULL; } if (is_array($this->datatree)) { $this->datatree['_parent'] = NULL; } elseif (is_object($this->datatree)) { $this->datatree->_parent = NULL; } $built = $this->build_mask($this->datatree, $this->masktree[$entry]); switch ($this->reduce) { case 0: return $built; case 1: return preg_replace('/(\r\n|\r|\n)+/sm', "\n", preg_replace('/[ \t]*?(\r\n|\r|\n)+[\t ]*/sm', "\n", $built)); case 2: return preg_replace('/[ \t]*?(\r\n|\r|\n)+[\t ]*/sm', '', $built); } } /** * Contructor : store the data tree then build the template tree */ function _ets($datatree, $filenames) { $this->datatree = $datatree; $this->parse_files($filenames); } } /** * Build a template with data */ function sprintt($datatree, $filenames, $entry = 'main') { $ets = new _ets($datatree, $filenames); return $ets->build_all($entry); } /** * Print out a built template */ function printt($datatree, $filenames, $entry = 'main') { $ets = new _ets($datatree, $filenames); echo $ets->build_all($entry); } ?>
Implementing a file-based cache dependency for Smarty's caching feature. <?php require_once(SMARTY_DIR . 'Smarty.class.php'); // the Smarty wrapper class class Smarty_Cache_Deps extends Smarty { // Repository directory for file keys, which Smarty cache depend upon var $cachedep_dir; function Smarty_Cache_Deps() { parent::Smarty(); // Set Smarty working directories plus the one for file keys directory $this->template_dir = SMARTY_DIR . 'templates/'; $this->compile_dir = SMARTY_DIR . 'templates_c/'; $this->cache_dir = SMARTY_DIR . 'cache/'; $this->cachedep_dir = SMARTY_DIR . 'cache_deps/'; $this->config_dir = SMARTY_DIR; } // Use this method instead of Smarty's is_cached() // This method will also check whether the key file(s) that the cache depend on // have changed. // @params string $tpl_file the Smarty template file // @params mixed $dep_file the key file(s) which the cache depend upon (I added this one) // @params mixed $cache_id the cache id you specified // @params mixed $compile_id the compile id you specified // @return bool function is_cached_respect_deps($tpl_file, $dep_file, $cache_id = null, $compile_id = null) { if ($this->is_cached($tpl_file, $cache_id, $compile_id)) { clearstatcache(); if (is_array($dep_file)) { foreach($dep_file as $value) { if (!$this->validate_dependency($value)) return false; } } else { if (!$this->validate_dependency($dep_file)) return false; } } else { return false; } return true; } function validate_dependency($dep_file) { if (file_exists($this->cachedep_dir . $dep_file)) { $dep_time = filemtime($this->cachedep_dir . $dep_file); if ($dep_time) { if ((double)$dep_time > (double)$this->_cache_info['timestamp']) return false; } else { $this->trigger_error("unable to read cache dependency file \"$this->cachedep_dir . $dep_file\"."); return false; } } else { $this->trigger_error("cache dependency file \"$this->cachedep_dir . $dep_file\" doesn't exist."); return false; } return true; } } ?> ?>
A Parser Class that Parses special template files. It examines and replaces text that is enclosed in a logic tag. The V2 includes logic support with inline logic statements. It also includes logic comparison, nestled conditional and file repitition (row) abilities. Allows seperation of design and development, ideal for larger websites. <?php /* +------------------------------------------------------------------------+ | Logic Template Engine (V2.01) | +------------------------------------------------------------------------+ | Filename: TemplateParser.class | Copyright 2000-2001 Servability Ltd. | +--------------------------------+---------------------------------------+ | Description | | ----------- | | A Parser Class that Parses special template files. It examines and | | replaces text that is enclosed in a logic tag. The V2 includes | | logic support with inline logic statements. It also includes logic | | comparison, nestled conditional and file repitition (row) abilities. | +------------------------------------------------------------------------+ | Contributors: James Moore <jmoore@servability.com> | | James Kent <jkent@servability.com> | +------------------------------------------------------------------------+ Copyright (c) 2000-2001, Servability Ltd. http://www.servability.com/products/free/ info@servability.com. All rights reserved. Redistribution and use in source and binary (including compiled) forms, with or without modification, are permitted provided that the following conditions are met: Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. Redistributions in binary (including compiled) form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. Neither the name of the Servability Ltd. nor the names of its contributors or maintainers may be used to endorse or promote products derived from this software without specific prior written permission. Use of the contact information contained for unsolicited communication (spam) is strictly prohibited. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. Important Notice: * * If you make any changes to this template parser we ask that you * send a copy of them (along with a description) to the maintainer. * This is so we can distribute your changes and additions with the * class itself for others to benefit from too. Credit will be given * if requested. * * We also ask that you submit the URL of your site on our website - * it's nice to know how many people are using it and where. * * Free support cannot be given by e-mail. Please visit our website * for further information. http://www.servability.com/products/free/ * * Maintainer: Free Products Team <free-products@servability.com> * (Please put: Logic Templates in the subject). CVS Info: * * $Id$ * TODO: * * - Separate out the parser and the template handler to * use callbacks. * - Sort out whitespace handling within the template commands. * - add foreach functionality. * - enable escaping of [% to use \[\% which will be changed to * - [% and left in the text by the parser itself. * - Add support for ! * - Allow variables both sides of the operator. * - Remove parsing inside of html comments <!-- --> if practical. Usage: * * This template class provides full logical support with in templates. Template tags * take the form [%<statement>%] the statement can be just a variable name which will * be substituted straight off or can be in the form <IF|ELSEIF|ELSE> <VAR> which will * turn the parser on or off depending if the variable is set or not. Finally you can * use the form IF SOMEVAR == 5 which will turn the parser on if this is true and off * if this is false. The possible operands are ==,>=,!=,<=,>,<. * * SAMPLES * ------- * -- templates/test4.tpl -- [%IF TEST4_VAR1 == 1 %] TEST 4 HAS PASSED PART 1 [%IF TEST4_VAR2 == 1 %] TEST 4 HAS FAILED [%ELSEIF TEST4_VAR2 == 2 %] TEST 4 HAS PASSED PART 2 [%IF TEST4_VAR3 == 1 %] TEST 4 HAS FAILED [%ELSEIF TEST4_VAR3 == 2 %] TEST 4 HAS FAILED [%ELSE%] TEST 4 HAS PASSED PART 3 [%ENDIF%] [%ENDIF%] [%ELSE%] TEST 4 HAS FAILED [%ENDIF%] * -- test4.php -- <?php $test4 = new TemplateParser("./templates/"); // relative path $test4->addtemplate("template4","test4.tpl"); // add one or more templates (array) $test4->define("TEST4_VAR1","1"); // define variables $test4->define("TEST4_VAR2","2"); $test4->define("TEST4_VAR3","3"); $test4->define("TEST4_VAR4","4"); $test4->parse("test4out","template4"); // parse template4 into variable test4out echo $test4->output("test4out"); // output the result ?> * * * * -- test5row.tpl -- [%TEST5_VAR1%]<br> * -- test5.tpl -- [%TEST5_ALLROWS%] * -- test5.php -- <?php // in this example a simple loop produces 10 instances of test5row.tpl, each parsed // appending into TEST5_ALLROWS. Then test5.tpl is parsed, replacing TEST5_ALLROWS // with the full set of rows. $test5 = new TemplateParser("./templates/"); $test5->addtemplate("template5","test5.tpl"); $test5->addtemplate("TEST5_ROW",strtolower("test5row.tpl")); // add row template FOR ($i=0; $i < 10; $i++) { // simple example loop $test5->define("TEST5_VAR1", $i); // simple definition making use of loop $test5->parse("TEST5_ALLROWS","TEST5_ROW",1); // additional parameter 1 for recursion } $test5->parse("test5out","template5"); $output = $test5->output("test5out"); // example, make Engine output to PHP variable echo $output; // output it echo "<!-- " . strlen($output) . " chars -->"; // output it's length as an html comment ?> */ /* -- Class Entry Point -- */ class TemplateParser { /* -- Public Variables -- */ var $version = "2.01"; /* -- Current Version -- */ var $apiversion = "25032001"; /* -- API Version -- */ /* -- Private Variables -- */ var $defined = array(); /* -- Array of defined values -- */ var $templates = array(); /* -- Array of Templates -- */ var $path = "./"; /* -- Path of template dir -- */ var $parseflag = array(); /* -- Flag if Parse is on/off -- */ var $flagset = array(); /* -- Flag if parser has been on/off -- */ var $level = 0; /* -- Current Nesting level of ifs -- */ var $line = 0; /* -- Current Line in template -- */ var $line_offset = 0; /* -- Current line offset -- */ var $template_buff = array(); /* -- Buffer for template -- */ var $output_buff = ""; /* -- Output Buffer -- */ var $opening_tag = "[%"; /* -- Opening Tag -- */ var $closing_tag = "%]"; /* -- Closing Tag -- */ var $last_char = ""; /* -- Holder for last char fetched -- */ var $last_token = ""; /* -- Holder for last token fetched -- */ var $tok_sep_char = " "; /* -- a character that separates tokens shuch as | -- */ var $debug = FALSE; /* -- Is debugging on -- */ var $template_name = ""; /* -- holds current templatename -- */ /* -- Construction Function -- */ function TemplateParser($path) { /* -- Define some nice constants -- */ define("PARSER_ON", TRUE); define("PARSER_OFF", FALSE); define("SUCCESS",TRUE); define("FAILED", FALSE); define("EOF", -1); /* -- Define the template path file -- */ $this->path = $path; } /* -- Public Functions -- */ /* {{{ int addtemplate(char $name[, char $file]) adds a template to the catalog, accepts either an array of single template name */ function addtemplate($name, $file="") { /* -- Handle being passed an array -- */ if(is_array($name)) { while((list($tempname, $filename) = each($name)) && ($ret == SUCCESS)) { /* -- Call wrapping function -- */ $ret = $this->templateadd($tempname, $filename); } } else { /* -- Handle being passed a single template -- */ $ret = $this->templateadd($name, $file); } return $ret; } /* }}} */ /* {{{ void define(char name[, char contents[, int flag]] Defines a constant to be usr in the parseing of the script. Can be passed an array or a single value*/ function define($name, $contents="", $flag=0) { /* -- Handle being passed an array -- */ if(is_array($name)) { while(list($constname, $constvalue) = each($name)) { /* -- If final arguement is 1 then append to previous constant that was defined -- */ if($flag) { /* -- Append value to defined array -- */ $this->defined[strtolower($constname)] .= $constvalue; } else { /* -- Write Value to defined array -- */ $this->defined[strtolower($constname)] = $constvalue; } } } else { /* -- If final argument is 1 then append to previous constant that was defined -- */ if($flag) { /* -- Append values to defined array -- */ $this->defined[strtolower($name)] .= $contents; } else { /* -- Write Value to the defined array -- */ $this->defined[strtolower($name)] = $contents; } } } /* }}} */ /* {{{ int parse(char reference, char template, int flag) Starts the parsing process of a template */ function parse($reference, $template, $flag=0) { /* -- Clear all vars used and reset to original values -- */ $this->template_buff = array(); $this->line = 0; $this->line_offset = 0; $this->parseflag = array(PARSER_ON); $this->flagset = array(PARSER_OFF); $this->level = 0; $this->output_buff = NULL; $this->template_name = $template; /* -- Get contents of template and assign to needed vars -- */ /* -- Put contents of template into template_buff -- */ $this->template_buff = explode("\n", $this->templates[strtolower($template)]); /* -- Start PARSER -- */ /* -- Check for special cases where template starts with an instruction -- */ if(($this->template_buff[$this->line][$this->line_offset] == $this->opening_tag[0]) && ($this->template_buff[$this->line][($this->line_offset + 1)] == $this->opening_tag[1])) { /* -- If it does then move to the begining of the instruction and call handler -- */ $this->line_offset += 2; $this->handle_instruction(); } else { /* -- The template starts with text so lets send it to the correct handler -- */ $this->handle_text(); } if($flag) { $this->defined[strtolower($reference)] .= $this->output_buff; } else { $this->defined[strtolower($reference)] = $this->output_buff; } return SUCCESS; } /* }}} */ /* {{{ char output(char reference) Returns the value of reference to the caller */ function output($reference) { return $this->defined[strtolower($reference)]; } /* }}} */ /* -- Private Functions -- */ /* {{{ bool templateadd(char templatename, char templatefile) Internal array wrapper to add templates */ function templateadd($templatename, $templatefile) { /* -- Check to see if file exists -- */ if(file_exists($this->path.$templatefile)) { if($fp = fopen($this->path.$templatefile, "r")) { /* -- Lock the file -- */ flock($fp, LOCK_SH); /* -- Read the file -- */ $contents = fread($fp, filesize($this->path.$templatefile)); /* -- Unlock the file -- */ flock($fp, LOCK_UN); /* -- Close the file -- */ fclose($fp); /* -- Add to template catalog -- */ $this->templates[strtolower($templatename)] = $contents; return true; } else { /* -- Could not open file -- */ if($this->debug) { echo ("could not open file ".$this->path.$templatefile); } return false; } } else { /* -- File does not exist -- */ if($this->debug) { echo ("could not find file ".$this->path.$templatefile); } return false; } } /* }}} */ /* {{{ bool evaluate(char defined, char operator, char operand) evaluates an expression passed in three parts, the defined value is the first operand, the operator is the logical statement and the senond operand is the value for the first to be compared with -- */ function evaluate($defined, $rval, $operator) { $lval = $this->defined[strtolower($defined)]; switch($operator){ case ">": $retval = (($lval > $rval)?TRUE:FALSE); break; case "<": $retval = (($lval < $rval)?TRUE:FALSE); break; case ">=": $retval = (($lval >= $rval)?TRUE:FALSE); break; case "<=": $retval = (($lval <= $rval)?TRUE:FALSE); break; case "==": $retval = (($lval == $rval)?TRUE:FALSE); break; case "!=": $retval = (($lval != $rval)?TRUE:FALSE); break; default: echo("$lval, Your using an operator I dont understand"); } return $retval; } /* }}} */ /* {{{ void rewind() rewinds the line pointers */ function rewind() { if($this->line_offset != 0) { $this->line_offset--; $this->last_char = " "; } else { $this->line--; $this->line_offset = strlen($this->template_buff[$this->line]); $this->last_char = " "; } return; } /* }}} */ /* {{{ void skip_blanks() Skips all spaces/tabs until next char */ function skip_blanks() { $this->get_char(); /* -- Loop until we get a non whitespace char -- */ while(ereg("\s",$this->last_char)) $this->get_char(); /* -- Rewind the pointers -- */ $this->rewind(); return; } /* }}} */ /* {{{ char get_token() Returns the next token in the file */ function get_token() { /* -- Reset variables -- */ $this->last_token = NULL; /* -- Get Charaters -- */ while($this->get_char()) { if(($this->last_char == $this->tok_sep_char) || (ereg("\s",$this->last_char)) || (($this->last_char == $this->closing_tag[0]) && ($this->template_buff[$this->line][$this->line_offset] == $this->closing_tag[1]))) { if($this->last_char == $this->closing_tag[0]) { $this->rewind(); } return; } else { $this->last_token .= $this->last_char; } } } /* }}} */ /* {{{ char get_char() Gets the next char in the buffer */ function get_char() { /* -- Check to see if we are at the end of the file -- */ if($this->line == sizeof($this->template_buff)) { return EOF; } /* -- Get char and set return value -- */ $retval = $this->last_char = $this->template_buff[$this->line][$this->line_offset]; /* -- Replace a \n and check if at the end of a line -- */ if($this->line_offset == strlen($this->template_buff[$this->line])) { if($this->parseflag[$this->level] == PARSER_ON) $this->output_buff .= "\n"; $this->line++; $this->line_offset = 0; } else { $this->line_offset++; } return $retval; } /* }}} */ /* {{{ void handle_text() Handles the parseing of text/html */ function handle_text() { /* -- Offset should not be at the first char of text -- */ while($this->get_char() != EOF) { if(($this->last_char == $this->opening_tag[0]) && ( $this->template_buff[$this->line][$this->line_offset] == $this->opening_tag[1])) { /* -- Get the final tag opening char -- */ $this->get_char(); /* -- Pass to handler -- */ $this->handle_instruction(); /* -- When handle instruction returns, so do we -- */ return; } else { if($this->parseflag[$this->level] == PARSER_ON) { $this->output_buff .= $this->last_char; } } } /* -- Get the next charater -- */ return; /* -- Occurs when get char returns flase -- */ } /* }}} */ /* {{{ void handle_instruction() Handles the processing of instructions */ function handle_instruction() { /* -- Offset is just after tag -- */ /* -- Skip and whitespace -- */ $this->skip_blanks(); $this->get_token(); /* -- Find which token it is -- */ switch (strtoupper($this->last_token)) { case "IF": ++$this->level; if(($this->parseflag[(($this->level)-1)] != PARSER_ON)) /* -- The Parser is off -- */ { $this->parseflag[$this->level] = PARSER_OFF; /* -- Turn parser off -- */ $this->flagset[$this->level] = PARSER_ON; /* -- Ignore and other logic statements at this level of nesting -- */ break; /* -- Jump out of switch -- */ } else { $this->skip_blanks(); /* -- Skip blanks before next token -- */ $this->get_token(); /* -- Get token -- */ $var = $this->last_token; /* -- Assign token -- */ $this->skip_blanks(); /* -- Skip blanks before next token -- */ $this->get_token(); /* -- Get token -- */ $operator = $this->last_token; /* -- Assign Token -- */ $this->skip_blanks(); /* -- Skip blanks before next token -- */ $this->get_token(); /* -- Get token -- */ $operand = $this->last_token; /* -- Assign Token -- */ $this->skip_blanks(); /* -- Jump to what should be the closing tags -- */ $this->get_char(); /* -- Jump past first end tag -- */ if($this->debug) { if($this->last_char != $this->closing_tag[0]) { prinf("Error: CLosing tag expected at line: %d in Template: %s <br>",$this->line, $this->template_name); printf("Cannot recover exiting... <br>"); exit(); } } $this->get_char(); /* -- Jump past first end tag -- */ if($this->debug) { if($this->last_char != $this->closing_tag[0]) { prinf("Error: CLosing tag expected at line: %d in Template: %s <br>",$this->line, $this->template_name); printf("Cannot recover exiting... <br>"); exit(); } } if ($operator && $operand) { if($this->evaluate($var, $operand, $operator)) /* -- Evalute expression -- */ { $this->parseflag[$this->level] = PARSER_ON; $this->flagset[$this->level] = PARSER_ON; break; /* -- Jump out of switch -- */ } else { $this->parseflag[$this->level] = PARSER_OFF; $this->flagset[$this->level] = PARSER_OFF; break; } } else { if($this->defined[strtolower($var)]) { $this->parseflag[$this->level] = PARSER_ON; $this->flagset[$this->level] = PARSER_ON; break; /* -- Jump out of switch -- */ } else { $this->parseflag[$this->level] = PARSER_OFF; $this->flagset[$this->level] = PARSER_OFF; break; } } } break; /* -- End of IF switch -- */ case "ELSEIF": /* -- Check to see if we need to bother -- */ $this->skip_blanks(); /* -- Skip blanks before next token -- */ $this->get_token(); /* -- Get token -- */ $var = $this->last_token; /* -- Assign token -- */ $this->skip_blanks(); /* -- Skip blanks before next token -- */ $this->get_token(); /* -- Get token -- */ $operator = $this->last_token; /* -- Assign Token -- */ $this->skip_blanks(); /* -- Skip blanks before next token -- */ $this->get_token(); /* -- Get token -- */ $operand = $this->last_token; /* -- Assign Token -- */ $this->skip_blanks(); /* -- Jump to what should be the closing tags -- */ $this->get_char(); /* -- Jump past first end tag -- */ if($this->debug) { if($this->last_char != $this->closing_tag[0]) { prinf("Error: CLosing tag expected at line: %d in Template: %s <br>",$this->line, $this->template_name); printf("Cannot recover exiting... <br>"); exit(); } } $this->get_char(); /* -- Jump past first end tag -- */ if($this->debug) { if($this->last_char != $this->closing_tag[0]) { prinf("Error: CLosing tag expected at line: %d in Template: %s <br>",$this->line, $this->template_name); printf("Cannot recover exiting... <br>"); exit(); } } if($this->flagset[$this->level] == PARSER_ON) { $this->parseflag[$this->level] = PARSER_OFF; } else { if ($operator && $operand) { if($this->evaluate($var, $operand, $operator)) /* -- Evalute expression -- */ { $this->parseflag[$this->level] = PARSER_ON; $this->flagset[$this->level] = PARSER_ON; break; /* -- Jump out of switch -- */ } else { $this->parseflag[$this->level] = PARSER_OFF; $this->flagset[$this->level] = PARSER_OFF; break; } } else { if($this->defined[strtolower($var)]) { $this->parseflag[$this->level] = PARSER_ON; $this->flagset[$this->level] = PARSER_ON; break; /* -- Jump out of switch -- */ } else { $this->parseflag[$this->level] = PARSER_OFF; $this->flagset[$this->level] = PARSER_OFF; break; } } } break; /* -- End of elseif -- */ case "ELSE": if(!($this->flagset[$this->level] == PARSER_ON)) { $this->parseflag[$this->level] = PARSER_ON; //$this->parseflag[$this->level] = PARSER_ON; } else { $this->parseflag[$this->level] = PARSER_OFF; } $this->skip_blanks(); $this->get_char(); /* -- Jump past first end tag -- */ if($this->debug) { if($this->last_char != $this->closing_tag[0]) { prinf("Error: CLosing tag expected at line: %d in Template: %s <br>",$this->line, $this->template_name); printf("Cannot recover exiting... <br>"); exit(); } } $this->get_char(); /* -- Jump past first end tag -- */ if($this->debug) { if($this->last_char != $this->closing_tag[0]) { prinf("Error: CLosing tag expected at line: %d in Template: %s <br>",$this->line, $this->template_name); printf("Cannot recover exiting... <br>"); exit(); } } break; /* -- End of Else -- */ case "ENDIF": $this->level--; $this->skip_blanks(); $this->get_char(); /* -- Jump past first end tag -- */ if($this->debug) { if($this->last_char != $this->closing_tag[0]) { prinf("Error: CLosing tag expected at line: %d in Template: %s <br>",$this->line, $this->template_name); printf("Cannot recover exiting... <br>"); exit(); } } $this->get_char(); /* -- Jump past first end tag -- */ if($this->debug) { if($this->last_char != $this->closing_tag[0]) { prinf("Error: CLosing tag expected at line: %d in Template: %s <br>",$this->line, $this->template_name); printf("Cannot recover exiting... <br>"); exit(); } } break; default: if($this->parseflag[$this->level] == PARSER_ON) { $this->output_buff .= $this->defined[strtolower($this->last_token)]; } $this->skip_blanks(); $this->get_char(); /* -- Jump past first end tag -- */ if($this->debug) { if($this->last_char != $this->closing_tag[0]) { prinf("Error: CLosing tag expected at line: %d in Template: %s <br>",$this->line, $this->template_name); printf("Cannot recover exiting... <br>"); exit(); } } $this->get_char(); /* -- Jump past first end tag -- */ if($this->debug) { if($this->last_char != $this->closing_tag[0]) { prinf("Error: CLosing tag expected at line: %d in Template: %s <br>",$this->line, $this->template_name); printf("Cannot recover exiting... <br>"); exit(); } } break; /* -- End of default handler -- */ } /* -- End of switch -- */ $this->handle_text(); return; } /* }}} */ } /* -- End of class -- */ ?>
This is the PHPLIB template.inc file with a few additions to pull templates from a mysql (just about any) database your already connected to.<br> This helps 'hide' away your templates from prying eyes.<br> The modifications are minor and are documented within the header to the file.<br> Existing sites already using PHPLIB template.inc can easily convert to this. It just as simple as installing this new template.inc, putting your files into a database your connected to and adding 'true' as the third parameter to Template. <?php /* * Session Management for PHP3 * * (C) Copyright 1999 NetUSE GmbH * Kristian Koehntopp * * $Id: template.inc,v 1.4.2.1 2000/03/23 11:24:00 kk Exp $ * * Modification Oct-23-2000 : Michael Stack stakk@austin.rr.com * Added variable $useDB type boolean * Added function set_useDB * Modified Functions Template, set_file, loadfile * * template.inc 1.4.2.1-mysql 2000/10/23 18:30:00 * */ class Template { var $classname = "Template"; /* if set, echo assignments */ var $debug = false; /* $file[handle] = "filename"; */ var $file = array(); /* relative filenames are relative to this pathname */ var $root = ""; /* $varkeys[key] = "key"; $varvals[key] = "value"; */ var $varkeys = array(); var $varvals = array(); /* "remove" => remove undefined variables * "comment" => replace undefined variables with comments * "keep" => keep undefined variables */ var $unknowns = "remove"; /* true => read all template files from a mysql database, table templates requires MySQL 3.22.15+ * false => read all template files from the hard drive file system. */ var $useDB = false; /* "yes" => halt, "report" => report error, continue, "no" => ignore error quietly */ var $halt_on_error = "yes"; /* last error message is retained here */ var $last_error = ""; /***************************************************************************/ /* public: Constructor. * root: template directory. * unknowns: how to handle unknown variables. */ function Template($root = ".", $unknowns = "remove", $useDB = false) { $this->set_root($root); $this->set_unknowns($unknowns); $this->set_useDB($useDB); } /* public: setroot(pathname $root) * root: new template directory. */ function set_root($root) { if (!is_dir($root)) { $this->halt("set_root: $root is not a directory."); return false; } $this->root = $root; return true; } /* public: set_unknowns(enum $unknowns) * unknowns: "remove", "comment", "keep" * */ function set_unknowns($unknowns = "keep") { $this->unknowns = $unknowns; } /* public: set_useDB(boolean $useDB) * useDB: true, false */ function set_useDB($useDB = false) { $this->useDB = $useDB; } /* public: set_file(array $filelist) * filelist: array of handle, filename pairs. * * public: set_file(string $handle, string $filename) * handle: handle for a filename, * filename: name of template file */ function set_file($handle, $filename = "") { if (!$this->useDB) { if (!is_array($handle)) { if ($filename == "") { $this->halt("set_file: For handle $handle filename is empty."); return false; } $this->file[$handle] = $this->filename($filename); } else { reset($handle); while(list($h, $f) = each($handle)) { $this->file[$h] = $this->filename($f); } } } else { if (!is_array($handle)) { $sql = "SELECT filename FROM templates WHERE filename = '$filename' LIMIT 1"; $file_results = mysql_query($sql); if (mysql_num_rows($file_results) == 1) { $this->file[$handle] = $filename; } else { $this->halt("set_file : Template $filename does not exist in the template database."); } } else { reset($handle); while(list($h, $f) = each($handle)) { $sql = "SELECT filename FROM templates WHERE filename = '$f' LIMIT 1"; $file_results = mysql_query($sql); if (mysql_num_rows($file_results) == 1) { $this->file[$h] = $f; } else { $this->halt("set_file : Template $f does not exist in the template database."); } } } } } // END of set_file /* public: set_block(string $parent, string $handle, string $name = "") * extract the template $handle from $parent, * place variable {$name} instead. */ function set_block($parent, $handle, $name = "") { if (!$this->loadfile($parent)) { $this->halt("subst: unable to load $parent."); return false; } if ($name == "") $name = $handle; $str = $this->get_var($parent); $reg = "/<!--\s+BEGIN $handle\s+-->(.*)<!--\s+END $handle\s+-->/sm"; preg_match_all($reg, $str, $m); $str = preg_replace($reg, "{$name}", $str); $this->set_var($handle, $m[1][0]); $this->set_var($parent, $str); } /* public: set_var(array $values) * values: array of variable name, value pairs. * * public: set_var(string $varname, string $value) * varname: name of a variable that is to be defined * value: value of that variable */ function set_var($varname, $value = "") { if (!is_array($varname)) { if (!empty($varname)) if ($this->debug) print "scalar: set *$varname* to *$value*<br>\n"; $this->varkeys[$varname] = "/".$this->varname($varname)."/"; $this->varvals[$varname] = $value; } else { reset($varname); while(list($k, $v) = each($varname)) { if (!empty($k)) if ($this->debug) print "array: set *$k* to *$v*<br>\n"; $this->varkeys[$k] = "/".$this->varname($k)."/"; $this->varvals[$k] = $v; } } } /* public: subst(string $handle) * handle: handle of template where variables are to be substituted. */ function subst($handle) { if (!$this->loadfile($handle)) { $this->halt("subst: unable to load $handle."); return false; } $str = $this->get_var($handle); $str = @preg_replace($this->varkeys, $this->varvals, $str); return $str; } /* public: psubst(string $handle) * handle: handle of template where variables are to be substituted. */ function psubst($handle) { print $this->subst($handle); return false; } /* public: parse(string $target, string $handle, boolean append) * public: parse(string $target, array $handle, boolean append) * target: handle of variable to generate * handle: handle of template to substitute * append: append to target handle */ function parse($target, $handle, $append = false) { if (!is_array($handle)) { $str = $this->subst($handle); if ($append) { $this->set_var($target, $this->get_var($target) . $str); } else { $this->set_var($target, $str); } } else { reset($handle); while(list($i, $h) = each($handle)) { $str = $this->subst($h); $this->set_var($target, $str); } } return $str; } function pparse($target, $handle, $append = false) { print $this->parse($target, $handle, $append); return false; } /* public: get_vars() */ function get_vars() { reset($this->varkeys); while(list($k, $v) = each($this->varkeys)) { $result[$k] = $this->varvals[$k]; } return $result; } /* public: get_var(string varname) * varname: name of variable. * * public: get_var(array varname) * varname: array of variable names */ function get_var($varname) { if (!is_array($varname)) { return $this->varvals[$varname]; } else { reset($varname); while(list($k, $v) = each($varname)) { $result[$k] = $this->varvals[$k]; } return $result; } } /* public: get_undefined($handle) * handle: handle of a template. */ function get_undefined($handle) { if (!$this->loadfile($handle)) { $this->halt("get_undefined: unable to load $handle."); return false; } preg_match_all("/\{([^}]+)\}/", $this->get_var($handle), $m); $m = $m[1]; if (!is_array($m)) return false; reset($m); while(list($k, $v) = each($m)) { if (!isset($this->varkeys[$v])) $result[$v] = $v; } if (count($result)) return $result; else return false; } /* public: finish(string $str) * str: string to finish. */ function finish($str) { switch ($this->unknowns) { case "keep": break; case "remove": $str = preg_replace("/\{[^}]+\}/", "", $str); break; case "comment": $str = preg_replace("/\{([^}]+)\}/", "<!-- Template $handle: Variable \\1 undefined -->", $str); break; } return $str; } /* public: p(string $varname) * varname: name of variable to print. */ function p($varname) { print $this->finish($this->get_var($varname)); } function get($varname) { return $this->finish($this->get_var($varname)); } /***************************************************************************/ /* private: filename($filename) * filename: name to be completed. */ function filename($filename) { if (substr($filename, 0, 1) != "/") { $filename = $this->root."/".$filename; } if (!file_exists($filename)) $this->halt("filename: file $filename does not exist."); return $filename; } /* private: varname($varname) * varname: name of a replacement variable to be protected. */ function varname($varname) { return preg_quote("{".$varname."}"); } /* private: loadfile(string $handle) * handle: load file defined by handle, if it is not loaded yet. */ function loadfile($handle) { if ($this->varkeys[$handle] and !empty($this->varvals[$handle])) return true; if (!isset($this->file[$handle])) { $this->halt("loadfile: $handle is not a valid handle."); return false; } if (!$this->useDB) { $filename = $this->filename($this->file[$handle]); $str = implode("", @file($filename)); } else { $filename = $this->file[$handle]; $sql = "SELECT content FROM templates WHERE filename = '$filename' LIMIT 1"; $content_results = mysql_query($sql); $content = mysql_fetch_array($content_results); $str = $content[content]; } if (empty($str)) { $this->halt("loadfile: While loading $handle, $filename does not exist or is empty."); return false; } $this->set_var($handle, $str); return true; } /***************************************************************************/ /* public: halt(string $msg) * msg: error message to show. */ function halt($msg) { $this->last_error = $msg; if ($this->halt_on_error != "no") $this->haltmsg($msg); if ($this->halt_on_error == "yes") die("<b>Halted.</b>"); return false; } /* public, override: haltmsg($msg) * msg: error message to show. */ function haltmsg($msg) { printf("<b>Template Error:</b> %s<br>\n", $msg); } } ?>
Compiled PHP module to process template files. Extremely fast. Among others, supports Macromedia Dreamweaver template synthax. // The project's homepage is http://php-templates.sourceforge.net/
I wrote these two classes following the Factory Pattern to manage a large number of functions to display arrays. Basically, they pull in a $data array, massage it, select the function to apply to the array using switch() and then dump the output into a variable for template use. It certainly can be improved by someone who really knows design patterns, but it only took an hour or so to write, a few more hours to retrofit about 50 display functions and it works on any array! Once written, it's appallingly easy to drop into any new php file and shows the benefits of using OOP instead of having to suss out each array every time. PHP5 isn't used on my webhost yet, but once it is, updating the code will happen in one file and probably not take more than a few minutes! It was derived from a Zend article (www.zend.com/manual/language.oop5.patterns.php) and H. Fuecks article (www.phppatterns.com/index.php/article/articleview/49/1/1/). It's my first (conscious) foray into design patterns, so I hope others find it useful! The object is created in another class when the user logs in, but I put it here to avoid confusion: // FILE 1 class_Factory_ArrayFactory.php ; I keep each class in it's own file, but you can probably put them all in one file to test this out. class ArrayFactory { function ArrayFactory() { require_once('class_ArrayToString.php'); } function buildArray() { RETURN new ArrayToString(); } //end of class } //FILE 2 class_ArrayToString.php class ArrayToString { var $arrayCount = ''; var $dataType; var $dataArray; var $display = ''; var $string = ''; // load the array and assign it a data type ; constructor is empty, never called directly function ArrayToString() { } function setArray($dataArray) { $this->dataArray = $dataArray; $this->arrayCount = ( ($dataArray=='-1') OR empty($dataArray) ) ? '0' : count($this->dataArray); } function setDataType($dataType) { $this->dataType = $dataType; } // figure out whether the array is empty early on: if so dump to default string (could also be an error notice), if not proceed to a display function function getString() { $string = ($this->arrayCount =='0') ? ArrayToString::defaultString() : ArrayToString::arrayString(); RETURN $string; } // the $dataType is used to decide what the default looks like and then selected the function to use; list sorting is done in the SQL function // of course, a lot of this can be done through ADODB, but I wanted to roll my own for this application; function defaultString() { switch($this->dataType) { case 'dbList': $this->string .= "<tr><td>--N/A--</td></tr>"; break; default: $this->string .= '--N/A--'; break; } RETURN $this->string; } function arrayString() { switch($this->dataType) { case 'convictionList': $this->string = ArrayToString::displayDBList(); default: $this->string = ArrayToString::defaultString(); break; } RETURN $this->string; } //do something with the array output //most of functions used alternating row colors using CSS, so the $arrayCount variable is useful here function displayDBList() { $display = ''; foreach ($this->dataArray AS $tmp) { $c = ($this->arrayCount % 2) ? 'color1' : 'color2'; $display .= " "; $this->arrayCount++; } RETURN $display; }
This is simple template function which reduces developement time.. //this is the function that return the template content as a string after replacing place holders[{}] to a array variable which has place holders as index. //this fuction assumes that all template files in a folder templates and there is a varible definded $site_path to serverpath. //$name is html file name that may be in templates folder function do_template($name, $array="_var") { global $$array, $_config; //read the template files $content = read_file($site_path . '/templates/' . $name); foreach ($$array as $index => $value) { $content = str_replace("\{$index}", $value, $content); } $content = preg_replace('#\{([a-z0-9\-_]*?)\}#', '', $content); return $content; } //to read the content of a file function read_file($file) { $fp = fopen($file, 'r') or die("File Does'nt Exists"); $content = fread($fp, filesize($file)); fclose($fp); return $content; }
Template function/class slows down site a lot, especially if it is implemented in PHP. This is an example code how output bufferring and include() can be used as template. <?php // FILE: simple_template.php // This file uses temple.tpl // // If you need to deal with array and do not want to use // array syntax in template, then use extract(). // http://www.php.net/manual/en/function.extract.php // With extract(), you should need minimum PHP code in // template files when you have loop in template. // (If PHP supports macro, it would be almost the same as // other template systems. Macro is not supported // currently.) // // Once you understand how output buffer and include could // be used, you should be able to separate code and html // just like other template systems. // // I don't use any template function/class. Let me // know if you think you need template function/class. // // yohgaki@hotmail.com // /* Note: To include template.tpl correctly, you need to enable ASP style tag in php.ini. I use <%= %> syntax, since <?php= ?> is not supported. (<?= ?> syntax has problem with XML) <%=$var%> is equivalent to <% echo $var %> */ $title = 'Template Test'; $msg1 = 'Test message 1'; $msg2 = 'Test message 2'; ob_start(); include('template.tpl'); $html = ob_get_contents(); ob_end_clean(); print $html; ?> // FILE: template.tpl // Save following file as template.tpl // This file is used by simple_template.php <head> <title><%=$title%></title> </head> <body> $msg1 = <%=$msg1%><br> $msg2 = <%=$msg2%><br> </body> </html>
Smarty is a template language that compiles the templates into native PHP code, so there is no template parsing overhead. It has tons of features such as custom functions, variable modifiers, looping sections, caching, debugging, a much more! <?php Visit homepage: http://www.phpinsider.com/php/code/Smarty/ ?>
A very easy to use yet powerful and quick template engine. Enables you to seperate your page layout/design from your code. It can handle simple variable replacement and table building using two dimensional arrays and/or MySQL result sets (Meaning that given a single row in the template, this class can build an entire table of data). Performance is excellent. Has support for multiple template files. <?php /*************************************** ** Title........: Template class ** Filename.....: class.template.inc ** Author.......: Richard Heyes ** Version......: 1.13 ** Notes........: ** Last changed.: 05/07/2000 ** Last change..: You can now have two ** different loops within ** the same html file with ** exactly the same loop code. ***************************************/ class template{ var $var_names = array(); var $files = array(); var $start = '{'; var $end = '}'; /*************************************** ** Function to load a template into ** the class. ***************************************/ function load_file($file_id, $filename){ $this->files[$file_id] = fread($fp = fopen($filename, 'r'), filesize($filename)); fclose($fp); } /*************************************** ** Function to load a template into ** the class. ***************************************/ function set_identifiers($start, $end){ $this->start = $start; $this->end = $end; } /*************************************** ** Function to register a variable(s). ***************************************/ function register($file_id, $var_name){ if(is_long(strpos($var_name, ',')) == TRUE){ $var_name = explode(',', $var_name); for(reset($var_name); $current = current($var_name); next($var_name)) $this->var_names[$file_id][] = $current; }else{ $this->var_names[$file_id][] = $var_name; } } /*************************************** ** Function for reading and parsing the ** html file for normal variables. ***************************************/ function parse($file_id){ if(isset($this->var_names[$file_id]) AND count($this->var_names[$file_id]) > 0){ for($i=0; $i<count($this->var_names[$file_id]); $i++){ $temp_var = $this->var_names[$file_id][$i]; global $$temp_var; $this->files[$file_id] = str_replace($this->start.$temp_var.$this->end, $$temp_var, $this->files[$file_id]); } } } /*************************************** ** Function for parsing an array. ***************************************/ function parse_loop($file_id, $array_name){ global $$array_name; $loop_code = ''; $file = explode(chr(10), $this->files[$file_id]); $start_pos = strpos(strtolower($this->files[$file_id]), '<loop name="'.$array_name.'">') + strlen('<loop name="'.$array_name.'">'); $end_pos = strpos(strtolower($this->files[$file_id]), '</loop name="'.$array_name.'">'); $loop_code = substr($this->files[$file_id], $start_pos, $end_pos-$start_pos); $start_tag = substr($this->files[$file_id], strpos(strtolower($this->files[$file_id]), '<loop name="'.$array_name.'">'),strlen('<loop name="'.$array_name.'">')); $end_tag = substr($this->files[$file_id], strpos(strtolower($this->files[$file_id]), '</loop name="'.$array_name.'">'),strlen('</loop name="'.$array_name.'">')); if($loop_code != ''){ $new_code = ''; for($i=0; $i<count($$array_name); $i++){ $temp_code = $loop_code; while(list($key,) = each(${$array_name}[$i])){ $temp_code = str_replace($this->start.$key.$this->end,${$array_name}[$i][$key], $temp_code); } $new_code .= $temp_code; } $this->files[$file_id] = str_replace($start_tag.$loop_code.$end_tag, $new_code, $this->files[$file_id]); } } /*************************************** ** Function for parsing an sql result ** set. ***************************************/ function parse_sql($file_id, $result_name){ global $$result_name; $loop_code = ''; $start_pos = strpos(strtolower($this->files[$file_id]), '<loop name="'.$result_name.'">') + strlen('<loop name="'.$result_name.'">'); $end_pos = strpos(strtolower($this->files[$file_id]), '</loop name="'.$result_name.'">'); $loop_code = substr($this->files[$file_id], $start_pos, $end_pos-$start_pos); $start_tag = substr($this->files[$file_id], strpos(strtolower($this->files[$file_id]), '<loop name="'.$result_name.'">'),strlen('<loop name="'.$result_name.'">')); $end_tag = substr($this->files[$file_id], strpos(strtolower($this->files[$file_id]), '</loop name="'.$result_name.'">'),strlen('</loop name="'.$result_name.'">')); if($loop_code != ''){ $new_code = ''; $field_names = array(); for($i=0; $i<mysql_num_fields($$result_name); $i++) $field_names[] = mysql_field_name($$result_name,$i); while($row_data = mysql_fetch_array($$result_name, MYSQL_ASSOC)){ $temp_code = $loop_code; for($i=0; $i<count($field_names); $i++){ $temp_code = str_replace($this->start.$field_names[$i].$this->end, $row_data[$field_names[$i]], $temp_code); } $new_code.= $temp_code; } $this->files[$file_id] = str_replace($start_tag.$loop_code.$end_tag, $new_code, $this->files[$file_id]); } } /*************************************** ** Function for printing the resulting ** file(s). ***************************************/ function print_file($file_id){ if(is_long(strpos($file_id, ',')) == TRUE){ $file_id = explode(',', $file_id); for(reset($file_id); $current = current($file_id); next($file_id)) echo $this->files[$current]; }else{ echo $this->files[$file_id]; } } /*************************************** ** Function for returning the resulting ** file(s). ***************************************/ function return_file($file_id){ $ret = ''; if(is_long(strpos($file_id, ',')) == TRUE){ $file_id = explode(',', $file_id); for(reset($file_id); $current = current($file_id); next($file_id)) $ret .= $this->files[$current]; }else{ $ret .= $this->files[$file_id]; } return $ret; } } // End of class ?>
To separate code from layout information is the key for a good and clean website architecture. This class provides a method for taking any information (for example the result of a database query) and parsing it into given templates by replacing keywords with their corresponding values. The method is recursive so you can set apart every needed layout information in sub-templates. This is useful for building dynamic lists or tables. This gives the "layout people" full control over the site layout and keeps them away from the code. <BR> The class is not limited to HTML templates -- it could parse any text file, so you can use it for generating emails, too. Or whatever you may need to parse... :) <BR> This version is still beta. It is not fully optimizied, but therefor runs with older versions of PHP. <?php /****************************************************************** * * Name * * template.inc.php3 - a class for parsing templates * * Author * * Volker Rattel <vrattel@noarch.net> * * Homepage * * not yet * * Description * * The provided function 'parse()' takes an array of values * and replaces the keywords with the values within given * template files. A template could execute another template. * You could therefor build dynamic pages without having * any html code in your scripts. * * The keyword 'template' is reserved and points to the * template file which is being used by the parser. Don't * use this keyword for anything else. * * Example * * =========================================================== * main_template.html * =========================================================== * <html> * <head><title>%%page_title%%</title></head> * <body> * <h1>%%page_title%%</h1> * %%list_of_gnarfs%% * </body> * </html> * =========================================================== * list_template.html * =========================================================== * <li>%%list_elem%% * =========================================================== * example.php3 * =========================================================== * <?php * include "template.inc.php3"; * $template = new template(); * $filling = array( * 'template' => 'main_template.html', * 'page_title' => 'My splendid title', * 'list_of_gnarfs' => array( * array( * 'template' => 'list_template.html', * 'list_elem' => 'Gnarf 1' * ), * array( * 'template' => 'list_template.html', * 'list_elem' => 'Gnarf 2' * ) * ) * ); * echo $template->parse($filling); * ?> * =========================================================== * * History * * 2000/11/06 - v1.00 - Initial coding. * *****************************************************************/ class template { /************************************************************* * * template() * * Just to be nice and have a construcor. It's void, though. * ************************************************************/ function template() { # void } /************************************************************* * * parse($filling="") * * The parsing function. Takes an array in the form of * * array( * 'template' => 'main_template.html', * 'page_title' => 'My splendid title', * 'list_of_gnarfs' => array( * array( * 'template' => 'list_template.html', * 'list_elem' => 'Gnarf 1' * ), * array( * 'template' => 'list_template.html', * 'list_elem' => 'Gnarf 2' * ) * ) * ) * * The keyword 'template' points to a existing template * file. * ************************************************************/ function parse($filling="") { /* Quietly return nothing if the file doesn't exists. */ if (! file_exists($filling["template"])) { return; } /* Open and read the file. */ $fd = fopen($filling["template"], "r"); $text = fread ($fd, filesize ($filling["template"])); fclose($fd); /* Search all keywords words encapsulated by '%%' signs. */ if (preg_match_all("'(%%)(.*?)(%%)'i", $text, $regs)) { /* Build the search array. */ while (list($key, $value) = each($regs[0])) { $search[] = "'$value'"; } /* Build the replace array. */ while (list($key, $value) = each($regs[2])) { $replacement = ""; /* Actual element is an array? */ if (is_array($filling[$value])) { /* Loop over the elements. */ while (list($key2, $value2) = each($filling[$value])) { /* Array again? */ if (is_array($value2)) { /* Do a recursive call to parse the sub elements. */ $replacement .= $this->parse($value2); } } } else { /* No. Just take the value. */ $replacement = $filling[$value]; } $replace[] = $replacement; } /* Perform the search & replace. */ $text = preg_replace($search, $replace, $text); } return $text; } } ?>
This document needs 2 files,<BR> 1 config file. With te replacements<BR> 1 html document. Yust a htmlfile.<BR> UPDATED: Now supporting php tag's<BR> It's clear what is does <? /* -=- Templater1 function -=- Gemaakt door: Ivo Koster Gemaakt op: 05-07-2000 Laast bijgewerkt op: 05-07-2000 Versie: 0.2 (C)2000 Ivo Koster, Exed. */ function templ($conf,$source) { clearstatcache(); // cache of the filething dele. if(!file_exists($conf)) // Checking for the file $conf. { return 1; } if(!file_exists($source)) // Checking for the file $source. { return 2; } $inphp=0; $src =fopen($source,"r"); $cnf =fopen($conf,"r"); while($test = fgets ($src, 10000)) { $cnf =fopen($conf,"r"); while($da = fgetcsv($cnf,25,'|')) { $test = str_replace($da[0],$da[1],$test); } fclose($cnf); if($inphp==0) { if(strstr($test,"<?")) { $inphp=1; } else { echo $test; } } else { if(strstr($test,"?>")) { $inphp=0; } else { eval($test); } } } fclose($src); return 0; } templ($conf,$source); ?> $conf file: %body%|BLACK $source file: <HTML> <BODY BGCOLOR="%body%"> TEST </BODY> </HTML>