gawk

command.c (6090B)

---

 /* Copyright 2021 Jacob R. Edwards
  *
  * This file is part of gawk.
  *
  * This program is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation, either version 3 of the License, or
  * (at your option) any later version.
  *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU General Public License for more details.
  *
  * You should have received a copy of the GNU General Public License
  * along with this program.  If not, see <https://www.gnu.org/licenses/>.
  */
 
 #include <errno.h>
 #include <libgen.h>
 #include <limits.h>
 #include <string.h>
 #include <unistd.h>
 
 #include "gawk.h"
 #include "net.h"
 #include "util.h"
 
 /*
  * NOTE: The second and last parameters of the commands should at
  * every level (of pointers) be treated as immutable.
  *
  * TODO: Figure out why `char **` -> `char const **` and the like
  * causes warnings and, if possible, make the second and last
  * parameters of commands truely immutable.
  */
 
 #define LOCAL	/* functions local to this file */
 
 char **
 itemtoaddr(char **request)
 {
         return request + 1;
 }
 
 LOCAL int
 type(int c, char const *types, int want)
 {
 	if (strchr(types, c) != NULL)
 		return !want;
 	else	return  want;
 }
 
 LOCAL int
 wtype(char const *argv0, int c, char const *types, int want)
 {
 	if (type(c, types, want) == 1) {
 		warn(0, "%s: '%c': Invalid type", argv0, c);
 		return 1;
 	}
 	return 0;
 }
 
 LOCAL int
 warg(int min, int max, int argc, char **ap)
 {
 	if (max > 0 && argc > max)
 		warn(0, "%s: '%s'... unused", *ap, ap[max]);
 	else if (min > 0 && argc < min)
 		warn(0, "%s: Not enough arguments", *ap);
 	else
 		return 0;
 	return 1;
 }
 
 int
 cextern(int argc, char **argv, int ino, char **item)
 {
 	char url[MY_URL_MAX];
 	int i;
 
 	if (warg(2, -1, argc, argv))
 		return FAIL;
 
 	snprintf(url, sizeof(url), "%s%s", item[GI_HOST], item[GI_PATH]);
 	for (i = 1; i < argc; ++i)
 		if (strcmp(argv[i], "%") == 0)
 			argv[i] = url;
 
 	switch (fork()) {
 	case -1:
 		warn(errno, "unable to fork");
 		return FAIL;
 	case 0:
 		++argv;
 		execvp(*argv, argv);
 		warn(errno, "execvp '%s'", *argv);
 		_exit(1);
 	}
 
 	return PASS;
 }
 
 LOCAL int
 timid_gopher(char **addr, char *path, int bin, int timeout)
 {
 	if (!exists(path))
 		return gopher(addr, path, bin, timeout);
 	warn(EEXIST, "not writing to '%s'", path);
 	return 1;
 }
 
 int
 cfetch(int argc, char **argv, int ino, char **item)
 {
 	char *path;
 	int bin;
 
 	if (warg(1, 2, argc, argv) || wtype(*argv, **item, "i3", 0))
 		return FAIL;
 
 	if (argv[1])
 		path = argv[1];
 	else {
 		path = basename(item[GI_PATH]);
 		if (path == NULL) {
 			warn(errno, "unable to get basename '%s'", item[GI_PATH]);
 			return NEXT;
 		}
 	}
 
 	bin = **item == '0' ? 0 : 1;
 	if (timid_gopher(itemtoaddr(item), path, bin, timeout))
 		return NEXT;
 	warn(0, "%s: '%s%s' > '%s'", *argv, item[GI_HOST], item[GI_PATH], path);
 	return PASS;
 }
 
 LOCAL int
 cgoto7(int argc, char **argv, int ino, char **item)
 {
 	char tmp[MY_PATH_MAX];
 
 	if (wtype(*argv, **item, "7", 1) || warg(2, 2, argc, argv))
 		return FAIL;
 
 	/* NOTE: the user inserts `?` for a space */
 	snprintf(tmp, sizeof(tmp), "%s?%s", item[GI_PATH], argv[1]);
 	item[GI_PATH] = tmp;
 	return gawk(itemtoaddr(item));
 }
 
 int
 cgoto(int argc, char **argv, int ino, char **item)
 {
 	if (**item == '1') {
 		if (warg(1, 1, argc, argv))
 			return FAIL;
 		return gawk(itemtoaddr(item));
 	}
 	return cgoto7(argc, argv, ino, item);
 }
 
 int
 cprint(int argc, char **argv, int ino, char **item)
 {
 	if (warg(1, 1, argc, argv))
 		return FAIL;
 
 	if (**item == 'i')
 		printf("  %s\n", item[GI_INFO] + 1);
 	else if (**item == '3')
 		fprintf(stderr, "%s: %s\n", item[GI_HOST], item[GI_INFO] + 1);
 	else
 		printf("%4d [%c] %s\n", ino, item[GI_INFO][0],
 		    item[GI_INFO] + 1);
 	return PASS;
 }
 
 int
 cprintv(int argc, char **argv, int ino, char **item)
 {
 	if (**item != 'i' && **item != '3')
 		printf("\n     %s%s\n", item[GI_HOST], item[GI_PATH]);
 	return cprint(argc, argv, ino, item);
 }
 
 int
 findex(int argc, char **argv, int ino, char **item)
 {
 	char const *err;
 	int i;
 	int n;
 
 	if (warg(2, -1, argc, argv))
 		return FAIL;
 
 	for (i = 1; i < argc; ++i) {
 		n = wstrtonum(argv[i], 0, INT_MAX, &err);
 		if (err != NULL)
 			return FAIL;
 		if (ino == n)
 			return PASS;
 	}
 	return NEXT;
 }
 
 int
 frange(int argc, char **argv, int ino, char **item)
 {
 	char const *err;
 	int i, j;
 	int range[2];
 
 	if (warg(3, -1, argc, argv))
 		return FAIL;
 	if (argc % 2 != 1) {
 		warn(0, "%s: Unbalenced range", *argv);
 		return FAIL;
 	}
 	
 	for (i = 1; i < argc; i += 2) {
 		for (j = 0; j < 2; ++j) {
 			range[j] = wstrtonum(argv[i + j], 0, INT_MAX, &err);
 			if (err != NULL)
 				return FAIL;
 		}
 		if (range[0] > range[1]) {
 			if (ino < range[1] || ino > range[0])
 				return NEXT;
 		} else if (ino < range[0] || ino > range[1])
 			return NEXT;
 	}
 
 	return PASS;
 }
 
 int
 fstring(int argc, char **argv, int ino, char **item)
 {
 	int i;
 
 	if (warg(2, -1, argc, argv))
 		return FAIL;
 	for (i = 1; i < argc; ++i)
 		if (strcasestr(item[GI_INFO], argv[1]) == NULL)
 			return NEXT;
 	return PASS;
 }
 
 int
 ftype(int argc, char **argv, int ino, char **item)
 {
 	if (warg(2, 2, argc, argv))
 	       return FAIL;
 	if (type(**item, argv[1], 0))
                return PASS;
 	return NEXT;
 }
 
 int
 sexit(int argc, char **argv, int depth, char **addr)
 {
 	if (warg(1, 1, argc, argv))
 		return FAIL;
 	return depth;
 }
 
 int
 sgoto(int argc, char **argv, int depth, char **addr)
 {
 	char *newaddr[AR_NULL];
 	int i;
 
 	if (warg(1, 4, argc, argv))
 		return FAIL;
 
 	newaddr[AR_HOST] = addr[AR_HOST];
 	newaddr[AR_PATH] = "/";
 	newaddr[AR_PORT] = addr[AR_PORT];
 
 	for (i = 1; i < argc; ++i)
 		newaddr[i - 1] = argv[i];
 	return gawk(newaddr);
 }
 
 int
 sunwind(int argc, char **argv, int depth, char **addr)
 {
 	char const *err;
 	int n;
 
 	if (warg(1, 2, argc, argv))
 		return FAIL;
 
 	if (argc == 1)
 		n = 1;
 	else {
 		n = wstrtonum(argv[1], 0, INT_MAX, &err);
 		if (err != NULL)
 			return FAIL;
 	}
 	return n;
 }