1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
 htri_t
 ss_scope_istransient(ss_scope_t *scope  /* Any open scope. */
                      )
 {
     SS_ENTER(ss_scope_istransient, htri_t);
     hid_t       scopegrp = ss_scope_isopen(scope);
     htri_t      retval=-1;

     if (scopegrp<0) SS_ERROR(FAILED);
     retval = (1==scopegrp);
  SS_CLEANUP:
     SS_LEAVE(retval);
 }