PEAR.php源代码

PEAR.php源代码

1. 18. * @author Stig Bakken 19. * @author Tomas V.V.Cox 20. * @author Greg Beaver 21. * @copyright 1997-2008 The PHP Group22. * @license PHP License 3.023. * @version CVS: $Id: PEAR.php 2832 2008-07-24 02:27:18Z mevans0263 $24. * @link * @since File available since Release 0.126. */27. 28. /**#@+29. * ERROR constants30. */31. define ( 'PEAR_ERROR_RETURN' , 1 ) ;32. define ( 'PEAR_ERROR_PRINT' , 2 ) ;33. define ( 'PEAR_ERROR_TRIGGER' , 4 ) ;34. define ( 'PEAR_ERROR_DIE' , 8 ) ;35. define ( 'PEAR_ERROR_CALLBACK' , 16 ) ;36. /**37. * WARNING: obsolete38. * @deprecated39. */40. define ( 'PEAR_ERROR_EXCEPTION' , 32 ) ;41. /**#@-*/42. define ( 'PEAR_ZE2' , ( function_exists ( 'version_compare' ) &&43. version_compare ( zend_version ( ) , "2-dev" , "ge" ) ) ) ;44. 45. if ( substr ( PHP_OS , 0 , 3 ) == 'WIN' ) {46. define ( 'OS_WINDOWS' , true ) ;47. define ( 'OS_UNIX' , false ) ;48. define ( 'PEAR_OS' , 'Windows' ) ;49. } else {50. define ( 'OS_WINDOWS' , false ) ;51. define ( 'OS_UNIX' , true ) ;52. define ( 'PEAR_OS' , 'Unix' ) ; // blatant assumption53. }54. 55. // instant backwards compatibility56. if ( ! defined ( 'PATH_SEPARATOR' ) ) {57. if (OS_WINDOWS ) {58. define ( 'PATH_SEPARATOR' , ';' ) ;59. } else {60. define ( 'PATH_SEPARATOR' , ':' ) ;61. }62. }63. 64. $GLOBALS [ '_PEAR_default_error_mode' ] = PEAR_ERROR_RETURN ;65. $GLOBALS [ '_PEAR_default_error_options' ] = E_USER_NOTICE ;66. $GLOBALS [ '_PEAR_destructor_object_list' ] = array ( ) ;67. $GLOBALS [ '_PEAR_shutdown_funcs' ] = array ( ) ;68. $GLOBALS [ '_PEAR_error_handler_stack' ] = array ( ) ;69. 70. @ ini_set ( 'track_errors' , true ) ;71. 72. /**73. * Base class for other PEAR classes. Provides rudimentary74. * emulation of destructors.75. *76. * If you want a destructor in your class, inherit PEAR and make a77. * destructor method called _yourclassname (same name as the78. * constructor, but with a "_" prefix). Also, in your constructor you79. * have to call the PEAR constructor: $this->PEAR();.80. * The destructor method will be called without parameters. Note that81. * at in some SAPI implementations (such as Apache), any output during82. * the request shutdown (in which destructors are called) seems to be83. * discarded. If you need to get any debug information from your84. * destructor, use error_log(), syslog() or something similar.85. *86. * IMPORTANT! To use the emulated destructors you need to create the87. * objects by reference: $obj =& new PEAR_child;88. *89. * @category pear90. * @package PEAR91. * @author Stig Bakken 92. * @author Tomas V.V. Cox 93. * @author Greg Beaver 94. * @copyright 1997-2006 The PHP Group95. * @license PHP License 3.096. * @version Release: 1.7.297. * @link * @see PEAR_Error99. * @since Class available since PHP 4.0.2100. * @link */102. class103. {104. // {{{ properties105. 106. /**107. * Whether to enable internal debug messages.108. *109. * @var bool110. * @access private111. */112. var $_debug = false ;113. 114. /**115. * Default error mode for this object.116. *117. * @var int118. * @access private119. */120. var $_default_error_mode = null ;121. 122. /**123. * Default error options used for this object when error mode124. * is PEAR_ERROR_TRIGGER.125. *126. * @var int127. * @access private128. */129. var $_default_error_options = null ;130. 131. /**132. * Default error handler (callback) for this object, if error mode is133. * PEAR_ERROR_CALLBACK.134. *135. * @var string136. * @access private137. */138. var $_default_error_handler = '' ;139. 140. /**141. * Which class to use for error objects.142. *143. * @var string144. * @access private145. */146. var $_error_class = 'PEAR_Error' ;147. 148. /**149. * An array of expected errors.150. *151. * @var array152. * @access private153. */154. var $_expected_errors = array ( ) ;155. 156. // }}}157. 158. // {{{ constructor159. 160. /**161. * Constructor. Registers this object in162. * $_PEAR_destructor_object_list for destructor emulation if a163. * destructor object exists.164. *165. * @param string $error_class (optional) which class to use for166. * error objects, defaults to PEAR_Error.167. * @access public168. * @return void169. */170. function PEAR ( $error_class = null )171. {172. $classname = strtolower ( get_class ( $this ) ) ;173. if ( $this ->_debug ) {174. print "PEAR constructor called, class=$classname\n" ;175. }176. if ( $error_class !== null ) {177. $this ->_error_class = $error_class ;178. }179. while ( $classname && strcasecmp ( $classname , "pear" ) ) {180. $destructor = "_$classname" ;181. if ( method_exists ( $this , $destructor ) ) {182. global $_PEAR_destructor_object_list ;183. $_PEAR_destructor_object_list [ ] = & $this ;184. if ( ! isset ( $GLOBALS [ '_PEAR_SHUTDOWN_REGISTERED' ] ) ) {185. register_shutdown_function ( "_PEAR_call_destructors" ) ;186. $GLOBALS [ '_PEAR_SHUTDOWN_REGISTERED' ] = true ;187. }188. break ;189. } else {190. $classname = get_parent_class ( $classname ) ;191. }192. }193. }194. 195. // }}}196. // {{{ destructor197. 198. /**199. * Destructor (the emulated type of...). Does nothing right now,200. * but is included for forward compatibility, so subclass201. * destructors should always call it.202. *203. * See the note in the class desciption about output from204. * destructors.205. *206. * @access public207. * @return void208. */209. function _PEAR ( ) {210. if ( $this ->_debug ) {211. printf ( "PEAR destructor called, class=%s\n" , strtolower ( get_class ( $this ) ) ) ;212. }213. }214. 215. // }}}216. // {{{ getStaticProperty()217. 218. /**219. * If you have a class that's mostly/entirely static, and you need static220. * properties, you can use this method to simulate them. Eg. in your method(s)221. * do this: $myVar = &PEAR::getStaticProperty('myclass', 'myVar');222. * You MUST use a reference, or they will not persist!223. *224. * @access public225. * @param string $class The calling classname, to prevent clashes226. * @param string $var The variable to retrieve.227. * @return mixed A reference to the variable. If not set it will be228. * auto initialised to NULL.229. */230. function &getStaticProperty ( $class , $var )231. {232. $properties ;233. if ( ! isset ( $properties [ $class ] ) ) {234. $properties [ $class ] = array ( ) ;235. }236. if ( ! array_key_exists ( $var , $properties [ $class ] ) ) {237. $properties [ $class ] [ $var ] = null ;238. }239. return $properties [ $class ] [ $var ] ;240. }241. 242. // }}}243. // {{{ registerShutdownFunc()244. 245. /**246. * Use this function to register a shutdown method for static247. * classes.248. *249. * @access public250. * @param mixed $func The function name (or array of class/method) to call251. * @param mixed $args The arguments to pass to the function252. * @return void253. */254. function registerShutdownFunc ( $func , $args = array ( ) )255. {256. // if we are called statically, there is a potential257. // that no shutdown func is registered. Bug #6445258. if ( ! isset ( $GLOBALS [ '_PEAR_SHUTDOWN_REGISTERED' ] ) ) {259. register_shutdown_function ( "_PEAR_call_destructors" ) ;260. $GLOBALS [ '_PEAR_SHUTDOWN_REGISTERED' ] = true ;261. }262. $GLOBALS [ '_PEAR_shutdown_funcs' ] [ ] = array ( $func , $args ) ;263. }264. 265. // }}}266. // {{{ isError()267. 268. /**269. * Tell whether a value is a PEAR error.270. *271. * @param mixed $data the value to test272. * @param int $code if $data is an error object, return true273. * only if $code is a string and274. * $obj->getMessage() == $code or275. * $code is an integer and $obj->getCode() == $code276. * @access public277. * @return bool true if parameter is an error278. */279. function isError ( $data , $code = null )280. {281. if ( is_a ( $data , 'PEAR_Error' ) ) {282. if ( is_null ( $code ) ) {283. return true ;284. } elseif ( is_string ( $code ) ) {285. return $data -> getMessage ( ) == $code ;286. } else {287. return $data -> getCode ( ) == $code ;288. }289. }290. return false ;291. }292. 293. // }}}294. // {{{ setErrorHandling()295. 296. /**297. * Sets how errors generated by this object should be handled.298. * Can be invoked both in objects and statically. If called299. * statically, setErrorHandling sets the default behaviour for all300. * PEAR objects. If called in an object, setErrorHandling sets301. * the default behaviour for that object.302. *303. * @param int $mode304. * One of PEAR_ERROR_RETURN, PEAR_ERROR_PRINT,305. * PEAR_ERROR_TRIGGER, PEAR_ERROR_DIE,306. * PEAR_ERROR_CALLBACK or PEAR_ERROR_EXCEPTION.307. *308. * @param mixed $options309. * When $mode is PEAR_ERROR_TRIGGER, this is the error level (one310. * of E_USER_NOTICE, E_USER_WARNING or E_USER_ERROR).311. *312. * When $mode is PEAR_ERROR_CALLBACK, this parameter is expected313. * to be the callback function or method. A callback314. * function is a string with the name of the function, a315. * callback method is an array of two elements: the element316. * at index 0 is the object, and the element at index 1 is317. * the name of the method to call in the object.318. *319. * When $mode is PEAR_ERROR_PRINT or PEAR_ERROR_DIE, this is320. * a printf format string used when printing the error321. * message.322. *323. * @access public324. * @return void325. * @see PEAR_ERROR_RETURN326. * @see PEAR_ERROR_PRINT327. * @see PEAR_ERROR_TRIGGER328. * @see PEAR_ERROR_DIE329. * @see PEAR_ERROR_CALLBACK330. * @see PEAR_ERROR_EXCEPTION331. *332. * @since PHP 4.0.5333. */334. 335. function setErrorHandling ( $mode = null , $options = null )336. {337. if ( isset ( $this ) && is_a ( $this , 'PEAR' ) ) {338. $setmode = & $this ->_default_error_mode ;339. $setoptions = & $this ->_default_error_options ;340. } else {341. $setmode = & $GLOBALS [ '_PEAR_default_error_mode' ] ;342. $setoptions = & $GLOBALS [ '_PEAR_default_error_options' ] ;343. }344. 345. switch ( $mode ) {346. case PEAR_ERROR_EXCEPTION :347. case PEAR_ERROR_RETURN :348. case PEAR_ERROR_PRINT :349. case PEAR_ERROR_TRIGGER :350. case PEAR_ERROR_DIE :351. case null :352. $setmode = $mode ;353. $setoptions = $options ;354. break ;355. 356. case PEAR_ERROR_CALLBACK :357. $setmode = $mode ;358. // class/object method callback359. if ( is_callable ( $options ) ) {360. $setoptions = $options ;361. } else {362. trigger_error ( "invalid error callback" , E_USER_WARNING ) ;363. }364. break ;365. 366. default :367. trigger_error ( "invalid error mode" , E_USER_WARNING ) ;368. break ;369. }370. }371. 372. // }}}373. // {{{ expectError()374. 375. /**376. * This method is used to tell which errors you expect to get.377. * Expected errors are always returned with error mode378. * PEAR_ERROR_RETURN. Expected error codes are stored in a stack,379. * and this method pushes a new element onto it. The list of380. * expected errors are in effect until they are popped off the381. * stack with the popExpect() method.382. *383. * Note that this method can not be called statically384. *385. * @param mixed $code a single error code or an array of error codes to expect386. *387. * @return int the new depth of the "expected errors" stack388. * @access public389. */390. function expectError ( $code = '*' )391. {392. if ( is_array ( $code ) ) {393. array_push ( $this ->_expected_errors , $code ) ;394. } else {395. array_push ( $this ->_expected_errors , array ( $code ) ) ;396. }397. return sizeof ( $this ->_expected_errors ) ;398. }399. 400. // }}}401. // {{{ popExpect()402. 403. /**404. * This method pops one element off the expected error codes405. * stack.406. *407. * @return array the list of error codes that were popped408. */409. function popExpect ( )410. {411. return array_pop ( $this ->_expected_errors ) ;412. }413. 414. // }}}415. // {{{ _checkDelExpect()416. 417. /**418. * This method checks unsets an error code if available419. *420. * @param mixed error code421. * @return bool true if the error code was unset, false otherwise422. * @access private423. * @since PHP 4.3.0424. */425. function _checkDelExpect ( $error_code )426. {427. $deleted = false ;428. 429. foreach ( $this ->_expected_errors AS $key => $error_array ) {430. if ( in_array ( $error_code , $error_array ) ) {431. unset ( $this ->_expected_errors [ $key ] [ array_search ( $error_code , $error_array ) ] ) ;432. $deleted = true ;433. }434. 435. // clean up empty arrays436. if ( 0 == count ( $this ->_expected_errors [ $key ] ) ) {437. unset ( $this ->_expected_errors [ $key ] ) ;438. }439. }440. return $deleted ;441. }442. 443. // }}}444. // {{{ delExpect()445. 446. /**447. * This method deletes all occurences of the specified element from448. * the expected error codes stack.449. *450. * @param mixed $error_code error code that should be deleted451. * @return mixed list of error codes that were deleted or error452. * @access public453. * @since PHP 4.3.0454. */455. function delExpect ( $error_code )456. {457. $deleted = false ;458. 459. if ( ( is_array ( $error_code ) && ( 0 != count ( $error_code ) ) ) ) {460. // $error_code is a non-empty array here;461. // we walk through it trying to unset all462. // values463. foreach ( $error_code as $key => $error ) {464. if ( $this ->_checkDelExpect ( $error ) ) {465. $deleted = true ;466. } else {467. $deleted = false ;468. }469. }470. return $deleted ? true : PEAR :: raiseError ( "The expected error you submitted does not exist" ) ; // IMPROVE ME471. } elseif ( ! empty ( $error_code ) ) {472. // $error_code comes alone, trying to unset it473. if ( $this ->_checkDelExpect ( $error_code ) ) {474. return true ;475. } else {476. return PEAR :: raiseError ( "The expected error you submitted does not exist" ) ; // IMPROVE ME477. }478. } else {479. // $error_code is empty480. return PEAR :: raiseError ( "The expected error you submitted is empty" ) ; // IMPROVE ME481. }482. }483. 484. // }}}485. // {{{ raiseError()486. 487. /**488. * This method is a wrapper that returns an instance of the489. * configured error class with this object's default error490. * handling applied. If the $mode and $options parameters are not491. * specified, the object's defaults are used.492. *493. * @param mixed $message a text error message or a PEAR error object494. *495. * @param int $code a numeric error code (it is up to your class496. * to define these if you want to use codes)497. *498. * @param int $mode One of PEAR_ERROR_RETURN, PEAR_ERROR_PRINT,499. * PEAR_ERROR_TRIGGER, PEAR_ERROR_DIE,500. * PEAR_ERROR_CALLBACK, PEAR_ERROR_EXCEPTION.501. *502. * @param mixed $options If $mode is PEAR_ERROR_TRIGGER, this parameter503. * specifies the PHP-internal error level (one of504. * E_USER_NOTICE, E_USER_WARNING or E_USER_ERROR).505. * If $mode is PEAR_ERROR_CALLBACK, this506. * parameter specifies the callback function or507. * method. In other error modes this parameter508. * is ignored.509. *510. * @param string $userinfo If you need to pass along for example debug511. * information, this parameter is meant for that.512. *513. * @param string $error_class The returned error object will be514. * instantiated from this class, if specified.515. *516. * @param bool $skipmsg If true, raiseError will only pass error codes,517. * the error message parameter will be dropped.518. *519. * @access public520. * @return object a PEAR error object521. * @see PEAR::setErrorHandling522. * @since PHP 4.0.5523. */524. function &raiseError ( $message = null ,525. $code = null ,526. $mode = null ,527. $options = null ,528. $userinfo = null ,529. $error_class = null ,530. $skipmsg = false )531. {532. // The error is yet a PEAR error object533. if ( is_object ( $message ) ) {534. $code = $message -> getCode ( ) ;535. $userinfo = $message -> getUserInfo ( ) ;536. $error_class = $message -> getType ( ) ;537. $message -> error_message_prefix = '' ;538. $message = $message -> getMessage ( ) ;539. }540. 541. if ( isset ( $this ) && isset ( $this ->_expected_errors ) && sizeof ( $this ->_expected_errors ) > 0 && sizeof ( $exp = end ( $this ->_expected_errors ) ) ) {542. if ( $exp [ 0 ] == "*" ||543. ( is_int ( reset ( $exp ) ) && in_array ( $code , $exp ) ) ||544. ( is_string ( reset ( $exp ) ) && in_array ( $message , $exp ) ) ) {545. $mode = PEAR_ERROR_RETURN ;546. }547. }548. // No mode given, try global ones549. if ( $mode === null ) {550. // Class error handler551. if ( isset ( $this ) && isset ( $this ->_default_error_mode ) ) {552. $mode = $this ->_default_error_mode ;553. $options = $this ->_default_error_options ;554. // Global error handler555. } elseif ( isset ( $GLOBALS [ '_PEAR_default_error_mode' ] ) ) {556. $mode = $GLOBALS [ '_PEAR_default_error_mode' ] ;557. $options = $GLOBALS [ '_PEAR_default_error_options' ] ;558. }559. }560. 561. if ( $error_class !== null ) {562. $ec = $error_class ;563. } elseif ( isset ( $this ) && isset ( $this ->_error_class ) ) {564. $ec = $this ->_error_class ;565. } else {566. $ec = 'PEAR_Error' ;567. }568. if ( intval ( PHP_VERSION ) < 5 ) {569. // little non-eval hack to fix bug #12147570. include 'PEAR/FixPHP5PEARWarnings.php' ;571. return $a ;572. }573. if ( $skipmsg ) {574. $a = new $ec ( $code , $mode , $options , $userinfo ) ;575. } else {576. $a = new $ec ( $message , $code , $mode , $options , $userinfo ) ;577. }578. return $a ;579. }580. 581. // }}}582. // {{{ throwError()583. 584. /**585. * Simpler form of raiseError with fewer options. In most cases586. * message, code and userinfo are enough.587. *588. * @param string $message589. *590. */591. function &throwError ( $message = null ,592. $code = null ,593. $userinfo = null )594. {595. if ( isset ( $this ) && is_a ( $this , 'PEAR' ) ) {596. $a = & $this -> raiseError ( $message , $code , null , null , $userinfo ) ;597. return $a ;598. } else {599. $a = &PEAR :: raiseError ( $message , $code , null , null , $userinfo ) ;600. return $a ;601. }602. }603. 604. // }}}605. function staticPushErrorHandling ( $mode , $options = null )606. {607. $stack = & $GLOBALS [ '_PEAR_error_handler_stack' ] ;608. $def_mode = & $GLOBALS [ '_PEAR_default_error_mode' ] ;609. $def_options = & $GLOBALS [ '_PEAR_default_error_options' ] ;610. $stack [ ] = array ( $def_mode , $def_options ) ;611. switch ( $mode ) {612. case PEAR_ERROR_EXCEPTION :613. case PEAR_ERROR_RETURN :614. case PEAR_ERROR_PRINT :615. case PEAR_ERROR_TRIGGER :616. case PEAR_ERROR_DIE :617. case null :618. $def_mode = $mode ;619. $def_options = $options ;620. break ;621. 622. case PEAR_ERROR_CALLBACK :623. $def_mode = $mode ;624. // class/object method callback625. if ( is_callable ( $options ) ) {626. $def_options = $options ;627. } else {628. trigger_error ( "invalid error callback" , E_USER_WARNING ) ;629. }630. break ;631. 632. default :633. trigger_error ( "invalid error mode" , E_USER_WARNING ) ;634. break ;635. }636. $stack [ ] = array ( $mode , $options ) ;637. return true ;638. }639. 640. function staticPopErrorHandling ( )641. {642. $stack = & $GLOBALS [ '_PEAR_error_handler_stack' ] ;643. $setmode = & $GLOBALS [ '_PEAR_default_error_mode' ] ;644. $setoptions = & $GLOBALS [ '_PEAR_default_error_options' ] ;645. array_pop ( $stack ) ;646. list ( $mode , $options ) = $stack [ sizeof ( $stack ) - 1 ] ;647. array_pop ( $stack ) ;648. switch ( $mode ) {649. case PEAR_ERROR_EXCEPTION :650. case PEAR_ERROR_RETURN :651. case PEAR_ERROR_PRINT :652. case PEAR_ERROR_TRIGGER :653. case PEAR_ERROR_DIE :654. case null :655. $setmode = $mode ;656. $setoptions = $options ;657. break ;658. 659. case PEAR_ERROR_CALLBACK :660. $setmode = $mode ;661. // class/object method callback662. if ( is_callable ( $options ) ) {663. $setoptions = $options ;664. } else {665. trigger_error ( "invalid error callback" , E_USER_WARNING ) ;666. }667. break ;668. 669. default :670. trigger_error ( "invalid error mode" , E_USER_WARNING ) ;671. break ;672. }673. return true ;674. }675. 676. // {{{ pushErrorHandling()677. 678. /**679. * Push a new error handler on top of the error handler options stack. With this680. * you can easily override the actual error handler for some code and restore681. * it later with popErrorHandling.682. *683. * @param mixed $mode (same as setErrorHandling)684. * @param mixed $options (same as setErrorHandling)685. *686. * @return bool Always true687. *688. * @see PEAR::setErrorHandling689. */690. function pushErrorHandling ( $mode , $options = null )691. {692. $stack = & $GLOBALS [ '_PEAR_error_handler_stack' ] ;693. if ( isset ( $this ) && is_a ( $this , 'PEAR' ) ) {694. $def_mode = & $this ->_default_error_mode ;695. $def_options = & $this ->_default_error_options ;696. } else {697. $def_mode = & $GLOBALS [ '_PEAR_default_error_mode' ] ;698. $def_options = & $GLOBALS [ '_PEAR_default_error_options' ] ;699. }700. $stack [ ] = array ( $def_mode , $def_options ) ;701. 702. if ( isset ( $this ) && is_a ( $this , 'PEAR' ) ) {703. $this -> setErrorHandling ( $mode , $options ) ;704. } else {705. :: setErrorHandling ( $mode , $options ) ;706. }707. $stack [ ] = array ( $mode , $options ) ;708. return true ;709. }710. 711. // }}}712. // {{{ popErrorHandling()713. 714. /**715. * Pop the last error handler used716. *717. * @return bool Always true718. *719. * @see PEAR::pushErrorHandling720. */721. function popErrorHandling ( )722. {723. $stack = & $GLOBALS [ '_PEAR_error_handler_stack' ] ;724. array_pop ( $stack ) ;725. list ( $mode , $options ) = $stack [ sizeof ( $stack ) - 1 ] ;726. array_pop ( $stack ) ;727. if ( isset ( $this ) && is_a ( $this , 'PEAR' ) ) {728. $this -> setErrorHandling ( $mode , $options ) ;729. } else {730. :: setErrorHandling ( $mode , $options ) ;731. }732. return true ;733. }734. 735. // }}}736. // {{{ loadExtension()737. 738. /**739. * OS independant PHP extension load. Remember to take care740. * on the correct extension name for case sensitive OSes.741. *742. * @param string $ext The extension name743. * @return bool Success or not on the dl() call744. */745. function loadExtension ( $ext )746. {747. if ( ! extension_loaded ( $ext ) ) {748. // if either returns true dl() will produce a FATAL error, stop that749. if ( ( ini_get ( 'enable_dl' ) != 1 ) || ( ini_get ( 'safe_mode' ) == 1 ) ) {750. return false ;751. }752. if (OS_WINDOWS ) {753. $suffix = '.dll' ;754. } elseif ( PHP_OS == 'HP-UX' ) {755. $suffix = '.sl' ;756. } elseif ( PHP_OS == 'AIX' ) {757. $suffix = '.a' ;758. } elseif ( PHP_OS == 'OSX' ) {759. $suffix = '.bundle' ;760. } else {761. $suffix = '.so' ;762. }763. return @ dl ( 'php_' . $ext . $suffix ) || @ dl ( $ext . $suffix ) ;764. }765. return true ;766. }767. 768. // }}}769. }770. 771. // {{{ _PEAR_call_destructors()772. 773. function _PEAR_call_destructors ( )774. {775. global $_PEAR_destructor_object_list ;776. if ( is_array ( $_PEAR_destructor_object_list ) &&777. sizeof ( $_PEAR_destructor_object_list ) )778. {779. reset ( $_PEAR_destructor_object_list ) ;780. if (PEAR :: getStaticProperty ( 'PEAR' , 'destructlifo' ) ) {781. $_PEAR_destructor_object_list = array_reverse ( $_PEAR_destructor_object_list ) ;782. }783. while ( list ( $k , $objref ) = each ( $_PEAR_destructor_object_list ) ) {784. $classname = get_class ( $objref ) ;785. while ( $classname ) {786. $destructor = "_$classname" ;787. if ( method_exists ( $objref , $destructor ) ) {788. $objref -> $destructor ( ) ;789. break ;790. } else {791. $classname = get_parent_class ( $classname ) ;792. }793. }794. }795. // Empty the object list to ensure that destructors are796. // not called more than once.797. $_PEAR_destructor_object_list = array ( ) ;798. }799. 800. // Now call the shutdown functions801. if ( is_array ( $GLOBALS [ '_PEAR_shutdown_funcs' ] ) AND ! empty ( $GLOBALS [ '_PEAR_shutdown_funcs' ] ) ) {802. foreach ( $GLOBALS [ '_PEAR_shutdown_funcs' ] as $value ) {803. call_user_func_array ( $value [ 0 ] , $value [ 1 ] ) ;804. }805. }806. }807. 808. // }}}809. /**810. * Standard PEAR error class for PHP 4811. *812. * This class is supserseded by {@link PEAR_Exception} in PHP 5813. *814. * @category pear815. * @package PEAR816. * @author Stig Bakken 817. * @author Tomas V.V. Cox 818. * @author Gregory Beaver 819. * @copyright 1997-2006 The PHP Group820. * @license PHP License 3.0821. * @version Release: 1.7.2822. * @link * @see PEAR::raiseError(), PEAR::throwError()824. * @since Class available since PHP 4.0.2825. */826. class827. {828. // {{{ properties829. 830. var $error_message_prefix = '' ;831. var $mode = PEAR_ERROR_RETURN ;832. var $level = E_USER_NOTICE ;833. var $code = - 1 ;834. var $message = '' ;835. var $userinfo = '' ;836. var $backtrace = null ;837. 838. // }}}839. // {{{ constructor840. 841. /**842. * PEAR_Error constructor843. *844. * @param string $message message845. *846. * @param int $code (optional) error code847. *848. * @param int $mode (optional) error mode, one of: PEAR_ERROR_RETURN,849. * PEAR_ERROR_PRINT, PEAR_ERROR_DIE, PEAR_ERROR_TRIGGER,850. * PEAR_ERROR_CALLBACK or PEAR_ERROR_EXCEPTION851. *852. * @param mixed $options (optional) error level, _OR_ in the case of853. * PEAR_ERROR_CALLBACK, the callback function or object/method854. * tuple.855. *856. * @param string $userinfo (optional) additional user/debug info857. *858. * @access public859. *860. */861. function PEAR_Error ( $message = 'unknown error' , $code = null ,862. $mode = null , $options = null , $userinfo = null )863. {864. if ( $mode === null ) {865. $mode = PEAR_ERROR_RETURN ;866. }867. $this -> message = $message ;868. $this -> code = $code ;869. $this -> mode = $mode ;870. $this -> userinfo = $userinfo ;871. if ( !PEAR :: getStaticProperty ( 'PEAR_Error' , 'skiptrace' ) ) {872. $this -> backtrace = debug_backtrace ( ) ;873. if ( isset ( $this -> backtrace [ 0 ] ) && isset ( $this -> backtrace [ 0 ] [ 'object' ] ) ) {874. unset ( $this -> backtrace [ 0 ] [ 'object' ] ) ;875. }876. }877. if ( $mode & PEAR_ERROR_CALLBACK ) {878. $this -> level = E_USER_NOTICE ;879. $this -> callback = $options ;880. } else {881. if ( $options === null ) {882. $options = E_USER_NOTICE ;883. }884. $this -> level = $options ;885. $this -> callback = null ;886. }887. if ( $this -> mode & PEAR_ERROR_PRINT ) {888. if ( is_null ( $options ) || is_int ( $options ) ) {889. $format = "%s" ;890. } else {891. $format = $options ;892. }893. printf ( $format , $this -> getMessage ( ) ) ;894. }895. if ( $this -> mode & PEAR_ERROR_TRIGGER ) {896. trigger_error ( $this -> getMessage ( ) , $this -> level ) ;897. }898. if ( $this -> mode & PEAR_ERROR_DIE ) {899. $msg = $this -> getMessage ( ) ;900. if ( is_null ( $options ) || is_int ( $options ) ) {901. $format = "%s" ;902. if ( substr ( $msg , - 1 ) != "\n" ) {903. $msg .= "\n" ;904. }905. } else {906. $format = $options ;907. }908. die ( sprintf ( $format , $msg ) ) ;909. }910. if ( $this -> mode & PEAR_ERROR_CALLBACK ) {911. if ( is_callable ( $this -> callback ) ) {912. call_user_func ( $this -> callback , $this ) ;913. }914. }915. if ( $this -> mode & PEAR_ERROR_EXCEPTION ) {916. trigger_error ( "PEAR_ERROR_EXCEPTION is obsolete, use class PEAR_Exception for exceptions" , E_USER_WARNING ) ;917. eval ( '$e = new Exception($this->message, $this->code);throw($e);' ) ;918. }919. }920. 921. // }}}922. // {{{ getMode()923. 924. /**925. * Get the error mode from an error object.926. *927. * @return int error mode928. * @access public929. */930. function getMode ( ) {931. return $this -> mode ;932. }933. 934. // }}}935. // {{{ getCallback()936. 937. /**938. * Get the callback function/method from an error object.939. *940. * @return mixed callback function or object/method array941. * @access public942. */943. function getCallback ( ) {944. return $this -> callback ;945. }946. 947. // }}}948. // {{{ getMessage()949. 950. 951. /**952. * Get the error message from an error object.953. *954. * @return string full error message955. * @access public956. */957. function getMessage ( )958. {959. return ( $this -> error_message_prefix . $this -> message ) ;960. }961. 962. 963. // }}}964. // {{{ getCode()965. 966. /**967. * Get error code from an error object968. *969. * @return int error code970. * @access public971. */972. function getCode ( )973. {974. return $this -> code ;975. }976. 977. // }}}978. // {{{ getType()979. 980. /**981. * Get the name of this error/exception.982. *983. * @return string error/exception name (type)984. * @access public985. */986. function getType ( )987. {988. return get_class ( $this ) ;989. }990. 991. // }}}992. // {{{ getUserInfo()993. 994. /**995. * Get additional user-supplied information.996. *997. * @return string user-supplied information998. * @access public999. */1000. function getUserInfo ( )1001. {1002. return $this -> userinfo ;1003. }1004. 1005. // }}}1006. // {{{ getDebugInfo()1007. 1008. /**1009. * Get additional debug information supplied by the application.1010. *1011. * @return string debug information1012. * @access public1013. */1014. function getDebugInfo ( )1015. {1016. return $this -> getUserInfo ( ) ;1017. }1018. 1019. // }}}1020. // {{{ getBacktrace()1021. 1022. /**1023. * Get the call backtrace from where the error was generated.1024. * Supported with PHP 4.3.0 or newer.1025. *1026. * @param int $frame (optional) what frame to fetch1027. * @return array Backtrace, or NULL if not available.1028. * @access public1029. */1030. function getBacktrace ( $frame = null )1031. {1032. if ( defined ( 'PEAR_IGNORE_BACKTRACE' ) ) {1033. return null ;1034. }1035. if ( $frame === null ) {1036. return $this -> backtrace ;1037. }1038. return $this -> backtrace [ $frame ] ;1039. }1040. 1041. // }}}1042. // {{{ addUserInfo()1043. 1044. function addUserInfo ( $info )1045. {1046. if ( empty ( $this -> userinfo ) ) {1047. $this -> userinfo = $info ;1048. } else {1049. $this -> userinfo .= " ** $info" ;1050. }1051. }1052. 1053. // }}}1054. // {{{ toString()1055. function __toString ( )1056. {1057. return $this -> getMessage ( ) ;1058. }1059. // }}}1060. // {{{ toString()1061. 1062. /**1063. * Make a string representation of this object.1064. *1065. * @return string a string with an object summary1066. * @access public1067. */1068. function toString ( ) {1069. $modes = array ( ) ;1070. $levels = array ( E_USER_NOTICE => 'notice' ,1071. E_USER_WARNING => 'warning' ,1072. E_USER_ERROR => 'error' ) ;1073. if ( $this -> mode & PEAR_ERROR_CALLBACK ) {1074. if ( is_array ( $this -> callback ) ) {1075. $callback = ( is_object ( $this -> callback [ 0 ] )1076. strtolower ( get_class ( $this -> callback [ 0 ] ) ) :1077. $this -> callback [ 0 ] ) . '::' .1078. $this -> callback [ 1 ] ;1079. } else {1080. $callback = $this -> callback ;1081. }1082. return sprintf ( '[%s: message="%s" code=%d mode=callback ' .1083. 'callback=%s prefix="%s" info="%s"]' ,1084. strtolower ( get_class ( $this ) ) , $this -> message , $this -> code ,1085. $callback , $this -> error_message_prefix ,1086. $this -> userinfo ) ;1087. }1088. if ( $this -> mode & PEAR_ERROR_PRINT ) {1089. $modes [ ] = 'print' ;1090. }1091. if ( $this -> mode & PEAR_ERROR_TRIGGER ) {1092. $modes [ ] = 'trigger' ;1093. }1094. if ( $this -> mode & PEAR_ERROR_DIE ) {1095. $modes [ ] = 'die' ;1096. }1097. if ( $this -> mode & PEAR_ERROR_RETURN ) {1098. $modes [ ] = 'return' ;1099. }1100. return sprintf ( '[%s: message="%s" code=%d mode=%s level=%s ' .1101. 'prefix="%s" info="%s"]' ,1102. strtolower ( get_class ( $this ) ) , $this -> message , $this -> code ,1103. implode ( "|" , $modes ) , $levels [ $this -> level ] ,1104. $this -> error_message_prefix ,1105. $this -> userinfo ) ;1106. }1107. 1108. // }}}1109. }1110. 1111. /*1112. * Local Variables:1113. * mode: php1114. * tab-width: 41115. * c-basic-offset: 41116. * End:1117. */1118. ?>

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。