- Main Page
- Related Pages
- Data Structures
- Files

# gnoclVTE.c

Go to the documentation of this file.

    00001 /****h* gnocl/vte
    00002  * NAME
    00003  *      gnoclVTE.c
    00004  * AUTHOR
    00005  *      William J Giddings
    00006  * SYNOPSIS
    00007  *       This file implements a Tcl interface to the Gnome vte.
    00008  * FUNCTION
    00009  * NOTES
    00010  * BUGS
    00011  * HISTORY
    00012  *      08-Mar-2009
    00013  * SEE ALSO
    00014  * SOURCE
    00015  *****/
    00016
    00017 #include "gnoclVTE.h"
    00018
    00019 /****f* gnocl/vte/GnoclVTE_Init
    00020  * AUTHOR
    00021  *      William J Giddings
    00022  * NOTES
    00023  *      The Gnocl initilisation proceedure. It is necessary to end the name of this function
    00024  *      with "_Init" in order to initialise a shared library. This function will be automatically
    00025  *      called when the Tcl load command loads the library.
    00026  * SEE ALSO
    00027  *  Welch, Jones & Hobbs (2003) pp695-699
    00028  * SOURCE
    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         /* gnoclSourceViewCmd is located in sourceview.c */
    00045         Tcl_CreateObjCommand ( interp, "gnocl::vte", gnoclVTECmd, NULL, NULL );
    00046
    00047         return TCL_OK;
    00048 }
    00049
    00050 /*****/
    00051