summaryrefslogtreecommitdiffstats
path: root/generic/tclProcess.c
diff options
context:
space:
mode:
authorf.bonnet <f.bonnet>2017-08-17 13:03:48 (GMT)
committerf.bonnet <f.bonnet>2017-08-17 13:03:48 (GMT)
commit0b8e964f45cff8228e6e64598b7f7f80060aa345 (patch)
tree8f800f689e8339d5dbf1ba1dcf9c36327f8ab5fe /generic/tclProcess.c
parentc86a23de04031e905caf60b8b28dfeed64b8ba5f (diff)
downloadtcl-0b8e964f45cff8228e6e64598b7f7f80060aa345.zip
tcl-0b8e964f45cff8228e6e64598b7f7f80060aa345.tar.gz
tcl-0b8e964f45cff8228e6e64598b7f7f80060aa345.tar.bz2
Fixed line endings
Diffstat (limited to 'generic/tclProcess.c')
-rw-r--r--generic/tclProcess.c348
1 files changed, 174 insertions, 174 deletions
diff --git a/generic/tclProcess.c b/generic/tclProcess.c
index 3fcdacd..516d0d7 100644
--- a/generic/tclProcess.c
+++ b/generic/tclProcess.c
@@ -1,175 +1,175 @@
-/*
- * tclProcess.c --
- *
- * This file implements the "tcl::process" ensemble for subprocess
- * management as defined by TIP #462.
- *
- * Copyright (c) 2017 Frederic Bonnet.
- *
- * See the file "license.terms" for information on usage and redistribution of
- * this file, and for a DISCLAIMER OF ALL WARRANTIES.
- */
-
- #include "tclInt.h"
-
- /*
- * Prototypes for functions defined later in this file:
- */
-
-static int ProcessListObjCmd(ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *const objv[]);
-static int ProcessStatusObjCmd(ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *const objv[]);
-static int ProcessPurgeObjCmd(ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *const objv[]);
-static int ProcessAutopurgeObjCmd(ClientData clientData,
- Tcl_Interp *interp, int objc,
- Tcl_Obj *const objv[]);
-
-/*----------------------------------------------------------------------
- *
- * ProcessListObjCmd --
- *
- * This function implements the 'tcl::process list' Tcl command.
- * Refer to the user documentation for details on what it does.
- *
- * Results:
- * Returns a standard Tcl result.
- *
- * Side effects:
- * None.TODO
- *
- *----------------------------------------------------------------------
- */
-
- static int
- ProcessListObjCmd(
- ClientData clientData, /* Not used. */
- Tcl_Interp *interp, /* Current interpreter. */
- int objc, /* Number of arguments. */
- Tcl_Obj *const objv[]) /* Argument objects. */
- {
- /* TODO */
- return TCL_ERROR;
- }
-
-/*----------------------------------------------------------------------
- *
- * ProcessStatusObjCmd --
- *
- * This function implements the 'tcl::process status' Tcl command.
- * Refer to the user documentation for details on what it does.
- *
- * Results:
- * Returns a standard Tcl result.
- *
- * Side effects:
- * None.TODO
- *
- *----------------------------------------------------------------------
- */
-
- static int
- ProcessStatusObjCmd(
- ClientData clientData, /* Not used. */
- Tcl_Interp *interp, /* Current interpreter. */
- int objc, /* Number of arguments. */
- Tcl_Obj *const objv[]) /* Argument objects. */
- {
- /* TODO */
- return TCL_ERROR;
- }
-
-/*----------------------------------------------------------------------
- *
- * ProcessPurgeObjCmd --
- *
- * This function implements the 'tcl::process purge' Tcl command.
- * Refer to the user documentation for details on what it does.
- *
- * Results:
- * Returns a standard Tcl result.
- *
- * Side effects:
- * None.TODO
- *
- *----------------------------------------------------------------------
- */
-
- static int
- ProcessPurgeObjCmd(
- ClientData clientData, /* Not used. */
- Tcl_Interp *interp, /* Current interpreter. */
- int objc, /* Number of arguments. */
- Tcl_Obj *const objv[]) /* Argument objects. */
- {
- /* TODO */
- return TCL_ERROR;
- }
-
-/*----------------------------------------------------------------------
- *
- * ProcessAutopurgeObjCmd --
- *
- * This function implements the 'tcl::process autopurge' Tcl command.
- * Refer to the user documentation for details on what it does.
- *
- * Results:
- * Returns a standard Tcl result.
- *
- * Side effects:
- * None.TODO
- *
- *----------------------------------------------------------------------
- */
-
- static int
- ProcessAutopurgeObjCmd(
- ClientData clientData, /* Not used. */
- Tcl_Interp *interp, /* Current interpreter. */
- int objc, /* Number of arguments. */
- Tcl_Obj *const objv[]) /* Argument objects. */
- {
- /* TODO */
- return TCL_ERROR;
- }
-
-/*
- *----------------------------------------------------------------------
- *
- * TclInitProcessCmd --
- *
- * This procedure creates the "tcl::process" Tcl command. See the user
- * documentation for details on what it does.
- *
- * Results:
- * A standard Tcl result.
- *
- * Side effects:
- * See the user documentation.
- *
- *----------------------------------------------------------------------
- */
-
- Tcl_Command
- TclInitProcessCmd(
- Tcl_Interp *interp) /* Current interpreter. */
- {
- static const EnsembleImplMap processImplMap[] = {
- {"list", ProcessListObjCmd, TclCompileBasic0ArgCmd, NULL, NULL, 1},
- {"status", ProcessStatusObjCmd, TclCompileBasicMin0ArgCmd, NULL, NULL, 1},
- {"purge", ProcessPurgeObjCmd, TclCompileBasic0Or1ArgCmd, NULL, NULL, 1},
- {"autopurge", ProcessAutopurgeObjCmd, TclCompileBasic0Or1ArgCmd, NULL, NULL, 1},
- {NULL, NULL, NULL, NULL, NULL, 0}
- };
- Tcl_Command processCmd;
-
- processCmd = TclMakeEnsemble(interp, "::tcl::process", processImplMap);
- Tcl_Export(interp, Tcl_FindNamespace(interp, "::tcl", NULL, 0),
- "process", 0);
- return processCmd;
- }
+/*
+ * tclProcess.c --
+ *
+ * This file implements the "tcl::process" ensemble for subprocess
+ * management as defined by TIP #462.
+ *
+ * Copyright (c) 2017 Frederic Bonnet.
+ *
+ * See the file "license.terms" for information on usage and redistribution of
+ * this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ */
+
+ #include "tclInt.h"
+
+ /*
+ * Prototypes for functions defined later in this file:
+ */
+
+static int ProcessListObjCmd(ClientData clientData,
+ Tcl_Interp *interp, int objc,
+ Tcl_Obj *const objv[]);
+static int ProcessStatusObjCmd(ClientData clientData,
+ Tcl_Interp *interp, int objc,
+ Tcl_Obj *const objv[]);
+static int ProcessPurgeObjCmd(ClientData clientData,
+ Tcl_Interp *interp, int objc,
+ Tcl_Obj *const objv[]);
+static int ProcessAutopurgeObjCmd(ClientData clientData,
+ Tcl_Interp *interp, int objc,
+ Tcl_Obj *const objv[]);
+
+/*----------------------------------------------------------------------
+ *
+ * ProcessListObjCmd --
+ *
+ * This function implements the 'tcl::process list' Tcl command.
+ * Refer to the user documentation for details on what it does.
+ *
+ * Results:
+ * Returns a standard Tcl result.
+ *
+ * Side effects:
+ * None.TODO
+ *
+ *----------------------------------------------------------------------
+ */
+
+ static int
+ ProcessListObjCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int objc, /* Number of arguments. */
+ Tcl_Obj *const objv[]) /* Argument objects. */
+ {
+ /* TODO */
+ return TCL_ERROR;
+ }
+
+/*----------------------------------------------------------------------
+ *
+ * ProcessStatusObjCmd --
+ *
+ * This function implements the 'tcl::process status' Tcl command.
+ * Refer to the user documentation for details on what it does.
+ *
+ * Results:
+ * Returns a standard Tcl result.
+ *
+ * Side effects:
+ * None.TODO
+ *
+ *----------------------------------------------------------------------
+ */
+
+ static int
+ ProcessStatusObjCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int objc, /* Number of arguments. */
+ Tcl_Obj *const objv[]) /* Argument objects. */
+ {
+ /* TODO */
+ return TCL_ERROR;
+ }
+
+/*----------------------------------------------------------------------
+ *
+ * ProcessPurgeObjCmd --
+ *
+ * This function implements the 'tcl::process purge' Tcl command.
+ * Refer to the user documentation for details on what it does.
+ *
+ * Results:
+ * Returns a standard Tcl result.
+ *
+ * Side effects:
+ * None.TODO
+ *
+ *----------------------------------------------------------------------
+ */
+
+ static int
+ ProcessPurgeObjCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int objc, /* Number of arguments. */
+ Tcl_Obj *const objv[]) /* Argument objects. */
+ {
+ /* TODO */
+ return TCL_ERROR;
+ }
+
+/*----------------------------------------------------------------------
+ *
+ * ProcessAutopurgeObjCmd --
+ *
+ * This function implements the 'tcl::process autopurge' Tcl command.
+ * Refer to the user documentation for details on what it does.
+ *
+ * Results:
+ * Returns a standard Tcl result.
+ *
+ * Side effects:
+ * None.TODO
+ *
+ *----------------------------------------------------------------------
+ */
+
+ static int
+ ProcessAutopurgeObjCmd(
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int objc, /* Number of arguments. */
+ Tcl_Obj *const objv[]) /* Argument objects. */
+ {
+ /* TODO */
+ return TCL_ERROR;
+ }
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclInitProcessCmd --
+ *
+ * This procedure creates the "tcl::process" Tcl command. See the user
+ * documentation for details on what it does.
+ *
+ * Results:
+ * A standard Tcl result.
+ *
+ * Side effects:
+ * See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+ Tcl_Command
+ TclInitProcessCmd(
+ Tcl_Interp *interp) /* Current interpreter. */
+ {
+ static const EnsembleImplMap processImplMap[] = {
+ {"list", ProcessListObjCmd, TclCompileBasic0ArgCmd, NULL, NULL, 1},
+ {"status", ProcessStatusObjCmd, TclCompileBasicMin0ArgCmd, NULL, NULL, 1},
+ {"purge", ProcessPurgeObjCmd, TclCompileBasic0Or1ArgCmd, NULL, NULL, 1},
+ {"autopurge", ProcessAutopurgeObjCmd, TclCompileBasic0Or1ArgCmd, NULL, NULL, 1},
+ {NULL, NULL, NULL, NULL, NULL, 0}
+ };
+ Tcl_Command processCmd;
+
+ processCmd = TclMakeEnsemble(interp, "::tcl::process", processImplMap);
+ Tcl_Export(interp, Tcl_FindNamespace(interp, "::tcl", NULL, 0),
+ "process", 0);
+ return processCmd;
+ }
\ No newline at end of file
generated by cgit v0.12 at 2024-09-12 09:41:40 (GMT)