| 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; |