home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2J (Developer) / os42jdev.iso / NextDeveloper / Source / GNU / uucp / Uucp.framework / uuconf.subproj / tport.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-10-09  |  7.4 KB  |  300 lines
  1. /* tport.c
  2.    Find a port in the Taylor UUCP configuration files.
  3.  
  4.    Copyright (C) 1992, 1993 Ian Lance Taylor
  5.  
  6.    This file is part of the Taylor UUCP uuconf library.
  7.  
  8.    This library is free software; you can redistribute it and/or
  9.    modify it under the terms of the GNU Library General Public License
  10.    as published by the Free Software Foundation; either version 2 of
  11.    the License, or (at your option) any later version.
  12.  
  13.    This library is distributed in the hope that it will be useful, but
  14.    WITHOUT ANY WARRANTY; without even the implied warranty of
  15.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16.    Library General Public License for more details.
  17.  
  18.    You should have received a copy of the GNU Library General Public
  19.    License along with this library; if not, write to the Free Software
  20.    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  21.  
  22.    The author of the program may be contacted at ian@airs.com or
  23.    c/o Cygnus Support, 48 Grove Street, Somerville, MA 02144.
  24.    */
  25.  
  26. #include "uucnfi.h"
  27.  
  28. #if USE_RCS_ID
  29. const char _uuconf_tport_rcsid[] = "$Id: tport.c,v 1.9 1995/06/21 19:24:48 ian Rel $";
  30. #endif
  31.  
  32. #include <errno.h>
  33.  
  34. static int ipport P((pointer pglobal, int argc, char **argv, pointer pvar,
  35.              pointer pinfo));
  36. static int ipunknown P((pointer pglobal, int argc, char **argv,
  37.             pointer pvar, pointer pinfo));
  38.  
  39. /* Find a port in the Taylor UUCP configuration files by name, baud
  40.    rate, and special purpose function.  */
  41.  
  42. int
  43. uuconf_taylor_find_port (pglobal, zname, ibaud, ihighbaud, pifn, pinfo,
  44.              qport)
  45.      pointer pglobal;
  46.      const char *zname;
  47.      long ibaud;
  48.      long ihighbaud;
  49.      int (*pifn) P((struct uuconf_port *, pointer));
  50.      pointer pinfo;
  51.      struct uuconf_port *qport;
  52. {
  53.   struct sglobal *qglobal = (struct sglobal *) pglobal;
  54.   FILE *e;
  55.   pointer pblock;
  56.   char *zfree;
  57.   int iret;
  58.   char **pz;
  59.  
  60.   if (ihighbaud == 0L)
  61.     ihighbaud = ibaud;
  62.  
  63.   e = NULL;
  64.   pblock = NULL;
  65.   zfree = NULL;
  66.   iret = UUCONF_NOT_FOUND;
  67.  
  68.   for (pz = qglobal->qprocess->pzportfiles; *pz != NULL; pz++)
  69.     {
  70.       struct uuconf_cmdtab as[2];
  71.       char *zport;
  72.       struct uuconf_port sdefault;
  73.       int ilineno;
  74.  
  75.       e = fopen (*pz, "r");
  76.       if (e == NULL)
  77.     {
  78.       if (FNO_SUCH_FILE ())
  79.         continue;
  80.       qglobal->ierrno = errno;
  81.       iret = UUCONF_FOPEN_FAILED | UUCONF_ERROR_ERRNO;
  82.       break;
  83.     }
  84.  
  85.       qglobal->ilineno = 0;
  86.  
  87.       /* Gather the default information from the top of the file.  We
  88.      do this by handling the "port" command ourselves and passing
  89.      every other command to _uuconf_iport_cmd via ipunknown.  The
  90.      value of zport will be an malloc block.  */
  91.       as[0].uuconf_zcmd = "port";
  92.       as[0].uuconf_itype = UUCONF_CMDTABTYPE_FN | 2;
  93.       as[0].uuconf_pvar = (pointer) &zport;
  94.       as[0].uuconf_pifn = ipport;
  95.  
  96.       as[1].uuconf_zcmd = NULL;
  97.  
  98.       pblock = uuconf_malloc_block ();
  99.       if (pblock == NULL)
  100.     {
  101.       qglobal->ierrno = errno;
  102.       iret = UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO;
  103.       break;
  104.     }
  105.  
  106.       _uuconf_uclear_port (&sdefault);
  107.       sdefault.uuconf_palloc = pblock;
  108.       zport = NULL;
  109.       iret = uuconf_cmd_file (pglobal, e, as, (pointer) &sdefault,
  110.                   ipunknown, UUCONF_CMDTABFLAG_BACKSLASH,
  111.                   pblock);
  112.       if (iret != UUCONF_SUCCESS)
  113.     {
  114.       zfree = zport;
  115.       break;
  116.     }
  117.  
  118.       /* Now skip until we find a port with a matching name.  If the
  119.      zname argument is NULL, we will have to read every port.  */
  120.       iret = UUCONF_NOT_FOUND;
  121.       while (zport != NULL)
  122.     {
  123.       uuconf_cmdtabfn piunknown;
  124.       boolean fmatch;
  125.  
  126.       if (zname == NULL || strcmp (zname, zport) == 0)
  127.         {
  128.           piunknown = ipunknown;
  129.           *qport = sdefault;
  130.           qport->uuconf_zname = zport;
  131.           zfree = zport;
  132.           fmatch = TRUE;
  133.         }
  134.       else
  135.         {
  136.           piunknown = NULL;
  137.           free ((pointer) zport);
  138.           fmatch = FALSE;
  139.         }
  140.  
  141.       zport = NULL;
  142.       ilineno = qglobal->ilineno;
  143.       iret = uuconf_cmd_file (pglobal, e, as, (pointer) qport,
  144.                   piunknown, UUCONF_CMDTABFLAG_BACKSLASH,
  145.                   pblock);
  146.       qglobal->ilineno += ilineno;
  147.       if (iret != UUCONF_SUCCESS)
  148.         break;
  149.       iret = UUCONF_NOT_FOUND;
  150.  
  151.       /* We may have just gathered information about a port.  See
  152.          if it matches the name, the baud rate and the special
  153.          function.  */
  154.       if (fmatch)
  155.         {
  156.           if (ibaud != 0)
  157.         {
  158.           if (qport->uuconf_ttype == UUCONF_PORTTYPE_MODEM)
  159.             {
  160.               long imbaud, imhigh, imlow;
  161.  
  162.               imbaud = qport->uuconf_u.uuconf_smodem.uuconf_ibaud;
  163.               imhigh = qport->uuconf_u.uuconf_smodem.uuconf_ihighbaud;
  164.               imlow = qport->uuconf_u.uuconf_smodem.uuconf_ilowbaud;
  165.  
  166.               if (imbaud == 0 && imlow == 0)
  167.             ;
  168.               else if (ibaud <= imbaud && imbaud <= ihighbaud)
  169.             ;
  170.               else if (imlow != 0
  171.                    && imlow <= ihighbaud
  172.                    && imhigh >= ibaud)
  173.             ;
  174.               else
  175.             fmatch = FALSE;
  176.             }
  177.           else if (qport->uuconf_ttype == UUCONF_PORTTYPE_DIRECT)
  178.             {
  179.               long idbaud;
  180.  
  181.               idbaud = qport->uuconf_u.uuconf_sdirect.uuconf_ibaud;
  182.               if (idbaud != 0 && idbaud != ibaud)
  183.             fmatch = FALSE;
  184.             }
  185.         }
  186.         }
  187.  
  188.       if (fmatch)
  189.         {
  190.           if (pifn != NULL)
  191.         {
  192.           iret = (*pifn) (qport, pinfo);
  193.           if (iret == UUCONF_NOT_FOUND)
  194.             fmatch = FALSE;
  195.           else if (iret != UUCONF_SUCCESS)
  196.             break;
  197.         }
  198.         }
  199.  
  200.       if (fmatch)
  201.         {
  202.           if (uuconf_add_block (pblock, zfree) == 0)
  203.         {
  204.           zfree = NULL;
  205.           iret = UUCONF_SUCCESS;
  206.         }
  207.           else
  208.         {
  209.           qglobal->ierrno = errno;
  210.           iret = UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO;
  211.         }
  212.           break;
  213.         }
  214.  
  215.       if (zfree != NULL)
  216.         {
  217.           free ((pointer) zfree);
  218.           zfree = NULL;
  219.         }
  220.     }
  221.  
  222.       (void) fclose (e);
  223.       e = NULL;
  224.  
  225.       if (iret != UUCONF_NOT_FOUND)
  226.     break;
  227.  
  228.       uuconf_free_block (pblock);
  229.       pblock = NULL;
  230.     }
  231.  
  232.   if (e != NULL)
  233.     (void) fclose (e);
  234.   if (zfree != NULL)
  235.     free ((pointer) zfree);
  236.   if (iret != UUCONF_SUCCESS && pblock != NULL)
  237.     uuconf_free_block (pblock);
  238.  
  239.   if (iret != UUCONF_SUCCESS && iret != UUCONF_NOT_FOUND)
  240.     {
  241.       qglobal->zfilename = *pz;
  242.       iret |= UUCONF_ERROR_FILENAME;
  243.     }
  244.  
  245.   return iret;
  246. }
  247.  
  248. /* Handle a "port" command.  This copies the string onto the heap and
  249.    returns the pointer in *pvar.  It returns UUCONF_CMDTABRET_EXIT to
  250.    force uuconf_cmd_file to stop reading and return to the code above,
  251.    which will then check the port just read to see if it matches.  */
  252.  
  253. /*ARGSUSED*/
  254. static int
  255. ipport (pglobal, argc, argv, pvar, pinfo)
  256.      pointer pglobal;
  257.      int argc;
  258.      char **argv;
  259.      pointer pvar;
  260.      pointer pinfo;
  261. {
  262.   struct sglobal *qglobal = (struct sglobal *) pglobal;
  263.   char **pz = (char **) pvar;
  264.   size_t csize;
  265.  
  266.   csize = strlen (argv[1]) + 1;
  267.   *pz = malloc (csize);
  268.   if (*pz == NULL)
  269.     {
  270.       qglobal->ierrno = errno;
  271.       return (UUCONF_MALLOC_FAILED
  272.           | UUCONF_ERROR_ERRNO
  273.           | UUCONF_CMDTABRET_EXIT);
  274.     }
  275.   memcpy ((pointer) *pz, (pointer) argv[1], csize);
  276.   return UUCONF_CMDTABRET_EXIT;
  277. }
  278.  
  279. /* Handle an unknown command by passing it on to _uuconf_iport_cmd,
  280.    which will parse it into the port structure. */
  281.  
  282. /*ARGSUSED*/
  283. static int
  284. ipunknown (pglobal, argc, argv, pvar, pinfo)
  285.      pointer pglobal;
  286.      int argc;
  287.      char **argv;
  288.      pointer pvar;
  289.      pointer pinfo;
  290. {
  291.   struct sglobal *qglobal = (struct sglobal *) pglobal;
  292.   struct uuconf_port *qport = (struct uuconf_port *) pinfo;
  293.   int iret;
  294.  
  295.   iret = _uuconf_iport_cmd (qglobal, argc, argv, qport);
  296.   if (UUCONF_ERROR_VALUE (iret) != UUCONF_SUCCESS)
  297.     iret |= UUCONF_CMDTABRET_EXIT;
  298.   return iret;
  299. }
  300.