34 # ifndef HAVE_ITCLDECLS_H
35 # define RESOURCE_INCLUDED
71 const char *tmp = Tcl_GetStringResult( interp );
77 if ( tmp != NULL && tmp !=
'\0' )
78 fprintf( stderr,
"%s\n", Tcl_GetStringResult( interp ) );
83 Tcl_UnsetVar( interp,
"tcl_prompt1", 0 );
84 Tcl_Eval( interp,
"tclexit" );
107 if ( pls->
ipls == 0 )
108 sprintf( prompt,
"pltext; puts -nonewline \"pltcl> \"; flush stdout" );
110 sprintf( prompt,
"pltext; puts -nonewline \"pltcl_%d> \"; flush stdout", pls->
ipls );
112 Tcl_VarEval( interp, prompt, 0 );
149 if ( Tcl_Init( interp ) == TCL_ERROR )
151 printf(
"Error Tcl_Init\n" );
155 if ( Itcl_Init( interp ) == TCL_ERROR )
169 Tcl_VarEval( interp,
"rename exit tclexit", (
char *) NULL );
171 Tcl_CreateCommand( interp,
"exit", (Tcl_CmdProc *)
plExitCmd,
172 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL );
174 Tcl_CreateCommand( interp,
"pr_prompt", (Tcl_CmdProc *)
prPromptCmd,
175 (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL );
179 Tcl_SetVar( interp,
"tcl_prompt1",
"pr_prompt", 0 );