34 lines
1021 B
C
34 lines
1021 B
C
static char sccsid[] = "@(#)96 1.6 src/bos/usr/ccs/lib/libIN/LS2append.c, libIN, bos411, 9428A410j 6/10/91 10:20:19";
|
|
/*
|
|
* LIBIN: LS2append
|
|
*
|
|
* ORIGIN: 9
|
|
*
|
|
* IBM CONFIDENTIAL
|
|
* Copyright International Business Machines Corp. 1985, 1989
|
|
* Unpublished Work
|
|
* All Rights Reserved
|
|
* Licensed Material - Property of IBM
|
|
*
|
|
* RESTRICTED RIGHTS LEGEND
|
|
* Use, Duplication or Disclosure by the Government is subject to
|
|
* restrictions as set forth in paragraph (b)(3)(B) of the Rights in
|
|
* Technical Data and Computer Software clause in DAR 7-104.9(a).
|
|
*
|
|
* FUNCTION:
|
|
* Puts element e at the end of list L.
|
|
*
|
|
* Services for doubly linked lists with link fields in the first
|
|
* and second positions in the record. End of list in both
|
|
* directions NULL. Both ends accessible.
|
|
*
|
|
* RETURN VALUE DESCRIPTION: void
|
|
*/
|
|
|
|
#include <IN/LSdefs.h>
|
|
|
|
LS2append(L,e) register ListDouble *L; register LS2node *e; {
|
|
e->next=NULL; e->prev=L->tail;
|
|
if (L->head==NULL) L->head=e; else L->tail->next=e;
|
|
L->tail=e;}
|