69 lines
1.1 KiB
C
69 lines
1.1 KiB
C
/* $Header$ */
|
|
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
/* I N L I N E S U B S T I T U T I O N
|
|
*
|
|
* I L 3 _ A U X . C
|
|
*/
|
|
|
|
|
|
#include "../share/types.h"
|
|
#include "il.h"
|
|
#include "../share/debug.h"
|
|
#include "../share/alloc.h"
|
|
#include "../share/global.h"
|
|
#include "il_aux.h"
|
|
#include "il3_aux.h"
|
|
|
|
|
|
|
|
line_p last_line(lines)
|
|
line_p lines;
|
|
{
|
|
/* Determine the last line of a list */
|
|
|
|
register line_p l;
|
|
|
|
assert (lines != (line_p) 0);
|
|
for (l = lines; l->l_next != (line_p) 0; l = l->l_next);
|
|
return l;
|
|
}
|
|
|
|
|
|
|
|
app_list(list,l)
|
|
line_p list,l;
|
|
{
|
|
/* Append the list after line l */
|
|
|
|
line_p llast;
|
|
|
|
assert(l != (line_p) 0);
|
|
assert (list != (line_p) 0);
|
|
llast = last_line(list);
|
|
llast->l_next = l->l_next;
|
|
if (l->l_next != (line_p) 0) {
|
|
PREV(l->l_next) = llast;
|
|
}
|
|
l->l_next = list;
|
|
PREV(list) = l;
|
|
}
|
|
|
|
|
|
|
|
rem_line(l)
|
|
line_p l;
|
|
{
|
|
/* Remove a line from the list */
|
|
|
|
if (PREV(l) != (line_p) 0) {
|
|
PREV(l)->l_next = l->l_next;
|
|
}
|
|
if (l->l_next != (line_p) 0) {
|
|
PREV(l->l_next) = PREV(l);
|
|
}
|
|
oldline(l);
|
|
}
|