};
-void (*mapProcs[NMAPS])();
+void (*mapProcs[NMAPS])(SimView *);
void drawPopDensity(SimView *view);
void drawRateOfGrowth(SimView *view);
typedef Byte * Ptr;
typedef char **Handle;
-extern Ptr NewPtr();
-extern Handle GetResource();
-extern QUAD ResourceSize();
-extern char *ResourceName();
-extern QUAD ResourceID();
+extern Ptr NewPtr(int size);
+extern Handle GetResource(char *name, QUAD id);
+extern QUAD ResourceSize(Handle h);
+extern char *ResourceName(Handle h);
+extern QUAD ResourceID(Handle h);
struct Resource {
char *buf;
extern Sim *MakeNewSim();
extern SimView *MakeNewView();
-extern SimSprite *GetSprite();
-extern SimSprite *MakeSprite();
-extern SimSprite *MakeNewSprite();
+extern SimSprite *GetSprite(int type);
+extern SimSprite *MakeSprite(int type, int x, int y);
+extern SimSprite *MakeNewSprite(int type, int x, int y);
extern struct XDisplay *XDisplays;
static int seps [MAX_TYPES] = { SEP_0, SEP_1, SEP_2, SEP_3, SEP_4 };
QUAD sim_random();
-void sim_srandom();
-char *sim_initstate();
-char *sim_setstate();
+void sim_srandom (unsigned int x);
+char *sim_initstate (unsigned int seed, char *arg_state, int n);
+char *sim_setstate (char *arg_state);
/*
* Initially, everything is set up as if from:
* introduced by the L.C.R.N.G. Note that the initialization of randtbl[]
* for default usage relies on values produced by this routine.
*/
-void
-sim_srandom(x)
- unsigned int x;
+void
+sim_srandom (unsigned int x)
{
register int i, j;
* Returns a pointer to the old state.
*/
char *
-sim_initstate(seed, arg_state, n)
- unsigned int seed; /* seed for R.N.G. */
- char *arg_state; /* pointer to state array */
- int n; /* # bytes of state info */
+sim_initstate (
+ unsigned int seed, /* seed for R.N.G. */
+ char *arg_state, /* pointer to state array */
+ int n /* # bytes of state info */
+)
{
register char *ostate = (char *)(&state[-1]);
* Returns a pointer to the old state information.
*/
char *
-sim_setstate(arg_state)
- char *arg_state;
+sim_setstate (char *arg_state)
{
register QUAD *new_state = (QUAD *)arg_state;
register int type = new_state[0] % MAX_TYPES;
*
* Returns a 31-bit random number.
*/
-QUAD
-sim_random()
+QUAD
+sim_random (void)
{
QUAD i;
{
static float RLevels[3] = { 0.7, 0.9, 1.2 };
static float FLevels[3] = { 1.4, 1.2, 0.8 };
- short z;
+ /* short z; */
CashFlow = 0;
if (!TaxFlag) { /* if the Tax Port is clear */
/* XXX: do something with z */
- z = AvCityTax / 48; /* post */
+ /* z = AvCityTax / 48; */ /* post */
AvCityTax = 0;
PoliceFund = PolicePop * 100;
FireFund = FireStPop * 100;
int triedToBailOnce = 0;
void
-SignalExitHandler()
+SignalExitHandler(int sig)
{
if (triedToBailOnce) {
exit(-1);
void
signal_init()
{
- signal(SIGHUP, (void (*)())SignalExitHandler);
- signal(SIGINT, (void (*)())SignalExitHandler);
- signal(SIGQUIT, (void (*)())SignalExitHandler);
- signal(SIGTERM, (void (*)())SignalExitHandler);
+ signal(SIGHUP, (void (*)(int))SignalExitHandler);
+ signal(SIGINT, (void (*)(int))SignalExitHandler);
+ signal(SIGQUIT, (void (*)(int))SignalExitHandler);
+ signal(SIGTERM, (void (*)(int))SignalExitHandler);
}
main(int argc, char *argv[])
{
int c, errflg = 0;
- extern int isatty();
+ extern int isatty(int);
printf("Welcome to X11 Multi Player Micropolis version %s by Will Wright, Don Hopkins.\n",
MicropolisVersion);
};
-XDisplay *FindXDisplay();
+extern XDisplay *FindXDisplay(Tk_Window tkwin);
static void
SimDate *date = (SimDate *) clientData;
Tcl_HashEntry *ent;
int result = TCL_OK;
- int (*cmd)();
+ int (*cmd)(SimDate*, Tcl_Interp*, int, char**);
if (argc < 2) {
return TCL_ERROR;
}
if ((ent = Tcl_FindHashEntry(&DateCmds, argv[1]))) {
- cmd = (int (*)())ent->clientData;
+ cmd = (int (*)(SimDate*, Tcl_Interp*, int, char**))ent->clientData;
Tk_Preserve((ClientData) date);
result = cmd(date, interp, argc, argv);
Tk_Release((ClientData) date);
StructureNotifyMask,
SimDateEventProc, (ClientData) date);
Tcl_CreateCommand(interp, Tk_PathName(date->tkwin),
- DoDateCmd, (ClientData) date, (void (*)()) NULL);
+ DoDateCmd, (ClientData) date, (void (*)(int *)) NULL);
/*
Tk_MakeWindowExist(date->tkwin);
date_command_init(void)
{
Tcl_CreateCommand(tk_mainInterp, "dateview", DateViewCmd,
- (ClientData)MainWindow, (void (*)()) NULL);
+ (ClientData)MainWindow, (void (*)(int *)) NULL);
Tcl_InitHashTable(&DateCmds, TCL_STRING_KEYS);
extern int TileViewCmd(CLIENT_ARGS);
Tcl_CreateCommand(tk_mainInterp, "editorview", TileViewCmd,
- (ClientData)MainWindow, (void (*)()) NULL);
+ (ClientData)MainWindow, (void (*)(int *)) NULL);
Tcl_InitHashTable(&EditorCmds, TCL_STRING_KEYS);
SimView *view = (SimView *) clientData;
Tcl_HashEntry *ent;
int result = TCL_OK;
- int (*cmd)();
+ int (*cmd)(SimView*, Tcl_Interp*, int, char**);
if (argc < 2) {
return TCL_ERROR;
}
if ((ent = Tcl_FindHashEntry(&EditorCmds, argv[1]))) {
- cmd = (int (*)())ent->clientData;
+ cmd = (int (*)(SimView*, Tcl_Interp*, int, char**))ent->clientData;
Tk_Preserve((ClientData) view);
result = cmd(view, interp, argc, argv);
Tk_Release((ClientData) view);
NewMap = 1;
DidStopPan(view);
} else {
- double atan2(), cos(), sin();
+ double atan2(double, double), cos(double), sin(double);
double direction, vx, vy;
double co, si;
};
-XDisplay *FindXDisplay();
+extern XDisplay *FindXDisplay(Tk_Window tkwin);
static void
SimGraph *graph = (SimGraph *) clientData;
Tcl_HashEntry *ent;
int result = TCL_OK;
- int (*cmd)();
+ int (*cmd)(SimGraph*, Tcl_Interp*, int, char**);
if (argc < 2) {
return TCL_ERROR;
}
if ((ent = Tcl_FindHashEntry(&GraphCmds, argv[1]))) {
- cmd = (int (*)())ent->clientData;
+ cmd = (int (*)(SimGraph*, Tcl_Interp*, int, char**))ent->clientData;
Tk_Preserve((ClientData) graph);
result = cmd(graph, interp, argc, argv);
Tk_Release((ClientData) graph);
StructureNotifyMask,
SimGraphEventProc, (ClientData) graph);
Tcl_CreateCommand(interp, Tk_PathName(graph->tkwin),
- DoGraphCmd, (ClientData) graph, (void (*)()) NULL);
+ DoGraphCmd, (ClientData) graph, (void (*)(int *)) NULL);
/*
Tk_MakeWindowExist(graph->tkwin);
graph_command_init(void)
{
Tcl_CreateCommand(tk_mainInterp, "graphview", GraphViewCmd,
- (ClientData)MainWindow, (void (*)()) NULL);
+ (ClientData)MainWindow, (void (*)(int *)) NULL);
Tcl_InitHashTable(&GraphCmds, TCL_STRING_KEYS);
*--------------------------------------------------------------
*/
-int
-Tk_IntervalCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_IntervalCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
register Interval *intervalPtr;
|PointerMotionMask|ButtonPressMask|ButtonReleaseMask,
IntervalMouseProc, (ClientData) intervalPtr);
Tcl_CreateCommand(interp, Tk_PathName(intervalPtr->tkwin), IntervalWidgetCmd,
- (ClientData) intervalPtr, (void (*)()) NULL);
+ (ClientData) intervalPtr, (void (*)(int *)) NULL);
if (ConfigureInterval(interp, intervalPtr, argc-2, argv+2, 0) != TCL_OK) {
goto error;
}
*--------------------------------------------------------------
*/
-static int
-IntervalWidgetCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about interval
+static int
+IntervalWidgetCmd (
+ ClientData clientData, /* Information about interval
* widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Interval *intervalPtr = (Interval *) clientData;
int result = TCL_OK;
*----------------------------------------------------------------------
*/
-static void
-DestroyInterval(clientData)
- ClientData clientData; /* Info about interval widget. */
+static void
+DestroyInterval (
+ ClientData clientData /* Info about interval widget. */
+)
{
register Interval *intervalPtr = (Interval *) clientData;
*----------------------------------------------------------------------
*/
-static int
-ConfigureInterval(interp, intervalPtr, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- register Interval *intervalPtr; /* Information about widget; may or may
+static int
+ConfigureInterval (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register Interval *intervalPtr, /* Information about widget; may or may
* not already have values for some fields. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
XGCValues gcValues;
GC newGC;
*----------------------------------------------------------------------
*/
-static void
-ComputeIntervalGeometry(intervalPtr)
- register Interval *intervalPtr; /* Information about widget. */
+static void
+ComputeIntervalGeometry (
+ register Interval *intervalPtr /* Information about widget. */
+)
{
XCharStruct bbox;
char valueString[30];
*--------------------------------------------------------------
*/
-static void
-DisplayVerticalInterval(clientData)
- ClientData clientData; /* Information about widget. */
+static void
+DisplayVerticalInterval (
+ ClientData clientData /* Information about widget. */
+)
{
register Interval *intervalPtr = (Interval *) clientData;
register Tk_Window tkwin = intervalPtr->tkwin;
*----------------------------------------------------------------------
*/
-static void
-DisplayVerticalValue(intervalPtr, value, rightEdge)
- register Interval *intervalPtr; /* Information about widget in which to
+static void
+DisplayVerticalValue (
+ register Interval *intervalPtr, /* Information about widget in which to
* display value. */
- int value; /* Y-coordinate of number to display,
+ int value, /* Y-coordinate of number to display,
* specified in application coords, not
* in pixels (we'll compute pixels). */
- int rightEdge; /* X-coordinate of right edge of text,
+ int rightEdge /* X-coordinate of right edge of text,
* specified in pixels. */
+)
{
register Tk_Window tkwin = intervalPtr->tkwin;
int y, dummy, length;
*--------------------------------------------------------------
*/
-static void
-DisplayHorizontalInterval(clientData)
- ClientData clientData; /* Information about widget. */
+static void
+DisplayHorizontalInterval (
+ ClientData clientData /* Information about widget. */
+)
{
register Interval *intervalPtr = (Interval *) clientData;
register Tk_Window tkwin = intervalPtr->tkwin;
*----------------------------------------------------------------------
*/
-static void
-DisplayHorizontalValue(intervalPtr, value, bottom)
- register Interval *intervalPtr; /* Information about widget in which to
+static void
+DisplayHorizontalValue (
+ register Interval *intervalPtr, /* Information about widget in which to
* display value. */
- int value; /* Y-coordinate of number to display,
+ int value, /* Y-coordinate of number to display,
* specified in application coords, not
* in pixels (we'll compute pixels). */
- int bottom; /* Y-coordinate of bottom edge of text,
+ int bottom /* Y-coordinate of bottom edge of text,
* specified in pixels. */
+)
{
register Tk_Window tkwin = intervalPtr->tkwin;
int x, y, dummy, length;
*----------------------------------------------------------------------
*/
-static int
-PixelToValue(intervalPtr, x, y)
- register Interval *intervalPtr; /* Information about widget. */
- int x, y; /* Coordinates of point within
+static int
+PixelToValue (
+ register Interval *intervalPtr, /* Information about widget. */
+ int x,
+ int y /* Coordinates of point within
* window. */
+)
{
int value, pixelRange;
*----------------------------------------------------------------------
*/
-static int
-ValueToPixel(intervalPtr, value)
- register Interval *intervalPtr; /* Information about widget. */
- int value; /* Reading of the widget. */
+static int
+ValueToPixel (
+ register Interval *intervalPtr, /* Information about widget. */
+ int value /* Reading of the widget. */
+)
{
int y, pixelRange, valueRange;
*--------------------------------------------------------------
*/
-static void
-IntervalEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- XEvent *eventPtr; /* Information about event. */
+static void
+IntervalEventProc (
+ ClientData clientData, /* Information about window. */
+ XEvent *eventPtr /* Information about event. */
+)
{
Interval *intervalPtr = (Interval *) clientData;
*--------------------------------------------------------------
*/
-static void
-IntervalMouseProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- register XEvent *eventPtr; /* Information about event. */
+static void
+IntervalMouseProc (
+ ClientData clientData, /* Information about window. */
+ register XEvent *eventPtr /* Information about event. */
+)
{
register Interval *intervalPtr = (Interval *) clientData;
*--------------------------------------------------------------
*/
-static void
-StartTrackInterval(intervalPtr, value)
- register Interval *intervalPtr; /* Info about widget. */
- int value; /* New value for interval. Gets
+static void
+StartTrackInterval (
+ register Interval *intervalPtr, /* Info about widget. */
+ int value /* New value for interval. Gets
* adjusted if it's off the interval. */
+)
{
if ((value < intervalPtr->fromValue)
^ (intervalPtr->toValue < intervalPtr->fromValue)) {
}
-static void
-TrackInterval(intervalPtr, value)
- register Interval *intervalPtr; /* Info about widget. */
- int value;
+static void
+TrackInterval (
+ register Interval *intervalPtr, /* Info about widget. */
+ int value
+)
{
int min, max, delta, lastmin, lastmax;
static void
-SetInterval(intervalPtr, min, max, notify)
- register Interval *intervalPtr; /* Info about widget. */
- int min, max, notify;
+SetInterval(
+ register Interval *intervalPtr, /* Info about widget. */
+ int min,
+ int max,
+ int notify
+)
{
if (min > max) {
int temp = min;
*--------------------------------------------------------------
*/
-static void
-EventuallyRedrawInterval(intervalPtr, what)
- register Interval *intervalPtr; /* Information about widget. */
- int what; /* What to redraw: REDRAW_SLIDER
+static void
+EventuallyRedrawInterval (
+ register Interval *intervalPtr, /* Information about widget. */
+ int what /* What to redraw: REDRAW_SLIDER
* or REDRAW_ALL. */
+)
{
if ((what == 0) || (intervalPtr->tkwin == NULL)
|| !Tk_IsMapped(intervalPtr->tkwin)) {
extern int TileViewCmd(CLIENT_ARGS);
Tcl_CreateCommand(tk_mainInterp, "mapview", TileViewCmd,
- (ClientData)MainWindow, (void (*)()) NULL);
+ (ClientData)MainWindow, (void (*)(int *)) NULL);
Tcl_InitHashTable(&MapCmds, TCL_STRING_KEYS);
SimView *view = (SimView *) clientData;
Tcl_HashEntry *ent;
int result = TCL_OK;
- int (*cmd)();
+ int (*cmd)(SimView*, Tcl_Interp*, int, char**);
if (argc < 2) {
return TCL_ERROR;
}
if ((ent = Tcl_FindHashEntry(&MapCmds, argv[1]))) {
- cmd = (int (*)())ent->clientData;
+ cmd = (int (*)(SimView*, Tcl_Interp*, int, char**))ent->clientData;
Tk_Preserve((ClientData) view);
result = cmd(view, interp, argc, argv);
Tk_Release((ClientData) view);
*--------------------------------------------------------------
*/
-int
-Tk_PieMenuCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_PieMenuCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
Tk_Window new;
PointerMotionMask,
PieMenuEventProc, (ClientData) menuPtr);
Tcl_CreateCommand(interp, Tk_PathName(menuPtr->tkwin), PieMenuWidgetCmd,
- (ClientData) menuPtr, (void (*)()) NULL);
+ (ClientData) menuPtr, (void (*)(int *)) NULL);
if (ConfigurePieMenu(interp, menuPtr, argc-2, argv+2, 0) != TCL_OK) {
goto error;
}
*--------------------------------------------------------------
*/
-static int
-PieMenuWidgetCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about menu widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+static int
+PieMenuWidgetCmd (
+ ClientData clientData, /* Information about menu widget. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register PieMenu *menuPtr = (PieMenu *) clientData;
register PieMenuEntry *mePtr;
*----------------------------------------------------------------------
*/
-static void
-DestroyPieMenu(clientData)
- ClientData clientData; /* Info about menu widget. */
+static void
+DestroyPieMenu (
+ ClientData clientData /* Info about menu widget. */
+)
{
register PieMenu *menuPtr = (PieMenu *) clientData;
int i;
*----------------------------------------------------------------------
*/
-static void
-DestroyPieMenuEntry(clientData)
- ClientData clientData; /* Pointer to entry to be freed. */
+static void
+DestroyPieMenuEntry (
+ ClientData clientData /* Pointer to entry to be freed. */
+)
{
register PieMenuEntry *mePtr = (PieMenuEntry *) clientData;
PieMenu *menuPtr = mePtr->piemenuPtr;
*----------------------------------------------------------------------
*/
-static int
-ConfigurePieMenu(interp, menuPtr, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- register PieMenu *menuPtr; /* Information about widget; may or may
+static int
+ConfigurePieMenu (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register PieMenu *menuPtr, /* Information about widget; may or may
* not already have values for some fields. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
XGCValues gcValues;
GC newGC;
*----------------------------------------------------------------------
*/
-static int
-ConfigurePieMenuEntry(interp, menuPtr, mePtr, index, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- PieMenu *menuPtr; /* Information about whole menu. */
- register PieMenuEntry *mePtr; /* Information about menu entry; may
+static int
+ConfigurePieMenuEntry (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ PieMenu *menuPtr, /* Information about whole menu. */
+ register PieMenuEntry *mePtr, /* Information about menu entry; may
* or may not already have values for
* some fields. */
- int index; /* Index of mePtr within menuPtr's
+ int index, /* Index of mePtr within menuPtr's
* entries. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Additional flags to pass to
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Additional flags to pass to
* Tk_ConfigureWidget. */
+)
{
XGCValues gcValues;
GC newGC, newActiveGC;
*--------------------------------------------------------------
*/
-static void
-ComputePieMenuGeometry(clientData)
- ClientData clientData; /* Structure describing menu. */
+static void
+ComputePieMenuGeometry (
+ ClientData clientData /* Structure describing menu. */
+)
{
PieMenu *menuPtr = (PieMenu *) clientData;
*----------------------------------------------------------------------
*/
-static void
-DisplayPieMenu(clientData)
- ClientData clientData; /* Information about widget. */
+static void
+DisplayPieMenu (
+ ClientData clientData /* Information about widget. */
+)
{
register PieMenu *menuPtr = (PieMenu *) clientData;
register Tk_Window tkwin = menuPtr->tkwin;
*----------------------------------------------------------------------
*/
-static void
-UpdatePieMenu(clientData)
- ClientData clientData; /* Information about widget. */
+static void
+UpdatePieMenu (
+ ClientData clientData /* Information about widget. */
+)
{
register PieMenu *menuPtr = (PieMenu *) clientData;
*--------------------------------------------------------------
*/
-static int
-GetPieMenuIndex(interp, menuPtr, string, indexPtr)
- Tcl_Interp *interp; /* For error messages. */
- PieMenu *menuPtr; /* Menu for which the index is being
+static int
+GetPieMenuIndex (
+ Tcl_Interp *interp, /* For error messages. */
+ PieMenu *menuPtr, /* Menu for which the index is being
* specified. */
- char *string; /* Specification of an entry in menu. See
+ char *string, /* Specification of an entry in menu. See
* manual entry for valid .*/
- int *indexPtr; /* Where to store converted relief. */
+ int *indexPtr /* Where to store converted relief. */
+)
{
int i;
*--------------------------------------------------------------
*/
-static void
-PieMenuEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- XEvent *eventPtr; /* Information about event. */
+static void
+PieMenuEventProc (
+ ClientData clientData, /* Information about window. */
+ XEvent *eventPtr /* Information about event. */
+)
{
PieMenu *menuPtr = (PieMenu *) clientData;
switch (eventPtr->type) {
*----------------------------------------------------------------------
*/
-static void
-EventuallyRedrawPieMenu(menuPtr, index)
- register PieMenu *menuPtr; /* Information about menu to redraw. */
- int index; /* Which entry to redraw. If -1, then
+static void
+EventuallyRedrawPieMenu (
+ register PieMenu *menuPtr, /* Information about menu to redraw. */
+ int index /* Which entry to redraw. If -1, then
* all the entries in the menu are redrawn. */
+)
{
if (menuPtr->tkwin == NULL) {
return;
}
-static void
-PopupPieMenu(clientData)
- ClientData clientData; /* Information about widget. */
+static void
+PopupPieMenu (
+ ClientData clientData /* Information about widget. */
+)
{
register PieMenu *menuPtr = (PieMenu *) clientData;
}
-static void
-NowPopupPieMenu(menuPtr)
- register PieMenu *menuPtr;
+static void
+NowPopupPieMenu (register PieMenu *menuPtr)
{
PopupPieMenu((ClientData)menuPtr);
}
-static void
-NeverPopupPieMenu(menuPtr)
- register PieMenu *menuPtr;
+static void
+NeverPopupPieMenu (register PieMenu *menuPtr)
{
if (menuPtr->flags & POPUP_PENDING) {
Tk_DeleteTimerHandler(menuPtr->popup_timer_token);
}
-static void
-EventuallyPopupPieMenu(menuPtr)
- register PieMenu *menuPtr;
+static void
+EventuallyPopupPieMenu (register PieMenu *menuPtr)
{
NeverPopupPieMenu(menuPtr);
}
-static void
-DeferPopupPieMenu(menuPtr)
- register PieMenu *menuPtr;
+static void
+DeferPopupPieMenu (register PieMenu *menuPtr)
{
if (menuPtr->flags & POPUP_PENDING) {
EventuallyPopupPieMenu(menuPtr);
*--------------------------------------------------------------
*/
-static int
-UnpostSubPieMenu(interp, menuPtr)
- Tcl_Interp *interp; /* Used for invoking sub-commands and
+static int
+UnpostSubPieMenu (
+ Tcl_Interp *interp, /* Used for invoking sub-commands and
* reporting errors. */
- register PieMenu *menuPtr; /* Information about menu as a whole. */
+ register PieMenu *menuPtr /* Information about menu as a whole. */
+)
{
int result;
*----------------------------------------------------------------------
*/
-static int
-ActivatePieMenuEntry(menuPtr, index, preview)
- register PieMenu *menuPtr; /* Menu in which to activate. */
- int index; /* Index of entry to activate, or
+static int
+ActivatePieMenuEntry (
+ register PieMenu *menuPtr, /* Menu in which to activate. */
+ int index, /* Index of entry to activate, or
* -1 to deactivate all entries. */
- int preview; /* 1 to execute previewer */
+ int preview /* 1 to execute previewer */
+)
{
register PieMenuEntry *mePtr;
int result = TCL_OK;
}
-static void
-ShapePieMenu(menuPtr)
-PieMenu *menuPtr;
+static void
+ShapePieMenu (PieMenu *menuPtr)
{
Display *dpy;
Window win, shape;
{
Tcl_HashEntry *ent;
int result = TCL_OK;
- int (*cmd)();
+ int (*cmd)(Tcl_Interp*, int, char**);
if (argc < 2) {
return TCL_ERROR;
}
if ((ent = Tcl_FindHashEntry(&SimCmds, argv[1]))) {
- cmd = (int (*)())ent->clientData;
+ cmd = (int (*)(Tcl_Interp*, int, char**))ent->clientData;
result = cmd(interp, argc, argv);
} else {
result = TCL_ERROR;
sim_command_init(void)
{
Tcl_CreateCommand(tk_mainInterp, "sim", SimCmd,
- (ClientData)MainWindow, (void (*)()) NULL);
+ (ClientData)MainWindow, (void (*)(int *)) NULL);
Tcl_InitHashTable(&SimCmds, TCL_STRING_KEYS);
sound_command_init(void)
{
Tcl_CreateCommand(tk_mainInterp, "playsound", SoundCmd,
- (ClientData)NULL, (void (*)()) NULL);
+ (ClientData)NULL, (void (*)(int *)) NULL);
Tcl_CreateCommand(tk_mainInterp, "stopdozer", DozerCmd,
- (ClientData)NULL, (void (*)()) NULL);
+ (ClientData)NULL, (void (*)(int *)) NULL);
}
SimSprite *sprite = (SimSprite *) clientData;
Tcl_HashEntry *ent;
int result = TCL_OK;
- int (*cmd)();
+ int (*cmd)(SimSprite*, Tcl_Interp*, int, char**);
if (argc < 2) {
return TCL_ERROR;
}
if ((ent = Tcl_FindHashEntry(&SpriteCmds, argv[1]))) {
- cmd = (int (*)())ent->clientData;
+ cmd = (int (*)(SimSprite*, Tcl_Interp*, int, char**))ent->clientData;
Tk_Preserve((ClientData) sprite);
result = cmd(sprite, interp, argc, argv);
Tk_Release((ClientData) sprite);
sprite->frame = 0;
Tcl_CreateCommand(interp, sprite->name,
- DoSpriteCmd, (ClientData) sprite, (void (*)()) NULL);
+ DoSpriteCmd, (ClientData) sprite, (void (*)(int *)) NULL);
interp->result = sprite->name;
return TCL_OK;
int i;
Tcl_CreateCommand(tk_mainInterp, "sprite", SpriteCmd,
- (ClientData)NULL, (void (*)()) NULL);
+ (ClientData)NULL, (void (*)(int *)) NULL);
Tcl_InitHashTable(&SpriteCmds, TCL_STRING_KEYS);
Ptr
-NewPtr(size)
-int size;
+NewPtr(int size)
{
return ((Ptr)calloc(size, sizeof(Byte)));
}
int GraphViewCmd(CLIENT_ARGS);
int DoGraphCmd(CLIENT_ARGS);
int SpriteCmd(CLIENT_ARGS);
-extern int Tk_PieMenuCmd();
-extern int Tk_IntervalCmd();
+extern int Tk_PieMenuCmd(CLIENT_ARGS);
+extern int Tk_IntervalCmd(CLIENT_ARGS);
int
PointerMotionMask,
TileViewEventProc, (ClientData) view);
Tcl_CreateCommand(interp, Tk_PathName(view->tkwin),
- DoEditorCmd, (ClientData) view, (void (*)()) NULL);
+ DoEditorCmd, (ClientData) view, (void (*)(int *)) NULL);
} else {
Tk_SetClass(view->tkwin, "MapView");
PointerMotionMask */ ,
TileViewEventProc, (ClientData) view);
Tcl_CreateCommand(interp, Tk_PathName(view->tkwin),
- DoMapCmd, (ClientData) view, (void (*)()) NULL);
+ DoMapCmd, (ClientData) view, (void (*)(int *)) NULL);
}
Tk_MakeWindowExist(view->tkwin);
if (earthquake_timer_set) {
Tk_DeleteTimerHandler(earthquake_timer_token);
}
- Tk_CreateTimerHandler(earthquake_delay, (void (*)())StopEarthquake, (ClientData) 0);
+ Tk_CreateTimerHandler(earthquake_delay, (void (*)(int *))StopEarthquake, (ClientData) 0);
earthquake_timer_set = 1;
}
#endif
Tcl_CreateCommand(tk_mainInterp, "piemenu", Tk_PieMenuCmd,
- (ClientData)MainWindow, (void (*)()) NULL);
+ (ClientData)MainWindow, (void (*)(int *)) NULL);
Tcl_CreateCommand(tk_mainInterp, "interval", Tk_IntervalCmd,
- (ClientData)MainWindow, (void (*)()) NULL);
+ (ClientData)MainWindow, (void (*)(int *)) NULL);
sim = MakeNewSim();
view->shminfo->shmaddr = (char *)view->data;
view->shminfo->readOnly = False;
- { int (*old)();
+ { int (*old)(Display *, XErrorEvent *);
int result;
int attached = 0;
GotXError = 0;
#include <stdio.h>
#include <stdlib.h>
+#include <stdarg.h>
\f
/*
*----------------------------------------------------------------------
/* VARARGS ARGSUSED */
void
-panic(format, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8)
- char *format; /* Format string, suitable for passing to
+panicVA(
+ char *format, /* Format string, suitable for passing to
* fprintf. */
+ va_list argList /* Variable argument list. */
+)
+{
char *arg1, *arg2, *arg3; /* Additional arguments (variable in number)
* to pass to fprintf. */
char *arg4, *arg5, *arg6, *arg7, *arg8;
-{
+
+ arg1 = va_arg(argList, char *);
+ arg2 = va_arg(argList, char *);
+ arg3 = va_arg(argList, char *);
+ arg4 = va_arg(argList, char *);
+ arg5 = va_arg(argList, char *);
+ arg6 = va_arg(argList, char *);
+ arg7 = va_arg(argList, char *);
+ arg8 = va_arg(argList, char *);
+
(void) fprintf(stderr, format, arg1, arg2, arg3, arg4, arg5, arg6,
arg7, arg8);
(void) fflush(stderr);
abort();
}
+
+void
+panic(
+ char *format, /* Format string, suitable for passing to
+ * fprintf. */
+ ...
+)
+{
+ va_list argList;
+
+ va_start(argList, format);
+ panicVA(format, argList);
+}
#ifndef STATIC
#define STATIC static
#endif
-STATIC char *reg();
-STATIC char *regbranch();
-STATIC char *regpiece();
-STATIC char *regatom();
-STATIC char *regnode();
-STATIC char *regnext();
-STATIC void regc();
-STATIC void reginsert();
-STATIC void regtail();
-STATIC void regoptail();
+STATIC char *reg(int paren, int *flagp);
+STATIC char *regbranch(int *flagp);
+STATIC char *regpiece(int *flagp);
+STATIC char *regatom(int *flagp);
+STATIC char *regnode(int op);
+STATIC char *regnext(register char *p);
+STATIC void regc(int b);
+STATIC void reginsert(int op, char *opnd);
+STATIC void regtail(char *p, char *val);
+STATIC void regoptail(char *p, char *val);
#ifdef STRCSPN
STATIC int strcspn();
#endif
* of the structure of the compiled regexp.
*/
regexp *
-regcomp(exp)
-char *exp;
+regcomp (char *exp)
{
register regexp *r;
register char *scan;
* follows makes it hard to avoid.
*/
static char *
-reg(paren, flagp)
-int paren; /* Parenthesized? */
-int *flagp;
+reg (
+ int paren, /* Parenthesized? */
+ int *flagp
+)
{
register char *ret;
register char *br;
* Implements the concatenation operator.
*/
static char *
-regbranch(flagp)
-int *flagp;
+regbranch (int *flagp)
{
register char *ret;
register char *chain;
* endmarker role is not redundant.
*/
static char *
-regpiece(flagp)
-int *flagp;
+regpiece (int *flagp)
{
register char *ret;
register char op;
* separate node; the code is simpler that way and it's not worth fixing.
*/
static char *
-regatom(flagp)
-int *flagp;
+regatom (int *flagp)
{
register char *ret;
int flags;
/*
- regnode - emit a node
*/
-static char * /* Location. */
-regnode(op)
-char op;
+static char *
+regnode (int op)
{
register char *ret;
register char *ptr;
/*
- regc - emit (if appropriate) a byte of code
*/
-static void
-regc(b)
-char b;
+static void
+regc (int b)
{
if (regcode != ®dummy)
*regcode++ = b;
*
* Means relocating the operand.
*/
-static void
-reginsert(op, opnd)
-char op;
-char *opnd;
+static void
+reginsert (int op, char *opnd)
{
register char *src;
register char *dst;
/*
- regtail - set the next-pointer at the end of a node chain
*/
-static void
-regtail(p, val)
-char *p;
-char *val;
+static void
+regtail (char *p, char *val)
{
register char *scan;
register char *temp;
/*
- regoptail - regtail on operand of first argument; nop if operandless
*/
-static void
-regoptail(p, val)
-char *p;
-char *val;
+static void
+regoptail (char *p, char *val)
{
/* "Operandless" and "op != BRANCH" are synonymous in practice. */
if (p == NULL || p == ®dummy || OP(p) != BRANCH)
/*
* Forwards.
*/
-STATIC int regtry();
-STATIC int regmatch();
-STATIC int regrepeat();
+STATIC int regtry(regexp *prog, char *string);
+STATIC int regmatch(char *prog);
+STATIC int regrepeat(char *p);
#ifdef DEBUG
int regnarrate = 0;
/*
- regexec - match a regexp against a string
*/
-int
-regexec(prog, string)
-register regexp *prog;
-register char *string;
+int
+regexec (register regexp *prog, register char *string)
{
register char *s;
#ifndef IS_LINUX
- regtry - try match at specific point
*/
static int /* 0 failure, 1 success */
-regtry(prog, string)
-regexp *prog;
-char *string;
+regtry(regexp *prog, char *string)
{
register int i;
register char **sp;
* by recursion.
*/
static int /* 0 failure, 1 success */
-regmatch(prog)
-char *prog;
+regmatch(char *prog)
{
register char *scan; /* Current node. */
char *next; /* Next node. */
- regrepeat - repeatedly match something simple, report how many
*/
static int
-regrepeat(p)
-char *p;
+regrepeat(char *p)
{
register int count = 0;
register char *scan;
- regnext - dig the "next" pointer out of a node
*/
static char *
-regnext(p)
-register char *p;
+regnext (register char *p)
{
register int offset;
/*
- regdump - dump a regexp onto stdout in vaguely comprehensible form
*/
-void
-regdump(r)
-regexp *r;
+void
+regdump (regexp *r)
{
register char *s;
register char op = EXACTLY; /* Arbitrary non-END op. */
- regprop - printable representation of opcode
*/
static char *
-regprop(op)
-char *op;
+regprop (char *op)
{
register char *p;
static char buf[50];
* of characters not from s2
*/
-static int
-strcspn(s1, s2)
-char *s1;
-char *s2;
+static int
+strcspn (char *s1, char *s2)
{
register char *scan1;
register char *scan2;
*----------------------------------------------------------------------
*/
-Tcl_CmdBuf
-Tcl_CreateCmdBuf()
+Tcl_CmdBuf
+Tcl_CreateCmdBuf (void)
{
register CmdBuf *cbPtr;
*----------------------------------------------------------------------
*/
-void
-Tcl_DeleteCmdBuf(buffer)
- Tcl_CmdBuf buffer; /* Token for command buffer (return value
+void
+Tcl_DeleteCmdBuf (
+ Tcl_CmdBuf buffer /* Token for command buffer (return value
* from previous call to Tcl_CreateCmdBuf). */
+)
{
register CmdBuf *cbPtr = (CmdBuf *) buffer;
*/
char *
-Tcl_AssembleCmd(buffer, string)
- Tcl_CmdBuf buffer; /* Token for a command buffer previously
+Tcl_AssembleCmd (
+ Tcl_CmdBuf buffer, /* Token for a command buffer previously
* created by Tcl_CreateCmdBuf. */
- char *string; /* Bytes to be appended to command stream.
+ char *string /* Bytes to be appended to command stream.
* Note: if the string is zero length,
* then whatever is buffered will be
* considered to be a complete command
* regardless of whether parentheses are
* matched or not. */
+)
{
register CmdBuf *cbPtr = (CmdBuf *) buffer;
int length, totalLength;
*/
Tcl_Interp *
-Tcl_CreateInterp()
+Tcl_CreateInterp (void)
{
register Interp *iPtr;
register Command *cmdPtr;
*----------------------------------------------------------------------
*/
-void
-Tcl_DeleteInterp(interp)
- Tcl_Interp *interp; /* Token for command interpreter (returned
+void
+Tcl_DeleteInterp (
+ Tcl_Interp *interp /* Token for command interpreter (returned
* by a previous call to Tcl_CreateInterp). */
+)
{
Interp *iPtr = (Interp *) interp;
Tcl_HashEntry *hPtr;
*/
void
-Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc)
- Tcl_Interp *interp; /* Token for command interpreter (returned
+Tcl_CreateCommand(
+ Tcl_Interp *interp, /* Token for command interpreter (returned
* by a previous call to Tcl_CreateInterp). */
- char *cmdName; /* Name of command. */
- Tcl_CmdProc *proc; /* Command procedure to associate with
+ char *cmdName, /* Name of command. */
+ Tcl_CmdProc *proc, /* Command procedure to associate with
* cmdName. */
- ClientData clientData; /* Arbitrary one-word value to pass to proc. */
- Tcl_CmdDeleteProc *deleteProc;
+ ClientData clientData, /* Arbitrary one-word value to pass to proc. */
+ Tcl_CmdDeleteProc *deleteProc
/* If not NULL, gives a procedure to call when
* this command is deleted. */
+)
{
Interp *iPtr = (Interp *) interp;
register Command *cmdPtr;
*----------------------------------------------------------------------
*/
-int
-Tcl_DeleteCommand(interp, cmdName)
- Tcl_Interp *interp; /* Token for command interpreter (returned
+int
+Tcl_DeleteCommand (
+ Tcl_Interp *interp, /* Token for command interpreter (returned
* by a previous call to Tcl_CreateInterp). */
- char *cmdName; /* Name of command to remove. */
+ char *cmdName /* Name of command to remove. */
+)
{
Interp *iPtr = (Interp *) interp;
Tcl_HashEntry *hPtr;
*-----------------------------------------------------------------
*/
-int
-Tcl_Eval(interp, cmd, flags, termPtr)
- Tcl_Interp *interp; /* Token for command interpreter (returned
+int
+Tcl_Eval (
+ Tcl_Interp *interp, /* Token for command interpreter (returned
* by a previous call to Tcl_CreateInterp). */
- char *cmd; /* Pointer to TCL command to interpret. */
- int flags; /* OR-ed combination of flags like
+ char *cmd, /* Pointer to TCL command to interpret. */
+ int flags, /* OR-ed combination of flags like
* TCL_BRACKET_TERM and TCL_RECORD_BOUNDS. */
- char **termPtr; /* If non-NULL, fill in the address it points
+ char **termPtr /* If non-NULL, fill in the address it points
* to with the address of the char. just after
* the last one that was part of cmd. See
* the man page for details on this. */
+)
{
/*
* The storage immediately below is used to generate a copy
*/
Tcl_Trace
-Tcl_CreateTrace(interp, level, proc, clientData)
- Tcl_Interp *interp; /* Interpreter in which to create the trace. */
- int level; /* Only call proc for commands at nesting level
+Tcl_CreateTrace(
+ Tcl_Interp *interp, /* Interpreter in which to create the trace. */
+ int level, /* Only call proc for commands at nesting level
* <= level (1 => top level). */
- Tcl_CmdTraceProc *proc; /* Procedure to call before executing each
+ Tcl_CmdTraceProc *proc, /* Procedure to call before executing each
* command. */
- ClientData clientData; /* Arbitrary one-word value to pass to proc. */
+ ClientData clientData /* Arbitrary one-word value to pass to proc. */
+)
{
register Trace *tracePtr;
register Interp *iPtr = (Interp *) interp;
*----------------------------------------------------------------------
*/
-void
-Tcl_DeleteTrace(interp, trace)
- Tcl_Interp *interp; /* Interpreter that contains trace. */
- Tcl_Trace trace; /* Token for trace (returned previously by
+void
+Tcl_DeleteTrace (
+ Tcl_Interp *interp, /* Interpreter that contains trace. */
+ Tcl_Trace trace /* Token for trace (returned previously by
* Tcl_CreateTrace). */
+)
{
register Interp *iPtr = (Interp *) interp;
register Trace *tracePtr = (Trace *) trace;
*----------------------------------------------------------------------
*/
-void
-Tcl_AddErrorInfo(interp, message)
- Tcl_Interp *interp; /* Interpreter to which error information
+void
+Tcl_AddErrorInfo (
+ Tcl_Interp *interp, /* Interpreter to which error information
* pertains. */
- char *message; /* Message to record. */
+ char *message /* Message to record. */
+)
{
register Interp *iPtr = (Interp *) interp;
*----------------------------------------------------------------------
*/
-int
-Tcl_GlobalEval(interp, command)
- Tcl_Interp *interp; /* Interpreter in which to evaluate command. */
- char *command; /* Command to evaluate. */
+int
+Tcl_GlobalEval (
+ Tcl_Interp *interp, /* Interpreter in which to evaluate command. */
+ char *command /* Command to evaluate. */
+)
{
register Interp *iPtr = (Interp *) interp;
int result;
*
*----------------------------------------------------------------------
*/
-static void
-dump_memory_info(outFile)
- FILE *outFile;
+static void
+dump_memory_info (FILE *outFile)
{
fprintf(outFile,"total mallocs %10d\n",
total_mallocs);
*
*----------------------------------------------------------------------
*/
-static void
-ValidateMemory (memHeaderP, file, line, nukeGuards)
- struct mem_header *memHeaderP;
- char *file;
- int line;
- int nukeGuards;
+static void
+ValidateMemory (struct mem_header *memHeaderP, char *file, int line, int nukeGuards)
{
unsigned char *hiPtr;
int idx;
*
*----------------------------------------------------------------------
*/
-void
-Tcl_ValidateAllMemory (file, line)
- char *file;
- int line;
+void
+Tcl_ValidateAllMemory (char *file, int line)
{
struct mem_header *memScanP;
* will have the file error number left in it.
*----------------------------------------------------------------------
*/
-int
-Tcl_DumpActiveMemory (fileName)
- char *fileName;
+int
+Tcl_DumpActiveMemory (char *fileName)
{
FILE *fileP;
struct mem_header *memScanP;
*----------------------------------------------------------------------
*/
char *
-Tcl_DbCkalloc(size, file, line)
- unsigned int size;
- char *file;
- int line;
+Tcl_DbCkalloc (unsigned int size, char *file, int line)
{
struct mem_header *result;
*----------------------------------------------------------------------
*/
-int
-Tcl_DbCkfree(ptr, file, line)
- char * ptr;
- char *file;
- int line;
+int
+Tcl_DbCkfree (char *ptr, char *file, int line)
{
struct mem_header *memp = 0; /* Must be zero for size calc */
*----------------------------------------------------------------------
*/
/* ARGSUSED */
-static int
-MemoryCmd (clientData, interp, argc, argv)
- char *clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+static int
+MemoryCmd (char *clientData, Tcl_Interp *interp, int argc, char **argv)
{
char *fileName;
*
*----------------------------------------------------------------------
*/
-void
-Tcl_InitMemory(interp)
- Tcl_Interp *interp;
+void
+Tcl_InitMemory (Tcl_Interp *interp)
{
Tcl_CreateCommand (interp, "memory", MemoryCmd, (ClientData)NULL,
(void (*)())NULL);
*----------------------------------------------------------------------
*/
VOID *
-Tcl_Ckalloc (size)
- unsigned int size;
+Tcl_Ckalloc (unsigned int size)
{
char *result;
*
*----------------------------------------------------------------------
*/
-void
-Tcl_Ckfree (ptr)
- VOID *ptr;
+void
+Tcl_Ckfree (VOID *ptr)
{
free (ptr);
}
*----------------------------------------------------------------------
*/
/* ARGSUSED */
-void
-Tcl_InitMemory(interp)
- Tcl_Interp *interp;
+void
+Tcl_InitMemory (Tcl_Interp *interp)
{
}
*/
/* ARGSUSED */
-int
-Tcl_BreakCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_BreakCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
if (argc != 1) {
Tcl_AppendResult(interp, "wrong # args: should be \"",
*/
/* ARGSUSED */
-int
-Tcl_CaseCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_CaseCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int i, result;
int body;
*/
/* ARGSUSED */
-int
-Tcl_CatchCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_CatchCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int result;
*/
/* ARGSUSED */
-int
-Tcl_ConcatCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ConcatCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
if (argc == 1) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
*/
/* ARGSUSED */
-int
-Tcl_ContinueCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ContinueCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
if (argc != 1) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
*/
/* ARGSUSED */
-int
-Tcl_ErrorCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ErrorCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Interp *iPtr = (Interp *) interp;
*/
/* ARGSUSED */
-int
-Tcl_EvalCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_EvalCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int result;
char *cmd;
*/
/* ARGSUSED */
-int
-Tcl_ExprCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ExprCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
if (argc != 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
*/
/* ARGSUSED */
-int
-Tcl_ForCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ForCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int result, value;
*/
/* ARGSUSED */
-int
-Tcl_ForeachCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ForeachCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int listArgc, i, result;
char **listArgv;
*/
/* ARGSUSED */
-int
-Tcl_FormatCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_FormatCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register char *format; /* Used to read characters from the format
* string. */
*/
/* ARGSUSED */
-int
-Tcl_IfCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_IfCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *condition, *ifPart, *elsePart, *cmd, *name;
char *clause;
*/
/* ARGSUSED */
-int
-Tcl_IncrCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_IncrCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int value;
char *oldString, *result;
*/
/* ARGSUSED */
-int
-Tcl_InfoCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_InfoCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Interp *iPtr = (Interp *) interp;
int length;
*/
/* ARGSUSED */
-int
-Tcl_JoinCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_JoinCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *joinString;
char **listArgv;
*/
/* ARGSUSED */
-int
-Tcl_LindexCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_LindexCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *p, *element;
int index, size, parenthesized, result;
*/
/* ARGSUSED */
-int
-Tcl_LinsertCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_LinsertCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *p, *element, savedChar;
int i, index, count, result, size;
*/
/* ARGSUSED */
-int
-Tcl_ListCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ListCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
if (argc < 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
*/
/* ARGSUSED */
-int
-Tcl_LlengthCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_LlengthCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int count, result;
char *element, *p;
*/
/* ARGSUSED */
-int
-Tcl_LrangeCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_LrangeCmd (
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int first, last, result;
char *begin, *end, c, *dummy;
*/
/* ARGSUSED */
-int
-Tcl_LreplaceCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_LreplaceCmd (
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *p1, *p2, *element, savedChar, *dummy;
int i, first, last, count, result, size;
*/
/* ARGSUSED */
-int
-Tcl_LsearchCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_LsearchCmd (
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int listArgc;
char **listArgv;
*/
/* ARGSUSED */
-int
-Tcl_LsortCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_LsortCmd (
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int listArgc;
char **listArgv;
* the proper ordering between two elements.
*/
-static int
-SortCompareProc(first, second)
- CONST VOID *first, *second; /* Elements to be compared. */
+static int
+SortCompareProc (
+ CONST VOID *first,
+ CONST VOID *second /* Elements to be compared. */
+)
{
return strcmp(*((char **) first), *((char **) second));
}
*/
/* ARGSUSED */
-int
-Tcl_RegexpCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_RegexpCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int noCase = 0;
int indices = 0;
*/
/* ARGSUSED */
-int
-Tcl_RegsubCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_RegsubCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int noCase = 0, all = 0;
regexp *regexpPtr;
*/
/* ARGSUSED */
-int
-Tcl_RenameCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_RenameCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Command *cmdPtr;
Interp *iPtr = (Interp *) interp;
*/
/* ARGSUSED */
-int
-Tcl_ReturnCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ReturnCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
if (argc > 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
*/
/* ARGSUSED */
-int
-Tcl_ScanCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ScanCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int arg1Length; /* Number of bytes in argument to be
* scanned. This gives an upper limit
*/
/* ARGSUSED */
-int
-Tcl_SplitCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_SplitCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *splitChars;
register char *p, *p2;
*/
/* ARGSUSED */
-int
-Tcl_StringCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_StringCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int length;
register char *p, c;
*/
/* ARGSUSED */
-int
-Tcl_TraceCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_TraceCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char c;
int length;
/* ARGSUSED */
static char *
-TraceVarProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Information about the variable trace. */
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *name1; /* Name of variable or array. */
- char *name2; /* Name of element within array; NULL means
+TraceVarProc (
+ ClientData clientData, /* Information about the variable trace. */
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *name1, /* Name of variable or array. */
+ char *name2, /* Name of element within array; NULL means
* scalar variable is being referenced. */
- int flags; /* OR-ed bits giving operation and other
+ int flags /* OR-ed bits giving operation and other
* information. */
+)
{
TraceVarInfo *tvarPtr = (TraceVarInfo *) clientData;
char *result;
*/
/* ARGSUSED */
-int
-Tcl_WhileCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_WhileCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int result, value;
*----------------------------------------------------------------------
*/
-void
-TclSetupEnv(interp)
- Tcl_Interp *interp; /* Interpreter whose "env" array is to be
+void
+TclSetupEnv (
+ Tcl_Interp *interp /* Interpreter whose "env" array is to be
* managed. */
+)
{
EnvInterp *eiPtr;
int i;
*----------------------------------------------------------------------
*/
-static int
-FindVariable(name, lengthPtr)
- char *name; /* Name of desired environment variable. */
- int *lengthPtr; /* Used to return length of name (for
+static int
+FindVariable (
+ char *name, /* Name of desired environment variable. */
+ int *lengthPtr /* Used to return length of name (for
* successful searches) or number of non-NULL
* entries in environ (for unsuccessful
* searches). */
+)
{
int i;
register char *p1, *p2;
*----------------------------------------------------------------------
*/
-void
-setenv_tcl(name, value)
- char *name; /* Name of variable whose value is to be
+void
+setenv_tcl (
+ char *name, /* Name of variable whose value is to be
* set. */
- char *value; /* New value for variable. */
+ char *value /* New value for variable. */
+)
{
int index, length, nameLength;
char *p;
*----------------------------------------------------------------------
*/
-void
-unsetenv_tcl(name)
- char *name; /* Name of variable to remove. */
+void
+unsetenv_tcl (
+ char *name /* Name of variable to remove. */
+)
{
int index, dummy;
char **envPtr;
/* ARGSUSED */
static char *
-EnvTraceProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Interpreter whose "env" variable is
+EnvTraceProc (
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Interpreter whose "env" variable is
* being modified. */
- char *name1; /* Better be "env". */
- char *name2; /* Name of variable being modified, or
+ char *name1, /* Better be "env". */
+ char *name2, /* Name of variable being modified, or
* NULL if whole array is being deleted. */
- int flags; /* Indicates what's happening. */
+ int flags /* Indicates what's happening. */
+)
{
/*
* First see if the whole "env" variable is being deleted. If
*----------------------------------------------------------------------
*/
-static void
-EnvInit()
+static void
+EnvInit (void)
{
char **newEnviron;
int i, length;
*--------------------------------------------------------------
*/
-static int
-ExprParseString(interp, string, valuePtr)
- Tcl_Interp *interp; /* Where to store error message. */
- char *string; /* String to turn into value. */
- Value *valuePtr; /* Where to store value information.
+static int
+ExprParseString (
+ Tcl_Interp *interp, /* Where to store error message. */
+ char *string, /* String to turn into value. */
+ Value *valuePtr /* Where to store value information.
* Caller must have initialized pv field. */
+)
{
register char c;
*----------------------------------------------------------------------
*/
-static int
-ExprLex(interp, infoPtr, valuePtr)
- Tcl_Interp *interp; /* Interpreter to use for error
+static int
+ExprLex (
+ Tcl_Interp *interp, /* Interpreter to use for error
* reporting. */
- register ExprInfo *infoPtr; /* Describes the state of the parse. */
- register Value *valuePtr; /* Where to store value, if that is
+ register ExprInfo *infoPtr, /* Describes the state of the parse. */
+ register Value *valuePtr /* Where to store value, if that is
* what's parsed from string. Caller
* must have initialized pv field
* correctly. */
+)
{
register char *p, c;
char *var, *term;
*----------------------------------------------------------------------
*/
-static int
-ExprGetValue(interp, infoPtr, prec, valuePtr)
- Tcl_Interp *interp; /* Interpreter to use for error
+static int
+ExprGetValue (
+ Tcl_Interp *interp, /* Interpreter to use for error
* reporting. */
- register ExprInfo *infoPtr; /* Describes the state of the parse
+ register ExprInfo *infoPtr, /* Describes the state of the parse
* just before the value (i.e. ExprLex
* will be called to get first token
* of value). */
- int prec; /* Treat any un-parenthesized operator
+ int prec, /* Treat any un-parenthesized operator
* with precedence <= this as the end
* of the expression. */
- Value *valuePtr; /* Where to store the value of the
+ Value *valuePtr /* Where to store the value of the
* expression. Caller must have
* initialized pv field. */
+)
{
Interp *iPtr = (Interp *) interp;
Value value2; /* Second operand for current
*--------------------------------------------------------------
*/
-static void
-ExprMakeString(valuePtr)
- register Value *valuePtr; /* Value to be converted. */
+static void
+ExprMakeString (
+ register Value *valuePtr /* Value to be converted. */
+)
{
int shortfall;
*--------------------------------------------------------------
*/
-static int
-ExprTopLevel(interp, string, valuePtr)
- Tcl_Interp *interp; /* Context in which to evaluate the
+static int
+ExprTopLevel (
+ Tcl_Interp *interp, /* Context in which to evaluate the
* expression. */
- char *string; /* Expression to evaluate. */
- Value *valuePtr; /* Where to store result. Should
+ char *string, /* Expression to evaluate. */
+ Value *valuePtr /* Where to store result. Should
* not be initialized by caller. */
+)
{
ExprInfo info;
int result;
*--------------------------------------------------------------
*/
-int
-Tcl_ExprLong(interp, string, ptr)
- Tcl_Interp *interp; /* Context in which to evaluate the
+int
+Tcl_ExprLong (
+ Tcl_Interp *interp, /* Context in which to evaluate the
* expression. */
- char *string; /* Expression to evaluate. */
- long *ptr; /* Where to store result. */
+ char *string, /* Expression to evaluate. */
+ long *ptr /* Where to store result. */
+)
{
Value value;
int result;
return result;
}
-int
-Tcl_ExprDouble(interp, string, ptr)
- Tcl_Interp *interp; /* Context in which to evaluate the
+int
+Tcl_ExprDouble (
+ Tcl_Interp *interp, /* Context in which to evaluate the
* expression. */
- char *string; /* Expression to evaluate. */
- double *ptr; /* Where to store result. */
+ char *string, /* Expression to evaluate. */
+ double *ptr /* Where to store result. */
+)
{
Value value;
int result;
return result;
}
-int
-Tcl_ExprBoolean(interp, string, ptr)
- Tcl_Interp *interp; /* Context in which to evaluate the
+int
+Tcl_ExprBoolean (
+ Tcl_Interp *interp, /* Context in which to evaluate the
* expression. */
- char *string; /* Expression to evaluate. */
- int *ptr; /* Where to store 0/1 result. */
+ char *string, /* Expression to evaluate. */
+ int *ptr /* Where to store 0/1 result. */
+)
{
Value value;
int result;
*--------------------------------------------------------------
*/
-int
-Tcl_ExprString(interp, string)
- Tcl_Interp *interp; /* Context in which to evaluate the
+int
+Tcl_ExprString (
+ Tcl_Interp *interp, /* Context in which to evaluate the
* expression. */
- char *string; /* Expression to evaluate. */
+ char *string /* Expression to evaluate. */
+)
{
Value value;
int result;
*----------------------------------------------------------------------
*/
-int
-Tcl_GetInt(interp, string, intPtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- char *string; /* String containing a (possibly signed)
+int
+Tcl_GetInt (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ char *string, /* String containing a (possibly signed)
* integer in a form acceptable to strtol. */
- int *intPtr; /* Place to store converted result. */
+ int *intPtr /* Place to store converted result. */
+)
{
char *end;
int i;
*----------------------------------------------------------------------
*/
-int
-Tcl_GetDouble(interp, string, doublePtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- char *string; /* String containing a floating-point number
+int
+Tcl_GetDouble (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ char *string, /* String containing a floating-point number
* in a form acceptable to strtod. */
- double *doublePtr; /* Place to store converted result. */
+ double *doublePtr /* Place to store converted result. */
+)
{
char *end;
double d;
*----------------------------------------------------------------------
*/
-int
-Tcl_GetBoolean(interp, string, boolPtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- char *string; /* String containing a boolean number
+int
+Tcl_GetBoolean (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ char *string, /* String containing a boolean number
* specified either as 1/0 or true/false or
* yes/no. */
- int *boolPtr; /* Place to store converted result, which
+ int *boolPtr /* Place to store converted result, which
* will be 0 or 1. */
+)
{
char c;
char lowerCase[10];
*----------------------------------------------------------------------
*/
-static void
-AppendResult(interp, dir, separator, name, nameLength)
- Tcl_Interp *interp; /* Interpreter whose result should be
+static void
+AppendResult (
+ Tcl_Interp *interp, /* Interpreter whose result should be
* appended to. */
- char *dir; /* Name of directory, without trailing
+ char *dir, /* Name of directory, without trailing
* slash except for root directory. */
- char *separator; /* Separator string so use between dir and
+ char *separator, /* Separator string so use between dir and
* name: either "/" or "" depending on dir. */
- char *name; /* Name of file withing directory (NOT
+ char *name, /* Name of file withing directory (NOT
* necessarily null-terminated!). */
- int nameLength; /* Number of characters in name. */
+ int nameLength /* Number of characters in name. */
+)
{
int dirFlags, nameFlags;
char *p, saved;
*----------------------------------------------------------------------
*/
-static int
-DoGlob(interp, dir, rem)
- Tcl_Interp *interp; /* Interpreter to use for error
+static int
+DoGlob (
+ Tcl_Interp *interp, /* Interpreter to use for error
* reporting (e.g. unmatched brace). */
- char *dir; /* Name of a directory at which to
+ char *dir, /* Name of a directory at which to
* start glob expansion. This name
* is fixed: it doesn't contain any
* globbing chars. */
- char *rem; /* Path to glob-expand. */
+ char *rem /* Path to glob-expand. */
+)
{
/*
* When this procedure is entered, the name to be globbed may
*/
char *
-Tcl_TildeSubst(interp, name)
- Tcl_Interp *interp; /* Interpreter in which to store error
+Tcl_TildeSubst (
+ Tcl_Interp *interp, /* Interpreter in which to store error
* message (if necessary). */
- char *name; /* File name, which may begin with "~/"
+ char *name /* File name, which may begin with "~/"
* (to indicate current user's home directory)
* or "~<user>/" (to indicate any user's
* home directory). */
+)
{
#define STATIC_BUF_SIZE 50
static char staticBuf[STATIC_BUF_SIZE];
*/
/* ARGSUSED */
-int
-Tcl_GlobCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_GlobCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int i, result, noComplain;
#include "tclint.h"
-/*
- * Imported library procedures for which there are no header files:
- */
-
-extern void panic();
-
/*
* When there are this many entries per bucket, on average, rebuild
* the hash table to make it larger.
*----------------------------------------------------------------------
*/
-void
-Tcl_InitHashTable(tablePtr, keyType)
- register Tcl_HashTable *tablePtr; /* Pointer to table record, which
+void
+Tcl_InitHashTable (
+ register Tcl_HashTable *tablePtr, /* Pointer to table record, which
* is supplied by the caller. */
- int keyType; /* Type of keys to use in table:
+ int keyType /* Type of keys to use in table:
* TCL_STRING_KEYS, TCL_ONE_WORD_KEYS,
* or an integer >= 2. */
+)
{
tablePtr->buckets = tablePtr->staticBuckets;
tablePtr->staticBuckets[0] = tablePtr->staticBuckets[1] = 0;
*----------------------------------------------------------------------
*/
-void
-Tcl_DeleteHashEntry(entryPtr)
- Tcl_HashEntry *entryPtr;
+void
+Tcl_DeleteHashEntry (Tcl_HashEntry *entryPtr)
{
register Tcl_HashEntry *prevPtr;
*----------------------------------------------------------------------
*/
-void
-Tcl_DeleteHashTable(tablePtr)
- register Tcl_HashTable *tablePtr; /* Table to delete. */
+void
+Tcl_DeleteHashTable (
+ register Tcl_HashTable *tablePtr /* Table to delete. */
+)
{
register Tcl_HashEntry *hPtr, *nextPtr;
int i;
*/
Tcl_HashEntry *
-Tcl_FirstHashEntry(tablePtr, searchPtr)
- Tcl_HashTable *tablePtr; /* Table to search. */
- Tcl_HashSearch *searchPtr; /* Place to store information about
+Tcl_FirstHashEntry (
+ Tcl_HashTable *tablePtr, /* Table to search. */
+ Tcl_HashSearch *searchPtr /* Place to store information about
* progress through the table. */
+)
{
searchPtr->tablePtr = tablePtr;
searchPtr->nextIndex = 0;
*/
Tcl_HashEntry *
-Tcl_NextHashEntry(searchPtr)
- register Tcl_HashSearch *searchPtr; /* Place to store information about
+Tcl_NextHashEntry (
+ register Tcl_HashSearch *searchPtr /* Place to store information about
* progress through the table. Must
* have been initialized by calling
* Tcl_FirstHashEntry. */
+)
{
Tcl_HashEntry *hPtr;
*/
char *
-Tcl_HashStats(tablePtr)
- Tcl_HashTable *tablePtr; /* Table for which to produce stats. */
+Tcl_HashStats (
+ Tcl_HashTable *tablePtr /* Table for which to produce stats. */
+)
{
#define NUM_COUNTERS 10
int count[NUM_COUNTERS], overflow, i, j;
*----------------------------------------------------------------------
*/
-static int
-HashString(string)
- register char *string; /* String from which to compute hash value. */
+static int
+HashString (
+ register char *string /* String from which to compute hash value. */
+)
{
register int result, c;
*/
static Tcl_HashEntry *
-StringFind(tablePtr, key)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- char *key; /* Key to use to find matching entry. */
+StringFind (
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ char *key /* Key to use to find matching entry. */
+)
{
register Tcl_HashEntry *hPtr;
register char *p1, *p2;
*/
static Tcl_HashEntry *
-StringCreate(tablePtr, key, newPtr)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- char *key; /* Key to use to find or create matching
+StringCreate (
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ char *key, /* Key to use to find or create matching
* entry. */
- int *newPtr; /* Store info here telling whether a new
+ int *newPtr /* Store info here telling whether a new
* entry was created. */
+)
{
register Tcl_HashEntry *hPtr;
register char *p1, *p2;
*/
static Tcl_HashEntry *
-OneWordFind(tablePtr, key)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- register char *key; /* Key to use to find matching entry. */
+OneWordFind (
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ register char *key /* Key to use to find matching entry. */
+)
{
register Tcl_HashEntry *hPtr;
int index;
*/
static Tcl_HashEntry *
-OneWordCreate(tablePtr, key, newPtr)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- register char *key; /* Key to use to find or create matching
+OneWordCreate (
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ register char *key, /* Key to use to find or create matching
* entry. */
- int *newPtr; /* Store info here telling whether a new
+ int *newPtr /* Store info here telling whether a new
* entry was created. */
+)
{
register Tcl_HashEntry *hPtr;
int index;
*/
static Tcl_HashEntry *
-ArrayFind(tablePtr, key)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- char *key; /* Key to use to find matching entry. */
+ArrayFind (
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ char *key /* Key to use to find matching entry. */
+)
{
register Tcl_HashEntry *hPtr;
int *arrayPtr = (int *) key;
*/
static Tcl_HashEntry *
-ArrayCreate(tablePtr, key, newPtr)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- register char *key; /* Key to use to find or create matching
+ArrayCreate (
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ register char *key, /* Key to use to find or create matching
* entry. */
- int *newPtr; /* Store info here telling whether a new
+ int *newPtr /* Store info here telling whether a new
* entry was created. */
+)
{
register Tcl_HashEntry *hPtr;
int *arrayPtr = (int *) key;
/* ARGSUSED */
static Tcl_HashEntry *
-BogusFind(tablePtr, key)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- char *key; /* Key to use to find matching entry. */
+BogusFind (
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ char *key /* Key to use to find matching entry. */
+)
{
panic("called Tcl_FindHashEntry on deleted table");
return NULL;
/* ARGSUSED */
static Tcl_HashEntry *
-BogusCreate(tablePtr, key, newPtr)
- Tcl_HashTable *tablePtr; /* Table in which to lookup entry. */
- char *key; /* Key to use to find or create matching
+BogusCreate (
+ Tcl_HashTable *tablePtr, /* Table in which to lookup entry. */
+ char *key, /* Key to use to find or create matching
* entry. */
- int *newPtr; /* Store info here telling whether a new
+ int *newPtr /* Store info here telling whether a new
* entry was created. */
+)
{
panic("called Tcl_CreateHashEntry on deleted table");
return NULL;
*----------------------------------------------------------------------
*/
-static void
-RebuildTable(tablePtr)
- register Tcl_HashTable *tablePtr; /* Table to enlarge. */
+static void
+RebuildTable (
+ register Tcl_HashTable *tablePtr /* Table to enlarge. */
+)
{
int oldSize, count, index;
Tcl_HashEntry **oldBuckets;
*----------------------------------------------------------------------
*/
-void
-Tcl_InitHistory(interp)
- Tcl_Interp *interp; /* Interpreter to initialize. */
+void
+Tcl_InitHistory (
+ Tcl_Interp *interp /* Interpreter to initialize. */
+)
{
register Interp *iPtr = (Interp *) interp;
int i;
iPtr->curEvent = 0;
iPtr->curEventNum = 0;
Tcl_CreateCommand((Tcl_Interp *) iPtr, "history", Tcl_HistoryCmd,
- (ClientData) NULL, (void (*)()) NULL);
+ (ClientData) NULL, (void (*)(int *)) NULL);
}
\f
/*
*----------------------------------------------------------------------
*/
-int
-Tcl_RecordAndEval(interp, cmd, flags)
- Tcl_Interp *interp; /* Token for interpreter in which command
+int
+Tcl_RecordAndEval (
+ Tcl_Interp *interp, /* Token for interpreter in which command
* will be executed. */
- char *cmd; /* Command to record. */
- int flags; /* Additional flags to pass to Tcl_Eval.
+ char *cmd, /* Command to record. */
+ int flags /* Additional flags to pass to Tcl_Eval.
* TCL_NO_EVAL means only record: don't
* execute command. */
+)
{
register Interp *iPtr = (Interp *) interp;
register HistoryEvent *eventPtr;
/* ARGSUSED */
int
-Tcl_HistoryCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+Tcl_HistoryCmd(
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Interp *iPtr = (Interp *) interp;
register HistoryEvent *eventPtr;
*----------------------------------------------------------------------
*/
-static void
-MakeSpace(hPtr, size)
- HistoryEvent *hPtr;
- int size; /* # of bytes needed in hPtr. */
+static void
+MakeSpace (
+ HistoryEvent *hPtr,
+ int size /* # of bytes needed in hPtr. */
+)
{
if (hPtr->bytesAvl < size) {
ckfree(hPtr->command);
*----------------------------------------------------------------------
*/
-static void
-InsertRev(iPtr, revPtr)
- Interp *iPtr; /* Interpreter to use. */
- register HistoryRev *revPtr; /* Revision to add to iPtr's list. */
+static void
+InsertRev (
+ Interp *iPtr, /* Interpreter to use. */
+ register HistoryRev *revPtr /* Revision to add to iPtr's list. */
+)
{
register HistoryRev *curPtr;
register HistoryRev *prevPtr;
*----------------------------------------------------------------------
*/
-static void
-RevCommand(iPtr, string)
- register Interp *iPtr; /* Interpreter in which to perform the
+static void
+RevCommand (
+ register Interp *iPtr, /* Interpreter in which to perform the
* substitution. */
- char *string; /* String to substitute. */
+ char *string /* String to substitute. */
+)
{
register HistoryRev *revPtr;
*----------------------------------------------------------------------
*/
-static void
-RevResult(iPtr, string)
- register Interp *iPtr; /* Interpreter in which to perform the
+static void
+RevResult (
+ register Interp *iPtr, /* Interpreter in which to perform the
* substitution. */
- char *string; /* String to substitute. */
+ char *string /* String to substitute. */
+)
{
register HistoryRev *revPtr;
char *evalFirst, *evalLast;
*----------------------------------------------------------------------
*/
-static void
-DoRevs(iPtr)
- register Interp *iPtr; /* Interpreter whose history is to
+static void
+DoRevs (
+ register Interp *iPtr /* Interpreter whose history is to
* be modified. */
+)
{
register HistoryRev *revPtr;
register HistoryEvent *eventPtr;
*/
static HistoryEvent *
-GetEvent(iPtr, string)
- register Interp *iPtr; /* Interpreter in which to look. */
- char *string; /* Description of event. */
+GetEvent (
+ register Interp *iPtr, /* Interpreter in which to look. */
+ char *string /* Description of event. */
+)
{
int eventNum, index;
register HistoryEvent *eventPtr;
*----------------------------------------------------------------------
*/
-static int
-SubsAndEval(iPtr, cmd, old, new)
- register Interp *iPtr; /* Interpreter in which to execute
+static int
+SubsAndEval (
+ register Interp *iPtr, /* Interpreter in which to execute
* new command. */
- char *cmd; /* Command in which to substitute. */
- char *old; /* String to search for in command. */
- char *new; /* Replacement string for "old". */
+ char *cmd, /* Command in which to substitute. */
+ char *old, /* String to search for in command. */
+ char *new /* Replacement string for "old". */
+)
{
char *src, *dst, *newCmd;
int count, oldLength, newLength, length, result;
*/
static char *
-GetWords(iPtr, command, words)
- register Interp *iPtr; /* Tcl interpreter in which to place
+GetWords (
+ register Interp *iPtr, /* Tcl interpreter in which to place
* an error message if needed. */
- char *command; /* Command string. */
- char *words; /* Description of which words to extract
+ char *command, /* Command string. */
+ char *words /* Description of which words to extract
* from the command. Either num[-num] or
* a pattern. */
+)
{
char *result;
char *start, *end, *dst;
* up being too many conflicts with slightly-different prototypes.
*/
-extern double strtod();
+extern double strtod(const char *, char **);
/*
*----------------------------------------------------------------
*----------------------------------------------------------------
*/
-extern void panic();
+extern void panic(char *format, ...);
extern regexp * TclCompileRegexp _ANSI_ARGS_((Tcl_Interp *interp,
char *string));
extern void TclCopyAndCollapse _ANSI_ARGS_((int count, char *src,
*----------------------------------------------------------------------
*/
-char
-Tcl_Backslash(src, readPtr)
- char *src; /* Points to the backslash character of
+char
+Tcl_Backslash (
+ char *src, /* Points to the backslash character of
* a backslash sequence. */
- int *readPtr; /* Fill in with number of characters read
+ int *readPtr /* Fill in with number of characters read
* from src, unless NULL. */
+)
{
register char *p = src+1;
char result;
*--------------------------------------------------------------
*/
-int
-TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr)
- Tcl_Interp *interp; /* Interpreter to use for nested command
+int
+TclParseQuotes (
+ Tcl_Interp *interp, /* Interpreter to use for nested command
* evaluations and error messages. */
- char *string; /* Character just after opening double-
+ char *string, /* Character just after opening double-
* quote. */
- int termChar; /* Character that terminates "quoted" string
+ int termChar, /* Character that terminates "quoted" string
* (usually double-quote, but sometimes
* right-paren or something else). */
- int flags; /* Flags to pass to nested Tcl_Eval calls. */
- char **termPtr; /* Store address of terminating character
+ int flags, /* Flags to pass to nested Tcl_Eval calls. */
+ char **termPtr, /* Store address of terminating character
* here. */
- ParseValue *pvPtr; /* Information about where to place
+ ParseValue *pvPtr /* Information about where to place
* fully-substituted result of parse. */
+)
{
register char *src, *dst, c;
*--------------------------------------------------------------
*/
-int
-TclParseNestedCmd(interp, string, flags, termPtr, pvPtr)
- Tcl_Interp *interp; /* Interpreter to use for nested command
+int
+TclParseNestedCmd (
+ Tcl_Interp *interp, /* Interpreter to use for nested command
* evaluations and error messages. */
- char *string; /* Character just after opening bracket. */
- int flags; /* Flags to pass to nested Tcl_Eval. */
- char **termPtr; /* Store address of terminating character
+ char *string, /* Character just after opening bracket. */
+ int flags, /* Flags to pass to nested Tcl_Eval. */
+ char **termPtr, /* Store address of terminating character
* here. */
- register ParseValue *pvPtr; /* Information about where to place
+ register ParseValue *pvPtr /* Information about where to place
* result of command. */
+)
{
int result, length, shortfall;
Interp *iPtr = (Interp *) interp;
*--------------------------------------------------------------
*/
-int
-TclParseBraces(interp, string, termPtr, pvPtr)
- Tcl_Interp *interp; /* Interpreter to use for nested command
+int
+TclParseBraces (
+ Tcl_Interp *interp, /* Interpreter to use for nested command
* evaluations and error messages. */
- char *string; /* Character just after opening bracket. */
- char **termPtr; /* Store address of terminating character
+ char *string, /* Character just after opening bracket. */
+ char **termPtr, /* Store address of terminating character
* here. */
- register ParseValue *pvPtr; /* Information about where to place
+ register ParseValue *pvPtr /* Information about where to place
* result of command. */
+)
{
int level;
register char *src, *dst, *end;
*--------------------------------------------------------------
*/
-int
-TclParseWords(interp, string, flags, maxWords, termPtr, argcPtr, argv, pvPtr)
- Tcl_Interp *interp; /* Interpreter to use for nested command
+int
+TclParseWords (
+ Tcl_Interp *interp, /* Interpreter to use for nested command
* evaluations and error messages. */
- char *string; /* First character of word. */
- int flags; /* Flags to control parsing (same values as
+ char *string, /* First character of word. */
+ int flags, /* Flags to control parsing (same values as
* passed to Tcl_Eval). */
- int maxWords; /* Maximum number of words to parse. */
- char **termPtr; /* Store address of terminating character
+ int maxWords, /* Maximum number of words to parse. */
+ char **termPtr, /* Store address of terminating character
* here. */
- int *argcPtr; /* Filled in with actual number of words
+ int *argcPtr, /* Filled in with actual number of words
* parsed. */
- char **argv; /* Store addresses of individual words here. */
- register ParseValue *pvPtr; /* Information about where to place
+ char **argv, /* Store addresses of individual words here. */
+ register ParseValue *pvPtr /* Information about where to place
* fully-substituted word. */
+)
{
register char *src, *dst;
register char c;
*--------------------------------------------------------------
*/
-void
-TclExpandParseValue(pvPtr, needed)
- register ParseValue *pvPtr; /* Information about buffer that
+void
+TclExpandParseValue (
+ register ParseValue *pvPtr, /* Information about buffer that
* must be expanded. If the clientData
* in the structure is non-zero, it
* means that the current buffer is
* dynamically allocated. */
- int needed; /* Minimum amount of additional space
+ int needed /* Minimum amount of additional space
* to allocate. */
+)
{
int newSpace;
char *new;
*/
char *
-TclWordEnd(start, nested)
- char *start; /* Beginning of a word of a Tcl command. */
- int nested; /* Zero means this is a top-level command.
+TclWordEnd (
+ char *start, /* Beginning of a word of a Tcl command. */
+ int nested /* Zero means this is a top-level command.
* One means this is a nested command (close
* brace is a word terminator). */
+)
{
register char *p;
int count;
*/
static char *
-QuoteEnd(string, term)
- char *string; /* Pointer to character just after opening
+QuoteEnd (
+ char *string, /* Pointer to character just after opening
* "quote". */
- int term; /* This character will terminate the
+ int term /* This character will terminate the
* quoted string (e.g. '"' or ')'). */
+)
{
register char *p = string;
int count;
*/
static char *
-VarNameEnd(string)
- char *string; /* Pointer to dollar-sign character. */
+VarNameEnd (
+ char *string /* Pointer to dollar-sign character. */
+)
{
register char *p = string+1;
*/
char *
-Tcl_ParseVar(interp, string, termPtr)
- Tcl_Interp *interp; /* Context for looking up variable. */
- register char *string; /* String containing variable name.
+Tcl_ParseVar (
+ Tcl_Interp *interp, /* Context for looking up variable. */
+ register char *string, /* String containing variable name.
* First character must be "$". */
- char **termPtr; /* If non-NULL, points to word to fill
+ char **termPtr /* If non-NULL, points to word to fill
* in with character just after last
* one in the variable specifier. */
+)
{
char *name1, *name1End, c, *result;
*/
/* ARGSUSED */
-int
-Tcl_ProcCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ProcCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Interp *iPtr = (Interp *) interp;
register Proc *procPtr;
*----------------------------------------------------------------------
*/
-int
-TclGetFrame(interp, string, framePtrPtr)
- Tcl_Interp *interp; /* Interpreter in which to find frame. */
- char *string; /* String describing frame. */
- CallFrame **framePtrPtr; /* Store pointer to frame here (or NULL
+int
+TclGetFrame (
+ Tcl_Interp *interp, /* Interpreter in which to find frame. */
+ char *string, /* String describing frame. */
+ CallFrame **framePtrPtr /* Store pointer to frame here (or NULL
* if global frame indicated). */
+)
{
register Interp *iPtr = (Interp *) interp;
int level, result;
*/
/* ARGSUSED */
-int
-Tcl_UplevelCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_UplevelCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Interp *iPtr = (Interp *) interp;
int result;
*/
Proc *
-TclFindProc(iPtr, procName)
- Interp *iPtr; /* Interpreter in which to look. */
- char *procName; /* Name of desired procedure. */
+TclFindProc (
+ Interp *iPtr, /* Interpreter in which to look. */
+ char *procName /* Name of desired procedure. */
+)
{
Tcl_HashEntry *hPtr;
Command *cmdPtr;
*/
Proc *
-TclIsProc(cmdPtr)
- Command *cmdPtr; /* Command to test. */
+TclIsProc (
+ Command *cmdPtr /* Command to test. */
+)
{
if (cmdPtr->proc == InterpProc) {
return (Proc *) cmdPtr->clientData;
*----------------------------------------------------------------------
*/
-static int
-InterpProc(clientData, interp, argc, argv)
- ClientData clientData; /* Record describing procedure to be
+static int
+InterpProc (
+ ClientData clientData, /* Record describing procedure to be
* interpreted. */
- Tcl_Interp *interp; /* Interpreter in which procedure was
+ Tcl_Interp *interp, /* Interpreter in which procedure was
* invoked. */
- int argc; /* Count of number of arguments to this
+ int argc, /* Count of number of arguments to this
* procedure. */
- char **argv; /* Argument values. */
+ char **argv /* Argument values. */
+)
{
register Proc *procPtr = (Proc *) clientData;
register Arg *argPtr;
*----------------------------------------------------------------------
*/
-static void
-ProcDeleteProc(clientData)
- ClientData clientData; /* Procedure to be deleted. */
+static void
+ProcDeleteProc (
+ ClientData clientData /* Procedure to be deleted. */
+)
{
register Proc *procPtr = (Proc *) clientData;
register Arg *argPtr;
return TCL_OK;
}
-int
-main()
+int
+main (void)
{
char line[1000], *cmd;
int result, gotPartial;
*/
/* ARGSUSED */
-int
-Tcl_CdCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_CdCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *dirName;
*/
/* ARGSUSED */
-int
-Tcl_CloseCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_CloseCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
OpenFile *filePtr;
int result = TCL_OK;
*/
/* ARGSUSED */
-int
-Tcl_EofCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_EofCmd (
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
OpenFile *filePtr;
*/
/* ARGSUSED */
-int
-Tcl_ExecCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ExecCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int outputId; /* File id for output pipe. -1
* means command overrode. */
*/
/* ARGSUSED */
-int
-Tcl_ExitCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ExitCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int value;
*/
/* ARGSUSED */
-int
-Tcl_FileCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_FileCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char *p;
int length, statOp;
*/
static int
-StoreStatData(interp, varName, statPtr)
- Tcl_Interp *interp; /* Interpreter for error reports. */
- char *varName; /* Name of associative array variable
+StoreStatData(
+ Tcl_Interp *interp, /* Interpreter for error reports. */
+ char *varName, /* Name of associative array variable
* in which to store stat results. */
- struct stat *statPtr; /* Pointer to buffer containing
+ struct stat *statPtr /* Pointer to buffer containing
* stat data to store in varName. */
+)
{
char string[30];
*/
static char *
-GetFileType(mode)
- int mode;
+GetFileType (int mode)
{
if (S_ISREG(mode)) {
return "file";
*/
/* ARGSUSED */
-int
-Tcl_FlushCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_FlushCmd (
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
OpenFile *filePtr;
FILE *f;
*/
/* ARGSUSED */
-int
-Tcl_GetsCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_GetsCmd (
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
# define BUF_SIZE 200
char buffer[BUF_SIZE+1];
*/
/* ARGSUSED */
-int
-Tcl_OpenCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_OpenCmd (
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Interp *iPtr = (Interp *) interp;
int pipeline, fd;
*/
/* ARGSUSED */
-int
-Tcl_PwdCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_PwdCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
char buffer[MAXPATHLEN+1];
*/
/* ARGSUSED */
-int
-Tcl_PutsCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_PutsCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
OpenFile *filePtr;
FILE *f;
*/
/* ARGSUSED */
-int
-Tcl_ReadCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ReadCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
OpenFile *filePtr;
int bytesLeft, bytesRead, count;
*/
/* ARGSUSED */
-int
-Tcl_SeekCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_SeekCmd (
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
OpenFile *filePtr;
int offset, mode;
*/
/* ARGSUSED */
-int
-Tcl_SourceCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_SourceCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
if (argc != 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
*/
/* ARGSUSED */
-int
-Tcl_TellCmd(notUsed, interp, argc, argv)
- ClientData notUsed; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_TellCmd (
+ ClientData notUsed, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
OpenFile *filePtr;
*/
/* ARGSUSED */
-int
-Tcl_TimeCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_TimeCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int count, i, result;
double timePer;
*----------------------------------------------------------------------
*/
-static int
-CleanupChildren(interp, numPids, pidPtr, errorId)
- Tcl_Interp *interp; /* Used for error messages. */
- int numPids; /* Number of entries in pidPtr array. */
- int *pidPtr; /* Array of process ids of children. */
- int errorId; /* File descriptor index for file containing
+static int
+CleanupChildren (
+ Tcl_Interp *interp, /* Used for error messages. */
+ int numPids, /* Number of entries in pidPtr array. */
+ int *pidPtr, /* Array of process ids of children. */
+ int errorId /* File descriptor index for file containing
* stderr output from pipeline. -1 means
* there isn't any stderr output. */
+)
{
int result = TCL_OK;
int i, pid, length;
*/
char *
-Tcl_ErrnoId()
+Tcl_ErrnoId (void)
{
switch (errno) {
#ifdef E2BIG
*/
char *
-Tcl_SignalId(sig)
- int sig; /* Number of signal. */
+Tcl_SignalId (
+ int sig /* Number of signal. */
+)
{
switch (sig) {
#ifdef SIGABRT
*/
char *
-Tcl_SignalMsg(sig)
- int sig; /* Number of signal. */
+Tcl_SignalMsg (
+ int sig /* Number of signal. */
+)
{
switch (sig) {
#ifdef SIGABRT
*----------------------------------------------------------------------
*/
-int
-Tcl_EvalFile(interp, fileName)
- Tcl_Interp *interp; /* Interpreter in which to process file. */
- char *fileName; /* Name of file to process. Tilde-substitution
+int
+Tcl_EvalFile (
+ Tcl_Interp *interp, /* Interpreter in which to process file. */
+ char *fileName /* Name of file to process. Tilde-substitution
* will be performed on this name. */
+)
{
int fileId, result;
struct stat statBuf;
*/
int
-Tcl_WaitPids(numPids, pidPtr, statusPtr)
- int numPids; /* Number of pids to wait on: gives size
+Tcl_WaitPids(
+ int numPids, /* Number of pids to wait on: gives size
* of array pointed to by pidPtr. */
- int *pidPtr; /* Pids to wait on: return when one of
+ int *pidPtr, /* Pids to wait on: return when one of
* these processes exits or suspends. */
- int *statusPtr; /* Wait status is returned here. */
+ int *statusPtr /* Wait status is returned here. */
+)
{
int i, count, pid;
register WaitInfo *waitPtr;
*/
void
-Tcl_DetachPids(numPids, pidPtr)
- int numPids; /* Number of pids to detach: gives size
+Tcl_DetachPids(
+ int numPids, /* Number of pids to detach: gives size
* of array pointed to by pidPtr. */
- int *pidPtr; /* Array of pids to detach: must have
+ int *pidPtr /* Array of pids to detach: must have
* been created by Tcl_Fork. */
+)
{
register WaitInfo *waitPtr;
int i, count, pid;
*/
int
-Tcl_CreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr,
- outPipePtr, errFilePtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- int argc; /* Number of entries in argv. */
- char **argv; /* Array of strings describing commands in
+Tcl_CreatePipeline(
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ int argc, /* Number of entries in argv. */
+ char **argv, /* Array of strings describing commands in
* pipeline plus I/O redirection with <,
* <<, and >. Argv[argc] must be NULL. */
- int **pidArrayPtr; /* Word at *pidArrayPtr gets filled in with
+ int **pidArrayPtr, /* Word at *pidArrayPtr gets filled in with
* address of array of pids for processes
* in pipeline (first pid is first process
* in pipeline). */
- int *inPipePtr; /* If non-NULL, input to the pipeline comes
+ int *inPipePtr, /* If non-NULL, input to the pipeline comes
* from a pipe (unless overridden by
* redirection in the command). The file
* id with which to write to this pipe is
* stored at *inPipePtr. -1 means command
* specified its own input source. */
- int *outPipePtr; /* If non-NULL, output to the pipeline goes
+ int *outPipePtr, /* If non-NULL, output to the pipeline goes
* to a pipe, unless overriden by redirection
* in the command. The file id with which to
* read frome this pipe is stored at
* *outPipePtr. -1 means command specified
* its own output sink. */
- int *errFilePtr; /* If non-NULL, all stderr output from the
+ int *errFilePtr /* If non-NULL, all stderr output from the
* pipeline will go to a temporary file
* created here, and a descriptor to read
* the file will be left at *errFilePtr.
* closing this descriptor will be the end
* of the file. If this is NULL, then
* all stderr output goes to our stderr. */
+)
{
int *pidPtr = NULL; /* Points to malloc-ed array holding all
* the pids of child processes. */
*/
char *
-Tcl_UnixError(interp)
- Tcl_Interp *interp; /* Interpreter whose $errorCode variable
+Tcl_UnixError(
+ Tcl_Interp *interp /* Interpreter whose $errorCode variable
* is to be changed. */
+)
{
char *id, *msg;
*/
void
-TclMakeFileTable(iPtr, index)
- Interp *iPtr; /* Interpreter whose table of files is
+TclMakeFileTable(
+ Interp *iPtr, /* Interpreter whose table of files is
* to be manipulated. */
- int index; /* Make sure table is large enough to
+ int index /* Make sure table is large enough to
* hold at least this index. */
+)
{
/*
* If the table doesn't even exist, then create it and initialize
*/
int
-TclGetOpenFile(interp, string, filePtrPtr)
- Tcl_Interp *interp; /* Interpreter in which to find file. */
- char *string; /* String that identifies file. */
- OpenFile **filePtrPtr; /* Address of word in which to store pointer
+TclGetOpenFile(
+ Tcl_Interp *interp, /* Interpreter in which to find file. */
+ char *string, /* String that identifies file. */
+ OpenFile **filePtrPtr /* Address of word in which to store pointer
* to structure about open file. */
+)
{
int fd = 0; /* Initial value needed only to stop compiler
* warnings. */
*----------------------------------------------------------------------
*/
-int
-TclFindElement(interp, list, elementPtr, nextPtr, sizePtr, bracePtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- register char *list; /* String containing Tcl list with zero
+int
+TclFindElement (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ register char *list, /* String containing Tcl list with zero
* or more elements (possibly in braces). */
- char **elementPtr; /* Fill in with location of first significant
+ char **elementPtr, /* Fill in with location of first significant
* character in first element of list. */
- char **nextPtr; /* Fill in with location of character just
+ char **nextPtr, /* Fill in with location of character just
* after all white space following end of
* argument (i.e. next argument or end of
* list). */
- int *sizePtr; /* If non-zero, fill in with size of
+ int *sizePtr, /* If non-zero, fill in with size of
* element. */
- int *bracePtr; /* If non-zero fill in with non-zero/zero
+ int *bracePtr /* If non-zero fill in with non-zero/zero
* to indicate that arg was/wasn't
* in braces. */
+)
{
register char *p;
int openBraces = 0;
*----------------------------------------------------------------------
*/
-void
-TclCopyAndCollapse(count, src, dst)
- int count; /* Total number of characters to copy
+void
+TclCopyAndCollapse (
+ int count, /* Total number of characters to copy
* from src. */
- register char *src; /* Copy from here... */
- register char *dst; /* ... to here. */
+ register char *src, /* Copy from here... */
+ register char *dst /* ... to here. */
+)
{
register char c;
int numRead;
*----------------------------------------------------------------------
*/
-int
-Tcl_SplitList(interp, list, argcPtr, argvPtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- char *list; /* Pointer to string with list structure. */
- int *argcPtr; /* Pointer to location to fill in with
+int
+Tcl_SplitList (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ char *list, /* Pointer to string with list structure. */
+ int *argcPtr, /* Pointer to location to fill in with
* the number of elements in the list. */
- char ***argvPtr; /* Pointer to place to store pointer to array
+ char ***argvPtr /* Pointer to place to store pointer to array
* of pointers to list elements. */
+)
{
char **argv;
register char *p;
*----------------------------------------------------------------------
*/
-int
-Tcl_ScanElement(string, flagPtr)
- char *string; /* String to convert to Tcl list element. */
- int *flagPtr; /* Where to store information to guide
+int
+Tcl_ScanElement (
+ char *string, /* String to convert to Tcl list element. */
+ int *flagPtr /* Where to store information to guide
* Tcl_ConvertElement. */
+)
{
int flags, nestingLevel;
register char *p;
*----------------------------------------------------------------------
*/
-int
-Tcl_ConvertElement(src, dst, flags)
- register char *src; /* Source information for list element. */
- char *dst; /* Place to put list-ified element. */
- int flags; /* Flags produced by Tcl_ScanElement. */
+int
+Tcl_ConvertElement (
+ register char *src, /* Source information for list element. */
+ char *dst, /* Place to put list-ified element. */
+ int flags /* Flags produced by Tcl_ScanElement. */
+)
{
register char *p = dst;
*/
char *
-Tcl_Merge(argc, argv)
- int argc; /* How many strings to merge. */
- char **argv; /* Array of string values. */
+Tcl_Merge (
+ int argc, /* How many strings to merge. */
+ char **argv /* Array of string values. */
+)
{
# define LOCAL_SIZE 20
int localFlags[LOCAL_SIZE], *flagPtr;
*/
char *
-Tcl_Concat(argc, argv)
- int argc; /* Number of strings to concatenate. */
- char **argv; /* Array of strings to concatenate. */
+Tcl_Concat (
+ int argc, /* Number of strings to concatenate. */
+ char **argv /* Array of strings to concatenate. */
+)
{
int totalSize, i;
register char *p;
*----------------------------------------------------------------------
*/
-int
-Tcl_StringMatch(string, pattern)
- register char *string; /* String. */
- register char *pattern; /* Pattern, which may contain
+int
+Tcl_StringMatch (
+ register char *string, /* String. */
+ register char *pattern /* Pattern, which may contain
* special characters. */
+)
{
char c2;
*----------------------------------------------------------------------
*/
-void
-Tcl_SetResult(interp, string, freeProc)
- Tcl_Interp *interp; /* Interpreter with which to associate the
+void
+Tcl_SetResult (
+ Tcl_Interp *interp, /* Interpreter with which to associate the
* return value. */
- char *string; /* Value to be returned. If NULL,
+ char *string, /* Value to be returned. If NULL,
* the result is set to an empty string. */
- Tcl_FreeProc *freeProc; /* Gives information about the string:
+ Tcl_FreeProc *freeProc /* Gives information about the string:
* TCL_STATIC, TCL_VOLATILE, or the address
* of a Tcl_FreeProc such as free. */
+)
{
register Interp *iPtr = (Interp *) interp;
int length;
*----------------------------------------------------------------------
*/
-void
-Tcl_AppendElement(interp, string, noSep)
- Tcl_Interp *interp; /* Interpreter whose result is to be
+void
+Tcl_AppendElement (
+ Tcl_Interp *interp, /* Interpreter whose result is to be
* extended. */
- char *string; /* String to convert to list element and
+ char *string, /* String to convert to list element and
* add to result. */
- int noSep; /* If non-zero, then don't output a
+ int noSep /* If non-zero, then don't output a
* space character before this element,
* even if the element isn't the first
* thing in the output buffer. */
+)
{
register Interp *iPtr = (Interp *) interp;
int size, flags;
*----------------------------------------------------------------------
*/
-static void
-SetupAppendBuffer(iPtr, newSpace)
- register Interp *iPtr; /* Interpreter whose result is being set up. */
- int newSpace; /* Make sure that at least this many bytes
+static void
+SetupAppendBuffer (
+ register Interp *iPtr, /* Interpreter whose result is being set up. */
+ int newSpace /* Make sure that at least this many bytes
* of new information may be added. */
+)
{
int totalSpace;
*----------------------------------------------------------------------
*/
-void
-Tcl_ResetResult(interp)
- Tcl_Interp *interp; /* Interpreter for which to clear result. */
+void
+Tcl_ResetResult (
+ Tcl_Interp *interp /* Interpreter for which to clear result. */
+)
{
register Interp *iPtr = (Interp *) interp;
*----------------------------------------------------------------------
*/
-int
-TclGetListIndex(interp, string, indexPtr)
- Tcl_Interp *interp; /* Interpreter for error reporting. */
- char *string; /* String containing list index. */
- int *indexPtr; /* Where to store index. */
+int
+TclGetListIndex (
+ Tcl_Interp *interp, /* Interpreter for error reporting. */
+ char *string, /* String containing list index. */
+ int *indexPtr /* Where to store index. */
+)
{
if (isdigit(*string) || (*string == '-')) {
if (Tcl_GetInt(interp, string, indexPtr) != TCL_OK) {
*/
regexp *
-TclCompileRegexp(interp, string)
- Tcl_Interp *interp; /* For use in error reporting. */
- char *string; /* String for which to produce
+TclCompileRegexp (
+ Tcl_Interp *interp, /* For use in error reporting. */
+ char *string /* String for which to produce
* compiled regular expression. */
+)
{
register Interp *iPtr = (Interp *) interp;
int i, length;
*----------------------------------------------------------------------
*/
-void
-regerror(string)
- char *string; /* Error message. */
+void
+regerror (
+ char *string /* Error message. */
+)
{
tclRegexpError = string;
}
*/
char *
-Tcl_GetVar(interp, varName, flags)
- Tcl_Interp *interp; /* Command interpreter in which varName is
+Tcl_GetVar (
+ Tcl_Interp *interp, /* Command interpreter in which varName is
* to be looked up. */
- char *varName; /* Name of a variable in interp. */
- int flags; /* OR-ed combination of TCL_GLOBAL_ONLY
+ char *varName, /* Name of a variable in interp. */
+ int flags /* OR-ed combination of TCL_GLOBAL_ONLY
* or TCL_LEAVE_ERR_MSG bits. */
+)
{
register char *p;
*/
char *
-Tcl_GetVar2(interp, name1, name2, flags)
- Tcl_Interp *interp; /* Command interpreter in which variable is
+Tcl_GetVar2 (
+ Tcl_Interp *interp, /* Command interpreter in which variable is
* to be looked up. */
- char *name1; /* Name of array (if name2 is NULL) or
+ char *name1, /* Name of array (if name2 is NULL) or
* name of variable. */
- char *name2; /* If non-null, gives name of element in
+ char *name2, /* If non-null, gives name of element in
* array. */
- int flags; /* OR-ed combination of TCL_GLOBAL_ONLY
+ int flags /* OR-ed combination of TCL_GLOBAL_ONLY
* or TCL_LEAVE_ERR_MSG bits. */
+)
{
Tcl_HashEntry *hPtr;
Var *varPtr;
*/
char *
-Tcl_SetVar(interp, varName, newValue, flags)
- Tcl_Interp *interp; /* Command interpreter in which varName is
+Tcl_SetVar (
+ Tcl_Interp *interp, /* Command interpreter in which varName is
* to be looked up. */
- char *varName; /* Name of a variable in interp. */
- char *newValue; /* New value for varName. */
- int flags; /* Various flags that tell how to set value:
+ char *varName, /* Name of a variable in interp. */
+ char *newValue, /* New value for varName. */
+ int flags /* Various flags that tell how to set value:
* any of TCL_GLOBAL_ONLY, TCL_APPEND_VALUE,
* TCL_LIST_ELEMENT, TCL_NO_SPACE, or
* TCL_LEAVE_ERR_MSG. */
+)
{
register char *p;
*/
char *
-Tcl_SetVar2(interp, name1, name2, newValue, flags)
- Tcl_Interp *interp; /* Command interpreter in which variable is
+Tcl_SetVar2 (
+ Tcl_Interp *interp, /* Command interpreter in which variable is
* to be looked up. */
- char *name1; /* If name2 is NULL, this is name of scalar
+ char *name1, /* If name2 is NULL, this is name of scalar
* variable. Otherwise it is name of array. */
- char *name2; /* Name of an element within array, or NULL. */
- char *newValue; /* New value for variable. */
- int flags; /* Various flags that tell how to set value:
+ char *name2, /* Name of an element within array, or NULL. */
+ char *newValue, /* New value for variable. */
+ int flags /* Various flags that tell how to set value:
* any of TCL_GLOBAL_ONLY, TCL_APPEND_VALUE,
* TCL_LIST_ELEMENT, and TCL_NO_SPACE, or
* TCL_LEAVE_ERR_MSG . */
+)
{
Tcl_HashEntry *hPtr;
register Var *varPtr = NULL;
*----------------------------------------------------------------------
*/
-int
-Tcl_UnsetVar(interp, varName, flags)
- Tcl_Interp *interp; /* Command interpreter in which varName is
+int
+Tcl_UnsetVar (
+ Tcl_Interp *interp, /* Command interpreter in which varName is
* to be looked up. */
- char *varName; /* Name of a variable in interp. May be
+ char *varName, /* Name of a variable in interp. May be
* either a scalar name or an array name
* or an element in an array. */
- int flags; /* OR-ed combination of any of
+ int flags /* OR-ed combination of any of
* TCL_GLOBAL_ONLY or TCL_LEAVE_ERR_MSG. */
+)
{
register char *p;
int result;
*----------------------------------------------------------------------
*/
-int
-Tcl_UnsetVar2(interp, name1, name2, flags)
- Tcl_Interp *interp; /* Command interpreter in which varName is
+int
+Tcl_UnsetVar2 (
+ Tcl_Interp *interp, /* Command interpreter in which varName is
* to be looked up. */
- char *name1; /* Name of variable or array. */
- char *name2; /* Name of element within array or NULL. */
- int flags; /* OR-ed combination of any of
+ char *name1, /* Name of variable or array. */
+ char *name2, /* Name of element within array or NULL. */
+ int flags /* OR-ed combination of any of
* TCL_GLOBAL_ONLY or TCL_LEAVE_ERR_MSG. */
+)
{
Tcl_HashEntry *hPtr, dummyEntry;
Var *varPtr, dummyVar;
*----------------------------------------------------------------------
*/
-int
-Tcl_TraceVar(interp, varName, flags, proc, clientData)
- Tcl_Interp *interp; /* Interpreter in which variable is
+int
+Tcl_TraceVar (
+ Tcl_Interp *interp, /* Interpreter in which variable is
* to be traced. */
- char *varName; /* Name of variable; may end with "(index)"
+ char *varName, /* Name of variable; may end with "(index)"
* to signify an array reference. */
- int flags; /* OR-ed collection of bits, including any
+ int flags, /* OR-ed collection of bits, including any
* of TCL_TRACE_READS, TCL_TRACE_WRITES,
* TCL_TRACE_UNSETS, and TCL_GLOBAL_ONLY. */
- Tcl_VarTraceProc *proc; /* Procedure to call when specified ops are
+ Tcl_VarTraceProc *proc, /* Procedure to call when specified ops are
* invoked upon varName. */
- ClientData clientData; /* Arbitrary argument to pass to proc. */
+ ClientData clientData /* Arbitrary argument to pass to proc. */
+)
{
register char *p;
*----------------------------------------------------------------------
*/
-int
-Tcl_TraceVar2(interp, name1, name2, flags, proc, clientData)
- Tcl_Interp *interp; /* Interpreter in which variable is
+int
+Tcl_TraceVar2 (
+ Tcl_Interp *interp, /* Interpreter in which variable is
* to be traced. */
- char *name1; /* Name of scalar variable or array. */
- char *name2; /* Name of element within array; NULL means
+ char *name1, /* Name of scalar variable or array. */
+ char *name2, /* Name of element within array; NULL means
* trace applies to scalar variable or array
* as-a-whole. */
- int flags; /* OR-ed collection of bits, including any
+ int flags, /* OR-ed collection of bits, including any
* of TCL_TRACE_READS, TCL_TRACE_WRITES,
* TCL_TRACE_UNSETS, and TCL_GLOBAL_ONLY. */
- Tcl_VarTraceProc *proc; /* Procedure to call when specified ops are
+ Tcl_VarTraceProc *proc, /* Procedure to call when specified ops are
* invoked upon varName. */
- ClientData clientData; /* Arbitrary argument to pass to proc. */
+ ClientData clientData /* Arbitrary argument to pass to proc. */
+)
{
Tcl_HashEntry *hPtr;
Var *varPtr = NULL; /* Initial value only used to stop compiler
*----------------------------------------------------------------------
*/
-void
-Tcl_UntraceVar(interp, varName, flags, proc, clientData)
- Tcl_Interp *interp; /* Interpreter containing traced variable. */
- char *varName; /* Name of variable; may end with "(index)"
+void
+Tcl_UntraceVar (
+ Tcl_Interp *interp, /* Interpreter containing traced variable. */
+ char *varName, /* Name of variable; may end with "(index)"
* to signify an array reference. */
- int flags; /* OR-ed collection of bits describing
+ int flags, /* OR-ed collection of bits describing
* current trace, including any of
* TCL_TRACE_READS, TCL_TRACE_WRITES,
* TCL_TRACE_UNSETS, and TCL_GLOBAL_ONLY. */
- Tcl_VarTraceProc *proc; /* Procedure assocated with trace. */
- ClientData clientData; /* Arbitrary argument to pass to proc. */
+ Tcl_VarTraceProc *proc, /* Procedure assocated with trace. */
+ ClientData clientData /* Arbitrary argument to pass to proc. */
+)
{
register char *p;
*----------------------------------------------------------------------
*/
-void
-Tcl_UntraceVar2(interp, name1, name2, flags, proc, clientData)
- Tcl_Interp *interp; /* Interpreter containing traced variable. */
- char *name1; /* Name of variable or array. */
- char *name2; /* Name of element within array; NULL means
+void
+Tcl_UntraceVar2 (
+ Tcl_Interp *interp, /* Interpreter containing traced variable. */
+ char *name1, /* Name of variable or array. */
+ char *name2, /* Name of element within array; NULL means
* trace applies to scalar variable or array
* as-a-whole. */
- int flags; /* OR-ed collection of bits describing
+ int flags, /* OR-ed collection of bits describing
* current trace, including any of
* TCL_TRACE_READS, TCL_TRACE_WRITES,
* TCL_TRACE_UNSETS, and TCL_GLOBAL_ONLY. */
- Tcl_VarTraceProc *proc; /* Procedure assocated with trace. */
- ClientData clientData; /* Arbitrary argument to pass to proc. */
+ Tcl_VarTraceProc *proc, /* Procedure assocated with trace. */
+ ClientData clientData /* Arbitrary argument to pass to proc. */
+)
{
register VarTrace *tracePtr;
VarTrace *prevPtr;
*----------------------------------------------------------------------
*/
-ClientData
-Tcl_VarTraceInfo(interp, varName, flags, proc, prevClientData)
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *varName; /* Name of variable; may end with "(index)"
+ClientData
+Tcl_VarTraceInfo (
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *varName, /* Name of variable; may end with "(index)"
* to signify an array reference. */
- int flags; /* 0 or TCL_GLOBAL_ONLY. */
- Tcl_VarTraceProc *proc; /* Procedure assocated with trace. */
- ClientData prevClientData; /* If non-NULL, gives last value returned
+ int flags, /* 0 or TCL_GLOBAL_ONLY. */
+ Tcl_VarTraceProc *proc, /* Procedure assocated with trace. */
+ ClientData prevClientData /* If non-NULL, gives last value returned
* by this procedure, so this call will
* return the next trace after that one.
* If NULL, this call will return the
* first trace. */
+)
{
register char *p;
*----------------------------------------------------------------------
*/
-ClientData
-Tcl_VarTraceInfo2(interp, name1, name2, flags, proc, prevClientData)
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *name1; /* Name of variable or array. */
- char *name2; /* Name of element within array; NULL means
+ClientData
+Tcl_VarTraceInfo2 (
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *name1, /* Name of variable or array. */
+ char *name2, /* Name of element within array; NULL means
* trace applies to scalar variable or array
* as-a-whole. */
- int flags; /* 0 or TCL_GLOBAL_ONLY. */
- Tcl_VarTraceProc *proc; /* Procedure assocated with trace. */
- ClientData prevClientData; /* If non-NULL, gives last value returned
+ int flags, /* 0 or TCL_GLOBAL_ONLY. */
+ Tcl_VarTraceProc *proc, /* Procedure assocated with trace. */
+ ClientData prevClientData /* If non-NULL, gives last value returned
* by this procedure, so this call will
* return the next trace after that one.
* If NULL, this call will return the
* first trace. */
+)
{
register VarTrace *tracePtr;
Var *varPtr;
*/
/* ARGSUSED */
-int
-Tcl_SetCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- register Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_SetCmd (
+ ClientData dummy, /* Not used. */
+ register Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
if (argc == 2) {
char *value;
*/
/* ARGSUSED */
-int
-Tcl_UnsetCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- register Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_UnsetCmd (
+ ClientData dummy, /* Not used. */
+ register Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int i;
*/
/* ARGSUSED */
-int
-Tcl_AppendCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- register Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_AppendCmd (
+ ClientData dummy, /* Not used. */
+ register Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int i;
char *result = NULL; /* (Initialization only needed to keep
*/
/* ARGSUSED */
-int
-Tcl_LappendCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- register Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_LappendCmd (
+ ClientData dummy, /* Not used. */
+ register Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int i;
char *result = NULL; /* (Initialization only needed to keep
*/
/* ARGSUSED */
-int
-Tcl_ArrayCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- register Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_ArrayCmd (
+ ClientData dummy, /* Not used. */
+ register Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int length;
char c;
*/
/* ARGSUSED */
-int
-Tcl_GlobalCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_GlobalCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Var *varPtr, *gVarPtr;
register Interp *iPtr = (Interp *) interp;
*/
/* ARGSUSED */
-int
-Tcl_UpvarCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tcl_UpvarCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Interp *iPtr = (Interp *) interp;
int result;
*----------------------------------------------------------------------
*/
-void
-TclDeleteVars(iPtr, tablePtr)
- Interp *iPtr; /* Interpreter to which variables belong. */
- Tcl_HashTable *tablePtr; /* Hash table containing variables to
+void
+TclDeleteVars (
+ Interp *iPtr, /* Interpreter to which variables belong. */
+ Tcl_HashTable *tablePtr /* Hash table containing variables to
* delete. */
+)
{
Tcl_HashSearch search;
Tcl_HashEntry *hPtr;
*/
static char *
-CallTraces(iPtr, arrayPtr, hPtr, name1, name2, flags)
- Interp *iPtr; /* Interpreter containing variable. */
- register Var *arrayPtr; /* Pointer to array variable that
+CallTraces (
+ Interp *iPtr, /* Interpreter containing variable. */
+ register Var *arrayPtr, /* Pointer to array variable that
* contains the variable, or NULL if
* the variable isn't an element of an
* array. */
- Tcl_HashEntry *hPtr; /* Hash table entry corresponding to
+ Tcl_HashEntry *hPtr, /* Hash table entry corresponding to
* variable whose traces are to be
* invoked. */
- char *name1, *name2; /* Variable's two-part name. */
- int flags; /* Flags to pass to trace procedures:
+ char *name1,
+ char *name2, /* Variable's two-part name. */
+ int flags /* Flags to pass to trace procedures:
* indicates what's happening to
* variable, plus other stuff like
* TCL_GLOBAL_ONLY and
* TCL_INTERP_DESTROYED. */
+)
{
Var *varPtr;
register VarTrace *tracePtr;
*/
static Var *
-NewVar(space)
- int space; /* Minimum amount of space to allocate
+NewVar (
+ int space /* Minimum amount of space to allocate
* for variable's value. */
+)
{
int extra;
register Var *varPtr;
*/
static ArraySearch *
-ParseSearchId(interp, varPtr, varName, string)
- Tcl_Interp *interp; /* Interpreter containing variable. */
- Var *varPtr; /* Array variable search is for. */
- char *varName; /* Name of array variable that search is
+ParseSearchId (
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ Var *varPtr, /* Array variable search is for. */
+ char *varName, /* Name of array variable that search is
* supposed to be for. */
- char *string; /* String containing id of search. Must have
+ char *string /* String containing id of search. Must have
* form "search-num-var" where "num" is a
* decimal number and "var" is a variable
* name. */
+)
{
char *end;
int id;
*----------------------------------------------------------------------
*/
-static void
-DeleteSearches(arrayVarPtr)
- register Var *arrayVarPtr; /* Variable whose searches are
+static void
+DeleteSearches (
+ register Var *arrayVarPtr /* Variable whose searches are
* to be deleted. */
+)
{
ArraySearch *searchPtr;
*----------------------------------------------------------------------
*/
-static void
-DeleteArray(iPtr, arrayName, varPtr, flags)
- Interp *iPtr; /* Interpreter containing array. */
- char *arrayName; /* Name of array (used for trace
+static void
+DeleteArray (
+ Interp *iPtr, /* Interpreter containing array. */
+ char *arrayName, /* Name of array (used for trace
* callbacks). */
- Var *varPtr; /* Pointer to variable structure. */
- int flags; /* Flags to pass to CallTraces:
+ Var *varPtr, /* Pointer to variable structure. */
+ int flags /* Flags to pass to CallTraces:
* TCL_TRACE_UNSETS and sometimes
* TCL_INTERP_DESTROYED and/or
* TCL_GLOBAL_ONLY. */
+)
{
Tcl_HashSearch search;
register Tcl_HashEntry *hPtr;
*----------------------------------------------------------------------
*/
-static void
-VarErrMsg(interp, name1, name2, operation, reason)
- Tcl_Interp *interp; /* Interpreter in which to record message. */
- char *name1, *name2; /* Variable's two-part name. */
- char *operation; /* String describing operation that failed,
+static void
+VarErrMsg (
+ Tcl_Interp *interp, /* Interpreter in which to record message. */
+ char *name1,
+ char *name2, /* Variable's two-part name. */
+ char *operation, /* String describing operation that failed,
* e.g. "read", "set", or "unset". */
- char *reason; /* String describing why operation failed. */
+ char *reason /* String describing why operation failed. */
+)
{
Tcl_ResetResult(interp);
Tcl_AppendResult(interp, "can't ", operation, " \"", name1, (char *) NULL);
#include "tclxtend.h"
-int
-main(argc, argv)
- int argc;
- CONST char **argv;
+int
+TclX_RecordAndEval (
+ Tcl_Interp *interp, /* Token for interpreter in which command
+ * will be executed. */
+ char *cmd, /* Command to record. */
+ int flags, /* Additional flags to pass to Tcl_Eval.
+ * TCL_NO_EVAL means only record: don't
+ * execute command. */
+ char **dummy
+)
+{
+ return Tcl_RecordAndEval(interp, cmd, flags);
+}
+
+int
+main (int argc, CONST char **argv)
{
Tcl_Interp *interp;
* also brings in history from libtcl.a.
*/
#ifndef TCL_NOHISTORY
- tclShellCmdEvalProc = Tcl_RecordAndEval;
+ tclShellCmdEvalProc = TclX_RecordAndEval;
#endif
/*
* o > 0 if key > line-key.
*-----------------------------------------------------------------------------
*/
-static int
-StandardKeyCompare (key, line)
- char *key;
- char *line;
+static int
+StandardKeyCompare (char *key, char *line)
{
int cmpResult, fieldLen;
char saveChar;
* TCL_OK or TCL_ERROR.
*-----------------------------------------------------------------------------
*/
-static int
-TclProcKeyCompare (searchCBPtr)
- binSearchCB_t *searchCBPtr;
+static int
+TclProcKeyCompare (binSearchCB_t *searchCBPtr)
{
char *cmdArgv [3];
char *command;
* TCL_OK or TCL_ERROR.
*-----------------------------------------------------------------------------
*/
-static int
-ReadAndCompare (fileOffset, searchCBPtr)
- long fileOffset;
- binSearchCB_t *searchCBPtr;
+static int
+ReadAndCompare (long fileOffset, binSearchCB_t *searchCBPtr)
{
int recChar, status;
*
*-----------------------------------------------------------------------------
*/
-static int
-BinSearch (searchCBPtr)
- binSearchCB_t *searchCBPtr;
+static int
+BinSearch (binSearchCB_t *searchCBPtr)
{
OpenFile *filePtr;
long middle, high, low;
*-----------------------------------------------------------------------------
*/
int
-Tcl_BsearchCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_BsearchCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int status;
binSearchCB_t searchCB;
*-----------------------------------------------------------------------------
*/
int
-Tcl_ConvertclockCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_ConvertclockCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
long clockVal;
time_t baseClock;
*
*-----------------------------------------------------------------------------
*/
-static int
-ConvSymMode (interp, symMode, modeVal)
- Tcl_Interp *interp;
- char *symMode;
- int modeVal;
+static int
+ConvSymMode (Tcl_Interp *interp, char *symMode, int modeVal)
{
int user, group, other;
*-----------------------------------------------------------------------------
*/
int
-Tcl_ChmodCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_ChmodCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int idx, modeVal, fileArgc, absMode;
char **fileArgv;
*-----------------------------------------------------------------------------
*/
int
-Tcl_ChownCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_ChownCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int idx, ownArgc, fileArgc;
char **ownArgv, **fileArgv = NULL;
*-----------------------------------------------------------------------------
*/
int
-Tcl_ChgrpCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_ChgrpCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int idx, fileArgc, groupId, result = TCL_ERROR;
char **fileArgv;
*-----------------------------------------------------------------------------
*/
int
-Tcl_GetclockCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_GetclockCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
if (argc != 1) {
Tcl_AppendResult (interp, tclXWrongArgs, argv[0], (char *) NULL);
*-----------------------------------------------------------------------------
*/
int
-Tcl_FmtclockCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_FmtclockCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int useGMT = FALSE;
long clockVal;
* to no history, set this variable to Tcl_RecordAndEval to use history.
*/
-int (*tclShellCmdEvalProc) () = Tcl_Eval;
+int (*tclShellCmdEvalProc) (Tcl_Interp *, char *, int, char**) = Tcl_Eval;
/*
* Prototypes of internal functions.
*
*-----------------------------------------------------------------------------
*/
-static int
-IsSetVarCmd (interp, command)
- Tcl_Interp *interp;
- char *command;
+static int
+IsSetVarCmd (Tcl_Interp *interp, char *command)
{
char *nextPtr;
*
*-----------------------------------------------------------------------------
*/
-static void
-OutFlush (filePtr)
- FILE *filePtr;
+static void
+OutFlush (FILE *filePtr)
{
int stat;
*
*-----------------------------------------------------------------------------
*/
-static void
-Tcl_PrintResult (fp, returnval, resultText)
- FILE *fp;
- int returnval;
- char *resultText;
+static void
+Tcl_PrintResult (FILE *fp, int returnval, char *resultText)
{
if (returnval == TCL_OK) {
*
*-----------------------------------------------------------------------------
*/
-static void
-OutputPrompt (interp, outFP, topLevel)
- Tcl_Interp *interp;
- FILE *outFP;
- int topLevel;
+static void
+OutputPrompt (Tcl_Interp *interp, FILE *outFP, int topLevel)
{
char *hookName;
char *promptHook;
* o options (I) - Currently unused.
*-----------------------------------------------------------------------------
*/
-void
-Tcl_CommandLoop (interp, inFile, outFile, evalProc, options)
- Tcl_Interp *interp;
- FILE *inFile;
- FILE *outFile;
- int (*evalProc) ();
- unsigned options;
+void
+Tcl_CommandLoop (Tcl_Interp *interp, FILE *inFile, FILE *outFile, int (*evalProc)(Tcl_Interp *, char *, int, char**), unsigned options)
{
Tcl_CmdBuf cmdBuf;
char inputBuf[256];
* TCL_OK if the hook variable was set ok, TCL_ERROR if an error occured.
*-----------------------------------------------------------------------------
*/
-static int
-SetPromptVar (interp, hookVarName, newHookValue, oldHookValuePtr)
- Tcl_Interp *interp;
- char *hookVarName;
- char *newHookValue;
- char **oldHookValuePtr;
+static int
+SetPromptVar (Tcl_Interp *interp, char *hookVarName, char *newHookValue, char **oldHookValuePtr)
{
char *hookValue;
char *oldHookPtr = NULL;
*-----------------------------------------------------------------------------
*/
int
-Tcl_CommandloopCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_CommandloopCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
char *oldTopLevelHook = NULL;
char *oldDownLevelHook = NULL;
*-----------------------------------------------------------------------------
*/
Tcl_Interp *
-Tcl_CreateExtendedInterp ()
+Tcl_CreateExtendedInterp (void)
{
Tcl_Interp *interp;
* from tclXbsearch.c
*/
Tcl_CreateCommand (interp, "bsearch", Tcl_BsearchCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
/*
* from tclXchmod.c
*/
Tcl_CreateCommand (interp, "chgrp", Tcl_ChgrpCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "chmod", Tcl_ChmodCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "chown", Tcl_ChownCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
/*
* from tclXclock.c
*/
Tcl_CreateCommand (interp, "getclock", Tcl_GetclockCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "fmtclock", Tcl_FmtclockCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
/*
* from tclXcnvdate.c
*/
Tcl_CreateCommand (interp, "convertclock", Tcl_ConvertclockCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
/*
* from tclXcmdloop.c
*/
Tcl_CreateCommand (interp, "commandloop", Tcl_CommandloopCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
/*
* from tclXdebug.c
* from tclXdup.c
*/
Tcl_CreateCommand (interp, "dup", Tcl_DupCmd,
- (ClientData) NULL, (void (*)())NULL);
+ (ClientData) NULL, (void (*)(int *))NULL);
/*
* from tclXtclXfcntl.c
*/
Tcl_CreateCommand (interp, "fcntl", Tcl_FcntlCmd,
- (ClientData) NULL, (void (*)())NULL);
+ (ClientData) NULL, (void (*)(int *))NULL);
/*
* from tclXfilecmds.c
*/
Tcl_CreateCommand (interp, "pipe", Tcl_PipeCmd,
- (ClientData) NULL, (void (*)())NULL);
+ (ClientData) NULL, (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "copyfile", Tcl_CopyfileCmd,
- (ClientData) NULL, (void (*)())NULL);
+ (ClientData) NULL, (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "fstat", Tcl_FstatCmd,
- (ClientData) NULL, (void (*)())NULL);
+ (ClientData) NULL, (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "lgets", Tcl_LgetsCmd,
- (ClientData) NULL, (void (*)())NULL);
+ (ClientData) NULL, (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "flock", Tcl_FlockCmd,
- (ClientData) NULL, (void (*)())NULL);
+ (ClientData) NULL, (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "funlock", Tcl_FunlockCmd,
- (ClientData) NULL, (void (*)())NULL);
+ (ClientData) NULL, (void (*)(int *))NULL);
/*
* from tclXfilescan.c
* from tclXfmath.c
*/
Tcl_CreateCommand(interp, "acos", Tcl_AcosCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "asin", Tcl_AsinCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "atan", Tcl_AtanCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "cos", Tcl_CosCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "sin", Tcl_SinCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "tan", Tcl_TanCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "cosh", Tcl_CoshCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "sinh", Tcl_SinhCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "tanh", Tcl_TanhCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "exp", Tcl_ExpCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "log", Tcl_LogCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "log10", Tcl_Log10Cmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "sqrt", Tcl_SqrtCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "fabs", Tcl_FabsCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "floor", Tcl_FloorCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "ceil", Tcl_CeilCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "fmod", Tcl_FmodCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "pow", Tcl_PowCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
/*
* from tclXgeneral.c
*/
Tcl_CreateCommand(interp, "echo", Tcl_EchoCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "infox", Tcl_InfoxCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "loop", Tcl_LoopCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
/*
* from tclXid.c
*/
Tcl_CreateCommand (interp, "id", Tcl_IdCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
/*
* from tclXkeylist.c
*/
Tcl_CreateCommand(interp, "keyldel", Tcl_KeyldelCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "keylget", Tcl_KeylgetCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "keylkeys", Tcl_KeylkeysCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "keylset", Tcl_KeylsetCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
/*
* from tclXlist.c
*/
Tcl_CreateCommand(interp, "lvarcat", Tcl_LvarcatCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "lvarpop", Tcl_LvarpopCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "lvarpush", Tcl_LvarpushCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "lempty", Tcl_LemptyCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
/*
* from tclXmath.c
*/
Tcl_CreateCommand (interp, "max", Tcl_MaxCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "min", Tcl_MinCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "random", Tcl_RandomCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
/*
* from tclXmsgcat.c
* from tclXprocess.c
*/
Tcl_CreateCommand (interp, "execl", Tcl_ExeclCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "fork", Tcl_ForkCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "wait", Tcl_WaitCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
/*
* from tclXprofile.c
* from tclXselect.c
*/
Tcl_CreateCommand (interp, "select", Tcl_SelectCmd,
- (ClientData) NULL, (void (*)())NULL);
+ (ClientData) NULL, (void (*)(int *))NULL);
/*
* from tclXsignal.c
* from tclXstring.c
*/
Tcl_CreateCommand(interp, "cindex", Tcl_CindexCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "clength", Tcl_ClengthCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "crange", Tcl_CrangeCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "csubstr", Tcl_CrangeCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand(interp, "replicate", Tcl_ReplicateCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "translit", Tcl_TranslitCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "ctype", Tcl_CtypeCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
/*
* from tclXlib.c
*/
Tcl_CreateCommand (interp, "demand_load", Tcl_Demand_loadCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "loadlibindex", Tcl_LoadlibindexCmd,
- (ClientData)NULL, (void (*)())NULL);
+ (ClientData)NULL, (void (*)(int *))NULL);
/*
* from tclXunixcmds.c
*/
Tcl_CreateCommand (interp, "system", Tcl_SystemCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "times", Tcl_TimesCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "umask", Tcl_UmaskCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "link", Tcl_LinkCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "unlink", Tcl_UnlinkCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "mkdir", Tcl_MkdirCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "rmdir", Tcl_RmdirCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "alarm", Tcl_AlarmCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "sleep", Tcl_SleepCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
return interp;
}
*
*-----------------------------------------------------------------------------
*/
-void
-PrintStr (filePtr, string, numChars)
- FILE *filePtr;
- char *string;
- int numChars;
+void
+PrintStr (FILE *filePtr, char *string, int numChars)
{
int idx;
*
*-----------------------------------------------------------------------------
*/
-void
-PrintArg (filePtr, argStr, noTruncate)
- FILE *filePtr;
- char *argStr;
- int noTruncate;
+void
+PrintArg (FILE *filePtr, char *argStr, int noTruncate)
{
int idx, argLen, printLen;
int quote_it;
*
*-----------------------------------------------------------------------------
*/
-void
-TraceCode (traceInfoPtr, level, command, argc, argv)
- traceInfo_pt traceInfoPtr;
- int level;
- char *command;
- int argc;
- char **argv;
+void
+TraceCode (traceInfo_pt traceInfoPtr, int level, char *command, int argc, char **argv)
{
int idx, cmdLen, printLen;
*-----------------------------------------------------------------------------
*/
void
-CmdTraceRoutine (clientData, interp, level, command, cmdProc, cmdClientData,
- argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int level;
- char *command;
- Tcl_CmdProc *cmdProc;
- ClientData cmdClientData;
- int argc;
- char **argv;
+CmdTraceRoutine (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int level,
+ char *command,
+ Tcl_CmdProc *cmdProc,
+ ClientData cmdClientData,
+ int argc,
+ char **argv
+)
{
Interp *iPtr = (Interp *) interp;
traceInfo_pt traceInfoPtr = (traceInfo_pt) clientData;
*-----------------------------------------------------------------------------
*/
static int
-Tcl_CmdtraceCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_CmdtraceCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
Interp *iPtr = (Interp *) interp;
traceInfo_pt infoPtr = (traceInfo_pt) clientData;
*-----------------------------------------------------------------------------
*/
void
-CleanUpDebug (clientData)
- ClientData clientData;
+CleanUpDebug (
+ ClientData clientData
+)
{
traceInfo_pt infoPtr = (traceInfo_pt) clientData;
*
*-----------------------------------------------------------------------------
*/
-void
-Tcl_InitDebug (interp)
- Tcl_Interp *interp;
+void
+Tcl_InitDebug (Tcl_Interp *interp)
{
traceInfo_pt infoPtr;
*-----------------------------------------------------------------------------
*/
static OpenFile *
-DoNormalDup (interp, oldFilePtr)
- Tcl_Interp *interp;
- OpenFile *oldFilePtr;
+DoNormalDup (Tcl_Interp *interp, OpenFile *oldFilePtr)
{
Interp *iPtr = (Interp *) interp;
int newFileId;
*-----------------------------------------------------------------------------
*/
static OpenFile *
-DoSpecialDup (interp, oldFilePtr, newHandleName)
- Tcl_Interp *interp;
- OpenFile *oldFilePtr;
- char *newHandleName;
+DoSpecialDup (Tcl_Interp *interp, OpenFile *oldFilePtr, char *newHandleName)
{
Interp *iPtr = (Interp *) interp;
int newFileId;
*-----------------------------------------------------------------------------
*/
int
-Tcl_DupCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_DupCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
OpenFile *oldFilePtr, *newFilePtr;
long seekOffset = -1;
*-----------------------------------------------------------------------------
*/
int
-Tcl_PipeCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_PipeCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
Interp *iPtr = (Interp *) interp;
int fileIds [2];
*-----------------------------------------------------------------------------
*/
int
-Tcl_CopyfileCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_CopyfileCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
OpenFile *fromFilePtr, *toFilePtr;
char transferBuffer [2048];
*-----------------------------------------------------------------------------
*/
static char *
-GetFileType (statBufPtr)
- struct stat *statBufPtr;
+GetFileType (
+ struct stat *statBufPtr
+)
{
char *typeStr;
*-----------------------------------------------------------------------------
*/
static void
-ReturnStatList (interp, filePtr, statBufPtr)
- Tcl_Interp *interp;
- OpenFile *filePtr;
- struct stat *statBufPtr;
+ReturnStatList (
+ Tcl_Interp *interp,
+ OpenFile *filePtr,
+ struct stat *statBufPtr
+)
{
char statList [200];
*-----------------------------------------------------------------------------
*/
static int
-ReturnStatArray (interp, filePtr, statBufPtr, arrayName)
- Tcl_Interp *interp;
- OpenFile *filePtr;
- struct stat *statBufPtr;
- char *arrayName;
+ReturnStatArray (
+ Tcl_Interp *interp,
+ OpenFile *filePtr,
+ struct stat *statBufPtr,
+ char *arrayName
+)
{
char numBuf [30];
*-----------------------------------------------------------------------------
*/
static int
-ReturnStatItem (interp, filePtr, statBufPtr, itemName)
- Tcl_Interp *interp;
- OpenFile *filePtr;
- struct stat *statBufPtr;
- char *itemName;
+ReturnStatItem (
+ Tcl_Interp *interp,
+ OpenFile *filePtr,
+ struct stat *statBufPtr,
+ char *itemName
+)
{
if (STREQU (itemName, "dev"))
sprintf (interp->result, "%d", statBufPtr->st_dev);
*-----------------------------------------------------------------------------
*/
int
-Tcl_FstatCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_FstatCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
OpenFile *filePtr;
struct stat statBuf;
*-----------------------------------------------------------------------------
*/
int
-Tcl_LgetsCmd (notUsed, interp, argc, argv)
- ClientData notUsed;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_LgetsCmd (
+ ClientData notUsed,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
dynamicBuf_t dynBuf;
char prevChar;
*
*-----------------------------------------------------------------------------
*/
-static int
-ParseLockUnlockArgs (interp, argc, argv, argIdx, filePtrPtr, lockInfoPtr)
- Tcl_Interp *interp;
- int argc;
- char **argv;
- int argIdx;
- OpenFile **filePtrPtr;
- struct flock *lockInfoPtr;
+static int
+ParseLockUnlockArgs (Tcl_Interp *interp, int argc, char **argv, int argIdx, OpenFile **filePtrPtr, struct flock *lockInfoPtr)
{
lockInfoPtr->l_start = 0;
*-----------------------------------------------------------------------------
*/
int
-Tcl_FlockCmd (notUsed, interp, argc, argv)
- ClientData notUsed;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_FlockCmd (
+ ClientData notUsed,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int argIdx, stat;
int readLock = FALSE, writeLock = FALSE, noWaitLock = FALSE;
*-----------------------------------------------------------------------------
*/
int
-Tcl_FunlockCmd (notUsed, interp, argc, argv)
- ClientData notUsed;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_FunlockCmd (
+ ClientData notUsed,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
OpenFile *filePtr;
struct flock lockInfo;
* Returns TCL_OK if all is well, TCL_ERROR if there is an error.
*-----------------------------------------------------------------------------
*/
-static int
-XlateFcntlAttr (interp, attrName, fcntlAttrPtr, otherAttrPtr)
- Tcl_Interp *interp;
- char *attrName;
- int *fcntlAttrPtr;
- int *otherAttrPtr;
+static int
+XlateFcntlAttr (Tcl_Interp *interp, char *attrName, int *fcntlAttrPtr, int *otherAttrPtr)
{
char attrNameUp [MAX_ATTR_NAME_LEN];
* Returns TCL_OK if all is well, TCL_ERROR if fcntl returns an error.
*-----------------------------------------------------------------------------
*/
-static int
-GetFcntlAttr (interp, filePtr, attrName)
- Tcl_Interp *interp;
- OpenFile *filePtr;
- char *attrName;
+static int
+GetFcntlAttr (Tcl_Interp *interp, OpenFile *filePtr, char *attrName)
{
int fcntlAttr, otherAttr, current;
* Returns TCL_OK if all is well, TCL_ERROR if there is an error.
*-----------------------------------------------------------------------------
*/
-static int
-SetFcntlAttr (interp, filePtr, attrName, valueStr)
- Tcl_Interp *interp;
- OpenFile *filePtr;
- char *attrName;
- char *valueStr;
+static int
+SetFcntlAttr (Tcl_Interp *interp, OpenFile *filePtr, char *attrName, char *valueStr)
{
int fcntlAttr, otherAttr, current, setValue;
*-----------------------------------------------------------------------------
*/
int
-Tcl_FcntlCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_FcntlCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
OpenFile *filePtr;
Tcl_UnaryFloatFunction _ANSI_ARGS_((Tcl_Interp *interp,
int argc,
char **argv,
- double (*function)()));
+ double (*function)(double)));
#ifdef TCL_IEEE_FP_MATH
* argument to `return'.
*-----------------------------------------------------------------------------
*/
-static int
-ReturnIEEEMathError (interp, dbResult)
- Tcl_Interp *interp;
- double dbResult;
+static int
+ReturnIEEEMathError (Tcl_Interp *interp, double dbResult)
{
char *errorMsg;
* argument to `return'.
*-----------------------------------------------------------------------------
*/
-static int
-ReturnFPMathError (interp)
- Tcl_Interp *interp;
+static int
+ReturnFPMathError (Tcl_Interp *interp)
{
Tcl_AppendResult (interp, "floating point error",
*
*-----------------------------------------------------------------------------
*/
-int
-Tcl_MathError (functionName, errorType)
- char *functionName;
- int errorType;
+int
+Tcl_MathError (char *functionName, int errorType)
{
if (G_inTclFPMath) {
*
*-----------------------------------------------------------------------------
*/
-static int
-Tcl_UnaryFloatFunction(interp, argc, argv, function)
- Tcl_Interp *interp;
- int argc;
- char **argv;
- double (*function)();
+static int
+Tcl_UnaryFloatFunction (Tcl_Interp *interp, int argc, char **argv, double (*function)(double))
{
double dbVal, dbResult;
*-----------------------------------------------------------------------------
*/
int
-Tcl_AcosCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_AcosCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, acos);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_AsinCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_AsinCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, asin);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_AtanCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_AtanCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, atan);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_CosCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_CosCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, cos);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_SinCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_SinCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, sin);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_TanCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_TanCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, tan);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_CoshCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_CoshCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, cosh);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_SinhCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_SinhCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, sinh);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_TanhCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_TanhCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, tanh);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_ExpCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_ExpCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, exp);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_LogCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_LogCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, log);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_Log10Cmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_Log10Cmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, log10);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_SqrtCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_SqrtCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, sqrt);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_FabsCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_FabsCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, fabs);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_FloorCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_FloorCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, floor);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_CeilCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_CeilCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
return Tcl_UnaryFloatFunction(interp, argc, argv, ceil);
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_FmodCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_FmodCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
double dbVal, dbDivisor, dbResult;
*-----------------------------------------------------------------------------
*/
int
-Tcl_PowCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_PowCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
double dbVal, dbExp, dbResult;
* entry. The entry itself is not released.
*-----------------------------------------------------------------------------
*/
-static int
-CleanUpContext (scanGlobPtr, contextPtr)
- scanGlob_pt scanGlobPtr;
- scanContext_pt contextPtr;
+static int
+CleanUpContext (scanGlob_pt scanGlobPtr, scanContext_pt contextPtr)
{
matchDef_pt matchPtr, oldMatchPtr;
*
*-----------------------------------------------------------------------------
*/
-static int
-CreateScanContext (interp, scanGlobPtr)
- Tcl_Interp *interp;
- scanGlob_pt scanGlobPtr;
+static int
+CreateScanContext (Tcl_Interp *interp, scanGlob_pt scanGlobPtr)
{
scanContext_pt contextPtr;
*
*-----------------------------------------------------------------------------
*/
-static int
-DeleteScanContext (interp, scanGlobPtr, contextHandle)
- Tcl_Interp *interp;
- scanGlob_pt scanGlobPtr;
- char *contextHandle;
+static int
+DeleteScanContext (Tcl_Interp *interp, scanGlob_pt scanGlobPtr, char *contextHandle)
{
scanContext_pt contextPtr;
*
*-----------------------------------------------------------------------------
*/
-static int
-Tcl_ScancontextCmd (clientData, interp, argc, argv)
- char *clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+static int
+Tcl_ScancontextCmd (int *clientData, Tcl_Interp *interp, int argc, char **argv)
{
scanGlob_pt scanGlobPtr = (scanGlob_pt) clientData;
*
*-----------------------------------------------------------------------------
*/
-static int
-Tcl_ScanmatchCmd (clientData, interp, argc, argv)
- char *clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+static int
+Tcl_ScanmatchCmd (int *clientData, Tcl_Interp *interp, int argc, char **argv)
{
scanGlob_pt scanGlobPtr = (scanGlob_pt) clientData;
scanContext_pt contextPtr;
*
*-----------------------------------------------------------------------------
*/
-static int
-SetMatchVar (interp, fileLine, fileOffset, scanLineNum, fileHandle)
- Tcl_Interp *interp;
- char *fileLine;
- long fileOffset;
- long scanLineNum;
- char *fileHandle;
+static int
+SetMatchVar (Tcl_Interp *interp, char *fileLine, long fileOffset, long scanLineNum, char *fileHandle)
{
char numBuf [20];
*
*-----------------------------------------------------------------------------
*/
-static int
-Tcl_ScanfileCmd (clientData, interp, argc, argv)
- char *clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+static int
+Tcl_ScanfileCmd (int *clientData, Tcl_Interp *interp, int argc, char **argv)
{
scanGlob_pt scanGlobPtr = (scanGlob_pt) clientData;
scanContext_pt contextPtr;
*-----------------------------------------------------------------------------
*/
static void
-FileScanCleanUp (clientData)
- ClientData clientData;
+FileScanCleanUp (
+ ClientData clientData
+)
{
scanGlob_pt scanGlobPtr = (scanGlob_pt) clientData;
scanContext_pt contextPtr;
*
*-----------------------------------------------------------------------------
*/
-void
-Tcl_InitFilescan (interp)
-Tcl_Interp *interp;
+void
+Tcl_InitFilescan (Tcl_Interp *interp)
{
scanGlob_pt scanGlobPtr;
void_pt fileCbTblPtr;
static int month, day, year;
static int ourzone;
-#if 0
static time_t timeconv(int hh, int mm, int ss, int mer);
static time_t daylcorr(time_t future, time_t now);
static int lookup(char *id);
-#else
- static time_t timeconv();
- static time_t daylcorr();
- static int lookup();
-#endif
#define AM 1
#define PM 2
{31, 0, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
#define epoch 1970
-extern struct tm *localtime();
+extern struct tm *localtime(const time_t*);
static
-time_t dateconv(mm, dd, yy, h, m, s, mer, zone, dayflag)
-int mm, dd, yy, h, m, s, mer, zone, dayflag;
+time_t dateconv(int mm, int dd, int yy, int h, int m, int s, int mer, int zone, int dayflag)
{
time_t tod, jdate;
register int i;
- time_t timeconv();
if (yy < 0) yy = -yy;
if (yy < 100) yy += 1900;
}
static
-time_t dayconv(ord, day, now) int ord, day; time_t now;
+time_t dayconv(int ord, int day, time_t now)
{
register struct tm *loctime;
time_t tod;
- time_t daylcorr();
tod = now;
loctime = localtime(&tod);
}
static
-time_t timeconv(hh, mm, ss, mer) register int hh, mm, ss, mer;
+time_t timeconv(register int hh, register int mm, register int ss, register int mer)
{
if (mm < 0 || mm > 59 || ss < 0 || ss > 59) return (-1);
switch (mer) {
}
static
-time_t monthadd(sdate, relmonth) time_t sdate, relmonth;
+time_t monthadd(time_t sdate, time_t relmonth)
{
struct tm *ltime;
- time_t dateconv();
- time_t daylcorr();
int mm, yy;
if (relmonth == 0) return 0;
}
static
-time_t daylcorr(future, now) time_t future, now;
+time_t daylcorr(time_t future, time_t now)
{
int fdayl, nowdayl;
{0, 0, 0}};
static
-int lookup(id) char *id;
+int lookup(char *id)
{
#define gotit (yylval=i->value, i->type)
#define getid for(j=idvar, k=id; *j++ = *k++; )
}
time_t
-Tcl_GetDate (p, now, zone)
- char *p;
- time_t now;
- long zone;
+Tcl_GetDate (
+ char *p,
+ time_t now,
+ long zone
+)
{
#define mcheck(f) if (f>1) err++
- time_t monthadd();
int err;
struct tm *lt;
time_t sdate, tod;
*/
void
-yyerror(msg)
- const char *msg;
+yyerror(const char *msg)
{
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_EchoCmd(clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_EchoCmd(
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int idx;
*-----------------------------------------------------------------------------
*/
int
-Tcl_InfoxCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_InfoxCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
if (argc != 2) {
Tcl_AppendResult (interp, tclXWrongArgs, argv [0],
*-----------------------------------------------------------------------------
*/
int
-Tcl_LoopCmd (dummy, interp, argc, argv)
- ClientData dummy;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_LoopCmd (
+ ClientData dummy,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int result = TCL_OK;
long i, first, limit, incr = 1;
* o numEntries (I) - The number of new entries.
*-----------------------------------------------------------------------------
*/
-static void
-LinkInNewEntries (tblHdrPtr, newIdx, numEntries)
- tblHeader_pt tblHdrPtr;
- int newIdx;
- int numEntries;
+static void
+LinkInNewEntries (tblHeader_pt tblHdrPtr, int newIdx, int numEntries)
{
int entIdx, lastIdx;
entryHeader_pt entryPtr;
* entries specified on table creation. MUST be smaller than this size.
*-----------------------------------------------------------------------------
*/
-static void
-ExpandTable (tblHdrPtr, neededIdx)
- tblHeader_pt tblHdrPtr;
- int neededIdx;
+static void
+ExpandTable (tblHeader_pt tblHdrPtr, int neededIdx)
{
ubyte_pt oldBodyP = tblHdrPtr->bodyP;
int numNewEntries;
* The a pointer to the entry.
*-----------------------------------------------------------------------------
*/
-static entryHeader_pt
-AllocEntry (tblHdrPtr, entryIdxPtr)
- tblHeader_pt tblHdrPtr;
- int *entryIdxPtr;
+static entryHeader_pt
+AllocEntry (tblHeader_pt tblHdrPtr, int *entryIdxPtr)
{
int entryIdx;
entryHeader_pt entryPtr;
* occured.
*-----------------------------------------------------------------------------
*/
-static int
-HandleDecode (interp, tblHdrPtr, handle)
- Tcl_Interp *interp;
- tblHeader_pt tblHdrPtr;
- CONST char *handle;
+static int
+HandleDecode (Tcl_Interp *interp, tblHeader_pt tblHdrPtr, CONST char *handle)
{
unsigned entryIdx;
* A pointer to the table header.
*-----------------------------------------------------------------------------
*/
-void_pt
-Tcl_HandleTblInit (handleBase, entrySize, initEntries)
- CONST char *handleBase;
- int entrySize;
- int initEntries;
+void_pt
+Tcl_HandleTblInit (CONST char *handleBase, int entrySize, int initEntries)
{
tblHeader_pt tblHdrPtr;
int baseLength = strlen ((char *) handleBase);
* The resulting use count.
*-----------------------------------------------------------------------------
*/
-int
-Tcl_HandleTblUseCount (headerPtr, amount)
- void_pt headerPtr;
- int amount;
+int
+Tcl_HandleTblUseCount (void_pt headerPtr, int amount)
{
tblHeader_pt tblHdrPtr = (tblHeader_pt)headerPtr;
* o headerPtr (I) - Pointer to the table header.
*-----------------------------------------------------------------------------
*/
-void
-Tcl_HandleTblRelease (headerPtr)
- void_pt headerPtr;
+void
+Tcl_HandleTblRelease (void_pt headerPtr)
{
tblHeader_pt tblHdrPtr = (tblHeader_pt)headerPtr;
* A pointer to the allocated entry (user part).
*-----------------------------------------------------------------------------
*/
-void_pt
-Tcl_HandleAlloc (headerPtr, handlePtr)
- void_pt headerPtr;
- char *handlePtr;
+void_pt
+Tcl_HandleAlloc (void_pt headerPtr, char *handlePtr)
{
tblHeader_pt tblHdrPtr = (tblHeader_pt)headerPtr;
entryHeader_pt entryPtr;
* A pointer to the entry, or NULL if an error occured.
*-----------------------------------------------------------------------------
*/
-void_pt
-Tcl_HandleXlate (interp, headerPtr, handle)
- Tcl_Interp *interp;
- void_pt headerPtr;
- CONST char *handle;
+void_pt
+Tcl_HandleXlate (Tcl_Interp *interp, void_pt headerPtr, CONST char *handle)
{
tblHeader_pt tblHdrPtr = (tblHeader_pt)headerPtr;
entryHeader_pt entryPtr;
* A pointer to the next allocated entry, or NULL if there are not more.
*-----------------------------------------------------------------------------
*/
-void_pt
-Tcl_HandleWalk (headerPtr, walkKeyPtr)
- void_pt headerPtr;
- int *walkKeyPtr;
+void_pt
+Tcl_HandleWalk (void_pt headerPtr, int *walkKeyPtr)
{
tblHeader_pt tblHdrPtr = (tblHeader_pt)headerPtr;
int entryIdx;
* hold the name.
*-----------------------------------------------------------------------------
*/
-void
-Tcl_WalkKeyToHandle (headerPtr, walkKey, handlePtr)
- void_pt headerPtr;
- int walkKey;
- char *handlePtr;
+void
+Tcl_WalkKeyToHandle (void_pt headerPtr, int walkKey, char *handlePtr)
{
tblHeader_pt tblHdrPtr = (tblHeader_pt)headerPtr;
* o entryPtr (I) - Entry to free.
*-----------------------------------------------------------------------------
*/
-void
-Tcl_HandleFree (headerPtr, entryPtr)
- void_pt headerPtr;
- void_pt entryPtr;
+void
+Tcl_HandleFree (void_pt headerPtr, void_pt entryPtr)
{
tblHeader_pt tblHdrPtr = (tblHeader_pt)headerPtr;
entryHeader_pt freeentryPtr;
*-----------------------------------------------------------------------------
*/
-static int
-UseridToUsernameResult (interp, userId)
- Tcl_Interp *interp;
- int userId;
+static int
+UseridToUsernameResult (Tcl_Interp *interp, int userId)
{
struct passwd *pw = getpwuid (userId);
if (pw == NULL) {
return TCL_OK;
}
-static int
-UsernameToUseridResult (interp, userName)
- Tcl_Interp *interp;
- char *userName;
+static int
+UsernameToUseridResult (Tcl_Interp *interp, char *userName)
{
struct passwd *pw = getpwnam (userName);
if (pw == NULL) {
return TCL_OK;
}
-static int
-GroupidToGroupnameResult (interp, groupId)
- Tcl_Interp *interp;
- int groupId;
+static int
+GroupidToGroupnameResult (Tcl_Interp *interp, int groupId)
{
struct group *grp = getgrgid (groupId);
if (grp == NULL) {
return TCL_OK;
}
-static int
-GroupnameToGroupidResult (interp, groupName)
- Tcl_Interp *interp;
- char *groupName;
+static int
+GroupnameToGroupidResult (Tcl_Interp *interp, char *groupName)
{
struct group *grp = getgrnam (groupName);
if (grp == NULL) {
}
int
-Tcl_IdCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_IdCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
struct passwd *pw;
struct group *grp;
* These should be take from an include file, but it got to be such a mess
* to get the include files right that they are here for good measure.
*/
-struct tm *gmtime ();
-struct tm *localtime ();
+struct tm *gmtime (const time_t*);
+struct tm *localtime (const time_t*);
#ifndef MAXINT
# define BITSPERBYTE 8
* TCL_ERROR - If the list has an invalid format.
*-----------------------------------------------------------------------------
*/
-static int
-CompareKeyListField (interp, fieldName, field, valuePtr, valueSizePtr)
- Tcl_Interp *interp;
- CONST char *fieldName;
- CONST char *field;
- char **valuePtr;
- int *valueSizePtr;
+static int
+CompareKeyListField (Tcl_Interp *interp, CONST char *fieldName, CONST char *field, char **valuePtr, int *valueSizePtr)
{
char *elementPtr, *nextPtr;
int fieldNameSize, elementSize;
* Standard Tcl result.
*-----------------------------------------------------------------------------
*/
-static int
-SplitAndFindField (interp, fieldName, keyedList, fieldInfoPtr)
- Tcl_Interp *interp;
- CONST char *fieldName;
- CONST char *keyedList;
- fieldInfo_t *fieldInfoPtr;
+static int
+SplitAndFindField (Tcl_Interp *interp, CONST char *fieldName, CONST char *keyedList, fieldInfo_t *fieldInfoPtr)
{
int idx, result;
- if (fieldName == '\0') {
+ if (fieldName == NULL) {
interp->result = "null key not allowed";
return TCL_ERROR;
}
* TCL_ERROR - If an error occured.
*-----------------------------------------------------------------------------
*/
-int
-Tcl_GetKeyedListKeys (interp, subFieldName, keyedList, keyesArgcPtr,
- keyesArgvPtr)
- Tcl_Interp *interp;
- CONST char *subFieldName;
- CONST char *keyedList;
- int *keyesArgcPtr;
- char ***keyesArgvPtr;
+int
+Tcl_GetKeyedListKeys (Tcl_Interp *interp, CONST char *subFieldName, CONST char *keyedList, int *keyesArgcPtr, char ***keyesArgvPtr)
{
char *scanPtr, *subFieldList;
int result, keyCount, totalKeySize, idx;
* TCL_ERROR - If an error occured.
*-----------------------------------------------------------------------------
*/
-int
-Tcl_GetKeyedListField (interp, fieldName, keyedList, fieldValuePtr)
- Tcl_Interp *interp;
- CONST char *fieldName;
- CONST char *keyedList;
- char **fieldValuePtr;
+int
+Tcl_GetKeyedListField (Tcl_Interp *interp, CONST char *fieldName, CONST char *keyedList, char **fieldValuePtr)
{
char *nameSeparPtr, *scanPtr, *valuePtr;
int valueSize, result;
- if (fieldName == '\0') {
+ if (fieldName == NULL) {
interp->result = "null key not allowed";
return TCL_ERROR;
}
*-----------------------------------------------------------------------------
*/
char *
-Tcl_SetKeyedListField (interp, fieldName, fieldValue, keyedList)
- Tcl_Interp *interp;
- CONST char *fieldName;
- CONST char *fieldValue;
- CONST char *keyedList;
+Tcl_SetKeyedListField (Tcl_Interp *interp, CONST char *fieldName, CONST char *fieldValue, CONST char *keyedList)
{
char *nameSeparPtr;
char *newField = NULL, *newList;
*-----------------------------------------------------------------------------
*/
char *
-Tcl_DeleteKeyedListField (interp, fieldName, keyedList)
- Tcl_Interp *interp;
- CONST char *fieldName;
- CONST char *keyedList;
+Tcl_DeleteKeyedListField (Tcl_Interp *interp, CONST char *fieldName, CONST char *keyedList)
{
char *nameSeparPtr;
char *newList;
*----------------------------------------------------------------------------
*/
int
-Tcl_KeyldelCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_KeyldelCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
char *keyedList, *newList;
int listArgc, fieldIdx, idx;
*-----------------------------------------------------------------------------
*/
int
-Tcl_KeylgetCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_KeylgetCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
char *keyedList;
char *fieldValue;
/*
* Handle retrieving a value for a specified key.
*/
- if (argv [2] == '\0') {
+ if (argv [2] == NULL) {
interp->result = "null key not allowed";
return TCL_ERROR;
}
*-----------------------------------------------------------------------------
*/
int
-Tcl_KeylkeysCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_KeylkeysCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
char *keyedList, **keyesArgv;
int result, keyesArgc;
*-----------------------------------------------------------------------------
*/
int
-Tcl_KeylsetCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_KeylsetCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
char *keyedList, *newList, *prevList;
char *varPtr;
* A standard Tcl result.
*-----------------------------------------------------------------------------
*/
-static int
-EvalFilePart (interp, fileName, offset, length)
- Tcl_Interp *interp;
- char *fileName;
- long offset;
- unsigned length;
+static int
+EvalFilePart (Tcl_Interp *interp, char *fileName, long offset, unsigned length)
{
Interp *iPtr = (Interp *) interp;
int fileNum, result;
*-----------------------------------------------------------------------------
*/
static char *
-MakeAbsFile (interp, fileName, buffer, bufferSize)
- Tcl_Interp *interp;
- char *fileName;
- char *buffer;
- int bufferSize;
+MakeAbsFile (Tcl_Interp *interp, char *fileName, char *buffer, int bufferSize)
{
char curDir [MAXPATHLEN+1];
char *pathName;
* TCL_OK or TCL_ERROR.
*-----------------------------------------------------------------------------
*/
-static int
-GenerateFileId (interp, filePath, fileId)
- Tcl_Interp *interp;
- char *filePath;
- fileId_t fileId;
+static int
+GenerateFileId (Tcl_Interp *interp, char *filePath, fileId_t fileId)
{
struct stat statInfo;
* TCL_OK or TCL_ERROR.
*-----------------------------------------------------------------------------
*/
-static int
-SetTCLENVFileIdEntry (interp, fileId, filePath)
- Tcl_Interp *interp;
- fileId_t fileId;
- char *filePath;
+static int
+SetTCLENVFileIdEntry (Tcl_Interp *interp, fileId_t fileId, char *filePath)
{
if (Tcl_SetVar2 (interp, "TCLENV", fileId, filePath,
* TRUE is returned if the entry exists, FALSE if it doesn't.
*-----------------------------------------------------------------------------
*/
-static int
-CheckTCLENVFileIdEntry (interp, filePath)
- Tcl_Interp *interp;
- char *filePath;
+static int
+CheckTCLENVFileIdEntry (Tcl_Interp *interp, char *filePath)
{
fileId_t fileId;
*-----------------------------------------------------------------------------
*/
static char *
-GetTCLENVFileIdEntry (interp, fileId)
- Tcl_Interp *interp;
- fileId_t fileId;
+GetTCLENVFileIdEntry (Tcl_Interp *interp, fileId_t fileId)
{
char *filePath;
* and should be skipped.
*-----------------------------------------------------------------------------
*/
-static int
-SetTCLENVPkgEntry (interp, packageName, fileId, offset, length)
- Tcl_Interp *interp;
- char *packageName;
- fileId_t fileId;
- char *offset;
- char *length;
+static int
+SetTCLENVPkgEntry (Tcl_Interp *interp, char *packageName, fileId_t fileId, char *offset, char *length)
{
int nameLen;
char indexBuffer [64], *indexPtr;
* TCL_OK or TCL_ERROR.
*-----------------------------------------------------------------------------
*/
-static int
-GetTCLENVPkgEntry (interp, packageName, fileId, offsetPtr, lengthPtr)
- Tcl_Interp *interp;
- char *packageName;
- fileId_t fileId;
- long *offsetPtr;
- unsigned *lengthPtr;
+static int
+GetTCLENVPkgEntry (Tcl_Interp *interp, char *packageName, fileId_t fileId, long *offsetPtr, unsigned *lengthPtr)
{
int nameLen, pkgDataArgc;
char indexBuffer [64], *indexPtr;
* TCL_OK or TCL_ERROR.
*-----------------------------------------------------------------------------
*/
-static int
-SetTCLENVProcEntry (interp, procName, type, location)
- Tcl_Interp *interp;
- char *procName;
- char *type;
- char *location;
+static int
+SetTCLENVProcEntry (Tcl_Interp *interp, char *procName, char *type, char *location)
{
int nameLen;
char indexBuffer [64], *indexPtr;
* TCL_OK or TCL_ERROR.
*-----------------------------------------------------------------------------
*/
-static int
-GetTCLENVProcEntry (interp, procName, typePtr, locationPtr)
- Tcl_Interp *interp;
- char *procName;
- char *typePtr;
- char **locationPtr;
+static int
+GetTCLENVProcEntry (Tcl_Interp *interp, char *procName, char *typePtr, char **locationPtr)
{
int nameLen, procDataArgc;
char indexBuffer [64], *indexPtr;
* TCL_OK or TCL_ERROR.
*-----------------------------------------------------------------------------
*/
-static int
-ProcessIndexFile (interp, tlibFilePath, tndxFilePath)
- Tcl_Interp *interp;
- char *tlibFilePath;
- char *tndxFilePath;
+static int
+ProcessIndexFile (Tcl_Interp *interp, char *tlibFilePath, char *tndxFilePath)
{
fileId_t fileId;
FILE *indexFilePtr;
* TCL_OK or TCL_ERROR.
*-----------------------------------------------------------------------------
*/
-static int
-BuildPackageIndex (interp, tlibFilePath)
- Tcl_Interp *interp;
- char *tlibFilePath;
+static int
+BuildPackageIndex (Tcl_Interp *interp, char *tlibFilePath)
{
char *cmdPtr, *initCmd;
* TCL_OK or TCL_ERROR.
*-----------------------------------------------------------------------------
*/
-static int
-LoadPackageIndex (interp, tlibFilePath, pathLen, dirLen)
- Tcl_Interp *interp;
- char *tlibFilePath;
- int pathLen;
- int dirLen;
+static int
+LoadPackageIndex (Tcl_Interp *interp, char *tlibFilePath, int pathLen, int dirLen)
{
char *tndxFilePath, tndxPathBuf [64], *msg;
struct stat tlibStat;
* TCL_OK or TCL_ERROR.
*-----------------------------------------------------------------------------
*/
-static int
-LoadOusterIndex (interp, indexFilePath, dirLen)
- Tcl_Interp *interp;
- char *indexFilePath;
- int dirLen;
+static int
+LoadOusterIndex (Tcl_Interp *interp, char *indexFilePath, int dirLen)
{
FILE *indexFilePtr;
fileId_t fileId;
* A standard Tcl result.
*-----------------------------------------------------------------------------
*/
-static int
-LoadDirIndexes (interp, dirName)
- Tcl_Interp *interp;
- char *dirName;
+static int
+LoadDirIndexes (Tcl_Interp *interp, char *dirName)
{
DIR *dirPtr;
struct dirent *entryPtr;
*
*-----------------------------------------------------------------------------
*/
-static int
-LoadPackageIndexes (interp, path)
- Tcl_Interp *interp;
- char *path;
+static int
+LoadPackageIndexes (Tcl_Interp *interp, char *path)
{
char *dirName, dirNameBuf [64];
int idx, dirLen, pathArgc, status;
*
*-----------------------------------------------------------------------------
*/
-static int
-LoadProc (interp, procName, foundPtr)
- Tcl_Interp *interp;
- char *procName;
- int *foundPtr;
+static int
+LoadProc (Tcl_Interp *interp, char *procName, int *foundPtr)
{
Interp *iPtr = (Interp *) interp;
char type, *location, *filePath, *cmdPtr, cmdBuf [80];
*-----------------------------------------------------------------------------
*/
int
-Tcl_LoadlibindexCmd (dummy, interp, argc, argv)
- ClientData dummy;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_LoadlibindexCmd (
+ ClientData dummy,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
char *pathName, pathNameBuf [64];
int pathLen, dirLen;
*-----------------------------------------------------------------------------
*/
int
-Tcl_Demand_loadCmd (dummy, interp, argc, argv)
- ClientData dummy;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_Demand_loadCmd (
+ ClientData dummy,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int found;
char *path, *msg;
*-----------------------------------------------------------------------------
*/
int
-Tcl_LvarcatCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_LvarcatCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int listArgc, idx, listIdx;
char **listArgv;
*-----------------------------------------------------------------------------
*/
int
-Tcl_LvarpopCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_LvarpopCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int listArgc, listIdx, idx;
char **listArgv;
*-----------------------------------------------------------------------------
*/
int
-Tcl_LvarpushCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_LvarpushCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int listArgc, listIdx, idx;
char **listArgv;
*-----------------------------------------------------------------------------
*/
int
-Tcl_LemptyCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_LemptyCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
char *scanPtr;
*-----------------------------------------------------------------------------
*/
int
-Tcl_MaxCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_MaxCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
double value, maxValue = -MAXDOUBLE;
int idx, maxIdx = 1;
*-----------------------------------------------------------------------------
*/
int
-Tcl_MinCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_MinCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
double value, minValue = MAXDOUBLE;
int idx, minIdx = 1;
#endif
static int
-
-ReallyRandom (myRange)
- int myRange;
+ReallyRandom (int myRange)
{
int maxMultiple, rnum;
*-----------------------------------------------------------------------------
*/
int
-Tcl_RandomCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_RandomCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
unsigned range;
*-----------------------------------------------------------------------------
*/
static nl_catd
-catopen (name, oflag)
- char *name;
- int oflag;
+catopen (
+ char *name,
+ int oflag
+)
{
return (nl_catd) -1;
}
*-----------------------------------------------------------------------------
*/
static char *
-catgets (catd, set_num, msg_num, defaultStr)
- nl_catd catd;
- int set_num, msg_num;
- char *defaultStr;
+catgets (
+ nl_catd catd,
+ int set_num,
+ int msg_num,
+ char *defaultStr
+)
{
return defaultStr;
}
*-----------------------------------------------------------------------------
*/
static int
-catclose (catd)
- nl_catd catd;
+catclose (nl_catd catd)
{
return -1;
}
*
*-----------------------------------------------------------------------------
*/
-static int
-ParseFailOption (interp, optionStr, failPtr)
- Tcl_Interp *interp;
- CONST char *optionStr;
- int *failPtr;
+static int
+ParseFailOption (Tcl_Interp *interp, CONST char *optionStr, int *failPtr)
{
if (STREQU ("-fail", ((char *) optionStr)))
*failPtr = TRUE;
*
*-----------------------------------------------------------------------------
*/
-static int
-CatOpFailed (interp, errorMsg)
- Tcl_Interp *interp;
- CONST char *errorMsg;
+static int
+CatOpFailed (Tcl_Interp *interp, CONST char *errorMsg)
{
#ifdef TCL_HAVE_CATGETS
*-----------------------------------------------------------------------------
*/
static int
-Tcl_CatopenCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_CatopenCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int fail;
nl_catd catDesc;
*-----------------------------------------------------------------------------
*/
static int
-Tcl_CatgetsCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_CatgetsCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
nl_catd *catDescPtr;
int msgSetNum, msgNum;
*-----------------------------------------------------------------------------
*/
static int
-Tcl_CatcloseCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_CatcloseCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int fail;
nl_catd *catDescPtr;
*-----------------------------------------------------------------------------
*/
static void
-MsgCatCleanUp (clientData)
- ClientData clientData;
+MsgCatCleanUp (
+ ClientData clientData
+)
{
nl_catd *catDescPtr;
int walkKey;
*
*-----------------------------------------------------------------------------
*/
-void
-Tcl_InitMsgCat (interp)
- Tcl_Interp *interp;
+void
+Tcl_InitMsgCat (Tcl_Interp *interp)
{
if (msgCatTblPtr == NULL)
*-----------------------------------------------------------------------------
*/
int
-Tcl_ExeclCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_ExeclCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
#define STATIC_ARG_SIZE 12
char *staticArgv [STATIC_ARG_SIZE];
*-----------------------------------------------------------------------------
*/
int
-Tcl_ForkCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_ForkCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int pid;
*-----------------------------------------------------------------------------
*/
int
-Tcl_WaitCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_WaitCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
WAIT_STATUS_TYPE status;
int pid, returnedPid;
Tcl_Interp *interp,
int evalLevel,
char *command,
- int (*cmdProc)(),
+ int (*cmdProc)(int *, Tcl_Interp *, int, char **),
ClientData cmdClientData,
int argc,
char **argv));
* executing at.
*-----------------------------------------------------------------------------
*/
-static void
-ProcEntry (infoPtr, procName, procLevel, evalLevel)
- profInfo_t *infoPtr;
- char *procName;
- int procLevel;
- int evalLevel;
+static void
+ProcEntry (profInfo_t *infoPtr, char *procName, int procLevel, int evalLevel)
{
profStackEntry_t *entryPtr;
* o infoPtr (I/O) - The global profiling info.
*-----------------------------------------------------------------------------
*/
-static void
-ProcPopEntry (infoPtr)
- profInfo_t *infoPtr;
+static void
+ProcPopEntry (profInfo_t *infoPtr)
{
profStackEntry_t *entryPtr = infoPtr->stackPtr;
profStackEntry_t *scanPtr;
* o evalLevel (I) - Eval call level to return to (zero to clear stack).
*-----------------------------------------------------------------------------
*/
-static void
-StackSync (infoPtr, procLevel, evalLevel)
- profInfo_t *infoPtr;
- int procLevel;
- int evalLevel;
+static void
+StackSync (profInfo_t *infoPtr, int procLevel, int evalLevel)
{
saveStackEntry_t *saveEntryPtr;
* o procLevel (I) - The upleveled procedure call level.
*-----------------------------------------------------------------------------
*/
-static void
-DoUplevel (infoPtr, procLevel)
- profInfo_t *infoPtr;
- int procLevel;
+static void
+DoUplevel (profInfo_t *infoPtr, int procLevel)
{
profStackEntry_t *scanPtr, *bottomPtr;
saveStackEntry_t *saveEntryPtr;
*
*-----------------------------------------------------------------------------
*/
-static void
-ProfTraceRoutine (clientData, interp, evalLevel, command, cmdProc,
- cmdClientData, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int evalLevel;
- char *command;
- int (*cmdProc)();
- ClientData cmdClientData;
- int argc;
- char **argv;
+static void
+ProfTraceRoutine (ClientData clientData, Tcl_Interp *interp, int evalLevel, char *command, int (*cmdProc)(int *, Tcl_Interp *, int, char **), ClientData cmdClientData, int argc, char **argv)
{
Interp *iPtr = (Interp *) interp;
struct tms cpuTimes;
* o infoPtr (I/O) - The global profiling info.
*-----------------------------------------------------------------------------
*/
-static void
-CleanDataTable (infoPtr)
- profInfo_t *infoPtr;
+static void
+CleanDataTable (profInfo_t *infoPtr)
{
Tcl_HashEntry *hashEntryPtr;
Tcl_HashSearch searchCookie;
* o infoPtr (I/O) - The global profiling info.
*-----------------------------------------------------------------------------
*/
-static void
-DeleteProfTrace (infoPtr)
- profInfo_t *infoPtr;
+static void
+DeleteProfTrace (profInfo_t *infoPtr)
{
Tcl_DeleteTrace (infoPtr->interp, infoPtr->traceHolder);
infoPtr->traceHolder = NULL;
* Standard Tcl command results
*-----------------------------------------------------------------------------
*/
-static int
-DumpTableData (interp, infoPtr, varName)
- Tcl_Interp *interp;
- profInfo_t *infoPtr;
- char *varName;
+static int
+DumpTableData (Tcl_Interp *interp, profInfo_t *infoPtr, char *varName)
{
Tcl_HashEntry *hashEntryPtr;
Tcl_HashSearch searchCookie;
*
*-----------------------------------------------------------------------------
*/
-static int
-Tcl_ProfileCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+static int
+Tcl_ProfileCmd (ClientData clientData, Tcl_Interp *interp, int argc, char **argv)
{
Interp *iPtr = (Interp *) interp;
profInfo_t *infoPtr = (profInfo_t *) clientData;
*
*-----------------------------------------------------------------------------
*/
-static void
-CleanUpProfMon (clientData)
- ClientData clientData;
+static void
+CleanUpProfMon (ClientData clientData)
{
profInfo_t *infoPtr = (profInfo_t *) clientData;
*
*-----------------------------------------------------------------------------
*/
-void
-Tcl_InitProfile (interp)
- Tcl_Interp *interp;
+void
+Tcl_InitProfile (Tcl_Interp *interp)
{
profInfo_t *infoPtr;
static char *
-BoyerMooreCompile (pat, patlen)
- char *pat;
- int patlen;
+BoyerMooreCompile (char *pat, int patlen)
{
register unsigned char *p, *t;
register unsigned i, p1, j, *delta;
}
static char *
-BoyerMooreExecute (text, textlen, compPtr, patLenP)
- char *text;
- unsigned textlen;
- char *compPtr;
- unsigned *patLenP;
+BoyerMooreExecute (char *text, unsigned textlen, char *compPtr, unsigned *patLenP)
{
register unsigned char *p, *t;
struct compiled_search_struct *csp =
*
*-----------------------------------------------------------------------------
*/
-void
-Tcl_RegExpClean (regExpPtr)
- regexp_pt regExpPtr;
+void
+Tcl_RegExpClean (regexp_pt regExpPtr)
{
if (regExpPtr->progPtr != NULL)
ckfree ((char *) regExpPtr->progPtr);
* into the regular expression code.
*-----------------------------------------------------------------------------
*/
-static int
-FindNonRegExpSubStr (expression, subStrPtrPtr)
- char *expression;
- char **subStrPtrPtr;
+static int
+FindNonRegExpSubStr (char *expression, char **subStrPtrPtr)
{
register char *subStrPtr = NULL;
register char subStrLen = 0;
* Standard TCL results.
*-----------------------------------------------------------------------------
*/
-int
-Tcl_RegExpCompile (interp, regExpPtr, expression, flags)
- Tcl_Interp *interp;
- regexp_pt regExpPtr;
- char *expression;
- int flags;
+int
+Tcl_RegExpCompile (Tcl_Interp *interp, regexp_pt regExpPtr, char *expression, int flags)
{
char *expBuf;
int anyMeta;
*
*-----------------------------------------------------------------------------
*/
-int
-Tcl_RegExpExecute (interp, regExpPtr, matchStrIn, matchStrLower)
- Tcl_Interp *interp;
- regexp_pt regExpPtr;
- char *matchStrIn;
- char *matchStrLower;
+int
+Tcl_RegExpExecute (Tcl_Interp *interp, regexp_pt regExpPtr, char *matchStrIn, char *matchStrLower)
{
char *matchStr;
int result;
#endif
extern
-double floor ();
+double floor (double);
#ifdef TCL_USE_BZERO_MACRO
# define bzero(to,length) memset(to,'\0',length)
* The number of files in the list, or -1 if an error occured.
*-----------------------------------------------------------------------------
*/
-static int
-ParseSelectFileList (interp, handleList, fileDescSetPtr, fileDescListPtr,
- maxFileIdPtr)
- Tcl_Interp *interp;
- char *handleList;
- fd_set *fileDescSetPtr;
- FILE ***fileDescListPtr;
- int *maxFileIdPtr;
+static int
+ParseSelectFileList (Tcl_Interp *interp, char *handleList, fd_set *fileDescSetPtr, FILE ***fileDescListPtr, int *maxFileIdPtr)
{
int handleCnt, idx;
char **handleArgv;
* TRUE if any where found that had pending data, FALSE if none were found.
*-----------------------------------------------------------------------------
*/
-static int
-FindPendingData (fileDescCnt, fileDescList, fileDescSetPtr)
- int fileDescCnt;
- FILE **fileDescList;
- fd_set *fileDescSetPtr;
+static int
+FindPendingData (int fileDescCnt, FILE **fileDescList, fd_set *fileDescSetPtr)
{
int idx, found = FALSE;
*-----------------------------------------------------------------------------
*/
static char *
-ReturnSelectedFileList (fileDescSetPtr, fileDescSet2Ptr, fileDescCnt,
- fileDescList)
- fd_set *fileDescSetPtr;
- fd_set *fileDescSet2Ptr;
- int fileDescCnt;
- FILE **fileDescList;
+ReturnSelectedFileList (fd_set *fileDescSetPtr, fd_set *fileDescSet2Ptr, int fileDescCnt, FILE **fileDescList)
{
int idx, handleCnt, fileNum;
char *fileHandleList;
*-----------------------------------------------------------------------------
*/
int
-Tcl_SelectCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_SelectCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
fd_set readFdSet, writeFdSet, exceptFdSet;
*
*-----------------------------------------------------------------------------
*/
-static int
-SigNameToNum (sigName)
- char *sigName;
+static int
+SigNameToNum (char *sigName)
{
char sigNameUp [SIG_NAME_MAX+1]; /* Upshifted signal name */
char *sigNamePtr;
*-----------------------------------------------------------------------------
*/
int
-Tcl_KillCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_KillCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int signalNum, idx, procId, procArgc, result = TCL_ERROR;
char **procArgv;
* SIG_ERR is returned (check errno);
*-----------------------------------------------------------------------------
*/
-static signalProcPtr_t
-GetSignalState (signalNum)
- int signalNum;
+static signalProcPtr_t
+GetSignalState (int signalNum)
{
#ifdef TCL_POSIX_SIG
struct sigaction currentState;
* TRUE if ok, FALSE if an error (check errno).
*-----------------------------------------------------------------------------
*/
-static int
-SetSignalAction (signalNum, sigFunc)
- int signalNum;
- signalProcPtr_t sigFunc;
+static int
+SetSignalAction (int signalNum, signalProcPtr_t sigFunc)
{
#ifdef TCL_POSIX_SIG
struct sigaction newState;
* o signalsReceived (O) - The count of each signal that was received.
*-----------------------------------------------------------------------------
*/
-static SIG_PROC_RET_TYPE
-TclSignalTrap (signalNum)
- int signalNum;
+static SIG_PROC_RET_TYPE
+TclSignalTrap (int signalNum)
{
/*
* Set flags that are checked by the eval loop.
* TCL_OK or TCL_ERROR.
*-----------------------------------------------------------------------------
*/
-static int
-EvalTrapCode (interp, signalNum, command)
- Tcl_Interp *interp;
- int signalNum;
- char *command;
+static int
+EvalTrapCode (Tcl_Interp *interp, int signalNum, char *command)
{
Interp *iPtr = (Interp *) interp;
char *signalName;
* o signalsReceived (O) - The count of each signal that was received.
*-----------------------------------------------------------------------------
*/
-void
-Tcl_ResetSignals ()
+void
+Tcl_ResetSignals (void)
{
int signalNum;
* a signal occured.
*-----------------------------------------------------------------------------
*/
-int
-Tcl_CheckForSignal (interp, cmdResultCode)
- Tcl_Interp *interp;
- int cmdResultCode;
+int
+Tcl_CheckForSignal (Tcl_Interp *interp, int cmdResultCode)
{
char *savedResult;
int signalNum, result, sigCnt, retErrorForSignal = -1;
* The number of signals converted, or -1 if an error occures.
*-----------------------------------------------------------------------------
*/
-static int
-ParseSignalList (interp, signalListStr, signalList)
- Tcl_Interp *interp;
- char *signalListStr;
- int signalList [];
+static int
+ParseSignalList (Tcl_Interp *interp, char *signalListStr, int signalList[])
{
char **signalListArgv;
int signalListSize, signalNum, idx;
*-----------------------------------------------------------------------------
*/
static char *
-SignalBlocked (interp, signalNum)
- Tcl_Interp *interp;
- int signalNum;
+SignalBlocked (Tcl_Interp *interp, int signalNum)
{
#ifdef TCL_POSIX_SIG
int idx;
* TCL_OK or TCL_ERROR, with error message in interp.
*-----------------------------------------------------------------------------
*/
-static int
-GetSignalStates (interp, signalListSize, signalList)
- Tcl_Interp *interp;
- int signalListSize;
- int signalList [MAXSIG];
+static int
+GetSignalStates (Tcl_Interp *interp, int signalListSize, int signalList[MAXSIG])
{
int idx, signalNum, actuallyDone = -1;
char *stateKeyedList [MAXSIG];
* TCL_OK or TCL_ERROR, with error message in interp.
*-----------------------------------------------------------------------------
*/
-static int
-SetSignalStates (interp, signalListSize, signalList, actionFunc, command)
- Tcl_Interp *interp;
- int signalListSize;
- int signalList [MAXSIG];
- signalProcPtr_t actionFunc;
- char *command;
+static int
+SetSignalStates (Tcl_Interp *interp, int signalListSize, int signalList[MAXSIG], signalProcPtr_t actionFunc, char *command)
{
int idx, signalNum, commandLen;
* TCL_OK or TCL_ERROR, with error message in interp.
*-----------------------------------------------------------------------------
*/
-static int
-BlockSignals (interp, action, signalListSize, signalList)
- Tcl_Interp *interp;
- int action;
- int signalListSize;
- int signalList [MAXSIG];
+static int
+BlockSignals (Tcl_Interp *interp, int action, int signalListSize, int signalList[MAXSIG])
{
#ifdef TCL_POSIX_SIG
int idx;
* Signal handling states may be changed.
*-----------------------------------------------------------------------------
*/
-static int
-Tcl_SignalCmd (clientData, interp, argc, argv)
- char *clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+static int
+Tcl_SignalCmd (int *clientData, Tcl_Interp *interp, int argc, char **argv)
{
int signalListSize, signalNum, idx;
int signalList [MAXSIG], actionClass;
*-----------------------------------------------------------------------------
*/
static void
-SignalCmdCleanUp (clientData)
- ClientData clientData;
+SignalCmdCleanUp (
+ ClientData clientData
+)
{
int idx;
*
*-----------------------------------------------------------------------------
*/
-void
-Tcl_InitSignalHandling (interp)
- Tcl_Interp *interp;
+void
+Tcl_InitSignalHandling (Tcl_Interp *interp)
{
int idx;
signalTrapCmds [idx] = NULL;
}
Tcl_CreateCommand (interp, "kill", Tcl_KillCmd, (ClientData)NULL,
- (void (*)())NULL);
+ (void (*)(int *))NULL);
Tcl_CreateCommand (interp, "signal", Tcl_SignalCmd, (ClientData)NULL,
SignalCmdCleanUp);
/*
*-----------------------------------------------------------------------------
*/
int
-Tcl_CindexCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_CindexCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
long index;
*-----------------------------------------------------------------------------
*/
int
-Tcl_ClengthCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_ClengthCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
if (argc != 2) {
*-----------------------------------------------------------------------------
*/
int
-Tcl_CrangeCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_CrangeCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
long fullLen, first;
long subLen;
*-----------------------------------------------------------------------------
*/
int
-Tcl_ReplicateCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_ReplicateCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
long repCount;
register char *srcPtr, *scanPtr, *newPtr;
*/
#define MAX_EXPANSION 255
-static unsigned int
-ExpandString (s, buf)
- unsigned char *s;
- unsigned char buf[];
+static unsigned int
+ExpandString (unsigned char *s, unsigned char buf[])
{
int i, j;
*-----------------------------------------------------------------------------
*/
int
-Tcl_TranslitCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_TranslitCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
unsigned char from [MAX_EXPANSION+1];
unsigned char to [MAX_EXPANSION+1];
*-----------------------------------------------------------------------------
*/
int
-Tcl_CtypeCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_CtypeCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
register char *class;
register char *scanPtr = argv [2];
* o exitCode - The code to pass to exit.
*-----------------------------------------------------------------------------
*/
-void
-Tcl_ErrorAbort (interp, exitCode)
- Tcl_Interp *interp;
- int exitCode;
+void
+Tcl_ErrorAbort (Tcl_Interp *interp, int exitCode)
{
char *errorStack;
* o tclParmsPtr - Results of the parsed Tcl shell command line.
*-----------------------------------------------------------------------------
*/
-static void
-ParseCmdArgs (argc, argv, tclParmsPtr)
- int argc;
- char **argv;
- tclParms_t *tclParmsPtr;
+static void
+ParseCmdArgs (int argc, char **argv, tclParms_t *tclParmsPtr)
{
char *scanPtr, *programName;
int programNameLen;
* TCL_OK if all is ok, TCL_ERROR if a error occured.
*-----------------------------------------------------------------------------
*/
-static int
-FindDefaultFile (interp, defaultFile)
- Tcl_Interp *interp;
- char *defaultFile;
+static int
+FindDefaultFile (Tcl_Interp *interp, char *defaultFile)
{
char *defaultFileToUse;
struct stat statBuf;
* TCL_OK if all is ok, TCL_ERROR if an error occured.
*-----------------------------------------------------------------------------
*/
-static int
-ProcessDefaultFile (interp, defaultFile)
- Tcl_Interp *interp;
- char *defaultFile;
+static int
+ProcessDefaultFile (Tcl_Interp *interp, char *defaultFile)
{
char *defaultFileToUse;
* TCL_OK if all is ok, TCL_ERROR if an error occured.
*-----------------------------------------------------------------------------
*/
-static int
-ProcessInitFile (interp)
- Tcl_Interp *interp;
+static int
+ProcessInitFile (Tcl_Interp *interp)
{
char *initFile;
* TCL_OK if all is ok, TCL_ERROR if an error occured.
*-----------------------------------------------------------------------------
*/
-int
-Tcl_ShellEnvInit (interp, options, programName, argc, argv, interactive,
- defaultFile)
- Tcl_Interp *interp;
- unsigned options;
- CONST char *programName;
- int argc;
- CONST char **argv;
- int interactive;
- CONST char *defaultFile;
+int
+Tcl_ShellEnvInit (Tcl_Interp *interp, unsigned options, CONST char *programName, int argc, CONST char **argv, int interactive, CONST char *defaultFile)
{
int result = TCL_OK;
char *defaultFilePath;
* must be set before calling thus routine if special values are desired.
*-----------------------------------------------------------------------------
*/
-void
-Tcl_Startup (interp, argc, argv, defaultFile, options)
- Tcl_Interp *interp;
- int argc;
- CONST char **argv;
- CONST char *defaultFile;
- unsigned options;
+void
+Tcl_Startup (Tcl_Interp *interp, int argc, CONST char **argv, CONST char *defaultFile, unsigned options)
{
char *cmdBuf;
tclParms_t tclParms;
* If set to be a pointer to the procedure Tcl_RecordAndEval, will link in
* history. Should be set by main.
*/
-extern int (*tclShellCmdEvalProc) ();
+extern int (*tclShellCmdEvalProc) (Tcl_Interp *, char *, int, char **);
/*
* If non-zero, a signal was received. Normally signals are handled in
Tcl_CommandLoop _ANSI_ARGS_((Tcl_Interp *interp,
FILE *inFile,
FILE *outFile,
- int (*evalProc) (),
+ int (*evalProc) (Tcl_Interp *, char *, int, char**),
unsigned options));
EXTERN Tcl_Interp *
#define TCL_USECS_PER_SEC (1000L * 1000L)
extern
-double floor ();
+double floor (double);
extern
-double ceil ();
+double ceil (double);
\f
/*
*-----------------------------------------------------------------------------
*-----------------------------------------------------------------------------
*/
int
-Tcl_AlarmCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_AlarmCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
#ifdef TCL_NO_ITIMER
double seconds;
*-----------------------------------------------------------------------------
*/
int
-Tcl_SleepCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_SleepCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
unsigned time;
*-----------------------------------------------------------------------------
*/
int
-Tcl_SystemCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_SystemCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int exitCode;
*-----------------------------------------------------------------------------
*/
int
-Tcl_TimesCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_TimesCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
struct tms tm;
*-----------------------------------------------------------------------------
*/
int
-Tcl_UmaskCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_UmaskCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int mask;
*-----------------------------------------------------------------------------
*/
int
-Tcl_LinkCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_LinkCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
char *tmppath, *srcpath, *destpath;
*-----------------------------------------------------------------------------
*/
int
-Tcl_UnlinkCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_UnlinkCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int idx, fileArgc;
char **fileArgv, *fileName;
*-----------------------------------------------------------------------------
*/
int
-Tcl_MkdirCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_MkdirCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int idx, dirArgc, result;
char **dirArgv, *scanPtr;
*-----------------------------------------------------------------------------
*/
int
-Tcl_RmdirCmd (clientData, interp, argc, argv)
- ClientData clientData;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+Tcl_RmdirCmd (
+ ClientData clientData,
+ Tcl_Interp *interp,
+ int argc,
+ char **argv
+)
{
int idx, dirArgc;
char **dirArgv, *dirName;
*/
char *tclXWrongArgs = "wrong # args: ";
-extern double pow ();
+extern double pow (double, double);
\f
/*
* Returns 1 if the string was a valid number, 0 invalid.
*-----------------------------------------------------------------------------
*/
-int
-Tcl_StrToLong (string, base, longPtr)
- CONST char *string;
- int base;
- long *longPtr;
+int
+Tcl_StrToLong (CONST char *string, int base, long *longPtr)
{
char *end;
long num;
* Returns 1 if the string was a valid number, 0 invalid.
*-----------------------------------------------------------------------------
*/
-int
-Tcl_StrToInt (string, base, intPtr)
- CONST char *string;
- int base;
- int *intPtr;
+int
+Tcl_StrToInt (CONST char *string, int base, int *intPtr)
{
char *end;
int num;
* Returns 1 if the string was a valid number, 0 invalid.
*-----------------------------------------------------------------------------
*/
-int
-Tcl_StrToUnsigned (string, base, unsignedPtr)
- CONST char *string;
- int base;
- unsigned *unsignedPtr;
+int
+Tcl_StrToUnsigned (CONST char *string, int base, unsigned *unsignedPtr)
{
char *end;
unsigned long num;
* TRUE if the number is ok, FALSE if it is illegal.
*-----------------------------------------------------------------------------
*/
-int
-Tcl_StrToDouble (string, doublePtr)
- CONST char *string;
- double *doublePtr;
+int
+Tcl_StrToDouble (CONST char *string, double *doublePtr)
{
char *end;
double num;
*-----------------------------------------------------------------------------
*/
char *
-Tcl_DownShift (targetStr, sourceStr)
- char *targetStr;
- CONST char *sourceStr;
+Tcl_DownShift (char *targetStr, CONST char *sourceStr)
{
register char theChar;
*-----------------------------------------------------------------------------
*/
char *
-Tcl_UpShift (targetStr, sourceStr)
- char *targetStr;
- CONST char *sourceStr;
+Tcl_UpShift (char *targetStr, CONST char *sourceStr)
{
register char theChar;
*
*-----------------------------------------------------------------------------
*/
-void
-Tcl_ExpandDynBuf (dynBufPtr, appendSize)
- dynamicBuf_t *dynBufPtr;
- int appendSize;
+void
+Tcl_ExpandDynBuf (dynamicBuf_t *dynBufPtr, int appendSize)
{
int newSize, minSize;
char *oldBufPtr;
*
*-----------------------------------------------------------------------------
*/
-void
-Tcl_DynBufInit (dynBufPtr)
- dynamicBuf_t *dynBufPtr;
+void
+Tcl_DynBufInit (dynamicBuf_t *dynBufPtr)
{
dynBufPtr->buf [0] = '\0';
dynBufPtr->ptr = dynBufPtr->buf;
*
*-----------------------------------------------------------------------------
*/
-void
-Tcl_DynBufFree (dynBufPtr)
- dynamicBuf_t *dynBufPtr;
+void
+Tcl_DynBufFree (dynamicBuf_t *dynBufPtr)
{
if (dynBufPtr->ptr != dynBufPtr->buf)
ckfree (dynBufPtr->ptr);
*
*-----------------------------------------------------------------------------
*/
-void
-Tcl_DynBufReturn (interp, dynBufPtr)
- Tcl_Interp *interp;
- dynamicBuf_t *dynBufPtr;
+void
+Tcl_DynBufReturn (Tcl_Interp *interp, dynamicBuf_t *dynBufPtr)
{
if (dynBufPtr->ptr != dynBufPtr->buf)
Tcl_SetResult (interp, dynBufPtr->ptr, TCL_DYNAMIC);
*
*-----------------------------------------------------------------------------
*/
-void
-Tcl_DynBufAppend (dynBufPtr, newStr)
- dynamicBuf_t *dynBufPtr;
- char *newStr;
+void
+Tcl_DynBufAppend (dynamicBuf_t *dynBufPtr, char *newStr)
{
int newLen, currentUsed;
*
*-----------------------------------------------------------------------------
*/
-int
-Tcl_DynamicFgets (dynBufPtr, filePtr, append)
- dynamicBuf_t *dynBufPtr;
- FILE *filePtr;
- int append;
+int
+Tcl_DynamicFgets (dynamicBuf_t *dynBufPtr, FILE *filePtr, int append)
{
int readVal;
*
*-----------------------------------------------------------------------------
*/
-int
-Tcl_GetLong(interp, string, longPtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- CONST char *string; /* String containing a (possibly signed)
+int
+Tcl_GetLong (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ CONST char *string, /* String containing a (possibly signed)
* integer in a form acceptable to strtol. */
- long *longPtr; /* Place to store converted result. */
+ long *longPtr /* Place to store converted result. */
+)
{
char *end;
long i;
*
*-----------------------------------------------------------------------------
*/
-int
-Tcl_GetUnsigned(interp, string, unsignedPtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- CONST char *string; /* String containing a (possibly signed)
+int
+Tcl_GetUnsigned (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ CONST char *string, /* String containing a (possibly signed)
* integer in a form acceptable to strtoul. */
- unsigned *unsignedPtr; /* Place to store converted result. */
+ unsigned *unsignedPtr /* Place to store converted result. */
+)
{
char *end;
unsigned long i;
*
*-----------------------------------------------------------------------------
*/
-int
-Tcl_ConvertFileHandle (interp, handle)
- Tcl_Interp *interp;
- char *handle;
+int
+Tcl_ConvertFileHandle (Tcl_Interp *interp, char *handle)
{
int fileId = -1;
* TCL_OK or TCL_ERROR;
*-----------------------------------------------------------------------------
*/
-int
-Tcl_SetupFileEntry (interp, fileNum, readable, writable)
- Tcl_Interp *interp;
- int fileNum;
- int readable;
- int writable;
+int
+Tcl_SetupFileEntry (Tcl_Interp *interp, int fileNum, int readable, int writable)
{
Interp *iPtr = (Interp *) interp;
char *mode;
*-----------------------------------------------------------------------------
*/
int
-Tcl_System (interp, command)
- Tcl_Interp *interp;
- char *command;
+Tcl_System (Tcl_Interp *interp, char *command)
{
int processID, waitStatus, processStatus;
*--------------------------------------------------------------
*/
-int
-Tcl_ReturnDouble(interp, number)
- Tcl_Interp *interp; /* ->result gets converted number */
- double number; /* Number to convert */
+int
+Tcl_ReturnDouble (
+ Tcl_Interp *interp, /* ->result gets converted number */
+ double number /* Number to convert */
+)
{
static int precision = 0;
register char *scanPtr;
* Declarations for library procedures:
*/
-extern int isatty();
+extern int isatty(int);
/*
* Command used to initialize wish:
};
/* ARGSUSED */
-void
-StdinProc(clientData, mask)
- ClientData clientData; /* Not used. */
- int mask;
+void
+StdinProc (
+ ClientData clientData, /* Not used. */
+ int mask
+)
{
char line[200];
static int gotPartial = 0;
}
/* ARGSUSED */
-static void
-StructureProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- XEvent *eventPtr; /* Information about event. */
+static void
+StructureProc (
+ ClientData clientData, /* Information about window. */
+ XEvent *eventPtr /* Information about event. */
+)
{
if (eventPtr->type == DestroyNotify) {
w = NULL;
*/
/* ARGSUSED */
-static void
-DelayedMap(clientData)
- ClientData clientData; /* Not used. */
+static void
+DelayedMap (
+ ClientData clientData /* Not used. */
+)
{
while (Tk_DoOneEvent(TK_IDLE_EVENTS) != 0) {
}
/* ARGSUSED */
-int
-DotCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+DotCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int x, y;
}
/* ARGSUSED */
-int
-MovetoCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+MovetoCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
if (argc != 3) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
return TCL_OK;
}
/* ARGSUSED */
-int
-LinetoCmd(dummy, interp, argc, argv)
- ClientData dummy; /* Not used. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+LinetoCmd (
+ ClientData dummy, /* Not used. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int newX, newY;
return TCL_OK;
}
-int
-main(argc, argv)
- int argc;
- char **argv;
+int
+main (int argc, char **argv)
{
char *args, *p, *msg;
char buf[20];
XSetForeground(Tk_Display(w), DefaultGCOfScreen(Tk_Screen(w)),
BlackPixelOfScreen(Tk_Screen(w)));
Tcl_CreateCommand(interp, "dot", DotCmd, (ClientData) w,
- (void (*)()) NULL);
+ (void (*)(int *)) NULL);
Tcl_CreateCommand(interp, "lineto", LinetoCmd, (ClientData) w,
- (void (*)()) NULL);
+ (void (*)(int *)) NULL);
Tcl_CreateCommand(interp, "moveto", MovetoCmd, (ClientData) w,
- (void (*)()) NULL);
+ (void (*)(int *)) NULL);
#ifdef SQUARE_DEMO
Tcl_CreateCommand(interp, "square", Tk_SquareCmd, (ClientData) w,
- (void (*)()) NULL);
+ (void (*)(int *)) NULL);
#endif
if (geometry != NULL) {
Tcl_SetVar(interp, "geometry", geometry, TCL_GLOBAL_ONLY);
*--------------------------------------------------------------
*/
-Tk_3DBorder
-Tk_Get3DBorder(interp, tkwin, colormap, colorName)
- Tcl_Interp *interp; /* Place to store an error message. */
- Tk_Window tkwin; /* Token for window in which
+Tk_3DBorder
+Tk_Get3DBorder (
+ Tcl_Interp *interp, /* Place to store an error message. */
+ Tk_Window tkwin, /* Token for window in which
* border will be drawn. */
- Colormap colormap; /* Colormap to use for allocating border
+ Colormap colormap, /* Colormap to use for allocating border
* colors. None means use default colormap
* for screen. */
- Tk_Uid colorName; /* String giving name of color
+ Tk_Uid colorName /* String giving name of color
* for window background. */
+)
{
BorderKey key;
Tcl_HashEntry *hashPtr;
*--------------------------------------------------------------
*/
-void
-Tk_Draw3DRectangle(display, drawable, border, x, y, width, height,
- borderWidth, relief)
- Display *display; /* X display in which to draw. */
- Drawable drawable; /* X window or pixmap in which to draw. */
- Tk_3DBorder border; /* Token for border to draw. */
- int x, y, width, height; /* Outside area of region in
+void
+Tk_Draw3DRectangle (
+ Display *display, /* X display in which to draw. */
+ Drawable drawable, /* X window or pixmap in which to draw. */
+ Tk_3DBorder border, /* Token for border to draw. */
+ int x,
+ int y,
+ int width,
+ int height, /* Outside area of region in
* which border will be drawn. */
- int borderWidth; /* Desired width for border, in
+ int borderWidth, /* Desired width for border, in
* pixels. */
- int relief; /* Should be either TK_RELIEF_RAISED
+ int relief /* Should be either TK_RELIEF_RAISED
* or TK_RELIEF_SUNKEN; indicates
* position of interior of window relative
* to exterior. */
+)
{
register Border *borderPtr = (Border *) border;
GC top, bottom;
*/
char *
-Tk_NameOf3DBorder(border)
- Tk_3DBorder border; /* Token for border. */
+Tk_NameOf3DBorder (
+ Tk_3DBorder border /* Token for border. */
+)
{
Border *borderPtr = (Border *) border;
*--------------------------------------------------------------------
*/
XColor *
-Tk_3DBorderColor(border)
- Tk_3DBorder border;
+Tk_3DBorderColor (Tk_3DBorder border)
{
return(((Border *) border)->bgColorPtr);
}
*--------------------------------------------------------------
*/
-void
-Tk_Free3DBorder(border)
- Tk_3DBorder border; /* Token for border to be released. */
+void
+Tk_Free3DBorder (
+ Tk_3DBorder border /* Token for border to be released. */
+)
{
register Border *borderPtr = (Border *) border;
*----------------------------------------------------------------------
*/
-void
-Tk_SetBackgroundFromBorder(tkwin, border)
- Tk_Window tkwin; /* Window whose background is to be set. */
- Tk_3DBorder border; /* Token for border. */
+void
+Tk_SetBackgroundFromBorder (
+ Tk_Window tkwin, /* Window whose background is to be set. */
+ Tk_3DBorder border /* Token for border. */
+)
{
register Border *borderPtr = (Border *) border;
*----------------------------------------------------------------------
*/
-int
-Tk_GetRelief(interp, name, reliefPtr)
- Tcl_Interp *interp; /* For error messages. */
- char *name; /* Name of a relief type. */
- int *reliefPtr; /* Where to store converted relief. */
+int
+Tk_GetRelief (
+ Tcl_Interp *interp, /* For error messages. */
+ char *name, /* Name of a relief type. */
+ int *reliefPtr /* Where to store converted relief. */
+)
{
char c;
int length;
*/
char *
-Tk_NameOfRelief(relief)
- int relief; /* One of TK_RELIEF_FLAT, TK_RELIEF_RAISED,
+Tk_NameOfRelief (
+ int relief /* One of TK_RELIEF_FLAT, TK_RELIEF_RAISED,
* or TK_RELIEF_SUNKEN. */
+)
{
if (relief == TK_RELIEF_FLAT) {
return "flat";
*--------------------------------------------------------------
*/
-void
-Tk_Draw3DPolygon(display, drawable, border, pointPtr, numPoints,
- borderWidth, leftRelief)
- Display *display; /* X display in which to draw polygon. */
- Drawable drawable; /* X window or pixmap in which to draw. */
- Tk_3DBorder border; /* Token for border to draw. */
- XPoint *pointPtr; /* Array of points describing
+void
+Tk_Draw3DPolygon (
+ Display *display, /* X display in which to draw polygon. */
+ Drawable drawable, /* X window or pixmap in which to draw. */
+ Tk_3DBorder border, /* Token for border to draw. */
+ XPoint *pointPtr, /* Array of points describing
* polygon. All points must be
* absolute (CoordModeOrigin). */
- int numPoints; /* Number of points at *pointPtr. */
- int borderWidth; /* Width of border, measured in
+ int numPoints, /* Number of points at *pointPtr. */
+ int borderWidth, /* Width of border, measured in
* pixels to the left of the polygon's
* trajectory. May be negative. */
- int leftRelief; /* TK_RELIEF_RAISED or
+ int leftRelief /* TK_RELIEF_RAISED or
* TK_RELIEF_SUNKEN: indicates how
* stuff to left of trajectory looks
* relative to stuff on right. */
+)
{
XPoint poly[4], b1, b2, newB1, newB2;
XPoint perp, c, shift1, shift2; /* Used for handling parallel lines. */
*----------------------------------------------------------------------
*/
-void
-Tk_Fill3DRectangle(display, drawable, border, x, y, width,
- height, borderWidth, relief)
- Display *display; /* X display in which to draw rectangle. */
- Drawable drawable; /* X window or pixmap in which to draw. */
- Tk_3DBorder border; /* Token for border to draw. */
- int x, y, width, height; /* Outside area of rectangular region. */
- int borderWidth; /* Desired width for border, in
+void
+Tk_Fill3DRectangle (
+ Display *display, /* X display in which to draw rectangle. */
+ Drawable drawable, /* X window or pixmap in which to draw. */
+ Tk_3DBorder border, /* Token for border to draw. */
+ int x,
+ int y,
+ int width,
+ int height, /* Outside area of rectangular region. */
+ int borderWidth, /* Desired width for border, in
* pixels. Border will be *inside* region. */
- int relief; /* Indicates 3D effect: TK_RELIEF_FLAT,
+ int relief /* Indicates 3D effect: TK_RELIEF_FLAT,
* TK_RELIEF_RAISED, or TK_RELIEF_SUNKEN. */
+)
{
register Border *borderPtr = (Border *) border;
*----------------------------------------------------------------------
*/
-void
-Tk_Fill3DPolygon(display, drawable, border, pointPtr, numPoints,
- borderWidth, leftRelief)
- Display *display; /* X display in which to draw polygon. */
- Drawable drawable; /* X window or pixmap in which to draw. */
- Tk_3DBorder border; /* Token for border to draw. */
- XPoint *pointPtr; /* Array of points describing
+void
+Tk_Fill3DPolygon (
+ Display *display, /* X display in which to draw polygon. */
+ Drawable drawable, /* X window or pixmap in which to draw. */
+ Tk_3DBorder border, /* Token for border to draw. */
+ XPoint *pointPtr, /* Array of points describing
* polygon. All points must be
* absolute (CoordModeOrigin). */
- int numPoints; /* Number of points at *pointPtr. */
- int borderWidth; /* Width of border, measured in
+ int numPoints, /* Number of points at *pointPtr. */
+ int borderWidth, /* Width of border, measured in
* pixels to the left of the polygon's
* trajectory. May be negative. */
- int leftRelief; /* Indicates 3D effect of left side of
+ int leftRelief /* Indicates 3D effect of left side of
* trajectory relative to right:
* TK_RELIEF_FLAT, TK_RELIEF_RAISED,
* or TK_RELIEF_SUNKEN. */
+)
{
register Border *borderPtr = (Border *) border;
*-------------------------------------------------------------
*/
-static void
-BorderInit()
+static void
+BorderInit (void)
{
initialized = 1;
Tcl_InitHashTable(&borderTable, sizeof(BorderKey)/sizeof(int));
*--------------------------------------------------------------
*/
-static void
-ShiftLine(p1Ptr, p2Ptr, distance, p3Ptr)
- XPoint *p1Ptr; /* First point on line. */
- XPoint *p2Ptr; /* Second point on line. */
- int distance; /* New line is to be this many
+static void
+ShiftLine (
+ XPoint *p1Ptr, /* First point on line. */
+ XPoint *p2Ptr, /* Second point on line. */
+ int distance, /* New line is to be this many
* units to the left of original
* line, when looking from p1 to
* p2. May be negative. */
- XPoint *p3Ptr; /* Store coords of point on new
+ XPoint *p3Ptr /* Store coords of point on new
* line here. */
+)
{
int dx, dy, dxNeg, dyNeg;
*--------------------------------------------------------------
*/
-static int
-Intersect(a1Ptr, a2Ptr, b1Ptr, b2Ptr, iPtr)
- XPoint *a1Ptr; /* First point of first line. */
- XPoint *a2Ptr; /* Second point of first line. */
- XPoint *b1Ptr; /* First point of second line. */
- XPoint *b2Ptr; /* Second point of second line. */
- XPoint *iPtr; /* Filled in with intersection point. */
+static int
+Intersect (
+ XPoint *a1Ptr, /* First point of first line. */
+ XPoint *a2Ptr, /* Second point of first line. */
+ XPoint *b1Ptr, /* First point of second line. */
+ XPoint *b2Ptr, /* Second point of second line. */
+ XPoint *iPtr /* Filled in with intersection point. */
+)
{
int dxadyb, dxbdya, dxadxb, dyadyb, p, q;
*----------------------------------------------------------------------
*/
-int
-Tk_ParseArgv(interp, tkwin, argcPtr, argv, argTable, flags)
- Tcl_Interp *interp; /* Place to store error message. */
- Tk_Window tkwin; /* Window to use for setting Tk options.
+int
+Tk_ParseArgv (
+ Tcl_Interp *interp, /* Place to store error message. */
+ Tk_Window tkwin, /* Window to use for setting Tk options.
* NULL means ignore Tk option specs. */
- int *argcPtr; /* Number of arguments in argv. Modified
+ int *argcPtr, /* Number of arguments in argv. Modified
* to hold # args left in argv at end. */
- char **argv; /* Array of arguments. Modified to hold
+ char **argv, /* Array of arguments. Modified to hold
* those that couldn't be processed here. */
- Tk_ArgvInfo *argTable; /* Array of option descriptions */
- int flags; /* Or'ed combination of various flag bits,
+ Tk_ArgvInfo *argTable, /* Array of option descriptions */
+ int flags /* Or'ed combination of various flag bits,
* such as TK_ARGV_NO_DEFAULTS. */
+)
{
register Tk_ArgvInfo *infoPtr;
/* Pointer to the current entry in the
}
break;
case TK_ARGV_FUNC: {
- int (*handlerProc)();
+ int (*handlerProc)(char*, char*, char*);
- handlerProc = (int (*)())infoPtr->src;
+ handlerProc = (int (*)(char*, char*, char*))infoPtr->src;
if ((*handlerProc)(infoPtr->dst, infoPtr->key,
argv[srcIndex])) {
break;
}
case TK_ARGV_GENFUNC: {
- int (*handlerProc)();
+ int (*handlerProc)(char*, Tcl_Interp*, char*, int, char**);
- handlerProc = (int (*)())infoPtr->src;
+ handlerProc = (int (*)(char*, Tcl_Interp*, char*, int, char**))infoPtr->src;
argc = (*handlerProc)(infoPtr->dst, interp, infoPtr->key,
argc, argv+srcIndex);
*----------------------------------------------------------------------
*/
-static void
-PrintUsage(interp, argTable, flags)
- Tcl_Interp *interp; /* Place information in this interp's
+static void
+PrintUsage (
+ Tcl_Interp *interp, /* Place information in this interp's
* result area. */
- Tk_ArgvInfo *argTable; /* Array of command-specific argument
+ Tk_ArgvInfo *argTable, /* Array of command-specific argument
* descriptions. */
- int flags; /* If the TK_ARGV_NO_DEFAULTS bit is set
+ int flags /* If the TK_ARGV_NO_DEFAULTS bit is set
* in this word, then don't generate
* information for default options. */
+)
{
register Tk_ArgvInfo *infoPtr;
int width, i, numSpaces;
*--------------------------------------------------------------
*/
-Atom
-Tk_InternAtom(tkwin, name)
- Tk_Window tkwin; /* Window token; map name to atom
+Atom
+Tk_InternAtom (
+ Tk_Window tkwin, /* Window token; map name to atom
* for this window's display. */
- char *name; /* Name to turn into atom. */
+ char *name /* Name to turn into atom. */
+)
{
register TkDisplay *dispPtr;
register Tcl_HashEntry *hPtr;
*/
char *
-Tk_GetAtomName(tkwin, atom)
- Tk_Window tkwin; /* Window token; map atom to name
+Tk_GetAtomName (
+ Tk_Window tkwin, /* Window token; map atom to name
* relative to this window's
* display. */
- Atom atom; /* Atom whose name is wanted. */
+ Atom atom /* Atom whose name is wanted. */
+)
{
register TkDisplay *dispPtr;
register Tcl_HashEntry *hPtr;
int new;
handler= Tk_CreateErrorHandler(dispPtr->display, BadAtom,
- -1, -1, (int (*)()) NULL, (ClientData) NULL);
+ -1, -1, (int (*)(int *, XErrorEvent *)) NULL, (ClientData) NULL);
name = XGetAtomName(dispPtr->display, atom);
if (name == NULL) {
name = "?bad atom?";
*--------------------------------------------------------------
*/
-static void
-AtomInit(dispPtr)
- register TkDisplay *dispPtr; /* Display to initialize. */
+static void
+AtomInit (
+ register TkDisplay *dispPtr /* Display to initialize. */
+)
{
dispPtr->atomInit = 1;
Tcl_InitHashTable(&dispPtr->nameTable, TCL_STRING_KEYS);
*--------------------------------------------------------------
*/
-Tk_BindingTable
-Tk_CreateBindingTable(interp)
- Tcl_Interp *interp; /* Interpreter to associate with the binding
+Tk_BindingTable
+Tk_CreateBindingTable (
+ Tcl_Interp *interp /* Interpreter to associate with the binding
* table: commands are executed in this
* interpreter. */
+)
{
register BindingTable *bindPtr;
int i;
*--------------------------------------------------------------
*/
-void
-Tk_DeleteBindingTable(bindingTable)
- Tk_BindingTable bindingTable; /* Token for the binding table to
+void
+Tk_DeleteBindingTable (
+ Tk_BindingTable bindingTable /* Token for the binding table to
* destroy. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
PatSeq *psPtr, *nextPtr;
*--------------------------------------------------------------
*/
-unsigned long
-Tk_CreateBinding(interp, bindingTable, object, eventString, command, append)
- Tcl_Interp *interp; /* Used for error reporting. */
- Tk_BindingTable bindingTable; /* Table in which to create binding. */
- ClientData object; /* Token for object with which binding
+unsigned long
+Tk_CreateBinding (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ Tk_BindingTable bindingTable, /* Table in which to create binding. */
+ ClientData object, /* Token for object with which binding
* is associated. */
- char *eventString; /* String describing event sequence
+ char *eventString, /* String describing event sequence
* that triggers binding. */
- char *command; /* Contains Tcl command to execute
+ char *command, /* Contains Tcl command to execute
* when binding triggers. */
- int append; /* 0 means replace any existing
+ int append /* 0 means replace any existing
* binding for eventString; 1 means
* append to that binding. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
register PatSeq *psPtr;
*--------------------------------------------------------------
*/
-int
-Tk_DeleteBinding(interp, bindingTable, object, eventString)
- Tcl_Interp *interp; /* Used for error reporting. */
- Tk_BindingTable bindingTable; /* Table in which to delete binding. */
- ClientData object; /* Token for object with which binding
+int
+Tk_DeleteBinding (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ Tk_BindingTable bindingTable, /* Table in which to delete binding. */
+ ClientData object, /* Token for object with which binding
* is associated. */
- char *eventString; /* String describing event sequence
+ char *eventString /* String describing event sequence
* that triggers binding. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
register PatSeq *psPtr, *prevPtr;
*/
char *
-Tk_GetBinding(interp, bindingTable, object, eventString)
- Tcl_Interp *interp; /* Interpreter for error reporting. */
- Tk_BindingTable bindingTable; /* Table in which to look for
+Tk_GetBinding (
+ Tcl_Interp *interp, /* Interpreter for error reporting. */
+ Tk_BindingTable bindingTable, /* Table in which to look for
* binding. */
- ClientData object; /* Token for object with which binding
+ ClientData object, /* Token for object with which binding
* is associated. */
- char *eventString; /* String describing event sequence
+ char *eventString /* String describing event sequence
* that triggers binding. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
register PatSeq *psPtr;
*--------------------------------------------------------------
*/
-void
-Tk_GetAllBindings(interp, bindingTable, object)
- Tcl_Interp *interp; /* Interpreter for error reporting. */
- Tk_BindingTable bindingTable; /* Table in which to look for
+void
+Tk_GetAllBindings (
+ Tcl_Interp *interp, /* Interpreter for error reporting. */
+ Tk_BindingTable bindingTable, /* Table in which to look for
* bindings. */
- ClientData object; /* Token for object. */
+ ClientData object /* Token for object. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
*--------------------------------------------------------------
*/
-void
-Tk_DeleteAllBindings(bindingTable, object)
- Tk_BindingTable bindingTable; /* Table in which to delete
+void
+Tk_DeleteAllBindings (
+ Tk_BindingTable bindingTable, /* Table in which to delete
* bindings. */
- ClientData object; /* Token for object. */
+ ClientData object /* Token for object. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
register PatSeq *psPtr, *prevPtr;
*--------------------------------------------------------------
*/
-void
-Tk_BindEvent(bindingTable, eventPtr, tkwin, numObjects, objectPtr)
- Tk_BindingTable bindingTable; /* Table in which to look for
+void
+Tk_BindEvent (
+ Tk_BindingTable bindingTable, /* Table in which to look for
* bindings. */
- XEvent *eventPtr; /* What actually happened. */
- Tk_Window tkwin; /* Window on display where event
+ XEvent *eventPtr, /* What actually happened. */
+ Tk_Window tkwin, /* Window on display where event
* occurred (needed in order to
* locate display information). */
- int numObjects; /* Number of objects at *objectPtr. */
- ClientData *objectPtr; /* Array of one or more objects
+ int numObjects, /* Number of objects at *objectPtr. */
+ ClientData *objectPtr /* Array of one or more objects
* to check for a matching binding. */
+)
{
BindingTable *bindPtr = (BindingTable *) bindingTable;
TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
*/
static PatSeq *
-FindSequence(interp, bindPtr, object, eventString, create, maskPtr)
- Tcl_Interp *interp; /* Interpreter to use for error
+FindSequence (
+ Tcl_Interp *interp, /* Interpreter to use for error
* reporting. */
- BindingTable *bindPtr; /* Table to use for lookup. */
- ClientData object; /* Token for object(s) with which binding
+ BindingTable *bindPtr, /* Table to use for lookup. */
+ ClientData object, /* Token for object(s) with which binding
* is associated. */
- char *eventString; /* String description of pattern to
+ char *eventString, /* String description of pattern to
* match on. See user documentation
* for details. */
- int create; /* 0 means don't create the entry if
+ int create, /* 0 means don't create the entry if
* it doesn't already exist. Non-zero
* means create. */
- unsigned long *maskPtr; /* *maskPtr is filled in with the event
+ unsigned long *maskPtr /* *maskPtr is filled in with the event
* types on which this pattern sequence
* depends. */
+)
{
Pattern pats[EVENT_BUFFER_SIZE];
*/
static char *
-GetField(p, copy, size)
- register char *p; /* Pointer to part of pattern. */
- register char *copy; /* Place to copy field. */
- int size; /* Maximum number of characters to
+GetField (
+ register char *p, /* Pointer to part of pattern. */
+ register char *copy, /* Place to copy field. */
+ int size /* Maximum number of characters to
* copy. */
+)
{
while ((*p != '\0') && !isspace(*p) && (*p != '>')
&& (*p != '-') && (size > 1)) {
*----------------------------------------------------------------------
*/
-static KeySym
-GetKeySym(dispPtr, eventPtr)
- register TkDisplay *dispPtr; /* Display in which to
+static KeySym
+GetKeySym (
+ register TkDisplay *dispPtr, /* Display in which to
* map keycode. */
- register XEvent *eventPtr; /* Description of X event. */
+ register XEvent *eventPtr /* Description of X event. */
+)
{
KeySym *symPtr;
KeySym sym;
*/
static PatSeq *
-MatchPatterns(dispPtr, bindPtr, psPtr)
- TkDisplay *dispPtr;
- BindingTable *bindPtr; /* Information about binding table, such
+MatchPatterns (
+ TkDisplay *dispPtr,
+ BindingTable *bindPtr, /* Information about binding table, such
* as ring of recent events. */
- register PatSeq *psPtr; /* List of pattern sequences. */
+ register PatSeq *psPtr /* List of pattern sequences. */
+)
{
register PatSeq *bestPtr = NULL;
*/
static char *
-ExpandPercents(before, eventPtr, keySym, after, afterSize)
- register char *before; /* Command containing percent
+ExpandPercents (
+ register char *before, /* Command containing percent
* expressions to be replaced. */
- register XEvent *eventPtr; /* X event containing information
+ register XEvent *eventPtr, /* X event containing information
* to be used in % replacements. */
- KeySym keySym; /* KeySym: only relevant for
+ KeySym keySym, /* KeySym: only relevant for
* KeyPress and KeyRelease events). */
- char *after; /* Place to generate new expanded
+ char *after, /* Place to generate new expanded
* command. Must contain at least
* "afterSize" bytes of space. */
- int afterSize; /* Number of bytes of space available at
+ int afterSize /* Number of bytes of space available at
* after. */
+)
{
register char *buffer; /* Pointer to buffer currently being used
* as destination. */
*----------------------------------------------------------------------
*/
-void
-TkBindError(interp)
- Tcl_Interp *interp; /* Interpreter in which an error has
+void
+TkBindError (
+ Tcl_Interp *interp /* Interpreter in which an error has
* occurred. */
+)
{
char *argv[2];
char *command;
*----------------------------------------------------------------------
*/
-Pixmap
-Tk_GetBitmap(interp, tkwin, string)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- Tk_Window tkwin; /* Window in which bitmap will be used. */
- Tk_Uid string; /* Description of bitmap. See manual entry
+Pixmap
+Tk_GetBitmap (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ Tk_Window tkwin, /* Window in which bitmap will be used. */
+ Tk_Uid string /* Description of bitmap. See manual entry
* for details on legal syntax. */
+)
{
NameKey key;
Tcl_HashEntry *nameHashPtr, *idHashPtr, *predefHashPtr;
*----------------------------------------------------------------------
*/
-int
-Tk_DefineBitmap(interp, name, source, width, height)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- Tk_Uid name; /* Name to use for bitmap. Must not already
+int
+Tk_DefineBitmap (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ Tk_Uid name, /* Name to use for bitmap. Must not already
* be defined as a bitmap. */
- char *source; /* Address of bits for bitmap. */
- unsigned int width; /* Width of bitmap. */
- unsigned int height; /* Height of bitmap. */
+ char *source, /* Address of bits for bitmap. */
+ unsigned int width, /* Width of bitmap. */
+ unsigned int height /* Height of bitmap. */
+)
{
int new;
Tcl_HashEntry *predefHashPtr;
*--------------------------------------------------------------
*/
-Tk_Uid
-Tk_NameOfBitmap(bitmap)
- Pixmap bitmap; /* Bitmap whose name is wanted. */
+Tk_Uid
+Tk_NameOfBitmap (
+ Pixmap bitmap /* Bitmap whose name is wanted. */
+)
{
Tcl_HashEntry *idHashPtr;
TkBitmap *bitmapPtr;
*--------------------------------------------------------------
*/
-void
-Tk_SizeOfBitmap(bitmap, widthPtr, heightPtr)
- Pixmap bitmap; /* Bitmap whose size is wanted. */
- unsigned int *widthPtr; /* Store bitmap width here. */
- unsigned int *heightPtr; /* Store bitmap height here. */
+void
+Tk_SizeOfBitmap (
+ Pixmap bitmap, /* Bitmap whose size is wanted. */
+ unsigned int *widthPtr, /* Store bitmap width here. */
+ unsigned int *heightPtr /* Store bitmap height here. */
+)
{
Tcl_HashEntry *idHashPtr;
TkBitmap *bitmapPtr;
*----------------------------------------------------------------------
*/
-void
-Tk_FreeBitmap(bitmap)
- Pixmap bitmap; /* Bitmap to be released. */
+void
+Tk_FreeBitmap (
+ Pixmap bitmap /* Bitmap to be released. */
+)
{
Tcl_HashEntry *idHashPtr;
register TkBitmap *bitmapPtr;
*/
/* ARGSUSED */
-Pixmap
-Tk_GetBitmapFromData(interp, tkwin, source, width, height)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- Tk_Window tkwin; /* Window in which bitmap will be used. */
- char *source; /* Bitmap data for bitmap shape. */
- unsigned int width, height; /* Dimensions of bitmap. */
+Pixmap
+Tk_GetBitmapFromData (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ Tk_Window tkwin, /* Window in which bitmap will be used. */
+ char *source, /* Bitmap data for bitmap shape. */
+ unsigned int width,
+ unsigned int height /* Dimensions of bitmap. */
+)
{
DataKey key;
Tcl_HashEntry *dataHashPtr;
*----------------------------------------------------------------------
*/
-static void
-BitmapInit()
+static void
+BitmapInit (void)
{
Tcl_Interp *dummy;
*--------------------------------------------------------------
*/
-int
-Tk_ButtonCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_ButtonCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Button *butPtr;
int type;
Tk_CreateEventHandler(butPtr->tkwin, ExposureMask|StructureNotifyMask,
ButtonEventProc, (ClientData) butPtr);
Tcl_CreateCommand(interp, Tk_PathName(butPtr->tkwin), ButtonWidgetCmd,
- (ClientData) butPtr, (void (*)()) NULL);
+ (ClientData) butPtr, (void (*)(int *)) NULL);
if (ConfigureButton(interp, butPtr, argc-2, argv+2,
configFlags[type]) != TCL_OK) {
Tk_DestroyWindow(butPtr->tkwin);
*--------------------------------------------------------------
*/
-static int
-ButtonWidgetCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about button widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+static int
+ButtonWidgetCmd (
+ ClientData clientData, /* Information about button widget. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Button *butPtr = (Button *) clientData;
int result = TCL_OK;
*----------------------------------------------------------------------
*/
-static void
-DestroyButton(clientData)
- ClientData clientData; /* Info about entry widget. */
+static void
+DestroyButton (
+ ClientData clientData /* Info about entry widget. */
+)
{
register Button *butPtr = (Button *) clientData;
*/
static int
-ConfigureButton(interp, butPtr, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- register Button *butPtr; /* Information about widget; may or may
+ConfigureButton(
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register Button *butPtr, /* Information about widget; may or may
* not already have values for some fields. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
XGCValues gcValues;
GC newGC;
*----------------------------------------------------------------------
*/
-static void
-DisplayButton(clientData)
- ClientData clientData; /* Information about widget. */
+static void
+DisplayButton (
+ ClientData clientData /* Information about widget. */
+)
{
register Button *butPtr = (Button *) clientData;
GC gc;
*--------------------------------------------------------------
*/
-static void
-ButtonEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- XEvent *eventPtr; /* Information about event. */
+static void
+ButtonEventProc (
+ ClientData clientData, /* Information about window. */
+ XEvent *eventPtr /* Information about event. */
+)
{
Button *butPtr = (Button *) clientData;
if ((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0)) {
*/
static void
-ComputeButtonGeometry(butPtr)
- register Button *butPtr; /* Button whose geometry may have changed. */
+ComputeButtonGeometry(
+ register Button *butPtr /* Button whose geometry may have changed. */
+)
{
XCharStruct bbox;
int dummy;
*/
static int
-InvokeButton(butPtr)
- register Button *butPtr; /* Information about button. */
+InvokeButton(
+ register Button *butPtr /* Information about button. */
+)
{
if (butPtr->type == TYPE_CHECK_BUTTON) {
if (butPtr->flags & SELECTED) {
/* ARGSUSED */
static char *
-ButtonVarProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Information about button. */
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *name1; /* Name of variable. */
- char *name2; /* Second part of variable name. */
- int flags; /* Information about what happened. */
+ButtonVarProc (
+ ClientData clientData, /* Information about button. */
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *name1, /* Name of variable. */
+ char *name2, /* Second part of variable name. */
+ int flags /* Information about what happened. */
+)
{
register Button *butPtr = (Button *) clientData;
char *value;
/* ARGSUSED */
static char *
-ButtonTextVarProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Information about button. */
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *name1; /* Name of variable. */
- char *name2; /* Second part of variable name. */
- int flags; /* Information about what happened. */
+ButtonTextVarProc (
+ ClientData clientData, /* Information about button. */
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *name1, /* Name of variable. */
+ char *name2, /* Second part of variable name. */
+ int flags /* Information about what happened. */
+)
{
register Button *butPtr = (Button *) clientData;
char *value;
*/
int
-Tk_CanvasCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+Tk_CanvasCmd(
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
register Tk_Canvas *canvasPtr;
Tk_CreateSelHandler(canvasPtr->tkwin, XA_STRING, CanvasFetchSelection,
(ClientData) canvasPtr, XA_STRING);
Tcl_CreateCommand(interp, Tk_PathName(canvasPtr->tkwin), CanvasWidgetCmd,
- (ClientData) canvasPtr, (void (*)()) NULL);
+ (ClientData) canvasPtr, (void (*)(int *)) NULL);
if (ConfigureCanvas(interp, canvasPtr, argc-2, argv+2, 0) != TCL_OK) {
goto error;
}
*/
static int
-CanvasWidgetCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about canvas
+CanvasWidgetCmd(
+ ClientData clientData, /* Information about canvas
* widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Tk_Canvas *canvasPtr = (Tk_Canvas *) clientData;
int length, result;
*/
static void
-DestroyCanvas(clientData)
- ClientData clientData; /* Info about canvas widget. */
+DestroyCanvas(
+ ClientData clientData /* Info about canvas widget. */
+)
{
register Tk_Canvas *canvasPtr = (Tk_Canvas *) clientData;
register Tk_Item *itemPtr;
*/
static int
-ConfigureCanvas(interp, canvasPtr, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- register Tk_Canvas *canvasPtr; /* Information about widget; may or may
+ConfigureCanvas(
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register Tk_Canvas *canvasPtr, /* Information about widget; may or may
* not already have values for some fields. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
XGCValues gcValues;
GC new;
*/
static int
-SaveCanvas(interp, canvasPtr, fileName, x, y, width, height)
- Tcl_Interp *interp; /* Used for error reporting. */
- register Tk_Canvas *canvasPtr; /* Information about widget */
- char *fileName; /* the output file name. */
- int x; /* upper left x coordinate. */
- int y; /* upper left y coordinate. */
- unsigned int width; /* width of pixmap area to save. */
- unsigned int height; /* height of pixmap area to save. */
+SaveCanvas(
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register Tk_Canvas *canvasPtr, /* Information about widget */
+ char *fileName, /* the output file name. */
+ int x, /* upper left x coordinate. */
+ int y, /* upper left y coordinate. */
+ unsigned int width, /* width of pixmap area to save. */
+ unsigned int height /* height of pixmap area to save. */
+)
{
register Tk_Window tkwin = canvasPtr->tkwin;
register Tk_Item *itemPtr;
*/
static void
-DisplayCanvas(clientData)
- ClientData clientData; /* Information about widget. */
+DisplayCanvas(
+ ClientData clientData /* Information about widget. */
+)
{
register Tk_Canvas *canvasPtr = (Tk_Canvas *) clientData;
register Tk_Window tkwin = canvasPtr->tkwin;
*/
static void
-CanvasEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- XEvent *eventPtr; /* Information about event. */
+CanvasEventProc(
+ ClientData clientData, /* Information about window. */
+ XEvent *eventPtr /* Information about event. */
+)
{
Tk_Canvas *canvasPtr = (Tk_Canvas *) clientData;
*--------------------------------------------------------------
*/
-static void
-EventuallyRedrawArea(canvasPtr, x1, y1, x2, y2)
- register Tk_Canvas *canvasPtr; /* Information about widget. */
- int x1, y1; /* Upper left corner of area to
+static void
+EventuallyRedrawArea (
+ register Tk_Canvas *canvasPtr, /* Information about widget. */
+ int x1,
+ int y1, /* Upper left corner of area to
* redraw. Pixels on edge are
* redrawn. */
- int x2, y2; /* Lower right corner of area to
+ int x2,
+ int y2 /* Lower right corner of area to
* redraw. Pixels on edge are
* not redrawn. */
+)
{
if ((canvasPtr->tkwin == NULL) || !Tk_IsMapped(canvasPtr->tkwin)) {
return;
*--------------------------------------------------------------
*/
-void
-Tk_CreateItemType(typePtr)
- Tk_ItemType *typePtr; /* Information about item type;
+void
+Tk_CreateItemType (
+ Tk_ItemType *typePtr /* Information about item type;
* storage must be statically
* allocated (must live forever). */
+)
{
if (typeList == NULL) {
InitCanvas();
*--------------------------------------------------------------
*/
-static void
-InitCanvas()
+static void
+InitCanvas (void)
{
if (typeList != NULL) {
return;
*/
static Tk_Item *
-StartTagSearch(canvasPtr, tag, searchPtr)
- Tk_Canvas *canvasPtr; /* Canvas whose items are to be
+StartTagSearch (
+ Tk_Canvas *canvasPtr, /* Canvas whose items are to be
* searched. */
- char *tag; /* String giving tag value. */
- TagSearch *searchPtr; /* Record describing tag search;
+ char *tag, /* String giving tag value. */
+ TagSearch *searchPtr /* Record describing tag search;
* will be initialized here. */
+)
{
int id;
register Tk_Item *itemPtr, *prevPtr;
*/
static Tk_Item *
-NextItem(searchPtr)
- TagSearch *searchPtr; /* Record describing search in
+NextItem (
+ TagSearch *searchPtr /* Record describing search in
* progress. */
+)
{
register Tk_Item *itemPtr, *prevPtr;
register int count;
*/
static void
-DoItem(interp, itemPtr, tag)
- Tcl_Interp *interp; /* Interpreter in which to (possibly)
+DoItem(
+ Tcl_Interp *interp, /* Interpreter in which to (possibly)
* record item id. */
- register Tk_Item *itemPtr; /* Item to (possibly) modify. */
- Tk_Uid tag; /* Tag to add to those already
+ register Tk_Item *itemPtr, /* Item to (possibly) modify. */
+ Tk_Uid tag /* Tag to add to those already
* present for item, or NULL. */
+)
{
register Tk_Uid *tagPtr;
register int count;
*/
static int
-FindItems(interp, canvasPtr, argc, argv, newTag, cmdName, option)
- Tcl_Interp *interp; /* Interpreter for error reporting. */
- Tk_Canvas *canvasPtr; /* Canvas whose items are to be
+FindItems(
+ Tcl_Interp *interp, /* Interpreter for error reporting. */
+ Tk_Canvas *canvasPtr, /* Canvas whose items are to be
* searched. */
- int argc; /* Number of entries in argv. Must be
+ int argc, /* Number of entries in argv. Must be
* greater than zero. */
- char **argv; /* Arguments that describe what items
+ char **argv, /* Arguments that describe what items
* to search for (see user doc on
* "find" and "addtag" options). */
- char *newTag; /* If non-NULL, gives new tag to set
- * on all found items; if NULL, then
+ char *newTag, /* If non-NULL, gives new tag to set
+ * on all found items, if NULL, then
* ids of found items are returned
* in interp->result. */
- char *cmdName; /* Name of original Tcl command, for
+ char *cmdName, /* Name of original Tcl command, for
* use in error messages. */
- char *option; /* For error messages: gives option
+ char *option /* For error messages: gives option
* from Tcl command and other stuff
* up to what's in argc/argv. */
+)
{
char c;
int length;
*/
static int
-FindArea(interp, canvasPtr, argv, uid, enclosed)
- Tcl_Interp *interp; /* Interpreter for error reporting
+FindArea(
+ Tcl_Interp *interp, /* Interpreter for error reporting
* and result storing. */
- Tk_Canvas *canvasPtr; /* Canvas whose items are to be
+ Tk_Canvas *canvasPtr, /* Canvas whose items are to be
* searched. */
- char **argv; /* Array of four arguments that
+ char **argv, /* Array of four arguments that
* give the coordinates of the
* rectangular area to search. */
- Tk_Uid uid; /* If non-NULL, gives new tag to set
- * on all found items; if NULL, then
+ Tk_Uid uid, /* If non-NULL, gives new tag to set
+ * on all found items, if NULL, then
* ids of found items are returned
* in interp->result. */
- int enclosed; /* 0 means overlapping or enclosed
+ int enclosed /* 0 means overlapping or enclosed
* items are OK, 1 means only enclosed
* items are OK. */
+)
{
double rect[4], tmp;
int x1, y1, x2, y2;
*--------------------------------------------------------------
*/
-static void
-RelinkItems(canvasPtr, tag, prevPtr)
- Tk_Canvas *canvasPtr; /* Canvas to be modified. */
- char *tag; /* Tag identifying items to be moved
+static void
+RelinkItems (
+ Tk_Canvas *canvasPtr, /* Canvas to be modified. */
+ char *tag, /* Tag identifying items to be moved
* in the redisplay list. */
- Tk_Item *prevPtr; /* Reposition the items so that they
+ Tk_Item *prevPtr /* Reposition the items so that they
* go just after this item (NULL means
* put at beginning of list). */
+)
{
register Tk_Item *itemPtr;
TagSearch search;
*/
static void
-CanvasBindProc(clientData, eventPtr)
- ClientData clientData; /* Pointer to canvas structure. */
- XEvent *eventPtr; /* Pointer to X event that just
+CanvasBindProc(
+ ClientData clientData, /* Pointer to canvas structure. */
+ XEvent *eventPtr /* Pointer to X event that just
* happened. */
+)
{
Tk_Canvas *canvasPtr = (Tk_Canvas *) clientData;
int repick = 0;
*--------------------------------------------------------------
*/
-static void
-PickCurrentItem(canvasPtr, eventPtr)
- register Tk_Canvas *canvasPtr; /* Canvas pointer in which to select
+static void
+PickCurrentItem (
+ register Tk_Canvas *canvasPtr, /* Canvas pointer in which to select
* current item. */
- XEvent *eventPtr; /* Event describing location of
+ XEvent *eventPtr /* Event describing location of
* mouse cursor. Must be EnterWindow,
* LeaveWindow, ButtonRelease, or
* MotionNotify. */
+)
{
Tk_Item *closestPtr = NULL;
*--------------------------------------------------------------
*/
-static void
-CanvasDoEvent(canvasPtr, eventPtr)
- Tk_Canvas *canvasPtr; /* Canvas widget in which event
+static void
+CanvasDoEvent (
+ Tk_Canvas *canvasPtr, /* Canvas widget in which event
* occurred. */
- XEvent *eventPtr; /* Real or simulated X event that
+ XEvent *eventPtr /* Real or simulated X event that
* is to be processed. */
+)
{
#define NUM_STATIC 3
ClientData staticObjects[NUM_STATIC];
*/
static void
-CanvasBlinkProc(clientData)
- ClientData clientData; /* Pointer to record describing entry. */
+CanvasBlinkProc(
+ ClientData clientData /* Pointer to record describing entry. */
+)
{
register Tk_Canvas *canvasPtr = (Tk_Canvas *) clientData;
*/
static void
-CanvasFocusProc(clientData, gotFocus)
- ClientData clientData; /* Pointer to structure describing entry. */
- int gotFocus; /* 1 means window is getting focus, 0 means
+CanvasFocusProc(
+ ClientData clientData, /* Pointer to structure describing entry. */
+ int gotFocus /* 1 means window is getting focus, 0 means
* it's losing it. */
+)
{
register Tk_Canvas *canvasPtr = (Tk_Canvas *) clientData;
*----------------------------------------------------------------------
*/
-static void
-CanvasSelectTo(canvasPtr, itemPtr, index)
- register Tk_Canvas *canvasPtr; /* Information about widget. */
- register Tk_Item *itemPtr; /* Item that is to hold selection. */
- int index; /* Index of element that is to
+static void
+CanvasSelectTo (
+ register Tk_Canvas *canvasPtr, /* Information about widget. */
+ register Tk_Item *itemPtr, /* Item that is to hold selection. */
+ int index /* Index of element that is to
* become the "other" end of the
* selection. */
+)
{
int oldFirst, oldLast;
Tk_Item *oldSelPtr;
*/
static int
-CanvasFetchSelection(clientData, offset, buffer, maxBytes)
- ClientData clientData; /* Information about canvas widget. */
- int offset; /* Offset within selection of first
+CanvasFetchSelection(
+ ClientData clientData, /* Information about canvas widget. */
+ int offset, /* Offset within selection of first
* character to be returned. */
- char *buffer; /* Location in which to place
+ char *buffer, /* Location in which to place
* selection. */
- int maxBytes; /* Maximum number of bytes to place
+ int maxBytes /* Maximum number of bytes to place
* at buffer, not including terminating
* NULL character. */
+)
{
register Tk_Canvas *canvasPtr = (Tk_Canvas *) clientData;
*/
static void
-CanvasLostSelection(clientData)
- ClientData clientData; /* Information about entry widget. */
+CanvasLostSelection(
+ ClientData clientData /* Information about entry widget. */
+)
{
Tk_Canvas *canvasPtr = (Tk_Canvas *) clientData;
*--------------------------------------------------------------
*/
-int
-TkGetCanvasCoord(canvasPtr, string, doublePtr)
- Tk_Canvas *canvasPtr; /* Canvas to which coordinate applies. */
- char *string; /* Describes coordinate (any screen
+int
+TkGetCanvasCoord (
+ Tk_Canvas *canvasPtr, /* Canvas to which coordinate applies. */
+ char *string, /* Describes coordinate (any screen
* coordinate form may be used here). */
- double *doublePtr; /* Place to store converted coordinate. */
+ double *doublePtr /* Place to store converted coordinate. */
+)
{
if (Tk_GetScreenMM(canvasPtr->interp, canvasPtr->tkwin, string,
doublePtr) != TCL_OK) {
*--------------------------------------------------------------
*/
-static double
-GridAlign(coord, spacing)
- double coord; /* Coordinate to grid-align. */
- double spacing; /* Spacing between grid lines. If <= 0
+static double
+GridAlign (
+ double coord, /* Coordinate to grid-align. */
+ double spacing /* Spacing between grid lines. If <= 0
* then no alignment is done. */
+)
{
if (spacing <= 0.0) {
return coord;
*--------------------------------------------------------------
*/
-static void
-CanvasUpdateScrollbars(canvasPtr)
- register Tk_Canvas *canvasPtr; /* Information about canvas. */
+static void
+CanvasUpdateScrollbars (
+ register Tk_Canvas *canvasPtr /* Information about canvas. */
+)
{
int result, size, first, last, page;
char args[200];
*--------------------------------------------------------------
*/
-static void
-CanvasSetOrigin(canvasPtr, xOrigin, yOrigin)
- register Tk_Canvas *canvasPtr; /* Information about canvas. */
- int xOrigin; /* New X origin for canvas (canvas
+static void
+CanvasSetOrigin (
+ register Tk_Canvas *canvasPtr, /* Information about canvas. */
+ int xOrigin, /* New X origin for canvas (canvas
* x-coord corresponding to left edge
* of canvas window). */
- int yOrigin; /* New Y origin for canvas (canvas
+ int yOrigin /* New Y origin for canvas (canvas
* y-coord corresponding to top edge
* of canvas window). */
+)
{
/*
* Adjust the origin if necessary to keep as much as possible of the
/* ARGSUSED */
static int
-CanvasTagsParseProc(clientData, interp, tkwin, value, widgRec, offset)
- ClientData clientData; /* Not used.*/
- Tcl_Interp *interp; /* Used for reporting errors. */
- Tk_Window tkwin; /* Window containing canvas widget. */
- char *value; /* Value of option (list of tag
+CanvasTagsParseProc(
+ ClientData clientData, /* Not used.*/
+ Tcl_Interp *interp, /* Used for reporting errors. */
+ Tk_Window tkwin, /* Window containing canvas widget. */
+ char *value, /* Value of option (list of tag
* names). */
- char *widgRec; /* Pointer to record for item. */
- int offset; /* Offset into item (ignored). */
+ char *widgRec, /* Pointer to record for item. */
+ int offset /* Offset into item (ignored). */
+)
{
register Tk_Item *itemPtr = (Tk_Item *) widgRec;
int argc, i;
/* ARGSUSED */
static char *
-CanvasTagsPrintProc(clientData, tkwin, widgRec, offset, freeProcPtr)
- ClientData clientData; /* Ignored. */
- Tk_Window tkwin; /* Window containing canvas widget. */
- char *widgRec; /* Pointer to record for item. */
- int offset; /* Ignored. */
- Tcl_FreeProc **freeProcPtr; /* Pointer to variable to fill in with
+CanvasTagsPrintProc(
+ ClientData clientData, /* Ignored. */
+ Tk_Window tkwin, /* Window containing canvas widget. */
+ char *widgRec, /* Pointer to record for item. */
+ int offset, /* Ignored. */
+ Tcl_FreeProc **freeProcPtr /* Pointer to variable to fill in with
* information about how to reclaim
* storage for return string. */
+)
{
register Tk_Item *itemPtr = (Tk_Item *) widgRec;
*/
/* ARGSUSED */
-int
-Tk_AfterCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_AfterCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. Not used.*/
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
int ms;
AfterInfo *afterPtr;
*----------------------------------------------------------------------
*/
-static void
-AfterProc(clientData)
- ClientData clientData; /* Describes command to execute. */
+static void
+AfterProc (
+ ClientData clientData /* Describes command to execute. */
+)
{
AfterInfo *afterPtr = (AfterInfo *) clientData;
int result;
*----------------------------------------------------------------------
*/
-int
-Tk_BindCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_BindCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
TkWindow *winPtr;
*----------------------------------------------------------------------
*/
-void
-TkBindEventProc(winPtr, eventPtr)
- TkWindow *winPtr; /* Pointer to info about window. */
- XEvent *eventPtr; /* Information about event. */
+void
+TkBindEventProc (
+ TkWindow *winPtr, /* Pointer to info about window. */
+ XEvent *eventPtr /* Information about event. */
+)
{
ClientData objects[3];
static Tk_Uid allUid = NULL;
*----------------------------------------------------------------------
*/
-int
-Tk_DestroyCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_DestroyCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window window;
Tk_Window tkwin = (Tk_Window) clientData;
*/
/* ARGSUSED */
-int
-Tk_UpdateCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_UpdateCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
int flags;
*/
/* ARGSUSED */
-int
-Tk_TkwaitCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_TkwaitCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
int c, length;
/* ARGSUSED */
static char *
-WaitVariableProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Pointer to integer to set to 1. */
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *name1; /* Name of variable. */
- char *name2; /* Second part of variable name. */
- int flags; /* Information about what happened. */
+WaitVariableProc (
+ ClientData clientData, /* Pointer to integer to set to 1. */
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *name1, /* Name of variable. */
+ char *name2, /* Second part of variable name. */
+ int flags /* Information about what happened. */
+)
{
int *donePtr = (int *) clientData;
return (char *) NULL;
}
-static void
-WaitWindowProc(clientData, eventPtr)
- ClientData clientData; /* Pointer to integer to set to 1. */
- XEvent *eventPtr; /* Information about event. */
+static void
+WaitWindowProc (
+ ClientData clientData, /* Pointer to integer to set to 1. */
+ XEvent *eventPtr /* Information about event. */
+)
{
int *donePtr = (int *) clientData;
*----------------------------------------------------------------------
*/
-int
-Tk_WinfoCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_WinfoCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
int length;
*/
/* ARGSUSED */
-int
-TkDeadAppCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Dummy. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+TkDeadAppCmd (
+ ClientData clientData, /* Dummy. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tcl_AppendResult(interp, "can't invoke \"", argv[0],
"\" command: application has been destroyed", (char *) NULL);
*/
XColor *
-Tk_GetColor(interp, tkwin, colormap, name)
- Tcl_Interp *interp; /* Place to leave error message if
+Tk_GetColor (
+ Tcl_Interp *interp, /* Place to leave error message if
* color can't be found. */
- Tk_Window tkwin; /* Window in which color will be used. */
- Colormap colormap; /* Map from which to allocate color. None
+ Tk_Window tkwin, /* Window in which color will be used. */
+ Colormap colormap, /* Map from which to allocate color. None
* means use default. */
- Tk_Uid name; /* Name of color to allocated (in form
+ Tk_Uid name /* Name of color to allocated (in form
* suitable for passing to XParseColor). */
+)
{
NameKey nameKey;
Tcl_HashEntry *nameHashPtr;
*/
XColor *
-Tk_GetColorByValue(interp, tkwin, colormap, colorPtr)
- Tcl_Interp *interp; /* Place to leave error message if
+Tk_GetColorByValue (
+ Tcl_Interp *interp, /* Place to leave error message if
* color can't be found. */
- Tk_Window tkwin; /* Window in which color will be used. */
- Colormap colormap; /* Map from which to allocate color. None
+ Tk_Window tkwin, /* Window in which color will be used. */
+ Colormap colormap, /* Map from which to allocate color. None
* means use default. */
- XColor *colorPtr; /* Red, green, and blue fields indicate
+ XColor *colorPtr /* Red, green, and blue fields indicate
* desired color. */
+)
{
ValueKey valueKey;
Tcl_HashEntry *valueHashPtr;
*/
char *
-Tk_NameOfColor(colorPtr)
- XColor *colorPtr; /* Color whose name is desired. */
+Tk_NameOfColor (
+ XColor *colorPtr /* Color whose name is desired. */
+)
{
register TkColor *tkColPtr = (TkColor *) colorPtr;
static char string[20];
*----------------------------------------------------------------------
*/
-void
-Tk_FreeColor(colorPtr)
- XColor *colorPtr; /* Color to be released. Must have been
+void
+Tk_FreeColor (
+ XColor *colorPtr /* Color to be released. Must have been
* allocated by Tk_GetColor or
* Tk_GetColorByValue. */
+)
{
register TkColor *tkColPtr = (TkColor *) colorPtr;
Visual *visual;
*----------------------------------------------------------------------
*/
-static void
-ColorInit()
+static void
+ColorInit (void)
{
initialized = 1;
Tcl_InitHashTable(&nameTable, sizeof(NameKey)/sizeof(int));
*--------------------------------------------------------------
*/
-int
-Tk_ConfigureWidget(interp, tkwin, specs, argc, argv, widgRec, flags)
- Tcl_Interp *interp; /* Interpreter for error reporting. */
- Tk_Window tkwin; /* Window containing widget (needed to
+int
+Tk_ConfigureWidget (
+ Tcl_Interp *interp, /* Interpreter for error reporting. */
+ Tk_Window tkwin, /* Window containing widget (needed to
* set up X resources). */
- Tk_ConfigSpec *specs; /* Describes legal options. */
- int argc; /* Number of elements in argv. */
- char **argv; /* Command-line options. */
- char *widgRec; /* Record whose fields are to be
+ Tk_ConfigSpec *specs, /* Describes legal options. */
+ int argc, /* Number of elements in argv. */
+ char **argv, /* Command-line options. */
+ char *widgRec, /* Record whose fields are to be
* modified. Values must be properly
* initialized. */
- int flags; /* Used to specify additional flags
+ int flags /* Used to specify additional flags
* that must be present in config specs
* for them to be considered. Also,
* may have TK_CONFIG_ARGV_ONLY set. */
+)
{
register Tk_ConfigSpec *specPtr;
Tk_Uid value; /* Value of option from database. */
*/
static Tk_ConfigSpec *
-FindConfigSpec(interp, specs, argvName, needFlags, hateFlags)
- Tcl_Interp *interp; /* Used for reporting errors. */
- Tk_ConfigSpec *specs; /* Pointer to table of configuration
+FindConfigSpec (
+ Tcl_Interp *interp, /* Used for reporting errors. */
+ Tk_ConfigSpec *specs, /* Pointer to table of configuration
* specifications for a widget. */
- char *argvName; /* Name (suitable for use in a "config"
+ char *argvName, /* Name (suitable for use in a "config"
* command) identifying particular option. */
- int needFlags; /* Flags that must be present in matching
+ int needFlags, /* Flags that must be present in matching
* entry. */
- int hateFlags; /* Flags that must NOT be present in
+ int hateFlags /* Flags that must NOT be present in
* matching entry. */
+)
{
register Tk_ConfigSpec *specPtr;
register char c; /* First character of current argument. */
*--------------------------------------------------------------
*/
-static int
-DoConfig(interp, tkwin, specPtr, value, valueIsUid, widgRec)
- Tcl_Interp *interp; /* Interpreter for error reporting. */
- Tk_Window tkwin; /* Window containing widget (needed to
+static int
+DoConfig (
+ Tcl_Interp *interp, /* Interpreter for error reporting. */
+ Tk_Window tkwin, /* Window containing widget (needed to
* set up X resources). */
- Tk_ConfigSpec *specPtr; /* Specifier to apply. */
- char *value; /* Value to use to fill in widgRec. */
- int valueIsUid; /* Non-zero means value is a Tk_Uid;
+ Tk_ConfigSpec *specPtr, /* Specifier to apply. */
+ char *value, /* Value to use to fill in widgRec. */
+ int valueIsUid, /* Non-zero means value is a Tk_Uid;
* zero means it's an ordinary string. */
- char *widgRec; /* Record whose fields are to be
+ char *widgRec /* Record whose fields are to be
* modified. Values must be properly
* initialized. */
+)
{
char *ptr;
Tk_Uid uid;
*--------------------------------------------------------------
*/
-int
-Tk_ConfigureInfo(interp, tkwin, specs, widgRec, argvName, flags)
- Tcl_Interp *interp; /* Interpreter for error reporting. */
- Tk_Window tkwin; /* Window corresponding to widgRec. */
- Tk_ConfigSpec *specs; /* Describes legal options. */
- char *widgRec; /* Record whose fields contain current
+int
+Tk_ConfigureInfo (
+ Tcl_Interp *interp, /* Interpreter for error reporting. */
+ Tk_Window tkwin, /* Window corresponding to widgRec. */
+ Tk_ConfigSpec *specs, /* Describes legal options. */
+ char *widgRec, /* Record whose fields contain current
* values for options. */
- char *argvName; /* If non-NULL, indicates a single option
+ char *argvName, /* If non-NULL, indicates a single option
* whose info is to be returned. Otherwise
* info is returned for all options. */
- int flags; /* Used to specify additional flags
+ int flags /* Used to specify additional flags
* that must be present in config specs
* for them to be considered. */
+)
{
register Tk_ConfigSpec *specPtr;
int needFlags, hateFlags;
*/
static char *
-FormatConfigInfo(tkwin, specPtr, widgRec)
- Tk_Window tkwin; /* Window corresponding to widget. */
- register Tk_ConfigSpec *specPtr; /* Pointer to information describing
+FormatConfigInfo (
+ Tk_Window tkwin, /* Window corresponding to widget. */
+ register Tk_ConfigSpec *specPtr, /* Pointer to information describing
* option. */
- char *widgRec; /* Pointer to record holding current
+ char *widgRec /* Pointer to record holding current
* values of info for widget. */
+)
{
char *argv[6], *ptr, *result;
char buffer[200];
#if !(defined(_CRAY) || defined(sparc) || defined(_IBMR2) || defined(sgi))
extern int open _ANSI_ARGS_((CONST char *path, int flags, ...));
#endif
-extern void panic _ANSI_ARGS_(VARARGS);
+extern void panic _ANSI_ARGS_((char *format, ...));
#if 0
extern int read _ANSI_ARGS_((int fd, void *buf, unsigned int numBytes));
extern int select _ANSI_ARGS_((int nfds, SELECT_MASK *readfds,
*----------------------------------------------------------------------
*/
-Cursor
-Tk_GetCursor(interp, tkwin, string)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- Tk_Window tkwin; /* Window in which cursor will be used. */
- Tk_Uid string; /* Description of cursor. See manual entry
+Cursor
+Tk_GetCursor (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ Tk_Window tkwin, /* Window in which cursor will be used. */
+ Tk_Uid string /* Description of cursor. See manual entry
* for details on legal syntax. */
+)
{
NameKey key;
Tcl_HashEntry *nameHashPtr, *idHashPtr;
*----------------------------------------------------------------------
*/
-Cursor
-Tk_GetCursorFromData(interp, tkwin, source, mask, width, height,
- xHot, yHot, fg, bg)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- Tk_Window tkwin; /* Window in which cursor will be used. */
- char *source; /* Bitmap data for cursor shape. */
- char *mask; /* Bitmap data for cursor mask. */
- unsigned int width, height; /* Dimensions of cursor. */
- int xHot, yHot; /* Location of hot-spot in cursor. */
- Tk_Uid fg; /* Foreground color for cursor. */
- Tk_Uid bg; /* Background color for cursor. */
+Cursor
+Tk_GetCursorFromData (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ Tk_Window tkwin, /* Window in which cursor will be used. */
+ char *source, /* Bitmap data for cursor shape. */
+ char *mask, /* Bitmap data for cursor mask. */
+ unsigned int width,
+ unsigned int height, /* Dimensions of cursor. */
+ int xHot,
+ int yHot, /* Location of hot-spot in cursor. */
+ Tk_Uid fg, /* Foreground color for cursor. */
+ Tk_Uid bg /* Background color for cursor. */
+)
{
DataKey key;
Tcl_HashEntry *dataHashPtr, *idHashPtr;
*/
char *
-Tk_NameOfCursor(cursor)
- Cursor cursor; /* Cursor to be released. */
+Tk_NameOfCursor (
+ Cursor cursor /* Cursor to be released. */
+)
{
Tcl_HashEntry *idHashPtr;
TkCursor *cursorPtr;
*----------------------------------------------------------------------
*/
-void
-Tk_FreeCursor(cursor)
- Cursor cursor; /* Cursor to be released. */
+void
+Tk_FreeCursor (
+ Cursor cursor /* Cursor to be released. */
+)
{
Tcl_HashEntry *idHashPtr;
register TkCursor *cursorPtr;
*----------------------------------------------------------------------
*/
-static void
-CursorInit()
+static void
+CursorInit (void)
{
initialized = 1;
Tcl_InitHashTable(&nameTable, sizeof(NameKey)/sizeof(long));
*--------------------------------------------------------------
*/
-static int
-CreateArc(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas to hold new item. */
- Tk_Item *itemPtr; /* Record to hold new item; header
+static int
+CreateArc (
+ register Tk_Canvas *canvasPtr, /* Canvas to hold new item. */
+ Tk_Item *itemPtr, /* Record to hold new item; header
* has been initialized by caller. */
- int argc; /* Number of arguments in argv. */
- char **argv; /* Arguments describing arc. */
+ int argc, /* Number of arguments in argv. */
+ char **argv /* Arguments describing arc. */
+)
{
register ArcItem *arcPtr = (ArcItem *) itemPtr;
*--------------------------------------------------------------
*/
-static int
-ArcCoords(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item whose coordinates are to be
+static int
+ArcCoords (
+ register Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item whose coordinates are to be
* read or modified. */
- int argc; /* Number of coordinates supplied in
+ int argc, /* Number of coordinates supplied in
* argv. */
- char **argv; /* Array of coordinates: x1, y1,
+ char **argv /* Array of coordinates: x1, y1,
* x2, y2, ... */
+)
{
register ArcItem *arcPtr = (ArcItem *) itemPtr;
char buffer[500];
*--------------------------------------------------------------
*/
-static int
-ConfigureArc(canvasPtr, itemPtr, argc, argv, flags)
- Tk_Canvas *canvasPtr; /* Canvas containing itemPtr. */
- Tk_Item *itemPtr; /* Arc item to reconfigure. */
- int argc; /* Number of elements in argv. */
- char **argv; /* Arguments describing things to configure. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+static int
+ConfigureArc (
+ Tk_Canvas *canvasPtr, /* Canvas containing itemPtr. */
+ Tk_Item *itemPtr, /* Arc item to reconfigure. */
+ int argc, /* Number of elements in argv. */
+ char **argv, /* Arguments describing things to configure. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
register ArcItem *arcPtr = (ArcItem *) itemPtr;
XGCValues gcValues;
*--------------------------------------------------------------
*/
-static void
-DeleteArc(itemPtr)
- Tk_Item *itemPtr; /* Item that is being deleted. */
+static void
+DeleteArc (
+ Tk_Item *itemPtr /* Item that is being deleted. */
+)
{
register ArcItem *arcPtr = (ArcItem *) itemPtr;
*/
/* ARGSUSED */
-static void
-ComputeArcBbox(canvasPtr, arcPtr)
- register Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- register ArcItem *arcPtr; /* Item whose bbox is to be
+static void
+ComputeArcBbox (
+ register Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ register ArcItem *arcPtr /* Item whose bbox is to be
* recomputed. */
+)
{
double tmp, center[2], point[2];
*--------------------------------------------------------------
*/
-static void
-DisplayArc(canvasPtr, itemPtr, drawable)
- register Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- Tk_Item *itemPtr; /* Item to be displayed. */
- Drawable drawable; /* Pixmap or window in which to draw
+static void
+DisplayArc (
+ register Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ Tk_Item *itemPtr, /* Item to be displayed. */
+ Drawable drawable /* Pixmap or window in which to draw
* item. */
+)
{
register ArcItem *arcPtr = (ArcItem *) itemPtr;
Display *display = Tk_Display(canvasPtr->tkwin);
*/
/* ARGSUSED */
-static double
-ArcToPoint(canvasPtr, itemPtr, pointPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against point. */
- double *pointPtr; /* Pointer to x and y coordinates. */
+static double
+ArcToPoint (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against point. */
+ double *pointPtr /* Pointer to x and y coordinates. */
+)
{
register ArcItem *arcPtr = (ArcItem *) itemPtr;
double vertex[2], pointAngle, diff, dist, newDist;
*/
/* ARGSUSED */
-static int
-ArcToArea(canvasPtr, itemPtr, rectPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against arc. */
- double *rectPtr; /* Pointer to array of four coordinates
+static int
+ArcToArea (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against arc. */
+ double *rectPtr /* Pointer to array of four coordinates
* (x1, y1, x2, y2) describing rectangular
* area. */
+)
{
register ArcItem *arcPtr = (ArcItem *) itemPtr;
double rx, ry; /* Radii for transformed oval: these define
*--------------------------------------------------------------
*/
-static void
-ScaleArc(canvasPtr, itemPtr, originX, originY, scaleX, scaleY)
- Tk_Canvas *canvasPtr; /* Canvas containing arc. */
- Tk_Item *itemPtr; /* Arc to be scaled. */
- double originX, originY; /* Origin about which to scale rect. */
- double scaleX; /* Amount to scale in X direction. */
- double scaleY; /* Amount to scale in Y direction. */
+static void
+ScaleArc (
+ Tk_Canvas *canvasPtr, /* Canvas containing arc. */
+ Tk_Item *itemPtr, /* Arc to be scaled. */
+ double originX,
+ double originY, /* Origin about which to scale rect. */
+ double scaleX, /* Amount to scale in X direction. */
+ double scaleY /* Amount to scale in Y direction. */
+)
{
register ArcItem *arcPtr = (ArcItem *) itemPtr;
*--------------------------------------------------------------
*/
-static void
-TranslateArc(canvasPtr, itemPtr, deltaX, deltaY)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item that is being moved. */
- double deltaX, deltaY; /* Amount by which item is to be
+static void
+TranslateArc (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item that is being moved. */
+ double deltaX,
+ double deltaY /* Amount by which item is to be
* moved. */
+)
{
register ArcItem *arcPtr = (ArcItem *) itemPtr;
*--------------------------------------------------------------
*/
-static void
-ComputeArcOutline(arcPtr)
- register ArcItem *arcPtr;
+static void
+ComputeArcOutline (register ArcItem *arcPtr)
{
double sin1, cos1, sin2, cos2, angle, halfWidth;
double boxWidth, boxHeight;
*--------------------------------------------------------------
*/
-static int
-HorizLineToArc(x1, x2, y, rx, ry, start, extent)
- double x1, x2; /* X-coords of endpoints of line segment.
+static int
+HorizLineToArc (
+ double x1,
+ double x2, /* X-coords of endpoints of line segment.
* X1 must be <= x2. */
- double y; /* Y-coordinate of line segment. */
- double rx, ry; /* These x- and y-radii define an oval
+ double y, /* Y-coordinate of line segment. */
+ double rx,
+ double ry, /* These x- and y-radii define an oval
* centered at the origin. */
- double start, extent; /* Angles that define extent of arc, in
+ double start,
+ double extent /* Angles that define extent of arc, in
* the standard fashion for this module. */
+)
{
double tmp;
double tx, ty; /* Coordinates of intersection point in
*--------------------------------------------------------------
*/
-static int
-VertLineToArc(x, y1, y2, rx, ry, start, extent)
- double x; /* X-coordinate of line segment. */
- double y1, y2; /* Y-coords of endpoints of line segment.
+static int
+VertLineToArc (
+ double x, /* X-coordinate of line segment. */
+ double y1,
+ double y2, /* Y-coords of endpoints of line segment.
* Y1 must be <= y2. */
- double rx, ry; /* These x- and y-radii define an oval
+ double rx,
+ double ry, /* These x- and y-radii define an oval
* centered at the origin. */
- double start, extent; /* Angles that define extent of arc, in
+ double start,
+ double extent /* Angles that define extent of arc, in
* the standard fashion for this module. */
+)
{
double tmp;
double tx, ty; /* Coordinates of intersection point in
*--------------------------------------------------------------
*/
-static int
-AngleInRange(x, y, start, extent)
- double x, y; /* Coordinate of point; angle measured
+static int
+AngleInRange (
+ double x,
+ double y, /* Coordinate of point; angle measured
* from origin to here, relative to x-axis. */
- double start; /* First angle, degrees, >=0, <=360. */
- double extent; /* Size of arc in degrees >=-360, <=360. */
+ double start, /* First angle, degrees, >=0, <=360. */
+ double extent /* Size of arc in degrees >=-360, <=360. */
+)
{
double diff;
*--------------------------------------------------------------
*/
-static int
-CreateBitmap(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas to hold new item. */
- Tk_Item *itemPtr; /* Record to hold new item; header
+static int
+CreateBitmap (
+ register Tk_Canvas *canvasPtr, /* Canvas to hold new item. */
+ Tk_Item *itemPtr, /* Record to hold new item; header
* has been initialized by caller. */
- int argc; /* Number of arguments in argv. */
- char **argv; /* Arguments describing rectangle. */
+ int argc, /* Number of arguments in argv. */
+ char **argv /* Arguments describing rectangle. */
+)
{
register BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
*--------------------------------------------------------------
*/
-static int
-BitmapCoords(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item whose coordinates are to be
+static int
+BitmapCoords (
+ register Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item whose coordinates are to be
* read or modified. */
- int argc; /* Number of coordinates supplied in
+ int argc, /* Number of coordinates supplied in
* argv. */
- char **argv; /* Array of coordinates: x1, y1,
+ char **argv /* Array of coordinates: x1, y1,
* x2, y2, ... */
+)
{
register BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
*--------------------------------------------------------------
*/
-static int
-ConfigureBitmap(canvasPtr, itemPtr, argc, argv, flags)
- Tk_Canvas *canvasPtr; /* Canvas containing itemPtr. */
- Tk_Item *itemPtr; /* Bitmap item to reconfigure. */
- int argc; /* Number of elements in argv. */
- char **argv; /* Arguments describing things to configure. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+static int
+ConfigureBitmap (
+ Tk_Canvas *canvasPtr, /* Canvas containing itemPtr. */
+ Tk_Item *itemPtr, /* Bitmap item to reconfigure. */
+ int argc, /* Number of elements in argv. */
+ char **argv, /* Arguments describing things to configure. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
register BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
XGCValues gcValues;
*--------------------------------------------------------------
*/
-static void
-DeleteBitmap(itemPtr)
- Tk_Item *itemPtr; /* Item that is being deleted. */
+static void
+DeleteBitmap (
+ Tk_Item *itemPtr /* Item that is being deleted. */
+)
{
register BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
*/
/* ARGSUSED */
-static void
-ComputeBitmapBbox(canvasPtr, bmapPtr)
- Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- register BitmapItem *bmapPtr; /* Item whose bbox is to be
+static void
+ComputeBitmapBbox (
+ Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ register BitmapItem *bmapPtr /* Item whose bbox is to be
* recomputed. */
+)
{
unsigned int width, height;
int x, y;
*--------------------------------------------------------------
*/
-static void
-DisplayBitmap(canvasPtr, itemPtr, drawable)
- register Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- Tk_Item *itemPtr; /* Item to be displayed. */
- Drawable drawable; /* Pixmap or window in which to draw
+static void
+DisplayBitmap (
+ register Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ Tk_Item *itemPtr, /* Item to be displayed. */
+ Drawable drawable /* Pixmap or window in which to draw
* item. */
+)
{
register BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
*/
/* ARGSUSED */
-static double
-BitmapToPoint(canvasPtr, itemPtr, coordPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against point. */
- double *coordPtr; /* Pointer to x and y coordinates. */
+static double
+BitmapToPoint (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against point. */
+ double *coordPtr /* Pointer to x and y coordinates. */
+)
{
register BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
double x1, x2, y1, y2, xDiff, yDiff;
*/
/* ARGSUSED */
-static int
-BitmapToArea(canvasPtr, itemPtr, rectPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against rectangle. */
- double *rectPtr; /* Pointer to array of four coordinates
+static int
+BitmapToArea (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against rectangle. */
+ double *rectPtr /* Pointer to array of four coordinates
* (x1, y1, x2, y2) describing rectangular
* area. */
+)
{
register BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
*--------------------------------------------------------------
*/
-static void
-ScaleBitmap(canvasPtr, itemPtr, originX, originY, scaleX, scaleY)
- Tk_Canvas *canvasPtr; /* Canvas containing rectangle. */
- Tk_Item *itemPtr; /* Rectangle to be scaled. */
- double originX, originY; /* Origin about which to scale rect. */
- double scaleX; /* Amount to scale in X direction. */
- double scaleY; /* Amount to scale in Y direction. */
+static void
+ScaleBitmap (
+ Tk_Canvas *canvasPtr, /* Canvas containing rectangle. */
+ Tk_Item *itemPtr, /* Rectangle to be scaled. */
+ double originX,
+ double originY, /* Origin about which to scale rect. */
+ double scaleX, /* Amount to scale in X direction. */
+ double scaleY /* Amount to scale in Y direction. */
+)
{
register BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
*--------------------------------------------------------------
*/
-static void
-TranslateBitmap(canvasPtr, itemPtr, deltaX, deltaY)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item that is being moved. */
- double deltaX, deltaY; /* Amount by which item is to be
+static void
+TranslateBitmap (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item that is being moved. */
+ double deltaX,
+ double deltaY /* Amount by which item is to be
* moved. */
+)
{
register BitmapItem *bmapPtr = (BitmapItem *) itemPtr;
*--------------------------------------------------------------
*/
-static int
-CreateLine(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas to hold new item. */
- Tk_Item *itemPtr; /* Record to hold new item; header
+static int
+CreateLine (
+ register Tk_Canvas *canvasPtr, /* Canvas to hold new item. */
+ Tk_Item *itemPtr, /* Record to hold new item; header
* has been initialized by caller. */
- int argc; /* Number of arguments in argv. */
- char **argv; /* Arguments describing line. */
+ int argc, /* Number of arguments in argv. */
+ char **argv /* Arguments describing line. */
+)
{
register LineItem *linePtr = (LineItem *) itemPtr;
int i;
*--------------------------------------------------------------
*/
-static int
-LineCoords(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item whose coordinates are to be
+static int
+LineCoords (
+ register Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item whose coordinates are to be
* read or modified. */
- int argc; /* Number of coordinates supplied in
+ int argc, /* Number of coordinates supplied in
* argv. */
- char **argv; /* Array of coordinates: x1, y1,
+ char **argv /* Array of coordinates: x1, y1,
* x2, y2, ... */
+)
{
register LineItem *linePtr = (LineItem *) itemPtr;
char buffer[300];
*--------------------------------------------------------------
*/
-static int
-ConfigureLine(canvasPtr, itemPtr, argc, argv, flags)
- Tk_Canvas *canvasPtr; /* Canvas containing itemPtr. */
- Tk_Item *itemPtr; /* Line item to reconfigure. */
- int argc; /* Number of elements in argv. */
- char **argv; /* Arguments describing things to configure. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+static int
+ConfigureLine (
+ Tk_Canvas *canvasPtr, /* Canvas containing itemPtr. */
+ Tk_Item *itemPtr, /* Line item to reconfigure. */
+ int argc, /* Number of elements in argv. */
+ char **argv, /* Arguments describing things to configure. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
register LineItem *linePtr = (LineItem *) itemPtr;
XGCValues gcValues;
*--------------------------------------------------------------
*/
-static void
-DeleteLine(itemPtr)
- Tk_Item *itemPtr; /* Item that is being deleted. */
+static void
+DeleteLine (
+ Tk_Item *itemPtr /* Item that is being deleted. */
+)
{
register LineItem *linePtr = (LineItem *) itemPtr;
*--------------------------------------------------------------
*/
-static void
-ComputeLineBbox(canvasPtr, linePtr)
- register Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- LineItem *linePtr; /* Item whose bbos is to be
+static void
+ComputeLineBbox (
+ register Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ LineItem *linePtr /* Item whose bbos is to be
* recomputed. */
+)
{
register double *coordPtr;
int i;
*--------------------------------------------------------------
*/
-static void
-DisplayLine(canvasPtr, itemPtr, drawable)
- register Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- Tk_Item *itemPtr; /* Item to be displayed. */
- Drawable drawable; /* Pixmap or window in which to draw
+static void
+DisplayLine (
+ register Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ Tk_Item *itemPtr, /* Item to be displayed. */
+ Drawable drawable /* Pixmap or window in which to draw
* item. */
+)
{
register LineItem *linePtr = (LineItem *) itemPtr;
XPoint staticPoints[MAX_STATIC_POINTS];
*/
/* ARGSUSED */
-static double
-LineToPoint(canvasPtr, itemPtr, pointPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against point. */
- double *pointPtr; /* Pointer to x and y coordinates. */
+static double
+LineToPoint (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against point. */
+ double *pointPtr /* Pointer to x and y coordinates. */
+)
{
register LineItem *linePtr = (LineItem *) itemPtr;
register double *coordPtr, *linePoints;
*/
/* ARGSUSED */
-static int
-LineToArea(canvasPtr, itemPtr, rectPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against line. */
- double *rectPtr;
+static int
+LineToArea (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against line. */
+ double *rectPtr
+)
{
register LineItem *linePtr = (LineItem *) itemPtr;
register double *coordPtr;
*--------------------------------------------------------------
*/
-static void
-ScaleLine(canvasPtr, itemPtr, originX, originY, scaleX, scaleY)
- Tk_Canvas *canvasPtr; /* Canvas containing line. */
- Tk_Item *itemPtr; /* Line to be scaled. */
- double originX, originY; /* Origin about which to scale rect. */
- double scaleX; /* Amount to scale in X direction. */
- double scaleY; /* Amount to scale in Y direction. */
+static void
+ScaleLine (
+ Tk_Canvas *canvasPtr, /* Canvas containing line. */
+ Tk_Item *itemPtr, /* Line to be scaled. */
+ double originX,
+ double originY, /* Origin about which to scale rect. */
+ double scaleX, /* Amount to scale in X direction. */
+ double scaleY /* Amount to scale in Y direction. */
+)
{
LineItem *linePtr = (LineItem *) itemPtr;
register double *coordPtr;
*--------------------------------------------------------------
*/
-static void
-TranslateLine(canvasPtr, itemPtr, deltaX, deltaY)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item that is being moved. */
- double deltaX, deltaY; /* Amount by which item is to be
+static void
+TranslateLine (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item that is being moved. */
+ double deltaX,
+ double deltaY /* Amount by which item is to be
* moved. */
+)
{
LineItem *linePtr = (LineItem *) itemPtr;
register double *coordPtr;
*/
/* ARGSUSED */
-static int
-ParseArrowShape(clientData, interp, tkwin, value, recordPtr, offset)
- ClientData clientData; /* Not used. */
- Tcl_Interp *interp; /* Used for error reporting. */
- Tk_Window tkwin; /* Not used. */
- char *value; /* Textual specification of arrow shape. */
- char *recordPtr; /* Pointer to item record in which to
+static int
+ParseArrowShape (
+ ClientData clientData, /* Not used. */
+ Tcl_Interp *interp, /* Used for error reporting. */
+ Tk_Window tkwin, /* Not used. */
+ char *value, /* Textual specification of arrow shape. */
+ char *recordPtr, /* Pointer to item record in which to
* store arrow information. */
- int offset; /* Offset of shape information in widget
+ int offset /* Offset of shape information in widget
* record. */
+)
{
LineItem *linePtr = (LineItem *) recordPtr;
double a, b, c;
/* ARGSUSED */
static char *
-PrintArrowShape(clientData, tkwin, recordPtr, offset, freeProcPtr)
- ClientData clientData; /* Not used. */
- Tk_Window tkwin; /* Window associated with linePtr's widget. */
- char *recordPtr; /* Pointer to item record containing current
+PrintArrowShape (
+ ClientData clientData, /* Not used. */
+ Tk_Window tkwin, /* Window associated with linePtr's widget. */
+ char *recordPtr, /* Pointer to item record containing current
* shape information. */
- int offset; /* Offset of arrow information in record. */
- Tcl_FreeProc **freeProcPtr; /* Store address of procedure to call to
+ int offset, /* Offset of arrow information in record. */
+ Tcl_FreeProc **freeProcPtr /* Store address of procedure to call to
* free string here. */
+)
{
LineItem *linePtr = (LineItem *) recordPtr;
char *buffer;
*/
/* ARGSUSED */
-static int
-ConfigureArrows(canvasPtr, linePtr)
- Tk_Canvas *canvasPtr; /* Canvas in which arrows will be
+static int
+ConfigureArrows (
+ Tk_Canvas *canvasPtr, /* Canvas in which arrows will be
* displayed (interp and tkwin
* fields are needed). */
- register LineItem *linePtr; /* Item to configure for arrows. */
+ register LineItem *linePtr /* Item to configure for arrows. */
+)
{
double *poly, *coordPtr;
double dx, dy, length, sinTheta, cosTheta, temp, shapeC;
*--------------------------------------------------------------
*/
-static int
-CreatePolygon(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas to hold new item. */
- Tk_Item *itemPtr; /* Record to hold new item; header
+static int
+CreatePolygon (
+ register Tk_Canvas *canvasPtr, /* Canvas to hold new item. */
+ Tk_Item *itemPtr, /* Record to hold new item; header
* has been initialized by caller. */
- int argc; /* Number of arguments in argv. */
- char **argv; /* Arguments describing polygon. */
+ int argc, /* Number of arguments in argv. */
+ char **argv /* Arguments describing polygon. */
+)
{
register PolygonItem *polyPtr = (PolygonItem *) itemPtr;
int i;
*--------------------------------------------------------------
*/
-static int
-PolygonCoords(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item whose coordinates are to be
+static int
+PolygonCoords (
+ register Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item whose coordinates are to be
* read or modified. */
- int argc; /* Number of coordinates supplied in
+ int argc, /* Number of coordinates supplied in
* argv. */
- char **argv; /* Array of coordinates: x1, y1,
+ char **argv /* Array of coordinates: x1, y1,
* x2, y2, ... */
+)
{
register PolygonItem *polyPtr = (PolygonItem *) itemPtr;
char buffer[300];
*--------------------------------------------------------------
*/
-static int
-ConfigurePolygon(canvasPtr, itemPtr, argc, argv, flags)
- Tk_Canvas *canvasPtr; /* Canvas containing itemPtr. */
- Tk_Item *itemPtr; /* Polygon item to reconfigure. */
- int argc; /* Number of elements in argv. */
- char **argv; /* Arguments describing things to configure. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+static int
+ConfigurePolygon (
+ Tk_Canvas *canvasPtr, /* Canvas containing itemPtr. */
+ Tk_Item *itemPtr, /* Polygon item to reconfigure. */
+ int argc, /* Number of elements in argv. */
+ char **argv, /* Arguments describing things to configure. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
register PolygonItem *polyPtr = (PolygonItem *) itemPtr;
XGCValues gcValues;
*--------------------------------------------------------------
*/
-static void
-DeletePolygon(itemPtr)
- Tk_Item *itemPtr; /* Item that is being deleted. */
+static void
+DeletePolygon (
+ Tk_Item *itemPtr /* Item that is being deleted. */
+)
{
register PolygonItem *polyPtr = (PolygonItem *) itemPtr;
*--------------------------------------------------------------
*/
-static void
-ComputePolygonBbox(canvasPtr, polyPtr)
- register Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- PolygonItem *polyPtr; /* Item whose bbox is to be
+static void
+ComputePolygonBbox (
+ register Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ PolygonItem *polyPtr /* Item whose bbox is to be
* recomputed. */
+)
{
register double *coordPtr;
int i;
*--------------------------------------------------------------
*/
-void
-TkFillPolygon(canvasPtr, coordPtr, numPoints, drawable, gc)
- register Tk_Canvas *canvasPtr; /* Canvas whose coordinate system
+void
+TkFillPolygon (
+ register Tk_Canvas *canvasPtr, /* Canvas whose coordinate system
* is to be used for drawing. */
- double *coordPtr; /* Array of coordinates for polygon:
+ double *coordPtr, /* Array of coordinates for polygon:
* x1, y1, x2, y2, .... */
- int numPoints; /* Twice this many coordinates are
+ int numPoints, /* Twice this many coordinates are
* present at *coordPtr. */
- Drawable drawable; /* Pixmap or window in which to draw
+ Drawable drawable, /* Pixmap or window in which to draw
* polygon. */
- GC gc; /* Graphics context for drawing. */
+ GC gc /* Graphics context for drawing. */
+)
{
XPoint staticPoints[MAX_STATIC_POINTS];
XPoint *pointPtr;
*--------------------------------------------------------------
*/
-static void
-DisplayPolygon(canvasPtr, itemPtr, drawable)
- register Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- Tk_Item *itemPtr; /* Item to be displayed. */
- Drawable drawable; /* Pixmap or window in which to draw
+static void
+DisplayPolygon (
+ register Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ Tk_Item *itemPtr, /* Item to be displayed. */
+ Drawable drawable /* Pixmap or window in which to draw
* item. */
+)
{
register PolygonItem *polyPtr = (PolygonItem *) itemPtr;
*/
/* ARGSUSED */
-static double
-PolygonToPoint(canvasPtr, itemPtr, pointPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against point. */
- double *pointPtr; /* Pointer to x and y coordinates. */
+static double
+PolygonToPoint (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against point. */
+ double *pointPtr /* Pointer to x and y coordinates. */
+)
{
PolygonItem *polyPtr = (PolygonItem *) itemPtr;
double *coordPtr, distance;
*/
/* ARGSUSED */
-static int
-PolygonToArea(canvasPtr, itemPtr, rectPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against polygon. */
- double *rectPtr; /* Pointer to array of four coordinates
+static int
+PolygonToArea (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against polygon. */
+ double *rectPtr /* Pointer to array of four coordinates
* (x1, y1, x2, y2) describing rectangular
* area. */
+)
{
PolygonItem *polyPtr = (PolygonItem *) itemPtr;
double *coordPtr;
*--------------------------------------------------------------
*/
-static void
-ScalePolygon(canvasPtr, itemPtr, originX, originY, scaleX, scaleY)
- Tk_Canvas *canvasPtr; /* Canvas containing polygon. */
- Tk_Item *itemPtr; /* Polygon to be scaled. */
- double originX, originY; /* Origin about which to scale rect. */
- double scaleX; /* Amount to scale in X direction. */
- double scaleY; /* Amount to scale in Y direction. */
+static void
+ScalePolygon (
+ Tk_Canvas *canvasPtr, /* Canvas containing polygon. */
+ Tk_Item *itemPtr, /* Polygon to be scaled. */
+ double originX,
+ double originY, /* Origin about which to scale rect. */
+ double scaleX, /* Amount to scale in X direction. */
+ double scaleY /* Amount to scale in Y direction. */
+)
{
PolygonItem *polyPtr = (PolygonItem *) itemPtr;
register double *coordPtr;
*--------------------------------------------------------------
*/
-static void
-TranslatePolygon(canvasPtr, itemPtr, deltaX, deltaY)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item that is being moved. */
- double deltaX, deltaY; /* Amount by which item is to be
+static void
+TranslatePolygon (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item that is being moved. */
+ double deltaX,
+ double deltaY /* Amount by which item is to be
* moved. */
+)
{
PolygonItem *polyPtr = (PolygonItem *) itemPtr;
register double *coordPtr;
*--------------------------------------------------------------
*/
-static int
-CreateText(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas to hold new item. */
- Tk_Item *itemPtr; /* Record to hold new item; header
+static int
+CreateText (
+ register Tk_Canvas *canvasPtr, /* Canvas to hold new item. */
+ Tk_Item *itemPtr, /* Record to hold new item; header
* has been initialized by caller. */
- int argc; /* Number of arguments in argv. */
- char **argv; /* Arguments describing rectangle. */
+ int argc, /* Number of arguments in argv. */
+ char **argv /* Arguments describing rectangle. */
+)
{
register TextItem *textPtr = (TextItem *) itemPtr;
*--------------------------------------------------------------
*/
-static int
-TextCoords(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item whose coordinates are to be
+static int
+TextCoords (
+ register Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item whose coordinates are to be
* read or modified. */
- int argc; /* Number of coordinates supplied in
+ int argc, /* Number of coordinates supplied in
* argv. */
- char **argv; /* Array of coordinates: x1, y1,
+ char **argv /* Array of coordinates: x1, y1,
* x2, y2, ... */
+)
{
register TextItem *textPtr = (TextItem *) itemPtr;
*--------------------------------------------------------------
*/
-static int
-ConfigureText(canvasPtr, itemPtr, argc, argv, flags)
- Tk_Canvas *canvasPtr; /* Canvas containing itemPtr. */
- Tk_Item *itemPtr; /* Rectangle item to reconfigure. */
- int argc; /* Number of elements in argv. */
- char **argv; /* Arguments describing things to configure. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+static int
+ConfigureText (
+ Tk_Canvas *canvasPtr, /* Canvas containing itemPtr. */
+ Tk_Item *itemPtr, /* Rectangle item to reconfigure. */
+ int argc, /* Number of elements in argv. */
+ char **argv, /* Arguments describing things to configure. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
register TextItem *textPtr = (TextItem *) itemPtr;
XGCValues gcValues;
*--------------------------------------------------------------
*/
-static void
-DeleteText(itemPtr)
- Tk_Item *itemPtr; /* Item that is being deleted. */
+static void
+DeleteText (
+ Tk_Item *itemPtr /* Item that is being deleted. */
+)
{
register TextItem *textPtr = (TextItem *) itemPtr;
*--------------------------------------------------------------
*/
-static void
-ComputeTextBbox(canvasPtr, textPtr)
- register Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- register TextItem *textPtr; /* Item whose bbos is to be
+static void
+ComputeTextBbox (
+ register Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ register TextItem *textPtr /* Item whose bbos is to be
* recomputed. */
+)
{
register TextLine *linePtr;
#define MAX_LINES 100
*--------------------------------------------------------------
*/
-static void
-DisplayText(canvasPtr, itemPtr, drawable)
- register Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- Tk_Item *itemPtr; /* Item to be displayed. */
- Drawable drawable; /* Pixmap or window in which to draw
+static void
+DisplayText (
+ register Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ Tk_Item *itemPtr, /* Item to be displayed. */
+ Drawable drawable /* Pixmap or window in which to draw
* item. */
+)
{
register TextItem *textPtr = (TextItem *) itemPtr;
Display *display = Tk_Display(canvasPtr->tkwin);
*--------------------------------------------------------------
*/
-static int
-TextInsert(canvasPtr, itemPtr, beforeThis, string)
- Tk_Canvas *canvasPtr; /* Canvas containing text item. */
- Tk_Item *itemPtr; /* Text item to be modified. */
- int beforeThis; /* Index of character before which text is
+static int
+TextInsert (
+ Tk_Canvas *canvasPtr, /* Canvas containing text item. */
+ Tk_Item *itemPtr, /* Text item to be modified. */
+ int beforeThis, /* Index of character before which text is
* to be inserted. */
- char *string; /* New characters to be inserted. */
+ char *string /* New characters to be inserted. */
+)
{
register TextItem *textPtr = (TextItem *) itemPtr;
int length;
*--------------------------------------------------------------
*/
-static int
-TextDeleteChars(canvasPtr, itemPtr, first, last)
- Tk_Canvas *canvasPtr; /* Canvas containing itemPtr. */
- Tk_Item *itemPtr; /* Item in which to delete characters. */
- int first; /* Index of first character to delete. */
- int last; /* Index of last character to delete. */
+static int
+TextDeleteChars (
+ Tk_Canvas *canvasPtr, /* Canvas containing itemPtr. */
+ Tk_Item *itemPtr, /* Item in which to delete characters. */
+ int first, /* Index of first character to delete. */
+ int last /* Index of last character to delete. */
+)
{
register TextItem *textPtr = (TextItem *) itemPtr;
int count;
*/
/* ARGSUSED */
-static double
-TextToPoint(canvasPtr, itemPtr, pointPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing itemPtr. */
- Tk_Item *itemPtr; /* Item to check against point. */
- double *pointPtr; /* Pointer to x and y coordinates. */
+static double
+TextToPoint (
+ Tk_Canvas *canvasPtr, /* Canvas containing itemPtr. */
+ Tk_Item *itemPtr, /* Item to check against point. */
+ double *pointPtr /* Pointer to x and y coordinates. */
+)
{
TextItem *textPtr = (TextItem *) itemPtr;
register TextLine *linePtr;
*/
/* ARGSUSED */
-static int
-TextToArea(canvasPtr, itemPtr, rectPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing itemPtr. */
- Tk_Item *itemPtr; /* Item to check against rectangle. */
- double *rectPtr; /* Pointer to array of four coordinates
+static int
+TextToArea (
+ Tk_Canvas *canvasPtr, /* Canvas containing itemPtr. */
+ Tk_Item *itemPtr, /* Item to check against rectangle. */
+ double *rectPtr /* Pointer to array of four coordinates
* (x1, y1, x2, y2) describing rectangular
* area. */
+)
{
TextItem *textPtr = (TextItem *) itemPtr;
register TextLine *linePtr;
*/
/* ARGSUSED */
-static void
-ScaleText(canvasPtr, itemPtr, originX, originY, scaleX, scaleY)
- Tk_Canvas *canvasPtr; /* Canvas containing rectangle. */
- Tk_Item *itemPtr; /* Rectangle to be scaled. */
- double originX, originY; /* Origin about which to scale rect. */
- double scaleX; /* Amount to scale in X direction. */
- double scaleY; /* Amount to scale in Y direction. */
+static void
+ScaleText (
+ Tk_Canvas *canvasPtr, /* Canvas containing rectangle. */
+ Tk_Item *itemPtr, /* Rectangle to be scaled. */
+ double originX,
+ double originY, /* Origin about which to scale rect. */
+ double scaleX, /* Amount to scale in X direction. */
+ double scaleY /* Amount to scale in Y direction. */
+)
{
register TextItem *textPtr = (TextItem *) itemPtr;
*--------------------------------------------------------------
*/
-static void
-TranslateText(canvasPtr, itemPtr, deltaX, deltaY)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item that is being moved. */
- double deltaX, deltaY; /* Amount by which item is to be
+static void
+TranslateText (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item that is being moved. */
+ double deltaX,
+ double deltaY /* Amount by which item is to be
* moved. */
+)
{
register TextItem *textPtr = (TextItem *) itemPtr;
*--------------------------------------------------------------
*/
-static int
-GetTextIndex(canvasPtr, itemPtr, string, indexPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item for which the index is being
+static int
+GetTextIndex (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item for which the index is being
* specified. */
- char *string; /* Specification of a particular character
+ char *string, /* Specification of a particular character
* in itemPtr's text. */
- int *indexPtr; /* Where to store converted index. */
+ int *indexPtr /* Where to store converted index. */
+)
{
register TextItem *textPtr = (TextItem *) itemPtr;
int length;
*/
/* ARGSUSED */
-static void
-SetTextCursor(canvasPtr, itemPtr, index)
- Tk_Canvas *canvasPtr; /* Record describing canvas widget. */
- Tk_Item *itemPtr; /* Text item in which cursor position
+static void
+SetTextCursor (
+ Tk_Canvas *canvasPtr, /* Record describing canvas widget. */
+ Tk_Item *itemPtr, /* Text item in which cursor position
* is to be set. */
- int index; /* Index of character just before which
+ int index /* Index of character just before which
* cursor is to be positioned. */
+)
{
register TextItem *textPtr = (TextItem *) itemPtr;
*--------------------------------------------------------------
*/
-static int
-GetSelText(canvasPtr, itemPtr, offset, buffer, maxBytes)
- Tk_Canvas *canvasPtr; /* Canvas containing selection. */
- Tk_Item *itemPtr; /* Text item containing selection. */
- int offset; /* Offset within selection of first
+static int
+GetSelText (
+ Tk_Canvas *canvasPtr, /* Canvas containing selection. */
+ Tk_Item *itemPtr, /* Text item containing selection. */
+ int offset, /* Offset within selection of first
* character to be returned. */
- char *buffer; /* Location in which to place
+ char *buffer, /* Location in which to place
* selection. */
- int maxBytes; /* Maximum number of bytes to place
+ int maxBytes /* Maximum number of bytes to place
* at buffer, not including terminating
* NULL character. */
+)
{
TextItem *textPtr = (TextItem *) itemPtr;
int count;
*--------------------------------------------------------------
*/
-static int
-CreateWinItem(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas to hold new item. */
- Tk_Item *itemPtr; /* Record to hold new item; header
+static int
+CreateWinItem (
+ register Tk_Canvas *canvasPtr, /* Canvas to hold new item. */
+ Tk_Item *itemPtr, /* Record to hold new item; header
* has been initialized by caller. */
- int argc; /* Number of arguments in argv. */
- char **argv; /* Arguments describing rectangle. */
+ int argc, /* Number of arguments in argv. */
+ char **argv /* Arguments describing rectangle. */
+)
{
register WindowItem *winItemPtr = (WindowItem *) itemPtr;
*--------------------------------------------------------------
*/
-static int
-WinItemCoords(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item whose coordinates are to be
+static int
+WinItemCoords (
+ register Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item whose coordinates are to be
* read or modified. */
- int argc; /* Number of coordinates supplied in
+ int argc, /* Number of coordinates supplied in
* argv. */
- char **argv; /* Array of coordinates: x1, y1,
+ char **argv /* Array of coordinates: x1, y1,
* x2, y2, ... */
+)
{
register WindowItem *winItemPtr = (WindowItem *) itemPtr;
*--------------------------------------------------------------
*/
-static int
-ConfigureWinItem(canvasPtr, itemPtr, argc, argv, flags)
- Tk_Canvas *canvasPtr; /* Canvas containing itemPtr. */
- Tk_Item *itemPtr; /* Window item to reconfigure. */
- int argc; /* Number of elements in argv. */
- char **argv; /* Arguments describing things to configure. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+static int
+ConfigureWinItem (
+ Tk_Canvas *canvasPtr, /* Canvas containing itemPtr. */
+ Tk_Item *itemPtr, /* Window item to reconfigure. */
+ int argc, /* Number of elements in argv. */
+ char **argv, /* Arguments describing things to configure. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
register WindowItem *winItemPtr = (WindowItem *) itemPtr;
Tk_Window oldWindow;
*--------------------------------------------------------------
*/
-static void
-DeleteWinItem(itemPtr)
- Tk_Item *itemPtr; /* Item that is being deleted. */
+static void
+DeleteWinItem (
+ Tk_Item *itemPtr /* Item that is being deleted. */
+)
{
register WindowItem *winItemPtr = (WindowItem *) itemPtr;
*/
/* ARGSUSED */
-static void
-ComputeWindowBbox(canvasPtr, winItemPtr)
- Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- register WindowItem *winItemPtr; /* Item whose bbox is to be
+static void
+ComputeWindowBbox (
+ Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ register WindowItem *winItemPtr /* Item whose bbox is to be
* recomputed. */
+)
{
int width, height, x, y;
*/
/* ARGSUSED */
-static void
-DisplayWinItem(canvasPtr, itemPtr, drawable)
- register Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- Tk_Item *itemPtr; /* Item to be displayed. */
- Drawable drawable; /* Pixmap or window in which to draw
+static void
+DisplayWinItem (
+ register Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ Tk_Item *itemPtr, /* Item to be displayed. */
+ Drawable drawable /* Pixmap or window in which to draw
* item. */
+)
{
register WindowItem *winItemPtr = (WindowItem *) itemPtr;
int x,y, width, height;
*/
/* ARGSUSED */
-static double
-WinItemToPoint(canvasPtr, itemPtr, pointPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against point. */
- double *pointPtr; /* Pointer to x and y coordinates. */
+static double
+WinItemToPoint (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against point. */
+ double *pointPtr /* Pointer to x and y coordinates. */
+)
{
register WindowItem *winItemPtr = (WindowItem *) itemPtr;
double x1, x2, y1, y2, xDiff, yDiff;
*/
/* ARGSUSED */
-static int
-WinItemToArea(canvasPtr, itemPtr, rectPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against rectangle. */
- double *rectPtr; /* Pointer to array of four coordinates
+static int
+WinItemToArea (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against rectangle. */
+ double *rectPtr /* Pointer to array of four coordinates
* (x1, y1, x2, y2) describing rectangular
* area. */
+)
{
register WindowItem *winItemPtr = (WindowItem *) itemPtr;
*--------------------------------------------------------------
*/
-static void
-ScaleWinItem(canvasPtr, itemPtr, originX, originY, scaleX, scaleY)
- Tk_Canvas *canvasPtr; /* Canvas containing rectangle. */
- Tk_Item *itemPtr; /* Rectangle to be scaled. */
- double originX, originY; /* Origin about which to scale rect. */
- double scaleX; /* Amount to scale in X direction. */
- double scaleY; /* Amount to scale in Y direction. */
+static void
+ScaleWinItem (
+ Tk_Canvas *canvasPtr, /* Canvas containing rectangle. */
+ Tk_Item *itemPtr, /* Rectangle to be scaled. */
+ double originX,
+ double originY, /* Origin about which to scale rect. */
+ double scaleX, /* Amount to scale in X direction. */
+ double scaleY /* Amount to scale in Y direction. */
+)
{
register WindowItem *winItemPtr = (WindowItem *) itemPtr;
*--------------------------------------------------------------
*/
-static void
-TranslateWinItem(canvasPtr, itemPtr, deltaX, deltaY)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item that is being moved. */
- double deltaX, deltaY; /* Amount by which item is to be
+static void
+TranslateWinItem (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item that is being moved. */
+ double deltaX,
+ double deltaY /* Amount by which item is to be
* moved. */
+)
{
register WindowItem *winItemPtr = (WindowItem *) itemPtr;
*--------------------------------------------------------------
*/
-static void
-WinItemStructureProc(clientData, eventPtr)
- ClientData clientData; /* Pointer to record describing window item. */
- XEvent *eventPtr; /* Describes what just happened. */
+static void
+WinItemStructureProc (
+ ClientData clientData, /* Pointer to record describing window item. */
+ XEvent *eventPtr /* Describes what just happened. */
+)
{
register WindowItem *winItemPtr = (WindowItem *) clientData;
*/
/* ARGSUSED */
-static void
-WinItemRequestProc(clientData, tkwin)
- ClientData clientData; /* Pointer to record for window item. */
- Tk_Window tkwin; /* Window that changed its desired
+static void
+WinItemRequestProc (
+ ClientData clientData, /* Pointer to record for window item. */
+ Tk_Window tkwin /* Window that changed its desired
* size. */
+)
{
WindowItem *winItemPtr = (WindowItem *) clientData;
*--------------------------------------------------------------
*/
-int
-Tk_EntryCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_EntryCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
register Entry *entryPtr;
Tk_CreateSelHandler(entryPtr->tkwin, XA_STRING, EntryFetchSelection,
(ClientData) entryPtr, XA_STRING);
Tcl_CreateCommand(interp, Tk_PathName(entryPtr->tkwin), EntryWidgetCmd,
- (ClientData) entryPtr, (void (*)()) NULL);
+ (ClientData) entryPtr, (void (*)(int *)) NULL);
if (ConfigureEntry(interp, entryPtr, argc-2, argv+2, 0) != TCL_OK) {
goto error;
}
*--------------------------------------------------------------
*/
-static int
-EntryWidgetCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about entry widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+static int
+EntryWidgetCmd (
+ ClientData clientData, /* Information about entry widget. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Entry *entryPtr = (Entry *) clientData;
int result = TCL_OK;
*----------------------------------------------------------------------
*/
-static void
-DestroyEntry(clientData)
- ClientData clientData; /* Info about entry widget. */
+static void
+DestroyEntry (
+ ClientData clientData /* Info about entry widget. */
+)
{
register Entry *entryPtr = (Entry *) clientData;
*----------------------------------------------------------------------
*/
-static int
-ConfigureEntry(interp, entryPtr, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- register Entry *entryPtr; /* Information about widget; may or may
+static int
+ConfigureEntry (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register Entry *entryPtr, /* Information about widget; may or may
* not already have values for some fields. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
XGCValues gcValues;
GC new;
*--------------------------------------------------------------
*/
-static void
-DisplayEntry(clientData)
- ClientData clientData; /* Information about window. */
+static void
+DisplayEntry (
+ ClientData clientData /* Information about window. */
+)
{
register Entry *entryPtr = (Entry *) clientData;
register Tk_Window tkwin = entryPtr->tkwin;
*----------------------------------------------------------------------
*/
-static void
-InsertChars(entryPtr, index, string)
- register Entry *entryPtr; /* Entry that is to get the new
+static void
+InsertChars (
+ register Entry *entryPtr, /* Entry that is to get the new
* elements. */
- int index; /* Add the new elements before this
+ int index, /* Add the new elements before this
* element. */
- char *string; /* New characters to add (NULL-terminated
+ char *string /* New characters to add (NULL-terminated
* string). */
+)
{
int length;
char *new;
*----------------------------------------------------------------------
*/
-static void
-DeleteChars(entryPtr, index, count)
- register Entry *entryPtr; /* Entry widget to modify. */
- int index; /* Index of first character to delete. */
- int count; /* How many characters to delete. */
+static void
+DeleteChars (
+ register Entry *entryPtr, /* Entry widget to modify. */
+ int index, /* Index of first character to delete. */
+ int count /* How many characters to delete. */
+)
{
char *new;
*----------------------------------------------------------------------
*/
-static void
-EntrySetValue(entryPtr, value)
- register Entry *entryPtr; /* Entry whose value is to be
+static void
+EntrySetValue (
+ register Entry *entryPtr, /* Entry whose value is to be
* changed. */
- char *value; /* New text to display in entry. */
+ char *value /* New text to display in entry. */
+)
{
ckfree(entryPtr->string);
entryPtr->numChars = strlen(value);
*--------------------------------------------------------------
*/
-static void
-EntryEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- XEvent *eventPtr; /* Information about event. */
+static void
+EntryEventProc (
+ ClientData clientData, /* Information about window. */
+ XEvent *eventPtr /* Information about event. */
+)
{
Entry *entryPtr = (Entry *) clientData;
if (eventPtr->type == Expose) {
*--------------------------------------------------------------
*/
-static int
-GetEntryIndex(interp, entryPtr, string, indexPtr)
- Tcl_Interp *interp; /* For error messages. */
- Entry *entryPtr; /* Entry for which the index is being
+static int
+GetEntryIndex (
+ Tcl_Interp *interp, /* For error messages. */
+ Entry *entryPtr, /* Entry for which the index is being
* specified. */
- char *string; /* Specifies character in entryPtr. */
- int *indexPtr; /* Where to store converted index. */
+ char *string, /* Specifies character in entryPtr. */
+ int *indexPtr /* Where to store converted index. */
+)
{
int length;
*----------------------------------------------------------------------
*/
-static void
-EntryScanTo(entryPtr, x)
- register Entry *entryPtr; /* Information about widget. */
- int x; /* X-coordinate to use for scan
+static void
+EntryScanTo (
+ register Entry *entryPtr, /* Information about widget. */
+ int x /* X-coordinate to use for scan
* operation. */
+)
{
int newLeftIndex;
*----------------------------------------------------------------------
*/
-static void
-EntrySelectTo(entryPtr, index)
- register Entry *entryPtr; /* Information about widget. */
- int index; /* Index of element that is to
+static void
+EntrySelectTo (
+ register Entry *entryPtr, /* Information about widget. */
+ int index /* Index of element that is to
* become the "other" end of the
* selection. */
+)
{
int newFirst, newLast;
*----------------------------------------------------------------------
*/
-static int
-EntryFetchSelection(clientData, offset, buffer, maxBytes)
- ClientData clientData; /* Information about entry widget. */
- int offset; /* Offset within selection of first
+static int
+EntryFetchSelection (
+ ClientData clientData, /* Information about entry widget. */
+ int offset, /* Offset within selection of first
* character to be returned. */
- char *buffer; /* Location in which to place
+ char *buffer, /* Location in which to place
* selection. */
- int maxBytes; /* Maximum number of bytes to place
+ int maxBytes /* Maximum number of bytes to place
* at buffer, not including terminating
* NULL character. */
+)
{
Entry *entryPtr = (Entry *) clientData;
int count;
*----------------------------------------------------------------------
*/
-static void
-EntryLostSelection(clientData)
- ClientData clientData; /* Information about entry widget. */
+static void
+EntryLostSelection (
+ ClientData clientData /* Information about entry widget. */
+)
{
Entry *entryPtr = (Entry *) clientData;
*----------------------------------------------------------------------
*/
-static void
-EventuallyRedraw(entryPtr)
- register Entry *entryPtr; /* Information about widget. */
+static void
+EventuallyRedraw (
+ register Entry *entryPtr /* Information about widget. */
+)
{
if ((entryPtr->tkwin == NULL) || !Tk_IsMapped(entryPtr->tkwin)) {
return;
*----------------------------------------------------------------------
*/
-static void
-EntryUpdateScrollbar(entryPtr)
- register Entry *entryPtr; /* Information about widget. */
+static void
+EntryUpdateScrollbar (
+ register Entry *entryPtr /* Information about widget. */
+)
{
char args[100];
int result, last, charsInWindow, endX;
*----------------------------------------------------------------------
*/
-static void
-EntryBlinkProc(clientData)
- ClientData clientData; /* Pointer to record describing entry. */
+static void
+EntryBlinkProc (
+ ClientData clientData /* Pointer to record describing entry. */
+)
{
register Entry *entryPtr = (Entry *) clientData;
*----------------------------------------------------------------------
*/
-static void
-EntryFocusProc(clientData, gotFocus)
- ClientData clientData; /* Pointer to structure describing entry. */
- int gotFocus; /* 1 means window is getting focus, 0 means
+static void
+EntryFocusProc (
+ ClientData clientData, /* Pointer to structure describing entry. */
+ int gotFocus /* 1 means window is getting focus, 0 means
* it's losing it. */
+)
{
register Entry *entryPtr = (Entry *) clientData;
/* ARGSUSED */
static char *
-EntryTextVarProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Information about button. */
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *name1; /* Name of variable. */
- char *name2; /* Second part of variable name. */
- int flags; /* Information about what happened. */
+EntryTextVarProc (
+ ClientData clientData, /* Information about button. */
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *name1, /* Name of variable. */
+ char *name2, /* Second part of variable name. */
+ int flags /* Information about what happened. */
+)
{
register Entry *entryPtr = (Entry *) clientData;
char *value;
*/
Tk_ErrorHandler
-Tk_CreateErrorHandler(display, error, request, minorCode, errorProc, clientData)
- Display *display; /* Display for which to handle
+Tk_CreateErrorHandler(
+ Display *display, /* Display for which to handle
* errors. */
- int error; /* Consider only errors with this
+ int error, /* Consider only errors with this
* error_code (-1 means consider
* all errors). */
- int request; /* Consider only errors with this
+ int request, /* Consider only errors with this
* major request code (-1 means
* consider all major codes). */
- int minorCode; /* Consider only errors with this
+ int minorCode, /* Consider only errors with this
* minor request code (-1 means
* consider all minor codes). */
- Tk_ErrorProc *errorProc; /* Procedure to invoke when a
+ Tk_ErrorProc *errorProc, /* Procedure to invoke when a
* matching error occurs. NULL means
* just ignore matching errors. */
- ClientData clientData; /* Arbitrary value to pass to
+ ClientData clientData /* Arbitrary value to pass to
* errorProc. */
+)
{
register TkErrorHandler *errorPtr;
register TkDisplay *dispPtr;
*/
void
-Tk_DeleteErrorHandler(handler)
- Tk_ErrorHandler handler; /* Token for handler to delete;
+Tk_DeleteErrorHandler(
+ Tk_ErrorHandler handler /* Token for handler to delete;
* was previous return value from
* Tk_CreateErrorHandler. */
+)
{
register TkErrorHandler *errorPtr = (TkErrorHandler *) handler;
register TkDisplay *dispPtr = errorPtr->dispPtr;
*--------------------------------------------------------------
*/
-static int
-ErrorProc(display, errEventPtr)
- Display *display; /* Display for which error
+static int
+ErrorProc (
+ Display *display, /* Display for which error
* occurred. */
- register XErrorEvent *errEventPtr; /* Information about error. */
+ register XErrorEvent *errEventPtr /* Information about error. */
+)
{
register TkDisplay *dispPtr;
register TkErrorHandler *errorPtr;
- extern int _XDefaultError();
+ extern int _XDefaultError(Display *, XErrorEvent *);
/*
* See if we know anything about the display. If not, then
*/
void
-Tk_CreateEventHandler(token, mask, proc, clientData)
- Tk_Window token; /* Token for window in which to
+Tk_CreateEventHandler(
+ Tk_Window token, /* Token for window in which to
* create handler. */
- unsigned long mask; /* Events for which proc should
+ unsigned long mask, /* Events for which proc should
* be called. */
- Tk_EventProc *proc; /* Procedure to call for each
+ Tk_EventProc *proc, /* Procedure to call for each
* selected event */
- ClientData clientData; /* Arbitrary data to pass to proc. */
+ ClientData clientData /* Arbitrary data to pass to proc. */
+)
{
register TkEventHandler *handlerPtr;
register TkWindow *winPtr = (TkWindow *) token;
*--------------------------------------------------------------
*/
-void
-Tk_DeleteEventHandler(token, mask, proc, clientData)
- Tk_Window token; /* Same as corresponding arguments passed */
- unsigned long mask; /* previously to Tk_CreateEventHandler. */
- Tk_EventProc *proc;
- ClientData clientData;
+void
+Tk_DeleteEventHandler (
+ Tk_Window token, /* Same as corresponding arguments passed */
+ unsigned long mask, /* previously to Tk_CreateEventHandler. */
+ Tk_EventProc *proc,
+ ClientData clientData
+)
{
register TkEventHandler *handlerPtr;
register InProgress *ipPtr;
*--------------------------------------------------------------
*/
-void
-Tk_CreateGenericHandler(proc, clientData)
- Tk_GenericProc *proc; /* Procedure to call on every event. */
- ClientData clientData; /* One-word value to pass to proc. */
+void
+Tk_CreateGenericHandler (
+ Tk_GenericProc *proc, /* Procedure to call on every event. */
+ ClientData clientData /* One-word value to pass to proc. */
+)
{
GenericHandler *handlerPtr;
*--------------------------------------------------------------
*/
-void
-Tk_DeleteGenericHandler(proc, clientData)
- Tk_GenericProc *proc;
- ClientData clientData;
+void
+Tk_DeleteGenericHandler (Tk_GenericProc *proc, ClientData clientData)
{
GenericHandler * handler;
*--------------------------------------------------------------
*/
-void
-Tk_HandleEvent(eventPtr)
- XEvent *eventPtr; /* Event to dispatch. */
+void
+Tk_HandleEvent (
+ XEvent *eventPtr /* Event to dispatch. */
+)
{
register TkEventHandler *handlerPtr;
register GenericHandler *genericPtr;
*--------------------------------------------------------------
*/
-void
-Tk_CreateFileHandler(fd, mask, proc, clientData)
- int fd; /* Integer identifier for stream. */
- int mask; /* OR'ed combination of TK_READABLE,
+void
+Tk_CreateFileHandler (
+ int fd, /* Integer identifier for stream. */
+ int mask, /* OR'ed combination of TK_READABLE,
* TK_WRITABLE, and TK_EXCEPTION:
* indicates conditions under which
* proc should be called. */
- Tk_FileProc *proc; /* Procedure to call for each
+ Tk_FileProc *proc, /* Procedure to call for each
* selected event. NULL means that
* this is a display, and that
* clientData is the (Display *)
* for it, and that events should
* be handled automatically. */
- ClientData clientData; /* Arbitrary data to pass to proc. */
+ ClientData clientData /* Arbitrary data to pass to proc. */
+)
{
register FileEvent *filePtr;
int index;
*--------------------------------------------------------------
*/
-void
-Tk_DeleteFileHandler(fd)
- int fd; /* Stream id for which to remove
+void
+Tk_DeleteFileHandler (
+ int fd /* Stream id for which to remove
* callback procedure. */
+)
{
register FileEvent *filePtr;
FileEvent *prevPtr;
*--------------------------------------------------------------
*/
-Tk_TimerToken
-Tk_CreateTimerHandler(milliseconds, proc, clientData)
- int milliseconds; /* How many milliseconds to wait
+Tk_TimerToken
+Tk_CreateTimerHandler (
+ int milliseconds, /* How many milliseconds to wait
* before invoking proc. */
- Tk_TimerProc *proc; /* Procedure to invoke. */
- ClientData clientData; /* Arbitrary data to pass to proc. */
+ Tk_TimerProc *proc, /* Procedure to invoke. */
+ ClientData clientData /* Arbitrary data to pass to proc. */
+)
{
register TimerEvent *timerPtr, *tPtr2, *prevPtr;
static int id = 0;
*--------------------------------------------------------------
*/
-Tk_TimerToken
-Tk_CreateMicroTimerHandler(seconds, microseconds, proc, clientData)
- int seconds; /* How many seconds to wait
+Tk_TimerToken
+Tk_CreateMicroTimerHandler (
+ int seconds, /* How many seconds to wait
* before invoking proc. */
- int microseconds; /* How many microseconds to wait
+ int microseconds, /* How many microseconds to wait
* before invoking proc. */
- Tk_TimerProc *proc; /* Procedure to invoke. */
- ClientData clientData; /* Arbitrary data to pass to proc. */
+ Tk_TimerProc *proc, /* Procedure to invoke. */
+ ClientData clientData /* Arbitrary data to pass to proc. */
+)
{
register TimerEvent *timerPtr, *tPtr2, *prevPtr;
static int id = 0;
*--------------------------------------------------------------
*/
-void
-Tk_DeleteTimerHandler(token)
- Tk_TimerToken token; /* Result previously returned by
+void
+Tk_DeleteTimerHandler (
+ Tk_TimerToken token /* Result previously returned by
* Tk_DeleteTimerHandler. */
+)
{
register TimerEvent *timerPtr, *prevPtr;
*--------------------------------------------------------------
*/
-void
-Tk_DoWhenIdle(proc, clientData)
- Tk_IdleProc *proc; /* Procedure to invoke. */
- ClientData clientData; /* Arbitrary value to pass to proc. */
+void
+Tk_DoWhenIdle (
+ Tk_IdleProc *proc, /* Procedure to invoke. */
+ ClientData clientData /* Arbitrary value to pass to proc. */
+)
{
register IdleHandler *idlePtr;
*----------------------------------------------------------------------
*/
-void
-Tk_CancelIdleCall(proc, clientData)
- Tk_IdleProc *proc; /* Procedure that was previously registered. */
- ClientData clientData; /* Arbitrary value to pass to proc. */
+void
+Tk_CancelIdleCall (
+ Tk_IdleProc *proc, /* Procedure that was previously registered. */
+ ClientData clientData /* Arbitrary value to pass to proc. */
+)
{
register IdleHandler *idlePtr, *prevPtr;
IdleHandler *nextPtr;
*--------------------------------------------------------------
*/
-int
-Tk_DoOneEvent(flags)
- int flags; /* Miscellaneous flag values: may be any
+int
+Tk_DoOneEvent (
+ int flags /* Miscellaneous flag values: may be any
* combination of TK_DONT_WAIT, TK_X_EVENTS,
* TK_FILE_EVENTS, TK_TIMER_EVENTS, and
* TK_IDLE_EVENTS. */
+)
{
register FileEvent *filePtr;
struct timeval curTime, timeout, *timeoutPtr;
* function to print a nice message.
*/
- void (*oldHandler)();
+ void (*oldHandler)(int);
- oldHandler = (void (*)()) signal(SIGPIPE, SIG_IGN);
+ oldHandler = (void (*)(int)) signal(SIGPIPE, SIG_IGN);
XNoOp(display);
XFlush(display);
(void) signal(SIGPIPE, oldHandler);
*--------------------------------------------------------------
*/
-void
-Tk_MainLoop()
+void
+Tk_MainLoop (void)
{
while (!tkMustExit &&
tk_NumMainWindows > 0) {
*----------------------------------------------------------------------
*/
-void
-Tk_Sleep(ms)
- int ms; /* Number of milliseconds to sleep. */
+void
+Tk_Sleep (
+ int ms /* Number of milliseconds to sleep. */
+)
{
static struct timeval delay;
*/
Tk_RestrictProc *
-Tk_RestrictEvents(proc, arg, prevArgPtr)
- Tk_RestrictProc *proc; /* X "if" procedure to call for each
+Tk_RestrictEvents (
+ Tk_RestrictProc *proc, /* X "if" procedure to call for each
* incoming event. See "XIfEvent" doc.
* for details. */
- char *arg; /* Arbitrary argument to pass to proc. */
- char **prevArgPtr; /* Place to store information about previous
+ char *arg, /* Arbitrary argument to pass to proc. */
+ char **prevArgPtr /* Place to store information about previous
* argument. */
+)
{
Bool (*prev) _ANSI_ARGS_((Display *display, XEvent *eventPtr, char *arg));
*--------------------------------------------------------------
*/
-void
-Tk_CreateFocusHandler(tkwin, proc, clientData)
- Tk_Window tkwin; /* Token for window. */
- Tk_FocusProc *proc; /* Procedure to call when tkwin gets
+void
+Tk_CreateFocusHandler (
+ Tk_Window tkwin, /* Token for window. */
+ Tk_FocusProc *proc, /* Procedure to call when tkwin gets
* or loses the input focus. */
- ClientData clientData; /* Arbitrary value to pass to proc. */
+ ClientData clientData /* Arbitrary value to pass to proc. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
*--------------------------------------------------------------
*/
-int
-Tk_FocusCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_FocusCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
register TkWindow *winPtr = (TkWindow *) clientData;
*--------------------------------------------------------------
*/
-void
-TkFocusEventProc(winPtr, eventPtr)
- register TkWindow *winPtr; /* Top-level window just entered or left. */
- XEvent *eventPtr; /* EnterWindow or LeaveWindow event. */
+void
+TkFocusEventProc (
+ register TkWindow *winPtr, /* Top-level window just entered or left. */
+ XEvent *eventPtr /* EnterWindow or LeaveWindow event. */
+)
{
register TkWindow *focusPtr;
TkWindow *newMouseMainPtr = NULL;
*--------------------------------------------------------------
*/
-void
-TkEventDeadWindow(winPtr)
- TkWindow *winPtr; /* Information about the window
+void
+TkEventDeadWindow (
+ TkWindow *winPtr /* Information about the window
* that is being deleted. */
+)
{
register TkEventHandler *handlerPtr;
register InProgress *ipPtr;
*----------------------------------------------------------------------
*/
-Time
-TkCurrentTime(dispPtr)
- TkDisplay *dispPtr; /* Display for which the time is desired. */
+Time
+TkCurrentTime (
+ TkDisplay *dispPtr /* Display for which the time is desired. */
+)
{
register XEvent *eventPtr;
*/
XFontStruct *
-Tk_GetFontStruct(interp, tkwin, name)
- Tcl_Interp *interp; /* Place to leave error message if
+Tk_GetFontStruct (
+ Tcl_Interp *interp, /* Place to leave error message if
* font can't be found. */
- Tk_Window tkwin; /* Window in which font will be used. */
- Tk_Uid name; /* Name of font (in form suitable for
+ Tk_Window tkwin, /* Window in which font will be used. */
+ Tk_Uid name /* Name of font (in form suitable for
* passing to XLoadQueryFont). */
+)
{
NameKey nameKey;
Tcl_HashEntry *nameHashPtr, *fontHashPtr;
*/
char *
-Tk_NameOfFontStruct(fontStructPtr)
- XFontStruct *fontStructPtr; /* Font whose name is desired. */
+Tk_NameOfFontStruct (
+ XFontStruct *fontStructPtr /* Font whose name is desired. */
+)
{
Tcl_HashEntry *fontHashPtr;
TkFont *fontPtr;
*----------------------------------------------------------------------
*/
-void
-Tk_FreeFontStruct(fontStructPtr)
- XFontStruct *fontStructPtr; /* Font to be released. */
+void
+Tk_FreeFontStruct (
+ XFontStruct *fontStructPtr /* Font to be released. */
+)
{
Tcl_HashEntry *fontHashPtr;
register TkFont *fontPtr;
*----------------------------------------------------------------------
*/
-static void
-FontInit()
+static void
+FontInit (void)
{
initialized = 1;
Tcl_InitHashTable(&nameTable, sizeof(NameKey)/sizeof(int));
*--------------------------------------------------------------
*/
-static void
-SetFontMetrics(fontPtr)
- register TkFont *fontPtr; /* Font structure in which to
+static void
+SetFontMetrics (
+ register TkFont *fontPtr /* Font structure in which to
* set metrics. */
+)
{
int i, replaceOK, baseWidth;
register XFontStruct *fontStructPtr = fontPtr->fontStructPtr;
*--------------------------------------------------------------
*/
-int
-TkMeasureChars(fontStructPtr, source, maxChars, startX, maxX, flags, nextXPtr)
- XFontStruct *fontStructPtr; /* Font in which to draw characters. */
- char *source; /* Characters to be displayed. Need not
+int
+TkMeasureChars (
+ XFontStruct *fontStructPtr, /* Font in which to draw characters. */
+ char *source, /* Characters to be displayed. Need not
* be NULL-terminated. */
- int maxChars; /* Maximum # of characters to consider from
+ int maxChars, /* Maximum # of characters to consider from
* source. */
- int startX; /* X-position at which first character will
+ int startX, /* X-position at which first character will
* be drawn. */
- int maxX; /* Don't consider any character that would
+ int maxX, /* Don't consider any character that would
* cross this x-position. */
- int flags; /* Various flag bits OR-ed together.
+ int flags, /* Various flag bits OR-ed together.
* TK_WHOLE_WORDS means stop on a word boundary
* (just before a space character) if
* possible. TK_AT_LEAST_ONE means always
* TK_NEWLINES_NOT_SPECIAL means that newlines
* are treated just like other control chars:
* they don't terminate the line,*/
- int *nextXPtr; /* Return x-position of terminating
+ int *nextXPtr /* Return x-position of terminating
* character here. */
+)
{
register TkFont *fontPtr;
register char *p; /* Current character. */
*--------------------------------------------------------------
*/
-void
-TkDisplayChars(display, drawable, gc, fontStructPtr, string, numChars,
- x, y, flags)
- Display *display; /* Display on which to draw. */
- Drawable drawable; /* Window or pixmap in which to draw. */
- GC gc; /* Graphics context for actually drawing
+void
+TkDisplayChars (
+ Display *display, /* Display on which to draw. */
+ Drawable drawable, /* Window or pixmap in which to draw. */
+ GC gc, /* Graphics context for actually drawing
* characters. */
- XFontStruct *fontStructPtr; /* Font used in GC; must have been allocated
+ XFontStruct *fontStructPtr, /* Font used in GC; must have been allocated
* by Tk_GetFontStruct. Used to compute sizes
* of tabs, etc. */
- char *string; /* Characters to be displayed. */
- int numChars; /* Number of characters to display from
+ char *string, /* Characters to be displayed. */
+ int numChars, /* Number of characters to display from
* string. */
- int x, y; /* Coordinates at which to draw string. */
- int flags; /* Flags to control display. Only
+ int x,
+ int y, /* Coordinates at which to draw string. */
+ int flags /* Flags to control display. Only
* TK_NEWLINES_NOT_SPECIAL is supported right
* now. See TkMeasureChars for information
* about it. */
+)
{
register TkFont *fontPtr;
register char *p; /* Current character being scanned. */
*----------------------------------------------------------------------
*/
-void
-TkUnderlineChars(display, drawable, gc, fontStructPtr, string, x, y,
- flags, firstChar, lastChar)
- Display *display; /* Display on which to draw. */
- Drawable drawable; /* Window or pixmap in which to draw. */
- GC gc; /* Graphics context for actually drawing
+void
+TkUnderlineChars (
+ Display *display, /* Display on which to draw. */
+ Drawable drawable, /* Window or pixmap in which to draw. */
+ GC gc, /* Graphics context for actually drawing
* underline. */
- XFontStruct *fontStructPtr; /* Font used in GC; must have been allocated
+ XFontStruct *fontStructPtr, /* Font used in GC; must have been allocated
* by Tk_GetFontStruct. Used to character
* dimensions, etc. */
- char *string; /* String containing characters to be
+ char *string, /* String containing characters to be
* underlined. */
- int x, y; /* Coordinates at which first character of
+ int x,
+ int y, /* Coordinates at which first character of
* string is drawn. */
- int flags; /* Flags that were passed to TkDisplayChars. */
- int firstChar; /* Index of first character to underline. */
- int lastChar; /* Index of last character to underline. */
+ int flags, /* Flags that were passed to TkDisplayChars. */
+ int firstChar, /* Index of first character to underline. */
+ int lastChar /* Index of last character to underline. */
+)
{
int xUnder, yUnder, width, height;
unsigned long value;
*/
int
-Tk_FrameCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+Tk_FrameCmd(
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
Tk_Window new;
Tk_CreateEventHandler(framePtr->tkwin, ExposureMask|StructureNotifyMask,
FrameEventProc, (ClientData) framePtr);
Tcl_CreateCommand(interp, Tk_PathName(framePtr->tkwin),
- FrameWidgetCmd, (ClientData) framePtr, (void (*)()) NULL);
+ FrameWidgetCmd, (ClientData) framePtr, (void (*)(int *)) NULL);
if (ConfigureFrame(interp, framePtr, argc-2, argv+2, 0) != TCL_OK) {
Tk_DestroyWindow(framePtr->tkwin);
*/
static int
-FrameWidgetCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about frame widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+FrameWidgetCmd(
+ ClientData clientData, /* Information about frame widget. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Frame *framePtr = (Frame *) clientData;
int result = TCL_OK;
*/
static void
-DestroyFrame(clientData)
- ClientData clientData; /* Info about frame widget. */
+DestroyFrame(
+ ClientData clientData /* Info about frame widget. */
+)
{
register Frame *framePtr = (Frame *) clientData;
*----------------------------------------------------------------------
*/
-static int
-ConfigureFrame(interp, framePtr, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- register Frame *framePtr; /* Information about widget; may or may
+static int
+ConfigureFrame (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register Frame *framePtr, /* Information about widget; may or may
* not already have values for some fields. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
if (Tk_ConfigureWidget(interp, framePtr->tkwin, configSpecs,
argc, argv, (char *) framePtr, flags) != TCL_OK) {
*/
static void
-DisplayFrame(clientData)
- ClientData clientData; /* Information about widget. */
+DisplayFrame(
+ ClientData clientData /* Information about widget. */
+)
{
register Frame *framePtr = (Frame *) clientData;
register Tk_Window tkwin = framePtr->tkwin;
*/
static void
-FrameEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- register XEvent *eventPtr; /* Information about event. */
+FrameEventProc(
+ ClientData clientData, /* Information about window. */
+ register XEvent *eventPtr /* Information about event. */
+)
{
register Frame *framePtr = (Frame *) clientData;
*/
static void
-MapFrame(clientData)
- ClientData clientData; /* Pointer to frame structure. */
+MapFrame(
+ ClientData clientData /* Pointer to frame structure. */
+)
{
Frame *framePtr = (Frame *) clientData;
*----------------------------------------------------------------------
*/
-GC
-Tk_GetGC(tkwin, valueMask, valuePtr)
- Tk_Window tkwin; /* Window in which GC will be used. */
- register unsigned long valueMask;
- /* 1 bits correspond to values specified
- * in *valuesPtr; other values are set
- * from defaults. */
- register XGCValues *valuePtr;
+GC
+Tk_GetGC (
+ Tk_Window tkwin, /* Window in which GC will be used. */
+ register unsigned long valueMask,
+ register XGCValues *valuePtr
+)
/* Values are specified here for bits set
* in valueMask. */
{
*----------------------------------------------------------------------
*/
-void
-Tk_FreeGC(gc)
- GC gc; /* Graphics context to be released. */
+void
+Tk_FreeGC (
+ GC gc /* Graphics context to be released. */
+)
{
Tcl_HashEntry *idHashPtr;
register TkGC *gcPtr;
*----------------------------------------------------------------------
*/
-static void
-GCInit()
+static void
+GCInit (void)
{
initialized = 1;
Tcl_InitHashTable(&valueTable, sizeof(ValueKey)/sizeof(int));
*--------------------------------------------------------------
*/
-void
-Tk_ManageGeometry(tkwin, proc, clientData)
- Tk_Window tkwin; /* Window whose geometry is to
+void
+Tk_ManageGeometry (
+ Tk_Window tkwin, /* Window whose geometry is to
* be managed by proc. */
- Tk_GeometryProc *proc; /* Procedure to manage geometry.
+ Tk_GeometryProc *proc, /* Procedure to manage geometry.
* NULL means make tkwin unmanaged. */
- ClientData clientData; /* Arbitrary one-word argument to
+ ClientData clientData /* Arbitrary one-word argument to
* pass to proc. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
*--------------------------------------------------------------
*/
-void
-Tk_GeometryRequest(tkwin, reqWidth, reqHeight)
- Tk_Window tkwin; /* Window that geometry information
+void
+Tk_GeometryRequest (
+ Tk_Window tkwin, /* Window that geometry information
* pertains to. */
- int reqWidth, reqHeight; /* Minimum desired dimensions for
+ int reqWidth,
+ int reqHeight /* Minimum desired dimensions for
* window, in pixels. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
*----------------------------------------------------------------------
*/
-void
-Tk_SetInternalBorder(tkwin, width)
- Tk_Window tkwin; /* Window that will have internal border. */
- int width; /* Width of internal border, in pixels. */
+void
+Tk_SetInternalBorder (
+ Tk_Window tkwin, /* Window that will have internal border. */
+ int width /* Width of internal border, in pixels. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
*--------------------------------------------------------------
*/
-int
-Tk_GetAnchor(interp, string, anchorPtr)
- Tcl_Interp *interp; /* Use this for error reporting. */
- char *string; /* String describing a direction. */
- Tk_Anchor *anchorPtr; /* Where to store Tk_Anchor corresponding
+int
+Tk_GetAnchor (
+ Tcl_Interp *interp, /* Use this for error reporting. */
+ char *string, /* String describing a direction. */
+ Tk_Anchor *anchorPtr /* Where to store Tk_Anchor corresponding
* to string. */
+)
{
switch (string[0]) {
case 'n':
*/
char *
-Tk_NameOfAnchor(anchor)
- Tk_Anchor anchor; /* Anchor for which identifying string
+Tk_NameOfAnchor (
+ Tk_Anchor anchor /* Anchor for which identifying string
* is desired. */
+)
{
switch (anchor) {
case TK_ANCHOR_N: return "n";
*--------------------------------------------------------------
*/
-int
-Tk_GetJoinStyle(interp, string, joinPtr)
- Tcl_Interp *interp; /* Use this for error reporting. */
- char *string; /* String describing a justification style. */
- int *joinPtr; /* Where to store join style corresponding
+int
+Tk_GetJoinStyle (
+ Tcl_Interp *interp, /* Use this for error reporting. */
+ char *string, /* String describing a justification style. */
+ int *joinPtr /* Where to store join style corresponding
* to string. */
+)
{
int c, length;
*/
char *
-Tk_NameOfJoinStyle(join)
- int join; /* Join style for which identifying string
+Tk_NameOfJoinStyle (
+ int join /* Join style for which identifying string
* is desired. */
+)
{
switch (join) {
case JoinBevel: return "bevel";
*--------------------------------------------------------------
*/
-int
-Tk_GetCapStyle(interp, string, capPtr)
- Tcl_Interp *interp; /* Use this for error reporting. */
- char *string; /* String describing a justification style. */
- int *capPtr; /* Where to store cap style corresponding
+int
+Tk_GetCapStyle (
+ Tcl_Interp *interp, /* Use this for error reporting. */
+ char *string, /* String describing a justification style. */
+ int *capPtr /* Where to store cap style corresponding
* to string. */
+)
{
int c, length;
*/
char *
-Tk_NameOfCapStyle(cap)
- int cap; /* Cap style for which identifying string
+Tk_NameOfCapStyle (
+ int cap /* Cap style for which identifying string
* is desired. */
+)
{
switch (cap) {
case CapButt: return "butt";
*--------------------------------------------------------------
*/
-int
-Tk_GetJustify(interp, string, justifyPtr)
- Tcl_Interp *interp; /* Use this for error reporting. */
- char *string; /* String describing a justification style. */
- Tk_Justify *justifyPtr; /* Where to store Tk_Justify corresponding
+int
+Tk_GetJustify (
+ Tcl_Interp *interp, /* Use this for error reporting. */
+ char *string, /* String describing a justification style. */
+ Tk_Justify *justifyPtr /* Where to store Tk_Justify corresponding
* to string. */
+)
{
int c, length;
*/
char *
-Tk_NameOfJustify(justify)
- Tk_Justify justify; /* Justification style for which
+Tk_NameOfJustify (
+ Tk_Justify justify /* Justification style for which
* identifying string is desired. */
+)
{
switch (justify) {
case TK_JUSTIFY_LEFT: return "left";
*----------------------------------------------------------------------
*/
-Tk_Uid
-Tk_GetUid(string)
- char *string; /* String to convert. */
+Tk_Uid
+Tk_GetUid (
+ char *string /* String to convert. */
+)
{
int dummy;
*--------------------------------------------------------------
*/
-int
-Tk_GetScreenMM(interp, tkwin, string, doublePtr)
- Tcl_Interp *interp; /* Use this for error reporting. */
- Tk_Window tkwin; /* Window whose screen determines conversion
+int
+Tk_GetScreenMM (
+ Tcl_Interp *interp, /* Use this for error reporting. */
+ Tk_Window tkwin, /* Window whose screen determines conversion
* from centimeters and other absolute
* units. */
- char *string; /* String describing a screen distance. */
- double *doublePtr; /* Place to store converted result. */
+ char *string, /* String describing a screen distance. */
+ double *doublePtr /* Place to store converted result. */
+)
{
char *end;
double d;
*--------------------------------------------------------------
*/
-int
-Tk_GetPixels(interp, tkwin, string, intPtr)
- Tcl_Interp *interp; /* Use this for error reporting. */
- Tk_Window tkwin; /* Window whose screen determines conversion
+int
+Tk_GetPixels (
+ Tcl_Interp *interp, /* Use this for error reporting. */
+ Tk_Window tkwin, /* Window whose screen determines conversion
* from centimeters and other absolute
* units. */
- char *string; /* String describing a justification style. */
- int *intPtr; /* Place to store converted result. */
+ char *string, /* String describing a justification style. */
+ int *intPtr /* Place to store converted result. */
+)
{
char *end;
double d;
*/
/* ARGSUSED */
-int
-Tk_GrabCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_GrabCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
TkWindow *winPtr = (TkWindow *) clientData;
int length, lockScreen;
*----------------------------------------------------------------------
*/
-int
-Tk_Grab(interp, tkwin, grabGlobal)
- Tcl_Interp *interp; /* Used for error reporting. */
- Tk_Window tkwin; /* Window on whose behalf the pointer
+int
+Tk_Grab (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ Tk_Window tkwin, /* Window on whose behalf the pointer
* is to be grabbed. */
- int grabGlobal; /* Non-zero means issue a grab to the
+ int grabGlobal /* Non-zero means issue a grab to the
* server so that no other application
* gets mouse or keyboard events.
* Zero means the grab only applies
* within this application. */
+)
{
int grabResult;
TkWindow *winPtr = (TkWindow *) tkwin;
*----------------------------------------------------------------------
*/
-void
-Tk_Ungrab(tkwin)
- Tk_Window tkwin; /* Window that identifies display
+void
+Tk_Ungrab (
+ Tk_Window tkwin /* Window that identifies display
* for grab to be released. */
+)
{
TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
int inSequence, ignoring, ungrabRequest, numEvents, i, j, diff;
*----------------------------------------------------------------------
*/
-int
-TkPointerEvent(eventPtr, winPtr)
- register XEvent *eventPtr; /* Pointer to the event. */
- TkWindow *winPtr; /* Tk's information for window
+int
+TkPointerEvent (
+ register XEvent *eventPtr, /* Pointer to the event. */
+ TkWindow *winPtr /* Tk's information for window
* where event was reported. */
+)
{
register TkWindow *winPtr2;
TkDisplay *dispPtr = winPtr->dispPtr;
*----------------------------------------------------------------------
*/
-static void
-ChangeEventWindow(eventPtr, winPtr)
- register XEvent *eventPtr; /* Event to retarget. Must have
+static void
+ChangeEventWindow (
+ register XEvent *eventPtr, /* Event to retarget. Must have
* type ButtonPress, ButtonRelease, KeyPress,
* KeyRelease, MotionNotify, EnterNotify,
* or LeaveNotify. */
- TkWindow *winPtr; /* New target window for event. */
+ TkWindow *winPtr /* New target window for event. */
+)
{
int x, y, sameScreen, bd;
register TkWindow *childPtr;
*----------------------------------------------------------------------
*/
-static void
-MovePointer(eventPtr, sourcePtr, destPtr)
- XEvent *eventPtr; /* A template X event. Must have all fields
+static void
+MovePointer (
+ XEvent *eventPtr, /* A template X event. Must have all fields
* properly set for EnterNotify and LeaveNotify
* events except window, subwindow, x, y,
* detail, and same_screen. (x_root and y_root
* must be valid, even though x and y needn't
* be valid). */
- TkWindow *sourcePtr; /* Window currently containing pointer (NULL
+ TkWindow *sourcePtr, /* Window currently containing pointer (NULL
* means it's not one managed by this
* process). */
- TkWindow *destPtr; /* Window that is to end up containing the
+ TkWindow *destPtr /* Window that is to end up containing the
* pointer (NULL means it's not one managed
* by this process). */
+)
{
TkDisplay *dispPtr;
register TkWindow *ancestorPtr; /* Lowest ancestor shared between
*----------------------------------------------------------------------
*/
-static void
-MovePointer2(sourcePtr, destPtr, mode)
- TkWindow *sourcePtr; /* Window currently containing pointer (NULL
+static void
+MovePointer2 (
+ TkWindow *sourcePtr, /* Window currently containing pointer (NULL
* means it's not one managed by this
* process). */
- TkWindow *destPtr; /* Window that is to end up containing the
+ TkWindow *destPtr, /* Window that is to end up containing the
* pointer (NULL means it's not one managed
* by this process). */
- int mode; /* Mode for enter/leave events, such as
+ int mode /* Mode for enter/leave events, such as
* NotifyNormal or NotifyUngrab. */
+)
{
XEvent event;
Window dummy1, dummy2;
*----------------------------------------------------------------------
*/
-void
-TkGrabDeadWindow(winPtr)
- register TkWindow *winPtr; /* Window that is in the process
+void
+TkGrabDeadWindow (
+ register TkWindow *winPtr /* Window that is in the process
* of being deleted. */
+)
{
TkDisplay *dispPtr = winPtr->dispPtr;
*--------------------------------------------------------------
*/
-int
-Tk_ListboxCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_ListboxCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Listbox *listPtr;
Tk_Window new;
Tk_CreateSelHandler(listPtr->tkwin, XA_STRING, ListboxFetchSelection,
(ClientData) listPtr, XA_STRING);
Tcl_CreateCommand(interp, Tk_PathName(listPtr->tkwin), ListboxWidgetCmd,
- (ClientData) listPtr, (void (*)()) NULL);
+ (ClientData) listPtr, (void (*)(int *)) NULL);
if (ConfigureListbox(interp, listPtr, argc-2, argv+2, 0) != TCL_OK) {
goto error;
}
*--------------------------------------------------------------
*/
-static int
-ListboxWidgetCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about listbox widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+static int
+ListboxWidgetCmd (
+ ClientData clientData, /* Information about listbox widget. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Listbox *listPtr = (Listbox *) clientData;
int result = TCL_OK;
*----------------------------------------------------------------------
*/
-static void
-DestroyListbox(clientData)
- ClientData clientData; /* Info about listbox widget. */
+static void
+DestroyListbox (
+ ClientData clientData /* Info about listbox widget. */
+)
{
register Listbox *listPtr = (Listbox *) clientData;
register Element *elPtr, *nextPtr;
*----------------------------------------------------------------------
*/
-static int
-ConfigureListbox(interp, listPtr, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- register Listbox *listPtr; /* Information about widget; may or may
+static int
+ConfigureListbox (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register Listbox *listPtr, /* Information about widget; may or may
* not already have values for some fields. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
XGCValues gcValues;
GC new;
*--------------------------------------------------------------
*/
-static void
-DisplayListbox(clientData)
- ClientData clientData; /* Information about window. */
+static void
+DisplayListbox (
+ ClientData clientData /* Information about window. */
+)
{
register Listbox *listPtr = (Listbox *) clientData;
register Tk_Window tkwin = listPtr->tkwin;
*----------------------------------------------------------------------
*/
-static void
-InsertEls(listPtr, index, argc, argv)
- register Listbox *listPtr; /* Listbox that is to get the new
+static void
+InsertEls (
+ register Listbox *listPtr, /* Listbox that is to get the new
* elements. */
- int index; /* Add the new elements before this
+ int index, /* Add the new elements before this
* element. */
- int argc; /* Number of new elements to add. */
- char **argv; /* New elements (one per entry). */
+ int argc, /* Number of new elements to add. */
+ char **argv /* New elements (one per entry). */
+)
{
register Element *prevPtr, *newPtr;
int length, dummy, i, oldMaxWidth;
*----------------------------------------------------------------------
*/
-static void
-DeleteEls(listPtr, first, last)
- register Listbox *listPtr; /* Listbox widget to modify. */
- int first; /* Index of first element to delete. */
- int last; /* Index of last element to delete. */
+static void
+DeleteEls (
+ register Listbox *listPtr, /* Listbox widget to modify. */
+ int first, /* Index of first element to delete. */
+ int last /* Index of last element to delete. */
+)
{
register Element *prevPtr, *elPtr;
int count, i, widthChanged;
*--------------------------------------------------------------
*/
-static void
-ListboxEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- XEvent *eventPtr; /* Information about event. */
+static void
+ListboxEventProc (
+ ClientData clientData, /* Information about window. */
+ XEvent *eventPtr /* Information about event. */
+)
{
Listbox *listPtr = (Listbox *) clientData;
*--------------------------------------------------------------
*/
-static int
-GetListboxIndex(interp, listPtr, string, indexPtr)
- Tcl_Interp *interp; /* For error messages. */
- Listbox *listPtr; /* Listbox for which the index is being
+static int
+GetListboxIndex (
+ Tcl_Interp *interp, /* For error messages. */
+ Listbox *listPtr, /* Listbox for which the index is being
* specified. */
- char *string; /* Numerical index into listPtr's element
+ char *string, /* Numerical index into listPtr's element
* list, or "end" to refer to last element. */
- int *indexPtr; /* Where to store converted index. */
+ int *indexPtr /* Where to store converted index. */
+)
{
if (string[0] == 'e') {
if (strncmp(string, "end", strlen(string)) != 0) {
*----------------------------------------------------------------------
*/
-static void
-ChangeListboxView(listPtr, index)
- register Listbox *listPtr; /* Information about widget. */
- int index; /* Index of element in listPtr. */
+static void
+ChangeListboxView (
+ register Listbox *listPtr, /* Information about widget. */
+ int index /* Index of element in listPtr. */
+)
{
if (listPtr->tkwin == NULL) {
return;
*----------------------------------------------------------------------
*/
-static void
-ChangeListboxOffset(listPtr, offset)
- register Listbox *listPtr; /* Information about widget. */
- int offset; /* Desired new "xOffset" for
+static void
+ChangeListboxOffset (
+ register Listbox *listPtr, /* Information about widget. */
+ int offset /* Desired new "xOffset" for
* listbox. */
+)
{
int maxOffset;
*----------------------------------------------------------------------
*/
-static void
-ListboxScanTo(listPtr, x, y)
- register Listbox *listPtr; /* Information about widget. */
- int x; /* X-coordinate to use for scan
+static void
+ListboxScanTo (
+ register Listbox *listPtr, /* Information about widget. */
+ int x, /* X-coordinate to use for scan
* operation. */
- int y; /* Y-coordinate to use for scan
+ int y /* Y-coordinate to use for scan
* operation. */
+)
{
int newTopIndex, newOffset;
*----------------------------------------------------------------------
*/
-static int
-NearestListboxElement(listPtr, y)
- register Listbox *listPtr; /* Information about widget. */
- int y; /* Y-coordinate in listPtr's window. */
+static int
+NearestListboxElement (
+ register Listbox *listPtr, /* Information about widget. */
+ int y /* Y-coordinate in listPtr's window. */
+)
{
int index;
*----------------------------------------------------------------------
*/
-static void
-ListboxSelectFrom(listPtr, index)
- register Listbox *listPtr; /* Information about widget. */
- int index; /* Index of element that is to
+static void
+ListboxSelectFrom (
+ register Listbox *listPtr, /* Information about widget. */
+ int index /* Index of element that is to
* become the new selection. */
+)
{
/*
* Make sure the index is within the proper range for the listbox.
*----------------------------------------------------------------------
*/
-static void
-ListboxSelectTo(listPtr, index)
- register Listbox *listPtr; /* Information about widget. */
- int index; /* Index of element that is to
+static void
+ListboxSelectTo (
+ register Listbox *listPtr, /* Information about widget. */
+ int index /* Index of element that is to
* become the "other" end of the
* selection. */
+)
{
int newFirst, newLast;
*----------------------------------------------------------------------
*/
-static int
-ListboxFetchSelection(clientData, offset, buffer, maxBytes)
- ClientData clientData; /* Information about listbox widget. */
- int offset; /* Offset within selection of first
+static int
+ListboxFetchSelection (
+ ClientData clientData, /* Information about listbox widget. */
+ int offset, /* Offset within selection of first
* byte to be returned. */
- char *buffer; /* Location in which to place
+ char *buffer, /* Location in which to place
* selection. */
- int maxBytes; /* Maximum number of bytes to place
+ int maxBytes /* Maximum number of bytes to place
* at buffer, not including terminating
* NULL character. */
+)
{
register Listbox *listPtr = (Listbox *) clientData;
register Element *elPtr;
*----------------------------------------------------------------------
*/
-static void
-ListboxLostSelection(clientData)
- ClientData clientData; /* Information about listbox widget. */
+static void
+ListboxLostSelection (
+ ClientData clientData /* Information about listbox widget. */
+)
{
register Listbox *listPtr = (Listbox *) clientData;
*/
/* ARGSUSED */
-static void
-ListboxRedrawRange(listPtr, first, last)
- register Listbox *listPtr; /* Information about widget. */
- int first; /* Index of first element in list
+static void
+ListboxRedrawRange (
+ register Listbox *listPtr, /* Information about widget. */
+ int first, /* Index of first element in list
* that needs to be redrawn. */
- int last; /* Index of last element in list
+ int last /* Index of last element in list
* that needs to be redrawn. May
* be less than first;
* these just bracket a range. */
+)
{
if ((listPtr->tkwin == NULL) || !Tk_IsMapped(listPtr->tkwin)
|| (listPtr->flags & REDRAW_PENDING)) {
*----------------------------------------------------------------------
*/
-static void
-ListboxUpdateVScrollbar(listPtr)
- register Listbox *listPtr; /* Information about widget. */
+static void
+ListboxUpdateVScrollbar (
+ register Listbox *listPtr /* Information about widget. */
+)
{
char string[60];
int result, last;
*----------------------------------------------------------------------
*/
-static void
-ListboxUpdateHScrollbar(listPtr)
- register Listbox *listPtr; /* Information about widget. */
+static void
+ListboxUpdateHScrollbar (
+ register Listbox *listPtr /* Information about widget. */
+)
{
char string[60];
int result, totalUnits, windowUnits, first, last;
*----------------------------------------------------------------------
*/
-static void
-ListboxComputeWidths(listPtr, fontChanged)
- Listbox *listPtr; /* Listbox whose geometry is to be
+static void
+ListboxComputeWidths (
+ Listbox *listPtr, /* Listbox whose geometry is to be
* recomputed. */
- int fontChanged; /* Non-zero means the font may have changed
+ int fontChanged /* Non-zero means the font may have changed
* so per-element width information also
* has to be computed. */
+)
{
register Element *elPtr;
int dummy;
*--------------------------------------------------------------
*/
-int
-Tk_MenuCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_MenuCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
Tk_Window new;
Tk_CreateEventHandler(menuPtr->tkwin, ExposureMask|StructureNotifyMask,
MenuEventProc, (ClientData) menuPtr);
Tcl_CreateCommand(interp, Tk_PathName(menuPtr->tkwin), MenuWidgetCmd,
- (ClientData) menuPtr, (void (*)()) NULL);
+ (ClientData) menuPtr, (void (*)(int *)) NULL);
if (ConfigureMenu(interp, menuPtr, argc-2, argv+2, 0) != TCL_OK) {
goto error;
}
*--------------------------------------------------------------
*/
-static int
-MenuWidgetCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about menu widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+static int
+MenuWidgetCmd (
+ ClientData clientData, /* Information about menu widget. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Menu *menuPtr = (Menu *) clientData;
register MenuEntry *mePtr;
*----------------------------------------------------------------------
*/
-static void
-DestroyMenu(clientData)
- ClientData clientData; /* Info about menu widget. */
+static void
+DestroyMenu (
+ ClientData clientData /* Info about menu widget. */
+)
{
register Menu *menuPtr = (Menu *) clientData;
int i;
*----------------------------------------------------------------------
*/
-static void
-DestroyMenuEntry(clientData)
- ClientData clientData; /* Pointer to entry to be freed. */
+static void
+DestroyMenuEntry (
+ ClientData clientData /* Pointer to entry to be freed. */
+)
{
register MenuEntry *mePtr = (MenuEntry *) clientData;
Menu *menuPtr = mePtr->menuPtr;
*----------------------------------------------------------------------
*/
-static int
-ConfigureMenu(interp, menuPtr, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- register Menu *menuPtr; /* Information about widget; may or may
+static int
+ConfigureMenu (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register Menu *menuPtr, /* Information about widget; may or may
* not already have values for some fields. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
XGCValues gcValues;
GC newGC;
*----------------------------------------------------------------------
*/
-static int
-ConfigureMenuEntry(interp, menuPtr, mePtr, index, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- Menu *menuPtr; /* Information about whole menu. */
- register MenuEntry *mePtr; /* Information about menu entry; may
+static int
+ConfigureMenuEntry (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ Menu *menuPtr, /* Information about whole menu. */
+ register MenuEntry *mePtr, /* Information about menu entry; may
* or may not already have values for
* some fields. */
- int index; /* Index of mePtr within menuPtr's
+ int index, /* Index of mePtr within menuPtr's
* entries. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Additional flags to pass to
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Additional flags to pass to
* Tk_ConfigureWidget. */
+)
{
XGCValues gcValues;
GC newGC, newActiveGC, newDisabledGC;
*--------------------------------------------------------------
*/
-static void
-ComputeMenuGeometry(clientData)
- ClientData clientData; /* Structure describing menu. */
+static void
+ComputeMenuGeometry (
+ ClientData clientData /* Structure describing menu. */
+)
{
Menu *menuPtr = (Menu *) clientData;
register MenuEntry *mePtr;
*----------------------------------------------------------------------
*/
-static void
-DisplayMenu(clientData)
- ClientData clientData; /* Information about widget. */
+static void
+DisplayMenu (
+ ClientData clientData /* Information about widget. */
+)
{
register Menu *menuPtr = (Menu *) clientData;
register MenuEntry *mePtr;
*--------------------------------------------------------------
*/
-static int
-GetMenuIndex(interp, menuPtr, string, indexPtr)
- Tcl_Interp *interp; /* For error messages. */
- Menu *menuPtr; /* Menu for which the index is being
+static int
+GetMenuIndex (
+ Tcl_Interp *interp, /* For error messages. */
+ Menu *menuPtr, /* Menu for which the index is being
* specified. */
- char *string; /* Specification of an entry in menu. See
+ char *string, /* Specification of an entry in menu. See
* manual entry for valid .*/
- int *indexPtr; /* Where to store converted relief. */
+ int *indexPtr /* Where to store converted relief. */
+)
{
int i, y;
*--------------------------------------------------------------
*/
-static void
-MenuEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- XEvent *eventPtr; /* Information about event. */
+static void
+MenuEventProc (
+ ClientData clientData, /* Information about window. */
+ XEvent *eventPtr /* Information about event. */
+)
{
Menu *menuPtr = (Menu *) clientData;
if ((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0)) {
/* ARGSUSED */
static char *
-MenuVarProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Information about menu entry. */
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *name1; /* First part of variable's name. */
- char *name2; /* Second part of variable's name. */
- int flags; /* Describes what just happened. */
+MenuVarProc (
+ ClientData clientData, /* Information about menu entry. */
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *name1, /* First part of variable's name. */
+ char *name2, /* Second part of variable's name. */
+ int flags /* Describes what just happened. */
+)
{
MenuEntry *mePtr = (MenuEntry *) clientData;
Menu *menuPtr;
*----------------------------------------------------------------------
*/
-static void
-EventuallyRedrawMenu(menuPtr, index)
- register Menu *menuPtr; /* Information about menu to redraw. */
- int index; /* Which entry to redraw. If -1, then
+static void
+EventuallyRedrawMenu (
+ register Menu *menuPtr, /* Information about menu to redraw. */
+ int index /* Which entry to redraw. If -1, then
* all the entries in the menu are redrawn. */
+)
{
if (menuPtr->tkwin == NULL) {
return;
*--------------------------------------------------------------
*/
-static int
-PostSubmenu(interp, menuPtr, mePtr)
- Tcl_Interp *interp; /* Used for invoking sub-commands and
+static int
+PostSubmenu (
+ Tcl_Interp *interp, /* Used for invoking sub-commands and
* reporting errors. */
- register Menu *menuPtr; /* Information about menu as a whole. */
- register MenuEntry *mePtr; /* Info about submenu that is to be
+ register Menu *menuPtr, /* Information about menu as a whole. */
+ register MenuEntry *mePtr /* Info about submenu that is to be
* posted. NULL means make sure that
* no submenu is posted. */
+)
{
char string[30];
int result, x, y;
*----------------------------------------------------------------------
*/
-static int
-ActivateMenuEntry(menuPtr, index)
- register Menu *menuPtr; /* Menu in which to activate. */
- int index; /* Index of entry to activate, or
+static int
+ActivateMenuEntry (
+ register Menu *menuPtr, /* Menu in which to activate. */
+ int index /* Index of entry to activate, or
* -1 to deactivate all entries. */
+)
{
register MenuEntry *mePtr;
int result = TCL_OK;
*--------------------------------------------------------------
*/
-int
-Tk_MenubuttonCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_MenubuttonCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register MenuButton *mbPtr;
Tk_Window tkwin = (Tk_Window) clientData;
Tk_CreateEventHandler(mbPtr->tkwin, ExposureMask|StructureNotifyMask,
MenuButtonEventProc, (ClientData) mbPtr);
Tcl_CreateCommand(interp, Tk_PathName(mbPtr->tkwin), MenuButtonWidgetCmd,
- (ClientData) mbPtr, (void (*)()) NULL);
+ (ClientData) mbPtr, (void (*)(int *)) NULL);
if (ConfigureMenuButton(interp, mbPtr, argc-2, argv+2, 0) != TCL_OK) {
Tk_DestroyWindow(mbPtr->tkwin);
return TCL_ERROR;
*--------------------------------------------------------------
*/
-static int
-MenuButtonWidgetCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about button widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+static int
+MenuButtonWidgetCmd (
+ ClientData clientData, /* Information about button widget. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register MenuButton *mbPtr = (MenuButton *) clientData;
int result = TCL_OK;
*----------------------------------------------------------------------
*/
-static void
-DestroyMenuButton(clientData)
- ClientData clientData; /* Info about button widget. */
+static void
+DestroyMenuButton (
+ ClientData clientData /* Info about button widget. */
+)
{
register MenuButton *mbPtr = (MenuButton *) clientData;
if (mbPtr->menuName != NULL) {
*----------------------------------------------------------------------
*/
-static int
-ConfigureMenuButton(interp, mbPtr, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- register MenuButton *mbPtr; /* Information about widget; may or may
+static int
+ConfigureMenuButton (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register MenuButton *mbPtr, /* Information about widget; may or may
* not already have values for some fields. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
XGCValues gcValues;
GC newGC;
*----------------------------------------------------------------------
*/
-static void
-DisplayMenuButton(clientData)
- ClientData clientData; /* Information about widget. */
+static void
+DisplayMenuButton (
+ ClientData clientData /* Information about widget. */
+)
{
register MenuButton *mbPtr = (MenuButton *) clientData;
GC gc;
*--------------------------------------------------------------
*/
-static void
-MenuButtonEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- XEvent *eventPtr; /* Information about event. */
+static void
+MenuButtonEventProc (
+ ClientData clientData, /* Information about window. */
+ XEvent *eventPtr /* Information about event. */
+)
{
MenuButton *mbPtr = (MenuButton *) clientData;
if ((eventPtr->type == Expose) && (eventPtr->xexpose.count == 0)) {
*----------------------------------------------------------------------
*/
-static void
-ComputeMenuButtonGeometry(mbPtr)
- register MenuButton *mbPtr; /* Widget record for menu button. */
+static void
+ComputeMenuButtonGeometry (
+ register MenuButton *mbPtr /* Widget record for menu button. */
+)
{
XCharStruct bbox;
int dummy;
/* ARGSUSED */
static char *
-MenuButtonVarProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Information about button. */
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *name1; /* First part of variable's name. */
- char *name2; /* Second part of variable's name. */
- int flags; /* Describes what's happening to variable. */
+MenuButtonVarProc (
+ ClientData clientData, /* Information about button. */
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *name1, /* First part of variable's name. */
+ char *name2, /* Second part of variable's name. */
+ int flags /* Describes what's happening to variable. */
+)
{
register MenuButton *mbPtr = (MenuButton *) clientData;
char *value;
/* ARGSUSED */
static char *
-MenuButtonTextVarProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Information about button. */
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *name1; /* Name of variable. */
- char *name2; /* Second part of variable name. */
- int flags; /* Information about what happened. */
+MenuButtonTextVarProc (
+ ClientData clientData, /* Information about button. */
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *name1, /* Name of variable. */
+ char *name2, /* Second part of variable name. */
+ int flags /* Information about what happened. */
+)
{
register MenuButton *mbPtr = (MenuButton *) clientData;
char *value;
*--------------------------------------------------------------
*/
-int
-Tk_MessageCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_MessageCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Message *msgPtr;
Tk_Window new;
Tk_CreateEventHandler(msgPtr->tkwin, ExposureMask|StructureNotifyMask,
MessageEventProc, (ClientData) msgPtr);
Tcl_CreateCommand(interp, Tk_PathName(msgPtr->tkwin), MessageWidgetCmd,
- (ClientData) msgPtr, (void (*)()) NULL);
+ (ClientData) msgPtr, (void (*)(int *)) NULL);
if (ConfigureMessage(interp, msgPtr, argc-2, argv+2, 0) != TCL_OK) {
goto error;
}
*--------------------------------------------------------------
*/
-static int
-MessageWidgetCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about message widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+static int
+MessageWidgetCmd (
+ ClientData clientData, /* Information about message widget. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Message *msgPtr = (Message *) clientData;
int length;
*----------------------------------------------------------------------
*/
-static void
-DestroyMessage(clientData)
- ClientData clientData; /* Info about message widget. */
+static void
+DestroyMessage (
+ ClientData clientData /* Info about message widget. */
+)
{
register Message *msgPtr = (Message *) clientData;
*----------------------------------------------------------------------
*/
-static int
-ConfigureMessage(interp, msgPtr, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- register Message *msgPtr; /* Information about widget; may or may
+static int
+ConfigureMessage (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register Message *msgPtr, /* Information about widget; may or may
* not already have values for some fields. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
XGCValues gcValues;
GC newGC;
*--------------------------------------------------------------
*/
-static void
-ComputeMessageGeometry(msgPtr)
- register Message *msgPtr; /* Information about window. */
+static void
+ComputeMessageGeometry (
+ register Message *msgPtr /* Information about window. */
+)
{
char *p;
int width, inc, height, numLines;
*--------------------------------------------------------------
*/
-static void
-DisplayMessage(clientData)
- ClientData clientData; /* Information about window. */
+static void
+DisplayMessage (
+ ClientData clientData /* Information about window. */
+)
{
register Message *msgPtr = (Message *) clientData;
register Tk_Window tkwin = msgPtr->tkwin;
*--------------------------------------------------------------
*/
-static void
-MessageEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- XEvent *eventPtr; /* Information about event. */
+static void
+MessageEventProc (
+ ClientData clientData, /* Information about window. */
+ XEvent *eventPtr /* Information about event. */
+)
{
Message *msgPtr = (Message *) clientData;
/* ARGSUSED */
static char *
-MessageTextVarProc(clientData, interp, name1, name2, flags)
- ClientData clientData; /* Information about message. */
- Tcl_Interp *interp; /* Interpreter containing variable. */
- char *name1; /* Name of variable. */
- char *name2; /* Second part of variable name. */
- int flags; /* Information about what happened. */
+MessageTextVarProc (
+ ClientData clientData, /* Information about message. */
+ Tcl_Interp *interp, /* Interpreter containing variable. */
+ char *name1, /* Name of variable. */
+ char *name2, /* Second part of variable name. */
+ int flags /* Information about what happened. */
+)
{
register Message *msgPtr = (Message *) clientData;
char *value;
*--------------------------------------------------------------
*/
-void
-Tk_AddOption(tkwin, name, value, priority)
- Tk_Window tkwin; /* Window token; option will be associated
+void
+Tk_AddOption (
+ Tk_Window tkwin, /* Window token; option will be associated
* with main window for this window. */
- char *name; /* Multi-element name of option. */
- char *value; /* String value for option. */
- int priority; /* Overall priority level to use for
+ char *name, /* Multi-element name of option. */
+ char *value, /* String value for option. */
+ int priority /* Overall priority level to use for
* this option, such as TK_USER_DEFAULT_PRIO
* or TK_INTERACTIVE_PRIO. Must be between
* 0 and TK_MAX_PRIO. */
+)
{
TkWindow *winPtr = ((TkWindow *) tkwin)->mainPtr->winPtr;
register ElArray **arrayPtrPtr;
*--------------------------------------------------------------
*/
-Tk_Uid
-Tk_GetOption(tkwin, name, className)
- Tk_Window tkwin; /* Token for window that option is
+Tk_Uid
+Tk_GetOption (
+ Tk_Window tkwin, /* Token for window that option is
* associated with. */
- char *name; /* Name of option. */
- char *className; /* Class of option. NULL means there
+ char *name, /* Name of option. */
+ char *className /* Class of option. NULL means there
* is no class for this option: just
* check for name. */
+)
{
Tk_Uid nameId, classId;
register Element *elPtr, *bestPtr;
*--------------------------------------------------------------
*/
-int
-Tk_OptionCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_OptionCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
int length;
*--------------------------------------------------------------
*/
-void
-TkOptionDeadWindow(winPtr)
- register TkWindow *winPtr; /* Window to be cleaned up. */
+void
+TkOptionDeadWindow (
+ register TkWindow *winPtr /* Window to be cleaned up. */
+)
{
/*
* If this window is in the option stacks, then clear the stacks.
*----------------------------------------------------------------------
*/
-static int
-ParsePriority(interp, string)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- char *string; /* Describes a priority level, either
+static int
+ParsePriority (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ char *string /* Describes a priority level, either
* symbolically or numerically. */
+)
{
char c;
int length, priority;
*----------------------------------------------------------------------
*/
-static int
-AddFromString(interp, tkwin, string, priority)
- Tcl_Interp *interp; /* Interpreter to use for reporting results. */
- Tk_Window tkwin; /* Token for window: options are entered
+static int
+AddFromString (
+ Tcl_Interp *interp, /* Interpreter to use for reporting results. */
+ Tk_Window tkwin, /* Token for window: options are entered
* for this window's main window. */
- char *string; /* String containing option specifiers. */
- int priority; /* Priority level to use for options in
+ char *string, /* String containing option specifiers. */
+ int priority /* Priority level to use for options in
* this string, such as TK_USER_DEFAULT_PRIO
* or TK_INTERACTIVE_PRIO. Must be between
* 0 and TK_MAX_PRIO. */
+)
{
register char *src, *dst;
char *name, *value;
*----------------------------------------------------------------------
*/
-static int
-ReadOptionFile(interp, tkwin, fileName, priority)
- Tcl_Interp *interp; /* Interpreter to use for reporting results. */
- Tk_Window tkwin; /* Token for window: options are entered
+static int
+ReadOptionFile (
+ Tcl_Interp *interp, /* Interpreter to use for reporting results. */
+ Tk_Window tkwin, /* Token for window: options are entered
* for this window's main window. */
- char *fileName; /* Name of file containing options. */
- int priority; /* Priority level to use for options in
+ char *fileName, /* Name of file containing options. */
+ int priority /* Priority level to use for options in
* this file, such as TK_USER_DEFAULT_PRIO
* or TK_INTERACTIVE_PRIO. Must be between
* 0 and TK_MAX_PRIO. */
+)
{
char *realName, *buffer;
int fileId, result;
*/
static ElArray *
-NewArray(numEls)
- int numEls; /* How many elements of space to allocate. */
+NewArray(
+ int numEls /* How many elements of space to allocate. */
+)
{
register ElArray *arrayPtr;
*/
static ElArray *
-ExtendArray(arrayPtr, elPtr)
- register ElArray *arrayPtr; /* Array to be extended. */
- register Element *elPtr; /* Element to be copied into array. */
+ExtendArray(
+ register ElArray *arrayPtr, /* Array to be extended. */
+ register Element *elPtr /* Element to be copied into array. */
+)
{
/*
* If the current array has filled up, make it bigger.
*/
static void
-SetupStacks(winPtr, leaf)
- TkWindow *winPtr; /* Window for which information is to
+SetupStacks(
+ TkWindow *winPtr, /* Window for which information is to
* be cached. */
- int leaf; /* Non-zero means this is the leaf
+ int leaf /* Non-zero means this is the leaf
* window being probed. Zero means this
* is an ancestor of the desired leaf. */
+)
{
int level, i, *iPtr;
register StackLevel *levelPtr;
*/
static void
-ExtendStacks(arrayPtr, leaf)
- ElArray *arrayPtr; /* Array of elements to copy onto stacks. */
- int leaf; /* If zero, then don't copy exact leaf
+ExtendStacks(
+ ElArray *arrayPtr, /* Array of elements to copy onto stacks. */
+ int leaf /* If zero, then don't copy exact leaf
* elements. */
+)
{
register int count;
register Element *elPtr;
*/
static void
-OptionInit(mainPtr)
- register TkMainInfo *mainPtr; /* Top-level information about
+OptionInit(
+ register TkMainInfo *mainPtr /* Top-level information about
* window that isn't initialized
* yet. */
+)
{
int i;
Tcl_Interp *interp;
*/
static void
-ClearOptionTree(arrayPtr)
- ElArray *arrayPtr; /* Array of options; delete everything
+ClearOptionTree(
+ ElArray *arrayPtr /* Array of options; delete everything
* referred to recursively by this. */
+)
{
register Element *elPtr;
int count;
*/
static int
-GetDefaultOptions(interp, winPtr)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- TkWindow *winPtr; /* Fetch option defaults for main window
+GetDefaultOptions(
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ TkWindow *winPtr /* Fetch option defaults for main window
* associated with this. */
+)
{
char *regProp, *home, *fileName;
int result, actualFormat;
*--------------------------------------------------------------
*/
-int
-Tk_PackCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_PackCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
int length;
*/
/* ARGSUSED */
-static void
-PackReqProc(clientData, tkwin)
- ClientData clientData; /* Packer's information about
+static void
+PackReqProc (
+ ClientData clientData, /* Packer's information about
* window that got new preferred
* geometry. */
- Tk_Window tkwin; /* Other Tk-related information
+ Tk_Window tkwin /* Other Tk-related information
* about the window. */
+)
{
register Packer *packPtr = (Packer *) clientData;
*--------------------------------------------------------------
*/
-static void
-ArrangePacking(clientData)
- ClientData clientData; /* Structure describing parent
+static void
+ArrangePacking (
+ ClientData clientData /* Structure describing parent
* whose children are to be
* re-layed out. */
+)
{
register Packer *parentPtr = (Packer *) clientData;
register Packer *childPtr;
*/
static Packer *
-GetPacker(tkwin)
- Tk_Window tkwin; /* Token for window for which
+GetPacker (
+ Tk_Window tkwin /* Token for window for which
* packer structure is desired. */
+)
{
register Packer *packPtr;
Tcl_HashEntry *hPtr;
*--------------------------------------------------------------
*/
-static int
-PackAfter(interp, prevPtr, parentPtr, argc, argv)
- Tcl_Interp *interp; /* Interpreter for error reporting. */
- Packer *prevPtr; /* Pack windows in argv just after this
+static int
+PackAfter (
+ Tcl_Interp *interp, /* Interpreter for error reporting. */
+ Packer *prevPtr, /* Pack windows in argv just after this
* window; NULL means pack as first
* child of parentPtr. */
- Packer *parentPtr; /* Parent in which to pack windows. */
- int argc; /* Number of elements in argv. */
- char **argv; /* Array of lists, each containing 2
+ Packer *parentPtr, /* Parent in which to pack windows. */
+ int argc, /* Number of elements in argv. */
+ char **argv /* Array of lists, each containing 2
* elements: window name and side
* against which to pack. */
+)
{
register Packer *packPtr;
Tk_Window tkwin;
*----------------------------------------------------------------------
*/
-static void
-Unlink(packPtr)
- register Packer *packPtr; /* Window to unlink. */
+static void
+Unlink (
+ register Packer *packPtr /* Window to unlink. */
+)
{
register Packer *parentPtr, *packPtr2;
*----------------------------------------------------------------------
*/
-static void
-DestroyPacker(clientData)
- ClientData clientData; /* Info about packed window that
+static void
+DestroyPacker (
+ ClientData clientData /* Info about packed window that
* is now dead. */
+)
{
register Packer *packPtr = (Packer *) clientData;
ckfree((char *) packPtr);
*----------------------------------------------------------------------
*/
-static void
-PackStructureProc(clientData, eventPtr)
- ClientData clientData; /* Our information about window
+static void
+PackStructureProc (
+ ClientData clientData, /* Our information about window
* referred to by eventPtr. */
- XEvent *eventPtr; /* Describes what just happened. */
+ XEvent *eventPtr /* Describes what just happened. */
+)
{
register Packer *packPtr = (Packer *) clientData;
if (eventPtr->type == ConfigureNotify) {
*
*----------------------------------------------------------------------
*/
-Pixmap
-Tk_GetPixmap(interp, tkwin, string)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- Tk_Window tkwin; /* Window in which pixmap will be used. */
- Tk_Uid string; /* Description of pixmap. See manual entry
+Pixmap
+Tk_GetPixmap (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ Tk_Window tkwin, /* Window in which pixmap will be used. */
+ Tk_Uid string /* Description of pixmap. See manual entry
* for details on legal syntax. */
+)
{
NameKey key;
Tcl_HashEntry *nameHashPtr, *idHashPtr, *predefHashPtr;
*----------------------------------------------------------------------
*/
-int
-Tk_DefinePixmap(interp, name, tkwin, pixmap, source, width, height)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- Tk_Uid name; /* Name to use for bitmap. Must not already
+int
+Tk_DefinePixmap (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ Tk_Uid name, /* Name to use for bitmap. Must not already
* be defined as a bitmap. */
- Tk_Window tkwin; /* any window on screen where pixmap lives */
- Pixmap pixmap; /* pixmap to associate with name,
+ Tk_Window tkwin, /* any window on screen where pixmap lives */
+ Pixmap pixmap, /* pixmap to associate with name,
* or None to create a new pixmap */
- char *source; /* Address of bits for bitmap. */
- unsigned int width; /* Width of bitmap. */
- unsigned int height; /* Height of bitmap. */
+ char *source, /* Address of bits for bitmap. */
+ unsigned int width, /* Width of bitmap. */
+ unsigned int height /* Height of bitmap. */
+)
{
int new;
Tcl_HashEntry *predefHashPtr;
*--------------------------------------------------------------
*/
-Tk_Uid
-Tk_NameOfPixmap(bitmap)
- Pixmap bitmap; /* Bitmap whose name is wanted. */
+Tk_Uid
+Tk_NameOfPixmap (
+ Pixmap bitmap /* Bitmap whose name is wanted. */
+)
{
Tcl_HashEntry *idHashPtr;
TkBitmap *bitmapPtr;
*--------------------------------------------------------------
*/
-void
-Tk_SizeOfPixmap(bitmap, widthPtr, heightPtr)
- Pixmap bitmap; /* Bitmap whose size is wanted. */
- unsigned int *widthPtr; /* Store bitmap width here. */
- unsigned int *heightPtr; /* Store bitmap height here. */
+void
+Tk_SizeOfPixmap (
+ Pixmap bitmap, /* Bitmap whose size is wanted. */
+ unsigned int *widthPtr, /* Store bitmap width here. */
+ unsigned int *heightPtr /* Store bitmap height here. */
+)
{
Tcl_HashEntry *idHashPtr;
TkBitmap *bitmapPtr;
*----------------------------------------------------------------------
*/
-void
-Tk_FreePixmap(bitmap)
- Pixmap bitmap; /* Bitmap to be released. */
+void
+Tk_FreePixmap (
+ Pixmap bitmap /* Bitmap to be released. */
+)
{
Tcl_HashEntry *idHashPtr;
register TkBitmap *bitmapPtr;
*/
/* ARGSUSED */
-Pixmap
-Tk_GetPixmapFromData(interp, tkwin, source, width, height)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- Tk_Window tkwin; /* Window in which bitmap will be used. */
- char *source; /* Bitmap data for bitmap shape. */
- unsigned int width, height; /* Dimensions of bitmap. */
+Pixmap
+Tk_GetPixmapFromData (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ Tk_Window tkwin, /* Window in which bitmap will be used. */
+ char *source, /* Bitmap data for bitmap shape. */
+ unsigned int width,
+ unsigned int height /* Dimensions of bitmap. */
+)
{
DataKey key;
Tcl_HashEntry *dataHashPtr;
*----------------------------------------------------------------------
*/
-static void
-PixmapInit(tkwin)
- Tk_Window tkwin; /* any window on screen where pixmap lives */
+static void
+PixmapInit (
+ Tk_Window tkwin /* any window on screen where pixmap lives */
+)
{
Tcl_Interp *dummy;
*----------------------------------------------------------------------
*/
-int
-Tk_UndefinePixmap(interp, name, tkwin)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- Tk_Uid name; /* Name of bitmap/pixmap to undefine */
- Tk_Window tkwin; /* any window on screen where pixmap lives */
+int
+Tk_UndefinePixmap (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ Tk_Uid name, /* Name of bitmap/pixmap to undefine */
+ Tk_Window tkwin /* any window on screen where pixmap lives */
+)
{
NameKey key;
Tcl_HashEntry *predefHashPtr, *nameHashPtr;
*--------------------------------------------------------------
*/
-int
-Tk_PlaceCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+int
+Tk_PlaceCmd (
+ ClientData clientData, /* Main window associated with interpreter. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin;
Slave *slavePtr;
*/
static Slave *
-FindSlave(tkwin)
- Tk_Window tkwin; /* Token for desired slave. */
+FindSlave (
+ Tk_Window tkwin /* Token for desired slave. */
+)
{
Tcl_HashEntry *hPtr;
register Slave *slavePtr;
*----------------------------------------------------------------------
*/
-static void
-UnlinkSlave(slavePtr)
- Slave *slavePtr; /* Slave structure to be unlinked. */
+static void
+UnlinkSlave (
+ Slave *slavePtr /* Slave structure to be unlinked. */
+)
{
register Master *masterPtr;
register Slave *prevPtr;
*/
static Master *
-FindMaster(tkwin)
- Tk_Window tkwin; /* Token for desired master. */
+FindMaster (
+ Tk_Window tkwin /* Token for desired master. */
+)
{
Tcl_HashEntry *hPtr;
register Master *masterPtr;
*----------------------------------------------------------------------
*/
-static int
-ConfigureSlave(interp, slavePtr, argc, argv)
- Tcl_Interp *interp; /* Used for error reporting. */
- Slave *slavePtr; /* Pointer to current information
+static int
+ConfigureSlave (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ Slave *slavePtr, /* Pointer to current information
* about slave. */
- int argc; /* Number of config arguments. */
- char **argv; /* String values for arguments. */
+ int argc, /* Number of config arguments. */
+ char **argv /* String values for arguments. */
+)
{
register Master *masterPtr;
int c, length, result;
*----------------------------------------------------------------------
*/
-static void
-RecomputePlacement(clientData)
- ClientData clientData; /* Pointer to Master record. */
+static void
+RecomputePlacement (
+ ClientData clientData /* Pointer to Master record. */
+)
{
register Master *masterPtr = (Master *) clientData;
register Slave *slavePtr;
*----------------------------------------------------------------------
*/
-static void
-MasterStructureProc(clientData, eventPtr)
- ClientData clientData; /* Pointer to Master structure for window
+static void
+MasterStructureProc (
+ ClientData clientData, /* Pointer to Master structure for window
* referred to by eventPtr. */
- XEvent *eventPtr; /* Describes what just happened. */
+ XEvent *eventPtr /* Describes what just happened. */
+)
{
register Master *masterPtr = (Master *) clientData;
register Slave *slavePtr, *nextPtr;
*----------------------------------------------------------------------
*/
-static void
-SlaveStructureProc(clientData, eventPtr)
- ClientData clientData; /* Pointer to Slave structure for window
+static void
+SlaveStructureProc (
+ ClientData clientData, /* Pointer to Slave structure for window
* referred to by eventPtr. */
- XEvent *eventPtr; /* Describes what just happened. */
+ XEvent *eventPtr /* Describes what just happened. */
+)
{
register Slave *slavePtr = (Slave *) clientData;
*/
/* ARGSUSED */
-static void
-PlaceRequestProc(clientData, tkwin)
- ClientData clientData; /* Pointer to our record for slave. */
- Tk_Window tkwin; /* Window that changed its desired
+static void
+PlaceRequestProc (
+ ClientData clientData, /* Pointer to our record for slave. */
+ Tk_Window tkwin /* Window that changed its desired
* size. */
+)
{
Slave *slavePtr = (Slave *) clientData;
Master *masterPtr;
*/
void
-Tk_Preserve(clientData)
- ClientData clientData; /* Pointer to malloc'ed block of memory. */
+Tk_Preserve(
+ ClientData clientData /* Pointer to malloc'ed block of memory. */
+)
{
register Reference *refPtr;
int i;
*/
void
-Tk_Release(clientData)
- ClientData clientData; /* Pointer to malloc'ed block of memory. */
+Tk_Release(
+ ClientData clientData /* Pointer to malloc'ed block of memory. */
+)
{
register Reference *refPtr;
int i;
*/
void
-Tk_EventuallyFree(clientData, freeProc)
- ClientData clientData; /* Pointer to malloc'ed block of memory. */
- Tk_FreeProc *freeProc; /* Procedure to actually do free. */
+Tk_EventuallyFree(
+ ClientData clientData, /* Pointer to malloc'ed block of memory. */
+ Tk_FreeProc *freeProc /* Procedure to actually do free. */
+)
{
register Reference *refPtr;
int i;
*/
/* ARGSUSED */
-void
-Tcp_MakeOpenFile(interp,fd,r,w)
- Tcl_Interp *interp;
- int fd;
- int r,w;
+void
+Tcp_MakeOpenFile (Tcl_Interp *interp, int fd, int r, int w)
{/* Create an OpenFile structure using f and install it in the interpreter with
* Readable and Writable set to r and w
*/
*/
/* ARGSUSED */
-int
-Tcp_ConnectCmd(notUsed, interp, argc, argv)
- ClientData notUsed;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+int
+Tcp_ConnectCmd (ClientData notUsed, Tcl_Interp *interp, int argc, char **argv)
{
- Interp *iPtr = (Interp *) interp;
char *host,*port;
int fd;
int server=0;
Tcl_SetVar2(interp,"connect_info",interp->result,buf,TCL_GLOBAL_ONLY);
}
- Tcp_MakeOpenFile(iPtr,fd,1,1-server);
+ Tcp_MakeOpenFile(interp,fd,1,1-server);
return TCL_OK;
}
*/
/* ARGSUSED */
-int
-Tcp_ShutdownCmd(notUsed, interp, argc, argv)
- ClientData notUsed;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+int
+Tcp_ShutdownCmd (ClientData notUsed, Tcl_Interp *interp, int argc, char **argv)
{
Interp *iPtr = (Interp *) interp;
OpenFile *filePtr;
*/
/* ARGSUSED */
-int
-Tcp_AcceptCmd(notUsed, interp, argc, argv)
- ClientData notUsed;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+int
+Tcp_AcceptCmd (ClientData notUsed, Tcl_Interp *interp, int argc, char **argv)
{
- Interp *iPtr = (Interp *) interp;
struct sockaddr_in sockaddr;
int len = sizeof sockaddr;
OpenFile *filePtr;
/*
* Create the FILE*
*/
- Tcp_MakeOpenFile(iPtr,fd,1,1);
+ Tcp_MakeOpenFile(interp,fd,1,1);
sprintf(interp->result, "file%d", fd);
return TCL_OK;
*----------------------------------------------------------------
*/
-static int
-unix_connect(path,server)
- char *path; /* Path name to create or use */
- int server; /* 1->make server, 0->connect to server */
+static int
+unix_connect (
+ char *path, /* Path name to create or use */
+ int server /* 1->make server, 0->connect to server */
+)
{
struct sockaddr_un sockaddr;
int sock, status;
*----------------------------------------------------------------
*/
-static int
-inet_connect(host, service,server)
- char *host; /* Host to connect, name or IP address */
- char *service; /* Port to use, service name or port number */
- int server;
+static int
+inet_connect (
+ char *host, /* Host to connect, name or IP address */
+ char *service, /* Port to use, service name or port number */
+ int server
+)
{
struct hostent *hostent, _hostent;
struct servent *servent, _servent;
*/
/* ARGSUSED */
-int
-Tcp_FileHandlerCmd(notUsed, interp, argc, argv)
- ClientData notUsed;
- Tcl_Interp *interp;
- int argc;
- char **argv;
+int
+Tcp_FileHandlerCmd (ClientData notUsed, Tcl_Interp *interp, int argc, char **argv)
{
FileCmd *cmdPtr;
OpenFile *filePtr;
*----------------------------------------------------------------
*/
-static void
-HandleSocket(clientData, mask)
- ClientData clientData;
- int mask;
+static void
+HandleSocket (ClientData clientData, int mask)
{
int result;
FileCmd *cmdPtr = (FileCmd *) clientData;
*--------------------------------------------------------------
*/
-static int
-CreateRectOval(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas to hold new item. */
- Tk_Item *itemPtr; /* Record to hold new item; header
+static int
+CreateRectOval (
+ register Tk_Canvas *canvasPtr, /* Canvas to hold new item. */
+ Tk_Item *itemPtr, /* Record to hold new item; header
* has been initialized by caller. */
- int argc; /* Number of arguments in argv. */
- char **argv; /* Arguments describing rectangle. */
+ int argc, /* Number of arguments in argv. */
+ char **argv /* Arguments describing rectangle. */
+)
{
register RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
*--------------------------------------------------------------
*/
-static int
-RectOvalCoords(canvasPtr, itemPtr, argc, argv)
- register Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item whose coordinates are to be
+static int
+RectOvalCoords (
+ register Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item whose coordinates are to be
* read or modified. */
- int argc; /* Number of coordinates supplied in
+ int argc, /* Number of coordinates supplied in
* argv. */
- char **argv; /* Array of coordinates: x1, y1,
+ char **argv /* Array of coordinates: x1, y1,
* x2, y2, ... */
+)
{
register RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
char buffer[500];
*--------------------------------------------------------------
*/
-static int
-ConfigureRectOval(canvasPtr, itemPtr, argc, argv, flags)
- Tk_Canvas *canvasPtr; /* Canvas containing itemPtr. */
- Tk_Item *itemPtr; /* Rectangle item to reconfigure. */
- int argc; /* Number of elements in argv. */
- char **argv; /* Arguments describing things to configure. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+static int
+ConfigureRectOval (
+ Tk_Canvas *canvasPtr, /* Canvas containing itemPtr. */
+ Tk_Item *itemPtr, /* Rectangle item to reconfigure. */
+ int argc, /* Number of elements in argv. */
+ char **argv, /* Arguments describing things to configure. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
register RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
XGCValues gcValues;
*--------------------------------------------------------------
*/
-static void
-DeleteRectOval(itemPtr)
- Tk_Item *itemPtr; /* Item that is being deleted. */
+static void
+DeleteRectOval (
+ Tk_Item *itemPtr /* Item that is being deleted. */
+)
{
register RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
*/
/* ARGSUSED */
-static void
-ComputeRectOvalBbox(canvasPtr, rectOvalPtr)
- Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- register RectOvalItem *rectOvalPtr; /* Item whose bbox is to be
+static void
+ComputeRectOvalBbox (
+ Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ register RectOvalItem *rectOvalPtr /* Item whose bbox is to be
* recomputed. */
+)
{
int bloat;
*--------------------------------------------------------------
*/
-static void
-DisplayRectOval(canvasPtr, itemPtr, drawable)
- register Tk_Canvas *canvasPtr; /* Canvas that contains item. */
- Tk_Item *itemPtr; /* Item to be displayed. */
- Drawable drawable; /* Pixmap or window in which to draw
+static void
+DisplayRectOval (
+ register Tk_Canvas *canvasPtr, /* Canvas that contains item. */
+ Tk_Item *itemPtr, /* Item to be displayed. */
+ Drawable drawable /* Pixmap or window in which to draw
* item. */
+)
{
register RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
Display *display = Tk_Display(canvasPtr->tkwin);
*/
/* ARGSUSED */
-static double
-RectToPoint(canvasPtr, itemPtr, pointPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against point. */
- double *pointPtr; /* Pointer to x and y coordinates. */
+static double
+RectToPoint (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against point. */
+ double *pointPtr /* Pointer to x and y coordinates. */
+)
{
register RectOvalItem *rectPtr = (RectOvalItem *) itemPtr;
double xDiff, yDiff, x1, y1, x2, y2, inc, tmp;
*/
/* ARGSUSED */
-static double
-OvalToPoint(canvasPtr, itemPtr, pointPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against point. */
- double *pointPtr; /* Pointer to x and y coordinates. */
+static double
+OvalToPoint (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against point. */
+ double *pointPtr /* Pointer to x and y coordinates. */
+)
{
register RectOvalItem *ovalPtr = (RectOvalItem *) itemPtr;
double width;
*/
/* ARGSUSED */
-static int
-RectToArea(canvasPtr, itemPtr, areaPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against rectangle. */
- double *areaPtr; /* Pointer to array of four coordinates
+static int
+RectToArea (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against rectangle. */
+ double *areaPtr /* Pointer to array of four coordinates
* (x1, y1, x2, y2) describing rectangular
* area. */
+)
{
register RectOvalItem *rectPtr = (RectOvalItem *) itemPtr;
double halfWidth;
*/
/* ARGSUSED */
-static int
-OvalToArea(canvasPtr, itemPtr, areaPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item to check against oval. */
- double *areaPtr; /* Pointer to array of four coordinates
+static int
+OvalToArea (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item to check against oval. */
+ double *areaPtr /* Pointer to array of four coordinates
* (x1, y1, x2, y2) describing rectangular
* area. */
+)
{
register RectOvalItem *ovalPtr = (RectOvalItem *) itemPtr;
double oval[4], halfWidth;
*--------------------------------------------------------------
*/
-static void
-ScaleRectOval(canvasPtr, itemPtr, originX, originY, scaleX, scaleY)
- Tk_Canvas *canvasPtr; /* Canvas containing rectangle. */
- Tk_Item *itemPtr; /* Rectangle to be scaled. */
- double originX, originY; /* Origin about which to scale rect. */
- double scaleX; /* Amount to scale in X direction. */
- double scaleY; /* Amount to scale in Y direction. */
+static void
+ScaleRectOval (
+ Tk_Canvas *canvasPtr, /* Canvas containing rectangle. */
+ Tk_Item *itemPtr, /* Rectangle to be scaled. */
+ double originX,
+ double originY, /* Origin about which to scale rect. */
+ double scaleX, /* Amount to scale in X direction. */
+ double scaleY /* Amount to scale in Y direction. */
+)
{
register RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
*--------------------------------------------------------------
*/
-static void
-TranslateRectOval(canvasPtr, itemPtr, deltaX, deltaY)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- Tk_Item *itemPtr; /* Item that is being moved. */
- double deltaX, deltaY; /* Amount by which item is to be
+static void
+TranslateRectOval (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ Tk_Item *itemPtr, /* Item that is being moved. */
+ double deltaX,
+ double deltaY /* Amount by which item is to be
* moved. */
+)
{
register RectOvalItem *rectOvalPtr = (RectOvalItem *) itemPtr;
*--------------------------------------------------------------
*/
-int
-Tk_ScaleCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_ScaleCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
register Scale *scalePtr;
|PointerMotionMask|ButtonPressMask|ButtonReleaseMask,
ScaleMouseProc, (ClientData) scalePtr);
Tcl_CreateCommand(interp, Tk_PathName(scalePtr->tkwin), ScaleWidgetCmd,
- (ClientData) scalePtr, (void (*)()) NULL);
+ (ClientData) scalePtr, (void (*)(int *)) NULL);
if (ConfigureScale(interp, scalePtr, argc-2, argv+2, 0) != TCL_OK) {
goto error;
}
*--------------------------------------------------------------
*/
-static int
-ScaleWidgetCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about scale
+static int
+ScaleWidgetCmd (
+ ClientData clientData, /* Information about scale
* widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Scale *scalePtr = (Scale *) clientData;
int result = TCL_OK;
*----------------------------------------------------------------------
*/
-static void
-DestroyScale(clientData)
- ClientData clientData; /* Info about scale widget. */
+static void
+DestroyScale (
+ ClientData clientData /* Info about scale widget. */
+)
{
register Scale *scalePtr = (Scale *) clientData;
*----------------------------------------------------------------------
*/
-static int
-ConfigureScale(interp, scalePtr, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- register Scale *scalePtr; /* Information about widget; may or may
+static int
+ConfigureScale (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register Scale *scalePtr, /* Information about widget; may or may
* not already have values for some fields. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
XGCValues gcValues;
GC newGC;
*----------------------------------------------------------------------
*/
-static void
-ComputeScaleGeometry(scalePtr)
- register Scale *scalePtr; /* Information about widget. */
+static void
+ComputeScaleGeometry (
+ register Scale *scalePtr /* Information about widget. */
+)
{
XCharStruct bbox;
char valueString[30];
*--------------------------------------------------------------
*/
-static void
-DisplayVerticalScale(clientData)
- ClientData clientData; /* Information about widget. */
+static void
+DisplayVerticalScale (
+ ClientData clientData /* Information about widget. */
+)
{
register Scale *scalePtr = (Scale *) clientData;
register Tk_Window tkwin = scalePtr->tkwin;
*----------------------------------------------------------------------
*/
-static void
-DisplayVerticalValue(scalePtr, value, rightEdge)
- register Scale *scalePtr; /* Information about widget in which to
+static void
+DisplayVerticalValue (
+ register Scale *scalePtr, /* Information about widget in which to
* display value. */
- int value; /* Y-coordinate of number to display,
+ int value, /* Y-coordinate of number to display,
* specified in application coords, not
* in pixels (we'll compute pixels). */
- int rightEdge; /* X-coordinate of right edge of text,
+ int rightEdge /* X-coordinate of right edge of text,
* specified in pixels. */
+)
{
register Tk_Window tkwin = scalePtr->tkwin;
int y, dummy, length;
*--------------------------------------------------------------
*/
-static void
-DisplayHorizontalScale(clientData)
- ClientData clientData; /* Information about widget. */
+static void
+DisplayHorizontalScale (
+ ClientData clientData /* Information about widget. */
+)
{
register Scale *scalePtr = (Scale *) clientData;
register Tk_Window tkwin = scalePtr->tkwin;
*----------------------------------------------------------------------
*/
-static void
-DisplayHorizontalValue(scalePtr, value, bottom)
- register Scale *scalePtr; /* Information about widget in which to
+static void
+DisplayHorizontalValue (
+ register Scale *scalePtr, /* Information about widget in which to
* display value. */
- int value; /* Y-coordinate of number to display,
+ int value, /* Y-coordinate of number to display,
* specified in application coords, not
* in pixels (we'll compute pixels). */
- int bottom; /* Y-coordinate of bottom edge of text,
+ int bottom /* Y-coordinate of bottom edge of text,
* specified in pixels. */
+)
{
register Tk_Window tkwin = scalePtr->tkwin;
int x, y, dummy, length;
*----------------------------------------------------------------------
*/
-static int
-PixelToValue(scalePtr, x, y)
- register Scale *scalePtr; /* Information about widget. */
- int x, y; /* Coordinates of point within
+static int
+PixelToValue (
+ register Scale *scalePtr, /* Information about widget. */
+ int x,
+ int y /* Coordinates of point within
* window. */
+)
{
int value, pixelRange;
*----------------------------------------------------------------------
*/
-static int
-ValueToPixel(scalePtr, value)
- register Scale *scalePtr; /* Information about widget. */
- int value; /* Reading of the widget. */
+static int
+ValueToPixel (
+ register Scale *scalePtr, /* Information about widget. */
+ int value /* Reading of the widget. */
+)
{
int y, pixelRange, valueRange;
*--------------------------------------------------------------
*/
-static void
-ScaleEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- XEvent *eventPtr; /* Information about event. */
+static void
+ScaleEventProc (
+ ClientData clientData, /* Information about window. */
+ XEvent *eventPtr /* Information about event. */
+)
{
Scale *scalePtr = (Scale *) clientData;
*--------------------------------------------------------------
*/
-static void
-ScaleMouseProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- register XEvent *eventPtr; /* Information about event. */
+static void
+ScaleMouseProc (
+ ClientData clientData, /* Information about window. */
+ register XEvent *eventPtr /* Information about event. */
+)
{
register Scale *scalePtr = (Scale *) clientData;
*--------------------------------------------------------------
*/
-static void
-SetScaleValue(scalePtr, value)
- register Scale *scalePtr; /* Info about widget. */
- int value; /* New value for scale. Gets
+static void
+SetScaleValue (
+ register Scale *scalePtr, /* Info about widget. */
+ int value /* New value for scale. Gets
* adjusted if it's off the scale. */
+)
{
int result;
char string[20];
*--------------------------------------------------------------
*/
-static void
-EventuallyRedrawScale(scalePtr, what)
- register Scale *scalePtr; /* Information about widget. */
- int what; /* What to redraw: REDRAW_SLIDER
+static void
+EventuallyRedrawScale (
+ register Scale *scalePtr, /* Information about widget. */
+ int what /* What to redraw: REDRAW_SLIDER
* or REDRAW_ALL. */
+)
{
if ((what == 0) || (scalePtr->tkwin == NULL)
|| !Tk_IsMapped(scalePtr->tkwin)) {
*--------------------------------------------------------------
*/
-int
-Tk_ScrollbarCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_ScrollbarCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
register Scrollbar *scrollPtr;
|PointerMotionMask|ButtonPressMask|ButtonReleaseMask,
ScrollbarMouseProc, (ClientData) scrollPtr);
Tcl_CreateCommand(interp, Tk_PathName(scrollPtr->tkwin), ScrollbarWidgetCmd,
- (ClientData) scrollPtr, (void (*)()) NULL);
+ (ClientData) scrollPtr, (void (*)(int *)) NULL);
if (ConfigureScrollbar(interp, scrollPtr, argc-2, argv+2, 0) != TCL_OK) {
goto error;
}
*--------------------------------------------------------------
*/
-static int
-ScrollbarWidgetCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about scrollbar
+static int
+ScrollbarWidgetCmd (
+ ClientData clientData, /* Information about scrollbar
* widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register Scrollbar *scrollPtr = (Scrollbar *) clientData;
int result = TCL_OK;
*----------------------------------------------------------------------
*/
-static void
-DestroyScrollbar(clientData)
- ClientData clientData; /* Info about scrollbar widget. */
+static void
+DestroyScrollbar (
+ ClientData clientData /* Info about scrollbar widget. */
+)
{
register Scrollbar *scrollPtr = (Scrollbar *) clientData;
*----------------------------------------------------------------------
*/
-static int
-ConfigureScrollbar(interp, scrollPtr, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- register Scrollbar *scrollPtr; /* Information about widget; may or
+static int
+ConfigureScrollbar (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register Scrollbar *scrollPtr, /* Information about widget; may or
* may not already have values for
* some fields. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Flags to pass to
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Flags to pass to
* Tk_ConfigureWidget. */
+)
{
int length;
XGCValues gcValues;
*--------------------------------------------------------------
*/
-static void
-DisplayScrollbar(clientData)
- ClientData clientData; /* Information about window. */
+static void
+DisplayScrollbar (
+ ClientData clientData /* Information about window. */
+)
{
register Scrollbar *scrollPtr = (Scrollbar *) clientData;
register Tk_Window tkwin = scrollPtr->tkwin;
*--------------------------------------------------------------
*/
-static void
-ScrollbarEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- XEvent *eventPtr; /* Information about event. */
+static void
+ScrollbarEventProc (
+ ClientData clientData, /* Information about window. */
+ XEvent *eventPtr /* Information about event. */
+)
{
Scrollbar *scrollPtr = (Scrollbar *) clientData;
*----------------------------------------------------------------------
*/
-static void
-ComputeScrollbarGeometry(scrollPtr)
- register Scrollbar *scrollPtr; /* Scrollbar whose geometry may
+static void
+ComputeScrollbarGeometry (
+ register Scrollbar *scrollPtr /* Scrollbar whose geometry may
* have changed. */
+)
{
int width, fieldLength;
*--------------------------------------------------------------
*/
-static int
-ScrollbarPosition(scrollPtr, x, y)
- register Scrollbar *scrollPtr; /* Scrollbar widget record. */
- int x, y; /* Coordinates within scrollPtr's
+static int
+ScrollbarPosition (
+ register Scrollbar *scrollPtr, /* Scrollbar widget record. */
+ int x,
+ int y /* Coordinates within scrollPtr's
* window. */
+)
{
int length, width, tmp;
*--------------------------------------------------------------
*/
-static void
-ScrollbarMouseProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- register XEvent *eventPtr; /* Information about event. */
+static void
+ScrollbarMouseProc (
+ ClientData clientData, /* Information about window. */
+ register XEvent *eventPtr /* Information about event. */
+)
{
register Scrollbar *scrollPtr = (Scrollbar *) clientData;
*--------------------------------------------------------------
*/
-static void
-ScrollCmd(scrollPtr, unit)
- register Scrollbar *scrollPtr; /* Scrollbar from which to issue
+static void
+ScrollCmd (
+ register Scrollbar *scrollPtr, /* Scrollbar from which to issue
* command. */
- int unit; /* Unit position within thing being
+ int unit /* Unit position within thing being
* being displayed that should appear
* at top or right of screen. */
+)
{
char string[20];
int result;
*--------------------------------------------------------------
*/
-static void
-EventuallyRedraw(scrollPtr)
- register Scrollbar *scrollPtr; /* Information about widget. */
+static void
+EventuallyRedraw (
+ register Scrollbar *scrollPtr /* Information about widget. */
+)
{
if ((scrollPtr->tkwin == NULL) || (!Tk_IsMapped(scrollPtr->tkwin))) {
return;
*--------------------------------------------------------------
*/
-static void
-ScrollbarNewField(scrollPtr, field)
- register Scrollbar *scrollPtr; /* Information about widget. */
- int field; /* Identifies field under mouse,
+static void
+ScrollbarNewField (
+ register Scrollbar *scrollPtr, /* Information about widget. */
+ int field /* Identifies field under mouse,
* e.g. TOP_ARROW. */
+)
{
if (field == scrollPtr->mouseField) {
return;
*--------------------------------------------------------------
*/
-static void
-ScrollbarTimerProc(clientData)
- ClientData clientData; /* Information about widget. */
+static void
+ScrollbarTimerProc (
+ ClientData clientData /* Information about widget. */
+)
{
register Scrollbar *scrollPtr = (Scrollbar *) clientData;
*--------------------------------------------------------------
*/
-void
-Tk_CreateSelHandler(tkwin, target, proc, clientData, format)
- Tk_Window tkwin; /* Token for window. */
- Atom target; /* The kind of selection conversions
+void
+Tk_CreateSelHandler (
+ Tk_Window tkwin, /* Token for window. */
+ Atom target, /* The kind of selection conversions
* that can be handled by proc,
* e.g. TARGETS or XA_STRING. */
- Tk_SelectionProc *proc; /* Procedure to invoke to convert
+ Tk_SelectionProc *proc, /* Procedure to invoke to convert
* selection to type "target". */
- ClientData clientData; /* Value to pass to proc. */
- Atom format; /* Format in which the selection
+ ClientData clientData, /* Value to pass to proc. */
+ Atom format /* Format in which the selection
* information should be returned to
* the requestor. XA_STRING is best by
* far, but anything listed in the ICCCM
* will be tolerated (blech). */
+)
{
register TkSelHandler *selPtr;
TkWindow *winPtr = (TkWindow *) tkwin;
*--------------------------------------------------------------
*/
-void
-Tk_OwnSelection(tkwin, proc, clientData)
- Tk_Window tkwin; /* Window to become new selection
+void
+Tk_OwnSelection (
+ Tk_Window tkwin, /* Window to become new selection
* owner. */
- Tk_LostSelProc *proc; /* Procedure to call when selection
+ Tk_LostSelProc *proc, /* Procedure to call when selection
* is taken away from tkwin. */
- ClientData clientData; /* Arbitrary one-word argument to
+ ClientData clientData /* Arbitrary one-word argument to
* pass to proc. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
TkDisplay *dispPtr = winPtr->dispPtr;
*--------------------------------------------------------------
*/
-int
-Tk_GetSelection(interp, tkwin, target, proc, clientData)
- Tcl_Interp *interp; /* Interpreter to use for reporting
+int
+Tk_GetSelection (
+ Tcl_Interp *interp, /* Interpreter to use for reporting
* errors. */
- Tk_Window tkwin; /* Window on whose behalf to retrieve
+ Tk_Window tkwin, /* Window on whose behalf to retrieve
* the selection (determines display
* from which to retrieve). */
- Atom target; /* Desired form in which selection
+ Atom target, /* Desired form in which selection
* is to be returned. */
- Tk_GetSelProc *proc; /* Procedure to call to process the
+ Tk_GetSelProc *proc, /* Procedure to call to process the
* selection, once it has been retrieved. */
- ClientData clientData; /* Arbitrary value to pass to proc. */
+ ClientData clientData /* Arbitrary value to pass to proc. */
+)
{
RetrievalInfo retr;
TkWindow *winPtr = (TkWindow *) tkwin;
*--------------------------------------------------------------
*/
-int
-Tk_SelectionCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_SelectionCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
int length;
*----------------------------------------------------------------------
*/
-void
-TkSelDeadWindow(winPtr)
- register TkWindow *winPtr; /* Window that's being deleted. */
+void
+TkSelDeadWindow (
+ register TkWindow *winPtr /* Window that's being deleted. */
+)
{
register TkSelHandler *selPtr;
*----------------------------------------------------------------------
*/
-static void
-SelInit(tkwin)
- Tk_Window tkwin; /* Window token (used to find
+static void
+SelInit (
+ Tk_Window tkwin /* Window token (used to find
* display to initialize). */
+)
{
register TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
*--------------------------------------------------------------
*/
-void
-TkSelEventProc(tkwin, eventPtr)
- Tk_Window tkwin; /* Window for which event was
+void
+TkSelEventProc (
+ Tk_Window tkwin, /* Window for which event was
* targeted. */
- register XEvent *eventPtr; /* X event: either SelectionClear,
+ register XEvent *eventPtr /* X event: either SelectionClear,
* SelectionRequest, or
* SelectionNotify. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
*/
/* ARGSUSED */
-static int
-SelGetProc(clientData, interp, portion)
- ClientData clientData; /* Information about partially-
+static int
+SelGetProc (
+ ClientData clientData, /* Information about partially-
* assembled result. */
- Tcl_Interp *interp; /* Interpreter used for error
+ Tcl_Interp *interp, /* Interpreter used for error
* reporting (not used). */
- char *portion; /* New information to be appended. */
+ char *portion /* New information to be appended. */
+)
{
register GetInfo *getInfoPtr = (GetInfo *) clientData;
int newLength;
*/
static long *
-SelCvtToX(string, type, tkwin, numLongsPtr)
- char *string; /* String representation of selection. */
- Atom type; /* Atom specifying the X format that is
+SelCvtToX (
+ char *string, /* String representation of selection. */
+ Atom type, /* Atom specifying the X format that is
* desired for the selection. Should not
* be XA_STRING (if so, don't bother calling
* this procedure at all). */
- Tk_Window tkwin; /* Window that governs atom conversion. */
- int *numLongsPtr; /* Number of 32-bit words contained in the
+ Tk_Window tkwin, /* Window that governs atom conversion. */
+ int *numLongsPtr /* Number of 32-bit words contained in the
* result. */
+)
{
register char *p;
char *field;
*/
static char *
-SelCvtFromX(propPtr, numValues, type, tkwin)
- register long *propPtr; /* Property value from X. */
- int numValues; /* Number of 32-bit values in property. */
- Atom type; /* Type of property Should not be
+SelCvtFromX (
+ register long *propPtr, /* Property value from X. */
+ int numValues, /* Number of 32-bit values in property. */
+ Atom type, /* Type of property Should not be
* XA_STRING (if so, don't bother calling
* this procedure at all). */
- Tk_Window tkwin; /* Window to use for atom conversion. */
+ Tk_Window tkwin /* Window to use for atom conversion. */
+)
{
char *result;
int resultSpace, curSize, fieldSize;
*----------------------------------------------------------------------
*/
-static void
-ConvertSelection(winPtr, eventPtr)
- TkWindow *winPtr; /* Window that owns selection. */
- register XSelectionRequestEvent *eventPtr;
+static void
+ConvertSelection (
+ TkWindow *winPtr, /* Window that owns selection. */
+ register XSelectionRequestEvent *eventPtr
+)
/* Event describing request. */
{
XSelectionEvent reply; /* Used to notify requestor that
Tk_ErrorHandler errorHandler;
errorHandler = Tk_CreateErrorHandler(eventPtr->display, -1, -1,-1,
- (int (*)()) NULL, (ClientData) NULL);
+ (int (*)(int *, XErrorEvent *)) NULL, (ClientData) NULL);
/*
* Initialize the reply event.
}
Tk_DeleteTimerHandler(info.timeout);
errorHandler = Tk_CreateErrorHandler(winPtr->display,
- -1, -1,-1, (int (*)()) NULL, (ClientData) NULL);
+ -1, -1,-1, (int (*)(int *, XErrorEvent *)) NULL, (ClientData) NULL);
XSelectInput(reply.display, reply.requestor, 0L);
Tk_DeleteErrorHandler(errorHandler);
if (pendingIncrs == &info) {
*----------------------------------------------------------------------
*/
-static void
-SelRcvIncrProc(clientData, eventPtr)
- ClientData clientData; /* Information about retrieval. */
- register XEvent *eventPtr; /* X PropertyChange event. */
+static void
+SelRcvIncrProc (
+ ClientData clientData, /* Information about retrieval. */
+ register XEvent *eventPtr /* X PropertyChange event. */
+)
{
register RetrievalInfo *retrPtr = (RetrievalInfo *) clientData;
char *propInfo;
*----------------------------------------------------------------------
*/
-void
-TkSelPropProc(eventPtr)
- register XEvent *eventPtr; /* X PropertyChange event. */
+void
+TkSelPropProc (
+ register XEvent *eventPtr /* X PropertyChange event. */
+)
{
register IncrInfo *infoPtr;
int i, format;
}
errorHandler = Tk_CreateErrorHandler(
eventPtr->xproperty.display, -1, -1, -1,
- (int (*)()) NULL, (ClientData) NULL);
+ (int (*)(int *, XErrorEvent *)) NULL, (ClientData) NULL);
XChangeProperty(eventPtr->xproperty.display,
eventPtr->xproperty.window,
eventPtr->xproperty.atom, selPtr->format,
*----------------------------------------------------------------------
*/
-static int
-HandleTclCommand(clientData, offset, buffer, maxBytes)
- ClientData clientData; /* Information about command to execute. */
- int offset; /* Return selection bytes starting at this
+static int
+HandleTclCommand (
+ ClientData clientData, /* Information about command to execute. */
+ int offset, /* Return selection bytes starting at this
* offset. */
- char *buffer; /* Place to store converted selection. */
- int maxBytes; /* Maximum # of bytes to store at buffer. */
+ char *buffer, /* Place to store converted selection. */
+ int maxBytes /* Maximum # of bytes to store at buffer. */
+)
{
register CommandInfo *cmdInfoPtr = (CommandInfo *) clientData;
char *oldResultString;
*----------------------------------------------------------------------
*/
-static void
-SelTimeoutProc(clientData)
- ClientData clientData; /* Information about retrieval
+static void
+SelTimeoutProc (
+ ClientData clientData /* Information about retrieval
* in progress. */
+)
{
register RetrievalInfo *retrPtr = (RetrievalInfo *) clientData;
*----------------------------------------------------------------------
*/
-static void
-IncrTimeoutProc(clientData)
- ClientData clientData; /* Information about INCR-mode
+static void
+IncrTimeoutProc (
+ ClientData clientData /* Information about INCR-mode
* selection retrieval for which
* we are selection owner. */
+)
{
register IncrInfo *infoPtr = (IncrInfo *) clientData;
*----------------------------------------------------------------------
*/
-static int
-DefaultSelection(winPtr, target, buffer, maxBytes, typePtr)
- TkWindow *winPtr; /* Window that owns selection. */
- Atom target; /* Desired form of selection. */
- char *buffer; /* Place to put selection characters. */
- int maxBytes; /* Maximum # of bytes to store at buffer. */
- Atom *typePtr; /* Store here the type of the selection,
+static int
+DefaultSelection (
+ TkWindow *winPtr, /* Window that owns selection. */
+ Atom target, /* Desired form of selection. */
+ char *buffer, /* Place to put selection characters. */
+ int maxBytes, /* Maximum # of bytes to store at buffer. */
+ Atom *typePtr /* Store here the type of the selection,
* for use in converting to proper X format. */
+)
{
if (target == winPtr->dispPtr->timestampAtom) {
if (maxBytes < 20) {
*--------------------------------------------------------------
*/
-int
-Tk_RegisterInterp(interp, name, tkwin)
- Tcl_Interp *interp; /* Interpreter associated with name. */
- char *name; /* The name that will be used to
+int
+Tk_RegisterInterp (
+ Tcl_Interp *interp, /* Interpreter associated with name. */
+ char *name, /* The name that will be used to
* refer to the interpreter in later
* "send" commands. Must be globally
* unique. */
- Tk_Window tkwin; /* Token for window associated with
+ Tk_Window tkwin /* Token for window associated with
* interp; used to identify display
* for communication. */
+)
{
#define TCL_MAX_NAME_LENGTH 1000
char propInfo[TCL_MAX_NAME_LENGTH + 20];
*--------------------------------------------------------------
*/
-int
-Tk_SendCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about sender (only
+int
+Tk_SendCmd (
+ ClientData clientData, /* Information about sender (only
* dispPtr field is used). */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
RegisteredInterp *senderRiPtr = (RegisteredInterp *) clientData;
Window w;
register RegisteredInterp *riPtr;
char *cmd;
int result;
- Bool (*prevRestrictProc)();
+ Bool (*prevRestrictProc)(Display *, XEvent *, char *);
char *prevArg;
TkWindow *winPtr = senderRiPtr->winPtr;
TkDisplay *dispPtr = senderRiPtr->dispPtr;
*----------------------------------------------------------------------
*/
-int
-TkGetInterpNames(interp, tkwin)
- Tcl_Interp *interp; /* Interpreter for returning a result. */
- Tk_Window tkwin; /* Window whose display is to be used
+int
+TkGetInterpNames (
+ Tcl_Interp *interp, /* Interpreter for returning a result. */
+ Tk_Window tkwin /* Window whose display is to be used
* for the lookup. */
+)
{
TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
char *regProp, *separator, *name;
*--------------------------------------------------------------
*/
-static int
-SendInit(interp, dispPtr)
- Tcl_Interp *interp; /* Interpreter to use for error
+static int
+SendInit (
+ Tcl_Interp *interp, /* Interpreter to use for error
* reporting. */
- register TkDisplay *dispPtr;/* Display to initialize. */
+ register TkDisplay *dispPtr/* Display to initialize. */
+)
{
XSetWindowAttributes atts;
*--------------------------------------------------------------
*/
-static Window
-LookupName(dispPtr, name, delete)
- register TkDisplay *dispPtr;
- /* Display whose registry to check. */
- char *name; /* Name of an interpreter. */
- int delete; /* If non-zero, delete info about name. */
+static Window
+LookupName (
+ register TkDisplay *dispPtr,
+ char *name, /* Name of an interpreter. */
+ int delete /* If non-zero, delete info about name. */
+)
{
char *regProp, *entry;
register char *p;
*--------------------------------------------------------------
*/
-static void
-SendEventProc(clientData, eventPtr)
- ClientData clientData; /* Display information. */
- XEvent *eventPtr; /* Information about event. */
+static void
+SendEventProc (
+ ClientData clientData, /* Display information. */
+ XEvent *eventPtr /* Information about event. */
+)
{
TkDisplay *dispPtr = (TkDisplay *) clientData;
char *propInfo;
*--------------------------------------------------------------
*/
-static void
-AppendPropCarefully(display, window, property, value, pendingPtr)
- Display *display; /* Display on which to operate. */
- Window window; /* Window whose property is to
+static void
+AppendPropCarefully (
+ Display *display, /* Display on which to operate. */
+ Window window, /* Window whose property is to
* be modified. */
- Atom property; /* Name of property. */
- char *value; /* Characters (null-terminated) to
+ Atom property, /* Name of property. */
+ char *value, /* Characters (null-terminated) to
* append to property. */
- PendingCommand *pendingPtr; /* Pending command to mark complete
+ PendingCommand *pendingPtr /* Pending command to mark complete
* if an error occurs during the
* property op. NULL means just
* ignore the error. */
+)
{
Tk_ErrorHandler handler;
*/
/* ARGSUSED */
-static int
-AppendErrorProc(clientData, errorPtr)
- ClientData clientData; /* Command to mark complete, or NULL. */
- XErrorEvent *errorPtr; /* Information about error. */
+static int
+AppendErrorProc (
+ ClientData clientData, /* Command to mark complete, or NULL. */
+ XErrorEvent *errorPtr /* Information about error. */
+)
{
PendingCommand *pendingPtr = (PendingCommand *) clientData;
register PendingCommand *pcPtr;
*--------------------------------------------------------------
*/
-static void
-TimeoutProc(clientData)
- ClientData clientData; /* Information about command that
+static void
+TimeoutProc (
+ ClientData clientData /* Information about command that
* has been sent but not yet
* responded to. */
+)
{
PendingCommand *pcPtr = (PendingCommand *) clientData;
register PendingCommand *pcPtr2;
*--------------------------------------------------------------
*/
-static void
-DeleteProc(clientData)
- ClientData clientData; /* Info about registration, passed
+static void
+DeleteProc (
+ ClientData clientData /* Info about registration, passed
* as ClientData. */
+)
{
RegisteredInterp *riPtr = (RegisteredInterp *) clientData;
register RegisteredInterp *riPtr2;
*/
/* ARGSUSED */
-static Bool
-SendRestrictProc(display, eventPtr, arg)
- Display *display; /* Display from which event arrived. */
- register XEvent *eventPtr; /* Event that just arrived. */
- char *arg; /* Comunication window in which
+static Bool
+SendRestrictProc (
+ Display *display, /* Display from which event arrived. */
+ register XEvent *eventPtr, /* Event that just arrived. */
+ char *arg /* Comunication window in which
* we're interested. */
+)
{
register Tk_Window comm = (Tk_Window) arg;
*----------------------------------------------------------------------
*/
-void
-Tk_ShareEvents(tkwin, groupId)
- Tk_Window tkwin; /* Token for window. */
- Tk_Uid groupId; /* Identifier for group among which
+void
+Tk_ShareEvents (
+ Tk_Window tkwin, /* Token for window. */
+ Tk_Uid groupId /* Identifier for group among which
* events are to be shared. */
+)
{
register Group *groupPtr;
*----------------------------------------------------------------------
*/
-void
-Tk_UnshareEvents(tkwin, groupId)
- Tk_Window tkwin; /* Token for window. */
- Tk_Uid groupId; /* Identifier for group. */
+void
+Tk_UnshareEvents (
+ Tk_Window tkwin, /* Token for window. */
+ Tk_Uid groupId /* Identifier for group. */
+)
{
register Group *groupPtr;
int i;
*----------------------------------------------------------------------
*/
-static void
-DeleteGroup(groupPtr)
- Group *groupPtr; /* Group to delete. */
+static void
+DeleteGroup (
+ Group *groupPtr /* Group to delete. */
+)
{
if (groupList == groupPtr) {
groupList = groupPtr->nextPtr;
*/
static void
-ShareEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about share group. */
- register XEvent *eventPtr; /* Event that just occurred. */
+ShareEventProc(
+ ClientData clientData, /* Information about share group. */
+ register XEvent *eventPtr /* Event that just occurred. */
+)
{
register Group *groupPtr = (Group *) clientData;
register Tk_Window tkwin;
* quiescent, and deletes the handler.
*/
-void
-simpleDeleteFileHandler (fd)
- int fd;
+void
+simpleDeleteFileHandler (int fd)
{
/* First of all, we have to zero the file's mask to avoid calling the same
handler over again if the file is still ready. */
* deleted. All that remains is to deallocate the server's data structures.
*/
-static void
-tcpDeleteServer (server)
- Tcp_ServerData * server;
+static void
+tcpDeleteServer (Tcp_ServerData *server)
{
/* Get rid of the server's initial command */
* to the dead client, but we shouldn't have come here in that case.
*/
-static void
-tcpCloseClient (client)
- Tcp_ClientData * client;
+static void
+tcpCloseClient (Tcp_ClientData *client)
{
if (client -> activeFlag)
abort ();
strcmp ((name1), (name2))
#endif
-static int
-tcpTrustedHost (hostName)
- char * hostName;
+static int
+tcpTrustedHost (char *hostName)
{
char localName [128];
struct hostent * hostEnt;
* actual command buffering.
*/
-static void
-tcpPrepareClientForInput (client)
- Tcp_ClientData * client;
+static void
+tcpPrepareClientForInput (Tcp_ClientData *client)
{
simpleCreateFileHandler (client -> socketfd, TK_READABLE,
(Tk_FileProc *) tcpReceiveClientInput,
* it must define the `tcperror' procedure and process the error.
*/
-static void
-tcpClientReadError (client)
- Tcp_ClientData * client;
+static void
+tcpClientReadError (Tcp_ClientData *client)
{
Tcp_ServerData * server = client -> server;
Tcl_Interp * interp = server -> interp;
* it must define the `tcperror' procedure to catch the error.
*/
-static void
-tcpClientWriteError (client)
- Tcp_ClientData * client;
+static void
+tcpClientWriteError (Tcp_ClientData *client)
{
Tcp_ServerData * server = client -> server;
Tcl_Interp * interp = server -> interp;
*/
int
-Tk_TextCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+Tk_TextCmd(
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
Tk_Window new;
Tk_CreateSelHandler(textPtr->tkwin, XA_STRING, TextFetchSelection,
(ClientData) textPtr, XA_STRING);
Tcl_CreateCommand(interp, Tk_PathName(textPtr->tkwin),
- TextWidgetCmd, (ClientData) textPtr, (void (*)()) NULL);
+ TextWidgetCmd, (ClientData) textPtr, (void (*)(int *)) NULL);
if (ConfigureText(interp, textPtr, argc-2, argv+2, 0) != TCL_OK) {
Tk_DestroyWindow(textPtr->tkwin);
return TCL_ERROR;
*/
static int
-TextWidgetCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Information about text widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+TextWidgetCmd(
+ ClientData clientData, /* Information about text widget. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
register TkText *textPtr = (TkText *) clientData;
int result = TCL_OK;
*/
static void
-DestroyText(clientData)
- ClientData clientData; /* Info about text widget. */
+DestroyText(
+ ClientData clientData /* Info about text widget. */
+)
{
register TkText *textPtr = (TkText *) clientData;
Tcl_HashSearch search;
*----------------------------------------------------------------------
*/
-static int
-ConfigureText(interp, textPtr, argc, argv, flags)
- Tcl_Interp *interp; /* Used for error reporting. */
- register TkText *textPtr; /* Information about widget; may or may
+static int
+ConfigureText (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ register TkText *textPtr, /* Information about widget; may or may
* not already have values for some fields. */
- int argc; /* Number of valid entries in argv. */
- char **argv; /* Arguments. */
- int flags; /* Flags to pass to Tk_ConfigureWidget. */
+ int argc, /* Number of valid entries in argv. */
+ char **argv, /* Arguments. */
+ int flags /* Flags to pass to Tk_ConfigureWidget. */
+)
{
int oldExport = textPtr->exportSelection;
int charWidth, charHeight;
*/
static void
-TextEventProc(clientData, eventPtr)
- ClientData clientData; /* Information about window. */
- register XEvent *eventPtr; /* Information about event. */
+TextEventProc(
+ ClientData clientData, /* Information about window. */
+ register XEvent *eventPtr /* Information about event. */
+)
{
register TkText *textPtr = (TkText *) clientData;
*----------------------------------------------------------------------
*/
-static void
-InsertChars(textPtr, line, ch, string)
- TkText *textPtr; /* Overall information about text widget. */
- int line, ch; /* Identifies character just before which
+static void
+InsertChars (
+ TkText *textPtr, /* Overall information about text widget. */
+ int line,
+ int ch, /* Identifies character just before which
* new information is to be inserted. */
- char *string; /* Null-terminated string containing new
+ char *string /* Null-terminated string containing new
* information to add to text. */
+)
{
register TkTextLine *linePtr;
*----------------------------------------------------------------------
*/
-static void
-DeleteChars(textPtr, line1, ch1, line2, ch2)
- TkText *textPtr; /* Overall information about text widget. */
- int line1, ch1; /* Position of first character to delete. */
- int line2, ch2; /* Position of character just after last
+static void
+DeleteChars (
+ TkText *textPtr, /* Overall information about text widget. */
+ int line1,
+ int ch1, /* Position of first character to delete. */
+ int line2,
+ int ch2 /* Position of character just after last
* one to delete. */
+)
{
register TkTextLine *line1Ptr, *line2Ptr;
int numLines, topLine;
*/
static int
-TextFetchSelection(clientData, offset, buffer, maxBytes)
- ClientData clientData; /* Information about text widget. */
- int offset; /* Offset within selection of first
+TextFetchSelection(
+ ClientData clientData, /* Information about text widget. */
+ int offset, /* Offset within selection of first
* character to be returned. */
- char *buffer; /* Location in which to place
+ char *buffer, /* Location in which to place
* selection. */
- int maxBytes; /* Maximum number of bytes to place
+ int maxBytes /* Maximum number of bytes to place
* at buffer, not including terminating
* NULL character. */
+)
{
register TkText *textPtr = (TkText *) clientData;
register TkTextLine *linePtr;
*/
void
-TkTextLostSelection(clientData)
- ClientData clientData; /* Information about text widget. */
+TkTextLostSelection(
+ ClientData clientData /* Information about text widget. */
+)
{
register TkText *textPtr = (TkText *) clientData;
*--------------------------------------------------------------
*/
-static int
-TextMarkCmd(textPtr, interp, argc, argv)
- register TkText *textPtr; /* Information about text widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. Someone else has already
+static int
+TextMarkCmd (
+ register TkText *textPtr, /* Information about text widget. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. Someone else has already
* parsed this command enough to know that
* argv[1] is "mark". */
+)
{
int length, line, ch, i;
char c;
*/
TkAnnotation *
-TkTextSetMark(textPtr, name, line, ch)
- TkText *textPtr; /* Text widget in which to create mark. */
- char *name; /* Name of mark to set. */
- int line; /* Index of line at which to place mark. */
- int ch; /* Index of character within line at which
+TkTextSetMark (
+ TkText *textPtr, /* Text widget in which to create mark. */
+ char *name, /* Name of mark to set. */
+ int line, /* Index of line at which to place mark. */
+ int ch /* Index of character within line at which
* to place mark. */
+)
{
Tcl_HashEntry *hPtr;
TkAnnotation *markPtr;
*/
static void
-TextBlinkProc(clientData)
- ClientData clientData; /* Pointer to record describing text. */
+TextBlinkProc(
+ ClientData clientData /* Pointer to record describing text. */
+)
{
register TkText *textPtr = (TkText *) clientData;
int lineNum;
*/
static void
-TextFocusProc(clientData, gotFocus)
- ClientData clientData; /* Pointer to structure describing text. */
- int gotFocus; /* 1 means window is getting focus, 0 means
+TextFocusProc(
+ ClientData clientData, /* Pointer to structure describing text. */
+ int gotFocus /* 1 means window is getting focus, 0 means
* it's losing it. */
+)
{
register TkText *textPtr = (TkText *) clientData;
int lineNum;
*--------------------------------------------------------------
*/
-static int
-TextScanCmd(textPtr, interp, argc, argv)
- register TkText *textPtr; /* Information about text widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. Someone else has already
+static int
+TextScanCmd (
+ register TkText *textPtr, /* Information about text widget. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. Someone else has already
* parsed this command enough to know that
* argv[1] is "tag". */
+)
{
int length, y, line, lastLine;
char c;
*--------------------------------------------------------------
*/
-double
-TkLineToPoint(end1Ptr, end2Ptr, pointPtr)
- double end1Ptr[2]; /* Coordinates of first end-point of line. */
- double end2Ptr[2]; /* Coordinates of second end-point of line. */
- double pointPtr[2]; /* Points to coords for point. */
+double
+TkLineToPoint (
+ double end1Ptr[2], /* Coordinates of first end-point of line. */
+ double end2Ptr[2], /* Coordinates of second end-point of line. */
+ double pointPtr[2] /* Points to coords for point. */
+)
{
double x, y;
*--------------------------------------------------------------
*/
-int
-TkLineToArea(end1Ptr, end2Ptr, rectPtr)
- double end1Ptr[2]; /* X and y coordinates for one endpoint
+int
+TkLineToArea (
+ double end1Ptr[2], /* X and y coordinates for one endpoint
* of line. */
- double end2Ptr[2]; /* X and y coordinates for other endpoint
+ double end2Ptr[2], /* X and y coordinates for other endpoint
* of line. */
- double rectPtr[4]; /* Points to coords for rectangle, in the
+ double rectPtr[4] /* Points to coords for rectangle, in the
* order x1, y1, x2, y2. X1 must be no
* larger than x2, and y1 no larger than y2. */
+)
{
int inside1, inside2;
*--------------------------------------------------------------
*/
-double
-TkPolygonToPoint(polyPtr, numPoints, pointPtr)
- double *polyPtr; /* Points to an array coordinates for
+double
+TkPolygonToPoint (
+ double *polyPtr, /* Points to an array coordinates for
* closed polygon: x0, y0, x1, y1, ...
* The polygon may be self-intersecting. */
- int numPoints; /* Total number of points at *polyPtr. */
- double *pointPtr; /* Points to coords for point. */
+ int numPoints, /* Total number of points at *polyPtr. */
+ double *pointPtr /* Points to coords for point. */
+)
{
double bestDist; /* Closest distance between point and
* any edge in polygon. */
*--------------------------------------------------------------
*/
-int
-TkPolygonToArea(polyPtr, numPoints, rectPtr)
- double *polyPtr; /* Points to an array coordinates for
+int
+TkPolygonToArea (
+ double *polyPtr, /* Points to an array coordinates for
* closed polygon: x0, y0, x1, y1, ...
* The polygon may be self-intersecting. */
- int numPoints; /* Total number of points at *polyPtr. */
- register double *rectPtr; /* Points to coords for rectangle, in the
+ int numPoints, /* Total number of points at *polyPtr. */
+ register double *rectPtr /* Points to coords for rectangle, in the
* order x1, y1, x2, y2. X1 and y1 must
* be lower-left corner. */
+)
{
int state; /* State of all edges seen so far (-1 means
* outside, 1 means inside, won't ever be
*/
/* ARGSUSED */
-double
-TkOvalToPoint(ovalPtr, width, filled, pointPtr)
- double ovalPtr[4]; /* Pointer to array of four coordinates
+double
+TkOvalToPoint (
+ double ovalPtr[4], /* Pointer to array of four coordinates
* (x1, y1, x2, y2) defining oval's bounding
* box. */
- double width; /* Width of outline for oval. */
- int filled; /* Non-zero means oval should be treated as
+ double width, /* Width of outline for oval. */
+ int filled, /* Non-zero means oval should be treated as
* filled; zero means only consider outline. */
- double pointPtr[2]; /* Coordinates of point. */
+ double pointPtr[2] /* Coordinates of point. */
+)
{
double xDelta, yDelta, scaledDistance, distToOutline, distToCenter;
*--------------------------------------------------------------
*/
-int
-TkOvalToArea(ovalPtr, rectPtr)
- register double *ovalPtr; /* Points to coordinates definining the
+int
+TkOvalToArea (
+ register double *ovalPtr, /* Points to coordinates definining the
* bounding rectangle for the oval: x1, y1,
* x2, y2. X1 must be less than x2 and y1
* less than y2. */
- register double *rectPtr; /* Points to coords for rectangle, in the
+ register double *rectPtr /* Points to coords for rectangle, in the
* order x1, y1, x2, y2. X1 and y1 must
* be lower-left corner. */
+)
{
double centerX, centerY, radX, radY, deltaX, deltaY;
*/
/* ARGSUSED */
-void
-TkIncludePoint(canvasPtr, itemPtr, pointPtr)
- Tk_Canvas *canvasPtr; /* Canvas containing item. */
- register Tk_Item *itemPtr; /* Item whose bounding box is
+void
+TkIncludePoint (
+ Tk_Canvas *canvasPtr, /* Canvas containing item. */
+ register Tk_Item *itemPtr, /* Item whose bounding box is
* being calculated. */
- double *pointPtr; /* Address of two doubles giving
+ double *pointPtr /* Address of two doubles giving
* x and y coordinates of point. */
+)
{
int tmp;
*--------------------------------------------------------------
*/
-void
-TkBezierScreenPoints(canvasPtr, control, numSteps, xPointPtr)
- Tk_Canvas *canvasPtr; /* Canvas in which curve is to be
+void
+TkBezierScreenPoints (
+ Tk_Canvas *canvasPtr, /* Canvas in which curve is to be
* drawn. */
- double control[]; /* Array of coordinates for four
+ double control[], /* Array of coordinates for four
* control points: x0, y0, x1, y1,
* ... x3 y3. */
- int numSteps; /* Number of curve points to
+ int numSteps, /* Number of curve points to
* generate. */
- register XPoint *xPointPtr; /* Where to put new points. */
+ register XPoint *xPointPtr /* Where to put new points. */
+)
{
int i;
double u, u2, u3, t, t2, t3;
*--------------------------------------------------------------
*/
-void
-TkBezierPoints(control, numSteps, coordPtr)
- double control[]; /* Array of coordinates for four
+void
+TkBezierPoints (
+ double control[], /* Array of coordinates for four
* control points: x0, y0, x1, y1,
* ... x3 y3. */
- int numSteps; /* Number of curve points to
+ int numSteps, /* Number of curve points to
* generate. */
- register double *coordPtr; /* Where to put new points. */
+ register double *coordPtr /* Where to put new points. */
+)
{
int i;
double u, u2, u3, t, t2, t3;
*--------------------------------------------------------------
*/
-int
-TkMakeBezierCurve(canvasPtr, pointPtr, numPoints, numSteps, xPoints, dblPoints)
- Tk_Canvas *canvasPtr; /* Canvas in which curve is to be
+int
+TkMakeBezierCurve (
+ Tk_Canvas *canvasPtr, /* Canvas in which curve is to be
* drawn. */
- double *pointPtr; /* Array of input coordinates: x0,
+ double *pointPtr, /* Array of input coordinates: x0,
* y0, x1, y1, etc.. */
- int numPoints; /* Number of points at pointPtr. */
- int numSteps; /* Number of steps to use for each
+ int numPoints, /* Number of points at pointPtr. */
+ int numSteps, /* Number of steps to use for each
* spline segments (determines
* smoothness of curve). */
- XPoint xPoints[]; /* Array of XPoints to fill in (e.g.
+ XPoint xPoints[], /* Array of XPoints to fill in (e.g.
* for display. NULL means don't
* fill in any XPoints. */
- double dblPoints[]; /* Array of points to fill in as
+ double dblPoints[] /* Array of points to fill in as
* doubles, in the form x0, y0,
* x1, y1, .... NULL means don't
* fill in anything in this form.
* Caller must make sure that this
* array has enough space. */
+)
{
int closed, outputPoints, i;
int numCoords = numPoints*2;
*--------------------------------------------------------------
*/
-int
-TkGetMiterPoints(p1, p2, p3, width, m1, m2)
- double p1[]; /* Points to x- and y-coordinates of point
+int
+TkGetMiterPoints (
+ double p1[], /* Points to x- and y-coordinates of point
* before vertex. */
- double p2[]; /* Points to x- and y-coordinates of vertex
+ double p2[], /* Points to x- and y-coordinates of vertex
* for mitered joint. */
- double p3[]; /* Points to x- and y-coordinates of point
+ double p3[], /* Points to x- and y-coordinates of point
* after vertex. */
- double width; /* Width of line. */
- double m1[]; /* Points to place to put "left" vertex
+ double width, /* Width of line. */
+ double m1[], /* Points to place to put "left" vertex
* point (see as you face from p1 to p2). */
- double m2[]; /* Points to place to put "right" vertex
+ double m2[] /* Points to place to put "right" vertex
* point. */
+)
{
double theta1; /* Angle of segment p2-p1. */
double theta2; /* Angle of segment p2-p3. */
*--------------------------------------------------------------
*/
-void
-TkGetButtPoints(p1, p2, width, project, m1, m2)
- double p1[]; /* Points to x- and y-coordinates of point
+void
+TkGetButtPoints (
+ double p1[], /* Points to x- and y-coordinates of point
* before vertex. */
- double p2[]; /* Points to x- and y-coordinates of vertex
+ double p2[], /* Points to x- and y-coordinates of vertex
* for mitered joint. */
- double width; /* Width of line. */
- int project; /* Non-zero means project p2 by an additional
+ double width, /* Width of line. */
+ int project, /* Non-zero means project p2 by an additional
* width/2 before computing m1 and m2. */
- double m1[]; /* Points to place to put "left" result
+ double m1[], /* Points to place to put "left" result
* point, as you face from p1 to p2. */
- double m2[]; /* Points to place to put "right" result
+ double m2[] /* Points to place to put "right" result
* point. */
+)
{
double length; /* Length of p1-p2 segment. */
double deltaX, deltaY; /* Increments in coords. */
*----------------------------------------------------------------------
*/
-TkTextBTree
-TkBTreeCreate()
+TkTextBTree
+TkBTreeCreate (void)
{
register BTree *treePtr;
register Node *rootPtr;
*----------------------------------------------------------------------
*/
-void
-TkBTreeDestroy(tree)
- TkTextBTree tree; /* Pointer to tree to delete. */
+void
+TkBTreeDestroy (
+ TkTextBTree tree /* Pointer to tree to delete. */
+)
{
BTree *treePtr = (BTree *) tree;
*----------------------------------------------------------------------
*/
-static void
-DestroyNode(nodePtr)
- register Node *nodePtr;
+static void
+DestroyNode (register Node *nodePtr)
{
if (nodePtr->level == 0) {
register TkTextLine *curPtr, *nextLinePtr;
*----------------------------------------------------------------------
*/
-static void
-DeleteSummaries(summaryPtr)
- register Summary *summaryPtr; /* First in list of node's tag
+static void
+DeleteSummaries (
+ register Summary *summaryPtr /* First in list of node's tag
* summaries. */
+)
{
register Summary *nextPtr;
while (summaryPtr != NULL) {
*----------------------------------------------------------------------
*/
-void
-TkBTreeInsertChars(tree, linePtr, ch, string)
- TkTextBTree tree; /* B-tree in which to insert. */
- register TkTextLine *linePtr; /* Pointer to line in which to
+void
+TkBTreeInsertChars (
+ TkTextBTree tree, /* B-tree in which to insert. */
+ register TkTextLine *linePtr, /* Pointer to line in which to
* insert. */
- int ch; /* Index of character before which
+ int ch, /* Index of character before which
* to insert. Must not be after
* last character in line.*/
- char *string; /* Pointer to bytes to insert (may
+ char *string /* Pointer to bytes to insert (may
* contain newlines, must be null-
* terminated). */
+)
{
BTree *treePtr = (BTree *) tree;
register Node *nodePtr;
*----------------------------------------------------------------------
*/
-void
-TkBTreeDeleteChars(tree, line1Ptr, ch1, line2Ptr, ch2)
- TkTextBTree tree; /* B-tree in which to delete. */
- register TkTextLine *line1Ptr; /* Line containing first character
+void
+TkBTreeDeleteChars (
+ TkTextBTree tree, /* B-tree in which to delete. */
+ register TkTextLine *line1Ptr, /* Line containing first character
* to delete. */
- int ch1; /* Index within linePtr1 of first
+ int ch1, /* Index within linePtr1 of first
* character to delete. */
- register TkTextLine *line2Ptr; /* Line containing character just
+ register TkTextLine *line2Ptr, /* Line containing character just
* after last one to delete. */
- int ch2; /* Index within linePtr2 of character
+ int ch2 /* Index within linePtr2 of character
* just after last one to delete. */
+)
{
BTree *treePtr = (BTree *) tree;
TkTextLine *linePtr, *nextPtr, *prevLinePtr;
*----------------------------------------------------------------------
*/
-void
-TkBTreeTag(tree, line1, ch1, line2, ch2, tagPtr, add)
- TkTextBTree tree; /* B-tree in which to add tag
+void
+TkBTreeTag (
+ TkTextBTree tree, /* B-tree in which to add tag
* information. */
- int line1, ch1; /* Position of first character to
+ int line1,
+ int ch1, /* Position of first character to
* tag. */
- int line2, ch2; /* Position of character just after
+ int line2,
+ int ch2, /* Position of character just after
* last one to tag. */
- TkTextTag *tagPtr; /* Tag to associate with the range
+ TkTextTag *tagPtr, /* Tag to associate with the range
* of characters. */
- int add; /* One means add tag to the given
+ int add /* One means add tag to the given
* range of characters; zero means
* remove the tag from the range. */
+)
{
BTree *treePtr = (BTree *) tree;
register TkTextLine *line1Ptr, *line2Ptr;
*/
/* ARGSUSED */
-void
-TkBTreeAddAnnotation(annotPtr)
- TkAnnotation *annotPtr; /* Pointer to annotation. The caller must
+void
+TkBTreeAddAnnotation (
+ TkAnnotation *annotPtr /* Pointer to annotation. The caller must
* have filled in all the fields except the
* "nextPtr" field. The type should NOT be
* TK_ANNOT_TOGGLE; these annotations are
* managed by the TkBTreeTag procedure. */
+)
{
register TkAnnotation *annotPtr2, *prevPtr;
*/
/* ARGSUSED */
-void
-TkBTreeRemoveAnnotation(annotPtr)
- TkAnnotation *annotPtr; /* Pointer to annotation, which must
+void
+TkBTreeRemoveAnnotation (
+ TkAnnotation *annotPtr /* Pointer to annotation, which must
* have been linked into tree by a previous
* call to TkBTreeAddAnnotation. */
+)
{
register TkAnnotation *prevPtr;
*/
TkTextLine *
-TkBTreeFindLine(tree, line)
- TkTextBTree tree; /* B-tree in which to find line. */
- int line; /* Index of desired line. */
+TkBTreeFindLine (
+ TkTextBTree tree, /* B-tree in which to find line. */
+ int line /* Index of desired line. */
+)
{
BTree *treePtr = (BTree *) tree;
register Node *nodePtr;
*/
TkTextLine *
-TkBTreeNextLine(linePtr)
- register TkTextLine *linePtr; /* Pointer to existing line in
+TkBTreeNextLine (
+ register TkTextLine *linePtr /* Pointer to existing line in
* B-tree. */
+)
{
register Node *nodePtr;
*----------------------------------------------------------------------
*/
-int
-TkBTreeLineIndex(linePtr)
- TkTextLine *linePtr; /* Pointer to existing line in
+int
+TkBTreeLineIndex (
+ TkTextLine *linePtr /* Pointer to existing line in
* B-tree. */
+)
{
register TkTextLine *linePtr2;
register Node *nodePtr, *parentPtr, *nodePtr2;
*----------------------------------------------------------------------
*/
-void
-TkBTreeStartSearch(tree, line1, ch1, line2, ch2, tagPtr, searchPtr)
- TkTextBTree tree; /* Tree to search. */
- int line1, ch1; /* Character position at which to * start search (tags at this position
+void
+TkBTreeStartSearch (
+ TkTextBTree tree, /* Tree to search. */
+ int line1,
+ int ch1, /* Character position at which to * start search (tags at this position
* will be returned). */
- int line2, ch2; /* Character position at which to * stop search (tags at this position
+ int line2,
+ int ch2, /* Character position at which to * stop search (tags at this position
* will be returned). */
- TkTextTag *tagPtr; /* Tag to search for. NULL means
+ TkTextTag *tagPtr, /* Tag to search for. NULL means
* search for any tag. */
- register TkTextSearch *searchPtr; /* Where to store information about
+ register TkTextSearch *searchPtr /* Where to store information about
* search's progress. */
+)
{
register TkAnnotation *annotPtr;
*----------------------------------------------------------------------
*/
-int
-TkBTreeNextTag(searchPtr)
- register TkTextSearch *searchPtr; /* Information about search in
+int
+TkBTreeNextTag (
+ register TkTextSearch *searchPtr /* Information about search in
* progress; must have been set up by
* call to TkBTreeStartSearch. */
+)
{
register TkAnnotation *annotPtr;
register Node *nodePtr;
*----------------------------------------------------------------------
*/
-void
-TkBTreeCheck(tree)
- TkTextBTree tree; /* Tree to check. */
+void
+TkBTreeCheck (
+ TkTextBTree tree /* Tree to check. */
+)
{
BTree *treePtr = (BTree *) tree;
register Summary *summaryPtr;
*----------------------------------------------------------------------
*/
-static void
-Rebalance(treePtr, nodePtr)
- BTree *treePtr; /* Tree that is being rebalanced. */
- register Node *nodePtr; /* Node that may be out of balance. */
+static void
+Rebalance (
+ BTree *treePtr, /* Tree that is being rebalanced. */
+ register Node *nodePtr /* Node that may be out of balance. */
+)
{
/*
* Loop over the entire ancestral chain of the node, working up
*----------------------------------------------------------------------
*/
-static void
-RecomputeNodeCounts(nodePtr)
- register Node *nodePtr; /* Node whose tag summary information
+static void
+RecomputeNodeCounts (
+ register Node *nodePtr /* Node whose tag summary information
* must be recomputed. */
+)
{
register Summary *summaryPtr, *summaryPtr2;
register Node *childPtr;
*----------------------------------------------------------------------
*/
-static void
-AddToggleToLine(linePtr, index, tagPtr)
- TkTextLine *linePtr; /* Line within which to add
+static void
+AddToggleToLine (
+ TkTextLine *linePtr, /* Line within which to add
* transition. */
- int index; /* Character before which to
+ int index, /* Character before which to
* add transition. */
- TkTextTag *tagPtr; /* Information about tag. */
+ TkTextTag *tagPtr /* Information about tag. */
+)
{
register TkAnnotation *annotPtr, *prevPtr;
int delta = 1;
*----------------------------------------------------------------------
*/
-static void
-ChangeNodeToggleCount(nodePtr, tagPtr, delta)
- register Node *nodePtr; /* Node whose toggle count for a tag
+static void
+ChangeNodeToggleCount (
+ register Node *nodePtr, /* Node whose toggle count for a tag
* must be changed. */
- TkTextTag *tagPtr; /* Information about tag. */
- int delta; /* Amount to add to current toggle
+ TkTextTag *tagPtr, /* Information about tag. */
+ int delta /* Amount to add to current toggle
* count for tag (may be negative). */
+)
{
register Summary *summaryPtr, *prevPtr;
*----------------------------------------------------------------------
*/
-int
-TkBTreeCharTagged(linePtr, ch, tagPtr)
- TkTextLine *linePtr; /* Line containing character of
+int
+TkBTreeCharTagged (
+ TkTextLine *linePtr, /* Line containing character of
* interest. */
- int ch; /* Index of character in linePtr. */
- TkTextTag *tagPtr; /* Tag of interest. */
+ int ch, /* Index of character in linePtr. */
+ TkTextTag *tagPtr /* Tag of interest. */
+)
{
register Node *nodePtr;
register TkTextLine *siblingLinePtr;
/* ARGSUSED */
TkTextTag **
-TkBTreeGetTags(tree, linePtr, ch, numTagsPtr)
- TkTextBTree tree; /* Tree to check. */
- TkTextLine *linePtr; /* Line containing character of interest. */
- int ch; /* Index within linePtr of character for
+TkBTreeGetTags (
+ TkTextBTree tree, /* Tree to check. */
+ TkTextLine *linePtr, /* Line containing character of interest. */
+ int ch, /* Index within linePtr of character for
* which tag information is wanted. */
- int *numTagsPtr; /* Store number of tags found at this
+ int *numTagsPtr /* Store number of tags found at this
* location. */
+)
{
register Node *nodePtr;
register TkTextLine *siblingLinePtr;
*----------------------------------------------------------------------
*/
-static void
-IncCount(tagPtr, inc, tagInfoPtr)
- TkTextTag *tagPtr; /* Handle for tag. */
- int inc; /* Amount by which to increment tag count. */
- TagInfo *tagInfoPtr; /* Holds cumulative information about tags;
+static void
+IncCount (
+ TkTextTag *tagPtr, /* Handle for tag. */
+ int inc, /* Amount by which to increment tag count. */
+ TagInfo *tagInfoPtr /* Holds cumulative information about tags;
* increment count here. */
+)
{
register TkTextTag **tagPtrPtr;
int count;
*----------------------------------------------------------------------
*/
-static void
-CheckNodeConsistency(nodePtr)
- register Node *nodePtr; /* Node whose subtree should be
+static void
+CheckNodeConsistency (
+ register Node *nodePtr /* Node whose subtree should be
* checked. */
+)
{
register Node *childNodePtr;
register Summary *summaryPtr, *summaryPtr2;
*----------------------------------------------------------------------
*/
-int
-TkBTreeNumLines(tree)
- TkTextBTree tree; /* Information about tree. */
+int
+TkBTreeNumLines (
+ TkTextBTree tree /* Information about tree. */
+)
{
BTree *treePtr = (BTree *) tree;
return treePtr->rootPtr->numLines;
*----------------------------------------------------------------------
*/
-void
-TkTextCreateDInfo(textPtr)
- TkText *textPtr; /* Overall information for text widget. */
+void
+TkTextCreateDInfo (
+ TkText *textPtr /* Overall information for text widget. */
+)
{
register DInfo *dInfoPtr;
XGCValues gcValues;
*----------------------------------------------------------------------
*/
-void
-TkTextFreeDInfo(textPtr)
- TkText *textPtr; /* Overall information for text widget. */
+void
+TkTextFreeDInfo (
+ TkText *textPtr /* Overall information for text widget. */
+)
{
register DInfo *dInfoPtr = textPtr->dInfoPtr;
*/
static Style *
-GetStyle(textPtr, sValuePtr)
- TkText *textPtr; /* Overall information about text widget. */
- StyleValues *sValuePtr; /* Information about desired style. */
+GetStyle(
+ TkText *textPtr, /* Overall information about text widget. */
+ StyleValues *sValuePtr /* Information about desired style. */
+)
{
Style *stylePtr;
Tcl_HashEntry *hPtr;
*----------------------------------------------------------------------
*/
-static void
-FreeStyle(stylePtr)
- register Style *stylePtr; /* Information about style to be freed. */
+static void
+FreeStyle (
+ register Style *stylePtr /* Information about style to be freed. */
+)
{
stylePtr->refCount--;
*/
static void
-ComputeStyleValues(textPtr, numTags, tagPtrPtr, sValuePtr)
- TkText *textPtr; /* Overall information for widget. */
- int numTags; /* Number of tags at *tagPtr. */
- register TkTextTag **tagPtrPtr; /* Pointer to array of tag pointers. */
- register StyleValues *sValuePtr; /* Pointer to structure to fill in. */
+ComputeStyleValues(
+ TkText *textPtr, /* Overall information for widget. */
+ int numTags, /* Number of tags at *tagPtr. */
+ register TkTextTag **tagPtrPtr, /* Pointer to array of tag pointers. */
+ register StyleValues *sValuePtr /* Pointer to structure to fill in. */
+)
{
register TkTextTag *tagPtr;
*/
static DLine *
-LayoutLine(textPtr, line, linePtr, tInfoPtr)
- TkText *textPtr; /* Overall information about text widget. */
- int line; /* Index of line to layout. */
- TkTextLine *linePtr; /* Line to layout (corresponds to line). */
- TagInfo *tInfoPtr; /* Information to help keep track of tags.
+LayoutLine (
+ TkText *textPtr, /* Overall information about text widget. */
+ int line, /* Index of line to layout. */
+ TkTextLine *linePtr, /* Line to layout (corresponds to line). */
+ TagInfo *tInfoPtr /* Information to help keep track of tags.
* Caller must have initialized to correspond
* to state just before start of line. */
+)
{
DLine *firstLinePtr;
DLine *lastLinePtr = NULL; /* Initializations needed only to stop */
*----------------------------------------------------------------------
*/
-static void
-ToggleTag(tInfoPtr, tagPtr)
- register TagInfo *tInfoPtr; /* Tag information to be updated. */
- TkTextTag *tagPtr; /* Tag to be toggled into or out of
+static void
+ToggleTag (
+ register TagInfo *tInfoPtr, /* Tag information to be updated. */
+ TkTextTag *tagPtr /* Tag to be toggled into or out of
* *tInfoPtr. */
+)
{
register TkTextTag **tagPtrPtr;
int i;
*----------------------------------------------------------------------
*/
-static void
-UpdateDisplayInfo(textPtr)
- TkText *textPtr; /* Text widget to update. */
+static void
+UpdateDisplayInfo (
+ TkText *textPtr /* Text widget to update. */
+)
{
register DInfo *dInfoPtr = textPtr->dInfoPtr;
register DLine *dlPtr, *prevPtr, *dlPtr2;
*----------------------------------------------------------------------
*/
-static void
-FreeDLines(textPtr, firstPtr, lastPtr, unlink)
- TkText *textPtr; /* Information about overall text
+static void
+FreeDLines (
+ TkText *textPtr, /* Information about overall text
* widget. */
- register DLine *firstPtr; /* Pointer to first DLine to free up. */
- DLine *lastPtr; /* Pointer to DLine just after last
+ register DLine *firstPtr, /* Pointer to first DLine to free up. */
+ DLine *lastPtr, /* Pointer to DLine just after last
* one to free (NULL means everything
* starting with firstPtr). */
- int unlink; /* 1 means DLines are currently linked
+ int unlink /* 1 means DLines are currently linked
* into the list rooted at
* textPtr->dInfoPtr->dLinePtr and
* they have to be unlinked. 0 means
* just free without unlinking. */
+)
{
register Chunk *chunkPtr, *nextChunkPtr;
register DLine *nextDLinePtr;
*----------------------------------------------------------------------
*/
-static void
-DisplayDLine(textPtr, dlPtr, pixmap)
- TkText *textPtr; /* Text widget in which to draw line. */
- register DLine *dlPtr; /* Information about line to draw. */
- Pixmap pixmap; /* Pixmap to use for double-buffering.
+static void
+DisplayDLine (
+ TkText *textPtr, /* Text widget in which to draw line. */
+ register DLine *dlPtr, /* Information about line to draw. */
+ Pixmap pixmap /* Pixmap to use for double-buffering.
* Caller must make sure it's large enough
* to hold line. */
+)
{
register Style *stylePtr;
register StyleValues *sValuePtr;
*----------------------------------------------------------------------
*/
-static void
-DisplayText(clientData)
- ClientData clientData; /* Information about widget. */
+static void
+DisplayText (
+ ClientData clientData /* Information about widget. */
+)
{
register TkText *textPtr = (TkText *) clientData;
DInfo *dInfoPtr = textPtr->dInfoPtr;
*/
/* ARGSUSED */
-void
-TkTextRedrawRegion(textPtr, x, y, width, height)
- TkText *textPtr; /* Widget record for text widget. */
- int x, y; /* Coordinates of upper-left corner of area
+void
+TkTextRedrawRegion (
+ TkText *textPtr, /* Widget record for text widget. */
+ int x,
+ int y, /* Coordinates of upper-left corner of area
* to be redrawn, in pixels relative to
* textPtr's window. */
- int width, height; /* Width and height of area to be redrawn. */
+ int width,
+ int height /* Width and height of area to be redrawn. */
+)
{
register DLine *dlPtr;
DInfo *dInfoPtr = textPtr->dInfoPtr;
*----------------------------------------------------------------------
*/
-void
-TkTextLinesChanged(textPtr, first, last)
- TkText *textPtr; /* Widget record for text widget. */
- int first; /* Index of first line that must be
+void
+TkTextLinesChanged (
+ TkText *textPtr, /* Widget record for text widget. */
+ int first, /* Index of first line that must be
* redisplayed. */
- int last; /* Index of last line to redisplay. */
+ int last /* Index of last line to redisplay. */
+)
{
DInfo *dInfoPtr = textPtr->dInfoPtr;
DLine *firstPtr, *lastPtr;
*----------------------------------------------------------------------
*/
-void
-TkTextRedrawTag(textPtr, line1, ch1, line2, ch2, tagPtr, withTag)
- TkText *textPtr; /* Widget record for text widget. */
- int line1, ch1; /* Index of first character in range of
+void
+TkTextRedrawTag (
+ TkText *textPtr, /* Widget record for text widget. */
+ int line1,
+ int ch1, /* Index of first character in range of
* interest. */
- int line2, ch2; /* Index of character just after last one
+ int line2,
+ int ch2, /* Index of character just after last one
* in range of interest. */
- TkTextTag *tagPtr; /* Information about tag. */
- int withTag; /* 1 means redraw characters that have the
+ TkTextTag *tagPtr, /* Information about tag. */
+ int withTag /* 1 means redraw characters that have the
* tag, 0 means redraw those without. */
+)
{
register DLine *dlPtr;
DLine *endPtr;
*----------------------------------------------------------------------
*/
-void
-TkTextRelayoutWindow(textPtr)
- TkText *textPtr; /* Widget record for text widget. */
+void
+TkTextRelayoutWindow (
+ TkText *textPtr /* Widget record for text widget. */
+)
{
DInfo *dInfoPtr = textPtr->dInfoPtr;
*----------------------------------------------------------------------
*/
-void
-TkTextSetView(textPtr, line, pickPlace)
- TkText *textPtr; /* Widget record for text widget. */
- int line; /* Number of line that is to appear somewhere
+void
+TkTextSetView (
+ TkText *textPtr, /* Widget record for text widget. */
+ int line, /* Number of line that is to appear somewhere
* in the window. This line number must
* be a valid one in the file. */
- int pickPlace; /* 0 means topLine must appear at top of
+ int pickPlace /* 0 means topLine must appear at top of
* screen. 1 means we get to pick where it
* appears: minimize screen motion or else
* display line at center of screen. */
+)
{
DInfo *dInfoPtr = textPtr->dInfoPtr;
register DLine *dlPtr, *dlPtr2;
*/
static DLine *
-FindDLine(dlPtr, line)
- register DLine *dlPtr; /* Pointer to first in list of DLines
+FindDLine (
+ register DLine *dlPtr, /* Pointer to first in list of DLines
* to search. */
- int line; /* Line number in text that is desired. */
+ int line /* Line number in text that is desired. */
+)
{
TkTextLine *linePtr;
int thisLine;
*/
TkTextLine *
-TkTextCharAtLoc(textPtr, x, y, chPtr)
- TkText *textPtr; /* Widget record for text widget. */
- int x, y; /* Pixel coordinates of point in widget's
+TkTextCharAtLoc (
+ TkText *textPtr, /* Widget record for text widget. */
+ int x,
+ int y, /* Pixel coordinates of point in widget's
* window. */
- int *chPtr; /* Place to store index-within-line of
+ int *chPtr /* Place to store index-within-line of
* closest character. */
+)
{
DInfo *dInfoPtr = textPtr->dInfoPtr;
register DLine *dlPtr;
*----------------------------------------------------------------------
*/
-int
-TkTextGetIndex(interp, textPtr, string, lineIndexPtr, chPtr)
- Tcl_Interp *interp; /* Use this for error reporting. */
- TkText *textPtr; /* Information about text widget. */
- char *string; /* Textual description of position. */
- int *lineIndexPtr; /* Store line number here. */
- int *chPtr; /* Store character position here. */
+int
+TkTextGetIndex (
+ Tcl_Interp *interp, /* Use this for error reporting. */
+ TkText *textPtr, /* Information about text widget. */
+ char *string, /* Textual description of position. */
+ int *lineIndexPtr, /* Store line number here. */
+ int *chPtr /* Store character position here. */
+)
{
register char *p;
char *end, *endOfBase;
*----------------------------------------------------------------------
*/
-void
-TkTextPrintIndex(line, ch, string)
- int line; /* Line number. */
- int ch; /* Character position within line. */
- char *string; /* Place to store the position. Must have
+void
+TkTextPrintIndex (
+ int line, /* Line number. */
+ int ch, /* Character position within line. */
+ char *string /* Place to store the position. Must have
* at least POS_CHARS characters. */
+)
{
sprintf(string, "%d.%d", line+1, ch);
}
TkTextLine *
-TkTextRoundIndex(textPtr, lineIndexPtr, chPtr)
- TkText *textPtr; /* Information about text widget. */
- int *lineIndexPtr; /* Points to initial line index,
+TkTextRoundIndex (
+ TkText *textPtr, /* Information about text widget. */
+ int *lineIndexPtr, /* Points to initial line index,
* which is overwritten with actual
* line index. */
- int *chPtr; /* Points to initial character index,
+ int *chPtr /* Points to initial character index,
* which is overwritten with actual
* character index. */
+)
{
int line, ch, lastLine;
TkTextLine *linePtr;
*/
static char *
-ForwBack(textPtr, string, lineIndexPtr, chPtr)
- TkText *textPtr; /* Information about widget that index
+ForwBack (
+ TkText *textPtr, /* Information about widget that index
* refers to. */
- char *string; /* String to parse for additional info
+ char *string, /* String to parse for additional info
* about modifier (count and units).
* Points to "+" or "-" that starts
* modifier. */
- int *lineIndexPtr; /* Points to current line index, which will
+ int *lineIndexPtr, /* Points to current line index, which will
* be updated to reflect modifier. */
- int *chPtr; /* Points to current character index, which
+ int *chPtr /* Points to current character index, which
* will be updated to reflect modifier. */
+)
{
register char *p;
char *end, *units;
*/
/* ARGSUSED */
-static void
-ForwardChars(textPtr, linePtr, lineIndexPtr, chPtr, count)
- TkText *textPtr; /* Information about text widget. */
- register TkTextLine *linePtr; /* Text line corresponding to
+static void
+ForwardChars (
+ TkText *textPtr, /* Information about text widget. */
+ register TkTextLine *linePtr, /* Text line corresponding to
* *lineIndexPtr. */
- int *lineIndexPtr; /* Points to initial line index,
+ int *lineIndexPtr, /* Points to initial line index,
* which is overwritten with final
* line index. */
- int *chPtr; /* Points to initial character index,
+ int *chPtr, /* Points to initial character index,
* which is overwritten with final
* character index. */
- int count; /* How many characters forward to
+ int count /* How many characters forward to
* move. Must not be negative. */
+)
{
TkTextLine *nextPtr;
int bytesInLine;
*----------------------------------------------------------------------
*/
-static void
-BackwardChars(textPtr, linePtr, lineIndexPtr, chPtr, count)
- TkText *textPtr; /* Information about text widget. */
- register TkTextLine *linePtr; /* Text line corresponding to
+static void
+BackwardChars (
+ TkText *textPtr, /* Information about text widget. */
+ register TkTextLine *linePtr, /* Text line corresponding to
* *lineIndexPtr. */
- int *lineIndexPtr; /* Points to initial line index,
+ int *lineIndexPtr, /* Points to initial line index,
* which is overwritten with final
* line index. */
- int *chPtr; /* Points to initial character index,
+ int *chPtr, /* Points to initial character index,
* which is overwritten with final
* character index. */
- int count; /* How many characters backward to
+ int count /* How many characters backward to
* move. Must not be negative. */
+)
{
int bytesInLine;
*/
static char *
-StartEnd(textPtr, string, lineIndexPtr, chPtr)
- TkText *textPtr; /* Information about widget that index
+StartEnd (
+ TkText *textPtr, /* Information about widget that index
* refers to. */
- char *string; /* String to parse for additional info
+ char *string, /* String to parse for additional info
* about modifier (count and units).
* Points to first character of modifer
* word. */
- int *lineIndexPtr; /* Points to current line index, which will
+ int *lineIndexPtr, /* Points to current line index, which will
* be updated to reflect modifier. */
- int *chPtr; /* Points to current character index, which
+ int *chPtr /* Points to current character index, which
* will be updated to reflect modifier. */
+)
{
char *p, c;
int length;
*--------------------------------------------------------------
*/
-int
-TkTextTagCmd(textPtr, interp, argc, argv)
- register TkText *textPtr; /* Information about text widget. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. Someone else has already
+int
+TkTextTagCmd (
+ register TkText *textPtr, /* Information about text widget. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. Someone else has already
* parsed this command enough to know that
* argv[1] is "tag". */
+)
{
int length, line1, ch1, line2, ch2, i, addTag;
char c;
*/
TkTextTag *
-TkTextCreateTag(textPtr, tagName)
- TkText *textPtr; /* Widget in which tag is being used. */
- char *tagName; /* Name of desired tag. */
+TkTextCreateTag (
+ TkText *textPtr, /* Widget in which tag is being used. */
+ char *tagName /* Name of desired tag. */
+)
{
register TkTextTag *tagPtr;
Tcl_HashEntry *hPtr;
*/
static TkTextTag *
-FindTag(interp, textPtr, tagName)
- Tcl_Interp *interp; /* Interpreter to use for error message;
+FindTag (
+ Tcl_Interp *interp, /* Interpreter to use for error message;
* if NULL, then don't record an error
* message. */
- TkText *textPtr; /* Widget in which tag is being used. */
- char *tagName; /* Name of desired tag. */
+ TkText *textPtr, /* Widget in which tag is being used. */
+ char *tagName /* Name of desired tag. */
+)
{
Tcl_HashEntry *hPtr;
*----------------------------------------------------------------------
*/
-void
-TkTextFreeTag(tagPtr)
- register TkTextTag *tagPtr; /* Tag being deleted. */
+void
+TkTextFreeTag (
+ register TkTextTag *tagPtr /* Tag being deleted. */
+)
{
if (tagPtr->border != None) {
Tk_Free3DBorder(tagPtr->border);
*----------------------------------------------------------------------
*/
-static void
-SortTags(numTags, tagArrayPtr)
- int numTags; /* Number of tag pointers at *tagArrayPtr. */
- TkTextTag **tagArrayPtr; /* Pointer to array of pointers. */
+static void
+SortTags (
+ int numTags, /* Number of tag pointers at *tagArrayPtr. */
+ TkTextTag **tagArrayPtr /* Pointer to array of pointers. */
+)
{
int i, j, prio;
register TkTextTag **tagPtrPtr;
*----------------------------------------------------------------------
*/
-static int
-TagSortProc(first, second)
- CONST VOID *first, *second; /* Elements to be compared. */
+static int
+TagSortProc (
+ CONST VOID *first,
+ CONST VOID *second /* Elements to be compared. */
+)
{
TkTextTag *tagPtr1, *tagPtr2;
*----------------------------------------------------------------------
*/
-static void
-ChangeTagPriority(textPtr, tagPtr, prio)
- TkText *textPtr; /* Information about text widget. */
- TkTextTag *tagPtr; /* Tag whose priority is to be
+static void
+ChangeTagPriority (
+ TkText *textPtr, /* Information about text widget. */
+ TkTextTag *tagPtr, /* Tag whose priority is to be
* changed. */
- int prio; /* New priority for tag. */
+ int prio /* New priority for tag. */
+)
{
int low, high, delta;
register TkTextTag *tagPtr2;
*/
void
-TkTextBindProc(clientData, eventPtr)
- ClientData clientData; /* Pointer to canvas structure. */
- XEvent *eventPtr; /* Pointer to X event that just
+TkTextBindProc(
+ ClientData clientData, /* Pointer to canvas structure. */
+ XEvent *eventPtr /* Pointer to X event that just
* happened. */
+)
{
TkText *textPtr = (TkText *) clientData;
int repick = 0;
*--------------------------------------------------------------
*/
-void
-TkTextPickCurrent(textPtr, eventPtr)
- register TkText *textPtr; /* Text widget in which to select
+void
+TkTextPickCurrent (
+ register TkText *textPtr, /* Text widget in which to select
* current character. */
- XEvent *eventPtr; /* Event describing location of
+ XEvent *eventPtr /* Event describing location of
* mouse cursor. Must be EnterWindow,
* LeaveWindow, ButtonRelease, or
* MotionNotify. */
+)
{
TkTextLine *linePtr;
int ch;
*----------------------------------------------------------------------
*/
-void
-TkTextUnpickCurrent(textPtr)
- TkText *textPtr; /* Text widget information. */
+void
+TkTextUnpickCurrent (
+ TkText *textPtr /* Text widget information. */
+)
{
if (textPtr->flags & IN_CURRENT) {
XEvent event;
*--------------------------------------------------------------
*/
-static void
-TextDoEvent(textPtr, eventPtr)
- TkText *textPtr; /* Text widget in which event
+static void
+TextDoEvent (
+ TkText *textPtr, /* Text widget in which event
* occurred. */
- XEvent *eventPtr; /* Real or simulated X event that
+ XEvent *eventPtr /* Real or simulated X event that
* is to be processed. */
+)
{
TkTextTag **tagArrayPtr, **p1, **p2, *tmp;
int numTags;
{"scrollbar", Tk_ScrollbarCmd},
{"text", Tk_TextCmd},
{"toplevel", Tk_FrameCmd},
- {(char *) NULL, (int (*)()) NULL}
+ {(char *) NULL, (int (*)(int *, Tcl_Interp *, int, char **)) NULL}
};
/*
*----------------------------------------------------------------------
*/
-static Tk_Window
-CreateTopLevelWindow(interp, parent, name, screenName)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- Tk_Window parent; /* Token for logical parent of new window
+static Tk_Window
+CreateTopLevelWindow (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ Tk_Window parent, /* Token for logical parent of new window
* (used for naming, options, etc.). May
* be NULL. */
- char *name; /* Name for new window; if parent is
+ char *name, /* Name for new window; if parent is
* non-NULL, must be unique among parent's
* children. */
- char *screenName; /* Name of screen on which to create
+ char *screenName /* Name of screen on which to create
* window. NULL means use DISPLAY environment
* variable to determine. Empty string means
* use parent's screen, or DISPLAY if no
* parent. */
+)
{
register TkWindow *winPtr;
register TkDisplay *dispPtr;
*/
static TkDisplay *
-GetScreen(interp, screenName, screenPtr)
- Tcl_Interp *interp; /* Place to leave error message. */
- char *screenName; /* Name for screen. NULL or empty means
+GetScreen (
+ Tcl_Interp *interp, /* Place to leave error message. */
+ char *screenName, /* Name for screen. NULL or empty means
* use DISPLAY envariable. */
- int *screenPtr; /* Where to store screen number. */
+ int *screenPtr /* Where to store screen number. */
+)
{
register TkDisplay *dispPtr;
char *p;
dispPtr->focusPtr = NULL;
tkDisplayList = dispPtr;
Tk_CreateFileHandler(ConnectionNumber(display),
- TK_READABLE, (void (*)()) NULL,
+ TK_READABLE, (void (*)(int *, int)) NULL,
(ClientData) display);
break;
}
*/
static TkWindow *
-NewWindow(dispPtr, screenNum)
- TkDisplay *dispPtr; /* Display associated with new window. */
- int screenNum; /* Index of screen for new window. */
+NewWindow (
+ TkDisplay *dispPtr, /* Display associated with new window. */
+ int screenNum /* Index of screen for new window. */
+)
{
register TkWindow *winPtr;
*----------------------------------------------------------------------
*/
-static int
-NameWindow(interp, winPtr, parentPtr, name)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- register TkWindow *winPtr; /* Window that is to be named and inserted. */
- TkWindow *parentPtr; /* Pointer to logical parent for winPtr
+static int
+NameWindow (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ register TkWindow *winPtr, /* Window that is to be named and inserted. */
+ TkWindow *parentPtr, /* Pointer to logical parent for winPtr
* (used for naming, options, etc.). */
- char *name; /* Name for winPtr; must be unique among
+ char *name /* Name for winPtr; must be unique among
* parentPtr's children. */
+)
{
#define FIXED_SIZE 200
char staticSpace[FIXED_SIZE];
*----------------------------------------------------------------------
*/
-Tk_Window
-Tk_CreateMainWindow(interp, screenName, baseName)
- Tcl_Interp *interp; /* Interpreter to use for error reporting. */
- char *screenName; /* Name of screen on which to create
+Tk_Window
+Tk_CreateMainWindow (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting. */
+ char *screenName, /* Name of screen on which to create
* window. Empty or NULL string means
* use DISPLAY environment variable. */
- char *baseName; /* Base name for application; usually of the
+ char *baseName /* Base name for application; usually of the
* form "prog instance". */
+)
{
Tk_Window tkwin;
int result, dummy;
for (cmdPtr = commands; cmdPtr->name != NULL; cmdPtr++) {
Tcl_CreateCommand(interp, cmdPtr->name, cmdPtr->cmdProc,
- (ClientData) tkwin, (void (*)()) NULL);
+ (ClientData) tkwin, (void (*)(int *)) NULL);
}
/*
*--------------------------------------------------------------
*/
-Tk_Window
-Tk_CreateWindow(interp, parent, name, screenName)
- Tcl_Interp *interp; /* Interpreter to use for error reporting.
+Tk_Window
+Tk_CreateWindow (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting.
* Interp->result is assumed to be
* initialized by the caller. */
- Tk_Window parent; /* Token for parent of new window. */
- char *name; /* Name for new window. Must be unique
+ Tk_Window parent, /* Token for parent of new window. */
+ char *name, /* Name for new window. Must be unique
* among parent's children. */
- char *screenName; /* If NULL, new window will be internal on
+ char *screenName /* If NULL, new window will be internal on
* same screen as its parent. If non-NULL,
* gives name of screen on which to create
* new window; window will be a top-level
* window. */
+)
{
TkWindow *parentPtr = (TkWindow *) parent;
TkWindow *winPtr;
*----------------------------------------------------------------------
*/
-Tk_Window
-Tk_CreateWindowFromPath(interp, tkwin, pathName, screenName)
- Tcl_Interp *interp; /* Interpreter to use for error reporting.
+Tk_Window
+Tk_CreateWindowFromPath (
+ Tcl_Interp *interp, /* Interpreter to use for error reporting.
* Interp->result is assumed to be
* initialized by the caller. */
- Tk_Window tkwin; /* Token for any window in application
+ Tk_Window tkwin, /* Token for any window in application
* that is to contain new window. */
- char *pathName; /* Path name for new window within the
+ char *pathName, /* Path name for new window within the
* application of tkwin. The parent of
* this window must already exist, but
* the window itself must not exist. */
- char *screenName; /* If NULL, new window will be on same
+ char *screenName /* If NULL, new window will be on same
* screen as its parent. If non-NULL,
* gives name of screen on which to create
* new window; window will be a top-level
* window. */
+)
{
#define FIXED_SPACE 5
char fixedSpace[FIXED_SPACE+1];
*--------------------------------------------------------------
*/
-void
-Tk_DestroyWindow(tkwin)
- Tk_Window tkwin; /* Window to destroy. */
+void
+Tk_DestroyWindow (
+ Tk_Window tkwin /* Window to destroy. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
XEvent event;
for (cmdPtr = commands; cmdPtr->name != NULL; cmdPtr++) {
Tcl_CreateCommand(winPtr->mainPtr->interp, cmdPtr->name,
- TkDeadAppCmd, (ClientData) NULL, (void (*)()) NULL);
+ TkDeadAppCmd, (ClientData) NULL, (void (*)(int *)) NULL);
}
Tcl_CreateCommand(winPtr->mainPtr->interp, "send",
- TkDeadAppCmd, (ClientData) NULL, (void (*)()) NULL);
+ TkDeadAppCmd, (ClientData) NULL, (void (*)(int *)) NULL);
Tcl_DeleteHashTable(&winPtr->mainPtr->nameTable);
Tk_DeleteBindingTable(winPtr->mainPtr->bindingTable);
ckfree((char *) winPtr->mainPtr);
*--------------------------------------------------------------
*/
-void
-Tk_MapWindow(tkwin)
- Tk_Window tkwin; /* Token for window to map. */
+void
+Tk_MapWindow (
+ Tk_Window tkwin /* Token for window to map. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
*--------------------------------------------------------------
*/
-void
-Tk_MakeWindowExist(tkwin)
- Tk_Window tkwin; /* Token for window. */
+void
+Tk_MakeWindowExist (
+ Tk_Window tkwin /* Token for window. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
Window parent;
*--------------------------------------------------------------
*/
-void
-Tk_UnmapWindow(tkwin)
- Tk_Window tkwin; /* Token for window to unmap. */
+void
+Tk_UnmapWindow (
+ Tk_Window tkwin /* Token for window to unmap. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
}
}
-void
-Tk_ConfigureWindow(tkwin, valueMask, valuePtr)
- Tk_Window tkwin; /* Window to re-configure. */
- unsigned int valueMask; /* Mask indicating which parts of
+void
+Tk_ConfigureWindow (
+ Tk_Window tkwin, /* Window to re-configure. */
+ unsigned int valueMask, /* Mask indicating which parts of
* *valuePtr are to be used. */
- XWindowChanges *valuePtr; /* New values. */
+ XWindowChanges *valuePtr /* New values. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
}
}
-void
-Tk_MoveWindow(tkwin, x, y)
- Tk_Window tkwin; /* Window to move. */
- int x, y; /* New location for window (within
+void
+Tk_MoveWindow (
+ Tk_Window tkwin, /* Window to move. */
+ int x,
+ int y /* New location for window (within
* parent). */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
}
}
-void
-Tk_ResizeWindow(tkwin, width, height)
- Tk_Window tkwin; /* Window to resize. */
- unsigned int width, height; /* New dimensions for window. */
+void
+Tk_ResizeWindow (
+ Tk_Window tkwin, /* Window to resize. */
+ unsigned int width,
+ unsigned int height /* New dimensions for window. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
}
}
-void
-Tk_MoveResizeWindow(tkwin, x, y, width, height)
- Tk_Window tkwin; /* Window to move and resize. */
- int x, y; /* New location for window (within
+void
+Tk_MoveResizeWindow (
+ Tk_Window tkwin, /* Window to move and resize. */
+ int x,
+ int y, /* New location for window (within
* parent). */
- unsigned int width, height; /* New dimensions for window. */
+ unsigned int width,
+ unsigned int height /* New dimensions for window. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
}
}
-void
-Tk_SetWindowBorderWidth(tkwin, width)
- Tk_Window tkwin; /* Window to modify. */
- int width; /* New border width for window. */
+void
+Tk_SetWindowBorderWidth (
+ Tk_Window tkwin, /* Window to modify. */
+ int width /* New border width for window. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
}
}
-void
-Tk_ChangeWindowAttributes(tkwin, valueMask, attsPtr)
- Tk_Window tkwin; /* Window to manipulate. */
- unsigned long valueMask; /* OR'ed combination of bits,
+void
+Tk_ChangeWindowAttributes (
+ Tk_Window tkwin, /* Window to manipulate. */
+ unsigned long valueMask, /* OR'ed combination of bits,
* indicating which fields of
* *attsPtr are to be used. */
- register XSetWindowAttributes *attsPtr;
+ register XSetWindowAttributes *attsPtr
+)
/* New values for some attributes. */
{
register TkWindow *winPtr = (TkWindow *) tkwin;
}
}
-void
-Tk_SetWindowBackground(tkwin, pixel)
- Tk_Window tkwin; /* Window to manipulate. */
- unsigned long pixel; /* Pixel value to use for
+void
+Tk_SetWindowBackground (
+ Tk_Window tkwin, /* Window to manipulate. */
+ unsigned long pixel /* Pixel value to use for
* window's background. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
}
}
-void
-Tk_SetWindowBackgroundPixmap(tkwin, pixmap)
- Tk_Window tkwin; /* Window to manipulate. */
- Pixmap pixmap; /* Pixmap to use for window's
+void
+Tk_SetWindowBackgroundPixmap (
+ Tk_Window tkwin, /* Window to manipulate. */
+ Pixmap pixmap /* Pixmap to use for window's
* background. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
}
}
-void
-Tk_SetWindowBorder(tkwin, pixel)
- Tk_Window tkwin; /* Window to manipulate. */
- unsigned long pixel; /* Pixel value to use for
+void
+Tk_SetWindowBorder (
+ Tk_Window tkwin, /* Window to manipulate. */
+ unsigned long pixel /* Pixel value to use for
* window's border. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
}
}
-void
-Tk_SetWindowBorderPixmap(tkwin, pixmap)
- Tk_Window tkwin; /* Window to manipulate. */
- Pixmap pixmap; /* Pixmap to use for window's
+void
+Tk_SetWindowBorderPixmap (
+ Tk_Window tkwin, /* Window to manipulate. */
+ Pixmap pixmap /* Pixmap to use for window's
* border. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
}
}
-void
-Tk_DefineCursor(tkwin, cursor)
- Tk_Window tkwin; /* Window to manipulate. */
- Cursor cursor; /* Cursor to use for window (may be None). */
+void
+Tk_DefineCursor (
+ Tk_Window tkwin, /* Window to manipulate. */
+ Cursor cursor /* Cursor to use for window (may be None). */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
}
}
-void
-Tk_UndefineCursor(tkwin)
- Tk_Window tkwin; /* Window to manipulate. */
+void
+Tk_UndefineCursor (
+ Tk_Window tkwin /* Window to manipulate. */
+)
{
Tk_DefineCursor(tkwin, None);
}
*----------------------------------------------------------------------
*/
-static void
-DoConfigureNotify(winPtr)
- register TkWindow *winPtr; /* Window whose configuration
+static void
+DoConfigureNotify (
+ register TkWindow *winPtr /* Window whose configuration
* was just changed. */
+)
{
XEvent event;
*----------------------------------------------------------------------
*/
-void
-Tk_SetClass(tkwin, className)
- Tk_Window tkwin; /* Token for window to assign class. */
- char *className; /* New class for tkwin. */
+void
+Tk_SetClass (
+ Tk_Window tkwin, /* Token for window to assign class. */
+ char *className /* New class for tkwin. */
+)
{
register TkWindow *winPtr = (TkWindow *) tkwin;
*----------------------------------------------------------------------
*/
-Tk_Window
-Tk_NameToWindow(interp, pathName, tkwin)
- Tcl_Interp *interp; /* Where to report errors. */
- char *pathName; /* Path name of window. */
- Tk_Window tkwin; /* Token for window: name is assumed to
+Tk_Window
+Tk_NameToWindow (
+ Tcl_Interp *interp, /* Where to report errors. */
+ char *pathName, /* Path name of window. */
+ Tk_Window tkwin /* Token for window: name is assumed to
* belong to the same main window as tkwin. */
+)
{
Tcl_HashEntry *hPtr;
*/
char *
-Tk_DisplayName(tkwin)
- Tk_Window tkwin; /* Window whose display name is desired. */
+Tk_DisplayName (
+ Tk_Window tkwin /* Window whose display name is desired. */
+)
{
return ((TkWindow *) tkwin)->dispPtr->name;
}
*--------------------------------------------------------------
*/
-void
-TkWmNewWindow(winPtr)
- TkWindow *winPtr; /* Newly-created top-level window. */
+void
+TkWmNewWindow (
+ TkWindow *winPtr /* Newly-created top-level window. */
+)
{
register WmInfo *wmPtr;
*--------------------------------------------------------------
*/
-int
-TkWmMapWindow(winPtr)
- TkWindow *winPtr; /* Top-level window that's about to
+int
+TkWmMapWindow (
+ TkWindow *winPtr /* Top-level window that's about to
* be mapped. */
+)
{
register WmInfo *wmPtr = winPtr->wmInfoPtr;
#ifndef X11R3
*--------------------------------------------------------------
*/
-void
-TkWmDeadWindow(winPtr)
- TkWindow *winPtr; /* Newly-created top-level window. */
+void
+TkWmDeadWindow (
+ TkWindow *winPtr /* Newly-created top-level window. */
+)
{
register WmInfo *wmPtr = winPtr->wmInfoPtr;
*--------------------------------------------------------------
*/
-void
-TkWmSetClass(winPtr)
- TkWindow *winPtr; /* Newly-created top-level window. */
+void
+TkWmSetClass (
+ TkWindow *winPtr /* Newly-created top-level window. */
+)
{
if (winPtr->wmInfoPtr->flags & WM_NEVER_MAPPED) {
return;
*/
/* ARGSUSED */
-int
-Tk_WmCmd(clientData, interp, argc, argv)
- ClientData clientData; /* Main window associated with
+int
+Tk_WmCmd (
+ ClientData clientData, /* Main window associated with
* interpreter. */
- Tcl_Interp *interp; /* Current interpreter. */
- int argc; /* Number of arguments. */
- char **argv; /* Argument strings. */
+ Tcl_Interp *interp, /* Current interpreter. */
+ int argc, /* Number of arguments. */
+ char **argv /* Argument strings. */
+)
{
Tk_Window tkwin = (Tk_Window) clientData;
TkWindow *winPtr;
*----------------------------------------------------------------------
*/
-void
-Tk_SetGrid(tkwin, reqWidth, reqHeight, widthInc, heightInc)
- Tk_Window tkwin; /* Token for window. New window mgr info
+void
+Tk_SetGrid (
+ Tk_Window tkwin, /* Token for window. New window mgr info
* will be posted for the top-level window
* associated with this window. */
- int reqWidth; /* Width (in grid units) corresponding to
+ int reqWidth, /* Width (in grid units) corresponding to
* the requested geometry for tkwin. */
- int reqHeight; /* Height (in grid units) corresponding to
+ int reqHeight, /* Height (in grid units) corresponding to
* the requested geometry for tkwin. */
- int widthInc, heightInc; /* Pixel increments corresponding to a
+ int widthInc,
+ int heightInc /* Pixel increments corresponding to a
* change of one grid unit. */
+)
{
TkWindow *winPtr = (TkWindow *) tkwin;
register WmInfo *wmPtr;
*----------------------------------------------------------------------
*/
-static void
-TopLevelEventProc(clientData, eventPtr)
- ClientData clientData; /* Window for which event occurred. */
- XEvent *eventPtr; /* Event that just happened. */
+static void
+TopLevelEventProc (
+ ClientData clientData, /* Window for which event occurred. */
+ XEvent *eventPtr /* Event that just happened. */
+)
{
register TkWindow *winPtr = (TkWindow *) clientData;
*/
/* ARGSUSED */
-static void
-TopLevelReqProc(dummy, tkwin)
- ClientData dummy; /* Not used. */
- Tk_Window tkwin; /* Information about window. */
+static void
+TopLevelReqProc (
+ ClientData dummy, /* Not used. */
+ Tk_Window tkwin /* Information about window. */
+)
{
TkWindow *winPtr = (TkWindow *) tkwin;
WmInfo *wmPtr;
*----------------------------------------------------------------------
*/
-static void
-UpdateGeometryInfo(clientData)
- ClientData clientData; /* Pointer to the window's record. */
+static void
+UpdateGeometryInfo (
+ ClientData clientData /* Pointer to the window's record. */
+)
{
register TkWindow *winPtr = (TkWindow *) clientData;
register WmInfo *wmPtr = winPtr->wmInfoPtr;
*--------------------------------------------------------------
*/
-static void
-UpdateSizeHints(winPtr)
- TkWindow *winPtr;
+static void
+UpdateSizeHints (TkWindow *winPtr)
{
register WmInfo *wmPtr = winPtr->wmInfoPtr;
XSizeHints *hintsPtr;
*--------------------------------------------------------------
*/
-static void
-UpdateHints(winPtr)
- TkWindow *winPtr;
+static void
+UpdateHints (TkWindow *winPtr)
{
WmInfo *wmPtr = winPtr->wmInfoPtr;
*--------------------------------------------------------------
*/
-static int
-ParseGeometry(interp, string, winPtr)
- Tcl_Interp *interp; /* Used for error reporting. */
- char *string; /* String containing new geometry. Has the
+static int
+ParseGeometry (
+ Tcl_Interp *interp, /* Used for error reporting. */
+ char *string, /* String containing new geometry. Has the
* standard form "=wxh+x+y". */
- TkWindow *winPtr; /* Pointer to top-level window whose
+ TkWindow *winPtr /* Pointer to top-level window whose
* geometry is to be changed. */
+)
{
register WmInfo *wmPtr = winPtr->wmInfoPtr;
int x, y, width, height, flags;
*----------------------------------------------------------------------
*/
-void
-Tk_GetRootCoords(tkwin, xPtr, yPtr)
- Tk_Window tkwin; /* Token for window. */
- int *xPtr; /* Where to store x-displacement of (0,0). */
- int *yPtr; /* Where to store y-displacement of (0,0). */
+void
+Tk_GetRootCoords (
+ Tk_Window tkwin, /* Token for window. */
+ int *xPtr, /* Where to store x-displacement of (0,0). */
+ int *yPtr /* Where to store y-displacement of (0,0). */
+)
{
int x, y;
register TkWindow *winPtr = (TkWindow *) tkwin;
*--------------------------------------------------------------
*/
-void
-TkWmSetWmProtocols(winPtr)
- TkWindow *winPtr; /* Newly-created top-level window. */
+void
+TkWmSetWmProtocols (
+ TkWindow *winPtr /* Newly-created top-level window. */
+)
{
if (winPtr->wmInfoPtr->flags & WM_NEVER_MAPPED) {
return;
*
*
*/
-void
-TkWmProtocolEventProc(winPtr, eventPtr)
-TkWindow *winPtr;
-XEvent *eventPtr;
+void
+TkWmProtocolEventProc (TkWindow *winPtr, XEvent *eventPtr)
{
if ((Atom)(eventPtr->xclient.data.l)[0] ==
Tk_InternAtom((Tk_Window) winPtr, "WM_DELETE_WINDOW")) {
* Kind of artificial, But makes it easier to merge into new
* versions of Stock Tk.
*/
-int
-WmProtocolCmd(interp, CmdPtr, argc, argv)
-Tcl_Interp *interp;
-char **CmdPtr;
-int argc;
-char **argv;
+int
+WmProtocolCmd (Tcl_Interp *interp, char **CmdPtr, int argc, char **argv)
{
#define Cmd (*CmdPtr)
*----------------------------------------------------------------------
*/
-Tk_Window
-Tk_CoordsToWindow(rootX, rootY, tkwin)
- int rootX, rootY; /* Coordinates of point in root window. */
- Tk_Window tkwin; /* Token for any window in application;
+Tk_Window
+Tk_CoordsToWindow (
+ int rootX,
+ int rootY, /* Coordinates of point in root window. */
+ Tk_Window tkwin /* Token for any window in application;
* used to identify the application. */
+)
{
Window rootChild, dummy3, dummy4;
int i, dummy1, dummy2;
projects / micropolis / commitdiff