static int
process_block(struct state *cur, struct block *info,
const char *name, scconf_block *blk)
{
scconf_item *item;
struct command *cp;
struct block *bp;
const char *cmd, *ident;
int res = 0;
for (item = blk->items; res == 0 && item; item = item->next) {
cmd = item->key;
if (item->type == SCCONF_ITEM_TYPE_COMMENT)
continue;
if (item->type == SCCONF_ITEM_TYPE_BLOCK) {
scconf_list *nlist;
ident = NULL;
if ((nlist = item->value.block->name) != NULL) {
if (nlist->next) {
parse_error(cur,
"Too many name components "
"in block name.");
return SC_ERROR_SYNTAX_ERROR;
}
ident = nlist->data;
}
#if 0
printf("Processing %s %s\n",
cmd, ident? ident : "");
#endif
if ((bp = find_block_handler(info->blk_info, cmd))) {
res = bp->handler(cur, bp, ident,
item->value.block);
continue;
}
} else
if (item->type == SCCONF_ITEM_TYPE_VALUE) {
#if 0
printf("Processing %s\n", cmd);
#endif
if ((cp = find_cmd_handler(info->cmd_info, cmd))) {
res = process_command(cur, cp,
item->value.list);
continue;
}
}
parse_error(cur,
"Command \"%s\" not understood in this context.", cmd);
return SC_ERROR_SYNTAX_ERROR;
}
if (res > 0)
res = SC_ERROR_SYNTAX_ERROR;
return res;
}
void
purple_perl_cmd_unregister(PurpleCmdId id)
{
PurplePerlCmdHandler *handler;
handler = find_cmd_handler(id);
if (handler == NULL) {
croak("Invalid command id in removing a perl command handler.\n");
return;
}
destroy_cmd_handler(handler);
}