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