+ else if (!strcmp((const char *) ptr->name, "ccl2rpn"))
+ {
+ char *name;
+ FILE *f;
+
+ name = nmem_dup_xml_content(gfs_nmem, ptr->children);
+ if ((f = fopen(name, "r")) == 0) {
+ yaz_log(YLOG_FATAL, "can't open CCL file '%s'", name);
+ exit(1);
+ }
+ gfs->ccl_transform = ccl_qual_mk();
+ ccl_qual_file (gfs->ccl_transform, f);
+ fclose(f);
+ }