extern fint irds_exist_c(fchar,fint *);