… | |
… | |
593 | op_inv = tmp; |
593 | op_inv = tmp; |
594 | } |
594 | } |
595 | else |
595 | else |
596 | { |
596 | { |
597 | LOG (llevDebug, "Discarding object without arch: %s\n", tmp->name ? (const char *) tmp->name : "(null)"); |
597 | LOG (llevDebug, "Discarding object without arch: %s\n", tmp->name ? (const char *) tmp->name : "(null)"); |
598 | free_object (tmp); |
598 | tmp->destroy (0); |
599 | } |
599 | } |
600 | } |
600 | } |
601 | else |
601 | else |
602 | { |
602 | { |
603 | /* This is the actual archetype definition then */ |
603 | /* This is the actual archetype definition then */ |
… | |
… | |
1081 | * override values and in c_wiz to mutate values. |
1081 | * override values and in c_wiz to mutate values. |
1082 | */ |
1082 | */ |
1083 | int |
1083 | int |
1084 | set_variable (object *op, char *buf) |
1084 | set_variable (object *op, char *buf) |
1085 | { |
1085 | { |
1086 | return 0; |
|
|
1087 | #if 0 |
|
|
1088 | int retval; |
|
|
1089 | object_thawer thawer (0); |
1086 | object_thawer thawer (buf, (AV *)0); |
1090 | |
1087 | |
1091 | strcpy (msgbuf, ""); |
|
|
1092 | strcpy (lorebuf, ""); |
|
|
1093 | retval = parse_object (op, thawer, 0); |
1088 | return parse_object (op, thawer, 0); |
1094 | yy_switch_to_buffer (yycurbuf); |
|
|
1095 | yy_delete_buffer (yybufstate); |
|
|
1096 | yy_pop_state (); |
|
|
1097 | return retval; |
|
|
1098 | #endif |
|
|
1099 | } |
1089 | } |
1100 | |
1090 | |
1101 | /* |
1091 | /* |
1102 | * Initialises the array of variable-names. Needed before any |
1092 | * Initialises the array of variable-names. Needed before any |
1103 | * objects can be loaded. Called by init_library(). |
1093 | * objects can be loaded. Called by init_library(). |
… | |
… | |
1509 | old = tmp; |
1499 | old = tmp; |
1510 | } |
1500 | } |
1511 | |
1501 | |
1512 | if (!(flag & 2)) |
1502 | if (!(flag & 2)) |
1513 | { |
1503 | { |
1514 | remove_ob (op); |
1504 | op->remove (); |
1515 | free_object (op); |
1505 | op->destroy (0); |
1516 | } |
1506 | } |
1517 | |
1507 | |
1518 | fp.put (op); |
1508 | fp.put (op); |
1519 | fprintf (fp, "end\n"); |
1509 | fprintf (fp, "end\n"); |
1520 | } |
1510 | } |