1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
% This function sorts a region of lines of the form:
% keyname
% text...
% delimeter string
% keyname
% text...
% delimeter string
define sort_region_internal (line_break_str, delim)
{
check_region (0);
narrow ();
bob ();
do
{
push_mark ();
!if (bol_fsearch (delim)) eob ();
narrow ();
ERROR_BLOCK
{
widen(); widen ();
}
bob ();
while (eol(), not(eobp()))
{
del (); insert (line_break_str);
}
widen ();
}
while (down_1 ());
mark_buffer ();
goto_column (32);
ERROR_BLOCK
{
variable len = strlen (line_break_str);
bob ();
while (fsearch (line_break_str))
{
deln (len); newline ();
}
widen ();
}
sort ();
EXECUTE_ERROR_BLOCK;
}
|
