mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-08 03:44:13 -04:00
95 lines
2.8 KiB
C
95 lines
2.8 KiB
C
$NetBSD: patch-tnm_gdmo_tnmGdmoTcl.c,v 1.1 2014/03/05 13:52:29 he Exp $
|
|
|
|
Constify.
|
|
|
|
--- tnm/gdmo/tnmGdmoTcl.c.orig 1996-10-01 20:18:38.000000000 +0000
|
|
+++ tnm/gdmo/tnmGdmoTcl.c
|
|
@@ -88,20 +88,20 @@ oid_result _ANSI_ARGS_((Tcl_Interp*, gd
|
|
|
|
static int
|
|
GdmoNotification _ANSI_ARGS_((Tcl_Interp *interp,
|
|
- int argc, char **argv));
|
|
+ int argc, const char **argv));
|
|
static int
|
|
GdmoBehaviour _ANSI_ARGS_((Tcl_Interp *interp,
|
|
- int argc, char **argv));
|
|
+ int argc, const char **argv));
|
|
static int
|
|
GdmoLoad _ANSI_ARGS_((Tcl_Interp *interp,
|
|
- int argc, char **argv));
|
|
+ int argc, const char **argv));
|
|
static int
|
|
GdmoInfo _ANSI_ARGS_((Tcl_Interp *interp,
|
|
- int argc, char **argv));
|
|
+ int argc, const char **argv));
|
|
static int
|
|
GdmoCmd _ANSI_ARGS_((ClientData clientData,
|
|
Tcl_Interp *interp,
|
|
- int argc, char **argv));
|
|
+ int argc, const char **argv));
|
|
|
|
|
|
/*===========================================================================*
|
|
@@ -1282,7 +1282,7 @@ static int
|
|
GdmoNotification (interp, argc, argv)
|
|
Tcl_Interp *interp;
|
|
int argc;
|
|
- char **argv;
|
|
+ const char **argv;
|
|
{
|
|
if (argc == 2) {
|
|
if (!strcmp(argv[1], "info")) {
|
|
@@ -1360,7 +1360,7 @@ static int
|
|
GdmoBehaviour (interp, argc, argv)
|
|
Tcl_Interp *interp;
|
|
int argc;
|
|
- char **argv;
|
|
+ const char **argv;
|
|
{
|
|
if (argc == 2) {
|
|
if (!strcmp(argv[1], "info")) {
|
|
@@ -1424,11 +1424,11 @@ static int
|
|
GdmoLoad (interp, argc, argv)
|
|
Tcl_Interp *interp;
|
|
int argc;
|
|
- char **argv;
|
|
+ const char **argv;
|
|
{
|
|
Tcl_DString fileBuffer;
|
|
- char *library, *fileName, *file = argv[2];
|
|
- char **fileArgv = NULL, **libArgv = NULL;
|
|
+ const char *library, *fileName, *file = argv[2];
|
|
+ const char **fileArgv = NULL, **libArgv = NULL;
|
|
int fileArgc, libArgc;
|
|
int code = TCL_OK;
|
|
FILE *fin = NULL;
|
|
@@ -1463,8 +1463,8 @@ GdmoLoad (interp, argc, argv)
|
|
if (access(fileName, R_OK) != 0) {
|
|
|
|
int tmpArgc;
|
|
- char **tmpArgv = (char **) ckalloc((libArgc + 2) * sizeof(char *));
|
|
-
|
|
+ const char **tmpArgv = (const char **) ckalloc((libArgc + 2) *
|
|
+ sizeof(char *));
|
|
if (library) {
|
|
for (tmpArgc = 0; tmpArgc < libArgc; tmpArgc++) {
|
|
tmpArgv[tmpArgc] = libArgv[tmpArgc];
|
|
@@ -1551,7 +1551,7 @@ static int
|
|
GdmoInfo(interp, argc, argv)
|
|
Tcl_Interp *interp;
|
|
int argc;
|
|
- char **argv;
|
|
+ const char **argv;
|
|
{
|
|
if (argc != 3) {
|
|
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
|
|
@@ -1610,7 +1610,7 @@ GdmoCmd(clientData, interp, argc, argv)
|
|
ClientData clientData;
|
|
Tcl_Interp *interp;
|
|
int argc;
|
|
- char **argv;
|
|
+ const char **argv;
|
|
{
|
|
if (argc < 2) {
|
|
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
|