1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | htri_t
ss_scope_isopentop(ss_scope_t *scope)
{
SS_ENTER(ss_scope_isopentop, htri_t);
ss_gfile_t *gfile=NULL;
htri_t retval=FALSE;
SS_ASSERT_TYPE(scope, ss_scope_t);
if (NULL==SS_SCOPE(scope)) goto done;
if (NULL==(gfile=SS_GFILE_LINK(scope))) goto done;
if (gfile->cur_open<=0) goto done; /*file is closed*/
if (!SS_SCOPE(scope)) goto done;
if ((retval = SS_PERS_EQ(scope, gfile->topscope))<0) SS_ERROR(FAILED);
done:
SS_STATUS_OK;
SS_CLEANUP:
SS_LEAVE(retval);
}
|