date and time created 93/01/23 11:13:20 by bostic

[unix-history] / usr / src / contrib / ed / q.c

/*-
 * Copyright (c) 1992 The Regents of the University of California.
 * All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Rodney Ruddock of the University of Guelph.
 *
 * %sccs.include.redist.c%
 */

#ifndef lint
static char sccsid[] = "@(#)q.c	5.1 (Berkeley) %G%";
#endif /* not lint */

#include "ed.h"

/*
 * End this editting session and exit with saving the buffer. If no
 * write has occurred since the last buffer modification a warning
 * is given once ('Q' over-rides the warning).
 */

void
q(inputt, errnum)

FILE *inputt;
int *errnum;

{
  int l_which; /* which is it? 'q' or 'Q' */
  register int l_ss=ss;

  l_which = ss;

  while (1)
     {
       l_ss = getc(inputt);
       if ((l_ss != ' ') && (l_ss != '\n') && (l_ss != EOF))
         {
           *errnum = -1;
           strcpy(help_msg, "illegal command option");
           return;
         }
       if ((l_ss == '\n') || (l_ss == EOF))
         break;
     }

  ungetc(l_ss, inputt);
  /* note: 'Q' will bypass this if stmt., which warns of no save */
  if ((change_flag == 1L) && (l_which == 'q'))
    {
      change_flag = 0L;
      strcpy(help_msg, "buffer changes not saved");
      *errnum = -1;
      ss = l_ss;
      return;
    }

  /* do cleanup; should it be even bothered?? */
  start = top;
  End = bottom;
  start_default = End_default = 0;
  d(inputt, errnum); /* we don't care about the returned errnum val anymore */
  u_clr_stk();
  free(text);
  free(filename_current); 
#ifdef STDIO

  fclose(fhtmp);
  unlink(template);
#endif
#ifdef DBI
  (dbhtmp->close)(dbhtmp); /* overhead as the cache is flushed */
  unlink(template);
#endif
  exit(0);
} /* end-q */