usr/src/old/lib2648/readline.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

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

/*
 * Read a line from the keyboard in the message line.  The line
 * goes into caller provided buffer msg, whos size is maxlen bytes.
 */

#include "2648.h"

readline(prompt, msg, maxlen)
char *prompt;
char *msg;
int maxlen;
{
        register char c;
        register char *cp;
        int oldx, oldy;
        int oldcuron;
        int oldquiet;
        extern int QUIET;

        oldx = _curx; oldy = _cury;
        oldcuron = _cursoron;
        areaclear(4, 4, 4+8, 719);
        setset();
        zoomout();
        curon();
        movecurs(4, 4);
        texton();

        oldquiet = QUIET;
        QUIET = 0;
        outstr(prompt);
        if (oldquiet)
                outstr("\r\n");
        QUIET = oldquiet;

        for (cp=msg; ; cp) {
                fflush(stdout);
                c = getchar();
                switch (c) {
                case '\n':
                case '\r':
                case ESC:
                        *cp++ = 0;
                        textoff();
                        movecurs(oldx, oldy);
                        if (oldcuron == 0)
                                curoff();
                        return;
                case '\b':
                        if (--cp >= msg)
                                outchar(c);
                        else
                                cp = msg;
                        break;
                default:
                        *cp++ = c;
                        outstr(rdchar(c));
                        if (cp-msg >= maxlen)
                                error("line too long");
                }
        }
}