52 lines
921 B
C
52 lines
921 B
C
|
/*
|
|||
|
|
* dpInit.c --
|
|||
|
|
*
|
|||
|
|
* Perform UNIX-specific initialization of DP.
|
|||
|
|
*
|
|||
|
|
* Copyright (c) 1995-1996 The Regents of Cornell University.
|
|||
|
|
*
|
|||
|
|
* See the file "license.terms" for information on usage and redistribution
|
|||
|
|
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|||
|
|
*
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
#include "generic/dpPort.h"
|
|||
|
|
#include "generic/dpInt.h"
|
|||
|
|
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
*----------------------------------------------------------------------
|
|||
|
|
*
|
|||
|
|
* DppInit --
|
|||
|
|
*
|
|||
|
|
* Performs Unix-specific interpreter initialization related to the
|
|||
|
|
* dp_library variable.
|
|||
|
|
*
|
|||
|
|
* Results:
|
|||
|
|
* Returns a standard Tcl result. Leaves an error message or result
|
|||
|
|
* in interp->result.
|
|||
|
|
*
|
|||
|
|
* Side effects:
|
|||
|
|
* Sets "dp_library" Tcl variable, runs "tk.tcl" script.
|
|||
|
|
*
|
|||
|
|
*----------------------------------------------------------------------
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
int
|
|||
|
|
DppInit(interp)
|
|||
|
|
Tcl_Interp *interp;
|
|||
|
|
{
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* (ToDo) Load in the TCL library
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
return TCL_OK;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|