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 = "-I";	/* rc flag to force non-interactive mode */
  5 76193d7c 2003-09-30 devnull int	IWS = '\1';		/* inter-word separator in env - not used in plan 9 */
  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 rc's syntax.  Most
  9 76193d7c 2003-09-30 devnull  *	of the routines extract strings observing rc'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 single quotes.
 15 76193d7c 2003-09-30 devnull  */
 16 76193d7c 2003-09-30 devnull static char *
 17 76193d7c 2003-09-30 devnull squote(char *cp)
 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 == '\'') {
 25 76193d7c 2003-09-30 devnull 			n += chartorune(&r, cp+n);
 26 76193d7c 2003-09-30 devnull 			if(r != '\'')
 27 76193d7c 2003-09-30 devnull 				return(cp);
 28 76193d7c 2003-09-30 devnull 		}
 29 76193d7c 2003-09-30 devnull 		cp += n;
 30 76193d7c 2003-09-30 devnull 	}
 31 76193d7c 2003-09-30 devnull 	SYNERR(-1);		/* should never occur */
 32 76193d7c 2003-09-30 devnull 	fprint(2, "missing closing '\n");
 33 76193d7c 2003-09-30 devnull 	return 0;
 34 76193d7c 2003-09-30 devnull }
 35 76193d7c 2003-09-30 devnull 
 36 76193d7c 2003-09-30 devnull /*
 37 76193d7c 2003-09-30 devnull  *	search a string for characters in a pattern set
 38 76193d7c 2003-09-30 devnull  *	characters in quotes and variable generators are escaped
 39 76193d7c 2003-09-30 devnull  */
 40 76193d7c 2003-09-30 devnull char *
 41 76193d7c 2003-09-30 devnull charin(char *cp, char *pat)
 42 76193d7c 2003-09-30 devnull {
 43 76193d7c 2003-09-30 devnull 	Rune r;
 44 76193d7c 2003-09-30 devnull 	int n, vargen;
 45 76193d7c 2003-09-30 devnull 
 46 76193d7c 2003-09-30 devnull 	vargen = 0;
 47 76193d7c 2003-09-30 devnull 	while(*cp){
 48 76193d7c 2003-09-30 devnull 		n = chartorune(&r, cp);
 49 76193d7c 2003-09-30 devnull 		switch(r){
 50 76193d7c 2003-09-30 devnull 		case '\'':			/* skip quoted string */
 51 76193d7c 2003-09-30 devnull 			cp = squote(cp+1);	/* n must = 1 */
 52 76193d7c 2003-09-30 devnull 			if(!cp)
 53 76193d7c 2003-09-30 devnull 				return 0;
 54 76193d7c 2003-09-30 devnull 			break;
 55 76193d7c 2003-09-30 devnull 		case '$':
 56 76193d7c 2003-09-30 devnull 			if(*(cp+1) == '{')
 57 76193d7c 2003-09-30 devnull 				vargen = 1;
 58 76193d7c 2003-09-30 devnull 			break;
 59 76193d7c 2003-09-30 devnull 		case '}':
 60 76193d7c 2003-09-30 devnull 			if(vargen)
 61 76193d7c 2003-09-30 devnull 				vargen = 0;
 62 76193d7c 2003-09-30 devnull 			else if(utfrune(pat, r))
 63 76193d7c 2003-09-30 devnull 				return cp;
 64 76193d7c 2003-09-30 devnull 			break;
 65 76193d7c 2003-09-30 devnull 		default:
 66 76193d7c 2003-09-30 devnull 			if(vargen == 0 && utfrune(pat, r))
 67 76193d7c 2003-09-30 devnull 				return cp;
 68 76193d7c 2003-09-30 devnull 			break;
 69 76193d7c 2003-09-30 devnull 		}
 70 76193d7c 2003-09-30 devnull 		cp += n;
 71 76193d7c 2003-09-30 devnull 	}
 72 76193d7c 2003-09-30 devnull 	if(vargen){
 73 76193d7c 2003-09-30 devnull 		SYNERR(-1);
 74 76193d7c 2003-09-30 devnull 		fprint(2, "missing closing } in pattern generator\n");
 75 76193d7c 2003-09-30 devnull 	}
 76 76193d7c 2003-09-30 devnull 	return 0;
 77 76193d7c 2003-09-30 devnull }
 78 76193d7c 2003-09-30 devnull 
 79 76193d7c 2003-09-30 devnull /*
 80 76193d7c 2003-09-30 devnull  *	extract an escaped token.  Possible escape chars are single-quote,
 81 76193d7c 2003-09-30 devnull  *	double-quote,and backslash.  Only the first is valid for rc. the
 82 76193d7c 2003-09-30 devnull  *	others are just inserted into the receiving buffer.
 83 76193d7c 2003-09-30 devnull  */
 84 76193d7c 2003-09-30 devnull char*
 85 76193d7c 2003-09-30 devnull expandquote(char *s, Rune r, Bufblock *b)
 86 76193d7c 2003-09-30 devnull {
 87 76193d7c 2003-09-30 devnull 	if (r != '\'') {
 88 76193d7c 2003-09-30 devnull 		rinsert(b, r);
 89 76193d7c 2003-09-30 devnull 		return s;
 90 76193d7c 2003-09-30 devnull 	}
 91 76193d7c 2003-09-30 devnull 
 92 76193d7c 2003-09-30 devnull 	while(*s){
 93 76193d7c 2003-09-30 devnull 		s += chartorune(&r, s);
 94 76193d7c 2003-09-30 devnull 		if(r == '\'') {
 95 76193d7c 2003-09-30 devnull 			if(*s == '\'')
 96 76193d7c 2003-09-30 devnull 				s++;
 97 76193d7c 2003-09-30 devnull 			else
 98 76193d7c 2003-09-30 devnull 				return s;
 99 76193d7c 2003-09-30 devnull 		}
100 76193d7c 2003-09-30 devnull 		rinsert(b, r);
101 76193d7c 2003-09-30 devnull 	}
102 76193d7c 2003-09-30 devnull 	return 0;
103 76193d7c 2003-09-30 devnull }
104 76193d7c 2003-09-30 devnull 
105 76193d7c 2003-09-30 devnull /*
106 76193d7c 2003-09-30 devnull  *	Input an escaped token.  Possible escape chars are single-quote,
107 76193d7c 2003-09-30 devnull  *	double-quote and backslash.  Only the first is a valid escape for
108 76193d7c 2003-09-30 devnull  *	rc; the others are just inserted into the receiving buffer.
109 76193d7c 2003-09-30 devnull  */
110 76193d7c 2003-09-30 devnull int
111 76193d7c 2003-09-30 devnull escapetoken(Biobuf *bp, Bufblock *buf, int preserve, int esc)
112 76193d7c 2003-09-30 devnull {
113 76193d7c 2003-09-30 devnull 	int c, line;
114 76193d7c 2003-09-30 devnull 
115 76193d7c 2003-09-30 devnull 	if(esc != '\'')
116 76193d7c 2003-09-30 devnull 		return 1;
117 76193d7c 2003-09-30 devnull 
118 76193d7c 2003-09-30 devnull 	line = mkinline;
119 76193d7c 2003-09-30 devnull 	while((c = nextrune(bp, 0)) > 0){
120 76193d7c 2003-09-30 devnull 		if(c == '\''){
121 76193d7c 2003-09-30 devnull 			if(preserve)
122 76193d7c 2003-09-30 devnull 				rinsert(buf, c);
123 76193d7c 2003-09-30 devnull 			c = Bgetrune(bp);
124 76193d7c 2003-09-30 devnull 			if (c < 0)
125 76193d7c 2003-09-30 devnull 				break;
126 76193d7c 2003-09-30 devnull 			if(c != '\''){
127 76193d7c 2003-09-30 devnull 				Bungetrune(bp);
128 76193d7c 2003-09-30 devnull 				return 1;
129 76193d7c 2003-09-30 devnull 			}
130 76193d7c 2003-09-30 devnull 		}
131 76193d7c 2003-09-30 devnull 		rinsert(buf, c);
132 76193d7c 2003-09-30 devnull 	}
133 76193d7c 2003-09-30 devnull 	SYNERR(line); fprint(2, "missing closing %c\n", esc);
134 76193d7c 2003-09-30 devnull 	return 0;
135 76193d7c 2003-09-30 devnull }
136 76193d7c 2003-09-30 devnull 
137 76193d7c 2003-09-30 devnull /*
138 76193d7c 2003-09-30 devnull  *	copy a single-quoted string; s points to char after opening quote
139 76193d7c 2003-09-30 devnull  */
140 76193d7c 2003-09-30 devnull static char *
141 76193d7c 2003-09-30 devnull copysingle(char *s, Bufblock *buf)
142 76193d7c 2003-09-30 devnull {
143 76193d7c 2003-09-30 devnull 	Rune r;
144 76193d7c 2003-09-30 devnull 
145 76193d7c 2003-09-30 devnull 	while(*s){
146 76193d7c 2003-09-30 devnull 		s += chartorune(&r, s);
147 76193d7c 2003-09-30 devnull 		rinsert(buf, r);
148 76193d7c 2003-09-30 devnull 		if(r == '\'')
149 76193d7c 2003-09-30 devnull 			break;
150 76193d7c 2003-09-30 devnull 	}
151 76193d7c 2003-09-30 devnull 	return s;
152 76193d7c 2003-09-30 devnull }
153 76193d7c 2003-09-30 devnull /*
154 76193d7c 2003-09-30 devnull  *	check for quoted strings.  backquotes are handled here; single quotes above.
155 76193d7c 2003-09-30 devnull  *	s points to char after opening quote, q.
156 76193d7c 2003-09-30 devnull  */
157 76193d7c 2003-09-30 devnull char *
158 76193d7c 2003-09-30 devnull copyq(char *s, Rune q, Bufblock *buf)
159 76193d7c 2003-09-30 devnull {
160 76193d7c 2003-09-30 devnull 	if(q == '\'')				/* copy quoted string */
161 76193d7c 2003-09-30 devnull 		return copysingle(s, buf);
162 76193d7c 2003-09-30 devnull 
163 76193d7c 2003-09-30 devnull 	if(q != '`')				/* not quoted */
164 76193d7c 2003-09-30 devnull 		return s;
165 76193d7c 2003-09-30 devnull 
166 76193d7c 2003-09-30 devnull 	while(*s){				/* copy backquoted string */
167 76193d7c 2003-09-30 devnull 		s += chartorune(&q, s);
168 76193d7c 2003-09-30 devnull 		rinsert(buf, q);
169 76193d7c 2003-09-30 devnull 		if(q == '}')
170 76193d7c 2003-09-30 devnull 			break;
171 76193d7c 2003-09-30 devnull 		if(q == '\'')
172 76193d7c 2003-09-30 devnull 			s = copysingle(s, buf);	/* copy quoted string */
173 76193d7c 2003-09-30 devnull 	}
174 76193d7c 2003-09-30 devnull 	return s;
175 76193d7c 2003-09-30 devnull }