| 0,0 → 1,277 |
|---|
| <?php |
| |
| // Template Engine |
| // --------------- |
| // |
| // Tento modul zpracovává tmplejty a strká do nich dynamicky generované |
| // informace a vytváří tak dynamické HTML stránky s oddělenou logikou |
| // programu a vzhledu. |
| // |
| // Více viz popis činnosti v konentáři na začátku templejtu |
| // |
| // (c)miho www.mlab.cz 2007, free software |
| // |
| // Typické použití objektu je toto: |
| // |
| // - Založ objekt templejtu (new) |
| // - $Template = new TemplateEngine(); |
| // |
| // - Načti templejt ze souboru do objektu (ošetři chybu!) |
| // - $error = $Template->LoadTemplate($TemplateFile); |
| // |
| // - Tady se provádí generování masa, je možné použít proměnné, |
| // - modifikovat proměnné a nechat provéstsubstituce v proměnných |
| // - do řetězců. |
| // |
| // $Template->SetVariable('InfoTitle','Generovaný seznam'); |
| // - první parametr je jméno proměnné, druhý je jeho nový obsah |
| // |
| // $Line = $Template->GetVariable('InfoLine') |
| // - vrací obsah proměnné nebo prázdný řetězec |
| // |
| // - Připrav si proměnné, které se budou strkat do vzorového řetězce |
| // $Variables[InfoName] = 'nějaká informace pro proměnnou InfoName'; |
| // $Variables[InfoPicture] = 'jiná informace pro proměnnou InfoPicture'; |
| // - aplikuj (nahraď) proměnné na vzorový řetězec z propměnné 'InfoLine' |
| // $Line = $Template->Substitute($Variables, $Template->GetVariable('InfoLine')); |
| // |
| // - Nakonec se aplikují proměnné do nataženého templejtu a výsledek |
| // - se pošle klientovi |
| // echo $Template->GetPage(); |
| // |
| |
| |
| // Objekt pro zpracování templejtu |
| class TemplateEngine |
| { |
| |
| private $Page; // Sem se načte templejt a zde se provádí substituce |
| private $Info; // Sem se načtou z templejtu proměnné |
| |
| |
| function ListInfo() |
| // Vypíše nalezené proměnné a jejich hodnoty |
| // Pouze pro ladění |
| { |
| echo "[ ListInfo:\n"; |
| print_r($this->Info); |
| echo ']'; |
| } |
| |
| |
| function LoadTemplate($TemplateFileName, $Lang) |
| // Načte templejt ze souboru, při chybě vrací chybový řetězec |
| // Snaží se rozumně využít informaci o jazyku k otevření správné verze |
| // templejtu. Cesta se zadává bez jazykové části ale s příponou. |
| { |
| // Vlož zadaný jazyk do názvu souboru |
| $TemplateFileName = LangFile($TemplateFileName, $Lang); |
| |
| // Načti template ze souboru (po řádcích do pole) |
| $this->Page = @file($TemplateFileName); |
| if ($this->Page=='') |
| return 'Unable Open Template File'; |
| |
| // Sestav z pole jeden retězec |
| $this->Page = implode($this->Page); |
| |
| |
| // Definice regulárních výrazů pro hledání |
| // --------------------------------------- |
| |
| // Definice vzoru pro hledání komentáře ve tvaru <!-- --> |
| // Komentář je nepojmenované pole |
| // Před a za koentářem mohou být bílé znaky |
| // Uvnitř komentáře nesmí být znak > |
| $PatternComment = '(?:\s*<!--[^>]*--\s*>\s*)'; |
| // (?: nepojemnované pole |
| // \s* volitelné bílé znaky před |
| // <!-- začátek komentáře |
| // [^>]* vniřek komentáře (neobsahuje >) |
| // --\s*> konec komentáře |
| // \s* volitelné bílé znaky za komentářem |
| // ) tady končí komentář |
| |
| // Definice vzoru pro hledání proměnných ve tvaru $InfoXXX |
| $PatternVar ='\$(?P<VarName>Info[a-z,A-Z,0-9,\-\_]+)'; |
| // \$ na začátku $ |
| // (?P<VarName> pojmenované pole VarName je (jméno proměnné bez dolaru) |
| // Info[a-z,A-Z,0-9,\-\_]+ proměnná začíná Info a pak jsou písmena, |
| // ) číslice, mínus a podtržítko |
| |
| // Definice vzoru pro hledání hodnot proměnných ve tvaru = " Hodnota " |
| // Definice hodnot je ve tvaru $InfoXXX="YYY" a mohou být víceřádkové |
| // ( a mohou obsahovat uvnitř další substituce uvozené $, které program |
| // zpracovává ale ne tady) |
| $PatternValue = '\s*=\s*"(?P<VarValue>[^"]*)"'; |
| // \s*=\s* rovná se volitelnými bílými znaky okolo |
| // " hodnota v uvozovkách |
| // (?P<VarValue> parametr s názvem VarValue |
| // [^"]* hodnota nesmí obsahovat uvozovky |
| // ) vracíme hodnotu bez uvozovek |
| // " konec uvozovek |
| |
| // Zparacování vzoru |
| // ----------------- |
| |
| // Najdi na začátku stránky komentář a vykousni ho |
| $pattern = '/^' .$PatternComment. '+/su'; |
| $this->Page = preg_replace($pattern, '', $this->Page); |
| // / oddělovač |
| // ^ od začátku řetězce (jen komentáře na začátku souboru) |
| // $PatternComment komentář (<!-- -->) s bílými znaky okolo |
| // + alespoň jeden komentář |
| // /su modifikátor, . zastupuje i odřádkování, utf8 |
| |
| |
| // Najdi v templejtu substutuční proměnné a vytvoř v poli $Info |
| // prázdné položky pro každou použitou proměnnou. Dělá se to proto, |
| // aby se na konci nepoužité proměnné nahradily prázdným řetězcem. |
| $pattern = '/' .$PatternVar. '/su'; |
| preg_match_all($pattern, $this->Page, $temp); |
| // / oddělovač |
| // .$PatternVar. proměnná ( $InfoXXX ) - parametr VarName |
| // /su modifikátor zajistí, že . zastupuje i odřádkování, utf8 |
| foreach($temp['VarName'] as $key => $value) |
| $this->Info[$value] = ''; |
| unset($temp); |
| |
| // Vytáhni proměnné a jejich hodnoty do pole $Info |
| $pattern = '/' .$PatternVar.$PatternValue. '/su'; |
| // / oddělovač |
| // .$PatternVar. proměnná ( $InfoXXX ) - parametr VarName |
| // .$PatternValue. přiřazení ( = " Hodnota " ) - parametr VarValue |
| // /su modifikátor, . zastupuje i odřádkování, UTF8 |
| preg_match_all($pattern, $this->Page, $temp); |
| foreach($temp['VarName'] as $key => $value) |
| $this->Info[$value] = $temp['VarValue'][$key]; |
| unset($temp); |
| |
| // Vykousej zpracované definice proměnných (a komentáře před nimi) |
| $pattern = '/' .$PatternComment.'?'.$PatternVar.$PatternValue. '/su'; |
| // / oddělovač |
| // .$PatternComment.'?' volitelný komentář před definicí |
| // .$PatternVar. proměnná ( $InfoXXX ) |
| // .$PatternValue. přiřazení ( = " Hodnota " ) |
| // /su modifikátor, . zastupuje i odřádkování, UTF8 |
| $this->Page = preg_replace($pattern, '', $this->Page); |
| } |
| |
| function Indent($StringData, $Indent) |
| // Všechna odřádkování v řetězci $StringData odsadí o hodnotu $Indent pokud je |
| // $Indent číslo nebo o déllku řetězce $Indent pokud je to řetězec |
| { |
| // Velikost odsazení (vyrob číslo) |
| if (is_string($Indent)) |
| $Num = mb_strlen($Indent,'utf-8'); |
| else |
| $Num = 0+$Indent; |
| |
| // Odsazení |
| return $StringData = $Indent.str_replace("\n", "\n".str_repeat(' ', $Num), $StringData); |
| } |
| |
| |
| /* |
| function Substitute($Variables, $String) |
| // Nahradí proměnné v řetězci $String obsahem proměnných z pole $Variables |
| // a vrátí výsledný řetězec |
| { |
| if (is_array($Variables)) |
| { |
| foreach($Variables as $Key => $Value) |
| { |
| // Hledací vzor (hledáme proměnnou s názvem v $Key) |
| $Pattern = '\$'.$Key.'(?=[^a-z,A-Z,0-9,\-\_])'; |
| // \$$Key hledáme $JmenoProměnné |
| // (?= následuje něco, co nemůže být jménem |
| // [^a-z,A-Z,0-9,\-\_] a nezajímá nás |
| // ) |
| |
| // Vkládáme více řádek? |
| $IsMultiline = !(strpos($Value, "\n") === FALSE); |
| |
| if (!$IsMultiline) |
| { |
| // Vkládáme jednoduchý řetězec |
| $String = preg_replace('/'.$Pattern.'/su', $Value, $String); |
| // /su víceřádkové v UTF8 |
| } |
| else |
| { |
| // Vkládáme řetezec s odřádkováním - je třeba odsazovat |
| $String = preg_replace('/(.*)'.$Pattern.'/ue', |
| "\$this->Indent(\$Value, '\\1')", |
| $String); |
| // (.*) hledáme cokoli před vzorem -> první parametr |
| // .$Pattern. proměnná |
| // /ue UTF8, náhrada je php skriptem |
| } |
| } |
| } |
| |
| return $String; |
| } |
| */ |
| |
| |
| function Substitute($Variables, $String) |
| // Nahradí proměnné v řetězci $String obsahem proměnných z pole $Variables |
| // a vrátí výsledný řetězec |
| { |
| // Hledací vzor |
| $Pattern = '/(.*?)\$(Info[a-z,A-Z,0-9,\-\_]+)(?=[^a-z,A-Z,0-9,\-\_])/ue'; |
| |
| // Náhrada s kusem php kódu (nezapomeň, že preg_replace s přepínačem /e vrací oescapované řetězce) |
| $String = preg_replace($Pattern, |
| 'isset($Variables[\'\2\']) |
| ? $this->Indent($Variables[\'\2\'], stripslashes(\'\1\')) |
| : stripslashes(\'\1\') |
| ', |
| $String); |
| return $String; |
| } |
| |
| |
| function SetVariable($VarName, $VarValue, $Wrap=0) |
| // Nastaví hodnotu proměnné |
| // Volitelně provede zálámání na zadaný počet znaků a odstranění nadbytečných mezer |
| { |
| // Volitelné zalámání a odstranění bílých znaků |
| if ($Wrap!=0) |
| $VarValue = WrapString($VarValue, $Wrap); |
| |
| // Uložení do proměnných |
| $this->Info[$VarName] = $VarValue; |
| } |
| |
| |
| function GetVariable($VarName) |
| // Vrátí hodnotu proměnné tak, jak je, včetně mezer a odřádkování |
| { |
| if (isset($this->Info[$VarName])) |
| return $this->Info[$VarName]; |
| else |
| return ''; |
| } |
| |
| |
| function GetString($VarName) |
| // Vrátí parametr jako jeden řetězec s redukovanými bílými znaky |
| // Tedy bez odřádkování a nadbytečných mezer |
| { |
| return WrapString($this->GetVariable($VarName), 0); |
| } |
| |
| |
| function GetPage() |
| // Provede substituce ve stránce a vrátí ji jako řetězec |
| // Substituce bere z proměnné $Info |
| { |
| // Proveď ve stránce substituce proměnných a vrať výsledek |
| return $this->Substitute($this->Info, $this->Page); |
| } |
| } |
| |
| |
| ?> |