88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
-
-
+
+
|
return TCL_OK;
}
}
if (Tcl_GetInt(interp, string, portPtr) != TCL_OK) {
return TCL_ERROR;
}
if (*portPtr > 0xFFFF) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"couldn't open socket: port number too high", -1));
TclPrintfResult(interp,
"couldn't open socket: port number too high");
return TCL_ERROR;
}
return TCL_OK;
}
/*
*----------------------------------------------------------------------
|