| … | |
… | |
| 320 | * This is typically the container that the object is in. |
320 | * This is typically the container that the object is in. |
| 321 | */ |
321 | */ |
| 322 | object *ACC (RW, more); /* Pointer to the rest of a large body of objects */ |
322 | object *ACC (RW, more); /* Pointer to the rest of a large body of objects */ |
| 323 | object *head; /* Points to the main object of a large body */ // NO ACC, perl semantics are different |
323 | object *head; /* Points to the main object of a large body */ // NO ACC, perl semantics are different |
| 324 | key_value *key_values; /* Fields not explictly known by the loader. */ |
324 | key_value *key_values; /* Fields not explictly known by the loader. */ |
|
|
325 | |
|
|
326 | MTH void set_flag (int flagnum) |
|
|
327 | { |
|
|
328 | flag [flagnum] = true; |
|
|
329 | } |
|
|
330 | |
|
|
331 | MTH void clr_flag (int flagnum) |
|
|
332 | { |
|
|
333 | flag [flagnum] = false; |
|
|
334 | } |
| 325 | |
335 | |
| 326 | // privates / perl |
336 | // privates / perl |
| 327 | shstr_tmp kv_get (shstr_tmp key) const; |
337 | shstr_tmp kv_get (shstr_tmp key) const; |
| 328 | void kv_del (shstr_tmp key); |
338 | void kv_del (shstr_tmp key); |
| 329 | void kv_set (shstr_tmp key, shstr_tmp value); |
339 | void kv_set (shstr_tmp key, shstr_tmp value); |
