3 |
// $Id$ |
// $Id$ |
4 |
// --------------------------------------------------------------------------- |
// --------------------------------------------------------------------------- |
5 |
// $Log$ |
// $Log$ |
6 |
|
// Revision 1.3 2003/02/09 17:16:06 joko |
7 |
|
// + handling arguments perl style ;-) |
8 |
|
// |
9 |
// Revision 1.2 2003/02/03 05:01:48 joko |
// Revision 1.2 2003/02/03 05:01:48 joko |
10 |
// + now attributes can get passed in to the constructors |
// + now attributes can get passed in to the constructors |
11 |
// |
// |
15 |
// --------------------------------------------------------------------------- |
// --------------------------------------------------------------------------- |
16 |
|
|
17 |
|
|
|
|
|
18 |
/* |
/* |
19 |
class DesignPattern_Object { |
class DesignPattern_Object { |
20 |
function DesignPattern_Object() { |
function DesignPattern_Object() { |
30 |
} |
} |
31 |
} |
} |
32 |
|
|
33 |
function mkObject($namespacedClassname, $attributes = null) { |
function mkObject() { |
34 |
|
$arg_list = func_get_args(); |
35 |
|
//print Dumper($arg_list); |
36 |
|
$namespacedClassname = array_shift($arg_list); |
37 |
|
if (strstr($namespacedClassname, '_')) { |
38 |
|
print "mkObject: unallowed character in namespaced classname: '_' ($namespacedClassname)<br/>"; |
39 |
|
return; |
40 |
|
} |
41 |
|
//print "class: $classname<br>"; |
42 |
|
$attributes = $arg_list; |
43 |
$classname = $namespacedClassname; |
$classname = $namespacedClassname; |
44 |
if (loadModule($namespacedClassname)) { |
if (loadModule($namespacedClassname)) { |
45 |
$classname = str_replace('::', '_', $namespacedClassname); |
$classname = str_replace('::', '_', $namespacedClassname); |