ganesha/main.c

#include <stdio.h>
#include <igraph.h>
#include "io.h"
#include "args.h"
#include "graph.h"

const char *argp_program_version = "Ganesha 0.1";
const char *argp_program_bug_address = "<t.rice@ms.unimelb.edu.au>";

int main(int argc, char *argv[]) {
    ost = stdout;
    /* Set argument defaults */
    struct arguments args;
    args.outfile = NULL;
    args.ifmt = read_error;
    args.ofmt = print_dot;
    args.ngraphs = 0;
    args.oper = graph_operation_error;
    argp_parse(&argp, argc, argv, 0, 0, &args);
   
    /* How many input files were listed? */
    long int graph_count = 0;
    while(args.args[graph_count]) ++graph_count;
    args.ngraphs = graph_count;
    if(!args.ngraphs) return 1;

    /* Define input format, read input files into graphs, then close the input file streams. */
    void (*read)(igraph_t *g, FILE *ist);
    read = args.ifmt;
    igraph_vector_ptr_t g;
    igraph_vector_ptr_init(&g, args.ngraphs);
    long int arg_idx;
    for(arg_idx = 0; args.args[arg_idx]; ++arg_idx) {
        src_ist = fopen(args.args[arg_idx], "r");
        VECTOR(g)[arg_idx] = calloc(1, sizeof(igraph_t));
        read(VECTOR(g)[arg_idx], src_ist);
        if(src_ist != NULL) {
            fclose(src_ist);
        }
    }
    src_ist = NULL;

    /* Do selected operation on input graphs before deleting them. */
    void (*operate)(graph_t *result, igraph_vector_ptr_t *glist);
    operate = args.oper;
    graph_t* result = graph_init();
    operate(result, &g);
    long int idx;
    for(idx = 0; idx < igraph_vector_ptr_size(&g); ++idx) {
        igraph_destroy(VECTOR(g)[idx]);
        free(VECTOR(g)[idx]);
    }
    igraph_vector_ptr_destroy(&g);

    /* Print in defined output format to destination. */
    void (*print)(graph_t *some_graph);
    print = args.ofmt;
    if(result->initialised) {
        print(result);
    }

    /* Tidy up */
    graph_destroy(result);
    if(ost != NULL) {
        fclose(ost);
    }
    ost = NULL;
    return 0;
}