mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-08-03 17:59:07 -04:00
139 lines
3.2 KiB
C
139 lines
3.2 KiB
C
$NetBSD: patch-tnm_generic_tnmNetdb.c,v 1.1 2014/03/05 13:52:29 he Exp $
|
||
|
||
Avoid use of interp->result.
|
||
Constify.
|
||
|
||
--- tnm/generic/tnmNetdb.c.orig 1998-09-23 16:47:43.000000000 +0200
|
||
+++ tnm/generic/tnmNetdb.c 2014-03-04 18:05:58.000000000 +0100
|
||
@@ -36,22 +36,22 @@
|
||
|
||
static int
|
||
NetdbHosts _ANSI_ARGS_((Tcl_Interp *interp,
|
||
- int argc, char **argv));
|
||
+ int argc, const char **argv));
|
||
static int
|
||
NetdbIp _ANSI_ARGS_((Tcl_Interp *interp,
|
||
- int argc, char **argv));
|
||
+ int argc, const char **argv));
|
||
static int
|
||
NetdbNetworks _ANSI_ARGS_((Tcl_Interp *interp,
|
||
- int argc, char **argv));
|
||
+ int argc, const char **argv));
|
||
static int
|
||
NetdbProtocols _ANSI_ARGS_((Tcl_Interp *interp,
|
||
- int argc, char **argv));
|
||
+ int argc, const char **argv));
|
||
static int
|
||
NetdbServices _ANSI_ARGS_((Tcl_Interp *interp,
|
||
- int argc, char **argv));
|
||
+ int argc, const char **argv));
|
||
static int
|
||
NetdbSunrpcs _ANSI_ARGS_((Tcl_Interp *interp,
|
||
- int argc, char **argv));
|
||
+ int argc, const char **argv));
|
||
|
||
|
||
/*
|
||
@@ -75,7 +75,7 @@
|
||
NetdbHosts(interp, argc, argv)
|
||
Tcl_Interp *interp;
|
||
int argc;
|
||
- char **argv;
|
||
+ const char **argv;
|
||
{
|
||
/*
|
||
* Process the "netdb hosts" command option:
|
||
@@ -177,7 +177,7 @@
|
||
NetdbIp(interp, argc, argv)
|
||
Tcl_Interp *interp;
|
||
int argc;
|
||
- char **argv;
|
||
+ const char **argv;
|
||
{
|
||
struct in_addr ipaddr;
|
||
|
||
@@ -289,7 +289,7 @@
|
||
NetdbNetworks(interp, argc, argv)
|
||
Tcl_Interp *interp;
|
||
int argc;
|
||
- char **argv;
|
||
+ const char **argv;
|
||
{
|
||
/*
|
||
* Process the "netdb networks" command option:
|
||
@@ -399,8 +399,10 @@
|
||
NetdbProtocols(interp, argc, argv)
|
||
Tcl_Interp *interp;
|
||
int argc;
|
||
- char **argv;
|
||
+ const char **argv;
|
||
{
|
||
+ char res[20];
|
||
+
|
||
/*
|
||
* Process the "netdb protocols" command option:
|
||
*/
|
||
@@ -462,7 +464,8 @@
|
||
(char *) NULL);
|
||
return TCL_ERROR;
|
||
}
|
||
- sprintf(interp->result, "%d", proto->p_proto);
|
||
+ sprintf(res, "%d", proto->p_proto);
|
||
+ Tcl_SetResult(interp, res, TCL_VOLATILE);
|
||
return TCL_OK;
|
||
}
|
||
|
||
@@ -492,8 +495,10 @@
|
||
NetdbServices(interp, argc, argv)
|
||
Tcl_Interp *interp;
|
||
int argc;
|
||
- char **argv;
|
||
+ const char **argv;
|
||
{
|
||
+ char res[20];
|
||
+
|
||
/*
|
||
* Process the "netdb services" command option:
|
||
*/
|
||
@@ -554,7 +559,8 @@
|
||
if (TnmSetIPPort(interp, argv[4], argv[3], &addr) != TCL_OK) {
|
||
return TCL_ERROR;
|
||
}
|
||
- sprintf(interp->result, "%d", ntohs(addr.sin_port));
|
||
+ sprintf(res, "%d", ntohs(addr.sin_port));
|
||
+ Tcl_SetResult(interp, res, TCL_VOLATILE);
|
||
return TCL_OK;
|
||
}
|
||
|
||
@@ -584,8 +590,10 @@
|
||
NetdbSunrpcs(interp, argc, argv)
|
||
Tcl_Interp *interp;
|
||
int argc;
|
||
- char **argv;
|
||
+ const char **argv;
|
||
{
|
||
+ char res[20];
|
||
+
|
||
/*
|
||
* Process the "netdb sunrpcs" command option:
|
||
*/
|
||
@@ -649,7 +657,8 @@
|
||
(char *) NULL);
|
||
return TCL_ERROR;
|
||
}
|
||
- sprintf(interp->result, "%d", rpc->r_number);
|
||
+ sprintf(res, "%d", rpc->r_number);
|
||
+ Tcl_SetResult(interp, res, TCL_VOLATILE);
|
||
return TCL_OK;
|
||
}
|
||
|
||
@@ -680,7 +689,7 @@
|
||
ClientData clientData;
|
||
Tcl_Interp *interp;
|
||
int argc;
|
||
- char **argv;
|
||
+ const char **argv;
|
||
{
|
||
if (argc < 2) {
|
||
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
|