Merge branch 'vendor/MDOCML'
[dragonfly.git] / contrib / tnftp / domacro.c
CommitLineData
20e59a13 1/* $NetBSD: domacro.c,v 1.22 2009/04/12 10:18:52 lukem Exp $ */
eedc536d
PA
2
3/*
4 * Copyright (c) 1985, 1993, 1994
5 * The Regents of the University of California. All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32#include <sys/cdefs.h>
33#ifndef lint
34#if 0
35static char sccsid[] = "@(#)domacro.c 8.3 (Berkeley) 4/2/94";
36#else
20e59a13 37__RCSID("$NetBSD: domacro.c,v 1.22 2009/04/12 10:18:52 lukem Exp $");
eedc536d
PA
38#endif
39#endif /* not lint */
40
41#include <ctype.h>
42#include <stdio.h>
43#include <string.h>
44
45#include "ftp_var.h"
46
47void
48domacro(int argc, char *argv[])
49{
50 int i, j, count = 2, loopflg = 0;
51 char *cp1, *cp2, line2[FTPBUFLEN];
52 struct cmd *c;
20e59a13 53 char cmdbuf[MAX_C_NAME];
eedc536d
PA
54
55 if ((argc == 0 && argv != NULL) ||
56 (argc < 2 && !another(&argc, &argv, "macro name"))) {
57 UPRINTF("usage: %s macro_name [args]\n", argv[0]);
58 code = -1;
59 return;
60 }
61 for (i = 0; i < macnum; ++i) {
62 if (!strncmp(argv[1], macros[i].mac_name, 9))
63 break;
64 }
65 if (i == macnum) {
66 fprintf(ttyout, "'%s' macro not found.\n", argv[1]);
67 code = -1;
68 return;
69 }
70 (void)strlcpy(line2, line, sizeof(line2));
71 TOP:
72 cp1 = macros[i].mac_start;
73 while (cp1 != macros[i].mac_end) {
74 while (isspace((unsigned char)*cp1))
75 cp1++;
76 cp2 = line;
77 while (*cp1 != '\0') {
78 switch(*cp1) {
79 case '\\':
80 *cp2++ = *++cp1;
81 break;
82 case '$':
83 if (isdigit((unsigned char)*(cp1+1))) {
84 j = 0;
85 while (isdigit((unsigned char)*++cp1))
86 j = 10*j + *cp1 - '0';
87 cp1--;
88 if (argc - 2 >= j) {
89 (void)strlcpy(cp2, argv[j+1],
90 sizeof(line) - (cp2 - line));
91 cp2 += strlen(argv[j+1]);
92 }
93 break;
94 }
95 if (*(cp1+1) == 'i') {
96 loopflg = 1;
97 cp1++;
98 if (count < argc) {
99 (void)strlcpy(cp2, argv[count],
100 sizeof(line) - (cp2 - line));
101 cp2 += strlen(argv[count]);
102 }
103 break;
104 }
105 /* intentional drop through */
106 default:
107 *cp2++ = *cp1;
108 break;
109 }
110 if (*cp1 != '\0')
111 cp1++;
112 }
113 *cp2 = '\0';
114 makeargv();
115 c = getcmd(margv[0]);
116 if (c == (struct cmd *)-1) {
117 fputs("?Ambiguous command.\n", ttyout);
118 code = -1;
119 } else if (c == 0) {
120 fputs("?Invalid command.\n", ttyout);
121 code = -1;
122 } else if (c->c_conn && !connected) {
123 fputs("Not connected.\n", ttyout);
124 code = -1;
125 } else {
126 if (verbose) {
127 fputs(line, ttyout);
128 putc('\n', ttyout);
129 }
20e59a13
PA
130 (void)strlcpy(cmdbuf, c->c_name, sizeof(cmdbuf));
131 margv[0] = cmdbuf;
eedc536d
PA
132 (*c->c_handler)(margc, margv);
133 if (bell && c->c_bell)
134 (void)putc('\007', ttyout);
135 (void)strlcpy(line, line2, sizeof(line));
136 makeargv();
137 argc = margc;
138 argv = margv;
139 }
140 if (cp1 != macros[i].mac_end)
141 cp1++;
142 }
143 if (loopflg && ++count < argc)
144 goto TOP;
145}