/*
 * MAIN.C
 *
 * (c)1986 Matthew Dillon     9 October 1986
 *
 *    Contains initialization and other stuff.  Note that there is no
 *    support for workbench startup.  This isn't simply a matter of
 *    setting up a window.... to get this baby to work from workbench we
 *    would need to simulate an entire CLI (proc->pr_CLI must be valid).
 *
 */

#include "shell.h"
#include <libraries/dosextens.h>

extern long SetSignal();

char Inline[256];

main(argc, argv)
short argc;
register char *argv[];
{
   char *prompt;
   struct Process *proc;
   register short i;

   check32();
   proc = (struct Process *)FindTask(0);
   if (proc->pr_CLI == NULL)              /* sorry, no WB startup */
      exit(1000);
   init_vars();
   init();
   seterr();
   do_cd(NULL, -1);
   for (i = 1; i < argc; ++i) {
      if (strcmp(argv[i], "-c") == 0) {
         Inline[0] = '\0';
         for (++i; i < argc; ++i) {
            if (*argv[i] == '\"') {             /* CLI quotes?   */
               strcat(Inline, argv[i]+1);       /* remove quotes */
               Inline[strlen(Inline)-1] = '\0';
            } else {
               strcat(Inline, argv[i]);
            }
            if (i + 1 < argc)
               strcat(Inline, " ");
         }
         exec_command(Inline);
         main_exit(0);
      }
      strcpy (Inline, "source ");
      strcat (Inline, argv[i]);
      av[1] = argv[i];
      do_source (Inline, 0);
   }
   for (;;) {
      if ((prompt = get_var (LEVEL_SET, V_PROMPT)) == NULL)
         prompt = "echo -n \"% \"";
      if (CHECKBREAK()) {
         while (WaitForChar(Input(), 1))
            gets(Inline);
      }
      ++H_stack;
      ++Exec_ignoreresult;
      exec_command (prompt);
      --Exec_ignoreresult;
      --H_stack;
      if (Quit || !gets(Inline))
         main_exit(0);
      breakreset();
      if (*Inline == '^')
         hat_replace(Inline);
      if (*Inline)
         exec_command(Inline);
   }
}

init_vars()
{
   if (IsInteractive(Input()))
      set_var (LEVEL_SET, V_PROMPT, "echo -n \"% \"");
   else
      set_var (LEVEL_SET, V_PROMPT, "");
   set_var (LEVEL_SET, V_HIST, "20");
   set_var (LEVEL_SET, V_PATH, "ram:,ram:c/,c:,df1:c/,df0:c/");
}

init()
{
   static char pipe1[32], pipe2[32];

   Cin = Input();
   Cout= Cerr = Output();
   Uniq= (long)pipe1;         /* address of some global variable */
   Pipe1 = pipe1;
   Pipe2 = pipe2;
   sprintf (pipe1, "ram:pipe1_%ld", Uniq);
   sprintf (pipe2, "ram:pipe2_%ld", Uniq);
}


main_exit(n)
{
   free_memory();
   exit (n);
}

breakcheck()
{
   if (SetSignal(0,0) & SIGBREAKF_CTRL_C)
      return (1);
   else
      return (0);
}

breakreset()
{
   SetSignal(0, SIGBREAKF_CTRL_C);
}