# 2.11BSD#431 - /usr/src/usr.lib/libI77/wdfe.c

##### Functions

    e_wdfe            X
    s_wdfe            X
    y_putc            X
    y_wnew            X

##### Variables

    wdfe              X

       1: /*
       2:  * Copyright (c) 1980 Regents of the University of California.
       3:  * All rights reserved.  The Berkeley software License Agreement
       4:  * specifies the terms and conditions for redistribution.
       5:  *
       6:  *	@(#)wdfe.c	5.1	6/7/85
       7:  */
       8:
       9: /*
      10:  * write direct formatted external i/o
      11:  */
      12:
      13: #include "fio.h"
      14:
      15: extern int w_ed(),w_ned();
      16: int y_putc(),y_wnew(),y_tab();
      17:
      18: LOCAL char wdfe[] = "write dfe";
      19:
      20: s_wdfe(a) cilist *a;
      21: {
      22:     int n;
      23:     reading = NO;
      24:     if(n=c_dfe(a,WRITE,wdfe)) return(n);
      25:     curunit->uend = NO;
      26:     if(!curunit->uwrt && ! nowwriting(curunit)) err(errflag, errno, wdfe)
      27:     putn = y_putc;
      28:     doed = w_ed;
      29:     doned = w_ned;
      30:     dotab = y_tab;
      31:     dorevert = doend = donewrec = y_wnew;
      32:     if(pars_f()) err(errflag,F_ERFMT,wdfe)
      33:     fmt_bg();
      34:     return(OK);
      35: }
      36:
      37: e_wdfe()
      38: {
      39:     en_fio();
      40:     return(OK);
      41: }
      42:
      43: LOCAL
      44: y_putc(c)
      45: {
      46:     if(curunit->url!=1 && recpos++ >= curunit->url) err(errflag,F_EREREC,wdfe)
      47:     putc(c,cf);
      48:     return(OK);
      49: }
      50:
      51: LOCAL
      52: y_wnew()
      53: {   if(curunit->url != 1)
      54:     {   if(reclen > recpos)
      55:         {   fseek(cf,(long)(reclen-recpos),1);
      56:             recpos = reclen;
      57:         }
      58:         while(recpos < curunit->url) (*putn)(' ');
      59:         recnum++;
      60:         recpos = reclen = cursor = 0;
      61:     }
      62:     return(OK);
      63: }

#### Defined functions

e_wdfe defined in line 37; never used
s_wdfe defined in line 20; never used
y_putc defined in line 43; used 2 times

- in line 16, 27

y_wnew defined in line 51; used 2 times

- in line 16, 31

#### Defined variables

wdfe defined in line 18; used 4 times

- in line 24-26(2), 32, 46

Last modified: 1987-02-18 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 643 |