Exemple #1
0
cg_expansion* pick_expansion(
  cell_grammar *cg,
  chunk_neighborhood* nbh,
  block_index base,
  ptrdiff_t seed
) {
  size_t i;
  int success;
  cg_expansion *exp;
  list *options = create_list();
  block root_block = *nb_block(nbh, base);
  for (i = 0; i < l_get_length(cg->expansions); ++i) {
    exp = (cg_expansion*) l_get_item(cg->expansions, i);
    success = check_expansion(exp, nbh, base, root_block);
    if (success) {
      l_append_element(options, (void*) exp);
    }
  }
  if (l_is_empty(options)) {
    cleanup_list(options);
    return NULL;
  }
  // Choose an option based on our seed:
  i = posmod(prng(seed + 819991), l_get_length(options));
  exp = (cg_expansion*) l_get_item(options, i);
  cleanup_list(options);
  return exp;
}
Exemple #2
0
frequent_species pick_appropriate_frequent_species(
  list *sp_list,
  block substrate,
  ptrdiff_t seed
) {
  float weight;
  float total_weight = 0;
  float choice;
  float rare_smoothing;
  size_t i;
  frequent_species fqsp = 0;
  list *weights = create_list();

  if (l_is_empty(sp_list)) {
    // Return an invalid species...
    frequent_species_set_species_type(&fqsp, SPT_NO_SPECIES);
    frequent_species_set_species(&fqsp, SP_INVALID);
    frequent_species_set_frequency(&fqsp, 0.0);
    return fqsp;
  }

  rare_smoothing = expdist(ptrf(seed + 31376), BIO_RARE_SPECIES_SMOOTHING_EXP);
  rare_smoothing *= BIO_RARE_SPECIES_SMOOTHING_ADJUST;

  for (i = 0; i < l_get_length(sp_list); ++i) {
    fqsp = (frequent_species) l_get_item(sp_list, i);
    weight = (
      species_compatability(fqsp, substrate)
    * frequent_species_frequency(fqsp)
    ) + rare_smoothing;
    l_append_element(weights, f_as_p(weight));
    total_weight += weight;
  }

  choice = ptrf(prng(seed + 866859)) * total_weight;

  for (i = 0; i < l_get_length(sp_list); ++i) {
    fqsp = (frequent_species) l_get_item(sp_list, i);
    choice -= p_as_f(l_get_item(weights, i));
    if (choice < 0) {
      cleanup_list(weights);
      return fqsp;
    }
  }
  cleanup_list(weights);
#ifdef DEBUG
  printf("Error: Ran out of appropriate species to pick from!\n");
  exit(EXIT_FAILURE);
#endif
  // Just arbitrarily return the first item (this shouldn't be reachable):
  return (frequent_species) l_get_item(sp_list, 0);
}
Exemple #3
0
void destroy_dictionary(dictionary *doomed) {
  size_t i;
  list *bucket;
  dictionary_entry *e;
  for (i = 0; i < l_get_length(doomed->ordered); ++i) {
    e = (dictionary_entry*) l_get_item(doomed->ordered, i);
    destroy_dictionary_entry(e);
  }
  cleanup_list(doomed->ordered);
  for (i = 0; i < doomed->table_size; ++i) {
    bucket = (list*) doomed->table[i];
    if (bucket != NULL) {
      cleanup_list(bucket);
    }
  }
  free(doomed->table);
  free(doomed);
}
// Application
int main (void)  {
	Tlist list;

	initialize_list(&list);
	insert_to_list_end(&list, 'a');
	insert_to_list_end(&list, 'b');
    insert_to_list_end(&list, 'c');
	insert_to_list_end(&list, 'd');

	   print_list(list);
	   cleanup_list(&list);

	fflush(stdin); getchar();
}
// Application
int main (void) {
	Tlist list;
	
	initialize_list(&list);
	insert_to_list_end(&list, CreateComplex(1, 2)); // add 1+2i
	insert_to_list_end(&list, CreateComplex(2, 3)); // add 2+3i
	insert_to_list_end(&list, CreateComplex(3, 4)); // add 3+4i
	insert_to_list_end(&list, CreateComplex(4, 5)); // add 4+5i
	print_list(list);
	cleanup_list(&list);
	heapleak();
	fflush(stdin); getchar();
	//heapdump();


}
Exemple #6
0
void cleanup_cell_grammar_expansion(cg_expansion *cge) {
  l_foreach(cge->children, &_iter_cleanup_cell_grammar_expansions);
  cleanup_list(cge->children);
  free(cge);
}
Exemple #7
0
void cleanup_cell_grammar(cell_grammar *cg) {
  l_foreach(cg->expansions, &_iter_cleanup_cell_grammar_expansions);
  cleanup_list(cg->expansions);
  free(cg);
}
Exemple #8
0
void cleanup_test_suite(test_suite *ts) {
  cleanup_list(ts->tests);
  cleanup_list(ts->results);
  free(ts);
}
Exemple #9
0
double_struct *merge_partitions(cog *c, long low, long high) {
  list *list = create_list();
  int has_merge_work;
  gather_partitions(list, c);
  struct cog *right_replacement = NULL;
  struct cog *left_replacement = NULL;
  struct list *list_iter;
  struct iter_list *tail; 
  struct stack_triple *stack = create_stack();
  struct iter_list *head_list = malloc(sizeof(struct iter_list));
  tail = head_list;
  list_iter = list;
  iterator merge_iter;
  cog *c1 = malloc(sizeof(struct cog));
  while(list_has_next(list_iter)) {
    list_iter = get_cog_from_list(list_iter, c1);
    struct extracted_components *components = extract_partitions(c1, low, high);
    if(components->iter != NULL) {
      has_merge_work = 1;
      tail = iter_list_add(tail, components->iter);
    }

    if(components->rhs != NULL) {
      if(right_replacement == NULL) {
        right_replacement = components->rhs;
      } else {
        right_replacement = make_concat(right_replacement, components->rhs); 
      }
    }

    if(components->lhs != NULL) {
      if(left_replacement == NULL) {
        left_replacement = components->lhs;
      } else {
        left_replacement = make_concat(left_replacement, components->lhs);
      }
    }
    free(components);
  }
  cleanup_list(list);
  free(c1);
  if(has_merge_work != 0) {
    double_struct *ret = create_double_struct();
    merge_iter = iter_merge(head_list);
    record r = malloc(sizeof(struct record));
    while(1) {
      int i;
      buffer out = buffer_alloc(MERGE_BLOCK_SIZE);
      record buf = out->data;
      for(i = 0; i < MERGE_BLOCK_SIZE && iter_has_next(merge_iter); i++) {
        iter_next(merge_iter, r);
        record_set(&buf[i], r->key, r->value);
      }
      if(i == 0) {
        break;
      }
      struct cog *buffer = make_sortedarray(0, i, out);
      fold_append(&stack, buffer, cog_min(buffer));
      if(i < MERGE_BLOCK_SIZE) {
        break;
      }
    }
    cog *root = fold(&stack);
    if(root == NULL) {
      root = make_btree(left_replacement, right_replacement, high);
    } else {
      ret->iter = scan(root, low, high);
      if(left_replacement != NULL && cog_length(left_replacement) != 0) {
        root = make_btree(left_replacement, root, cog_min(root));
      }
      if(right_replacement != NULL && cog_length(right_replacement) != 0) {
        root = make_btree(root, right_replacement, cog_min(right_replacement));
      }
    }
    free(r);
    cleanup_stack(stack);
    iter_list_cleanup(head_list);
    iter_cleanup(merge_iter);
    ret->cog = root;
    return ret;
  } else {
    double_struct *ret;
    ret = amerge(list->cog, low, high);
    if(left_replacement != NULL) {
      ret->cog = make_concat(ret->cog, left_replacement);
    }
    if(right_replacement != NULL) {
      ret->cog = make_concat(ret->cog, right_replacement);
    }
    return ret;
  }
}
Exemple #10
0
/*
 * scamper_fds_cleanup
 *
 * tidy up the state allocated to maintain fd records.
 */
void scamper_fds_cleanup()
{
  scamper_fd_t *fdn;

  /* clean up the lists */
  cleanup_list(read_fds);    read_fds = NULL;
  cleanup_list(write_fds);   write_fds = NULL;
  cleanup_list(read_queue);  read_queue = NULL;
  cleanup_list(write_queue); write_queue = NULL;

  /* reap anything on the reap list */
  if(refcnt_0 != NULL)
    {
      while((fdn = (scamper_fd_t *)dlist_head_get(refcnt_0)) != NULL)
	{
	  fd_close(fdn);
	  fd_free(fdn);
	}
      dlist_free(refcnt_0);
      refcnt_0 = NULL;
    }

  /* clean up the tree */
  if(fd_tree != NULL)
    {
      splaytree_free(fd_tree, NULL);
      fd_tree = NULL;
    }

  /* clean up the list */
  if(fd_list != NULL)
    {
      dlist_free(fd_list);
      fd_list = NULL;
    }

  /* clean up the array */
  if(fd_array != NULL)
    {
      free(fd_array);
      fd_array = NULL;
    }

#ifdef HAVE_POLL
  if(poll_fds != NULL)
    {
      free(poll_fds);
      poll_fds = NULL;
    }
#endif

#ifdef HAVE_KQUEUE
  if(kq != -1)
    {
      close(kq);
      kq = -1;
    }
  if(kevlist != NULL)
    {
      free(kevlist);
      kevlist = NULL;
    }
#endif

#ifdef HAVE_EPOLL
  if(ep != -1)
    {
      close(ep);
      ep = -1;
    }
  if(ep_events != NULL)
    {
      free(ep_events);
      ep_events = NULL;
    }
#endif

  return;
}
Exemple #11
0
int main(int argc, char* argv[]){
  
  if(argc > 3)
    {
      printf("You may only enter a filename and an option.\necho sort tail tail-remove\nExiting...\n");
      exit(-1);
    }
  else if (argc < 3)
    {
      printf("You must enter both a filename and an option.\necho sort tail tail-remove\nExiting...\n");
      exit(-1);
    }

  // Open the supplied input file read only
  FILE *input_file = fopen(argv[1], "r");
  if(input_file == NULL)
    {
      perror("Please enter a different filename");
      exit(-1);
    }

  // Echo the file
  if(strcmp(argv[2], "echo") == 0)
    {
      char echo_buf[41];
      while(read_line(input_file, echo_buf, 41))
	{
	  printf("%s\n", echo_buf);
	  memset(echo_buf, '\0', 41);
	}
    }

  // Put the file in a list and visit-print the list
  else if(strcmp(argv[2], "tail") == 0)
    {
      list_t list;
      list_init(&list, list_item_compare_string, string_data_delete);

      char *tail_buf = malloc(41*sizeof(char));
      if(tail_buf == NULL)
	{
	  perror("malloc failed to create new buffer.");
	  exit(-1);
	}
      while(read_line(input_file, tail_buf, 41))
	{
	  list_insert_tail(&list, tail_buf);
	  tail_buf = malloc(41*sizeof(char));
	  if(tail_buf == NULL)
	    {
	      perror("malloc failed to create new buffer.");
	      exit(-1);
	    }
	}
      // Free the last buffer created when we looped last
      free(tail_buf);

      list_visit_items(&list, print_data_string);
      cleanup_list(&list);
    }

  // Insert the file into a sorted list ** Does not seem to sort correctly**
  else if(strcmp(argv[2], "sort") == 0)
    {
      list_t list;
      list_init(&list, list_item_compare_string, string_data_delete);
      
      char *sort_buf = malloc(41*sizeof(char));
      if(sort_buf == NULL)
	{
	  perror("malloc failed to create new buffer.");
	  exit(-1);
	}
      while(read_line(input_file, sort_buf, 41))
	{
	  list_insert_sorted(&list, sort_buf);
	  sort_buf = malloc(41*sizeof(char));
	  if(sort_buf == NULL)
	    {
	      perror("malloc failed to create new buffer.");
	      exit(-1);
	    }
	}
      // Free last buffer created as it is unused
      free(sort_buf);

      list_visit_items(&list, print_data_string);
      cleanup_list(&list);
    }

  // Insert the file into a list in order and then remove 3 head nodes until it is empty
  else if(strcmp(argv[2], "tail-remove") == 0)
    {
      printf("Running tail-remove\n");
      list_t list;
      list_init(&list, list_item_compare_string, string_data_delete);

      char *rem_buf = malloc(41*sizeof(char));
      if(rem_buf == NULL)
	{
	  perror("malloc failed to create new buffer.");
	  exit(-1);
	}
      while(read_line(input_file, rem_buf, 41))
	{
	  list_insert_tail(&list, rem_buf);
	  rem_buf = malloc(41*sizeof(char));
	}
      // Free last buffer created
      free(rem_buf);
      
      unsigned int three_sets = (list.length)/3;
      unsigned int i;
      list_visit_items(&list, print_data_string);
      for(i = 0; i < three_sets; i++)
	{
	  list_remove_head(&list);
	  list_remove_head(&list);
	  list_remove_head(&list);
	  printf("----------------------------------------\n");
	  list_visit_items(&list, print_data_string);
	}
      cleanup_list(&list);
      printf("----------------------------------------\n");
      list_visit_items(&list, print_data_string);
    }

  fclose(input_file);
  
  return 0;
};