Completed writing of strings and xrefs.

[gedcom-parse.git] / gom / place.c

diff --git a/gom/place.c b/gom/place.c
index bb6ead6586f43499bea300d1be4047778af01c9c..7385a56f84f1a311a82e621f188c9cc3bc9d5f4c 100644 (file)
--- a/gom/place.c
+++ b/gom/place.c
@@ -115,3 +115,24 @@ void place_cleanup(struct place* place)
   }
   SAFE_FREE(place);
 }
+
+int write_place(Gedcom_write_hndl hndl, int parent, struct place* place)
+{
+  int result = 0;
+  
+  if (!place) return 1;
+  
+  result |= gedcom_write_element_str(hndl, ELT_SUB_PLAC, 0,
+                                    parent, place->value);
+  if (place->place_hierarchy)
+    result |= gedcom_write_element_str(hndl, ELT_SUB_PLAC_FORM, 0,
+                                      ELT_SUB_PLAC, place->place_hierarchy);
+  if (place->citation)
+    result |= write_citations(hndl, ELT_SUB_PLAC, place->citation);
+  if (place->note)
+    result |= write_note_subs(hndl, ELT_SUB_PLAC, place->note);
+  if (place->extra)
+    result |= write_user_data(hndl, place->extra);
+
+  return result;
+}