Exemplo n.º 1
0
/* PUBLIC */
Ilist position_of_subterm(Term t, Term subterm)
{
  Ilist pos = pos_of_subterm(t, subterm);
  if (pos == NULL)
    return NULL;
  else {
    return ilist_remove_last(pos);
  }
}  /* position_of_subterm */
Exemplo n.º 2
0
int pool_free_space(PoolObject *pool){
    ssize_t size_list_zero = ilist_size(&pool->list_zero);
    if (size_list_zero < 0)
        return -1;
    int i;
    iNode *inode;
    for (i = 0; i < size_list_zero/2; i++){
        inode = ilist_remove_last(&pool->list_zero);
        if (inode == NULL)
            return -1;
        hash_table_remove(&pool->table, &inode->node);
        data_free(inode->node.value);
    }
    return 0;
}