Ejemplo n.º 1
0
Archivo: wsfe.c Proyecto: Sciumo/f2c
static int xw_end(void)
{
	int n;

	if(f__nonl) {
		f__putbuf(n = 0);
		fflush(f__cf);
		}
	else
		n = f__putbuf('\n');
	f__hiwater = f__recpos = f__cursor = 0;
	return n;
}
Ejemplo n.º 2
0
 int
x_wSL(Void)
{
	int n = f__putbuf('\n');
	f__hiwater = f__recpos = f__cursor = 0;
	return(n == 0);
}
Ejemplo n.º 3
0
Archivo: wsfe.c Proyecto: Sciumo/f2c
static int xw_rev(void)
{
	int n = 0;
	if(f__workdone) {
		n = f__putbuf('\n');
		f__workdone = 0;
		}
	f__hiwater = f__recpos = f__cursor = 0;
	return n;
}
Ejemplo n.º 4
0
integer e_wsle(Void)
{
  int n = f__putbuf('\n');
  f__recpos=0;
#ifdef ALWAYS_FLUSH
  if (!n && fflush(f__cf))
         err(f__elist->cierr, errno, "write end");
#endif
  return(n);
  }
Ejemplo n.º 5
0
 static int
y_rev(Void)
{
	if (f__recpos < f__hiwater)
		f__recpos = f__hiwater;
	if (f__curunit->url > 1)
		while(f__recpos < f__curunit->url)
			(*f__putn)(' ');
	if (f__recpos)
		f__putbuf(0);
	f__recpos = 0;
	return(0);
}