1/* tsnams.c
2   Get all known system names from 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.
23   */
24
25#include "uucnfi.h"
26
27#if USE_RCS_ID
28const char _uuconf_tsnams_rcsid[] = "$Id: tsnams.c,v 1.6 2002/03/05 19:10:43 ian Rel $";
29#endif
30
31/* Get all the system names from the Taylor UUCP configuration files.
32   These were actually already recorded by uuconf_taylor_init, so this
33   function is pretty simple.  */
34
35int
36uuconf_taylor_system_names (pglobal, ppzsystems, falias)
37     pointer pglobal;
38     char ***ppzsystems;
39     int falias;
40{
41  struct sglobal *qglobal = (struct sglobal *) pglobal;
42  int iret;
43  register struct stsysloc *q;
44  char **pz;
45  int c, i;
46
47  if (! qglobal->qprocess->fread_syslocs)
48    {
49      iret = _uuconf_iread_locations (qglobal);
50      if (iret != UUCONF_SUCCESS)
51	return iret;
52    }
53
54  *ppzsystems = NULL;
55  c = 0;
56
57  for (q = qglobal->qprocess->qsyslocs; q != NULL; q = q->qnext)
58    {
59      if (! falias && q->falias)
60	continue;
61
62      iret = _uuconf_iadd_string (qglobal, (char *) q->zname, TRUE, FALSE,
63				  ppzsystems, (pointer) NULL);
64      if (iret != UUCONF_SUCCESS)
65	return iret;
66      ++c;
67    }
68
69  /* The order of the qSyslocs list is reversed from the list in the
70     configuration files.  Reverse the returned list in order to make
71     uuname output more intuitive.  */
72  pz = *ppzsystems;
73  for (i = c / 2 - 1; i >= 0; i--)
74    {
75      char *zhold;
76
77      zhold = pz[i];
78      pz[i] = pz[c - i - 1];
79      pz[c - i - 1] = zhold;
80    }
81
82  return UUCONF_SUCCESS;
83}
84