Re: (call-process ...) to return correct exit-status on NT

APA> A Weak Spot: APA> When OpenProcess() returns an invalid process handle I fake a signal APA> termination signal. APA> synch_process_death = signal_name (SIGTERM); APA> This is nothing than a wild guess, but better than setting APA> synch_process_retcode = status; APA> I have tested this using external cygnus executables "sleep" and APA> "grep" as follows. APA> Patch against latest CVS source of 21.2-b19 is at end. I have successfully applied this patch to 21.1.7 as well (with an offset of some 300 lines). Below test-cases all work fine. I am going to send a formal patch soon, unless there are any serious objections. Best regards, Adrian APA> ;;; Sleeping for 3 seconds, then returns 0. APA> (apply 'call-process "sleep" nil nil nil (list "3")) APA> 0 APA> ;;; Trying to sleep for 30 seconds, but killed via Windows NT Task APA> ;;; Manager. APA> (apply 'call-process "sleep" nil nil nil (list "30")) APA> "software termination signal from kill" APA> ;;; Looking for drivers in sysem file succeeds, returning 0. APA> (apply 'call-process "grep" nil nil nil APA> (list "drivers" "c:\\winnt\\system.ini")) APA> 0 APA> ;;; Looking for passangers in sysem file fails, returning 1. APA> (apply 'call-process "grep" nil nil nil APA> (list "passangers" "c:\\winnt\\system.ini")) APA> 1 APA> ;;; Looking for drivers in invalid file fails, returning 2. APA> (apply 'call-process "grep" nil nil nil APA> (list "drivers" "c:\winnt\system.ini")) APA> 2