diff options
author | Dmitry Antipov <dmantipov@yandex.ru> | 2012-08-01 10:23:24 +0400 |
---|---|---|
committer | Dmitry Antipov <dmantipov@yandex.ru> | 2012-08-01 10:23:24 +0400 |
commit | 3193acd258557340907a7281d067fdbb426c2f54 (patch) | |
tree | 533f741701969dc6dcb6111ed3c64549fbc0c79a /admin | |
parent | 3a45383a47009a5e6a15a4005ad95ecf63539182 (diff) | |
download | emacs-3193acd258557340907a7281d067fdbb426c2f54.tar.gz |
Use INTERNAL_FIELD for processes.
* src/process.h (PVAR): New macro. Adjust style.
(struct Lisp_Process): Change Lisp_Object members to INTERNAL_FIELD.
* src/print.c, src/process.c, src/sysdep.c, src/w32.c:
* src/xdisp.c: Users changed.
* admin/coccinelle/process.cocci: Semantic patch to replace direct
access to Lisp_Object members of struct Lisp_Process to PVAR.
Diffstat (limited to 'admin')
-rw-r--r-- | admin/ChangeLog | 5 | ||||
-rw-r--r-- | admin/coccinelle/process.cocci | 110 |
2 files changed, 115 insertions, 0 deletions
diff --git a/admin/ChangeLog b/admin/ChangeLog index 0837552867b..656c1a0fafa 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog @@ -1,5 +1,10 @@ 2012-08-01 Dmitry Antipov <dmantipov@yandex.ru> + * coccinelle/process.cocci: Semantic patch to replace direct + access to Lisp_Object members of struct Lisp_Process to PVAR. + +2012-08-01 Dmitry Antipov <dmantipov@yandex.ru> + * coccinelle/window.cocci: Semantic patch to replace direct access to Lisp_Object members of struct window to WVAR. 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 @@ +// Change direct access to Lisp_Object fields of struct Lisp_Process to PVAR. +@@ +struct Lisp_Process *P; +Lisp_Object O; +@@ +( +- P->tty_name ++ PVAR (P, tty_name) +| +- P->name ++ PVAR (P, name) +| +- P->command ++ PVAR (P, command) +| +- P->filter ++ PVAR (P, filter) +| +- P->sentinel ++ PVAR (P, sentinel) +| +- P->log ++ PVAR (P, log) +| +- P->buffer ++ PVAR (P, buffer) +| +- P->childp ++ PVAR (P, childp) +| +- P->plist ++ PVAR (P, plist) +| +- P->type ++ PVAR (P, type) +| +- P->mark ++ PVAR (P, mark) +| +- P->status ++ PVAR (P, status) +| +- P->decode_coding_system ++ PVAR (P, decode_coding_system) +| +- P->decoding_buf ++ PVAR (P, decoding_buf) +| +- P->encode_coding_system ++ PVAR (P, encode_coding_system) +| +- P->encoding_buf ++ PVAR (P, encoding_buf) +| +- P->write_queue ++ PVAR (P, write_queue) + +| + +- XPROCESS (O)->tty_name ++ PVAR (XPROCESS (O), tty_name) +| +- XPROCESS (O)->name ++ PVAR (XPROCESS (O), name) +| +- XPROCESS (O)->command ++ PVAR (XPROCESS (O), command) +| +- XPROCESS (O)->filter ++ PVAR (XPROCESS (O), filter) +| +- XPROCESS (O)->sentinel ++ PVAR (XPROCESS (O), sentinel) +| +- XPROCESS (O)->log ++ PVAR (XPROCESS (O), log) +| +- XPROCESS (O)->buffer ++ PVAR (XPROCESS (O), buffer) +| +- XPROCESS (O)->childp ++ PVAR (XPROCESS (O), childp) +| +- XPROCESS (O)->plist ++ PVAR (XPROCESS (O), plist) +| +- XPROCESS (O)->type ++ PVAR (XPROCESS (O), type) +| +- XPROCESS (O)->mark ++ PVAR (XPROCESS (O), mark) +| +- XPROCESS (O)->status ++ PVAR (XPROCESS (O), status) +| +- XPROCESS (O)->decode_coding_system ++ PVAR (XPROCESS (O), decode_coding_system) +| +- XPROCESS (O)->decoding_buf ++ PVAR (XPROCESS (O), decoding_buf) +| +- XPROCESS (O)->encode_coding_system ++ PVAR (XPROCESS (O), encode_coding_system) +| +- XPROCESS (O)->encoding_buf ++ PVAR (XPROCESS (O), encoding_buf) +| +- XPROCESS (O)->write_queue ++ PVAR (XPROCESS (O), write_queue) +) |