1 76193d7c 2003-09-30 devnull #include	"mk.h"
  2 76193d7c 2003-09-30 devnull 
  3 76193d7c 2003-09-30 devnull char	*termchars = "\"'= \t";	/*used in parse.c to isolate assignment attribute*/
  4 76193d7c 2003-09-30 devnull char	*shflags = 0;
  5 76193d7c 2003-09-30 devnull int	IWS = ' ';		/* inter-word separator in env */
  6 76193d7c 2003-09-30 devnull 
  7 76193d7c 2003-09-30 devnull /*
  8 76193d7c 2003-09-30 devnull  *	This file contains functions that depend on the shell's syntax.  Most
  9 76193d7c 2003-09-30 devnull  *	of the routines extract strings observing the shell's escape conventions.
 10 76193d7c 2003-09-30 devnull  */
 11 76193d7c 2003-09-30 devnull 
 12 76193d7c 2003-09-30 devnull 
 13 76193d7c 2003-09-30 devnull /*
 14 76193d7c 2003-09-30 devnull  *	skip a token in quotes.
 15 76193d7c 2003-09-30 devnull  */
 16 76193d7c 2003-09-30 devnull static char *
 17 76193d7c 2003-09-30 devnull squote(char *cp, int c)
 18 76193d7c 2003-09-30 devnull {
 19 76193d7c 2003-09-30 devnull 	Rune r;
 20 76193d7c 2003-09-30 devnull 	int n;
 21 76193d7c 2003-09-30 devnull 
 22 76193d7c 2003-09-30 devnull 	while(*cp){
 23 76193d7c 2003-09-30 devnull 		n = chartorune(&r, cp);
 24 76193d7c 2003-09-30 devnull 		if(r == c)
 25 76193d7c 2003-09-30 devnull 			return cp;
 26 76193d7c 2003-09-30 devnull 		if(r == '\\')
 27 76193d7c 2003-09-30 devnull 			n += chartorune(&r, cp+n);
 28 76193d7c 2003-09-30 devnull 		cp += n;
 29 76193d7c 2003-09-30 devnull 	}
 30 76193d7c 2003-09-30 devnull 	SYNERR(-1);		/* should never occur */
 31 76193d7c 2003-09-30 devnull 	fprint(2, "missing closing '\n");
 32 76193d7c 2003-09-30 devnull 	return 0;
 33 76193d7c 2003-09-30 devnull }
 34 76193d7c 2003-09-30 devnull /*
 35 76193d7c 2003-09-30 devnull  *	search a string for unescaped characters in a pattern set
 36 76193d7c 2003-09-30 devnull  */
 37 76193d7c 2003-09-30 devnull char *
 38 76193d7c 2003-09-30 devnull charin(char *cp, char *pat)
 39 76193d7c 2003-09-30 devnull {
 40 76193d7c 2003-09-30 devnull 	Rune r;
 41 76193d7c 2003-09-30 devnull 	int n, vargen;
 42 76193d7c 2003-09-30 devnull 
 43 76193d7c 2003-09-30 devnull 	vargen = 0;
 44 76193d7c 2003-09-30 devnull 	while(*cp){
 45 76193d7c 2003-09-30 devnull 		n = chartorune(&r, cp);
 46 76193d7c 2003-09-30 devnull 		switch(r){
 47 76193d7c 2003-09-30 devnull 		case '\\':			/* skip escaped char */
 48 76193d7c 2003-09-30 devnull 			cp += n;
 49 76193d7c 2003-09-30 devnull 			n = chartorune(&r, cp);
 50 76193d7c 2003-09-30 devnull 			break;
 51 76193d7c 2003-09-30 devnull 		case '\'':			/* skip quoted string */
 52 76193d7c 2003-09-30 devnull 		case '"':
 53 76193d7c 2003-09-30 devnull 			cp = squote(cp+1, r);	/* n must = 1 */
 54 76193d7c 2003-09-30 devnull 			if(!cp)
 55 76193d7c 2003-09-30 devnull 				return 0;
 56 76193d7c 2003-09-30 devnull 			break;
 57 76193d7c 2003-09-30 devnull 		case '$':
 58 76193d7c 2003-09-30 devnull 			if(*(cp+1) == '{')
 59 76193d7c 2003-09-30 devnull 				vargen = 1;
 60 76193d7c 2003-09-30 devnull 			break;
 61 76193d7c 2003-09-30 devnull 		case '}':
 62 76193d7c 2003-09-30 devnull 			if(vargen)
 63 76193d7c 2003-09-30 devnull 				vargen = 0;
 64 76193d7c 2003-09-30 devnull 			else if(utfrune(pat, r))
 65 76193d7c 2003-09-30 devnull 				return cp;
 66 76193d7c 2003-09-30 devnull 			break;
 67 76193d7c 2003-09-30 devnull 		default:
 68 76193d7c 2003-09-30 devnull 			if(vargen == 0 && utfrune(pat, r))
 69 76193d7c 2003-09-30 devnull 				return cp;
 70 76193d7c 2003-09-30 devnull 			break;
 71 76193d7c 2003-09-30 devnull 		}
 72 76193d7c 2003-09-30 devnull 		cp += n;
 73 76193d7c 2003-09-30 devnull 	}
 74 76193d7c 2003-09-30 devnull 	if(vargen){
 75 76193d7c 2003-09-30 devnull 		SYNERR(-1);
 76 76193d7c 2003-09-30 devnull 		fprint(2, "missing closing } in pattern generator\n");
 77 76193d7c 2003-09-30 devnull 	}
 78 76193d7c 2003-09-30 devnull 	return 0;
 79 76193d7c 2003-09-30 devnull }
 80 76193d7c 2003-09-30 devnull 
 81 76193d7c 2003-09-30 devnull /*
 82 76193d7c 2003-09-30 devnull  *	extract an escaped token.  Possible escape chars are single-quote,
 83 76193d7c 2003-09-30 devnull  *	double-quote,and backslash.
 84 76193d7c 2003-09-30 devnull  */
 85 76193d7c 2003-09-30 devnull char*
 86 76193d7c 2003-09-30 devnull expandquote(char *s, Rune esc, Bufblock *b)
 87 76193d7c 2003-09-30 devnull {
 88 76193d7c 2003-09-30 devnull 	Rune r;
 89 76193d7c 2003-09-30 devnull 
 90 76193d7c 2003-09-30 devnull 	if (esc == '\\') {
 91 76193d7c 2003-09-30 devnull 		s += chartorune(&r, s);
 92 76193d7c 2003-09-30 devnull 		rinsert(b, r);
 93 76193d7c 2003-09-30 devnull 		return s;
 94 76193d7c 2003-09-30 devnull 	}
 95 76193d7c 2003-09-30 devnull 
 96 76193d7c 2003-09-30 devnull 	while(*s){
 97 76193d7c 2003-09-30 devnull 		s += chartorune(&r, s);
 98 76193d7c 2003-09-30 devnull 		if(r == esc)
 99 76193d7c 2003-09-30 devnull 			return s;
100 76193d7c 2003-09-30 devnull 		if (r == '\\') {
101 76193d7c 2003-09-30 devnull 			rinsert(b, r);
102 76193d7c 2003-09-30 devnull 			s += chartorune(&r, s);
103 76193d7c 2003-09-30 devnull 		}
104 76193d7c 2003-09-30 devnull 		rinsert(b, r);
105 76193d7c 2003-09-30 devnull 	}
106 76193d7c 2003-09-30 devnull 	return 0;
107 76193d7c 2003-09-30 devnull }
108 76193d7c 2003-09-30 devnull 
109 76193d7c 2003-09-30 devnull /*
110 76193d7c 2003-09-30 devnull  *	Input an escaped token.  Possible escape chars are single-quote,
111 76193d7c 2003-09-30 devnull  *	double-quote and backslash.
112 76193d7c 2003-09-30 devnull  */
113 76193d7c 2003-09-30 devnull int
114 76193d7c 2003-09-30 devnull escapetoken(Biobuf *bp, Bufblock *buf, int preserve, int esc)
115 76193d7c 2003-09-30 devnull {
116 76193d7c 2003-09-30 devnull 	int c, line;
117 76193d7c 2003-09-30 devnull 
118 76193d7c 2003-09-30 devnull 	if(esc == '\\') {
119 76193d7c 2003-09-30 devnull 		c = Bgetrune(bp);
120 76193d7c 2003-09-30 devnull 		if(c == '\r')
121 76193d7c 2003-09-30 devnull 			c = Bgetrune(bp);
122 76193d7c 2003-09-30 devnull 		if (c == '\n')
123 76193d7c 2003-09-30 devnull 			mkinline++;
124 76193d7c 2003-09-30 devnull 		rinsert(buf, c);
125 76193d7c 2003-09-30 devnull 		return 1;
126 76193d7c 2003-09-30 devnull 	}
127 76193d7c 2003-09-30 devnull 
128 76193d7c 2003-09-30 devnull 	line = mkinline;
129 76193d7c 2003-09-30 devnull 	while((c = nextrune(bp, 0)) >= 0){
130 76193d7c 2003-09-30 devnull 		if(c == esc){
131 76193d7c 2003-09-30 devnull 			if(preserve)
132 76193d7c 2003-09-30 devnull 				rinsert(buf, c);
133 76193d7c 2003-09-30 devnull 			return 1;
134 76193d7c 2003-09-30 devnull 		}
135 76193d7c 2003-09-30 devnull 		if(c == '\\') {
136 76193d7c 2003-09-30 devnull 			rinsert(buf, c);
137 76193d7c 2003-09-30 devnull 			c = Bgetrune(bp);
138 76193d7c 2003-09-30 devnull 			if(c == '\r')
139 76193d7c 2003-09-30 devnull 				c = Bgetrune(bp);
140 76193d7c 2003-09-30 devnull 			if (c < 0)
141 76193d7c 2003-09-30 devnull 				break;
142 76193d7c 2003-09-30 devnull 			if (c == '\n')
143 76193d7c 2003-09-30 devnull 				mkinline++;
144 76193d7c 2003-09-30 devnull 		}
145 76193d7c 2003-09-30 devnull 		rinsert(buf, c);
146 76193d7c 2003-09-30 devnull 	}
147 76193d7c 2003-09-30 devnull 	SYNERR(line); fprint(2, "missing closing %c\n", esc);
148 76193d7c 2003-09-30 devnull 	return 0;
149 76193d7c 2003-09-30 devnull }
150 76193d7c 2003-09-30 devnull 
151 76193d7c 2003-09-30 devnull /*
152 76193d7c 2003-09-30 devnull  *	copy a quoted string; s points to char after opening quote
153 76193d7c 2003-09-30 devnull  */
154 76193d7c 2003-09-30 devnull static char *
155 76193d7c 2003-09-30 devnull copysingle(char *s, Rune q, Bufblock *buf)
156 76193d7c 2003-09-30 devnull {
157 76193d7c 2003-09-30 devnull 	Rune r;
158 76193d7c 2003-09-30 devnull 
159 76193d7c 2003-09-30 devnull 	while(*s){
160 76193d7c 2003-09-30 devnull 		s += chartorune(&r, s);
161 76193d7c 2003-09-30 devnull 		rinsert(buf, r);
162 76193d7c 2003-09-30 devnull 		if(r == q)
163 76193d7c 2003-09-30 devnull 			break;
164 76193d7c 2003-09-30 devnull 	}
165 76193d7c 2003-09-30 devnull 	return s;
166 76193d7c 2003-09-30 devnull }
167 76193d7c 2003-09-30 devnull /*
168 76193d7c 2003-09-30 devnull  *	check for quoted strings.  backquotes are handled here; single quotes above.
169 76193d7c 2003-09-30 devnull  *	s points to char after opening quote, q.
170 76193d7c 2003-09-30 devnull  */
171 76193d7c 2003-09-30 devnull char *
172 76193d7c 2003-09-30 devnull copyq(char *s, Rune q, Bufblock *buf)
173 76193d7c 2003-09-30 devnull {
174 76193d7c 2003-09-30 devnull 	if(q == '\'' || q == '"')		/* copy quoted string */
175 76193d7c 2003-09-30 devnull 		return copysingle(s, q, buf);
176 76193d7c 2003-09-30 devnull 
177 76193d7c 2003-09-30 devnull 	if(q != '`')				/* not quoted */
178 76193d7c 2003-09-30 devnull 		return s;
179 76193d7c 2003-09-30 devnull 
180 76193d7c 2003-09-30 devnull 	while(*s){				/* copy backquoted string */
181 76193d7c 2003-09-30 devnull 		s += chartorune(&q, s);
182 76193d7c 2003-09-30 devnull 		rinsert(buf, q);
183 76193d7c 2003-09-30 devnull 		if(q == '`')
184 76193d7c 2003-09-30 devnull 			break;
185 76193d7c 2003-09-30 devnull 		if(q == '\'' || q == '"')
186 76193d7c 2003-09-30 devnull 			s = copysingle(s, q, buf);	/* copy quoted string */
187 76193d7c 2003-09-30 devnull 	}
188 76193d7c 2003-09-30 devnull 	return s;
189 76193d7c 2003-09-30 devnull }