#include <exec/types.h>
#include <lattice/stdio.h>
#include <lattice/ctype.h>
#include <lattice/ios1.h>

#include <workbench/startup.h>
#include <libraries/dos.h>
#include <libraries/dosextens.h>

#define MAXARG 32              /* maximum command line arguments */
#define QUOTE  '"'

#ifndef TINY
extern int _stack,_fmode,_iomode;
#endif
extern int LoadAddress;

extern struct UFB _ufbs[];
int argc;         /* arg count */
char *argv[MAXARG];      /* arg pointers */

#define MAXWINDOW 40
extern struct WBStartup *WBenchMsg;
static char window[MAXWINDOW] = "con:10/10/320/80/";
static struct Process *process, *FindTask();
static struct FileHandle *handle;

/**
*
* name         _main - process command line, open files, and call "main"
*
* synopsis     _main(line);
*              char *line;     ptr to command line that caused execution
*
* description   This function performs the standard pre-processing for
*      the main module of a C program.  It accepts a command
*      line of the form
*
*         pgmname arg1 arg2 ...
*
*      and builds a list of pointers to each argument.  The first
*      pointer is to the program name.  For some environments, the
*      standard I/O files are also opened, using file names that
*      were set up by the OS interface module XCMAIN.
*
**/
_main(line)
char *line;
{

int x;


/*
*
* Build argument pointer list
*
*/
   while (argc < MAXARG)  {
      while (isspace(*line))
         line++;
      if (*line == '\0')
         break;
      if (*line == QUOTE) {
         argv[argc++] = ++line;  /* ptr inside quoted string */
         while ((*line != '\0') && (*line != QUOTE))
            line++;
         if (*line == '\0') {
            fprintf (stderr, "Error: non-terminated quoted string\n");
            exit(1);
         } else { /*  *line is end-quote */
            *line++ = '\0';  /* terminate arg */
         }
      } else { /* non-quoted arg */
         argv[argc++] = line;
         while ((*line != '\0') && (!isspace(*line)))
            line++;
         if (*line == '\0') {
            break;
         } else {
            *line++ = '\0';  /* terminate arg */
         }
      }
   }  /* while */
/*
*
* Open standard files
*
*/
#ifndef TINY

stdin->_file = 0;
stdin->_flag = _IOREAD;
stdout->_file = 1;
stdout->_flag = _IOWRT;
stderr->_file = 2;
stderr->_flag = _IOWRT;

if (argc == 0)      /* running under workbench   */
   {
   strncat(window, WBenchMsg->sm_ArgList->wa_Name,MAXWINDOW);
   _ufbs[0].ufbfh = Open(window,MODE_NEWFILE);
   _ufbs[1].ufbfh = _ufbs[0].ufbfh;
   _ufbs[1].ufbflg = UFB_NC;
   _ufbs[2].ufbfh = _ufbs[0].ufbfh;
   _ufbs[2].ufbflg = UFB_NC;
   handle = (struct FileHandle *)(_ufbs[0].ufbfh << 2);
   process = FindTask(0);
   process->pr_ConsoleTask = handle->fh_Type;
   x = 0;
   }
else         /* running under CLI      */
#endif
   {
   _ufbs[0].ufbfh = Input();
   _ufbs[1].ufbfh = Output();
   _ufbs[2].ufbfh = Open("*", MODE_OLDFILE);
   x = UFB_NC;         /* do not close CLI defaults   */
   }

_ufbs[0].ufbflg |= UFB_OP | UFB_RA | x;
_ufbs[1].ufbflg |= UFB_OP | UFB_WA | x;
_ufbs[2].ufbflg |= UFB_OP | UFB_WA ;

/*
*
* Call user's main program
*
*/
#ifdef DEBUG
printf("load address = %lx\n",LoadAddress);
Debug(0);
#endif

main(argc,argv);              /* call main function */
#ifndef TINY
exit(0);
#else
_exit(0);
#endif
}