1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
 ss_scope_t *
 ss_file_topscope(ss_file_t *file,               /* File for which to obtain a link to a top scope. */
                  ss_scope_t *buf                /* Optional buffer in which to store the resulting link. */
                  )
 {
     SS_ENTER(ss_file_topscope, ss_scope_tP);
     ss_scope_t  *retval=NULL;

     SS_ASSERT_TYPE(file, ss_file_t);
     if (NULL==(retval=ss_pers_topscope((ss_pers_t*)file, buf))) SS_ERROR(FAILED);
 SS_CLEANUP:
     SS_LEAVE(retval);
 }