-#if 0
-struct fml_node *marc_to_fml (Fml fml, Iso2709Rec rec)
-{
- struct fml_node *ptr_0 = NULL, *ptr_1;
- struct iso2709_dir *dir;
-
- for (dir = rec->directory; dir; dir=dir->next)
- {
- struct fml_node *ptr;
-
- ptr = fml_node_alloc (fml);
- if (ptr_0)
- ptr_1->p[1] = ptr;
- else
- ptr_0 = ptr_1 = ptr;
-
- ptr_1 = ptr;
-
- if (dir->fields)
- {
- struct iso2709_field *fields = dir->fields;
-
- ptr = fml_node_alloc (fml);
- ptr->p[0] = fml_atom_alloc (fml, fields->data);
- ptr->is_atom = 1;
-
- while ((fields = fields->next))
- {
- ptr = ptr->p[0] = fml_node_alloc (fml);
- ptr->p[0] = fml_atom_alloc (fml, fields->data);
- ptr->is_atom = 1;
- }
- }
- }
- return ptr_0;
-}
-#endif
-