Newbie Cube Extending Doug with Tcl

« Looking Back On The Doug-Trick Interface | NewbieIndex | Texture Cube »

UNDER CONSTRUCTION

This is a rough sketch:

* Map Var
 # C
 doug->InstallPluginCmd( "dsp_simdata.header",  SIMDATA_cmd,     NULL );
 # Tcl
 doug.plugin dsp_simdata.header $headerfile
 set header [doug.plugin dsp_simdata.header]

 /* Plugin C source */

 static DSS_DOUG *doug       = 0;

 DSP_InitializePlugin( DSS_PLUGIN *plugin )
 {
        simdata_init();

        DSF_InstallPluginFunction(plugin->handle, simdata, DSD_PLUGIN_UPDATE_SCENE);

        /* Tcl/Tk Interface */
        if( doug = DSF_GetDataFromProcess( "DSS_DOUG" ) ) {
                doug->InstallPluginCmd( "dsp_simdata.header", SIMDATA_cmd, NULL);
                return 1;
        }
 }

 int SIMDATA_cmd( void *data, Tcl_Interp *interp, int objc, Tcl_Obj *objv[] )
 {
          cmd = Tcl_GetString( objv[i] ); i++;
          if( !strcmp( cmd, "dsp_simdata.header" ) )
          {
          }
          return TCL_OK;

 }

« Looking Back On The Doug-Trick Interface | NewbieIndex | Texture Cube »