-
- if (left_trunc && right_trunc)
- {
- if (!qual_val_type(qa, CCL_BIB1_TRU, CCL_BIB1_TRU_CAN_BOTH,
- &attset))
- {
- cclp->error_code = CCL_ERR_TRUNC_NOT_BOTH;
- ccl_rpn_delete(p);
- return NULL;
- }
- ccl_add_attr_numeric(p, attset, CCL_BIB1_TRU, 3);
- }
- else if (right_trunc)
- {
- if (!qual_val_type(qa, CCL_BIB1_TRU, CCL_BIB1_TRU_CAN_RIGHT,
- &attset))
- {
- cclp->error_code = CCL_ERR_TRUNC_NOT_RIGHT;
- ccl_rpn_delete(p);
- return NULL;
- }
- ccl_add_attr_numeric(p, attset, CCL_BIB1_TRU, 1);
- }
- else if (left_trunc)
- {
- if (!qual_val_type(qa, CCL_BIB1_TRU, CCL_BIB1_TRU_CAN_LEFT,
- &attset))
- {
- cclp->error_code = CCL_ERR_TRUNC_NOT_LEFT;
- ccl_rpn_delete(p);
- return NULL;
- }
- ccl_add_attr_numeric(p, attset, CCL_BIB1_TRU, 2);
- }
- else if (regex_trunc)
- {
- ccl_add_attr_numeric(p, attset, CCL_BIB1_TRU, 102);
- }
- else if (z3958_trunc)
- {
- ccl_add_attr_numeric(p, attset, CCL_BIB1_TRU, 104);
- }
- else
- {
- if (qual_val_type(qa, CCL_BIB1_TRU, CCL_BIB1_TRU_CAN_NONE,
- &attset))
- ccl_add_attr_numeric(p, attset, CCL_BIB1_TRU, 100);
- }