3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.5 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2014 |
7 +--------------------------------------------------------------------+
8 | This file is a part of CiviCRM. |
10 | CiviCRM is free software; you can copy, modify, and distribute it |
11 | under the terms of the GNU Affero General Public License |
12 | Version 3, 19 November 2007 and the CiviCRM Licensing Exception. |
14 | CiviCRM is distributed in the hope that it will be useful, but |
15 | WITHOUT ANY WARRANTY; without even the implied warranty of |
16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |
17 | See the GNU Affero General Public License for more details. |
19 | You should have received a copy of the GNU Affero General Public |
20 | License and the CiviCRM Licensing Exception along |
21 | with this program; if not, contact CiviCRM LLC |
22 | at info[AT]civicrm[DOT]org. If you have questions about the |
23 | GNU Affero General Public License or the licensing of CiviCRM, |
24 | see the CiviCRM license FAQ at http://civicrm.org/licensing |
25 +--------------------------------------------------------------------+
29 * Utilities for manipulating/inspecting CRM_*_PseudoConstant classes
31 class CRM_Utils_PseudoConstant
{
33 * CiviCRM pseudoconstant classes for wrapper functions
35 private static $constantClasses = array(
36 'CRM_Core_PseudoConstant',
37 'CRM_Event_PseudoConstant',
38 'CRM_Contribute_PseudoConstant',
39 'CRM_Member_PseudoConstant',
43 * @var array ($name => $className)
45 private static $constants = NULL;
50 * Wrapper for Pseudoconstant methods. We use this so the calling function
51 * doesn't need to know which class the Pseudoconstant is on
52 * (some are on the Contribute_Pseudoconsant Class etc
59 * @return array - array reference of all relevant constant
61 public static function getConstant($constant) {
62 $class = self
::findConstantClass($constant);
64 return $class::$constant();
71 * Wrapper for Pseudoconstant methods. We use this so the calling function
72 * doesn't need to know which class the Pseudoconstant is on
73 * (some are on the Contribute_Pseudoconsant Class etc
80 * @return array - array reference of all relevant constant
82 public static function flushConstant($constant) {
83 $class = self
::findConstantClass($constant);
85 $class::flush(lcfirst($constant));
86 //@todo the rule is api functions should only be called from within the api - we
87 // should move this function to a Core class
88 $name = _civicrm_api_get_entity_name_from_camel($constant);
89 CRM_Core_OptionGroup
::flush($name);
95 * Determine where a constant lives
97 * If there's a full, preloaded map, use it. Otherwise, use search
102 * @internal param string $name constant-name
103 * @return string|NULL class-name
105 public static function findConstantClass($constant) {
106 if (self
::$constants !== NULL && isset(self
::$constants[$constant])) {
107 return self
::$constants[$constant];
109 foreach (self
::$constantClasses as $class) {
110 if (method_exists($class, lcfirst($constant))) {
118 * Scan for a list of pseudo-constants. A pseudo-constant is recognized by listing
119 * any static properties which have corresponding static methods.
121 * This may be inefficient and should generally be avoided.
123 * @return array of string, constant names
125 public static function findConstants() {
126 if (self
::$constants === NULL) {
127 self
::$constants = array();
128 foreach (self
::$constantClasses as $class) {
129 foreach (self
::findConstantsByClass($class) as $constant) {
130 self
::$constants[$constant] = $class;
134 return array_keys(self
::$constants);
138 * Scan for a list of pseudo-constants. A pseudo-constant is recognized by listing
139 * any static properties which have corresponding static methods.
141 * This may be inefficient and should generally be avoided.
145 * @return array of string, constant names
147 public static function findConstantsByClass($class) {
148 $clazz = new ReflectionClass($class);
149 $classConstants = array_intersect(
150 CRM_Utils_Array
::collect('name', $clazz->getProperties(ReflectionProperty
::IS_STATIC
)),
151 CRM_Utils_Array
::collect('name', $clazz->getMethods(ReflectionMethod
::IS_STATIC
))
153 return $classConstants;
157 * Flush all caches related to pseudo-constants. This may be inefficient
158 * and should generally be avoided.
162 public static function flushAll() {
163 foreach (self
::findConstants() as $constant) {
164 self
::flushConstant($constant);
166 CRM_Core_PseudoConstant
::flush();