+ if (idx == NULL) PERR("NULL INDEX!");
+
+ switch (idx->tipo_dato) {
+ case IDX_FLOAT:
+ k.f_clave= *((float *)(data));
+ break;
+ case IDX_INT:
+ k.i_clave = *((int *)(data));
+ case IDX_STRING:
+ k = k;
+ /* XXX Y DE QUE COLOR NOS PINTAMOS ACA?
+ *
+ * ESTA EL PROBLEMA DE QUE ESTO SE GENERA ON THE FLY
+ * Y NOSOTROS TENEMOS COSAS EN UN ARCHIVO DE TIPO2
+ *
+ * COMO GENERAMOS LA CLAVE???
+ */
+ }
+
+ return k;
+}
+
+CLAVE emufs_indice_generar_clave(INDICE *idx, char *data)
+{
+ CLAVE k;
+ int error;
+