home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2J (Developer) / os42jdev.iso / NextDeveloper / Source / GNU / uucp / Uucp.framework / uuconf.subproj / tdial.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-10-09  |  6.0 KB  |  228 lines
  1. /* tdial.c
  2.    Find a dialer in the Taylor UUCP configuration files.
  3.  
  4.    Copyright (C) 1992 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_tdial_rcsid[] = "$Id: tdial.c,v 1.6 1995/06/21 19:24:26 ian Rel $";
  30. #endif
  31.  
  32. #include <errno.h>
  33.  
  34. static int iddialer P((pointer pglobal, int argc, char **argv, pointer pvar,
  35.                pointer pinfo));
  36. static int idunknown P((pointer pglobal, int argc, char **argv, pointer pvar,
  37.             pointer pinfo));
  38.  
  39. /* Find a dialer in the Taylor UUCP configuration files by name.  */
  40.  
  41. int
  42. uuconf_taylor_dialer_info (pglobal, zname, qdialer)
  43.      pointer pglobal;
  44.      const char *zname;
  45.      struct uuconf_dialer *qdialer;
  46. {
  47.   struct sglobal *qglobal = (struct sglobal *) pglobal;
  48.   FILE *e;
  49.   pointer pblock;
  50.   int iret;
  51.   char **pz;
  52.  
  53.   e = NULL;
  54.   pblock = NULL;
  55.   iret = UUCONF_NOT_FOUND;
  56.  
  57.   for (pz = qglobal->qprocess->pzdialfiles; *pz != NULL; pz++)
  58.     {
  59.       struct uuconf_cmdtab as[2];
  60.       char *zdialer;
  61.       struct uuconf_dialer sdefault;
  62.       int ilineno;
  63.  
  64.       e = fopen (*pz, "r");
  65.       if (e == NULL)
  66.     {
  67.       if (FNO_SUCH_FILE ())
  68.         continue;
  69.       qglobal->ierrno = errno;
  70.       iret = UUCONF_FOPEN_FAILED | UUCONF_ERROR_ERRNO;
  71.       break;
  72.     }
  73.  
  74.       qglobal->ilineno = 0;
  75.  
  76.       /* Gather the default information from the top of the file.  We
  77.      do this by handling the "dialer" command ourselves and
  78.      passing every other command to _uuconf_idialer_cmd via
  79.      idunknown.  The value of zdialer will be an malloc block.  */
  80.       as[0].uuconf_zcmd = "dialer";
  81.       as[0].uuconf_itype = UUCONF_CMDTABTYPE_FN | 2;
  82.       as[0].uuconf_pvar = (pointer) &zdialer;
  83.       as[0].uuconf_pifn = iddialer;
  84.  
  85.       as[1].uuconf_zcmd = NULL;
  86.  
  87.       pblock = uuconf_malloc_block ();
  88.       if (pblock == NULL)
  89.     {
  90.       qglobal->ierrno = errno;
  91.       iret = UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO;
  92.       break;
  93.     }
  94.  
  95.       _uuconf_uclear_dialer (&sdefault);
  96.       sdefault.uuconf_palloc = pblock;
  97.       zdialer = NULL;
  98.       iret = uuconf_cmd_file (pglobal, e, as, (pointer) &sdefault,
  99.                   idunknown, UUCONF_CMDTABFLAG_BACKSLASH,
  100.                   pblock);
  101.  
  102.       /* Now skip until we find a dialer with a matching name.  */
  103.       while (iret == UUCONF_SUCCESS
  104.          && zdialer != NULL
  105.          && strcmp (zname, zdialer) != 0)
  106.     {
  107.       free ((pointer) zdialer);
  108.       zdialer = NULL;
  109.       ilineno = qglobal->ilineno;
  110.       iret = uuconf_cmd_file (pglobal, e, as, (pointer) NULL,
  111.                   (uuconf_cmdtabfn) NULL,
  112.                   UUCONF_CMDTABFLAG_BACKSLASH,
  113.                   pblock);
  114.       qglobal->ilineno += ilineno;
  115.     }
  116.  
  117.       if (iret != UUCONF_SUCCESS)
  118.     {
  119.       if (zdialer != NULL)
  120.         free ((pointer) zdialer);
  121.       break;
  122.     }
  123.  
  124.       if (zdialer != NULL)
  125.     {
  126.       size_t csize;
  127.  
  128.       /* We've found the dialer we're looking for.  Read the rest
  129.          of the commands for it.  */
  130.       as[0].uuconf_pvar = NULL;
  131.  
  132.       *qdialer = sdefault;
  133.       csize = strlen (zdialer) + 1;
  134.       qdialer->uuconf_zname = uuconf_malloc (pblock, csize);
  135.       if (qdialer->uuconf_zname == NULL)
  136.         {
  137.           qglobal->ierrno = errno;
  138.           free ((pointer) zdialer);
  139.           iret = UUCONF_MALLOC_FAILED | UUCONF_ERROR_ERRNO;
  140.           break;
  141.         }
  142.       memcpy ((pointer) qdialer->uuconf_zname, (pointer) zdialer,
  143.           csize);
  144.       free ((pointer) zdialer);
  145.  
  146.       ilineno = qglobal->ilineno;
  147.       iret = uuconf_cmd_file (pglobal, e, as, qdialer, idunknown,
  148.                   UUCONF_CMDTABFLAG_BACKSLASH, pblock);
  149.       qglobal->ilineno += ilineno;
  150.       break;
  151.     }
  152.  
  153.       (void) fclose (e);
  154.       e = NULL;
  155.       uuconf_free_block (pblock);
  156.       pblock = NULL;
  157.  
  158.       iret = UUCONF_NOT_FOUND;
  159.     }
  160.  
  161.   if (e != NULL)
  162.     (void) fclose (e);
  163.   if (iret != UUCONF_SUCCESS && pblock != NULL)
  164.     uuconf_free_block (pblock);
  165.  
  166.   if (iret != UUCONF_SUCCESS && iret != UUCONF_NOT_FOUND)
  167.     {
  168.       qglobal->zfilename = *pz;
  169.       iret |= UUCONF_ERROR_FILENAME;
  170.     }
  171.  
  172.   return iret;
  173. }
  174.  
  175. /* Handle a "dialer" command.  This copies the string onto the heap
  176.    and returns the pointer in *pvar, unless pvar is NULL.  It returns
  177.    UUCONF_CMDTABRET_EXIT to force _uuconf_icmd_file_internal to stop
  178.    reading and return to the code above, which will then check the
  179.    dialer name just read to see if it matches.  */
  180.  
  181. /*ARGSUSED*/
  182. static int
  183. iddialer (pglobal, argc, argv, pvar, pinfo)
  184.      pointer pglobal;
  185.      int argc;
  186.      char **argv;
  187.      pointer pvar;
  188.      pointer pinfo;
  189. {
  190.   struct sglobal *qglobal = (struct sglobal *) pglobal;
  191.   char **pz = (char **) pvar;
  192.  
  193.   if (pz != NULL)
  194.     {
  195.       size_t csize;
  196.  
  197.       csize = strlen (argv[1]) + 1;
  198.       *pz = malloc (csize);
  199.       if (*pz == NULL)
  200.     {
  201.       qglobal->ierrno = errno;
  202.       return (UUCONF_MALLOC_FAILED
  203.           | UUCONF_ERROR_ERRNO
  204.           | UUCONF_CMDTABRET_EXIT);
  205.     }
  206.       memcpy ((pointer) *pz, (pointer) argv[1], csize);
  207.     }
  208.   return UUCONF_CMDTABRET_EXIT;
  209. }
  210.  
  211. /* Handle an unknown command by passing it on to _uuconf_idialer_cmd,
  212.    which will parse it into the dialer structure. */
  213.  
  214. /*ARGSUSED*/
  215. static int
  216. idunknown (pglobal, argc, argv, pvar, pinfo)
  217.      pointer pglobal;
  218.      int argc;
  219.      char **argv;
  220.      pointer pvar;
  221.      pointer pinfo;
  222. {
  223.   struct sglobal *qglobal = (struct sglobal *) pglobal;
  224.   struct uuconf_dialer *qdialer = (struct uuconf_dialer *) pinfo;
  225.  
  226.   return _uuconf_idialer_cmd (qglobal, argc, argv, qdialer);
  227. }
  228.