1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
 htri_t
 ss_file_iswritable(ss_file_t *file      /* A link to some File object */
                    )
 {
     SS_ENTER(ss_file_iswritable, htri_t);
     htri_t              retval=-1;
     ss_gfile_t          *gfile=NULL;

     if (ss_file_isopen(file, NULL)<=0) SS_ERROR(NOTOPEN);
     if (NULL==(gfile=SS_GFILE_LINK(file))) SS_ERROR(NOTFOUND);
     retval = (gfile->flags & H5F_ACC_RDWR) ? TRUE : FALSE;
 SS_CLEANUP:
     SS_LEAVE(retval);
 }