LLCOPY.c,v

head	1.1;
access;
symbols;
locks
	saclib:1.1; strict;
comment	@ * @;


1.1
date	94.07.02.23.24.43;	author saclib;	state new;
branches;
next	;


desc
@List of lists copy.
@


1.1
log
@Initial revision
@
text
@/*===========================================================================
			      Lp <- LLCOPY(L)

List of lists copy.

Input
  L : is a list of lists of objects.
  
Output
  Lp : is a copy of L.  The objects are not copied.
===========================================================================*/
#include "saclib.h"

Word LLCOPY(L)
       Word L;
{
       Word L_i,Lp,Lp_i,Ls;

Step1: /* Copy. */
       Lp = NIL;
       Ls = L;
       while (Ls != NIL) {
	  ADV(Ls,&L_i,&Ls);
	  Lp_i = LCOPY(L_i);
	  Lp = COMP(Lp_i,Lp); }
       Lp = INV(Lp);

Return: /* Prepare for return. */
       return(Lp);
}
@