3 |
// $Id$ |
// $Id$ |
4 |
// --------------------------------------------------------------------------- |
// --------------------------------------------------------------------------- |
5 |
// $Log$ |
// $Log$ |
6 |
|
// Revision 1.4 2003/02/22 16:34:16 joko |
7 |
|
// + minor fix: can seperate namespace identifier with slashes ('/') now |
8 |
|
// |
9 |
|
// Revision 1.3 2003/02/09 17:16:06 joko |
10 |
|
// + handling arguments perl style ;-) |
11 |
|
// |
12 |
|
// Revision 1.2 2003/02/03 05:01:48 joko |
13 |
|
// + now attributes can get passed in to the constructors |
14 |
|
// |
15 |
// Revision 1.1 2003/02/03 03:33:48 joko |
// Revision 1.1 2003/02/03 03:33:48 joko |
16 |
// + initial commit |
// + initial commit |
17 |
// |
// |
18 |
// --------------------------------------------------------------------------- |
// --------------------------------------------------------------------------- |
19 |
|
|
20 |
|
|
|
|
|
21 |
/* |
/* |
22 |
class DesignPattern_Object { |
class DesignPattern_Object { |
23 |
function DesignPattern_Object() { |
function DesignPattern_Object() { |
33 |
} |
} |
34 |
} |
} |
35 |
|
|
36 |
function mkObject($namespacedClassname) { |
function mkObject() { |
37 |
|
$arg_list = func_get_args(); |
38 |
|
//print Dumper($arg_list); |
39 |
|
$namespacedClassname = array_shift($arg_list); |
40 |
|
if (strstr($namespacedClassname, '_')) { |
41 |
|
print "mkObject: unallowed character in namespaced classname: '_' ($namespacedClassname)<br/>"; |
42 |
|
return; |
43 |
|
} |
44 |
|
//print "class: $classname<br>"; |
45 |
|
$attributes = $arg_list; |
46 |
$classname = $namespacedClassname; |
$classname = $namespacedClassname; |
47 |
if (loadModule($namespacedClassname)) { |
if (loadModule($namespacedClassname)) { |
48 |
$classname = str_replace('::', '_', $namespacedClassname); |
$classname = str_replace('::', '_', $namespacedClassname); |
49 |
|
$classname = str_replace('/', '_', $classname); |
50 |
} |
} |
51 |
$obj = new DesignPattern_Bridge($classname); |
$obj = new DesignPattern_Bridge($classname, $attributes); |
52 |
return $obj; |
return $obj; |
53 |
} |
} |
54 |
|
|