key_values.c++

Go to the documentation of this file.

/*
 *


    Copyright (C) 2009 Joseph Pingenot

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU Affero General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU Affero General Public License for more details.

    You should have received a copy of the GNU Affero General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.

*/

#include <stdlib.h>
#include <stdio.h>
#include <libmodelxx/shapes.h++>
#include <libmodelxx/key_values.h++>

namespace kdotp {
  namespace libmodelxx {
    namespace grid {






      void print_vector(GList* l) {
  GList* i;
  fprintf(stderr, "<");
  for(i=l; l!=NULL; l=l->next) {
    fprintf(stderr, "%g ", *((double*)(l->data)));
  }
  fprintf(stderr, ">\n");
      }

      void print_vector_list(GList* l) {
  GList* i;
  fprintf(stderr, "< ");
  for(i=l; l!=NULL; l=l->next) {
    print_vector((GList*)(l->data));
  }
  fprintf(stderr, " >\n");
      }

      void print_key_value(const struct key_value* kvi) {
  if(kvi->t == STRING) {
    fprintf(stderr, "(%s=%s) ", kvi->key, kvi->value.s);
  } else if(kvi->t == INT) {
    fprintf(stderr, "(%s=%d) ", kvi->key, kvi->value.i);
  } else if(kvi->t == VECTOR) {
    fprintf(stderr, "(%s=", kvi->key);
    print_vector(kvi->value.l);
  } else if(kvi->t == VECTOR_SET) {
    fprintf(stderr, "(%s=", kvi->key);
    print_vector_list(kvi->value.l);
  } else if(kvi->t == SHAPE) {
    fprintf(stderr, "(<shape>)\n");
  } else {
    /*Double*/
    fprintf(stderr, "(%s=%g) ", kvi->key, kvi->value.d);
  }
      }

      void print_key_value_list(GList* l) {
  GList* i;
  for(i=l; l!=NULL; l=l->next) {
    print_key_value((struct key_value *)(l->data));
  }
      }
      

      void key_value_free(struct key_value *kv) {
  GList* l;
  GList* ll;
  if((kv->key) != NULL) free(kv->key);
  switch(kv->t) {
  case STRING:
    free(kv->value.s);
    break;
  case VECTOR:
    for(ll=kv->value.l; ll != NULL; ll=ll->next) {
      free((double*)ll->data);
    }
    break;
  case VECTOR_SET:
    for(l=kv->value.l; l!=NULL; l=l->next) {
      for(ll=(GList*)(l->data); ll != NULL; ll=ll->next) {
        free((double*)ll->data);
      }
    }
    break;
  case SHAPE:
    shape_tree_free(kv->value.st);
    break;
  case INT:
  case FLOAT:
    /*These aren't pointers; nothing to de-allocate*/
    break;
  default:
    fprintf(stderr, "kdotp::libmodelxx::grid::key_value_free: WARNING: didn't recognize the value in key_value (numeric %d)!\n", kv->t);
  }
      }















    }
  }
}