ldaclose.c

来自「speech signal process tools」· C语言 代码 · 共 31 行

#include    <system.h>
#include    <stdio.h>
#include    "filehdr.h"
#include    "ldfcn.h"

/* static char *sccs_id = "@(#)ldaclose.c	1.2 12/8/89 ESI, ATT"; */

#if	ANSI 
    int		vldldptr( LDFILE *);
    int  	freeldptr( LDFILE *);
#else 
    int		vldldptr( );
    int  	freeldptr( );
#endif 

int
ldaclose(ldptr)
LDFILE    *ldptr; 
{

    if (vldldptr(ldptr) == FAILURE) {
	return(FAILURE);
    }

    fclose(IOPTR(ldptr));
    freeldptr(ldptr);

    return(SUCCESS);
}