-#else
- rpn = ccl_find_str(p->bibset, start_term, &r, &pos);
- if (r)
- {
- Tcl_AppendResult (interp, "ccl syntax error ", ccl_err_msg(r), NULL);
- code = ir_tcl_error_exec (interp, argc, argv);
- goto out;
- }
- bib1.proto = p->protocol_type;
- bib1.oclass = CLASS_ATTSET;
- bib1.value = VAL_BIB1;
-
- req->attributeSet = oid_getoidbyent (&bib1);
- if (!(req->termListAndStartPoint = ccl_scan_query (p->odr_out, rpn)))
- {
- code = TCL_ERROR;
- goto out;
- }
-#endif