home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2J (Developer) / os42jdev.iso / NextDeveloper / Source / GNU / uucp / Uucp.framework / uuconf.subproj / rdlocs.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-10-09  |  7.9 KB  |  306 lines
  1. /* rdlocs.c
  2.    Get the locations of systems 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_rdlocs_rcsid[] = "$Id: rdlocs.c,v 1.7 1995/06/21 19:23:52 ian Rel $";
  30. #endif
  31.  
  32. #include <errno.h>
  33.  
  34. static int itsystem P((pointer pglobal, int argc, char **argv,
  35.                pointer pvar, pointer pinfo));
  36. static int itcalled_login P((pointer pglobal, int argc, char **argv,
  37.                  pointer pvar, pointer pinfo));
  38. static int itmyname P((pointer pglobal, int argc, char **argv,
  39.                pointer pvar, pointer pinfo));
  40.  
  41. /* This code scans through the Taylor UUCP system files in order to
  42.    locate each system and to gather the login restrictions (since this
  43.    information is held in additional arguments to the "called-login"
  44.    command, it can appear anywhere in the systems files).  It also
  45.    records whether any "myname" appears, as an optimization for
  46.    uuconf_taylor_localname.
  47.  
  48.    This table is used to dispatch the appropriate commands.  Most
  49.    commands are simply ignored.  Note that this is a uuconf_cmdtab,
  50.    not a cmdtab_offset.  */
  51.  
  52. static const struct uuconf_cmdtab asTcmds[] =
  53. {
  54.   { "system", UUCONF_CMDTABTYPE_FN | 2, NULL, itsystem },
  55.   { "alias", UUCONF_CMDTABTYPE_FN | 2, (pointer) asTcmds, itsystem },
  56.   { "called-login", UUCONF_CMDTABTYPE_FN | 0, NULL, itcalled_login },
  57.   { "myname", UUCONF_CMDTABTYPE_FN | 2, NULL, itmyname },
  58.   { NULL, 0, NULL, NULL }
  59. };
  60.  
  61. /* This structure is used to pass information into the command table
  62.    functions.  */
  63.  
  64. struct sinfo
  65. {
  66.   /* The sys file name.  */
  67.   const char *zname;
  68.   /* The open sys file.  */
  69.   FILE *e;
  70.   /* The list of locations we are building.  */
  71.   struct stsysloc *qlocs;
  72.   /* The list of validation restrictions we are building.  */
  73.   struct svalidate *qvals;
  74. };
  75.  
  76. /* Look through the sys files to find the location and names of all
  77.    the systems.  Since we're scanning the sys files, we also record
  78.    the validation information specified by the additional arguments to
  79.    the called-login command.  We don't use uuconf_cmd_file to avoid
  80.    the overhead of breaking the line up into arguments if not
  81.    necessary.  */
  82.  
  83. int
  84. _uuconf_iread_locations (qglobal)
  85.      struct sglobal *qglobal;
  86. {
  87.   char *zline;
  88.   size_t cline;
  89.   struct sinfo si;
  90.   int iret;
  91.   char **pz;
  92.  
  93.   if (qglobal->qprocess->fread_syslocs)
  94.     return UUCONF_SUCCESS;
  95.  
  96.   zline = NULL;
  97.   cline = 0;
  98.  
  99.   si.qlocs = NULL;
  100.   si.qvals = NULL;
  101.  
  102.   iret = UUCONF_SUCCESS;
  103.  
  104.   for (pz = qglobal->qprocess->pzsysfiles; *pz != NULL; pz++)
  105.     {
  106.       FILE *e;
  107.       int cchars;
  108.  
  109.       qglobal->ilineno = 0;
  110.  
  111.       e = fopen (*pz, "r");
  112.       if (e == NULL)
  113.     {
  114.       if (FNO_SUCH_FILE ())
  115.         continue;
  116.       qglobal->ierrno = errno;
  117.       iret = UUCONF_FOPEN_FAILED | UUCONF_ERROR_ERRNO;
  118.       break;
  119.     }
  120.  
  121. #ifdef CLOSE_ON_EXEC
  122.       CLOSE_ON_EXEC (e);
  123. #endif
  124.  
  125.       si.zname = *pz;
  126.       si.e = e;
  127.  
  128.       while ((cchars = _uuconf_getline (qglobal, &zline, &cline, e)) > 0)
  129.     {
  130.       char *zcmd;
  131.  
  132.       ++qglobal->ilineno;
  133.  
  134.       zcmd = zline + strspn (zline, " \t");
  135.       if (strncasecmp (zcmd, "system", sizeof "system" - 1) == 0
  136.           || strncasecmp (zcmd, "alias", sizeof "alias" - 1) == 0
  137.           || strncasecmp (zcmd, "called-login",
  138.                   sizeof "called-login" - 1) == 0
  139.           || strncasecmp (zcmd, "myname", sizeof "myname" - 1) == 0)
  140.         {
  141.           iret = uuconf_cmd_line ((pointer) qglobal, zline, asTcmds,
  142.                       (pointer) &si, (uuconf_cmdtabfn) NULL,
  143.                       0, qglobal->pblock);
  144.           if ((iret & UUCONF_CMDTABRET_KEEP) != 0)
  145.         {
  146.           iret &=~ UUCONF_CMDTABRET_KEEP;
  147.           zline = NULL;
  148.           cline = 0;
  149.         }
  150.           if (iret != UUCONF_SUCCESS)
  151.         {
  152.           iret &=~ UUCONF_CMDTABRET_EXIT;
  153.           break;
  154.         }
  155.         }
  156.     }
  157.  
  158.       if (iret != UUCONF_SUCCESS)
  159.     break;
  160.     }
  161.  
  162.   if (zline != NULL)
  163.     free ((pointer) zline);
  164.  
  165.   if (iret != UUCONF_SUCCESS)
  166.     {
  167.       qglobal->zfilename = *pz;
  168.       iret |= UUCONF_ERROR_FILENAME | UUCONF_ERROR_LINENO;
  169.       if (UUCONF_ERROR_VALUE (iret) != UUCONF_MALLOC_FAILED)
  170.     qglobal->qprocess->fread_syslocs = TRUE;
  171.     }
  172.   else
  173.     {
  174.       qglobal->qprocess->qsyslocs = si.qlocs;
  175.       qglobal->qprocess->qvalidate = si.qvals;
  176.       qglobal->qprocess->fread_syslocs = TRUE;
  177.     }    
  178.  
  179.   return iret;
  180. }
  181.  
  182. /* Handle a "system" or "alias" command by recording the file and
  183.    location.  If pvar is not NULL, this is an "alias" command.  */
  184.  
  185. /*ARGSUSED*/
  186. static int
  187. itsystem (pglobal, argc, argv, pvar, pinfo)
  188.      pointer pglobal;
  189.      int argc;
  190.      char **argv;
  191.      pointer pvar;
  192.      pointer pinfo;
  193. {
  194.   struct sglobal *qglobal = (struct sglobal *) pglobal;
  195.   struct sinfo *qinfo = (struct sinfo *) pinfo;
  196.   struct stsysloc *q;
  197.   size_t csize;
  198.  
  199.   q = (struct stsysloc *) uuconf_malloc (qglobal->pblock,
  200.                      sizeof (struct stsysloc));
  201.   if (q == NULL)
  202.     {
  203.       qglobal->ierrno = errno;
  204.       return (UUCONF_MALLOC_FAILED
  205.           | UUCONF_ERROR_ERRNO
  206.           | UUCONF_CMDTABRET_EXIT);
  207.     }
  208.  
  209.   csize = strlen (argv[1]) + 1;
  210.   q->zname = uuconf_malloc (qglobal->pblock, csize);
  211.   if (q->zname == NULL)
  212.     {
  213.       qglobal->ierrno = errno;
  214.       return (UUCONF_MALLOC_FAILED
  215.           | UUCONF_ERROR_ERRNO
  216.           | UUCONF_CMDTABRET_EXIT);
  217.     }
  218.  
  219.   q->qnext = qinfo->qlocs;
  220.   memcpy ((pointer) q->zname, (pointer) argv[1], csize);
  221.   q->falias = pvar != NULL;
  222.   q->zfile = qinfo->zname;
  223.   q->e = qinfo->e;
  224.   q->iloc = ftell (qinfo->e);
  225.   q->ilineno = qglobal->ilineno;
  226.  
  227.   qinfo->qlocs = q;
  228.  
  229.   return UUCONF_CMDTABRET_CONTINUE;
  230. }
  231.  
  232. /* Handle the "called-login" command.  This just records any extra
  233.    arguments, so that uuconf_validate can check them later if
  234.    necessary.  */
  235.  
  236. /*ARGSUSED*/
  237. static int
  238. itcalled_login (pglobal, argc, argv, pvar, pinfo)
  239.      pointer pglobal;
  240.      int argc;
  241.      char **argv;
  242.      pointer pvar;
  243.      pointer pinfo;
  244. {
  245.   struct sglobal *qglobal = (struct sglobal *) pglobal;
  246.   struct sinfo *qinfo = (struct sinfo *) pinfo;
  247.   register struct svalidate *qval;
  248.   int i;
  249.  
  250.   if (argc <= 2)
  251.     return UUCONF_CMDTABRET_CONTINUE;
  252.  
  253.   for (qval = qinfo->qvals; qval != NULL; qval = qval->qnext)
  254.     if (strcmp (argv[1], qval->zlogname) == 0)
  255.       break;
  256.  
  257.   if (qval == NULL)
  258.     {
  259.       qval = (struct svalidate *) uuconf_malloc (qglobal->pblock,
  260.                          sizeof (struct svalidate));
  261.       if (qval == NULL)
  262.     {
  263.       qglobal->ierrno = errno;
  264.       return (UUCONF_MALLOC_FAILED
  265.           | UUCONF_ERROR_ERRNO
  266.           | UUCONF_CMDTABRET_EXIT);
  267.     }
  268.  
  269.       qval->qnext = qinfo->qvals;
  270.       qval->zlogname = argv[1];
  271.       qval->pzmachines = NULL;
  272.  
  273.       qinfo->qvals = qval;
  274.     }
  275.  
  276.   for (i = 2; i < argc; i++)
  277.     {
  278.       int iret;
  279.  
  280.       iret = _uuconf_iadd_string (qglobal, argv[i], FALSE, TRUE,
  281.                   &qval->pzmachines, qglobal->pblock);
  282.       if (iret != UUCONF_SUCCESS)
  283.     return iret | UUCONF_CMDTABRET_EXIT;
  284.     }
  285.  
  286.   return UUCONF_CMDTABRET_KEEP;
  287. }
  288.  
  289. /* Handle the "myname" command by simply recording that it appears.
  290.    This information is used by uuconf_taylor_localname.  */
  291.  
  292. /*ARGSUSED*/
  293. static int
  294. itmyname (pglobal, argc, argv, pvar, pinfo)
  295.      pointer pglobal;
  296.      int argc;
  297.      char **argv;
  298.      pointer pvar;
  299.      pointer pinfo;
  300. {
  301.   struct sglobal *qglobal = (struct sglobal *) pglobal;
  302.  
  303.   qglobal->qprocess->fuses_myname = TRUE;
  304.   return UUCONF_CMDTABRET_CONTINUE;
  305. }
  306.