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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
/* { dg-require-effective-target ptr_eq_long } */
/* { dg-additional-options "-O2 -Wno-shift-count-overflow" } */
struct lisp;
union vectorlike_header { long size; };
struct Lisp_Symbol { void *unused; };
extern struct Lisp_Symbol lispsym[];
static _Bool
TAGGEDP (struct lisp *a, unsigned tag)
{
return ! (((unsigned) (long) a - tag) & 7);
}
static _Bool
VECTORLIKEP (struct lisp *x)
{
return TAGGEDP (x, 5);
}
static _Bool
PSEUDOVECTOR_TYPEP (union vectorlike_header const *a, int code)
{
long PSEUDOVECTOR_FLAG = 1L << 62;
long PVEC_TYPE_MASK = 0x3fL << 24;
return ((a->size & (PSEUDOVECTOR_FLAG | PVEC_TYPE_MASK))
== (PSEUDOVECTOR_FLAG | (code << 24)));
}
static _Bool
PSEUDOVECTORP (struct lisp *a, int code)
{
if (! VECTORLIKEP (a))
return 0;
else
return PSEUDOVECTOR_TYPEP ((union vectorlike_header *) ((char *) a - 5),
code);
}
static struct lisp *
builtin_lisp_symbol (int index)
{
return (struct lisp *) (index * sizeof *lispsym);
}
static _Bool
NILP (struct lisp *x)
{
return x == builtin_lisp_symbol (0);
}
void wrong_type_argument (struct lisp *, struct lisp *);
static void
CHECK_TYPE (int ok, struct lisp *predicate, struct lisp *x)
{
if (!ok)
wrong_type_argument (predicate, x);
}
struct buffer
{
union vectorlike_header header;
struct buffer *base_buffer;
int window_count;
};
static _Bool
BUFFERP (struct lisp *a)
{
return PSEUDOVECTORP (a, 12);
}
static struct buffer *
XBUFFER (struct lisp *a)
{
return (struct buffer *) ((char *) a - 5);
}
struct window
{
union vectorlike_header header;
struct lisp *next;
struct lisp *contents;
};
static _Bool
WINDOWP (struct lisp *a)
{
return PSEUDOVECTORP (a, 12);
}
static void
CHECK_WINDOW (struct lisp *x)
{
CHECK_TYPE (WINDOWP (x), builtin_lisp_symbol (1360), x);
}
static struct window *
XWINDOW (struct lisp *a)
{
return (struct window *) ((char *) a - 5);
}
static void
wset_combination (struct window *w, _Bool horflag, struct lisp *val)
{
w->contents = val;
}
extern struct lisp *selected_window;
struct window *
decode_live_window (register struct lisp *window)
{
if (NILP (window))
return XWINDOW (selected_window);
CHECK_TYPE (WINDOWP (window) && BUFFERP (XWINDOW (window)->contents),
builtin_lisp_symbol (1351), window);
return XWINDOW (window);
}
struct window *
decode_any_window (register struct lisp *window)
{
struct window *w;
if (NILP (window))
return XWINDOW (selected_window);
CHECK_WINDOW (window);
w = XWINDOW (window);
return w;
}
static void
adjust_window_count (struct window *w, int arg)
{
if (BUFFERP (w->contents))
{
struct buffer *b = XBUFFER (w->contents);
if (b->base_buffer)
b = b->base_buffer;
b->window_count += arg;
}
}
void
wset_buffer (struct window *w, struct lisp *val)
{
adjust_window_count (w, -1);
w->contents = val;
adjust_window_count (w, 1);
}
void
delete_all_child_windows (struct lisp *window)
{
struct window *w = XWINDOW (window);
if (!NILP (w->next))
delete_all_child_windows (w->next);
if (WINDOWP (w->contents))
{
delete_all_child_windows (w->contents);
wset_combination (w, 0, builtin_lisp_symbol (0));
}
}
|
