prntscan.c

该程序是C语言编写的

/****************************************************************/
/* Printw() and scanw() routines of the PCcurses package	*/
/*								*/
/****************************************************************/
/* This version of curses is based on ncurses, a curses version	*/
/* originally written by Pavel Curtis at Cornell University.	*/
/* I have made substantial changes to make it run on IBM PC's,	*/
/* and therefore consider myself free to make it public domain.	*/
/*				Bjorn Larsson ([e-mail])	*/
/****************************************************************/
/*		     IMPLEMENTATION NOTE 1			*/
/* These routines make a local copy of their parameter stack,	*/
/* assuming at most 5 'double' arguments were passed (== 40	*/
/* bytes == 20 int's == 10 long's == 10-20 pointers {depending	*/
/* on memory model}, etc). This means the invokation of the	*/
/* routines themself require at least 80 bytes of stack just	*/
/* for the parameters, and the sprintf() and sscanf() functions	*/
/* will require more. Therefore, this module should be compiled	*/
/* with stack checking on to avoid stack overflow errors.	*/
/****************************************************************/
/*		     IMPLEMENTATION NOTE 2			*/
/* This curses version is also used in a special environment	*/
/* with a 68000 CPU. The 68K compiler used has a bug in the	*/
/* standard library, which means that sprintf will not print	*/
/* newlines right. Therefore a workaround has been included in	*/
/* this file, conditionalized by '#if BUG68K'. This does not	*/
/* affect the PC version in any way, except the source is a	*/
/* little more obscure...					*/
/****************************************************************/
/* 1.4:  Use of short wherever possible. Portability		*/
/*	 improvements. 68K bug workaround:		900114	*/
/* 1.3:	 MSC -W3, Turbo'C' -w -w-pro checkes:		881005	*/
/* 1.2:	 Rcsid[] string for maintenance:		881002	*/
/* 1.0:	 Release:					870515	*/
/****************************************************************/

#include <curses.h>
#include <curspriv.h>

char _curses_prntscan_rcsid[] = "@(#)prntscan.c   v.1.4  - 900114";

static	int	pblen();		/* gets length of buffer */

#if BUG68K
static	void	setnl();		/* conv nl -> CTRL-\ */
static	void	getnl();		/* conv CTRL-\ -> nl */
#endif

static	char	printscanbuf[513];	/* buffer used during I/O */

/****************************************************************/
/* Wprintw(win,fmt,args) does a printf() in window 'win'.	*/
/****************************************************************/

int	wprintw(win,fmt,A1,A2,A3,A4,A5)
  WINDOW	*win;
  char		*fmt;
  double	 A1,A2,A3,A4,A5;
  {
#if BUG68K
  setnl(fmt);
  sprintf(printscanbuf,fmt,A1,A2,A3,A4,A5);
  getnl(fmt);
  getnl(printscanbuf);
#else
  sprintf(printscanbuf,fmt,A1,A2,A3,A4,A5);
#endif
  if (waddstr(win,printscanbuf) == ERR)
    return(ERR);
  return(pblen());
  } /* wprintw */

/****************************************************************/
/* Printw(fmt,args) does a printf() in stdscr.			*/
/****************************************************************/

int	printw(fmt,A1,A2,A3,A4,A5)
  char		*fmt;
  double	 A1,A2,A3,A4,A5;
  {
#if BUG68K
  setnl(fmt);
  sprintf(printscanbuf,fmt,A1,A2,A3,A4,A5);
  getnl(fmt);
  getnl(printscanbuf);
#else
  sprintf(printscanbuf,fmt,A1,A2,A3,A4,A5);
#endif
  if(waddstr(stdscr,printscanbuf) == ERR)
    return(ERR);
  return(pblen());
  } /* printw */

/****************************************************************/
/* Mvprintw(fmt,args) moves the stdscr cursor to a new posi-	*/
/* tion, then does a printf() in stdscr.			*/
/****************************************************************/

int	mvprintw(y,x,fmt,A1,A2,A3,A4,A5)
  int		 y;
  int		 x;
  char		*fmt;
  double	 A1,A2,A3,A4,A5;
  {
  if (wmove(stdscr,y,x) == ERR)
    return(ERR);
#if BUG68K
  setnl(fmt);
  sprintf(printscanbuf,fmt,A1,A2,A3,A4,A5);
  getnl(fmt);
  getnl(printscanbuf);
#else
  sprintf(printscanbuf,fmt,A1,A2,A3,A4,A5);
#endif
  if(waddstr(stdscr,printscanbuf) == ERR)
    return(ERR);
  return(pblen());
  } /* mvprintw */

/****************************************************************/
/* Mvwprintw(win,fmt,args) moves the window 'win's cursor to	*/
/* a new position, then does a printf() in window 'win'.	*/
/****************************************************************/

int	mvwprintw(win,y,x,fmt,A1,A2,A3,A4,A5)
  WINDOW	*win;
  int		 y;
  int		 x;
  char		*fmt;
  double	 A1,A2,A3,A4,A5;
  {
  if (wmove(win,y,x) == ERR)
    return(ERR);
#if BUG68K
  setnl(fmt);
  sprintf(printscanbuf,fmt,A1,A2,A3,A4,A5);
  getnl(fmt);
  getnl(printscanbuf);
#else
  sprintf(printscanbuf,fmt,A1,A2,A3,A4,A5);
#endif
  if(waddstr(win,printscanbuf) == ERR)
    return(ERR);
  return(pblen());
  } /* mvwprintw */

/****************************************************************/
/* Wscanw(win,fmt,args) gets a string via window 'win', then	*/
/* scans the string using format 'fmt' to extract the values	*/
/* and put them in the variables pointed to the arguments.	*/
/****************************************************************/

int wscanw(win,fmt,A1,A2,A3,A4,A5)
  WINDOW	*win;
  char		*fmt;
  double	 A1,A2,A3,A4,A5;		/* really pointers */
  {
  wrefresh(win);				/* set cursor */
  if (wgetstr(win,printscanbuf) == ERR)		/* get string */
    return(ERR);
  return(sscanf(printscanbuf,fmt,A1,A2,A3,A4,A5));
  } /* wscanw */

/****************************************************************/
/* Scanw(fmt,args) gets a string via stdscr, then scans the	*/
/* string using format 'fmt' to extract the values and put them	*/
/* in the variables pointed to the arguments.			*/
/****************************************************************/

int scanw(fmt,A1,A2,A3,A4,A5)
  char		*fmt;
  double	 A1,A2,A3,A4,A5;		/* really pointers */
  {
  wrefresh(stdscr);				/* set cursor */
  if (wgetstr(stdscr,printscanbuf) == ERR)	/* get string */
    return(ERR);
  return(sscanf(printscanbuf,fmt,A1,A2,A3,A4,A5));
  } /* scanw */

/****************************************************************/
/* Mvscanw(y,x,fmt,args) moves stdscr's cursor to a new posi-	*/
/* tion, then gets a string via stdscr and scans the string	*/
/* using format 'fmt' to extract the values and put them in the	*/
/* variables pointed to the arguments.				*/
/****************************************************************/

int mvscanw(y,x,fmt,A1,A2,A3,A4,A5)
  int		 y;
  int		 x;
  char		*fmt;
  double	 A1,A2,A3,A4,A5;		/* really pointers */
  {
  if (wmove(stdscr,y,x) == ERR)
    return(ERR);
  wrefresh(stdscr);				/* set cursor */
  if (wgetstr(stdscr,printscanbuf) == ERR)	/* get string */
    return(ERR);
  return(sscanf(printscanbuf,fmt,A1,A2,A3,A4,A5));
  } /* mvscanw */

/****************************************************************/
/* Mvwscanw(win,y,x,fmt,args) moves window 'win's cursor to a	*/
/* new position, then gets a string via 'win' and scans the	*/
/* string using format 'fmt' to extract the values and put them	*/
/* in the variables pointed to the arguments.			*/
/****************************************************************/

int mvwscanw(win,y,x,fmt,A1,A2,A3,A4,A5)
  WINDOW	*win;
  int		 y;
  int		 x;
  char		*fmt;
  double	 A1,A2,A3,A4,A5;		/* really pointers */
  {
  if (wmove(win,y,x) == ERR)
    return(ERR);
  wrefresh(win);				/* set cursor */
  if (wgetstr(win,printscanbuf) == ERR)		/* get string */
    return(ERR);
  return(sscanf(printscanbuf,fmt,A1,A2,A3,A4,A5));
  } /* mvwscanw */

/****************************************************************/
/* Pblen() returns the length of the string in printscanbuf.	*/
/****************************************************************/

static	int pblen()
  {
  char *p = printscanbuf;
  
  while(*p++);
  return((int) (p - printscanbuf - 1));
  } /* plben */

#if BUG68K
/****************************************************************/   
/* This function circumvents a problem in the 68000 C library:	*/
/* If the standard sprintf is used, it will ignore any newlines	*/
/* in the format string. Therefore this routine changes the	*/
/* newlines to CTRL-\ characters, to be restored later by the	*/
/* getnl() function.						*/
/****************************************************************/

static	void setnl(fmt)
  char	*fmt;
  {
  while (*fmt)
    {
    if (*fmt == '\n')
      *fmt = 0x1c;
    fmt++;
    } /* while */
  } /* setnl */

/****************************************************************/
/* This function circumvents a problem in the 68000 C library:	*/
/* If the standard sprintf is used, it will ignore any newlines	*/
/* in the format string. Therefore this routine changes CTRL-\	*/
/* characters (already set by setnl()) back to newlines.	*/
/****************************************************************/

static	void getnl(fmt)
  char	*fmt;
  {
  while (*fmt)
    {
    if (*fmt == 0x1c)
      *fmt = '\n';
    fmt++;
    } /* while */
  } /* getnl */
#endif