Home | History | Annotate | Line # | Download | only in larn
help.c revision 1.2 
      1 #ifndef lint
      2 static char rcsid[] = "$Id: help.c,v 1.2 1993/08/02 17:20:04 mycroft Exp $";
      3 #endif /* not lint */
      4 
      5 /*	help.c		Larn is copyrighted 1986 by Noah Morgan. */
      6 #include "header.h"
      7 /*
      8  *	help function to display the help info
      9  *
     10  *	format of the .larn.help file
     11  *
     12  *	1st character of file:	# of pages of help available (ascii digit)
     13  *	page (23 lines) for the introductory message (not counted in above)
     14  *	pages of help text (23 lines per page)
     15  */
     16 extern char helpfile[];
     17 help()
     18 	{
     19 	register int i,j;
     20 #ifndef VT100
     21 	char tmbuf[128];	/* intermediate translation buffer when not a VT100 */
     22 #endif VT100
     23 	if ((j=openhelp()) < 0)  return;	/* open the help file and get # pages */
     24 	for (i=0; i<23; i++) lgetl();	/* skip over intro message */
     25 	for (;  j>0; j--)
     26 		{
     27 		clear();
     28 		for (i=0; i<23; i++)
     29 #ifdef VT100
     30 			lprcat(lgetl());	/* print out each line that we read in */
     31 #else VT100
     32 			{ tmcapcnv(tmbuf,lgetl());  lprcat(tmbuf); } /* intercept \33's */
     33 #endif VT100
     34 		if (j>1)
     35 			{
     36 			lprcat("    ---- Press ");  standout("return");
     37 			lprcat(" to exit, ");  standout("space");
     38 			lprcat(" for more help ---- ");
     39 			i=0; while ((i!=' ') && (i!='\n') && (i!='\33')) i=getchar();
     40 			if ((i=='\n') || (i=='\33'))
     41 				{
     42 				lrclose();  setscroll();  drawscreen();  return;
     43 				}
     44 			}
     45 		}
     46 	lrclose();  retcont();  drawscreen();
     47 	}
     48 
     49 /*
     50  *	function to display the welcome message and background
     51  */
     52 welcome()
     53 	{
     54 	register int i;
     55 #ifndef VT100
     56 	char tmbuf[128];	/* intermediate translation buffer when not a VT100 */
     57 #endif VT100
     58 	if (openhelp() < 0)  return;   	/* open the help file */
     59 	clear();
     60 	for(i=0; i<23; i++)
     61 #ifdef VT100
     62 			lprcat(lgetl());	/* print out each line that we read in */
     63 #else VT100
     64 			{ tmcapcnv(tmbuf,lgetl());  lprcat(tmbuf); } /* intercept \33's */
     65 #endif VT100
     66 	lrclose();  retcont();	/* press return to continue */
     67 	}
     68 
     69 /*
     70  *	function to say press return to continue and reset scroll when done
     71  */
     72 retcont()
     73 	{
     74 	cursor(1,24); lprcat("Press "); standout("return");
     75 	lprcat(" to continue: ");   while (getchar() != '\n');
     76 	setscroll();
     77 	}
     78 
     79 /*
     80  *	routine to open the help file and return the first character - '0'
     81  */
     82 openhelp()
     83 	{
     84 	if (lopen(helpfile)<0)
     85 		{
     86 		lprintf("Can't open help file \"%s\" ",helpfile);
     87 		lflush(); sleep(4);	drawscreen();	setscroll(); return(-1);
     88 		}
     89 	resetscroll();  return(lgetc() - '0');
     90 	}
     91 
     92