ref: 9a49e0b5cf0690cfe61ce0a390bb0c758d9e5b22
dir: /cp.c/
/* copy-mode character interpretation */ #include <stdio.h> #include <stdlib.h> #include <string.h> #include "roff.h" static int cp_blkdep; /* input block depth (text in \{ and \}) */ static int cp_cpmode; /* disable the interpretation of \w and \E */ static int cp_reqdep; /* the block depth of current request line */ /* just like cp_next(), but remove c_ni characters */ static int cp_noninext(void) { int c = cp_next(); while (c == c_ni) c = cp_next(); return c; } /* return 1 if \*[] includes a space */ static int cparg(char *d, int len) { int c = cp_noninext(); int i = 0; if (c == '(') { i += utf8next(d + i, cp_noninext); i += utf8next(d + i, cp_noninext); } else if (!n_cp && c == '[') { c = cp_noninext(); while (c >= 0 && c != ']' && c != ' ') { if (i + 1 < len) d[i++] = c; c = cp_noninext(); } d[i] = '\0'; return c == ' '; } else { cp_back(c); utf8next(d, cp_noninext); } return 0; } static int regid(void) { char regname[NMLEN]; cparg(regname, sizeof(regname)); return map(regname); } /* interpolate \n(xy */ static void cp_num(void) { int id; int c = cp_noninext(); if (c != '-' && c != '+') cp_back(c); id = regid(); if (c == '-' || c == '+') num_inc(id, c == '+'); if (num_str(id)) in_push(num_str(id), NULL); } /* interpolate \*(xy */ static void cp_str(void) { char reg[NMLEN]; char *args[NARGS + 2] = {reg}; char *buf = NULL; if (cparg(reg, sizeof(reg))) { buf = tr_args(args + 1, ']', cp_noninext, cp_back); cp_noninext(); } if (str_get(map(reg))) in_push(str_get(map(reg)), buf ? args : NULL); else if (!n_cp) tr_req(map(reg), args); free(buf); } /* interpolate \g(xy */ static void cp_numfmt(void) { in_push(num_getfmt(regid()), NULL); } /* interpolate \$*, \$@, and \$^ */ static void cp_args(int quote, int escape) { struct sbuf sb; char *s; int i; sbuf_init(&sb); for (i = 1; i < in_nargs(); i++) { sbuf_append(&sb, i > 1 ? " " : ""); sbuf_append(&sb, quote ? "\"" : ""); s = in_arg(i); while (*s) { sbuf_append(&sb, escape && *s == '"' ? "\"" : ""); sbuf_add(&sb, (unsigned char) *s++); } sbuf_append(&sb, quote ? "\"" : ""); } in_push(sbuf_buf(&sb), NULL); sbuf_done(&sb); } /* interpolate \$1 */ static void cp_arg(void) { char argname[NMLEN]; char *arg = NULL; int argnum; cparg(argname, sizeof(argname)); if (!strcmp("@", argname)) { cp_args(1, 0); return; } if (!strcmp("*", argname)) { cp_args(0, 0); return; } if (!strcmp("^", argname)) { cp_args(1, 1); return; } argnum = atoi(argname); if (argnum >= 0 && argnum < NARGS) arg = in_arg(argnum); if (arg) in_push(arg, NULL); } /* interpolate \w'xyz' */ static void cp_width(void) { char wid[16]; sprintf(wid, "%d", ren_wid(cp_next, cp_back)); in_push(wid, NULL); } /* define a register as \R'xyz expr' */ static void cp_numdef(void) { char *arg = quotednext(cp_noninext, cp_back); char *s = arg; while (*s && *s != ' ') s++; if (!*s) { free(arg); return; } *s++ = '\0'; num_set(map(arg), eval_re(s, num_get(map(arg)), 'u')); free(arg); } /* conditional interpolation as \?'cond@expr1@expr2@' */ static void cp_cond(void) { char delim[GNLEN], cs[GNLEN]; char *r, *s; char *s1, *s2; int n; char *arg = quotednext(cp_noninext, cp_back); s = arg; n = eval_up(&s, '\0'); if (charread(&s, delim) < 0) { free(arg); return; } if (!strcmp(delim, "\\&") && charread(&s, delim) < 0) { free(arg); return; } s1 = s; r = s; while (charread_delim(&s, cs, delim) >= 0) r = s; *r = '\0'; s2 = s; r = s; while (charread_delim(&s, cs, delim) >= 0) r = s; *r = '\0'; in_push(n > 0 ? s1 : s2, NULL); free(arg); } static int cp_raw(void) { int c; if (in_top() >= 0) return in_next(); do { c = in_next(); } while (c == c_ni); if (c == c_ec) { do { c = in_next(); } while (c == c_ni); if (c == '\n') return cp_raw(); if (c == '.') return '.'; if (c == '\\') { in_back('\\'); return c_ni; } if (c == 't') { in_back('\t'); return c_ni; } if (c == 'a') { in_back(''); return c_ni; } /* replace \{ and \} with a space if not in copy mode */ if (c == '}' && !cp_cpmode) { cp_blkdep--; return ' '; } if (c == '{' && !cp_cpmode) { cp_blkdep++; return ' '; } in_back(c); return c_ec; } return c; } int cp_next(void) { int c; if (in_top() >= 0) return in_next(); c = cp_raw(); if (c == c_ec) { c = cp_raw(); if (c == 'E' && !cp_cpmode) c = cp_next(); if (c == '"') { while (c >= 0 && c != '\n') c = cp_raw(); } else if (c == 'w' && !cp_cpmode) { cp_width(); c = cp_next(); } else if (c == 'n') { cp_num(); c = cp_next(); } else if (c == '*') { cp_str(); c = cp_next(); } else if (c == 'g') { cp_numfmt(); c = cp_next(); } else if (c == '$') { cp_arg(); c = cp_next(); } else if (c == '?') { cp_cond(); c = cp_next(); } else if (c == 'R' && !cp_cpmode) { cp_numdef(); c = cp_next(); } else { cp_back(c); c = c_ec; } } return c; } void cp_blk(int skip) { if (skip) { int c = cp_raw(); while (c >= 0 && (c != '\n' || cp_blkdep > cp_reqdep)) c = cp_raw(); } else { int c = cp_next(); while (c == ' ') c = cp_next(); /* push back if the space is not inserted due to \{ and \} */ if (c != ' ') cp_back(c); } } void cp_copymode(int mode) { cp_cpmode = mode; } /* beginning of a request; save current cp_blkdep */ void cp_reqbeg(void) { cp_reqdep = cp_blkdep; }