… | |
… | |
74 | * Each object (this also means archetypes!) could have a few of these |
74 | * Each object (this also means archetypes!) could have a few of these |
75 | * "dangling" from it; this could also end up containing 'parse errors'. |
75 | * "dangling" from it; this could also end up containing 'parse errors'. |
76 | * |
76 | * |
77 | * key and value are shared-strings. |
77 | * key and value are shared-strings. |
78 | * |
78 | * |
79 | * Please use get_ob_key_value(), set_ob_key_value() from object.c rather than |
79 | * Please use kv_get/kv_set/kv_del from object rather than |
80 | * accessing the list directly. |
80 | * accessing the list directly. |
81 | * Exception is if you want to walk this list for some reason. |
81 | * Exception is if you want to walk this list for some reason. |
82 | */ |
82 | */ |
83 | struct key_value |
83 | struct key_value : slice_allocated |
84 | { |
84 | { |
85 | key_value *next; |
85 | key_value *next; |
86 | shstr key, value; |
86 | shstr key, value; |
87 | }; |
87 | }; |
88 | |
88 | |
… | |
… | |
294 | object *ACC (RW, more); /* Pointer to the rest of a large body of objects */ |
294 | object *ACC (RW, more); /* Pointer to the rest of a large body of objects */ |
295 | object *head; /* Points to the main object of a large body */ // NO ACC, perl semantics are different |
295 | object *head; /* Points to the main object of a large body */ // NO ACC, perl semantics are different |
296 | client_container *seen_by; // seen by which player/container currently? |
296 | client_container *seen_by; // seen by which player/container currently? |
297 | key_value *key_values; /* Fields not explictly known by the loader. */ |
297 | key_value *key_values; /* Fields not explictly known by the loader. */ |
298 | |
298 | |
|
|
299 | // privates / perl |
|
|
300 | const shstr &kv_get (const shstr &key) const; |
|
|
301 | void kv_del (const shstr &key); |
|
|
302 | void kv_set (const shstr &key, const shstr &value); |
|
|
303 | |
|
|
304 | // custom extra fields management |
|
|
305 | struct key_value_access_proxy |
|
|
306 | { |
|
|
307 | object &ob; |
|
|
308 | shstr key; |
|
|
309 | |
|
|
310 | key_value_access_proxy (object &ob, const shstr &key) |
|
|
311 | : ob (ob), key (key) |
|
|
312 | { |
|
|
313 | } |
|
|
314 | |
|
|
315 | const key_value_access_proxy &operator =(const shstr &value) const |
|
|
316 | { |
|
|
317 | ob.kv_set (key, value); |
|
|
318 | return *this; |
|
|
319 | } |
|
|
320 | |
|
|
321 | operator const shstr &() const { return ob.kv_get (key); } |
|
|
322 | operator const char *() const { return ob.kv_get (key); } |
|
|
323 | |
|
|
324 | private: |
|
|
325 | void operator =(int); |
|
|
326 | }; |
|
|
327 | |
|
|
328 | // operator [] is too annoying to use |
|
|
329 | const key_value_access_proxy kv (const shstr &key) |
|
|
330 | { |
|
|
331 | return key_value_access_proxy (*this, key); |
|
|
332 | } |
|
|
333 | |
299 | bool parse_kv (object_thawer &f); // parse kv pairs, (ab-)used by archetypes, which should not exist at all |
334 | bool parse_kv (object_thawer &f); // parse kv pairs, (ab-)used by archetypes, which should not exist at all |
300 | MTH void post_load_check (); // do some adjustments after parsing |
335 | MTH void post_load_check (); // do some adjustments after parsing |
301 | static object *read (object_thawer &f, maptile *map = 0); // map argument due to toal design bogosity, must go. |
336 | static object *read (object_thawer &f, maptile *map = 0); // map argument due to toal design bogosity, must go. |
302 | bool write (object_freezer &f); |
337 | bool write (object_freezer &f); |
303 | |
338 | |