DataMuseum.dk

top - metrics - download

    Length: 2009 (0x7d9)
    Types: TextFile
    Names: »help.c«

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Ularn/help.c« 

TextFile

/*	help.c		*/
#include "header.h"

/*
 *	help function to display the help info	
 *
 *	format of the .larn.help file
 *
 *	1st character of file:	# of pages of help available (ascii digit)
 *	page (23 lines) for the introductory message (not counted in above)
 *	pages of help text (23 lines per page)
 */
extern char helpfile[];
help()
{
	register int i,j;
	char tmbuf[128];	
	/* intermediate translation buffer when not a VT100 */
	if ((j=openhelp()) < 0)  
		return;	/* open the help file and get # pages */

	for (i=0; i<23; i++) lgetl();	/* skip over intro message */
	for (;  j>0; j--) {
		clear();
		for (i=0; i<23; i++) { 
			tmcapcnv(tmbuf,lgetl());  
			lprcat(tmbuf); 
		} /* intercept \33's */
		if (j>1) {
			lprcat("    ---- Press ");  
			standout("return");
			lprcat(" to exit, ");  
			standout("space");
			lprcat(" for more help ---- ");
			i=0; 
			while ((i!=' ') && (i!='\n') && (i!='\33')) 
				i=getcharacter();
			if ((i=='\n') || (i=='\33')) {
				lrclose();  
				setscroll();  
				drawscreen();  
				return;
			}
		}
	}
	lrclose();  
	retcont();  
	drawscreen();
}

/*
 *	function to display the welcome message and background
 */
welcome()
{
	register int i;
	char tmbuf[128];/* intermediate translation buffer when not a VT100 */

	if (openhelp() < 0)  
		return;   	/* open the help file */
	clear();
	for(i=0; i<23; i++) { 
		tmcapcnv(tmbuf,lgetl());  
		lprcat(tmbuf); 
	} /* intercept \33's */
	lrclose();  
	retcont();	/* press return to continue */
}

/*
 *	function to say press return to continue and reset scroll when done
 */
retcont()
{
	cursor(1,24); 
	lprcat("Press "); 
	standout("return");
	lprcat(" to continue: ");   
	while (getcharacter() != '\n')
		;
	setscroll();
}

/*
 *	routine to open the help file and return the first character - '0'
 */
openhelp()
{
	if (lopen(helpfile)<0) {
		lprintf("Can't open help file \"%s\" ",helpfile);
		lflush(); 
		sleep(4);	
		drawscreen();	
		setscroll(); 
		return(-1);
	}
	resetscroll();  
	return(lgetc() - '0');
}