Mercurial > emacs

comparison src/lread.c @ 109100:2bc9a0c04c87

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove __P and P_ from .c and .m files and definition of P_ * lisp.h: * atimer.h: Remove define for P_. * alloc.c: Remove __P and P_ from .c and .m files. * atimer.c: * buffer.c: * callint.c: * category.c: * charset.c: * chartab.c: * cm.c: * coding.c: * composite.c: * data.c: * dired.c: * dispnew.c: * doc.c: * editfns.c: * emacs.c: * eval.c: * fileio.c: * filelock.c: * fns.c: * font.c: * fontset.c: * frame.c: * ftfont.c: * ftxfont.c: * gmalloc.c: * gtkutil.c: * image.c: * indent.c: * intervals.c: * keyboard.c: * keymap.c: * lread.c: * marker.c: * menu.c: * minibuf.c: * print.c: * process.c: * scroll.c: * search.c: * sound.c: * strftime.c: * syntax.c: * sysdep.c: * term.c: * terminal.c: * textprop.c: * unexalpha.c: * w32console.c: * w32fns.c: * w32font.c: * w32menu.c: * w32term.c: * w32uniscribe.c: * window.c: * xdisp.c: * xfaces.c: * xfns.c: * xfont.c: * xftfont.c: * xmenu.c: * xselect.c: * xterm.c: Likewise. * ebrowse.c: Remove P_ and __P. * etags.c: * movemail.c: * pop.c: * update-game-score.c: Likewise.
author Jan D <jan.h.d@swipnet.se>
date Fri, 02 Jul 2010 14:19:53 +0200
parents 64f7d70035b7
children aec1143e8d85
comparison
equal deleted inserted replaced
109099:e16f43875a48 109100:2bc9a0c04c87
217 217
218 /* A regular expression used to detect files compiled with Emacs. */ 218 /* A regular expression used to detect files compiled with Emacs. */
219 219
220 static Lisp_Object Vbytecomp_version_regexp; 220 static Lisp_Object Vbytecomp_version_regexp;
221 221
222 static int read_emacs_mule_char P_ ((int, int (*) (int, Lisp_Object), 222 static int read_emacs_mule_char (int, int (*) (int, Lisp_Object),
223 Lisp_Object)); 223 Lisp_Object);
224 224
225 static void readevalloop P_ ((Lisp_Object, FILE*, Lisp_Object, 225 static void readevalloop (Lisp_Object, FILE*, Lisp_Object,
226 Lisp_Object (*) (), int, 226 Lisp_Object (*) (), int,
227 Lisp_Object, Lisp_Object, 227 Lisp_Object, Lisp_Object,
228 Lisp_Object, Lisp_Object)); 228 Lisp_Object, Lisp_Object);
229 static Lisp_Object load_unwind P_ ((Lisp_Object)); 229 static Lisp_Object load_unwind (Lisp_Object);
230 static Lisp_Object load_descriptor_unwind P_ ((Lisp_Object)); 230 static Lisp_Object load_descriptor_unwind (Lisp_Object);
231 231
232 static void invalid_syntax P_ ((const char *, int)) NO_RETURN; 232 static void invalid_syntax (const char *, int) NO_RETURN;
233 static void end_of_file_error P_ (()) NO_RETURN; 233 static void end_of_file_error () NO_RETURN;
234 234
235 235
236 /* Functions that read one byte from the current source READCHARFUN 236 /* Functions that read one byte from the current source READCHARFUN
237 or unreads one byte. If the integer argument C is -1, it returns 237 or unreads one byte. If the integer argument C is -1, it returns
238 one read byte, or -1 when there's no more byte in the source. If C 238 one read byte, or -1 when there's no more byte in the source. If C
239 is 0 or positive, it unreads C, and the return value is not 239 is 0 or positive, it unreads C, and the return value is not
240 interesting. */ 240 interesting. */
241 241
242 static int readbyte_for_lambda P_ ((int, Lisp_Object)); 242 static int readbyte_for_lambda (int, Lisp_Object);
243 static int readbyte_from_file P_ ((int, Lisp_Object)); 243 static int readbyte_from_file (int, Lisp_Object);
244 static int readbyte_from_string P_ ((int, Lisp_Object)); 244 static int readbyte_from_string (int, Lisp_Object);
245 245
246 /* Handle unreading and rereading of characters. 246 /* Handle unreading and rereading of characters.
247 Write READCHAR to read a character, 247 Write READCHAR to read a character,
248 UNREAD(c) to unread c to be read again. 248 UNREAD(c) to unread c to be read again.
249 249
266 Lisp_Object readcharfun; 266 Lisp_Object readcharfun;
267 int *multibyte; 267 int *multibyte;
268 { 268 {
269 Lisp_Object tem; 269 Lisp_Object tem;
270 register int c; 270 register int c;
271 int (*readbyte) P_ ((int, Lisp_Object)); 271 int (*readbyte) (int, Lisp_Object);
272 unsigned char buf[MAX_MULTIBYTE_LENGTH]; 272 unsigned char buf[MAX_MULTIBYTE_LENGTH];
273 int i, len; 273 int i, len;
274 int emacs_mule_encoding = 0; 274 int emacs_mule_encoding = 0;
275 275
276 if (multibyte) 276 if (multibyte)
573 extern char emacs_mule_bytes[256]; 573 extern char emacs_mule_bytes[256];
574 574
575 static int 575 static int
576 read_emacs_mule_char (c, readbyte, readcharfun) 576 read_emacs_mule_char (c, readbyte, readcharfun)
577 int c; 577 int c;
578 int (*readbyte) P_ ((int, Lisp_Object)); 578 int (*readbyte) (int, Lisp_Object);
579 Lisp_Object readcharfun; 579 Lisp_Object readcharfun;
580 { 580 {
581 /* Emacs-mule coding uses at most 4-byte for one character. */ 581 /* Emacs-mule coding uses at most 4-byte for one character. */
582 unsigned char buf[4]; 582 unsigned char buf[4];
583 int len = emacs_mule_bytes[c]; 583 int len = emacs_mule_bytes[c];
633 Fcons (build_string ("invalid multibyte form"), Qnil)); 633 Fcons (build_string ("invalid multibyte form"), Qnil));
634 return c; 634 return c;
635 } 635 }
636 636
637 637
638 static Lisp_Object read_internal_start P_ ((Lisp_Object, Lisp_Object, 638 static Lisp_Object read_internal_start (Lisp_Object, Lisp_Object,
639 Lisp_Object)); 639 Lisp_Object);
640 static Lisp_Object read0 P_ ((Lisp_Object)); 640 static Lisp_Object read0 (Lisp_Object);
641 static Lisp_Object read1 P_ ((Lisp_Object, int *, int)); 641 static Lisp_Object read1 (Lisp_Object, int *, int);
642 642
643 static Lisp_Object read_list P_ ((int, Lisp_Object)); 643 static Lisp_Object read_list (int, Lisp_Object);
644 static Lisp_Object read_vector P_ ((Lisp_Object, int)); 644 static Lisp_Object read_vector (Lisp_Object, int);
645 645
646 static Lisp_Object substitute_object_recurse P_ ((Lisp_Object, Lisp_Object, 646 static Lisp_Object substitute_object_recurse (Lisp_Object, Lisp_Object,
647 Lisp_Object)); 647 Lisp_Object);
648 static void substitute_object_in_subtree P_ ((Lisp_Object, 648 static void substitute_object_in_subtree (Lisp_Object,
649 Lisp_Object)); 649 Lisp_Object);
650 static void substitute_in_interval P_ ((INTERVAL, Lisp_Object)); 650 static void substitute_in_interval (INTERVAL, Lisp_Object);
651 651
652 652
653 /* Get a character from the tty. */ 653 /* Get a character from the tty. */
654 654
655 /* Read input events until we get one that's acceptable for our purposes. 655 /* Read input events until we get one that's acceptable for our purposes.
3871 } 3871 }
3872 3872
3873 void 3873 void
3874 map_obarray (obarray, fn, arg) 3874 map_obarray (obarray, fn, arg)
3875 Lisp_Object obarray; 3875 Lisp_Object obarray;
3876 void (*fn) P_ ((Lisp_Object, Lisp_Object)); 3876 void (*fn) (Lisp_Object, Lisp_Object);
3877 Lisp_Object arg; 3877 Lisp_Object arg;
3878 { 3878 {
3879 register int i; 3879 register int i;
3880 register Lisp_Object tail; 3880 register Lisp_Object tail;
3881 CHECK_VECTOR (obarray); 3881 CHECK_VECTOR (obarray);