1 #include "substdio.h"

     2 #include "str.h"

     3 #include "byte.h"

     4 #include "error.h"

     5 

     6 static int allwrite(op,fd,buf,len)

     7 register int (*op)();

     8 register int fd;

     9 register char *buf;

    10 register int len;

    11 {

    12   register int w;

    13 

    14   while (len) {

    15     w = op(fd,buf,len);

    16     if (w == -1) {

    17       if (errno == error_intr) continue;

    18       return -1; /* note that some data may have been written */

    19     }

    20     if (w == 0) ; /* luser's fault */

    21     buf += w;

    22     len -= w;

    23   }

    24   return 0;

    25 }

    26 

    27 int substdio_flush(s)

    28 register substdio *s;

    29 {

    30   register int p;

    31  

    32   p = s->p;

    33   if (!p) return 0;

    34   s->p = 0;

    35   return allwrite(s->op,s->fd,s->x,p);

    36 }

    37 

    38 int substdio_bput(s,buf,len)

    39 register substdio *s;

    40 register char *buf;

    41 register int len;

    42 {

    43   register int n;

    44  

    45   while (len > (n = s->n - s->p)) {

    46     byte_copy(s->x + s->p,n,buf); s->p += n; buf += n; len -= n;

    47     if (substdio_flush(s) == -1) return -1;

    48   }

    49   /* now len <= s->n - s->p */

    50   byte_copy(s->x + s->p,len,buf);

    51   s->p += len;

    52   return 0;

    53 }

    54 

    55 int substdio_put(s,buf,len)

    56 register substdio *s;

    57 register char *buf;

    58 register int len;

    59 {

    60   register int n;

    61  

    62   n = s->n;

    63   if (len > n - s->p) {

    64     if (substdio_flush(s) == -1) return -1;

    65     /* now s->p == 0 */

    66     if (n < SUBSTDIO_OUTSIZE) n = SUBSTDIO_OUTSIZE;

    67     while (len > s->n) {

    68       if (n > len) n = len;

    69       if (allwrite(s->op,s->fd,buf,n) == -1) return -1;

    70       buf += n;

    71       len -= n;

    72     }

    73   }

    74   /* now len <= s->n - s->p */

    75   byte_copy(s->x + s->p,len,buf);

    76   s->p += len;

    77   return 0;

    78 }

    79 

    80 int substdio_putflush(s,buf,len)

    81 register substdio *s;

    82 register char *buf;

    83 register int len;

    84 {

    85   if (substdio_flush(s) == -1) return -1;

    86   return allwrite(s->op,s->fd,buf,len);

    87 }

    88 

    89 int substdio_bputs(s,buf)

    90 register substdio *s;

    91 register char *buf;

    92 {

    93   return substdio_bput(s,buf,str_len(buf));

    94 }

    95 

    96 int substdio_puts(s,buf)

    97 register substdio *s;

    98 register char *buf;

    99 {

   100   return substdio_put(s,buf,str_len(buf));

   101 }

   102 

   103 int substdio_putsflush(s,buf)

   104 register substdio *s;

   105 register char *buf;

   106 {

   107   return substdio_putflush(s,buf,str_len(buf));

   108 }