Example 5: tclhello

This example can be found in the examples/c/tclhello directory.

    
    #include "nstcl.h"
    
    /*
     * This code adds a new TCL command named "hello" to the AOLserver.
     * To test this module, add the following to the 
     * [ns\server\server-name\modules] section of your nsd.ini file:
     * tclhello=tclhello.dll   ; or tclhello.so on Unix platforms
     * 
     * You can then run your "hello" command from the /NS/EvalTcl
     * interface provided by the AOLserver.
     */
    
    DllExport int Ns_ModuleVersion = 1;
    static Tcl_CmdProc HelloCmd;
    
    static int
    HelloCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
    {
        interp->result = "Hello";
        return TCL_OK;
    }
    
    static int
    HelloInterpInit(Tcl_Interp *interp, void *context) 
    {
        Tcl_CreateCommand(interp, "hello", HelloCmd, NULL, NULL);
        return NS_OK;
    }
    
    DllExport int
    Ns_ModuleInit(char *hServer, char *hModule)
    {
        return (Ns_TclInitInterps(hServer, HelloInterpInit, NULL));
    }
    
    

Top of Page

Copyright © 1996 America Online, Inc.