1 76193d7c 2003-09-30 devnull #include "mk.h"
4 76193d7c 2003-09-30 devnull * This file contains functions that depend on rc's syntax. Most
5 76193d7c 2003-09-30 devnull * of the routines extract strings observing rc's escape conventions
10 76193d7c 2003-09-30 devnull * skip a token in single quotes.
12 76193d7c 2003-09-30 devnull static char *
13 76193d7c 2003-09-30 devnull squote(char *cp)
18 76193d7c 2003-09-30 devnull while(*cp){
19 76193d7c 2003-09-30 devnull n = chartorune(&r, cp);
20 76193d7c 2003-09-30 devnull if(r == '\'') {
21 76193d7c 2003-09-30 devnull n += chartorune(&r, cp+n);
22 76193d7c 2003-09-30 devnull if(r != '\'')
23 76193d7c 2003-09-30 devnull return(cp);
27 76193d7c 2003-09-30 devnull SYNERR(-1); /* should never occur */
28 76193d7c 2003-09-30 devnull fprint(2, "missing closing '\n");
29 76193d7c 2003-09-30 devnull return 0;
33 76193d7c 2003-09-30 devnull * search a string for characters in a pattern set
34 76193d7c 2003-09-30 devnull * characters in quotes and variable generators are escaped
37 9aa1c92f 2005-01-04 devnull rccharin(char *cp, char *pat)
40 76193d7c 2003-09-30 devnull int n, vargen;
42 76193d7c 2003-09-30 devnull vargen = 0;
43 76193d7c 2003-09-30 devnull while(*cp){
44 76193d7c 2003-09-30 devnull n = chartorune(&r, cp);
45 76193d7c 2003-09-30 devnull switch(r){
46 76193d7c 2003-09-30 devnull case '\'': /* skip quoted string */
47 76193d7c 2003-09-30 devnull cp = squote(cp+1); /* n must = 1 */
49 76193d7c 2003-09-30 devnull return 0;
51 76193d7c 2003-09-30 devnull case '$':
52 76193d7c 2003-09-30 devnull if(*(cp+1) == '{')
53 76193d7c 2003-09-30 devnull vargen = 1;
55 76193d7c 2003-09-30 devnull case '}':
56 76193d7c 2003-09-30 devnull if(vargen)
57 76193d7c 2003-09-30 devnull vargen = 0;
58 76193d7c 2003-09-30 devnull else if(utfrune(pat, r))
59 76193d7c 2003-09-30 devnull return cp;
62 76193d7c 2003-09-30 devnull if(vargen == 0 && utfrune(pat, r))
63 76193d7c 2003-09-30 devnull return cp;
68 76193d7c 2003-09-30 devnull if(vargen){
69 76193d7c 2003-09-30 devnull SYNERR(-1);
70 76193d7c 2003-09-30 devnull fprint(2, "missing closing } in pattern generator\n");
72 76193d7c 2003-09-30 devnull return 0;
76 76193d7c 2003-09-30 devnull * extract an escaped token. Possible escape chars are single-quote,
77 76193d7c 2003-09-30 devnull * double-quote,and backslash. Only the first is valid for rc. the
78 76193d7c 2003-09-30 devnull * others are just inserted into the receiving buffer.
81 9aa1c92f 2005-01-04 devnull rcexpandquote(char *s, Rune r, Bufblock *b)
83 76193d7c 2003-09-30 devnull if (r != '\'') {
84 76193d7c 2003-09-30 devnull rinsert(b, r);
85 76193d7c 2003-09-30 devnull return s;
88 76193d7c 2003-09-30 devnull while(*s){
89 76193d7c 2003-09-30 devnull s += chartorune(&r, s);
90 76193d7c 2003-09-30 devnull if(r == '\'') {
91 76193d7c 2003-09-30 devnull if(*s == '\'')
94 76193d7c 2003-09-30 devnull return s;
96 76193d7c 2003-09-30 devnull rinsert(b, r);
98 76193d7c 2003-09-30 devnull return 0;
102 76193d7c 2003-09-30 devnull * Input an escaped token. Possible escape chars are single-quote,
103 76193d7c 2003-09-30 devnull * double-quote and backslash. Only the first is a valid escape for
104 76193d7c 2003-09-30 devnull * rc; the others are just inserted into the receiving buffer.
107 9aa1c92f 2005-01-04 devnull rcescapetoken(Biobuf *bp, Bufblock *buf, int preserve, int esc)
109 76193d7c 2003-09-30 devnull int c, line;
111 76193d7c 2003-09-30 devnull if(esc != '\'')
112 76193d7c 2003-09-30 devnull return 1;
114 76193d7c 2003-09-30 devnull line = mkinline;
115 76193d7c 2003-09-30 devnull while((c = nextrune(bp, 0)) > 0){
116 76193d7c 2003-09-30 devnull if(c == '\''){
117 76193d7c 2003-09-30 devnull if(preserve)
118 76193d7c 2003-09-30 devnull rinsert(buf, c);
119 76193d7c 2003-09-30 devnull c = Bgetrune(bp);
120 76193d7c 2003-09-30 devnull if (c < 0)
122 76193d7c 2003-09-30 devnull if(c != '\''){
123 76193d7c 2003-09-30 devnull Bungetrune(bp);
124 76193d7c 2003-09-30 devnull return 1;
127 76193d7c 2003-09-30 devnull rinsert(buf, c);
129 76193d7c 2003-09-30 devnull SYNERR(line); fprint(2, "missing closing %c\n", esc);
130 76193d7c 2003-09-30 devnull return 0;
134 76193d7c 2003-09-30 devnull * copy a single-quoted string; s points to char after opening quote
136 76193d7c 2003-09-30 devnull static char *
137 76193d7c 2003-09-30 devnull copysingle(char *s, Bufblock *buf)
141 76193d7c 2003-09-30 devnull while(*s){
142 76193d7c 2003-09-30 devnull s += chartorune(&r, s);
143 76193d7c 2003-09-30 devnull rinsert(buf, r);
144 76193d7c 2003-09-30 devnull if(r == '\'')
147 76193d7c 2003-09-30 devnull return s;
150 76193d7c 2003-09-30 devnull * check for quoted strings. backquotes are handled here; single quotes above.
151 76193d7c 2003-09-30 devnull * s points to char after opening quote, q.
154 9aa1c92f 2005-01-04 devnull rccopyq(char *s, Rune q, Bufblock *buf)
156 76193d7c 2003-09-30 devnull if(q == '\'') /* copy quoted string */
157 76193d7c 2003-09-30 devnull return copysingle(s, buf);
159 76193d7c 2003-09-30 devnull if(q != '`') /* not quoted */
160 76193d7c 2003-09-30 devnull return s;
162 76193d7c 2003-09-30 devnull while(*s){ /* copy backquoted string */
163 76193d7c 2003-09-30 devnull s += chartorune(&q, s);
164 76193d7c 2003-09-30 devnull rinsert(buf, q);
165 76193d7c 2003-09-30 devnull if(q == '}')
167 76193d7c 2003-09-30 devnull if(q == '\'')
168 76193d7c 2003-09-30 devnull s = copysingle(s, buf); /* copy quoted string */
170 76193d7c 2003-09-30 devnull return s;
173 9aa1c92f 2005-01-04 devnull static int
174 9aa1c92f 2005-01-04 devnull rcmatchname(char *name)
176 9aa1c92f 2005-01-04 devnull char *p;
178 9aa1c92f 2005-01-04 devnull if((p = strchr(name, '/')) != nil)
179 9aa1c92f 2005-01-04 devnull name = p+1;
180 9aa1c92f 2005-01-04 devnull if(name[0] == 'r' && name[1] == 'c')
181 9aa1c92f 2005-01-04 devnull return 1;
182 9aa1c92f 2005-01-04 devnull return 0;
185 9aa1c92f 2005-01-04 devnull Shell rcshell = {
187 9aa1c92f 2005-01-04 devnull "'= \t",
189 9aa1c92f 2005-01-04 devnull rccharin,
190 9aa1c92f 2005-01-04 devnull rcexpandquote,
191 9aa1c92f 2005-01-04 devnull rcescapetoken,
192 9aa1c92f 2005-01-04 devnull rccopyq,
193 cbeb0b26 2006-04-01 devnull rcmatchname