restore line endings

1 files changed, 164 insertions, 164 deletions

diff --git a/unix/dltest/pkgb.c b/unix/dltest/pkgb.c
index 0f102e3..1a60f05 100644
--- a/unix/dltest/pkgb.c
+++ b/unix/dltest/pkgb.c
@@ -1,164 +1,164 @@
-/*

- * pkgb.c --

- *

- *	This file contains a simple Tcl package "pkgb" that is intended for

- *	testing the Tcl dynamic loading facilities. It can be used in both

- *	safe and unsafe interpreters.

- *

- * Copyright (c) 1995 Sun Microsystems, Inc.

- *

- * See the file "license.terms" for information on usage and redistribution of

- * this file, and for a DISCLAIMER OF ALL WARRANTIES.

- *

- * RCS: @(#) $Id: pkgb.c,v 1.6 2007/05/02 21:28:09 dkf Exp $

- */

-#include "tcl.h"

-

-/*

- * Prototypes for procedures defined later in this file:

- */

-

-static int    Pkgb_SubObjCmd(ClientData clientData,

-		Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);

-static int    Pkgb_UnsafeObjCmd(ClientData clientData,

-		Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);

-

-/*

- *----------------------------------------------------------------------

- *

- * Pkgb_SubObjCmd --

- *

- *	This procedure is invoked to process the "pkgb_sub" Tcl command. It

- *	expects two arguments and returns their difference.

- *

- * Results:

- *	A standard Tcl result.

- *

- * Side effects:

- *	See the user documentation.

- *

- *----------------------------------------------------------------------

- */

-

-static int

-Pkgb_SubObjCmd(

-    ClientData dummy,		/* Not used. */

-    Tcl_Interp *interp,		/* Current interpreter. */

-    int objc,			/* Number of arguments. */

-    Tcl_Obj *CONST objv[])	/* Argument objects. */

-{

-    int first, second;

-

-    if (objc != 3) {

-	Tcl_WrongNumArgs(interp, 1, objv, "num num");

-        return TCL_ERROR;

-    }

-    if ((Tcl_GetIntFromObj(interp, objv[1], &first) != TCL_OK)

-	    || (Tcl_GetIntFromObj(interp, objv[2], &second) != TCL_OK)) {

-        return TCL_ERROR;

-    }

-    Tcl_SetObjResult(interp, Tcl_NewIntObj(first - second));

-    return TCL_OK;

-}

-

-/*

- *----------------------------------------------------------------------

- *

- * Pkgb_UnsafeObjCmd --

- *

- *	This procedure is invoked to process the "pkgb_unsafe" Tcl command. It

- *	just returns a constant string.

- *

- * Results:

- *	A standard Tcl result.

- *

- * Side effects:

- *	See the user documentation.

- *

- *----------------------------------------------------------------------

- */

-

-static int

-Pkgb_UnsafeObjCmd(

-    ClientData dummy,		/* Not used. */

-    Tcl_Interp *interp,		/* Current interpreter. */

-    int objc,			/* Number of arguments. */

-    Tcl_Obj *CONST objv[])	/* Argument objects. */

-{

-    Tcl_SetObjResult(interp, Tcl_NewStringObj("unsafe command invoked", -1));

-    return TCL_OK;

-}

-

-/*

- *----------------------------------------------------------------------

- *

- * Pkgb_Init --

- *

- *	This is a package initialization procedure, which is called by Tcl

- *	when this package is to be added to an interpreter.

- *

- * Results:

- *	None.

- *

- * Side effects:

- *	None.

- *

- *----------------------------------------------------------------------

- */

-

-int

-Pkgb_Init(

-    Tcl_Interp *interp)		/* Interpreter in which the package is to be

-				 * made available. */

-{

-    int code;

-

-    if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {

-	return TCL_ERROR;

-    }

-    code = Tcl_PkgProvide(interp, "Pkgb", "2.3");

-    if (code != TCL_OK) {

-	return code;

-    }

-    Tcl_CreateObjCommand(interp, "pkgb_sub", Pkgb_SubObjCmd,

-	    (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);

-    Tcl_CreateObjCommand(interp, "pkgb_unsafe", Pkgb_UnsafeObjCmd,

-	    (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);

-    return TCL_OK;

-}

-

-/*

- *----------------------------------------------------------------------

- *

- * Pkgb_SafeInit --

- *

- *	This is a package initialization procedure, which is called by Tcl

- *	when this package is to be added to an unsafe interpreter.

- *

- * Results:

- *	None.

- *

- * Side effects:

- *	None.

- *

- *----------------------------------------------------------------------

- */

-

-int

-Pkgb_SafeInit(

-    Tcl_Interp *interp)		/* Interpreter in which the package is to be

-				 * made available. */

-{

-    int code;

-

-    if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {

-	return TCL_ERROR;

-    }

-    code = Tcl_PkgProvide(interp, "Pkgb", "2.3");

-    if (code != TCL_OK) {

-	return code;

-    }

-    Tcl_CreateObjCommand(interp, "pkgb_sub", Pkgb_SubObjCmd, (ClientData) 0,

-	    (Tcl_CmdDeleteProc *) NULL);

-    return TCL_OK;

-}

+/*
+ * pkgb.c --
+ *
+ *	This file contains a simple Tcl package "pkgb" that is intended for
+ *	testing the Tcl dynamic loading facilities. It can be used in both
+ *	safe and unsafe interpreters.
+ *
+ * Copyright (c) 1995 Sun Microsystems, Inc.
+ *
+ * See the file "license.terms" for information on usage and redistribution of
+ * this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * RCS: @(#) $Id: pkgb.c,v 1.7 2007/05/29 14:05:53 dgp Exp $
+ */
+#include "tcl.h"
+
+/*
+ * Prototypes for procedures defined later in this file:
+ */
+
+static int    Pkgb_SubObjCmd(ClientData clientData,
+		Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
+static int    Pkgb_UnsafeObjCmd(ClientData clientData,
+		Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Pkgb_SubObjCmd --
+ *
+ *	This procedure is invoked to process the "pkgb_sub" Tcl command. It
+ *	expects two arguments and returns their difference.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+Pkgb_SubObjCmd(
+    ClientData dummy,		/* Not used. */
+    Tcl_Interp *interp,		/* Current interpreter. */
+    int objc,			/* Number of arguments. */
+    Tcl_Obj *CONST objv[])	/* Argument objects. */
+{
+    int first, second;
+
+    if (objc != 3) {
+	Tcl_WrongNumArgs(interp, 1, objv, "num num");
+        return TCL_ERROR;
+    }
+    if ((Tcl_GetIntFromObj(interp, objv[1], &first) != TCL_OK)
+	    || (Tcl_GetIntFromObj(interp, objv[2], &second) != TCL_OK)) {
+        return TCL_ERROR;
+    }
+    Tcl_SetObjResult(interp, Tcl_NewIntObj(first - second));
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Pkgb_UnsafeObjCmd --
+ *
+ *	This procedure is invoked to process the "pkgb_unsafe" Tcl command. It
+ *	just returns a constant string.
+ *
+ * Results:
+ *	A standard Tcl result.
+ *
+ * Side effects:
+ *	See the user documentation.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+Pkgb_UnsafeObjCmd(
+    ClientData dummy,		/* Not used. */
+    Tcl_Interp *interp,		/* Current interpreter. */
+    int objc,			/* Number of arguments. */
+    Tcl_Obj *CONST objv[])	/* Argument objects. */
+{
+    Tcl_SetObjResult(interp, Tcl_NewStringObj("unsafe command invoked", -1));
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Pkgb_Init --
+ *
+ *	This is a package initialization procedure, which is called by Tcl
+ *	when this package is to be added to an interpreter.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Pkgb_Init(
+    Tcl_Interp *interp)		/* Interpreter in which the package is to be
+				 * made available. */
+{
+    int code;
+
+    if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
+	return TCL_ERROR;
+    }
+    code = Tcl_PkgProvide(interp, "Pkgb", "2.3");
+    if (code != TCL_OK) {
+	return code;
+    }
+    Tcl_CreateObjCommand(interp, "pkgb_sub", Pkgb_SubObjCmd,
+	    (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
+    Tcl_CreateObjCommand(interp, "pkgb_unsafe", Pkgb_UnsafeObjCmd,
+	    (ClientData) 0, (Tcl_CmdDeleteProc *) NULL);
+    return TCL_OK;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Pkgb_SafeInit --
+ *
+ *	This is a package initialization procedure, which is called by Tcl
+ *	when this package is to be added to an unsafe interpreter.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+int
+Pkgb_SafeInit(
+    Tcl_Interp *interp)		/* Interpreter in which the package is to be
+				 * made available. */
+{
+    int code;
+
+    if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
+	return TCL_ERROR;
+    }
+    code = Tcl_PkgProvide(interp, "Pkgb", "2.3");
+    if (code != TCL_OK) {
+	return code;
+    }
+    Tcl_CreateObjCommand(interp, "pkgb_sub", Pkgb_SubObjCmd, (ClientData) 0,
+	    (Tcl_CmdDeleteProc *) NULL);
+    return TCL_OK;
+}