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