1*6d38604fSBaptiste Daroussin /* $Id: soelim.c,v 1.6 2021/09/19 18:14:24 schwarze Exp $ */
261d06d6bSBaptiste Daroussin /*
361d06d6bSBaptiste Daroussin * Copyright (c) 2014 Baptiste Daroussin <bapt@FreeBSD.org>
461d06d6bSBaptiste Daroussin * All rights reserved.
561d06d6bSBaptiste Daroussin *
661d06d6bSBaptiste Daroussin * Redistribution and use in source and binary forms, with or without
761d06d6bSBaptiste Daroussin * modification, are permitted provided that the following conditions
861d06d6bSBaptiste Daroussin * are met:
961d06d6bSBaptiste Daroussin * 1. Redistributions of source code must retain the above copyright
1061d06d6bSBaptiste Daroussin * notice, this list of conditions and the following disclaimer
1161d06d6bSBaptiste Daroussin * in this position and unchanged.
1261d06d6bSBaptiste Daroussin * 2. Redistributions in binary form must reproduce the above copyright
1361d06d6bSBaptiste Daroussin * notice, this list of conditions and the following disclaimer in the
1461d06d6bSBaptiste Daroussin * documentation and/or other materials provided with the distribution.
1561d06d6bSBaptiste Daroussin *
1661d06d6bSBaptiste Daroussin * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) ``AS IS'' AND ANY EXPRESS OR
1761d06d6bSBaptiste Daroussin * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
1861d06d6bSBaptiste Daroussin * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
1961d06d6bSBaptiste Daroussin * IN NO EVENT SHALL THE AUTHOR(S) BE LIABLE FOR ANY DIRECT, INDIRECT,
2061d06d6bSBaptiste Daroussin * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
2161d06d6bSBaptiste Daroussin * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
2261d06d6bSBaptiste Daroussin * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
2361d06d6bSBaptiste Daroussin * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
2461d06d6bSBaptiste Daroussin * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
2561d06d6bSBaptiste Daroussin * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
2661d06d6bSBaptiste Daroussin */
2761d06d6bSBaptiste Daroussin #include "config.h"
2861d06d6bSBaptiste Daroussin
2961d06d6bSBaptiste Daroussin #include <sys/types.h>
3061d06d6bSBaptiste Daroussin
3161d06d6bSBaptiste Daroussin #include <ctype.h>
3261d06d6bSBaptiste Daroussin #if HAVE_ERR
3361d06d6bSBaptiste Daroussin #include <err.h>
3461d06d6bSBaptiste Daroussin #endif
3561d06d6bSBaptiste Daroussin #include <limits.h>
3661d06d6bSBaptiste Daroussin #include <stdio.h>
3761d06d6bSBaptiste Daroussin #include <stdlib.h>
3861d06d6bSBaptiste Daroussin #include <string.h>
3961d06d6bSBaptiste Daroussin #if HAVE_STRINGLIST
4061d06d6bSBaptiste Daroussin #include <stringlist.h>
4161d06d6bSBaptiste Daroussin #else
4261d06d6bSBaptiste Daroussin #include "compat_stringlist.h"
4361d06d6bSBaptiste Daroussin #endif
4461d06d6bSBaptiste Daroussin #include <unistd.h>
4561d06d6bSBaptiste Daroussin
4661d06d6bSBaptiste Daroussin #define C_OPTION 0x1
4761d06d6bSBaptiste Daroussin
4861d06d6bSBaptiste Daroussin static StringList *includes;
4961d06d6bSBaptiste Daroussin
5061d06d6bSBaptiste Daroussin static void
usage(void)5161d06d6bSBaptiste Daroussin usage(void)
5261d06d6bSBaptiste Daroussin {
5361d06d6bSBaptiste Daroussin
5461d06d6bSBaptiste Daroussin fprintf(stderr, "usage: soelim [-Crtv] [-I dir] [files]\n");
5561d06d6bSBaptiste Daroussin
5661d06d6bSBaptiste Daroussin exit(EXIT_FAILURE);
5761d06d6bSBaptiste Daroussin }
5861d06d6bSBaptiste Daroussin
5961d06d6bSBaptiste Daroussin static FILE *
soelim_fopen(const char * name)6061d06d6bSBaptiste Daroussin soelim_fopen(const char *name)
6161d06d6bSBaptiste Daroussin {
6261d06d6bSBaptiste Daroussin FILE *f;
6361d06d6bSBaptiste Daroussin char path[PATH_MAX];
6461d06d6bSBaptiste Daroussin size_t i;
6561d06d6bSBaptiste Daroussin
6661d06d6bSBaptiste Daroussin if (strcmp(name, "-") == 0)
6761d06d6bSBaptiste Daroussin return (stdin);
6861d06d6bSBaptiste Daroussin
6961d06d6bSBaptiste Daroussin if ((f = fopen(name, "r")) != NULL)
7061d06d6bSBaptiste Daroussin return (f);
7161d06d6bSBaptiste Daroussin
7261d06d6bSBaptiste Daroussin if (*name == '/') {
7361d06d6bSBaptiste Daroussin warn("can't open '%s'", name);
7461d06d6bSBaptiste Daroussin return (NULL);
7561d06d6bSBaptiste Daroussin }
7661d06d6bSBaptiste Daroussin
7761d06d6bSBaptiste Daroussin for (i = 0; i < includes->sl_cur; i++) {
7861d06d6bSBaptiste Daroussin snprintf(path, sizeof(path), "%s/%s", includes->sl_str[i],
7961d06d6bSBaptiste Daroussin name);
8061d06d6bSBaptiste Daroussin if ((f = fopen(path, "r")) != NULL)
8161d06d6bSBaptiste Daroussin return (f);
8261d06d6bSBaptiste Daroussin }
8361d06d6bSBaptiste Daroussin
8461d06d6bSBaptiste Daroussin warn("can't open '%s'", name);
8561d06d6bSBaptiste Daroussin
8661d06d6bSBaptiste Daroussin return (f);
8761d06d6bSBaptiste Daroussin }
8861d06d6bSBaptiste Daroussin
8961d06d6bSBaptiste Daroussin static int
soelim_file(FILE * f,int flag)9061d06d6bSBaptiste Daroussin soelim_file(FILE *f, int flag)
9161d06d6bSBaptiste Daroussin {
9261d06d6bSBaptiste Daroussin char *line = NULL;
9361d06d6bSBaptiste Daroussin char *walk, *cp;
9461d06d6bSBaptiste Daroussin size_t linecap = 0;
9561d06d6bSBaptiste Daroussin ssize_t linelen;
9661d06d6bSBaptiste Daroussin
9761d06d6bSBaptiste Daroussin if (f == NULL)
9861d06d6bSBaptiste Daroussin return (1);
9961d06d6bSBaptiste Daroussin
10061d06d6bSBaptiste Daroussin while ((linelen = getline(&line, &linecap, f)) > 0) {
10161d06d6bSBaptiste Daroussin if (strncmp(line, ".so", 3) != 0) {
10261d06d6bSBaptiste Daroussin printf("%s", line);
10361d06d6bSBaptiste Daroussin continue;
10461d06d6bSBaptiste Daroussin }
10561d06d6bSBaptiste Daroussin
10661d06d6bSBaptiste Daroussin walk = line + 3;
107*6d38604fSBaptiste Daroussin if (!isspace((unsigned char)*walk) && (flag & C_OPTION) == 0) {
10861d06d6bSBaptiste Daroussin printf("%s", line);
10961d06d6bSBaptiste Daroussin continue;
11061d06d6bSBaptiste Daroussin }
11161d06d6bSBaptiste Daroussin
112*6d38604fSBaptiste Daroussin while (isspace((unsigned char)*walk))
11361d06d6bSBaptiste Daroussin walk++;
11461d06d6bSBaptiste Daroussin
11561d06d6bSBaptiste Daroussin cp = walk;
116*6d38604fSBaptiste Daroussin while (*cp != '\0' && !isspace((unsigned char)*cp))
11761d06d6bSBaptiste Daroussin cp++;
11861d06d6bSBaptiste Daroussin *cp = 0;
11961d06d6bSBaptiste Daroussin if (cp < line + linelen)
12061d06d6bSBaptiste Daroussin cp++;
12161d06d6bSBaptiste Daroussin
12261d06d6bSBaptiste Daroussin if (*walk == '\0') {
12361d06d6bSBaptiste Daroussin printf("%s", line);
12461d06d6bSBaptiste Daroussin continue;
12561d06d6bSBaptiste Daroussin }
12661d06d6bSBaptiste Daroussin if (soelim_file(soelim_fopen(walk), flag) == 1) {
12761d06d6bSBaptiste Daroussin free(line);
12861d06d6bSBaptiste Daroussin return (1);
12961d06d6bSBaptiste Daroussin }
13061d06d6bSBaptiste Daroussin if (*cp != '\0')
13161d06d6bSBaptiste Daroussin printf("%s", cp);
13261d06d6bSBaptiste Daroussin }
13361d06d6bSBaptiste Daroussin
13461d06d6bSBaptiste Daroussin free(line);
13561d06d6bSBaptiste Daroussin fclose(f);
13661d06d6bSBaptiste Daroussin
13761d06d6bSBaptiste Daroussin return (0);
13861d06d6bSBaptiste Daroussin }
13961d06d6bSBaptiste Daroussin
14061d06d6bSBaptiste Daroussin int
main(int argc,char ** argv)14161d06d6bSBaptiste Daroussin main(int argc, char **argv)
14261d06d6bSBaptiste Daroussin {
14361d06d6bSBaptiste Daroussin int ch, i;
14461d06d6bSBaptiste Daroussin int ret = 0;
14561d06d6bSBaptiste Daroussin int flags = 0;
14661d06d6bSBaptiste Daroussin
14761d06d6bSBaptiste Daroussin includes = sl_init();
14861d06d6bSBaptiste Daroussin if (includes == NULL)
14961d06d6bSBaptiste Daroussin err(EXIT_FAILURE, "sl_init()");
15061d06d6bSBaptiste Daroussin
15161d06d6bSBaptiste Daroussin while ((ch = getopt(argc, argv, "CrtvI:")) != -1) {
15261d06d6bSBaptiste Daroussin switch (ch) {
15361d06d6bSBaptiste Daroussin case 'C':
15461d06d6bSBaptiste Daroussin flags |= C_OPTION;
15561d06d6bSBaptiste Daroussin break;
15661d06d6bSBaptiste Daroussin case 'r':
15761d06d6bSBaptiste Daroussin case 'v':
15861d06d6bSBaptiste Daroussin case 't':
15961d06d6bSBaptiste Daroussin /* stub compatibility with groff's soelim */
16061d06d6bSBaptiste Daroussin break;
16161d06d6bSBaptiste Daroussin case 'I':
16261d06d6bSBaptiste Daroussin sl_add(includes, optarg);
16361d06d6bSBaptiste Daroussin break;
16461d06d6bSBaptiste Daroussin default:
16561d06d6bSBaptiste Daroussin sl_free(includes, 0);
16661d06d6bSBaptiste Daroussin usage();
16761d06d6bSBaptiste Daroussin }
16861d06d6bSBaptiste Daroussin }
16961d06d6bSBaptiste Daroussin
17061d06d6bSBaptiste Daroussin argc -= optind;
17161d06d6bSBaptiste Daroussin argv += optind;
17261d06d6bSBaptiste Daroussin
17361d06d6bSBaptiste Daroussin if (argc == 0)
17461d06d6bSBaptiste Daroussin ret = soelim_file(stdin, flags);
17561d06d6bSBaptiste Daroussin
17661d06d6bSBaptiste Daroussin for (i = 0; i < argc; i++)
17761d06d6bSBaptiste Daroussin ret = soelim_file(soelim_fopen(argv[i]), flags);
17861d06d6bSBaptiste Daroussin
17961d06d6bSBaptiste Daroussin sl_free(includes, 0);
18061d06d6bSBaptiste Daroussin
18161d06d6bSBaptiste Daroussin return (ret);
18261d06d6bSBaptiste Daroussin }
183