150276Speter/****************************************************************************
2262685Sdelphij * Copyright (c) 1998-2007,2013 Free Software Foundation, Inc.              *
350276Speter *                                                                          *
450276Speter * Permission is hereby granted, free of charge, to any person obtaining a  *
550276Speter * copy of this software and associated documentation files (the            *
650276Speter * "Software"), to deal in the Software without restriction, including      *
750276Speter * without limitation the rights to use, copy, modify, merge, publish,      *
850276Speter * distribute, distribute with modifications, sublicense, and/or sell       *
950276Speter * copies of the Software, and to permit persons to whom the Software is    *
1050276Speter * furnished to do so, subject to the following conditions:                 *
1150276Speter *                                                                          *
1250276Speter * The above copyright notice and this permission notice shall be included  *
1350276Speter * in all copies or substantial portions of the Software.                   *
1450276Speter *                                                                          *
1550276Speter * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
1650276Speter * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
1750276Speter * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
1850276Speter * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
1950276Speter * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
2050276Speter * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
2150276Speter * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
2250276Speter *                                                                          *
2350276Speter * Except as contained in this notice, the name(s) of the above copyright   *
2450276Speter * holders shall not be used in advertising or otherwise to promote the     *
2550276Speter * sale, use or other dealings in this Software without prior written       *
2650276Speter * authorization.                                                           *
2750276Speter ****************************************************************************/
2850276Speter
2950276Speter/****************************************************************************
3050276Speter *  Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995               *
3150276Speter *     and: Eric S. Raymond <esr@snark.thyrsus.com>                         *
32166124Srafan *     and: Thomas E. Dickey                        1996-on                 *
3350276Speter ****************************************************************************/
3450276Speter
3550276Speter/*
3650276Speter * clear.c --  clears the terminal's screen
3750276Speter */
3850276Speter
39174993Srafan#define USE_LIBTINFO
4050276Speter#include <progs.priv.h>
4150276Speter
42262685SdelphijMODULE_ID("$Id: clear.c,v 1.13 2013/06/22 22:20:54 tom Exp $")
4350276Speter
44166124Srafanstatic int
45166124Srafanputch(int c)
4650276Speter{
47166124Srafan    return putchar(c);
4850276Speter}
4950276Speter
50166124Srafanint
51166124Srafanmain(
5250276Speter	int argc GCC_UNUSED,
53166124Srafan	char *argv[]GCC_UNUSED)
5450276Speter{
55262685Sdelphij    char *E3;
56262685Sdelphij
57166124Srafan    setupterm((char *) 0, STDOUT_FILENO, (int *) 0);
58262685Sdelphij
59262685Sdelphij    /* Clear the scrollback buffer if possible. */
60262685Sdelphij    E3 = tigetstr("E3");
61262685Sdelphij    if (E3)
62262685Sdelphij	(void) tputs(E3, lines > 0 ? lines : 1, putch);
63262685Sdelphij
64166124Srafan    ExitProgram((tputs(clear_screen, lines > 0 ? lines : 1, putch) == ERR)
6550276Speter		? EXIT_FAILURE
66166124Srafan		: EXIT_SUCCESS);
6750276Speter}
68