xemacs-beta: src/vmsfns.c comparison

comparison src/vmsfns.c @ 20:859a2309aef8 r19-15b93

Import from CVS: tag r19-15b93

author	cvs
date	Mon, 13 Aug 2007 08:50:05 +0200
parents	0293115a14e9
children	131b0175ea99

comparison

equal deleted inserted replaced

-:ac1f612d5250
+:859a2309aef8
 Lisp_Object Qdefault_subproc_input_handler;
 extern int process_ef;		/* Event flag for subprocess operations */
-DEFUN ("default-subprocess-input-handler",
+DEFUN ("default-subprocess-input-handler", Fdefault_subproc_input_handler, 2, 2, 0, /*
-Fdefault_subproc_input_handler, Sdefault_subproc_input_handler,
-2, 2, 0 /*
 Default input handler for input from spawned subprocesses.
-*/ )
+*/
-(name, input)
+(name, input))
-Lisp_Object name, input;
 {
 /* Just insert in current buffer */
 buffer_insert1 (current_buffer, input);
 buffer_insert_c_char ('\n');
 }
-DEFUN ("spawn-subprocess", Fspawn_subprocess, Sspawn_subprocess, 1, 3, 0 /*
+DEFUN ("spawn-subprocess", Fspawn_subprocess, 1, 3, 0, /*
 Spawn an asynchronous VMS suprocess for command processing.
-*/ )
+*/
-(name, input_handler, exit_handler)
+(name, input_handler, exit_handler))
-Lisp_Object name, input_handler, exit_handler;
 {
 /* This function can GC */
 int status;
 char output_mbx_name[20];
 struct dsc$descriptor_s output_mbx_dsc;
 char *msg;
 {
 write_to_mbx (ptr, msg, strlen (msg));
 }
-DEFUN ("send-command-to-subprocess",
+DEFUN ("send-command-to-subprocess", Fsend_command_to_subprocess, 2, 2,
-Fsend_command_to_subprocess, Ssend_command_to_subprocess, 2, 2,
+"sSend command to subprocess: \nsSend subprocess %s command: ", /*
-"sSend command to subprocess: \nsSend subprocess %s command: " /*
 Send to VMS subprocess named NAME the string COMMAND.
-*/ )
+*/
-(name, command)
+(name, command))
-Lisp_Object name, command;
 {
 struct process_list * ptr;
 CHECK_INT (name);
 CHECK_STRING (command);
 	return Qt;
 }
 return Qnil;
 }
-DEFUN ("stop-subprocess", Fstop_subprocess, Sstop_subprocess, 1, 1,
+DEFUN ("stop-subprocess", Fstop_subprocess, 1, 1, "sStop subprocess: ", /*
-"sStop subprocess: " /*
 Stop VMS subprocess named NAME.
-*/ )
+*/
-(name)
+(name))
-Lisp_Object name;
 {
 struct process_list * ptr;
 CHECK_INT (name);
 for (ptr = process_list; ptr; ptr = ptr->next)
 {
 sys$qiow (0, ptr->mbx_chan, IO$_WRITEVBLK | IO$M_NOW, &ptr->iosb,
 	    0, 0, buf, len, 0, 0, 0, 0);
 }
-DEFUN ("setprv", Fsetprv, Ssetprv, 1, 3, 0 /*
+DEFUN ("setprv", Fsetprv, 1, 3, 0, /*
 Set or reset a VMS privilege.  First arg is privilege name.
 Second arg is t or nil, indicating whether the privilege is to be
 set or reset.  Default is nil.  Returns t if success, nil if not.
 If third arg is non-nil, does not change privilege, but returns t
 or nil depending upon whether the privilege is already enabled.
-*/ )
+*/
-(priv, value, getprv)
+(priv, value, getprv))
-Lisp_Object priv, value, getprv;
 {
 int prvmask[2], prvlen, newmask[2];
 char * prvname;
 int found, i;
 struct privilege_list * ptr;
 /* Retrieves VMS system information.  */
 #ifdef VMS4_4  /* I don't know whether these functions work in old versions */
-DEFUN ("vms-system-info", Fvms_system_info, Svms_system_info, 1, 3, 0 /*
+DEFUN ("vms-system-info", Fvms_system_info, 1, 3, 0, /*
 Retrieve VMS process and system information.
 The first argument (a string) specifies the type of information desired.
 The other arguments depend on the type you select.
 For information about a process, the second argument is a process ID
 or a process name, with the current process as a default.
 username    Returns username
 version     Returns VMS version
 logical     Translates VMS logical name (second argument)
 dcl-symbol  Translates DCL symbol (second argument)
 proclist    Returns list of all PIDs on system (needs WORLD privilege).
-*/ )
+*/
-(type, arg1, arg2)
+(type, arg1, arg2))
-Lisp_Object type, arg1, arg2;
 {
 int i, typelen;
 char * typename;
 struct vms_objlist * ptr;
 retval = Fcons (make_int (id), retval);
 }
 return (Fsort (retval, intern ("<")));
 }
-DEFUN ("shrink-to-icon", Fshrink_to_icon, Sshrink_to_icon, 0, 0, 0 /*
+DEFUN ("shrink-to-icon", Fshrink_to_icon, 0, 0, 0, /*
 If emacs is running in a workstation window, shrink to an icon.
-*/ )
+*/
-()
+())
 {
 static char result[128];
 static $DESCRIPTOR (result_descriptor, result);
 static $DESCRIPTOR (tt_name, "TT:");
 static int chan = 0;
 input_mbx_chan = 0;
 }
 syms_of_vmsfns (void)
 {
-defsubr (&Sdefault_subproc_input_handler);
+DEFSUBR (Fdefault_subproc_input_handler);
-defsubr (&Sspawn_subprocess);
+DEFSUBR (Fspawn_subprocess);
-defsubr (&Ssend_command_to_subprocess);
+DEFSUBR (Fsend_command_to_subprocess);
-defsubr (&Sstop_subprocess);
+DEFSUBR (Fstop_subprocess);
-defsubr (&Ssetprv);
+DEFSUBR (Fsetprv);
 #ifdef VMS4_4
-defsubr (&Svms_system_info);
+DEFSUBR (Fvms_system_info);
-defsubr (&Sshrink_to_icon);
+DEFSUBR (Fshrink_to_icon);
 #endif /* VMS4_4 */
 defsymbol (&Qdefault_subproc_input_handler,
 	     "default-subprocess-input-handler");
 }
 #endif /* VMS */

Mercurial > hg > xemacs-beta

comparison src/vmsfns.c @ 20:859a2309aef8 r19-15b93