- case CCL_RPN_AND:
- wrbuf_puts(w, "@and ");
- break;
- case CCL_RPN_OR:
- wrbuf_puts(w, "@or ");
- break;
- case CCL_RPN_NOT:
- wrbuf_puts(w, "@not ");
- break;
- case CCL_RPN_PROX:
- if (p->u.p[2] && p->u.p[2]->kind == CCL_RPN_TERM)
- {
- const char *cp = p->u.p[2]->u.t.term;
- /* exlusion distance ordered relation which-code unit-code */
- if (*cp == '!')
- {
- /* word order specified */
- if (isdigit(((const unsigned char *) cp)[1]))
- wrbuf_printf(w, "@prox 0 %s 1 2 k 2 ", cp+1);
- else
- wrbuf_printf(w, "@prox 0 1 1 2 k 2 ");
- }
- else if (*cp == '%')
- {
- /* word order not specified */
- if (isdigit(((const unsigned char *) cp)[1]))
- wrbuf_printf(w, "@prox 0 %s 0 2 k 2 ", cp+1);
- else
- wrbuf_printf(w, "@prox 0 1 0 2 k 2 ");
- }
- }
- else
- wrbuf_puts(w, "@prox 0 2 0 1 k 2 ");
- break;
- default:
- wrbuf_puts(w, "@ bad op (unknown) ");