update from Rodney Ruddock

[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.5 (Berkeley) %G%";
#endif /* not lint */

#include <sys/types.h>

#include <regex.h>
#include <setjmp.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

#ifdef DBI
#include <db.h>
#endif

#include "ed.h"
#include "extern.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;
{
       register int l_ss = ss;
       int l_which;                    /* Which is it? 'q' or 'Q'. */

       sigspecial = 1; /* yes, 1, because we want to ensure it's on */
       sigspecial2 = 0;

       l_which = ss;
       if (ss != -1) {
               for (;;) {
                       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') || (l_which == -1)) ) {
               change_flag = 0L;
               strcpy(help_msg, "buffer changes not saved");
               *errnum = -1;
               ss = l_ss;
               if (l_which == EOF)
                       ungetc('\n', inputt);
               return;
       }
       /* Do cleanup; should it be even bothered?? */
       Start = top;
       End = bottom;
       Start_default = End_default = 0;

       /* We don't care about the returned errnum val anymore. */
       if (l_which == EOF)
               ungetc('\n', inputt);
       d(inputt, errnum);
       u_clr_stk();
       free(text);
       free(filename_current);
#ifdef STDIO
       fclose(fhtmp);
#endif
#ifdef DBI
       (dbhtmp->close) (dbhtmp);       /* Overhead as the cache is flushed. */
#endif
#ifndef MEMORY
       unlink(template);
#endif
       exit(0);
}