aboutsummaryrefslogtreecommitdiffstats
path: root/admin
diff options
context:
space:
mode:
authorJoakim Verona2012-08-01 13:16:20 +0200
committerJoakim Verona2012-08-01 13:16:20 +0200
commit610ba6f8ddf2298849cad522b6952bc694f0e63f (patch)
tree64548d6651c0501eb5838c566a6902d500228b5f /admin
parent55fa71b3d9bb8609ca3cbb56f92c776ad8724a69 (diff)
parent069bac5e5b55c0f63bd2764e727108d2b48b2643 (diff)
downloademacs-610ba6f8ddf2298849cad522b6952bc694f0e63f.tar.gz
emacs-610ba6f8ddf2298849cad522b6952bc694f0e63f.zip
upstream
Diffstat (limited to 'admin')
-rw-r--r--admin/ChangeLog25
-rw-r--r--admin/coccinelle/frame.cocci133
-rw-r--r--admin/coccinelle/overlay.cocci28
-rw-r--r--admin/coccinelle/process.cocci110
-rw-r--r--admin/coccinelle/symbol.cocci32
-rw-r--r--admin/coccinelle/window.cocci242
6 files changed, 570 insertions, 0 deletions
diff --git a/admin/ChangeLog b/admin/ChangeLog
index d97e7dde32d..54ac7b4edd7 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,28 @@
12012-08-01 Dmitry Antipov <dmantipov@yandex.ru>
2
3 * coccinelle/overlay.cocci: Semantic patch to replace direct
4 access to Lisp_Object members of struct Lisp_Overlay to MVAR.
5
62012-08-01 Dmitry Antipov <dmantipov@yandex.ru>
7
8 * coccinelle/symbol.cocci: Semantic patch to replace direct
9 access to Lisp_Object members of struct Lisp_Symbol to SVAR.
10
112012-08-01 Dmitry Antipov <dmantipov@yandex.ru>
12
13 * coccinelle/process.cocci: Semantic patch to replace direct
14 access to Lisp_Object members of struct Lisp_Process to PVAR.
15
162012-08-01 Dmitry Antipov <dmantipov@yandex.ru>
17
18 * coccinelle/window.cocci: Semantic patch to replace direct
19 access to Lisp_Object members of struct window to WVAR.
20
212012-07-31 Dmitry Antipov <dmantipov@yandex.ru>
22
23 * coccinelle/frame.cocci: Semantic patch to replace direct
24 access to Lisp_Object members of struct frame to FVAR.
25
12012-07-28 Paul Eggert <eggert@cs.ucla.edu> 262012-07-28 Paul Eggert <eggert@cs.ucla.edu>
2 27
3 Use Gnulib environ and stdalign modules (Bug#9772, Bug#9960). 28 Use Gnulib environ and stdalign modules (Bug#9772, Bug#9960).
diff --git a/admin/coccinelle/frame.cocci b/admin/coccinelle/frame.cocci
new file mode 100644
index 00000000000..a817382120a
--- /dev/null
+++ b/admin/coccinelle/frame.cocci
@@ -0,0 +1,133 @@
1// Change direct access to Lisp_Object fields of struct frame to FVAR.
2@@
3expression F;
4@@
5(
6- F->icon_name
7+ FVAR (F, icon_name)
8|
9- F->title
10+ FVAR (F, title)
11|
12- F->focus_frame
13+ FVAR (F, focus_frame)
14|
15- F->root_window
16+ FVAR (F, root_window)
17|
18- F->selected_window
19+ FVAR (F, selected_window)
20|
21- F->minibuffer_window
22+ FVAR (F, minibuffer_window)
23|
24- F->param_alist
25+ FVAR (F, param_alist)
26|
27- F->scroll_bars
28+ FVAR (F, scroll_bars)
29|
30- F->condemned_scroll_bars
31+ FVAR (F, condemned_scroll_bars)
32|
33- F->menu_bar_items
34+ FVAR (F, menu_bar_items)
35|
36- F->face_alist
37+ FVAR (F, face_alist)
38|
39- F->menu_bar_vector
40+ FVAR (F, menu_bar_vector)
41|
42- F->buffer_predicate
43+ FVAR (F, buffer_predicate)
44|
45- F->buffer_list
46+ FVAR (F, buffer_list)
47|
48- F->buried_buffer_list
49+ FVAR (F, buried_buffer_list)
50|
51- F->menu_bar_window
52+ FVAR (F, menu_bar_window)
53|
54- F->tool_bar_window
55+ FVAR (F, tool_bar_window)
56|
57- F->tool_bar_items
58+ FVAR (F, tool_bar_items)
59|
60- F->tool_bar_position
61+ FVAR (F, tool_bar_position)
62|
63- F->desired_tool_bar_string
64+ FVAR (F, desired_tool_bar_string)
65|
66- F->current_tool_bar_string
67+ FVAR (F, current_tool_bar_string)
68
69|
70
71- XFRAME (F)->icon_name
72+ FVAR (XFRAME (F), icon_name)
73|
74- XFRAME (F)->title
75+ FVAR (XFRAME (F), title)
76|
77- XFRAME (F)->focus_frame
78+ FVAR (XFRAME (F), focus_frame)
79|
80- XFRAME (F)->root_window
81+ FVAR (XFRAME (F), root_window)
82|
83- XFRAME (F)->selected_window
84+ FVAR (XFRAME (F), selected_window)
85|
86- XFRAME (F)->minibuffer_window
87+ FVAR (XFRAME (F), minibuffer_window)
88|
89- XFRAME (F)->param_alist
90+ FVAR (XFRAME (F), param_alist)
91|
92- XFRAME (F)->scroll_bars
93+ FVAR (XFRAME (F), scroll_bars)
94|
95- XFRAME (F)->condemned_scroll_bars
96+ FVAR (XFRAME (F), condemned_scroll_bars)
97|
98- XFRAME (F)->menu_bar_items
99+ FVAR (XFRAME (F), menu_bar_items)
100|
101- XFRAME (F)->face_alist
102+ FVAR (XFRAME (F), face_alist)
103|
104- XFRAME (F)->menu_bar_vector
105+ FVAR (XFRAME (F), menu_bar_vector)
106|
107- XFRAME (F)->buffer_predicate
108+ FVAR (XFRAME (F), buffer_predicate)
109|
110- XFRAME (F)->buffer_list
111+ FVAR (XFRAME (F), buffer_list)
112|
113- XFRAME (F)->buried_buffer_list
114+ FVAR (XFRAME (F), buried_buffer_list)
115|
116- XFRAME (F)->menu_bar_window
117+ FVAR (XFRAME (F), menu_bar_window)
118|
119- XFRAME (F)->tool_bar_window
120+ FVAR (XFRAME (F), tool_bar_window)
121|
122- XFRAME (F)->tool_bar_items
123+ FVAR (XFRAME (F), tool_bar_items)
124|
125- XFRAME (F)->tool_bar_position
126+ FVAR (XFRAME (F), tool_bar_position)
127|
128- XFRAME (F)->desired_tool_bar_string
129+ FVAR (XFRAME (F), desired_tool_bar_string)
130|
131- XFRAME (F)->current_tool_bar_string
132+ FVAR (XFRAME (F), current_tool_bar_string)
133)
diff --git a/admin/coccinelle/overlay.cocci b/admin/coccinelle/overlay.cocci
new file mode 100644
index 00000000000..2be141e8332
--- /dev/null
+++ b/admin/coccinelle/overlay.cocci
@@ -0,0 +1,28 @@
1// Change direct access to Lisp_Object fields of struct
2// Lisp_Overlay to MVAR. Beginning M denotes "misc", and
3// MVAR is likely to be used for other second-class objects.
4@@
5struct Lisp_Overlay *V;
6Lisp_Object O;
7@@
8(
9- V->start
10+ MVAR (V, start)
11|
12- V->end
13+ MVAR (V, end)
14|
15- V->plist
16+ MVAR (V, plist)
17
18|
19
20- XOVERLAY (O)->start
21+ MVAR (XOVERLAY (O), start)
22|
23- XOVERLAY (O)->end
24+ MVAR (XOVERLAY (O), end)
25|
26- XOVERLAY (O)->plist
27+ MVAR (XOVERLAY (O), plist)
28)
diff --git a/admin/coccinelle/process.cocci b/admin/coccinelle/process.cocci
new file mode 100644
index 00000000000..bf295ab7b6f
--- /dev/null
+++ b/admin/coccinelle/process.cocci
@@ -0,0 +1,110 @@
1// Change direct access to Lisp_Object fields of struct Lisp_Process to PVAR.
2@@
3struct Lisp_Process *P;
4Lisp_Object O;
5@@
6(
7- P->tty_name
8+ PVAR (P, tty_name)
9|
10- P->name
11+ PVAR (P, name)
12|
13- P->command
14+ PVAR (P, command)
15|
16- P->filter
17+ PVAR (P, filter)
18|
19- P->sentinel
20+ PVAR (P, sentinel)
21|
22- P->log
23+ PVAR (P, log)
24|
25- P->buffer
26+ PVAR (P, buffer)
27|
28- P->childp
29+ PVAR (P, childp)
30|
31- P->plist
32+ PVAR (P, plist)
33|
34- P->type
35+ PVAR (P, type)
36|
37- P->mark
38+ PVAR (P, mark)
39|
40- P->status
41+ PVAR (P, status)
42|
43- P->decode_coding_system
44+ PVAR (P, decode_coding_system)
45|
46- P->decoding_buf
47+ PVAR (P, decoding_buf)
48|
49- P->encode_coding_system
50+ PVAR (P, encode_coding_system)
51|
52- P->encoding_buf
53+ PVAR (P, encoding_buf)
54|
55- P->write_queue
56+ PVAR (P, write_queue)
57
58|
59
60- XPROCESS (O)->tty_name
61+ PVAR (XPROCESS (O), tty_name)
62|
63- XPROCESS (O)->name
64+ PVAR (XPROCESS (O), name)
65|
66- XPROCESS (O)->command
67+ PVAR (XPROCESS (O), command)
68|
69- XPROCESS (O)->filter
70+ PVAR (XPROCESS (O), filter)
71|
72- XPROCESS (O)->sentinel
73+ PVAR (XPROCESS (O), sentinel)
74|
75- XPROCESS (O)->log
76+ PVAR (XPROCESS (O), log)
77|
78- XPROCESS (O)->buffer
79+ PVAR (XPROCESS (O), buffer)
80|
81- XPROCESS (O)->childp
82+ PVAR (XPROCESS (O), childp)
83|
84- XPROCESS (O)->plist
85+ PVAR (XPROCESS (O), plist)
86|
87- XPROCESS (O)->type
88+ PVAR (XPROCESS (O), type)
89|
90- XPROCESS (O)->mark
91+ PVAR (XPROCESS (O), mark)
92|
93- XPROCESS (O)->status
94+ PVAR (XPROCESS (O), status)
95|
96- XPROCESS (O)->decode_coding_system
97+ PVAR (XPROCESS (O), decode_coding_system)
98|
99- XPROCESS (O)->decoding_buf
100+ PVAR (XPROCESS (O), decoding_buf)
101|
102- XPROCESS (O)->encode_coding_system
103+ PVAR (XPROCESS (O), encode_coding_system)
104|
105- XPROCESS (O)->encoding_buf
106+ PVAR (XPROCESS (O), encoding_buf)
107|
108- XPROCESS (O)->write_queue
109+ PVAR (XPROCESS (O), write_queue)
110)
diff --git a/admin/coccinelle/symbol.cocci b/admin/coccinelle/symbol.cocci
new file mode 100644
index 00000000000..c988fabc256
--- /dev/null
+++ b/admin/coccinelle/symbol.cocci
@@ -0,0 +1,32 @@
1// Change direct access to Lisp_Object fields of struct Lisp_Symbol to SVAR.
2@@
3struct Lisp_Symbol *S;
4Lisp_Object O;
5@@
6(
7- S->xname
8+ SVAR (S, xname)
9|
10- S->val.value
11+ SVAR (S, val.value)
12|
13- S->function
14+ SVAR (S, function)
15|
16- S->plist
17+ SVAR (S, plist)
18
19|
20
21- XSYMBOL (O)->xname
22+ SVAR (XSYMBOL (O), xname)
23|
24- XSYMBOL (O)->val.value
25+ SVAR (XSYMBOL (O), val.value)
26|
27- XSYMBOL (O)->function
28+ SVAR (XSYMBOL (O), function)
29|
30- XSYMBOL (O)->plist
31+ SVAR (XSYMBOL (O), plist)
32)
diff --git a/admin/coccinelle/window.cocci b/admin/coccinelle/window.cocci
new file mode 100644
index 00000000000..1448febfcc1
--- /dev/null
+++ b/admin/coccinelle/window.cocci
@@ -0,0 +1,242 @@
1// Change direct access to Lisp_Object fields of struct window to WVAR.
2@@
3struct window *W;
4Lisp_Object O;
5@@
6(
7- W->frame
8+ WVAR (W, frame)
9|
10- W->next
11+ WVAR (W, next)
12|
13- W->prev
14+ WVAR (W, prev)
15|
16- W->hchild
17+ WVAR (W, hchild)
18|
19- W->vchild
20+ WVAR (W, vchild)
21|
22- W->parent
23+ WVAR (W, parent)
24|
25- W->left_col
26+ WVAR (W, left_col)
27|
28- W->top_line
29+ WVAR (W, top_line)
30|
31- W->total_lines
32+ WVAR (W, total_lines)
33|
34- W->total_cols
35+ WVAR (W, total_cols)
36|
37- W->normal_lines
38+ WVAR (W, normal_lines)
39|
40- W->normal_cols
41+ WVAR (W, normal_cols)
42|
43- W->new_total
44+ WVAR (W, new_total)
45|
46- W->new_normal
47+ WVAR (W, new_normal)
48|
49- W->buffer
50+ WVAR (W, buffer)
51|
52- W->start
53+ WVAR (W, start)
54|
55- W->pointm
56+ WVAR (W, pointm)
57|
58- W->temslot
59+ WVAR (W, temslot)
60|
61- W->vertical_scroll_bar
62+ WVAR (W, vertical_scroll_bar)
63|
64- W->left_margin_cols
65+ WVAR (W, left_margin_cols)
66|
67- W->right_margin_cols
68+ WVAR (W, right_margin_cols)
69|
70- W->left_fringe_width
71+ WVAR (W, left_fringe_width)
72|
73- W->right_fringe_width
74+ WVAR (W, right_fringe_width)
75|
76- W->scroll_bar_width
77+ WVAR (W, scroll_bar_width)
78|
79- W->vertical_scroll_bar_type
80+ WVAR (W, vertical_scroll_bar_type)
81|
82- W->window_end_pos
83+ WVAR (W, window_end_pos)
84|
85- W->window_end_vpos
86+ WVAR (W, window_end_vpos)
87|
88- W->window_end_valid
89+ WVAR (W, window_end_valid)
90|
91- W->display_table
92+ WVAR (W, display_table)
93|
94- W->dedicated
95+ WVAR (W, dedicated)
96|
97- W->base_line_number
98+ WVAR (W, base_line_number)
99|
100- W->base_line_pos
101+ WVAR (W, base_line_pos)
102|
103- W->region_showing
104+ WVAR (W, region_showing)
105|
106- W->column_number_displayed
107+ WVAR (W, column_number_displayed)
108|
109- W->redisplay_end_trigger
110+ WVAR (W, redisplay_end_trigger)
111|
112- W->combination_limit
113+ WVAR (W, combination_limit)
114|
115- W->prev_buffers
116+ WVAR (W, prev_buffers)
117|
118- W->next_buffers
119+ WVAR (W, next_buffers)
120|
121- W->window_parameters
122+ WVAR (W, window_parameters)
123
124|
125
126- XWINDOW (O)->frame
127+ WVAR (XWINDOW (O), frame)
128|
129- XWINDOW (O)->next
130+ WVAR (XWINDOW (O), next)
131|
132- XWINDOW (O)->prev
133+ WVAR (XWINDOW (O), prev)
134|
135- XWINDOW (O)->hchild
136+ WVAR (XWINDOW (O), hchild)
137|
138- XWINDOW (O)->vchild
139+ WVAR (XWINDOW (O), vchild)
140|
141- XWINDOW (O)->parent
142+ WVAR (XWINDOW (O), parent)
143|
144- XWINDOW (O)->left_col
145+ WVAR (XWINDOW (O), left_col)
146|
147- XWINDOW (O)->top_line
148+ WVAR (XWINDOW (O), top_line)
149|
150- XWINDOW (O)->total_lines
151+ WVAR (XWINDOW (O), total_lines)
152|
153- XWINDOW (O)->total_cols
154+ WVAR (XWINDOW (O), total_cols)
155|
156- XWINDOW (O)->normal_lines
157+ WVAR (XWINDOW (O), normal_lines)
158|
159- XWINDOW (O)->normal_cols
160+ WVAR (XWINDOW (O), normal_cols)
161|
162- XWINDOW (O)->new_total
163+ WVAR (XWINDOW (O), new_total)
164|
165- XWINDOW (O)->new_normal
166+ WVAR (XWINDOW (O), new_normal)
167|
168- XWINDOW (O)->buffer
169+ WVAR (XWINDOW (O), buffer)
170|
171- XWINDOW (O)->start
172+ WVAR (XWINDOW (O), start)
173|
174- XWINDOW (O)->pointm
175+ WVAR (XWINDOW (O), pointm)
176|
177- XWINDOW (O)->temslot
178+ WVAR (XWINDOW (O), temslot)
179|
180- XWINDOW (O)->vertical_scroll_bar
181+ WVAR (XWINDOW (O), vertical_scroll_bar)
182|
183- XWINDOW (O)->left_margin_cols
184+ WVAR (XWINDOW (O), left_margin_cols)
185|
186- XWINDOW (O)->right_margin_cols
187+ WVAR (XWINDOW (O), right_margin_cols)
188|
189- XWINDOW (O)->left_fringe_width
190+ WVAR (XWINDOW (O), left_fringe_width)
191|
192- XWINDOW (O)->right_fringe_width
193+ WVAR (XWINDOW (O), right_fringe_width)
194|
195- XWINDOW (O)->scroll_bar_width
196+ WVAR (XWINDOW (O), scroll_bar_width)
197|
198- XWINDOW (O)->vertical_scroll_bar_type
199+ WVAR (XWINDOW (O), vertical_scroll_bar_type)
200|
201- XWINDOW (O)->window_end_pos
202+ WVAR (XWINDOW (O), window_end_pos)
203|
204- XWINDOW (O)->window_end_vpos
205+ WVAR (XWINDOW (O), window_end_vpos)
206|
207- XWINDOW (O)->window_end_valid
208+ WVAR (XWINDOW (O), window_end_valid)
209|
210- XWINDOW (O)->display_table
211+ WVAR (XWINDOW (O), display_table)
212|
213- XWINDOW (O)->dedicated
214+ WVAR (XWINDOW (O), dedicated)
215|
216- XWINDOW (O)->base_line_number
217+ WVAR (XWINDOW (O), base_line_number)
218|
219- XWINDOW (O)->base_line_pos
220+ WVAR (XWINDOW (O), base_line_pos)
221|
222- XWINDOW (O)->region_showing
223+ WVAR (XWINDOW (O), region_showing)
224|
225- XWINDOW (O)->column_number_displayed
226+ WVAR (XWINDOW (O), column_number_displayed)
227|
228- XWINDOW (O)->redisplay_end_trigger
229+ WVAR (XWINDOW (O), redisplay_end_trigger)
230|
231- XWINDOW (O)->combination_limit
232+ WVAR (XWINDOW (O), combination_limit)
233|
234- XWINDOW (O)->prev_buffers
235+ WVAR (XWINDOW (O), prev_buffers)
236|
237- XWINDOW (O)->next_buffers
238+ WVAR (XWINDOW (O), next_buffers)
239|
240- XWINDOW (O)->window_parameters
241+ WVAR (XWINDOW (O), window_parameters)
242)
generated by cgit v1.2.1 (git 2.18.0) at 2026-02-13 23:57:26 +0000