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);
}
|