projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(find_charsets_in_charc_string): New function; delete
[chise/xemacs-chise.git-]
/
src
/
process.c
diff --git
a/src/process.c
b/src/process.c
index
b2ddd52
..
774f53a
100644
(file)
--- a/
src/process.c
+++ b/
src/process.c
@@
-208,11
+208,11
@@
get_process_streams (Lisp_Process *p, Lisp_Object *instr, Lisp_Object *outstr)
Lisp_Process *
get_process_from_usid (USID usid)
{
Lisp_Process *
get_process_from_usid (USID usid)
{
- CONST void *vval;
+ const void *vval;
assert (usid != USID_ERROR && usid != USID_DONTHASH);
assert (usid != USID_ERROR && usid != USID_DONTHASH);
- if (gethash ((CONST void*)usid, usid_to_process, &vval))
+ if (gethash ((const void*)usid, usid_to_process, &vval))
{
Lisp_Object proc;
CVOID_TO_LISP (proc, vval);
{
Lisp_Object proc;
CVOID_TO_LISP (proc, vval);
@@
-483,7
+483,7
@@
init_process_io_handles (Lisp_Process *p, void* in, void* out, int flags)
{
Lisp_Object proc = Qnil;
XSETPROCESS (proc, p);
{
Lisp_Object proc = Qnil;
XSETPROCESS (proc, p);
- puthash ((CONST void*)usid, LISP_TO_VOID (proc), usid_to_process);
+ puthash ((const void*)usid, LISP_TO_VOID (proc), usid_to_process);
}
MAYBE_PROCMETH (init_process_io_handles, (p, in, out, flags));
}
MAYBE_PROCMETH (init_process_io_handles, (p, in, out, flags));
@@
-964,7
+964,7
@@
read_process_output (Lisp_Object proc)
void
send_process (Lisp_Object proc,
void
send_process (Lisp_Object proc,
- Lisp_Object relocatable, CONST Bufbyte *nonrelocatable,
+ Lisp_Object relocatable, const Bufbyte *nonrelocatable,
int start, int len)
{
/* This function can GC */
int start, int len)
{
/* This function can GC */
@@
-1073,24
+1073,25
@@
See `set-process-filter' for more info on filter functions.
return XPROCESS (proc)->filter;
}
return XPROCESS (proc)->filter;
}
-DEFUN ("process-send-region", Fprocess_send_region, 3, 3, 0, /*
-Send current contents of region as input to PROCESS.
+DEFUN ("process-send-region", Fprocess_send_region, 3, 4, 0, /*
+Send current contents of the region between START and END as input to PROCESS.
PROCESS may be a process name or an actual process.
PROCESS may be a process name or an actual process.
-Called from program, takes three arguments, PROCESS, START and END.
+BUFFER specifies the buffer to look in; if nil, the current buffer is used.
If the region is more than 500 or so characters long,
it is sent in several bunches. This may happen even for shorter regions.
Output from processes can arrive in between bunches.
*/
If the region is more than 500 or so characters long,
it is sent in several bunches. This may happen even for shorter regions.
Output from processes can arrive in between bunches.
*/
- (process, start, end))
+ (process, start, end, buffer))
{
/* This function can GC */
Lisp_Object proc = get_process (process);
Bufpos st, en;
{
/* This function can GC */
Lisp_Object proc = get_process (process);
Bufpos st, en;
+ struct buffer *buf = decode_buffer (buffer, 0);
- get_buffer_range_char (current_buffer, start, end, &st, &en, 0);
+ XSETBUFFER (buffer, buf);
+ get_buffer_range_char (buf, start, end, &st, &en, 0);
- send_process (proc, Fcurrent_buffer (), 0,
- st, en - st);
+ send_process (proc, buffer, 0, st, en - st);
return Qnil;
}
return Qnil;
}
@@
-1266,13
+1267,13
@@
See `set-process-sentinel' for more info on sentinels.
}
\f
}
\f
-CONST char *
+const char *
signal_name (int signum)
{
if (signum >= 0 && signum < NSIG)
signal_name (int signum)
{
if (signum >= 0 && signum < NSIG)
- return (CONST char *) sys_siglist[signum];
+ return (const char *) sys_siglist[signum];
- return (CONST char *) GETTEXT ("unknown signal");
+ return (const char *) GETTEXT ("unknown signal");
}
void
}
void
@@
-1643,7
+1644,7
@@
SIGCODE may be an integer, or a symbol whose name is a signal name.
name = string_data (XSYMBOL (sigcode)->name);
#define handle_signal(signal) \
name = string_data (XSYMBOL (sigcode)->name);
#define handle_signal(signal) \
- else if (!strcmp ((CONST char *) name, #signal)) \
+ else if (!strcmp ((const char *) name, #signal)) \
XSETINT (sigcode, signal)
if (0)
XSETINT (sigcode, signal)
if (0)
@@
-1859,7
+1860,7
@@
deactivate_process (Lisp_Object proc)
p->pipe_outstream);
if (usid != USID_DONTHASH)
p->pipe_outstream);
if (usid != USID_DONTHASH)
- remhash ((CONST void*)usid, usid_to_process);
+ remhash ((const void*)usid, usid_to_process);
p->pipe_instream = Qnil;
p->pipe_outstream = Qnil;
p->pipe_instream = Qnil;
p->pipe_outstream = Qnil;
@@
-1990,6
+1991,8
@@
t or pty (pty) or stream (socket connection).
void
syms_of_process (void)
{
void
syms_of_process (void)
{
+ INIT_LRECORD_IMPLEMENTATION (process);
+
defsymbol (&Qprocessp, "processp");
defsymbol (&Qprocess_live_p, "process-live-p");
defsymbol (&Qrun, "run");
defsymbol (&Qprocessp, "processp");
defsymbol (&Qprocess_live_p, "process-live-p");
defsymbol (&Qrun, "run");