From f004b234ee657a65f40189dacaf4ee9b17be011c Mon Sep 17 00:00:00 2001
From: Ed Hartnett <edwardjameshartnett@gmail.com>
Date: Wed, 17 Jul 2019 10:47:45 -0600
Subject: [PATCH] more work on ncint, with inq_format functions

---
 src/ncint/ncintdispatch.c | 26 +++++++++++++++++++++-----
 1 file changed, 21 insertions(+), 5 deletions(-)

diff --git a/src/ncint/ncintdispatch.c b/src/ncint/ncintdispatch.c
index cc993b5762e..b1a041f1bae 100644
--- a/src/ncint/ncintdispatch.c
+++ b/src/ncint/ncintdispatch.c
@@ -19,8 +19,6 @@ int diosysid;
 /** Did we initialize user-defined format? */
 int ncint_initialized = 0;
 
-#define TEST_VAL_42 42
-
 /* This is the dispatch object that holds pointers to all the
  * functions that make up the NCINT dispatch interface. */
 NC_Dispatch NCINT_dispatcher = {
@@ -278,7 +276,7 @@ PIO_NCINT_sync(int ncid)
 int
 PIO_NCINT_abort(int ncid)
 {
-    return TEST_VAL_42;
+    return PIO_NCINT_close(ncid, NULL);
 }
 
 /**
@@ -331,13 +329,31 @@ PIO_NCINT_set_fill(int ncid, int fillmode, int *old_modep)
 int
 PIO_NCINT_inq_format(int ncid, int *formatp)
 {
-    return TEST_VAL_42;
+    /* HDF4 is the format. */
+    if (formatp)
+        *formatp = NC_FORMATX_UDF0;
+
+    return NC_NOERR;
 }
 
 int
 PIO_NCINT_inq_format_extended(int ncid, int *formatp, int *modep)
 {
-    return TEST_VAL_42;
+    NC *nc;
+    int retval;
+
+    LOG((2, "%s: ncid 0x%x", __func__, ncid));
+
+    if ((retval = nc4_find_nc_grp_h5(ncid, &nc, NULL, NULL)))
+        return NC_EBADID;
+
+    if (modep)
+        *modep = nc->mode|NC_UDF0;
+
+    if (formatp)
+        *formatp = NC_FORMATX_UDF0;
+
+    return NC_NOERR;
 }
 
 /**