X-Git-Url: http://cvs.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/f1d92a2564f181cebcabbd0f8c04fe8966bc17ff..HEAD:/src/tcl/tclunxut.c

diff --git a/src/tcl/tclunxut.c b/src/tcl/tclunxut.c
index 6bc760b..7fee7c3 100644
--- a/src/tcl/tclunxut.c
+++ b/src/tcl/tclunxut.c
@@ -81,11 +81,12 @@ static int waitTableUsed = 0;	/* Number of entries in waitTable that
  *----------------------------------------------------------------------
  */
 
-int
-Tcl_EvalFile(interp, fileName)
-    Tcl_Interp *interp;		/* Interpreter in which to process file. */
-    char *fileName;		/* Name of file to process.  Tilde-substitution
+int 
+Tcl_EvalFile (
+    Tcl_Interp *interp,		/* Interpreter in which to process file. */
+    char *fileName		/* Name of file to process.  Tilde-substitution
 				 * will be performed on this name. */
+)
 {
     int fileId, result;
     struct stat statBuf;
@@ -253,12 +254,13 @@ Tcl_Fork()
  */
 
 int
-Tcl_WaitPids(numPids, pidPtr, statusPtr)
-    int numPids;		/* Number of pids to wait on:  gives size
+Tcl_WaitPids(
+    int numPids,		/* Number of pids to wait on:  gives size
 				 * of array pointed to by pidPtr. */
-    int *pidPtr;		/* Pids to wait on:  return when one of
+    int *pidPtr,		/* Pids to wait on:  return when one of
 				 * these processes exits or suspends. */
-    int *statusPtr;		/* Wait status is returned here. */
+    int *statusPtr		/* Wait status is returned here. */
+)
 {
     int i, count, pid;
     register WaitInfo *waitPtr;
@@ -363,11 +365,12 @@ Tcl_WaitPids(numPids, pidPtr, statusPtr)
  */
 
 void
-Tcl_DetachPids(numPids, pidPtr)
-    int numPids;		/* Number of pids to detach:  gives size
+Tcl_DetachPids(
+    int numPids,		/* Number of pids to detach:  gives size
 				 * of array pointed to by pidPtr. */
-    int *pidPtr;		/* Array of pids to detach:  must have
+    int *pidPtr			/* Array of pids to detach:  must have
 				 * been created by Tcl_Fork. */
+)
 {
     register WaitInfo *waitPtr;
     int i, count, pid;
@@ -431,30 +434,29 @@ Tcl_DetachPids(numPids, pidPtr)
  */
 
 int
-Tcl_CreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr,
-	outPipePtr, errFilePtr)
-    Tcl_Interp *interp;		/* Interpreter to use for error reporting. */
-    int argc;			/* Number of entries in argv. */
-    char **argv;		/* Array of strings describing commands in
+Tcl_CreatePipeline(
+    Tcl_Interp *interp,		/* Interpreter to use for error reporting. */
+    int argc,			/* Number of entries in argv. */
+    char **argv,		/* Array of strings describing commands in
 				 * pipeline plus I/O redirection with <,
 				 * <<, and >.  Argv[argc] must be NULL. */
-    int **pidArrayPtr;		/* Word at *pidArrayPtr gets filled in with
+    int **pidArrayPtr,		/* Word at *pidArrayPtr gets filled in with
 				 * address of array of pids for processes
 				 * in pipeline (first pid is first process
 				 * in pipeline). */
-    int *inPipePtr;		/* If non-NULL, input to the pipeline comes
+    int *inPipePtr,		/* If non-NULL, input to the pipeline comes
 				 * from a pipe (unless overridden by
 				 * redirection in the command).  The file
 				 * id with which to write to this pipe is
 				 * stored at *inPipePtr.  -1 means command
 				 * specified its own input source. */
-    int *outPipePtr;		/* If non-NULL, output to the pipeline goes
+    int *outPipePtr,		/* If non-NULL, output to the pipeline goes
 				 * to a pipe, unless overriden by redirection
 				 * in the command.  The file id with which to
 				 * read frome this pipe is stored at
 				 * *outPipePtr.  -1 means command specified
 				 * its own output sink. */
-    int *errFilePtr;		/* If non-NULL, all stderr output from the
+    int *errFilePtr		/* If non-NULL, all stderr output from the
 				 * pipeline will go to a temporary file
 				 * created here, and a descriptor to read
 				 * the file will be left at *errFilePtr.
@@ -462,6 +464,7 @@ Tcl_CreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr,
 				 * closing this descriptor will be the end
 				 * of the file.  If this is NULL, then
 				 * all stderr output goes to our stderr. */
+)
 {
     int *pidPtr = NULL;		/* Points to malloc-ed array holding all
 				 * the pids of child processes. */
@@ -843,9 +846,10 @@ cleanup:
  */
 
 char *
-Tcl_UnixError(interp)
-    Tcl_Interp *interp;		/* Interpreter whose $errorCode variable
+Tcl_UnixError(
+    Tcl_Interp *interp		/* Interpreter whose $errorCode variable
 				 * is to be changed. */
+)
 {
     char *id, *msg;
 
@@ -875,11 +879,12 @@ Tcl_UnixError(interp)
  */
 
 void
-TclMakeFileTable(iPtr, index)
-    Interp *iPtr;		/* Interpreter whose table of files is
+TclMakeFileTable(
+    Interp *iPtr,		/* Interpreter whose table of files is
 				 * to be manipulated. */
-    int index;			/* Make sure table is large enough to
+    int index			/* Make sure table is large enough to
 				 * hold at least this index. */
+)
 {
     /*
      * If the table doesn't even exist, then create it and initialize
@@ -970,11 +975,12 @@ TclMakeFileTable(iPtr, index)
  */
 
 int
-TclGetOpenFile(interp, string, filePtrPtr)
-    Tcl_Interp *interp;		/* Interpreter in which to find file. */
-    char *string;		/* String that identifies file. */
-    OpenFile **filePtrPtr;	/* Address of word in which to store pointer
+TclGetOpenFile(
+    Tcl_Interp *interp,		/* Interpreter in which to find file. */
+    char *string,		/* String that identifies file. */
+    OpenFile **filePtrPtr	/* Address of word in which to store pointer
 				 * to structure about open file. */
+)
 {
     int fd = 0;			/* Initial value needed only to stop compiler
 				 * warnings. */