Context Navigation

Changeset 38942 for trunk/base/src

Timestamp:

2008-08-03 01:19:05 (4 months ago)

Author:

raimue@…

Message:

pextlib1.0/tty.c:
Tabs to spaces

Files:

r38940	r38942
48	48	int IsattyCmd(ClientData clientData UNUSED, Tcl_Interp interp, int objc, Tcl_Obj CONST objv[])
49	49	{
50		Tcl_Obj *tcl_result;
	50	Tcl_Obj *tcl_result;
51	51	Tcl_Channel chan;
52	52	int dir;
53	53	int fd;
54		int rval;
	54	int rval;
55	55
56		if (objc != 2) {
	56	if (objc != 2) {
57	57	Tcl_WrongNumArgs(interp, 1, objv, "channel");
58	58	return TCL_ERROR;
59		}
	59	}
60	60
61	61	chan = Tcl_GetChannel(interp, Tcl_GetString(objv[1]), &dir);
…	…
73	73	rval = isatty(fd);
74	74
75		tcl_result = Tcl_NewIntObj(rval);
76		Tcl_SetObjResult(interp, tcl_result);
	75	tcl_result = Tcl_NewIntObj(rval);
	76	Tcl_SetObjResult(interp, tcl_result);
77	77
78		return TCL_OK;
	78	return TCL_OK;
79	79	}
80	80
81	81	int TermGetSizeCmd(ClientData clientData UNUSED, Tcl_Interp interp, int objc, Tcl_Obj CONST objv[])
82	82	{
83		Tcl_Obj *tcl_result;
	83	Tcl_Obj *tcl_result;
84	84	Tcl_Channel chan;
85	85	int dir;
86		int fd;
87		Tcl_Obj *robjv[2];
	86	int fd;
	87	Tcl_Obj *robjv[2];
88	88	struct winsize ws = {0, 0, 0, 0};
89	89
90		if (objc != 2) {
91		Tcl_WrongNumArgs(interp, 1, objv, "channel");
92		return TCL_ERROR;
93		}
	90	if (objc != 2) {
	91	Tcl_WrongNumArgs(interp, 1, objv, "channel");
	92	return TCL_ERROR;
	93	}
94	94
95	95	chan = Tcl_GetChannel(interp, Tcl_GetString(objv[1]), &dir);
…	…
118	118	robjv[1] = Tcl_NewIntObj(ws.ws_col);
119	119
120		tcl_result = Tcl_NewListObj(2, robjv);
121		Tcl_SetObjResult(interp, tcl_result);
	120	tcl_result = Tcl_NewListObj(2, robjv);
	121	Tcl_SetObjResult(interp, tcl_result);
122	122
123		return TCL_OK;
	123	return TCL_OK;
124	124	}