Deploy the new <ctype.h> and `foocmp' macros from mLib.
[catacomb] / progs / cc-list.c
CommitLineData
c65df279 1/* -*-c-*-
2 *
c65df279 3 * Emit lists of things in tables
4 *
5 * (c) 2004 Straylight/Edgeware
6 */
7
45c0fd36 8/*----- Licensing notice --------------------------------------------------*
c65df279 9 *
10 * This file is part of Catacomb.
11 *
12 * Catacomb is free software; you can redistribute it and/or modify
13 * it under the terms of the GNU Library General Public License as
14 * published by the Free Software Foundation; either version 2 of the
15 * License, or (at your option) any later version.
45c0fd36 16 *
c65df279 17 * Catacomb is distributed in the hope that it will be useful,
18 * but WITHOUT ANY WARRANTY; without even the implied warranty of
19 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 * GNU Library General Public License for more details.
45c0fd36 21 *
c65df279 22 * You should have received a copy of the GNU Library General Public
23 * License along with Catacomb; if not, write to the Free
24 * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
25 * MA 02111-1307, USA.
26 */
27
28/*----- Header files ------------------------------------------------------*/
29
cd6eca43
MW
30#define _FILE_OFFSET_BITS 64
31
141c1284 32#include <mLib/macros.h>
c65df279 33#include <mLib/report.h>
34
35#include "cc.h"
36
37/*----- Main code ---------------------------------------------------------*/
38
39/* --- @displaylists@ --- *
40 *
41 * Arguments: @const struct listent *listtab@ = table of lists to show
42 * @char *const argv[]@ = list of lists to show
43 *
44 * Returns: Nonzero if anything failed.
45 *
46 * Use: Dumps the named lists, or all of them.
47 */
48
49int displaylists(const struct listent *listtab, char *const argv[])
50{
51 const struct listent *li;
52 int i;
53 int rc = 0;
54
55 if (!argv || !*argv) {
56 for (li = listtab; li->name; li++)
57 li->list();
58 } else {
59 for (i = 0; argv[i]; i++) {
60 for (li = listtab; li->name; li++) {
141c1284 61 if (STRCMP(li->name, ==, argv[i])) {
c65df279 62 li->list();
63 goto cool;
64 }
65 }
66 moan("unknown list `%s'", argv[i]);
67 rc = 1;
68 cool:;
69 }
70 }
71 return (rc);
72}
73
74/*----- That's all, folks -------------------------------------------------*/