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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
/* This file is Copyright 1993 by Clifford A. Adams */
/* smisc.c
*
* Lots of misc. stuff.
*/
#include "EXTERN.h"
#include "common.h"
#ifdef SCAN
#include "hash.h"
#include "cache.h"
#include "rt-util.h" /* for from-compression stuff */
#include "intrp.h"
#include "term.h"
#include "util.h"
#include "scan.h"
#include "sdisp.h"
#include "sorder.h"
#include "charsubst.h"
#ifdef SCAN_ART
#include "samisc.h"
#include "sadesc.h"
#endif
#include "INTERN.h"
#include "smisc.h"
bool
s_eligible(ent)
long ent;
{
switch (s_cur_type) {
#ifdef SCAN_ART
case S_ART:
return sa_eligible(ent);
#endif
default:
printf("s_eligible: current type is bad!\n") FLUSH;
return FALSE;
}
}
void
s_beep()
{
putchar(7);
fflush(stdout);
}
char*
s_get_statchars(ent,line)
long ent;
int line;
{
if (s_status_cols == 0)
return nullstr;
switch (s_cur_type) {
#ifdef SCAN_ART
case S_ART:
return sa_get_statchars(ent,line);
#endif
default:
return NULL;
}
}
char*
s_get_desc(ent,line,trunc)
long ent;
int line;
bool_int trunc;
{
switch (s_cur_type) {
#ifdef SCAN_ART
case S_ART:
return sa_get_desc(ent,line,trunc);
#endif
default:
return NULL;
}
}
int
s_ent_lines(ent)
long ent;
{
switch (s_cur_type) {
#ifdef SCAN_ART
case S_ART:
return sa_ent_lines(ent);
#endif
default:
return 1;
}
}
#endif /* SCAN */
|
