2007-07-19 12:40:28 +02:00
< ? php
2011-02-18 05:06:11 +01:00
/**
* This tracks the current scope for an SSViewer instance . It has three goals :
* - Handle entering & leaving sub - scopes in loops and withs
* - Track Up and Top
* - ( As a side effect ) Inject data that needs to be available globally ( used to live in ViewableData )
*
* In order to handle up , rather than tracking it using a tree , which would involve constructing new objects
* for each step , we use indexes into the itemStack ( which already has to exist ) .
*
* Each item has three indexes associated with it
*
* - Pop . Which item should become the scope once the current scope is popped out of
* - Up . Which item is up from this item
* - Current . Which item is the first time this object has appeared in the stack
*
* We also keep the index of the current starting point for lookups . A lookup is a sequence of obj calls -
* when in a loop or with tag the end result becomes the new scope , but for injections , we throw away the lookup
* and revert back to the original scope once we 've got the value we' re after
*
*/
2011-02-21 05:44:46 +01:00
class SSViewer_Scope {
2011-02-18 05:06:11 +01:00
// The stack of previous "global" items
2012-05-11 04:03:31 +02:00
// And array of item, itemIterator, itemIteratorTotal, pop_index, up_index, current_index
2011-02-18 05:06:11 +01:00
private $itemStack = array ();
2012-02-11 03:26:26 +01:00
protected $item ; // The current "global" item (the one any lookup starts from)
protected $itemIterator ; // If we're looping over the current "global" item, here's the iterator that tracks with item we're up to
protected $itemIteratorTotal ; //Total number of items in the iterator
2011-02-18 05:06:11 +01:00
private $popIndex ; // A pointer into the item stack for which item should be scope on the next pop call
2012-04-11 12:08:05 +02:00
private $upIndex = null ; // A pointer into the item stack for which item is "up" from this one
private $currentIndex = null ; // A pointer into the item stack for which item is this one (or null if not in stack yet)
2011-02-18 05:06:11 +01:00
private $localIndex ;
2012-02-11 03:26:26 +01:00
2011-02-18 05:06:11 +01:00
function __construct ( $item ){
$this -> item = $item ;
$this -> localIndex = 0 ;
2012-05-11 04:03:31 +02:00
$this -> itemStack [] = array ( $this -> item , null , 0 , null , null , 0 );
2011-02-18 05:06:11 +01:00
}
function getItem (){
return $this -> itemIterator ? $this -> itemIterator -> current () : $this -> item ;
}
function resetLocalScope (){
2012-05-11 04:03:31 +02:00
list ( $this -> item , $this -> itemIterator , $this -> itemIteratorTotal , $this -> popIndex , $this -> upIndex , $this -> currentIndex ) = $this -> itemStack [ $this -> localIndex ];
2011-02-18 05:06:11 +01:00
array_splice ( $this -> itemStack , $this -> localIndex + 1 );
}
2012-05-19 02:55:49 +02:00
2012-03-16 02:14:04 +01:00
function getObj ( $name , $arguments = null , $forceReturnedObject = true , $cache = false , $cacheName = null ) {
$on = $this -> itemIterator ? $this -> itemIterator -> current () : $this -> item ;
return $on -> obj ( $name , $arguments , $forceReturnedObject , $cache , $cacheName );
}
2012-05-19 02:55:49 +02:00
function obj ( $name , $arguments = null , $forceReturnedObject = true , $cache = false , $cacheName = null ) {
2011-02-18 05:06:11 +01:00
switch ( $name ) {
case 'Up' :
2012-04-11 12:08:05 +02:00
if ( $this -> upIndex === null ) user_error ( 'Up called when we\'re already at the top of the scope' , E_USER_ERROR );
2012-05-11 04:03:31 +02:00
list ( $this -> item , $this -> itemIterator , $this -> itemIteratorTotal , $unused2 , $this -> upIndex , $this -> currentIndex ) = $this -> itemStack [ $this -> upIndex ];
2011-02-18 05:06:11 +01:00
break ;
case 'Top' :
2012-05-11 04:03:31 +02:00
list ( $this -> item , $this -> itemIterator , $this -> itemIteratorTotal , $unused2 , $this -> upIndex , $this -> currentIndex ) = $this -> itemStack [ 0 ];
2011-02-18 05:06:11 +01:00
break ;
default :
2012-03-16 02:14:04 +01:00
$this -> item = $this -> getObj ( $name , $arguments , $forceReturnedObject , $cache , $cacheName );
2011-02-18 05:06:11 +01:00
$this -> itemIterator = null ;
$this -> upIndex = $this -> currentIndex ? $this -> currentIndex : count ( $this -> itemStack ) - 1 ;
$this -> currentIndex = count ( $this -> itemStack );
break ;
}
2012-05-19 02:55:49 +02:00
2012-05-11 04:03:31 +02:00
$this -> itemStack [] = array ( $this -> item , $this -> itemIterator , $this -> itemIteratorTotal , null , $this -> upIndex , $this -> currentIndex );
2011-02-18 05:06:11 +01:00
return $this ;
}
function pushScope (){
$newLocalIndex = count ( $this -> itemStack ) - 1 ;
2012-05-11 04:03:31 +02:00
$this -> popIndex = $this -> itemStack [ $newLocalIndex ][ 3 ] = $this -> localIndex ;
2011-02-18 05:06:11 +01:00
$this -> localIndex = $newLocalIndex ;
// We normally keep any previous itemIterator around, so local $Up calls reference the right element. But
// once we enter a new global scope, we need to make sure we use a new one
$this -> itemIterator = $this -> itemStack [ $newLocalIndex ][ 1 ] = null ;
return $this ;
}
function popScope (){
$this -> localIndex = $this -> popIndex ;
$this -> resetLocalScope ();
return $this ;
}
function next (){
if ( ! $this -> item ) return false ;
2012-02-11 03:26:26 +01:00
if ( ! $this -> itemIterator ) {
2011-02-18 05:06:11 +01:00
if ( is_array ( $this -> item )) $this -> itemIterator = new ArrayIterator ( $this -> item );
else $this -> itemIterator = $this -> item -> getIterator ();
$this -> itemStack [ $this -> localIndex ][ 1 ] = $this -> itemIterator ;
2012-02-11 03:26:26 +01:00
$this -> itemIteratorTotal = iterator_count ( $this -> itemIterator ); //count the total number of items
2012-05-11 04:03:31 +02:00
$this -> itemStack [ $this -> localIndex ][ 2 ] = $this -> itemIteratorTotal ;
2011-02-18 05:06:11 +01:00
$this -> itemIterator -> rewind ();
}
else {
$this -> itemIterator -> next ();
}
$this -> resetLocalScope ();
2012-02-11 03:26:26 +01:00
2011-02-18 05:06:11 +01:00
if ( ! $this -> itemIterator -> valid ()) return false ;
return $this -> itemIterator -> key ();
}
function __call ( $name , $arguments ) {
$on = $this -> itemIterator ? $this -> itemIterator -> current () : $this -> item ;
$retval = call_user_func_array ( array ( $on , $name ), $arguments );
$this -> resetLocalScope ();
return $retval ;
}
}
2012-02-11 03:26:26 +01:00
class SSViewer_BasicIteratorSupport implements TemplateIteratorProvider {
protected $iteratorPos ;
protected $iteratorTotalItems ;
2012-02-21 01:36:34 +01:00
public static function get_template_iterator_variables () {
2012-02-11 03:26:26 +01:00
return array (
'First' ,
'Last' ,
'FirstLast' ,
'Middle' ,
'MiddleString' ,
'Even' ,
'Odd' ,
'EvenOdd' ,
'Pos' ,
'TotalItems' ,
'Modulus' ,
'MultipleOf' ,
);
}
/**
* Set the current iterator properties - where we are on the iterator .
*
* @ param int $pos position in iterator
* @ param int $totalItems total number of items
*/
public function iteratorProperties ( $pos , $totalItems ) {
$this -> iteratorPos = $pos ;
$this -> iteratorTotalItems = $totalItems ;
}
/**
* Returns true if this object is the first in a set .
*
* @ return bool
*/
public function First () {
return $this -> iteratorPos == 0 ;
}
/**
* Returns true if this object is the last in a set .
*
* @ return bool
*/
public function Last () {
return $this -> iteratorPos == $this -> iteratorTotalItems - 1 ;
}
/**
* Returns 'first' or 'last' if this is the first or last object in the set .
*
* @ return string | null
*/
public function FirstLast () {
if ( $this -> First () && $this -> Last ()) return 'first last' ;
if ( $this -> First ()) return 'first' ;
if ( $this -> Last ()) return 'last' ;
}
/**
* Return true if this object is between the first & last objects .
*
* @ return bool
*/
public function Middle () {
return ! $this -> First () && ! $this -> Last ();
}
/**
* Return 'middle' if this object is between the first & last objects .
*
* @ return string | null
*/
public function MiddleString () {
if ( $this -> Middle ()) return 'middle' ;
}
/**
* Return true if this object is an even item in the set .
* The count starts from $startIndex , which defaults to 1.
*
* @ param int $startIndex Number to start count from .
* @ return bool
*/
public function Even ( $startIndex = 1 ) {
return ! $this -> Odd ( $startIndex );
}
/**
* Return true if this is an odd item in the set .
*
* @ param int $startIndex Number to start count from .
* @ return bool
*/
public function Odd ( $startIndex = 1 ) {
return ( bool ) (( $this -> iteratorPos + $startIndex ) % 2 );
}
/**
* Return 'even' or 'odd' if this object is in an even or odd position in the set respectively .
*
* @ param int $startIndex Number to start count from .
* @ return string
*/
public function EvenOdd ( $startIndex = 1 ) {
return ( $this -> Even ( $startIndex )) ? 'even' : 'odd' ;
}
/**
* Return the numerical position of this object in the container set . The count starts at $startIndex .
* The default is the give the position using a 1 - based index .
*
* @ param int $startIndex Number to start count from .
* @ return int
*/
public function Pos ( $startIndex = 1 ) {
return $this -> iteratorPos + $startIndex ;
}
/**
* Return the total number of " sibling " items in the dataset .
*
* @ return int
*/
public function TotalItems () {
return $this -> iteratorTotalItems ;
}
/**
* Returns the modulus of the numerical position of the item in the data set .
* The count starts from $startIndex , which defaults to 1.
* @ param int $Mod The number to perform Mod operation to .
* @ param int $startIndex Number to start count from .
* @ return int
*/
public function Modulus ( $mod , $startIndex = 1 ) {
return ( $this -> iteratorPos + $startIndex ) % $mod ;
}
/**
* Returns true or false depending on if the pos of the iterator is a multiple of a specific number .
* So , <% if MultipleOf ( 3 ) %> would return true on indexes : 3 , 6 , 9 , 12 , 15 , etc .
* The count starts from $offset , which defaults to 1.
* @ param int $factor The multiple of which to return
* @ param int $offset Number to start count from .
* @ return bool
*/
public function MultipleOf ( $factor , $offset = 1 ) {
return ( bool ) ( $this -> Modulus ( $factor , $offset ) == 0 );
}
}
2011-02-21 05:44:46 +01:00
/**
* This extends SSViewer_Scope to mix in data on top of what the item provides . This can be " global "
* data that is scope - independant ( like BaseURL ), or type - specific data that is layered on top cross - cut like
* ( like $FirstLast etc ) .
*
* It ' s separate from SSViewer_Scope to keep that fairly complex code as clean as possible .
*/
class SSViewer_DataPresenter extends SSViewer_Scope {
2012-02-17 01:42:18 +01:00
private static $globalProperties = null ;
private static $iteratorProperties = null ;
2012-02-11 03:08:39 +01:00
2012-04-13 02:14:33 +02:00
/** @var array|null Overlay variables. Take precedence over anything from the current scope */
protected $overlay ;
/** @var array|null Underlay variables. Concede precedence to overlay variables or anything from the current scope */
protected $underlay ;
2012-02-17 01:42:18 +01:00
2012-04-13 02:14:33 +02:00
function __construct ( $item , $overlay = null , $underlay = null ){
2011-02-21 05:44:46 +01:00
parent :: __construct ( $item );
2012-02-11 03:08:39 +01:00
2012-02-17 01:42:18 +01:00
// Build up global property providers array only once per request
if ( self :: $globalProperties === null ) {
self :: $globalProperties = array ();
// Get all the exposed variables from all classes that implement the TemplateGlobalProvider interface
2012-02-21 01:36:34 +01:00
$this -> createCallableArray ( self :: $globalProperties , " TemplateGlobalProvider " , " get_template_global_variables " );
2012-02-11 03:26:26 +01:00
}
2012-02-17 01:42:18 +01:00
// Build up iterator property providers array only once per request
if ( self :: $iteratorProperties === null ) {
self :: $iteratorProperties = array ();
// Get all the exposed variables from all classes that implement the TemplateIteratorProvider interface
2012-02-21 01:36:34 +01:00
$this -> createCallableArray ( self :: $iteratorProperties , " TemplateIteratorProvider " , " get_template_iterator_variables " , true ); //call non-statically
2012-02-11 03:26:26 +01:00
}
2012-02-17 01:42:18 +01:00
2012-04-13 02:14:33 +02:00
$this -> overlay = $overlay ? $overlay : array ();
$this -> underlay = $underlay ? $underlay : array ();
2012-02-11 03:26:26 +01:00
}
2012-02-21 01:36:34 +01:00
protected function createCallableArray ( & $extraArray , $interfaceToQuery , $variableMethod , $createObject = false ) {
2012-02-11 03:26:26 +01:00
$implementers = ClassInfo :: implementorsOf ( $interfaceToQuery );
2012-02-20 23:45:43 +01:00
if ( $implementers ) foreach ( $implementers as $implementer ) {
// Create a new instance of the object for method calls
if ( $createObject ) $implementer = new $implementer ();
// Get the exposed variables
2012-03-09 05:34:45 +01:00
$exposedVariables = call_user_func ( array ( $implementer , $variableMethod ));
2012-02-20 23:45:43 +01:00
foreach ( $exposedVariables as $varName => $details ) {
2012-04-18 13:55:37 +02:00
if ( ! is_array ( $details )) $details = array ( 'method' => $details , 'casting' => Config :: inst () -> get ( 'ViewableData' , 'default_cast' , Config :: FIRST_SET ));
2012-02-20 23:45:43 +01:00
// If just a value (and not a key => value pair), use it for both key and value
if ( is_numeric ( $varName )) $varName = $details [ 'method' ];
// Add in a reference to the implementing class (might be a string class name or an instance)
$details [ 'implementer' ] = $implementer ;
// And a callable array
if ( isset ( $details [ 'method' ])) $details [ 'callable' ] = array ( $implementer , $details [ 'method' ]);
// Save with both uppercase & lowercase first letter, so either works
2012-03-09 06:21:01 +01:00
$lcFirst = strtolower ( $varName [ 0 ]) . substr ( $varName , 1 );
$extraArray [ $lcFirst ] = $details ;
2012-02-20 23:45:43 +01:00
$extraArray [ ucfirst ( $varName )] = $details ;
2012-02-11 03:08:39 +01:00
}
}
2011-02-21 05:44:46 +01:00
}
2012-02-11 03:31:22 +01:00
2012-02-20 23:45:43 +01:00
function getInjectedValue ( $property , $params , $cast = true ) {
2012-02-11 03:26:26 +01:00
$on = $this -> itemIterator ? $this -> itemIterator -> current () : $this -> item ;
2012-02-11 03:08:39 +01:00
2012-02-20 23:45:43 +01:00
// Find the source of the value
$source = null ;
2012-02-11 03:26:26 +01:00
2012-02-17 01:42:18 +01:00
// Check for a presenter-specific override
2012-04-13 02:14:33 +02:00
if ( array_key_exists ( $property , $this -> overlay )) {
$source = array ( 'value' => $this -> overlay [ $property ]);
}
// Check if the method to-be-called exists on the target object - if so, don't check any further injection locations
else if ( isset ( $on -> $property ) || method_exists ( $on , $property )) {
$source = null ;
}
// Check for a presenter-specific override
else if ( array_key_exists ( $property , $this -> underlay )) {
$source = array ( 'value' => $this -> underlay [ $property ]);
2012-02-17 01:42:18 +01:00
}
// Then for iterator-specific overrides
else if ( array_key_exists ( $property , self :: $iteratorProperties )) {
2012-02-20 23:45:43 +01:00
$source = self :: $iteratorProperties [ $property ];
2012-02-17 01:42:18 +01:00
if ( $this -> itemIterator ) {
// Set the current iterator position and total (the object instance is the first item in the callable array)
2012-02-20 23:45:43 +01:00
$source [ 'implementer' ] -> iteratorProperties ( $this -> itemIterator -> key (), $this -> itemIteratorTotal );
2012-02-17 01:42:18 +01:00
} else {
// If we don't actually have an iterator at the moment, act like a list of length 1
2012-02-20 23:45:43 +01:00
$source [ 'implementer' ] -> iteratorProperties ( 0 , 1 );
2012-02-11 03:26:26 +01:00
}
2012-02-17 01:42:18 +01:00
}
// And finally for global overrides
else if ( array_key_exists ( $property , self :: $globalProperties )) {
2012-02-20 23:45:43 +01:00
$source = self :: $globalProperties [ $property ]; //get the method call
2012-02-17 01:42:18 +01:00
}
2012-02-20 23:45:43 +01:00
if ( $source ) {
$res = array ();
// Look up the value - either from a callable, or from a directly provided value
if ( isset ( $source [ 'callable' ])) $res [ 'value' ] = call_user_func_array ( $source [ 'callable' ], $params );
elseif ( isset ( $source [ 'value' ])) $res [ 'value' ] = $source [ 'value' ];
else throw new InvalidArgumentException ( " Injected property $property does't have a value or callable value source provided " );
// If we want to provide a casted object, look up what type object to use
if ( $cast ) {
2012-03-16 02:14:04 +01:00
// If the handler returns an object, then we don't need to cast.
if ( is_object ( $res [ 'value' ])) {
$res [ 'obj' ] = $res [ 'value' ];
} else {
// Get the object to cast as
$casting = isset ( $source [ 'casting' ]) ? $source [ 'casting' ] : null ;
2012-02-11 03:08:39 +01:00
2012-03-16 02:14:04 +01:00
// If not provided, use default
2012-05-19 05:39:59 +02:00
if ( ! $casting ) $casting = Config :: inst () -> get ( 'ViewableData' , 'default_cast' , Config :: FIRST_SET );
2012-02-20 23:45:43 +01:00
2012-03-16 02:14:04 +01:00
$obj = new $casting ( $property );
$obj -> setValue ( $res [ 'value' ]);
$res [ 'obj' ] = $obj ;
}
2012-02-11 03:08:39 +01:00
}
2012-02-20 23:45:43 +01:00
return $res ;
}
2012-05-19 02:55:49 +02:00
2012-02-20 23:45:43 +01:00
}
2012-03-16 02:14:04 +01:00
function getObj ( $name , $arguments = null , $forceReturnedObject = true , $cache = false , $cacheName = null ) {
$result = $this -> getInjectedValue ( $name , ( array ) $arguments );
if ( $result ) return $result [ 'obj' ];
else return parent :: getObj ( $name , $arguments , $forceReturnedObject , $cache , $cacheName );
}
2012-02-20 23:45:43 +01:00
function __call ( $name , $arguments ) {
//extract the method name and parameters
$property = $arguments [ 0 ]; //the name of the function being called
if ( isset ( $arguments [ 1 ]) && $arguments [ 1 ] != null ) $params = $arguments [ 1 ]; //the function parameters in an array
else $params = array ();
$hasInjected = $res = null ;
if ( $name == 'hasValue' ) {
if ( $val = $this -> getInjectedValue ( $property , $params , false )) {
$hasInjected = true ; $res = ( bool ) $val [ 'value' ];
}
}
else { // XML_val
if ( $val = $this -> getInjectedValue ( $property , $params )) {
2012-05-19 08:09:39 +02:00
$hasInjected = true ;
$obj = $val [ 'obj' ];
2012-05-19 08:16:31 +02:00
$res = $obj -> forTemplate ();
2011-02-21 05:44:46 +01:00
}
}
2012-02-11 03:08:39 +01:00
2012-02-20 23:45:43 +01:00
if ( $hasInjected ) {
$this -> resetLocalScope ();
return $res ;
}
else {
return parent :: __call ( $name , $arguments );
}
2011-02-21 05:44:46 +01:00
}
}
2007-07-19 12:40:28 +02:00
/**
2010-10-15 03:21:50 +02:00
* Parses a template file with an *. ss file extension .
*
* In addition to a full template in the templates / folder , a template in
* templates / Content or templates / Layout will be rendered into $Content and
2007-07-19 12:40:28 +02:00
* $Layout , respectively .
2010-10-15 02:28:24 +02:00
*
2010-10-15 03:21:50 +02:00
* A single template can be parsed by multiple nested { @ link SSViewer } instances
* through $Layout / $Content placeholders , as well as <% include MyTemplateFile %> template commands .
*
* < b > Themes </ b >
*
* See http :// doc . silverstripe . org / themes and http :// doc . silverstripe . org / themes : developing
*
2010-10-15 02:28:24 +02:00
* < b > Caching </ b >
2007-07-19 12:40:28 +02:00
*
2010-10-15 03:21:50 +02:00
* Compiled templates are cached via { @ link SS_Cache }, usually on the filesystem .
* If you put ? flush = all on your URL , it will force the template to be recompiled .
2008-08-28 12:58:52 +02:00
*
2010-10-15 02:28:24 +02:00
* @ see http :// doc . silverstripe . org / themes
* @ see http :// doc . silverstripe . org / themes : developing
*
2012-04-12 08:02:46 +02:00
* @ package framework
2008-02-25 03:10:37 +01:00
* @ subpackage view
2007-07-19 12:40:28 +02:00
*/
2009-10-13 00:28:47 +02:00
class SSViewer {
2009-02-02 00:49:53 +01:00
/**
* @ var boolean $source_file_comments
*/
2009-09-04 03:31:40 +02:00
protected static $source_file_comments = false ;
2008-12-04 23:38:32 +01:00
/**
* Set whether HTML comments indicating the source . SS file used to render this page should be
* included in the output . This is enabled by default
2009-02-02 00:49:53 +01:00
*
* @ param boolean $val
2008-12-04 23:38:32 +01:00
*/
2009-02-02 00:49:53 +01:00
static function set_source_file_comments ( $val ) {
2008-12-04 23:38:32 +01:00
self :: $source_file_comments = $val ;
}
2008-10-06 21:25:45 +02:00
2009-02-02 00:49:53 +01:00
/**
* @ return boolean
*/
static function get_source_file_comments () {
return self :: $source_file_comments ;
}
2008-10-06 21:25:45 +02:00
/**
* @ var array $chosenTemplates Associative array for the different
2010-10-15 03:21:50 +02:00
* template containers : " main " and " Layout " . Values are absolute file paths to *. ss files .
2008-10-06 21:25:45 +02:00
*/
private $chosenTemplates = array ();
/**
* @ var boolean
*/
2007-07-19 12:40:28 +02:00
protected $rewriteHashlinks = true ;
2008-10-06 21:25:45 +02:00
/**
* @ var string
*/
2007-07-19 12:40:28 +02:00
protected static $current_theme = null ;
2010-10-13 05:40:05 +02:00
/**
* @ var string
*/
protected static $current_custom_theme = null ;
2012-04-11 11:34:27 +02:00
2007-07-19 12:40:28 +02:00
/**
* Create a template from a string instead of a . ss file
2008-11-10 02:01:55 +01:00
*
* @ return SSViewer
2007-07-19 12:40:28 +02:00
*/
static function fromString ( $content ) {
return new SSViewer_FromString ( $content );
}
2008-10-06 21:25:45 +02:00
/**
2010-10-15 02:28:24 +02:00
* @ param string $theme The " base theme " name ( without underscores ) .
2008-10-06 21:25:45 +02:00
*/
2007-07-19 12:40:28 +02:00
static function set_theme ( $theme ) {
self :: $current_theme = $theme ;
2010-10-13 05:40:05 +02:00
//Static publishing needs to have a theme set, otherwise it defaults to the content controller theme
if ( ! is_null ( $theme ))
self :: $current_custom_theme = $theme ;
2007-07-19 12:40:28 +02:00
}
2008-10-06 21:25:45 +02:00
/**
* @ return string
*/
2010-04-13 05:18:10 +02:00
static function current_theme () {
return self :: $current_theme ;
2007-07-19 12:40:28 +02:00
}
2010-12-11 02:34:47 +01:00
/**
* Returns the path to the theme folder
*
* @ return String
*/
static function get_theme_folder () {
return self :: current_theme () ? THEMES_DIR . " / " . self :: current_theme () : project ();
}
2011-02-26 07:55:04 +01:00
/**
* Returns an array of theme names present in a directory .
*
* @ param string $path
* @ param bool $subthemes Include subthemes ( default false ) .
* @ return array
*/
public static function get_themes ( $path = null , $subthemes = false ) {
$path = rtrim ( $path ? $path : THEMES_PATH , '/' );
$themes = array ();
if ( ! is_dir ( $path )) return $themes ;
foreach ( scandir ( $path ) as $item ) {
if ( $item [ 0 ] != '.' && is_dir ( " $path / $item " )) {
if ( $subthemes || ! strpos ( $item , '_' )) {
$themes [ $item ] = $item ;
}
}
}
return $themes ;
}
2010-10-13 05:40:05 +02:00
/**
* @ return string
*/
static function current_custom_theme (){
return self :: $current_custom_theme ;
}
2007-07-19 12:40:28 +02:00
/**
2010-10-15 03:21:50 +02:00
* @ param string | array $templateList If passed as a string with . ss extension , used as the " main " template .
* If passed as an array , it can be used for template inheritance ( first found template " wins " ) .
* Usually the array values are PHP class names , which directly correlate to template names .
* < code >
* array ( 'MySpecificPage' , 'MyPage' , 'Page' )
* </ code >
2007-07-19 12:40:28 +02:00
*/
public function __construct ( $templateList ) {
2008-10-06 21:25:45 +02:00
// flush template manifest cache if requested
2008-08-28 12:58:52 +02:00
if ( isset ( $_GET [ 'flush' ]) && $_GET [ 'flush' ] == 'all' ) {
2010-04-12 01:47:17 +02:00
if ( Director :: isDev () || Director :: is_cli () || Permission :: check ( 'ADMIN' )) {
2009-03-10 23:08:52 +01:00
self :: flush_template_cache ();
} else {
2009-09-10 04:00:42 +02:00
return Security :: permissionFailure ( null , 'Please log in as an administrator to flush the template cache.' );
2009-03-10 23:08:52 +01:00
}
2008-08-28 12:58:52 +02:00
}
2008-10-06 21:25:45 +02:00
2011-10-28 23:49:17 +02:00
if ( ! is_array ( $templateList ) && substr (( string ) $templateList , - 3 ) == '.ss' ) {
2007-07-19 12:40:28 +02:00
$this -> chosenTemplates [ 'main' ] = $templateList ;
} else {
2011-03-24 11:30:57 +01:00
$this -> chosenTemplates = SS_TemplateLoader :: instance () -> findTemplates (
$templateList , self :: current_theme ()
);
2007-07-19 12:40:28 +02:00
}
2011-10-29 03:37:42 +02:00
if ( ! $this -> chosenTemplates ) {
$templateList = ( is_array ( $templateList )) ? $templateList : array ( $templateList );
user_error ( " None of these templates can be found in theme ' "
2010-04-13 05:18:10 +02:00
. self :: current_theme () . " ': " . implode ( " .ss, " , $templateList ) . " .ss " , E_USER_WARNING );
2011-10-29 03:37:42 +02:00
}
2007-07-19 12:40:28 +02:00
}
/**
* Returns true if at least one of the listed templates exists
*/
2011-03-24 11:30:57 +01:00
public static function hasTemplate ( $templates ) {
$manifest = SS_TemplateLoader :: instance () -> getManifest ();
foreach (( array ) $templates as $template ) {
if ( $manifest -> getTemplate ( $template )) return true ;
2007-07-19 12:40:28 +02:00
}
2011-03-24 11:30:57 +01:00
2007-07-19 12:40:28 +02:00
return false ;
}
/**
* Set a global rendering option .
* The following options are available :
* - rewriteHashlinks : If true ( the default ), < a href = " #... " > will be rewritten to contain the
* current URL . This lets it play nicely with our < base > tag .
2009-11-05 02:07:00 +01:00
* - If rewriteHashlinks = 'php' then , a piece of PHP script will be inserted before the hash
* links : " <?php echo $_SERVER['REQUEST_URI'] ; ?> " . This is useful if you ' re generating a
* page that will be saved to a . php file and may be accessed from different URLs .
2007-07-19 12:40:28 +02:00
*/
public static function setOption ( $optionName , $optionVal ) {
SSViewer :: $options [ $optionName ] = $optionVal ;
}
2011-10-18 11:39:01 +02:00
/**
* @ param String
* @ return Mixed
*/
static function getOption ( $optionName ) {
return SSViewer :: $options [ $optionName ];
}
2007-07-19 12:40:28 +02:00
protected static $options = array (
'rewriteHashlinks' => true ,
);
2008-08-09 09:03:24 +02:00
protected static $topLevel = array ();
public static function topLevel () {
if ( SSViewer :: $topLevel ) {
return SSViewer :: $topLevel [ sizeof ( SSViewer :: $topLevel ) - 1 ];
}
}
2007-07-19 12:40:28 +02:00
/**
* Call this to disable rewriting of < a href = " #xxx " > links . This is useful in Ajax applications .
* It returns the SSViewer objects , so that you can call new SSViewer ( " X " ) -> dontRewriteHashlinks () -> process ();
*/
public function dontRewriteHashlinks () {
$this -> rewriteHashlinks = false ;
2008-08-09 06:38:44 +02:00
self :: $options [ 'rewriteHashlinks' ] = false ;
2007-07-19 12:40:28 +02:00
return $this ;
}
public function exists () {
return $this -> chosenTemplates ;
}
2011-03-23 04:46:21 +01:00
2008-10-06 21:25:45 +02:00
/**
* @ param string $identifier A template name without '.ss' extension or path
* @ param string $type The template type , either " main " , " Includes " or " Layout "
* @ return string Full system path to a template file
*/
public static function getTemplateFileByType ( $identifier , $type ) {
2011-03-23 04:46:21 +01:00
$loader = SS_TemplateLoader :: instance ();
$found = $loader -> findTemplates ( " $type / $identifier " , self :: current_theme ());
2010-04-13 01:39:15 +02:00
2011-03-23 04:46:21 +01:00
if ( $found ) {
return $found [ 'main' ];
2009-10-23 04:38:48 +02:00
}
2007-07-19 12:40:28 +02:00
}
2011-03-23 04:46:21 +01:00
2008-08-28 12:58:52 +02:00
/**
* @ ignore
*/
static private $flushed = false ;
/**
* Clears all parsed template files in the cache folder .
*
* Can only be called once per request ( there may be multiple SSViewer instances ) .
*/
2008-10-16 21:48:12 +02:00
static function flush_template_cache () {
2008-08-28 12:58:52 +02:00
if ( ! self :: $flushed ) {
$dir = dir ( TEMP_FOLDER );
while ( false !== ( $file = $dir -> read ())) {
if ( strstr ( $file , '.cache' )) { unlink ( TEMP_FOLDER . '/' . $file ); }
}
self :: $flushed = true ;
}
}
2012-04-11 11:34:27 +02:00
/**
* @ var Zend_Cache_Core
*/
protected $partialCacheStore = null ;
/**
* Set the cache object to use when storing / retrieving partial cache blocks .
* @ param Zend_Cache_Core $cache
*/
public function setPartialCacheStore ( $cache ) {
$this -> partialCacheStore = $cache ;
}
/**
* Get the cache object to use when storing / retrieving partial cache blocks
* @ return Zend_Cache_Core
*/
public function getPartialCacheStore () {
return $this -> partialCacheStore ? $this -> partialCacheStore : SS_Cache :: factory ( 'cacheblock' );
}
/**
* An internal utility function to set up variables in preparation for including a compiled
* template , then do the include
*
* Effectively this is the common code that both SSViewer #process and SSViewer_FromString#process call
*
* @ param string $cacheFile - The path to the file that contains the template compiled to PHP
* @ param Object $item - The item to use as the root scope for the template
2012-04-13 02:14:33 +02:00
* @ param array | null $overlay - Any variables to layer on top of the scope
* @ param array | null $underlay - Any variables to layer underneath the scope
2012-04-11 11:34:27 +02:00
* @ return string - The result of executing the template
*/
2012-04-13 02:14:33 +02:00
protected function includeGeneratedTemplate ( $cacheFile , $item , $overlay , $underlay ) {
2012-04-11 11:34:27 +02:00
if ( isset ( $_GET [ 'showtemplate' ]) && $_GET [ 'showtemplate' ]) {
$lines = file ( $cacheFile );
echo " <h2>Template: $cacheFile </h2> " ;
echo " <pre> " ;
foreach ( $lines as $num => $line ) {
echo str_pad ( $num + 1 , 5 ) . htmlentities ( $line , ENT_COMPAT , 'UTF-8' );
}
echo " </pre> " ;
}
$cache = $this -> getPartialCacheStore ();
2012-04-13 02:14:33 +02:00
$scope = new SSViewer_DataPresenter ( $item , $overlay , $underlay );
2012-04-11 11:34:27 +02:00
$val = '' ;
include ( $cacheFile );
return $val ;
}
2007-07-19 12:40:28 +02:00
/**
* The process () method handles the " meat " of the template processing .
2010-10-15 03:21:50 +02:00
* It takes care of caching the output ( via { @ link SS_Cache }),
* as well as replacing the special " $Content " and " $Layout "
* placeholders with their respective subtemplates .
* The method injects extra HTML in the header via { @ link Requirements :: includeInHTML ()} .
*
* Note : You can call this method indirectly by { @ link ViewableData -> renderWith ()} .
*
* @ param ViewableData $item
* @ param SS_Cache $cache Optional cache backend
* @ return String Parsed template output .
2007-07-19 12:40:28 +02:00
*/
2012-04-11 11:34:27 +02:00
public function process ( $item , $arguments = null ) {
2008-08-09 09:03:24 +02:00
SSViewer :: $topLevel [] = $item ;
2012-04-11 11:34:27 +02:00
if ( $arguments && $arguments instanceof Zend_Cache_Core ) {
Deprecation :: notice ( '3.0' , 'Use setPartialCacheStore to override the partial cache storage backend, the second argument to process is now an array of variables.' );
$this -> setPartialCacheStore ( $arguments );
$arguments = null ;
}
2007-07-19 12:40:28 +02:00
if ( isset ( $this -> chosenTemplates [ 'main' ])) {
$template = $this -> chosenTemplates [ 'main' ];
} else {
2012-04-11 07:36:56 +02:00
$keys = array_keys ( $this -> chosenTemplates );
$key = reset ( $keys );
$template = $this -> chosenTemplates [ $key ];
2007-07-19 12:40:28 +02:00
}
if ( isset ( $_GET [ 'debug_profile' ])) Profiler :: mark ( " SSViewer::process " , " for $template " );
2010-10-19 05:44:37 +02:00
$cacheFile = TEMP_FOLDER . " /.cache " . str_replace ( array ( '\\' , '/' , ':' ), '.' , Director :: makeRelative ( realpath ( $template )));
2007-07-19 12:40:28 +02:00
$lastEdited = filemtime ( $template );
if ( ! file_exists ( $cacheFile ) || filemtime ( $cacheFile ) < $lastEdited || isset ( $_GET [ 'flush' ])) {
if ( isset ( $_GET [ 'debug_profile' ])) Profiler :: mark ( " SSViewer::process - compile " , " for $template " );
$content = file_get_contents ( $template );
2007-09-15 22:06:42 +02:00
$content = SSViewer :: parseTemplateContent ( $content , $template );
2007-07-19 12:40:28 +02:00
$fh = fopen ( $cacheFile , 'w' );
fwrite ( $fh , $content );
fclose ( $fh );
if ( isset ( $_GET [ 'debug_profile' ])) Profiler :: unmark ( " SSViewer::process - compile " , " for $template " );
2008-08-28 12:58:52 +02:00
}
2012-04-11 11:34:27 +02:00
2012-04-13 02:14:33 +02:00
$underlay = array ( 'I18NNamespace' => basename ( $template ));
2012-04-11 11:34:27 +02:00
2010-10-15 03:21:28 +02:00
// Makes the rendered sub-templates available on the parent item,
// through $Content and $Layout placeholders.
2007-07-19 12:40:28 +02:00
foreach ( array ( 'Content' , 'Layout' ) as $subtemplate ) {
if ( isset ( $this -> chosenTemplates [ $subtemplate ])) {
$subtemplateViewer = new SSViewer ( $this -> chosenTemplates [ $subtemplate ]);
2012-04-11 11:34:27 +02:00
$subtemplateViewer -> setPartialCacheStore ( $this -> getPartialCacheStore ());
2012-04-13 02:14:33 +02:00
$underlay [ $subtemplate ] = $subtemplateViewer -> process ( $item , $arguments );
2007-07-19 12:40:28 +02:00
}
}
2012-02-17 01:42:18 +01:00
2012-04-13 02:14:33 +02:00
$val = $this -> includeGeneratedTemplate ( $cacheFile , $item , $arguments , $underlay );
2011-02-18 05:06:11 +01:00
$output = Requirements :: includeInHTML ( $template , $val );
2007-07-19 12:40:28 +02:00
2008-08-09 09:03:24 +02:00
array_pop ( SSViewer :: $topLevel );
2007-07-19 12:40:28 +02:00
if ( isset ( $_GET [ 'debug_profile' ])) Profiler :: unmark ( " SSViewer::process " , " for $template " );
2008-03-11 04:29:30 +01:00
// If we have our crazy base tag, then fix # links referencing the current page.
2009-05-11 05:52:16 +02:00
if ( $this -> rewriteHashlinks && self :: $options [ 'rewriteHashlinks' ]) {
if ( strpos ( $output , '<base' ) !== false ) {
2009-11-05 02:07:00 +01:00
if ( SSViewer :: $options [ 'rewriteHashlinks' ] === 'php' ) {
2011-10-18 11:42:55 +02:00
$thisURLRelativeToBase = " <?php echo strip_tags( \$ _SERVER['REQUEST_URI']); ?> " ;
2009-11-05 02:07:00 +01:00
} else {
2011-10-18 11:42:55 +02:00
$thisURLRelativeToBase = strip_tags ( $_SERVER [ 'REQUEST_URI' ]);
2009-11-05 02:07:00 +01:00
}
2009-11-21 02:43:00 +01:00
$output = preg_replace ( '/(<a[^>]+href *= *)"#/i' , '\\1"' . $thisURLRelativeToBase . '#' , $output );
2009-05-11 05:52:16 +02:00
}
2008-03-11 04:29:30 +01:00
}
2007-07-19 12:40:28 +02:00
return $output ;
}
2010-03-12 04:08:59 +01:00
/**
* Execute the given template , passing it the given data .
* Used by the <% include %> template tag to process templates .
*/
2012-04-11 11:34:27 +02:00
static function execute_template ( $template , $data , $arguments = null ) {
2010-03-12 04:08:59 +01:00
$v = new SSViewer ( $template );
2012-04-11 11:34:27 +02:00
return $v -> process ( $data , $arguments );
2010-03-12 04:08:59 +01:00
}
2007-09-15 22:06:42 +02:00
static function parseTemplateContent ( $content , $template = " " ) {
2011-02-10 05:39:31 +01:00
return SSTemplateParser :: compileString ( $content , $template , Director :: isDev () && self :: $source_file_comments );
2007-07-19 12:40:28 +02:00
}
/**
* Returns the filenames of the template that will be rendered . It is a map that may contain
* 'Content' & 'Layout' , and will have to contain 'main'
*/
public function templates () {
return $this -> chosenTemplates ;
}
2008-10-06 21:25:45 +02:00
/**
* @ param string $type " Layout " or " main "
* @ param string $file Full system path to the template file
*/
public function setTemplateFile ( $type , $file ) {
$this -> chosenTemplates [ $type ] = $file ;
}
2009-10-31 01:16:54 +01:00
/**
* Return an appropriate base tag for the given template .
* It will be closed on an XHTML document , and unclosed on an HTML document .
*
* @ param $contentGeneratedSoFar The content of the template generated so far ; it should contain
* the DOCTYPE declaration .
*/
static function get_base_tag ( $contentGeneratedSoFar ) {
$base = Director :: absoluteBaseURL ();
// Is the document XHTML?
if ( preg_match ( '/<!DOCTYPE[^>]+xhtml/i' , $contentGeneratedSoFar )) {
2010-10-19 03:06:25 +02:00
return " <base href= \" $base\ " /> " ;
2009-10-31 01:16:54 +01:00
} else {
return " <base href= \" $base\ " ><!-- [ if lte IE 6 ] ></ base ><! [ endif ] --> " ;
}
}
2007-07-19 12:40:28 +02:00
}
2008-02-25 03:10:37 +01:00
/**
* Special SSViewer that will process a template passed as a string , rather than a filename .
2012-04-12 08:02:46 +02:00
* @ package framework
2008-02-25 03:10:37 +01:00
* @ subpackage view
*/
2007-07-19 12:40:28 +02:00
class SSViewer_FromString extends SSViewer {
protected $content ;
public function __construct ( $content ) {
$this -> content = $content ;
}
2012-04-11 11:34:27 +02:00
public function process ( $item , $arguments = null ) {
if ( $arguments && $arguments instanceof Zend_Cache_Core ) {
Deprecation :: notice ( '3.0' , 'Use setPartialCacheStore to override the partial cache storage backend, the second argument to process is now an array of variables.' );
$this -> setPartialCacheStore ( $arguments );
$arguments = null ;
}
2010-04-12 23:09:54 +02:00
$template = SSViewer :: parseTemplateContent ( $this -> content , " string sha1= " . sha1 ( $this -> content ));
2007-07-19 12:40:28 +02:00
$tmpFile = tempnam ( TEMP_FOLDER , " " );
$fh = fopen ( $tmpFile , 'w' );
fwrite ( $fh , $template );
fclose ( $fh );
2012-04-13 02:14:33 +02:00
$val = $this -> includeGeneratedTemplate ( $tmpFile , $item , $arguments , null );
2007-07-19 12:40:28 +02:00
unlink ( $tmpFile );
return $val ;
}
}