#include "utility.h"

#define extern
#include "newgeo.h"

int main(argc,argv)
/*============================================================================*/
/* AUTHOR:    John R. Hurst, Data Management, 051088
/* COPYRIGHT 1994 MONSANTO COMPANY
/* LAST MODIFICATION: 11 JUNE 1991 MVG
/*============================================================================*/
  int argc;
  char *argv[];
  {
  char raw_file_name[130];
  int input_type;		/* INPUT GEOMETRY TYPE. */
  int output_type;		/* OUTPUT GEOMETRY TYPE. */
  int nfile;			/* WHICH ARG LIST FILE. */
  int status;
  char choice;

  void exit();
  void clear_screen();		/* CLEAR SCREEN, POSSIBLY DISPLAY FILES. */

  /* EXPRESS MODE = DUPLICATED TREATMENT FOR ALL MOLECULES ON COMMAND LINE. */
  if (argc>1)
    {
    express_mode=TRUE;
    first_express_pass=TRUE;
    input_type=get_input_type();	/* DETERMINE FILE TYPES TO USE. */
    output_type=get_output_type();

    for (nfile=1; nfile<argc; nfile++)
      {
      strcpy(raw_file_name,argv[nfile]);
      if (read_geo(input_type,raw_file_name)==0) exit(PROGRAM_FAILED);
      write_geo(output_type);
      }
    }
  else
    {
    express_mode=FALSE;

    /* LOOP DISPLAYING THE OPTIONS AND EXECUTING THE CHOSEN OPTION. */
    for (geo_entered=FALSE; ; )
      {
      if (geo_entered)
        {
        clear_screen(NO_DISPLAY_FILES);
        printf("            === NEWGEO MAIN MENU ===\n\n");
        printf("A) Read a file (current input file: \"%s\")\n",input_file_name);
        printf("B) Write a file\n");
        printf("C) Display molecule\n");
        printf("D) List coordinates and bonds\n");
        printf("E) Exit\n\n");

        status=gchoice("Enter option","abcde",NULL_NOT_OK,&choice);
        if (status==ABORT_ENTRY || (status==VALID_ENTRY && choice=='E')) exit(PROGRAM_SUCCEEDED);
        }    
      else choice = 'A';	/* FORCE READ IF NO GEOMETRY EXISTS YET. */

      switch(choice)
        {
        case 'A':	/* READ A FILE. */
          strcpy(raw_file_name,""); /* DEBUG ONLY */
          if (read_geo(TYPE_NONE,raw_file_name)==0) exit(PROGRAM_FAILED);
          break;

        case 'B':	/* WRITE A FILE. */
          write_geo();
          break;

        case 'C':	/* DISPLAY MOLECULE. */
          break;

        case 'D':	/* LIST COORDINATES AND BONDS. */
          break;
        }
      }
    }
  }