Mercurial > hg > xemacs-beta

comparison src/process.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking in final CVS version of workspace 'ben-lisp-object'
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 00:20:27 -0600
parents facf3239ba30
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
207 if (!for_disksave) 207 if (!for_disksave)
208 xfree (p->process_data, void *); 208 xfree (p->process_data, void *);
209 } 209 }
210 } 210 }
211 211
212 DEFINE_LRECORD_IMPLEMENTATION ("process", process, 212 DEFINE_NONDUMPABLE_LISP_OBJECT ("process", process,
213 0, /*dumpable-flag*/ 213 mark_process, print_process, finalize_process,
214 mark_process, print_process, finalize_process, 214 0, 0, process_description, Lisp_Process);
215 0, 0, process_description, Lisp_Process);
216 215
217 /************************************************************************/ 216 /************************************************************************/
218 /* basic process accessors */ 217 /* basic process accessors */
219 /************************************************************************/ 218 /************************************************************************/
220 219
479 } 478 }
480 479
481 Lisp_Object 480 Lisp_Object
482 make_process_internal (Lisp_Object name) 481 make_process_internal (Lisp_Object name)
483 { 482 {
484 Lisp_Object val, name1; 483 Lisp_Object name1;
485 int i; 484 int i;
486 Lisp_Process *p = ALLOC_LCRECORD_TYPE (Lisp_Process, &lrecord_process); 485 Lisp_Object obj = ALLOC_LISP_OBJECT (process);
486 Lisp_Process *p = XPROCESS (obj);
487 487
488 #define MARKED_SLOT(x) p->x = Qnil; 488 #define MARKED_SLOT(x) p->x = Qnil;
489 #include "process-slots.h" 489 #include "process-slots.h"
490 490
491 /* If name is already in use, modify it until it is unused. */ 491 /* If name is already in use, modify it until it is unused. */
506 p->stderr_mark = Fmake_marker (); 506 p->stderr_mark = Fmake_marker ();
507 p->status_symbol = Qrun; 507 p->status_symbol = Qrun;
508 508
509 MAYBE_PROCMETH (alloc_process_data, (p)); 509 MAYBE_PROCMETH (alloc_process_data, (p));
510 510
511 val = wrap_process (p); 511 Vprocess_list = Fcons (obj, Vprocess_list);
512 512 return obj;
513 Vprocess_list = Fcons (val, Vprocess_list);
514 return val;
515 } 513 }
516 514
517 void 515 void
518 init_process_io_handles (Lisp_Process *p, void* in, void* out, void* err, 516 init_process_io_handles (Lisp_Process *p, void* in, void* out, void* err,
519 int flags) 517 int flags)
2499 } 2497 }
2500 2498
2501 void 2499 void
2502 syms_of_process (void) 2500 syms_of_process (void)
2503 { 2501 {
2504 INIT_LRECORD_IMPLEMENTATION (process); 2502 INIT_LISP_OBJECT (process);
2505 2503
2506 DEFSYMBOL (Qprocessp); 2504 DEFSYMBOL (Qprocessp);
2507 DEFSYMBOL (Qprocess_live_p); 2505 DEFSYMBOL (Qprocess_live_p);
2508 DEFSYMBOL (Qrun); 2506 DEFSYMBOL (Qrun);
2509 DEFSYMBOL (Qstop); 2507 DEFSYMBOL (Qstop);