* Copyright (c) 1980 The Regents of the University of California.
* This module is believed to contain source code proprietary to AT&T.
* Use and redistribution is subject to the Berkeley Software License
* Agreement and your Software Agreement with AT&T (Western Electric).
static char sccsid
[] = "@(#)wdfe.c 5.2 (Berkeley) 4/12/91";
* write direct formatted external i/o
extern int w_ed(),w_ned();
int y_putc(),y_wnew(),y_tab();
LOCAL
char wdfe
[] = "write dfe";
if(n
=c_dfe(a
,WRITE
,wdfe
)) return(n
);
if(!curunit
->uwrt
&& ! nowwriting(curunit
)) err(errflag
, errno
, wdfe
)
dorevert
= doend
= donewrec
= y_wnew
;
if(pars_f()) err(errflag
,F_ERFMT
,wdfe
)
if(curunit
->url
!=1 && recpos
++ >= curunit
->url
) err(errflag
,F_EREREC
,wdfe
)
{ fseek(cf
,(long)(reclen
-recpos
),1);
while(recpos
< curunit
->url
) (*putn
)(' ');
recpos
= reclen
= cursor
= 0;