annotate 3rdparty/packages/ed/del.c @ 1942:b41df77588b0

printer is now scbbp sio is now scbbt All references changed in various files
author boisy
date Sat, 26 Nov 2005 22:51:50 +0000
parents bef1844de0dc
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
994
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
1 /* del.c */
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
2 #include <stdio.h>
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
3 #include "tools.h"
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
4 #include "ed.h"
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
5
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
6 int del(from, to)
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
7 int from, to;
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
8 {
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
9 LINE *first, *last, *next, *tmp;
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
10
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
11 if (from < 1) from = 1;
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
12 first = getptr(prevln(from));
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
13 last = getptr(nextln(to));
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
14 next = first->l_next;
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
15 while (next != last && next != &line0) {
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
16 tmp = next->l_next;
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
17 free((char *) next);
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
18 next = tmp;
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
19 }
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
20 relink(first, last, first, last);
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
21 lastln -= (to - from) + 1;
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
22 curln = prevln(from);
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
23 return(0);
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
24 }
bef1844de0dc The ED editor ported from Minix
roug
parents:
diff changeset
25