makestruct.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 <stdio.h>
#include <stdlib.h>
#include <glib.h>
#include <gio/gio.h>
#include <libmodelxx/matdb.h++>
#include <libmodelxx/matdb-dotcode.h++>
#include <libmodelxx/continuous_structure.h++>
#include <libmodelxx/generic_structure.h++>
#include <libmodelxx/function_specification.h++>
#include "makestruct_argprocess.h++"

using namespace kdotp::libmodelxx::continuous_structure;
using namespace kdotp::libmodelxx::structure;
using namespace kdotp::libmodelxx::postprocessing;

void yyparse();
int yylex();

extern struct continuous_structure* the_structure;
extern GFileInputStream* instream;

int main(int argc, char* argv[]) {
  g_type_init();
  /*
  int val;
  while((val=yylex()) != 0) {
    printf("Got token %d\n", val);
  }
  */
  struct makestruct_args args;
  int err;
  err = parse_makestruct_args(argc, argv, &args);
  if(err != 0) exit(1);
  GString *mdb_file = g_string_new(args.matdb);
  struct matdb* mdb = read_matdb_dotcode(mdb_file, &err);
  if(mdb == NULL) {fprintf(stderr, "ERROR reading in the materials database %s: %d\n", args.matdb, err); return 1;}

  GList* l;
  GError* gerr= NULL;
  GHashTable *gst = new_symbol_table();
  for(l=(args.files); l != NULL; l=l->next) {
    gerr = NULL;
    instream = g_file_read((GFile*)(l->data), NULL, &gerr);
    if(gerr != NULL) {
      fprintf(stderr, "makestruct: ERROR reading in structure file (%s): %s\n", g_file_get_uri((GFile*)(l->data)), gerr->message);
      continue;
    }
    yyparse();
    if(the_structure == NULL) {
      fprintf(stderr, "the_structure was NULL!\n");
      exit(1);
    }
    struct generic_structure *s = postprocess_structure(the_structure, mdb, gst, &gerr);
    *s = *s;
    fprintf(stderr, "got structure!\n");

    /*Dump the file.*/
    GFile* file = g_file_new_for_commandline_arg("teststruct.structdump");
    gerr = generic_structure_dump(s, file);
    if(gerr != NULL){
      fprintf(stderr, "unable to dump structure: %s\n", gerr->message);
      return 1;
    }

    generic_structure_free(s);
  }
  return 0;
}