/*
 *      main.c          logo main procedure module              dvb
 *
 * Copyright (C) 1993 by the Regents of the University of California
 *
 *      This program is free software; you can redistribute it and/or modify
 *      it under the terms of the GNU General Public License as published by
 *      the Free Software Foundation; either version 2 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 General Public License for more details.
 *
 *      You should have received a copy of the GNU General Public License
 *      along with this program; if not, write to the Free Software
 *      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 */

#ifdef WIN32
#include <windows.h>
#include <process.h>  /* needed? */
#endif

#include "logo.h"
#include "globals.h"

#ifdef HAVE_TERMIO_H
#include <termio.h>
#else
#ifdef HAVE_SGTTY_H
#include <sgtty.h>
#endif
#endif

#ifdef __ZTC__
#include <signal.h>
#define SIGQUIT SIGTERM
#include <controlc.h>
#endif

#ifndef TIOCSTI
#include <setjmp.h>
jmp_buf iblk_buf;
#endif

#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif

#ifdef mac
#include <console.h>
#endif

NODE *current_line = NIL;
NODE **bottom_stack; /*GC*/

void unblock_input(void) {
    if (input_blocking) {
   input_blocking = 0;
#ifdef mac
   csetmode(C_ECHO, stdin);
   fflush(stdin);
#endif
#ifdef TIOCSTI
   ioctl(0,TIOCSTI,"\n");
#else
   longjmp(iblk_buf,1);
#endif
    }
}

#if defined(__ZTC__) || defined(WIN32)
void logo_stop(int sig)
#else
void logo_stop(void)
#endif
{
    if (inside_gc) {
   int_during_gc = 1;
   return;
    }
    to_pending = 0;
#if 1   /* was #ifndef unix */
    err_logo(STOP_ERROR,NIL);
#else
    if (ufun != NIL) {
   err_logo(STOP_ERROR,NIL);
    } else {
   new_line(stdout);
    }
#endif
    signal(SIGINT, logo_stop);
    unblock_input();
}

#if defined(__ZTC__) || defined(WIN32)
void logo_pause(int sig)
#else
void logo_pause(void)
#endif
{
    if (inside_gc) {
   int_during_gc = -1;
   return;
    }
    to_pending = 0;
#ifdef bsd
    sigsetmask(0);
#else
#if !defined(mac) && !defined(_MSC_VER) && !defined(AMIGA)
    signal(SIGQUIT, logo_pause);
#endif
#endif
    lpause(NIL);
}

#if defined(__ZTC__) && !defined(WIN32) /* sowings */
void _far _cdecl do_ctrl_c(void) {
    ctrl_c_count++;
}
#endif

int main(int argc, char *argv[]) {
    NODE *exec_list = NIL;

#ifdef AMIGA
   amiga_init( argc, argv);
#endif

#ifdef mac
    init_mac_memory();
#endif

    bottom_stack = &exec_list; /*GC*/

#ifdef x_window
    x_window_init(argc, argv);
#endif
    (void)addseg();
    term_init();
    init();

    math_init();
#ifdef AMIGA
   signal(SIGINT,SIG_IGN);    /* Amiga uses a different signal method. */
#else
#ifdef ibm
    signal(SIGINT, SIG_IGN);
#if defined(__ZTC__) && !defined(WIN32) /* sowings */
    _controlc_handler = do_ctrl_c;
    controlc_open();
#endif
#else /* !ibm */
    signal(SIGINT, logo_stop);
#endif /* ibm */
#ifdef mac
    signal(SIGQUIT, SIG_IGN);
#else /* !mac */
    signal(SIGQUIT, logo_pause);
#endif
#endif
    /* SIGQUITs never happen on the IBM */

    if (argc < 2) {
#ifndef WIN32
      if (isatty(1))
#endif
      {
   lcleartext(NIL);
   ndprintf(stdout,"Welcome to Berkeley Logo version 4.1");
   new_line(stdout);
      }
    }

    argv++;
    while (--argc > 0 && NOT_THROWING) {
   silent_load(NIL,*argv++);
    }

    for (;;) {
   if (NOT_THROWING) {
       check_reserve_tank();
       current_line = reader(stdin,"? ");
#ifdef __ZTC__
      (void)feof(stdin);
      if (!in_graphics_mode)
          printf(" \b");
      fflush(stdout);
#endif

#ifndef WIN32
       if (feof(stdin) && !isatty(0)) lbye(NIL);
#endif

#ifdef __ZTC__
       if (feof(stdin)) clearerr(stdin);
#endif
       if (NOT_THROWING) {
      exec_list = parser(current_line, TRUE);
      val_status = 0;
      if (exec_list != NIL) eval_driver(exec_list);
       }
   }
   if (stopping_flag == THROWING) {
       if (compare_node(throw_node, Error, TRUE) == 0) {
      err_print();
       } else if (compare_node(throw_node, SYstem, TRUE) == 0)
      break;
       else if (compare_node(throw_node, Toplevel, TRUE) != 0) {
      err_logo(NO_CATCH_TAG, throw_node);
      err_print();
       }
       stopping_flag = RUN;
   }
   if (stopping_flag == STOP || stopping_flag == OUTPUT) {
       print_node(stdout, make_static_strnode(
      "You must be in a procedure to use OUTPUT or STOP.\n"));
       stopping_flag = RUN;
   }
    }
    prepare_to_exit(TRUE);
    return 0;
}