>>>>> "Ed" == Ed Kademan <kademan@phz.com> writes:
Ed> I am using scsh-0.6.0 on Solaris and I can't get set-process-group to
Ed> work. The process group id simply won't change.
I think you should consider yourself lucky: I get
> (set-process-group 1111)
Bus error (core dumped)
Do the following two patches fix your problem?
Index: syscalls.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syscalls.scm,v
retrieving revision 1.32
diff -c -r1.32 syscalls.scm
*** syscalls.scm 18 Oct 2001 09:02:52 -0000 1.32
--- syscalls.scm 11 Feb 2002 09:20:31 -0000
***************
*** 143,149 ****
(import-os-error-syscall process-group () "scsh_getpgrp")
! (import-os-error-syscall %set-process-group (pid groupid) "setpgid")
(define (set-process-group arg1 . maybe-arg2)
(receive (pid pgrp) (if (null? maybe-arg2)
--- 143,149 ----
(import-os-error-syscall process-group () "scsh_getpgrp")
! (import-os-error-syscall %set-process-group (pid groupid) "scsh_setpgid")
(define (set-process-group arg1 . maybe-arg2)
(receive (pid pgrp) (if (null? maybe-arg2)
Index: syscalls1.c
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syscalls1.c,v
retrieving revision 1.29
diff -c -r1.29 syscalls1.c
*** syscalls1.c 6 Feb 2002 09:47:27 -0000 1.29
--- syscalls1.c 11 Feb 2002 09:22:11 -0000
***************
*** 949,955 ****
S48_EXPORT_FUNCTION(scsh_getpid);
S48_EXPORT_FUNCTION(scsh_getppid);
S48_EXPORT_FUNCTION(scsh_getpgrp);
! S48_EXPORT_FUNCTION(setpgid);
S48_EXPORT_FUNCTION(scsh_setsid);
S48_EXPORT_FUNCTION(scsh_umask);
S48_EXPORT_FUNCTION(process_times);
--- 949,955 ----
S48_EXPORT_FUNCTION(scsh_getpid);
S48_EXPORT_FUNCTION(scsh_getppid);
S48_EXPORT_FUNCTION(scsh_getpgrp);
! S48_EXPORT_FUNCTION(scsh_setpgid);
S48_EXPORT_FUNCTION(scsh_setsid);
S48_EXPORT_FUNCTION(scsh_umask);
S48_EXPORT_FUNCTION(process_times);
--
Martin
|