47 lines
1.1 KiB
C
Executable File
47 lines
1.1 KiB
C
Executable File
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
|
|
/* All Rights Reserved */
|
|
|
|
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */
|
|
/* The copyright notice above does not evidence any */
|
|
/* actual or intended publication of such source code. */
|
|
|
|
#ident "@(#)TLdelete.c 1.4 92/07/14 SMI" /* SVr4.0 1.3 */
|
|
#include <table.h>
|
|
#include <internal.h>
|
|
|
|
extern tbl_t TLtables[];
|
|
|
|
int
|
|
TLdelete( tid, entryno )
|
|
int tid;
|
|
entryno_t entryno;
|
|
{
|
|
register rc;
|
|
/* Initialize TLlib, if needed */
|
|
TLinit();
|
|
|
|
tid--;
|
|
if( !TLt_valid( tid ) ) return( TLBADID );
|
|
|
|
if( T_EMPTY(tid) || entryno < 0 || entryno > TLEND )
|
|
return( TLBADENTRY );
|
|
|
|
/* If entryno is relative to TLEND, calculate the absolute entryno */
|
|
if( IS_FROM_END(entryno) )
|
|
entryno = TLe_relative( tid, entryno );
|
|
else if( entryno == TLBEGIN )
|
|
entryno = 1;
|
|
|
|
/*
|
|
TLe_find() insures that the entry, it it exists, is parsed and
|
|
in main memory.
|
|
*/
|
|
if( (rc = TLe_find( tid, entryno ) ) != TLOK ) return( rc );
|
|
|
|
/* Delete the entry */
|
|
rc = TLe_delete( tid, entryno );
|
|
|
|
if( rc == TLOK ) TLtables[ tid ].status |= MODIFIED;
|
|
return( rc );
|
|
}
|