blob: 77d56eb496373d112f827bcff9b0723c1eeee5b0 (
plain) (
blame)
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
|
# IMPSTATUS.X -- Support routines for multiple line, scrolling status line.
# SL_INIT -- Initialize the status lines for nlines
procedure sl_init (sl, nlines)
pointer sl # Pointer to status lines
int nlines # Number of lines
int i
begin
i = nlines * (SZ_LINE + 1)
if (sl == NULL)
call calloc (sl, i, TY_CHAR)
else {
call realloc (sl, i, TY_CHAR)
call aclrc (Memc[sl], i)
}
Memc[sl] = nlines
end
# SL_FREE -- Free memory used in the status lines
procedure sl_free (sl)
pointer sl # Pointer to status lines
begin
call mfree (sl, TY_CHAR)
end
# SL_GETSTR -- Get a status line string as a char pointer
pointer procedure sl_getstr (sl, line)
pointer sl # Pointer to status lines
int line # Line to enter
int i
begin
i = mod (line-1, int(Memc[sl]))
return (sl + i * (SZ_LINE+1) + 1)
end
|
