workbench/network/stacks/AROSTCP/netlib/iomode.c

   1 /* $Id$
   2  *
   3  *      iomode.c - set file io mode (normal or translated) (SAS/C)
   4  *
   5  *      Copyright © 1994 AmiTCP/IP Group,
   6  *                       Network Solutions Development Inc.
   7  *                       All rights reserved.
   8  */
   9
  10 #include <ios1.h>
  11 #include <stdlib.h>
  12
  13 int
  14 iomode(int fd, int mode)
  15 {
  16   struct UFB *ufb;
  17
  18   /*
  19    * find the ufb *
  20    */
  21   if ((ufb = __chkufb(fd)) == NULL) {
  22     return -1;
  23   }
  24   /*
  25    * Set the translation mode
  26    *
  27    * mode == 0 - translate mode on
  28    * mode == 1 - translate mode off
  29    */
  30   if (mode)
  31     ufb->ufbflg &= ~UFB_XLAT;
  32   else
  33     ufb->ufbflg |= UFB_XLAT;
  34
  35   return 0;
  36 }