Ignore:
Timestamp:
12/03/12 05:32:35 (8 years ago)
Author:
Mark Evenson
Message:

Docstrings for RUN-PROGRAM not generating.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/run-program.lisp

    r14235 r14284  
    4747(defun run-program (program args &key environment (wait t) clear-environment)
    4848  "Run PROGRAM with ARGS in with ENVIRONMENT variables.
     49
    4950Possibly WAIT for subprocess to exit.
    5051
    51 Optionally CLEAR-ENVIRONMENT of the subprocess of any non specified values."
    52   ;;For documentation, see below.
    53   (let* ((program-namestring (namestring (pathname program)))
     52Optionally CLEAR-ENVIRONMENT of the subprocess of any non specified values.
    5453
    55          (process-builder (%make-process-builder program-namestring args)))
    56     (let ((env-map (%process-builder-environment process-builder)))
    57       (when clear-environment
    58         (%process-builder-env-clear env-map))           
    59       (when environment
    60         (dolist (entry environment)
    61           (%process-builder-env-put env-map
    62                                     (princ-to-string (car entry))
    63                                     (princ-to-string (cdr entry))))))
    64     (let ((process (make-process (%process-builder-start process-builder))))
    65       (when wait (process-wait process))
    66       process)))
     54Creates a new process running the the PROGRAM.
    6755
    68 (setf (documentation 'run-program 'function)
    69       "Creates a new process running the the PROGRAM.
    7056ARGS are a list of strings to be passed to the program as arguments.
    7157
     
    8874      contemplating doing this, read about it first. (The Perl
    8975      community has a lot of good documentation about this and other
    90       security issues in script-like programs.)
     76      security issues in script-like programs.
    9177
    9278The &key arguments have the following meanings:
     
    10389    If non-NIL, which is the default, wait until the created process
    10490    finishes. If NIL, continue running Lisp until the program
    105     finishes.")
     91    finishes.
     92"
     93  (let* ((program-namestring (namestring (pathname program)))
    10694
     95         (process-builder (%make-process-builder program-namestring args)))
     96    (let ((env-map (%process-builder-environment process-builder)))
     97      (when clear-environment
     98        (%process-builder-env-clear env-map))           
     99      (when environment
     100        (dolist (entry environment)
     101          (%process-builder-env-put env-map
     102                                    (princ-to-string (car entry))
     103                                    (princ-to-string (cdr entry))))))
     104    (let ((process (make-process (%process-builder-start process-builder))))
     105      (when wait (process-wait process))
     106      process)))
    107107;;The process structure.
    108108
Note: See TracChangeset for help on using the changeset viewer.