| 3 | //  $Id$ | //  $Id$ | 
| 4 | // --------------------------------------------------------------------------- | // --------------------------------------------------------------------------- | 
| 5 | //  $Log$ | //  $Log$ | 
| 6 |  | //  Revision 1.5  2003/02/27 16:36:02  joko | 
| 7 |  | //  re-allowed underscores ('_') in php classnames | 
| 8 |  | //  does this break something? | 
| 9 |  | // | 
| 10 |  | //  Revision 1.4  2003/02/22 16:34:16  joko | 
| 11 |  | //  + minor fix: can seperate namespace identifier with slashes ('/') now | 
| 12 |  | // | 
| 13 | //  Revision 1.3  2003/02/09 17:16:06  joko | //  Revision 1.3  2003/02/09 17:16:06  joko | 
| 14 | //  + handling arguments perl style ;-) | //  + handling arguments perl style ;-) | 
| 15 | // | // | 
| 42 | //print Dumper($arg_list); | //print Dumper($arg_list); | 
| 43 | $namespacedClassname = array_shift($arg_list); | $namespacedClassname = array_shift($arg_list); | 
| 44 | if (strstr($namespacedClassname, '_')) { | if (strstr($namespacedClassname, '_')) { | 
| 45 | print "mkObject: unallowed character in namespaced classname: '_' ($namespacedClassname)<br/>"; | //print "mkObject: unallowed character in namespaced classname: '_' ($namespacedClassname)<br/>"; | 
| 46 | return; | //return; | 
| 47 | } | } | 
| 48 | //print "class: $classname<br>"; | //print "class: $classname<br>"; | 
| 49 | $attributes = $arg_list; | $attributes = $arg_list; | 
| 50 | $classname = $namespacedClassname; | $classname = $namespacedClassname; | 
| 51 | if (loadModule($namespacedClassname)) { | if (loadModule($namespacedClassname)) { | 
| 52 | $classname = str_replace('::', '_', $namespacedClassname); | $classname = str_replace('::', '_', $namespacedClassname); | 
| 53 |  | $classname = str_replace('/', '_', $classname); | 
| 54 | } | } | 
| 55 | $obj = new DesignPattern_Bridge($classname, $attributes); | $obj = new DesignPattern_Bridge($classname, $attributes); | 
| 56 | return $obj; | return $obj; |