00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017 #include "gnoclVTE.h"
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030 int Gnoclvte_Init ( Tcl_Interp *interp )
00031 {
00032
00033 printf ( "Initializing gnocl virtual terminal emulator version %s\n", VERSION );
00034
00035 if ( Tcl_InitStubs ( interp, "8.3", 0 ) == NULL )
00036 return TCL_ERROR;
00037
00038 if ( Tcl_PkgRequire ( interp, "Gnocl", VERSION, 0 ) == NULL )
00039 return TCL_ERROR;
00040
00041 if ( Tcl_PkgProvide ( interp, "GnoclVTE", VERSION ) != TCL_OK )
00042 return TCL_ERROR;
00043
00044
00045 Tcl_CreateObjCommand ( interp, "gnocl::vte", gnoclVTECmd, NULL, NULL );
00046
00047 return TCL_OK;
00048 }
00049
00050
00051