/[guile]/guile/guile-core/ice-9/popen.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/popen.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by kryde, Tue Aug 12 21:18:23 2003 UTC revision 1.13 by kryde, Fri Sep 19 01:01:10 2003 UTC
# Line 81  Line 81 
81                                                  (= pt-fileno error-fdes)))                                                  (= pt-fileno error-fdes)))
82                                         (close-fdes pt-fileno))))))                                         (close-fdes pt-fileno))))))
83    
84                 ;; copy the three selected descriptors to the standard                 ;; Copy the three selected descriptors to the standard
85                 ;; descriptors 0, 1, 2.  note that it's possible that                 ;; descriptors 0, 1, 2, if not already there
                ;; output-fdes or input-fdes is equal to error-fdes.  
86    
87                 (cond ((not (= input-fdes 0))                 (cond ((not (= input-fdes 0))
88                        (if (= output-fdes 0)                        (if (= output-fdes 0)
# Line 91  Line 90 
90                        (if (= error-fdes 0)                        (if (= error-fdes 0)
91                            (set! error-fdes (dup->fdes 0)))                            (set! error-fdes (dup->fdes 0)))
92                        (dup2 input-fdes 0)                        (dup2 input-fdes 0)
93                        (close-fdes input-fdes)))                        ;; it's possible input-fdes is error-fdes
94                          (if (not (= input-fdes error-fdes))
95                              (close-fdes input-fdes))))
96                  
97                 (cond ((not (= output-fdes 1))                 (cond ((not (= output-fdes 1))
98                        (if (= error-fdes 1)                        (if (= error-fdes 1)
99                            (set! error-fdes (dup->fdes 1)))                            (set! error-fdes (dup->fdes 1)))
100                        (dup2 output-fdes 1)                        (dup2 output-fdes 1)
101                        (close-fdes output-fdes)))                        ;; it's possible output-fdes is error-fdes
102                          (if (not (= output-fdes error-fdes))
103                              (close-fdes output-fdes))))
104    
105                 (cond ((not (= error-fdes 2))                 (cond ((not (= error-fdes 2))
106                        (dup2 error-fdes 2)                        (dup2 error-fdes 2)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26