Return to ldaclose.c CVS log

Up to [Research Unix] / researchv9 / jerq / sgs / libld

Annotation of researchv9/jerq/sgs/libld/ldaclose.c, revision 1.1.1.1

1.1       root        1: #include    <stdio.h>
                      2: #include    "filehdr.h"
                      3: #include    "ldfcn.h"
                      4: 
                      5: int
                      6: ldaclose(ldptr)
                      7: 
                      8: LDFILE    *ldptr; 
                      9: 
                     10: {
                     11:     extern             fclose( );
                     12: 
                     13:     extern int         vldldptr( );
                     14:     extern             freeldptr( );
                     15: 
                     16:     if (vldldptr(ldptr) == FAILURE) {
                     17:        return(FAILURE);
                     18:     }
                     19: 
                     20:     fclose(IOPTR(ldptr));
                     21:     freeldptr(ldptr);
                     22: 
                     23:     return(SUCCESS);
                     24: }
                     25: 
                     26: static char ID[ ] = "@(#) ldaclose.c: 1.1 1/7/82";

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.