/[cvs]/nfo/php/libs/org.netfrag.glib/Exporter.php
ViewVC logotype

Diff of /nfo/php/libs/org.netfrag.glib/Exporter.php

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Wed Mar 5 18:54:41 2003 UTC revision 1.6 by joko, Fri Apr 4 17:33:49 2003 UTC
# Line 13  Line 13 
13   * $Id$   * $Id$
14   *   *
15   * $Log$   * $Log$
16     * Revision 1.6  2003/04/04 17:33:49  joko
17     * updated/enhanced/fixed behaviour of 'function create_stub_function'
18     *
19     * Revision 1.5  2003/03/28 03:05:20  joko
20     * minor update: fixed labels, modified debugging level
21     *
22     * Revision 1.4  2003/03/10 22:58:45  joko
23     * + fixed metadata for phpDocumentor
24     *
25     * Revision 1.3  2003/03/05 23:16:46  joko
26     * updated docu - phpDocumentor is very strict about its 'blocks'...
27     *
28   * Revision 1.2  2003/03/05 18:54:41  joko   * Revision 1.2  2003/03/05 18:54:41  joko
29   * updated docu - phpDocumentor is very strict about its 'blocks'...   * updated docu - phpDocumentor is very strict about its 'blocks'...
30   *   *
# Line 35  Line 47 
47   *   *
48   * This tries to mimic a very small subset of the   * This tries to mimic a very small subset of the
49   * functionality of CPAN's Exporter.   * functionality of CPAN's Exporter.
  * @link http://search.cpan.org/author/JHI/perl-5.8.0/lib/Exporter.pm  
50   *   *
51   *  x export_symbol <br>   * <pre>
52     *  x export_symbol
53   *  x export_symbols   *  x export_symbols
54   *   *
  * <pre>  
55   *  Synopsis:   *  Synopsis:
56   *    <code>   *    <code>
57   *    define('EXPORT_OK', 'loadModule mkInstance' );   *    define('EXPORT_OK', 'loadModule mkInstance' );
# Line 73  Line 84 
84   * @package org.netfrag.glib   * @package org.netfrag.glib
85   * @name Exporter   * @name Exporter
86   *   *
87   * @todo   * @link http://search.cpan.org/author/JHI/perl-5.8.0/lib/Exporter.pm
88   * <pre>   *
89   *  x look at http://www.php.net/manual/en/function.method-exists.php   * @todo (x) look at http://www.php.net/manual/en/function.method-exists.php
90   *    x $bool_exists = (in_array(strtolower($methodName), get_class_methods($className)));   * @todo (x) $bool_exists = (in_array(strtolower($methodName), get_class_methods($className)));
91   *    x -> implemented in php::class_has_method   * @todo (x) -> implemented in php::class_has_method
  * </pre>  
92   *   *
93   */   */
94  class Exporter {  class Exporter {
# Line 196  class Exporter { Line 206  class Exporter {
206      static $target_cache;      static $target_cache;
207    
208      if (!php::class_has_method($source_class, $source_name)) {      if (!php::class_has_method($source_class, $source_name)) {
209        user_error("Exporter error: class '$source_class' does not implement method '$source_name', will skip exporting this symbol.");        user_error("Exporter::create_stub_function - Error: class '$source_class' does not implement method '$source_name', will skip exporting this symbol.");
210        return;        return;
211      }      }
212    
213      // prevent redeclarations      // prevent redeclarations
214      if ($target_cache[$target_name]) {      if ($target_cache[$target_name]) {
215        $msg = "php::create_stub_function: already declared: $target_name";        $msg = "Exporter::create_stub_function - Warning: already declared: $target_name";
216        php::append_log($msg, PEAR_LOG_ERR);        php::append_log($msg, PEAR_LOG_DEBUG);
217        return 1;        return 1;
218      } else {      } else {
219        $target_cache[$target_name]++;        $target_cache[$target_name]++;
# Line 216  class Exporter { Line 226  class Exporter {
226        //function &$target_name() { \$args = func_get_args(); return call_user_func_array(array($source_class, $source_name), &\$args); }        //function &$target_name() { \$args = func_get_args(); return call_user_func_array(array($source_class, $source_name), &\$args); }
227        //function &$target_name() { \$args = php::array_shrink(func_get_args()); return call_user_func_array(array($source_class, $source_name), &\$args); }        //function &$target_name() { \$args = php::array_shrink(func_get_args()); return call_user_func_array(array($source_class, $source_name), &\$args); }
228        //function &$target_name() { \$args = Exporter::wrap_args(func_get_args()); return call_user_func_array(array($source_class, $source_name), &\$args); }        //function &$target_name() { \$args = Exporter::wrap_args(func_get_args()); return call_user_func_array(array($source_class, $source_name), &\$args); }
229        
230        // taha that's it!
231      $stub =      $stub =
232  <<<TPL_FUNC  <<<TPL_FUNC
233        function &$target_name() {        function &$target_name() {
234          \$args = php::array_shrink(func_get_args());          \$passthru = php::array_shrink(func_get_args());
235          return call_user_func_array(array('$source_class', '$source_name'), &\$args);          if (is_array(\$passthru)) {
236              return call_user_func_array(array('$source_class', '$source_name'), &\$passthru);
237            } else {
238              return call_user_func(array('$source_class', '$source_name'), &\$passthru);
239            }
240        }        }
241          // signal good
242          return 1;
243  TPL_FUNC;  TPL_FUNC;
244    
245        /*        /*
246        // alternative        // possible alternative? not yet...
247        $function = <<<TPL_FUNC        $function = <<<TPL_FUNC
248          class $target_class() {          class $target_class() {
249            function &$target_name() { return $source_class::$source_name(func_get_args()); }            function &$target_name() { return $source_class::$source_name(func_get_args()); }
# Line 236  TPL_FUNC; Line 254  TPL_FUNC;
254      // debug      // debug
255        //print "selected stub: <br/>$stub<br/>";        //print "selected stub: <br/>$stub<br/>";
256            
257      eval($stub);      // V1
258        //eval($stub);
259        //return 1;
260            
261      return 1;      // V2
262        return eval($stub);
263            
264    }    }
265    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.6
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed