process-average-efield-args.c

Go to the documentation of this file.

/*
** process-average-efield-args.c
** 
** Made by (Johnny Q. Hacker)
** Login   <solarion@borkborkbork>

    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/>.

** 
** Started on  Fri Jul 17 16:02:34 2009 Johnny Q. Hacker
** Last update Sun May 12 01:17:25 2002 Speed Blue
*/

#include <glib.h>
#include <stdlib.h>
#include <stdio.h>
#include <gio/gio.h>
#include <gimmeprogs/argdefaults.h>
#include <gimmeprogs/process-average-efield-args.h>

extern void program_print_version(FILE* f);
extern void libpostproccalx_print_version(FILE* f);
extern void libnextnano_print_version(FILE* f);
extern void libmodeling_print_version(FILE* f);
extern void libcommon_print_version(FILE* f);

void do_print_version() {
  program_print_version(stdout);
  libpostproccalx_print_version(stdout);
  libnextnano_print_version(stdout);
  libmodeling_print_version(stdout);
  libcommon_print_version(stdout);
}

/*Should be threadsafe here; we don't need multiple threads processing args!*/
static struct args processed_args = {.base_dirs=NULL, .no_print_integration_error=0, .request_integration_abs_error=REQUESTED_QAG_PRECISION_ABSOLUTE, .request_integration_rel_error=REQUESTED_QAG_PRECISION_RELATIVE};

struct args* process_args(int argc, char* argv[]) {
  gboolean print_version = FALSE;
  int errored=0;
  char **base_dir_names = NULL;
  GOptionEntry options[] = {
    { G_OPTION_REMAINING, '\0', 0, G_OPTION_ARG_FILENAME_ARRAY, &base_dir_names, "", NULL },
    { "no-print-integration-error", 'a', G_OPTION_FLAG_OPTIONAL_ARG, G_OPTION_ARG_NONE, &(processed_args.no_print_integration_error), "Do not print estimation of integration error", NULL },
    { "integration-abs-error", 'R', G_OPTION_FLAG_OPTIONAL_ARG, G_OPTION_ARG_DOUBLE, &(processed_args.request_integration_abs_error), "Requested absolute integration error", NULL}, 
    { "integration-rel-error", 'r', G_OPTION_FLAG_OPTIONAL_ARG, G_OPTION_ARG_DOUBLE, &(processed_args.request_integration_rel_error), "Requested relative integration error", NULL}, 
    { "version", 'v', G_OPTION_FLAG_OPTIONAL_ARG, G_OPTION_ARG_NONE, &print_version, "Print version information about this program", NULL },
    { NULL }
  };
  GOptionContext *ctx;
  ctx = g_option_context_new("- computes the expectation value of the electric field in a nanostructure for the ground state");

  g_option_context_add_main_entries(ctx, options, "Options");
  
  g_option_context_parse(ctx, &argc, &argv, NULL);

  if(print_version){
    do_print_version();
    return NULL;
  }
  
  gchar* htext = g_option_context_get_help(ctx, FALSE, NULL);
  
  g_option_context_free(ctx);

  /*Check to make sure what we want is there.*/
  GFile *bn;
  if(base_dir_names != NULL) {
    for(int i = 0; base_dir_names[i] != NULL; i++) {
      bn = g_file_new_for_commandline_arg(base_dir_names[i]);
      processed_args.base_dirs = g_list_append(processed_args.base_dirs, bn);
    }
  }
  if(processed_args.base_dirs == NULL) {
    fprintf(stderr, "ERROR: you MUST give at least one base directory\n");
    errored=1;
  }

  if(errored){
    int errored=0;
    printf("%s", htext);
    printf("**Run with --version for version and compilation information**\n");
    return NULL;
  }

  return &processed_args;
}