Mercurial > hg > xemacs-beta
diff src/process.c @ 272:c5d627a313b1 r21-0b34
Import from CVS: tag r21-0b34
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:28:48 +0200 |
parents | 966663fcf606 |
children | 90d73dddcdc4 |
line wrap: on
line diff
--- a/src/process.c Mon Aug 13 10:27:41 2007 +0200 +++ b/src/process.c Mon Aug 13 10:28:48 2007 +0200 @@ -68,7 +68,7 @@ (name of name of port we are connected to . foreign host name) */ /* Valid values of process->status_symbol */ -Lisp_Object Qrun, Qstop; /* Qexit from eval.c, Qsignal from data.c. */ +Lisp_Object Qrun, Qstop; /* Qrun => Qopen, Qexit => Qclosed for "network connection" processes */ Lisp_Object Qopen, Qclosed; /* Protocol families */ @@ -105,12 +105,6 @@ Lisp_Object Vprocess_list; -static Lisp_Object mark_process (Lisp_Object, void (*) (Lisp_Object)); -static void print_process (Lisp_Object, Lisp_Object, int); -static void finalize_process (void *, int); -DEFINE_LRECORD_IMPLEMENTATION ("process", process, - mark_process, print_process, finalize_process, - 0, 0, struct Lisp_Process); static Lisp_Object mark_process (Lisp_Object obj, void (*markobj) (Lisp_Object)) @@ -186,6 +180,9 @@ } } +DEFINE_LRECORD_IMPLEMENTATION ("process", process, + mark_process, print_process, finalize_process, + 0, 0, struct Lisp_Process); /************************************************************************/ /* basic process accessors */ @@ -471,7 +468,7 @@ if (usid == USID_ERROR) report_file_error ("Setting up communication with subprocess", Qnil); - + if (usid != USID_DONTHASH) { Lisp_Object proc = Qnil; @@ -657,7 +654,7 @@ generalized connection function. Both UNIX ans Win32 support BSD sockets, and there are many extensions - availalble (Sockets 2 spec). + availalble (Sockets 2 spec). A todo is define a consistent set of properties abstracting a network connection. -kkm @@ -685,7 +682,7 @@ Fourth arg SERVICE is name of the service desired, or an integer specifying a port number to connect to. Fifth argument FAMILY is a protocol family. When omitted, 'tcp/ip -(Internet protocol family TCP/IP) is assumed. +\(Internet protocol family TCP/IP) is assumed. */ (name, buffer, host, service, family)) { @@ -707,7 +704,7 @@ open_network_stream is mandatory */ PROCMETH (open_network_stream, (name, host, service, family, &inch, &outch)); - + if (!NILP (buffer)) buffer = Fget_buffer_create (buffer); proc = make_process_internal (name); @@ -756,7 +753,7 @@ open_network_stream is mandatory */ PROCMETH (open_multicast_group, (name, dest, port, ttl, &inch, &outch)); - + if (!NILP (buffer)) buffer = Fget_buffer_create (buffer); @@ -766,9 +763,9 @@ XPROCESS (proc)->pid = Fcons (port, dest); XPROCESS (proc)->buffer = buffer; init_process_io_handles (XPROCESS (proc), (void*)inch, (void*)outch, 0); - + event_stream_select_process (XPROCESS (proc)); - + UNGCPRO; return proc; } @@ -1929,10 +1926,6 @@ defsymbol (&Qprocessp, "processp"); defsymbol (&Qrun, "run"); defsymbol (&Qstop, "stop"); - defsymbol (&Qsignal, "signal"); - /* Qexit is already defined by syms_of_eval - * defsymbol (&Qexit, "exit"); - */ defsymbol (&Qopen, "open"); defsymbol (&Qclosed, "closed");