+
+int emufs_indice_es_clave_nula(INDICE *idx, CLAVE k)
+{
+ char *sc1;
+ EMUFS_REG_SIZE dummy; /* No me interesa el tamaño del string aca! */
+ int error=0;
+
+ switch (idx->tipo_dato) {
+ case IDX_FLOAT:
+ return k.f_clave == -1 ;
+ case IDX_INT:
+ return k.i_clave == -1;
+ case IDX_STRING:
+ error = 0;
+ sc1 = idx->emu_string->leer_registro(idx->emu_string, k, &dummy, &error);
+ error = strlen(sc1);
+ free(sc1);
+ return error==0;
+ }
+ return 0;
+}