// File: /std/prop_logic.c // Purpose: generic heirachic property setting mechanism // History: // 92-05-01 Buddha@TMI-2 Written for object properties // 93-03-17 Pallando@Tabor Cleaned up code and modularised. // 93-06-08 Pallando@Nightmare Used for material properties static nomask mixed _query( mapping map, string *parts ) { mixed value; int i, s; value = map; s = sizeof( parts ); for( i = 0 ; i < s ; i++ ) { if( undefinedp( value = value[parts[i]] ) ) break; if( !mapp( value ) ) break; } return value; } static nomask int _delete( mapping map, string *parts ) { if( sizeof( parts ) == 1 ) { map_delete( map, parts[0] ); return 1; } if( !map[parts[0]] || !mapp( map[parts[0]] ) ) return 0; return _delete( map[parts[0]], parts[1..sizeof( parts )-1] ); } static nomask mixed _set( mapping map, string *parts, mixed value ) { mixed old_value; if( sizeof( parts ) == 1 ) { old_value = map[parts[0]]; map[parts[0]] = value; return old_value; } if( !map[parts[0]] || !mapp( map[parts[0]] ) ) map[parts[0]] = ([ parts[1] : 0 ]); return _set( map[parts[0]], parts[1..sizeof( parts )-1], value ); }