int TnmInit(Tcl_Interp *interp, int safe) { #ifdef USE_TCL_STUBS if (Tcl_InitStubs(interp, "8.4", 0) == NULL) { return TCL_ERROR; } #endif if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 0) == NULL) { return TCL_ERROR; } if (Tcl_PkgProvide(interp, "Tnm", TNM_VERSION) != TCL_OK) { return TCL_ERROR; } Tcl_RegisterObjType(&tnmUnsigned64Type); Tcl_RegisterObjType(&tnmUnsigned32Type); Tcl_RegisterObjType(&tnmOctetStringType); Tcl_RegisterObjType(&tnmIpAddressType); InitVars(interp); TnmInitDns(interp); if (InitCmds(interp, safe) != TCL_OK) { return TCL_ERROR; } if (TnmSmxInit(interp) != TCL_OK) { return TCL_ERROR; } return SourceInitFiles(interp); }
EXTERN int Chantest_Init(Tcl_Interp *interp) { int r = TCL_OK; const char *tcl = NULL; const char *memchan = NULL; #ifdef USE_TCL_STUBS tcl = Tcl_InitStubs(interp, "8.4", 0); #endif #ifdef USE_MEMCHAN_STUBS memchan = Memchan_InitStubs(interp, "2.2", 0); #endif if (tcl == NULL || memchan == NULL) { Tcl_SetResult(interp, "error loading memchan via stubs", TCL_STATIC); r = TCL_ERROR; } else { Tcl_CreateObjCommand(interp, "chantest", TestObjCmd, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); r = Tcl_PkgProvide(interp, "Chantest", "0.1"); } return r; }
/* * Tclduktape_Init -- Called when Tcl loads the extension. */ int DLLEXPORT Tclduktape_Init(Tcl_Interp *interp) { Tcl_Namespace *nsPtr; struct DuktapeData *duktape_data; #ifdef USE_TCL_STUBS if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { return TCL_ERROR; } #endif duktape_data = (struct DuktapeData *) ckalloc(sizeof(struct DuktapeData)); /* Create the namespace. */ if (Tcl_FindNamespace(interp, NS, NULL, 0) == NULL) { nsPtr = Tcl_CreateNamespace(interp, NS, NULL, NULL); if (nsPtr == NULL) { return TCL_ERROR; } } duktape_data->counter = 0; Tcl_InitHashTable(&duktape_data->table, TCL_STRING_KEYS); Tcl_CreateObjCommand(interp, NS INIT, Init_Cmd, duktape_data, NULL); Tcl_CreateObjCommand(interp, NS CLOSE, Close_Cmd, duktape_data, NULL); Tcl_CreateObjCommand(interp, NS EVAL, Eval_Cmd, duktape_data, NULL); Tcl_CreateObjCommand(interp, NS CALL_METHOD, CallMethod_Cmd, duktape_data, NULL); Tcl_CallWhenDeleted(interp, cleanup_interp, duktape_data); Tcl_PkgProvide(interp, PACKAGE, VERSION); return TCL_OK; }
int Dm_Init(void *interpreter) { Tcl_Interp *interp = (Tcl_Interp *)interpreter; static struct bu_cmdtab cmdtab[] = { {"dm_validXType", dm_validXType_tcl}, {"dm_bestXType", dm_bestXType_tcl}, {(const char *)NULL, BU_CMD_NULL} }; struct bu_vls vls = BU_VLS_INIT_ZERO; /* register commands */ register_cmds(interp, cmdtab); bu_vls_strcpy(&vls, "vectorThreshold"); Tcl_LinkVar(interp, bu_vls_addr(&vls), (char *)&vectorThreshold, TCL_LINK_INT); bu_vls_free(&vls); /* initialize display manager object code */ Dmo_Init(interp); Tcl_PkgProvide(interp, "Dm", brlcad_version()); return TCL_OK; }
EXTERN int Pkgua_Init( Tcl_Interp *interp) /* Interpreter in which the package is to be * made available. */ { int code, cmdIndex = 0; Tcl_Command *cmdTokens; if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { return TCL_ERROR; } /* * Initialise our Hash table, where we store the registered command tokens * for each interpreter. */ PkguaInitTokensHashTable(); code = Tcl_PkgProvide(interp, "Pkgua", "1.0"); if (code != TCL_OK) { return code; } Tcl_SetVar(interp, "::pkgua_loaded", ".", TCL_APPEND_VALUE); cmdTokens = PkguaInterpToTokens(interp); cmdTokens[cmdIndex++] = Tcl_CreateObjCommand(interp, "pkgua_eq", PkguaEqObjCmd, NULL, NULL); cmdTokens[cmdIndex++] = Tcl_CreateObjCommand(interp, "pkgua_quote", PkguaQuoteObjCmd, NULL, NULL); return TCL_OK; }
int Registry_Init( Tcl_Interp *interp) { Tcl_CreateObjCommand(interp, "registry", RegistryObjCmd, NULL, NULL); return Tcl_PkgProvide(interp, "registry", "1.0"); }
MODULE_SCOPE void TtkElements_Init(Tcl_Interp *interp) { Ttk_Theme theme = Ttk_GetDefaultTheme(interp); /* * Elements: */ Ttk_RegisterElement(interp, theme, "background", &BackgroundElementSpec,NULL); Ttk_RegisterElement(interp, theme, "fill", &FillElementSpec, NULL); Ttk_RegisterElement(interp, theme, "border", &BorderElementSpec, NULL); Ttk_RegisterElement(interp, theme, "field", &FieldElementSpec, NULL); Ttk_RegisterElement(interp, theme, "focus", &FocusElementSpec, NULL); Ttk_RegisterElement(interp, theme, "padding", &PaddingElementSpec, NULL); Ttk_RegisterElement(interp, theme, "Checkbutton.indicator", &CheckbuttonIndicatorElementSpec, NULL); Ttk_RegisterElement(interp, theme, "Radiobutton.indicator", &RadiobuttonIndicatorElementSpec, NULL); Ttk_RegisterElement(interp, theme, "Menubutton.indicator", &MenuIndicatorElementSpec, NULL); Ttk_RegisterElement(interp, theme, "indicator", &ttkNullElementSpec,NULL); Ttk_RegisterElement(interp, theme, "uparrow", &ArrowElementSpec, &ArrowElements[0]); Ttk_RegisterElement(interp, theme, "downarrow", &ArrowElementSpec, &ArrowElements[1]); Ttk_RegisterElement(interp, theme, "leftarrow", &ArrowElementSpec, &ArrowElements[2]); Ttk_RegisterElement(interp, theme, "rightarrow", &ArrowElementSpec, &ArrowElements[3]); Ttk_RegisterElement(interp, theme, "arrow", &ArrowElementSpec, &ArrowElements[0]); Ttk_RegisterElement(interp, theme, "trough", &TroughElementSpec, NULL); Ttk_RegisterElement(interp, theme, "thumb", &ThumbElementSpec, NULL); Ttk_RegisterElement(interp, theme, "slider", &SliderElementSpec, NULL); Ttk_RegisterElement(interp, theme, "pbar", &PbarElementSpec, NULL); Ttk_RegisterElement(interp, theme, "separator", &SeparatorElementSpec, NULL); Ttk_RegisterElement(interp, theme, "hseparator", &HorizontalSeparatorElementSpec, NULL); Ttk_RegisterElement(interp, theme, "vseparator", &VerticalSeparatorElementSpec, NULL); Ttk_RegisterElement(interp, theme, "sizegrip", &SizegripElementSpec, NULL); Ttk_RegisterElement(interp, theme, "tab", &TabElementSpec, NULL); Ttk_RegisterElement(interp, theme, "client", &ClientElementSpec, NULL); /* * Register "default" as a user-loadable theme (for now): */ Tcl_PkgProvide(interp, "ttk::theme::default", TTK_VERSION); }
/** \brief initialize the tclmsgque package * * The tclmsgque package is created and one new command "msgque" * is added to the Tcl interpreter. * \param[in] interp the current interpreter * \return Tcl error-code */ TCLMQ_EXTERN int Tclmsgque_Init ( Tcl_Interp * interp ) { // check for the reight tcl if (Tcl_InitStubs (interp, "8.5", 0) == NULL) { return TCL_ERROR; } // announce my package TclErrorCheck (Tcl_PkgProvide (interp, "TclMsgque", LIBMSGQUE_VERSION)); // provide "msgque" as only public cammand of the package Tcl_CreateObjCommand (interp, "tclmsgque", NS(MsgqueCmd), (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); // init libmsgque global data if (MqInitGet() == NULL && Tcl_GetNameOfExecutable() != NULL) { struct MqBufferLS * initB = MqInitCreate(); if (Tcl_Eval(interp, "info script") == TCL_ERROR) return TCL_ERROR; MqBufferLAppendC(initB, Tcl_GetNameOfExecutable()); MqBufferLAppendC(initB, Tcl_GetStringResult(interp)); } // create the default-factory if (!strcmp(MqFactoryDefaultIdent(),"libmsgque")) { MqFactoryDefault("tclmsgque", NS(FactoryCreate), NULL, NULL, NS(FactoryDelete), NULL, NULL); } return TCL_OK; }
int Fftcmds_Init(Tcl_Interp *interp) #endif { Tcl_CreateObjCommand(interp,"r2cfft_1d",tcl_rfft_1d, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_CreateObjCommand(interp,"c2rfft_1d",tcl_rfft_1d, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_CreateObjCommand(interp,"cfftf_1d",tcl_cfft_1d, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_CreateObjCommand(interp,"cfftb_1d",tcl_cfft_1d, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_CreateObjCommand(interp,"cfftf_2d",tcl_cfft_nd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_CreateObjCommand(interp,"cfftb_2d",tcl_cfft_nd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_CreateObjCommand(interp,"cfftf_3d",tcl_cfft_nd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_CreateObjCommand(interp,"cfftb_3d",tcl_cfft_nd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_CreateObjCommand(interp,"cfftf_4d",tcl_cfft_nd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_CreateObjCommand(interp,"cfftb_4d",tcl_cfft_nd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_PkgProvide(interp, "fftcmds", "1.1"); check_thread_count(interp,"fftcmds"); return TCL_OK; }
/******************************************************************************* * dhstcl_Init ( ... ) *******************************************************************************/ int Dhstcl_Init ( Tcl_Interp *interp ) { /* declare local scope variable and initialize them */ int nc=0; /* initialize static variables */ (void) memset(response,'\0',MAXMSG); (void) memset(result,'\0',DHS_RESULT_LEN); /* write banner */ nc = sprintf(result,"\nDHS Package v%s by %s.\n%s\nThis release: %s\n",_dhsTcl_S_,_dhsTcl_A_,_dhsTcl_C_,_dhsTcl_D_); (void) Tcl_SetResult(interp,result,TCL_STATIC); /* make the wrapper(s) available to Tcl/tk */ if ( Tcl_InitStubs(interp,TCL_STUB_VERSION,0) == (char *)NULL ) return TCL_ERROR; Tcl_CreateCommand(interp,"dhs::help", (Tcl_CmdProc *)dhsHelpTcl, (ClientData)NULL,(Tcl_CmdDeleteProc *)NULL); Tcl_CreateCommand(interp,"dhs::version", (Tcl_CmdProc *)dhsVersionTcl, (ClientData)NULL,(Tcl_CmdDeleteProc *)NULL); Tcl_CreateCommand(interp,"dhs::SysOpen", (Tcl_CmdProc *)dhsSysOpenTcl, (ClientData)NULL,(Tcl_CmdDeleteProc *)NULL); Tcl_CreateCommand(interp,"dhs::SysClose", (Tcl_CmdProc *)dhsSysCloseTcl, (ClientData)NULL,(Tcl_CmdDeleteProc *)NULL); Tcl_CreateCommand(interp,"dhs::OpenConnect", (Tcl_CmdProc *)dhsOpenConnectTcl, (ClientData)NULL,(Tcl_CmdDeleteProc *)NULL); Tcl_CreateCommand(interp,"dhs::CloseConnect",(Tcl_CmdProc *)dhsCloseConnectTcl,(ClientData)NULL,(Tcl_CmdDeleteProc *)NULL); Tcl_CreateCommand(interp,"dhs::OpenExp", (Tcl_CmdProc *)dhsOpenExpTcl, (ClientData)NULL,(Tcl_CmdDeleteProc *)NULL); Tcl_CreateCommand(interp,"dhs::CloseExp", (Tcl_CmdProc *)dhsCloseExpTcl, (ClientData)NULL,(Tcl_CmdDeleteProc *)NULL); Tcl_CreateCommand(interp,"dhs::IOctl", (Tcl_CmdProc *)dhsIOctlTcl, (ClientData)NULL,(Tcl_CmdDeleteProc *)NULL); Tcl_CreateCommand(interp,"dhs::ReadImage", (Tcl_CmdProc *)dhsReadImageTcl, (ClientData)NULL,(Tcl_CmdDeleteProc *)NULL); Tcl_CreateCommand(interp,"dhs::PixelData", (Tcl_CmdProc *)dhsPixelDataTcl, (ClientData)NULL,(Tcl_CmdDeleteProc *)NULL); Tcl_CreateCommand(interp,"dhs::MetaData", (Tcl_CmdProc *)dhsMetaDataTcl, (ClientData)NULL,(Tcl_CmdDeleteProc *)NULL); /* provide the package */ return Tcl_PkgProvide(interp,"dhs",_dhsTcl_S_); }
int Sqlite_vtable_Init(Tcl_Interp *interp) { VTableInterpContext *vticP; #ifdef USE_TCL_STUBS Tcl_InitStubs(interp, "8.5", 0); #endif /* * Initialize the cache of Tcl type pointers (used when converting * to sqlite types). It's OK if any of these return NULL. */ gTclBooleanTypeP = Tcl_GetObjType("boolean"); gTclBooleanStringTypeP = Tcl_GetObjType("booleanString"); gTclByteArrayTypeP = Tcl_GetObjType("bytearray"); gTclDoubleTypeP = Tcl_GetObjType("double"); gTclWideIntTypeP = Tcl_GetObjType("wideInt"); gTclIntTypeP = Tcl_GetObjType("int"); vticP = VTICNew(interp); VTICRef(vticP, 1); // VTIC is passed to interpreter commands as ClientData Tcl_CreateObjCommand(interp, PACKAGE_NAME "::attach_connection", AttachConnectionObjCmd, vticP, 0); Tcl_CallWhenDeleted(interp, DetachFromInterp, vticP); Tcl_PkgProvide(interp, PACKAGE_NAME, PACKAGE_VERSION); return TCL_OK; }
EXTERN int Pmepot_Init(Tcl_Interp *interp) { #else int Pmepot_Init(Tcl_Interp *interp) { #endif int *countptr; countptr = (int *)malloc(sizeof(int)); Tcl_SetAssocData(interp, "Pmepot_count", count_delete_proc, (ClientData)countptr); *countptr = 0; Tcl_CreateObjCommand(interp,"pmepot_create",tcl_pmepot_create, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_CreateObjCommand(interp,"pmepot_add",tcl_pmepot_add, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_CreateObjCommand(interp,"pmepot_writedx",tcl_pmepot_writedx, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_CreateObjCommand(interp,"pmepot_destroy",tcl_pmepot_destroy, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); Tcl_PkgProvide(interp, "pmepot_core", "1.0.0"); return TCL_OK; }
int Funtools_Init (void *vinterp) { Tcl_Interp *interp = (Tcl_Interp *)vinterp; Tcl_CreateObjCommand(interp, "funcen", MainLib_Tcl, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); Tcl_CreateObjCommand(interp, "funcnts", MainLib_Tcl, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); Tcl_CreateObjCommand(interp, "fundisp", MainLib_Tcl, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); Tcl_CreateObjCommand(interp, "funhead", MainLib_Tcl, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); Tcl_CreateObjCommand(interp, "funhist", MainLib_Tcl, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); Tcl_CreateObjCommand(interp, "funimage", MainLib_Tcl, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); Tcl_CreateObjCommand(interp, "funmerge", MainLib_Tcl, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); Tcl_CreateObjCommand(interp, "funtable", MainLib_Tcl, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); Tcl_CreateObjCommand(interp, "funcalc", MainLib_Tcl, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); Tcl_PkgProvide(interp, "funtools", "1.0"); return(TCL_OK); }
DLLEXPORT int Rechan_Init(Tcl_Interp* interp) { if (!Tcl_InitStubs(interp, "8.4", 0)) return TCL_ERROR; Tcl_CreateObjCommand(interp, "rechan", cmd_rechan, 0, 0); return Tcl_PkgProvide(interp, "rechan", "1.0"); }
TTK_END_LAYOUT_TABLE /*------------------------------------------------------------------------ * +++ Initialization. */ MODULE_SCOPE int TtkClamTheme_Init(Tcl_Interp *interp) { Ttk_Theme theme = Ttk_CreateTheme(interp, "clam", 0); if (!theme) { return TCL_ERROR; } Ttk_RegisterElement(interp, theme, "border", &BorderElementSpec, NULL); Ttk_RegisterElement(interp, theme, "field", &FieldElementSpec, NULL); Ttk_RegisterElement(interp, theme, "Combobox.field", &ComboboxFieldElementSpec, NULL); Ttk_RegisterElement(interp, theme, "trough", &TroughElementSpec, NULL); Ttk_RegisterElement(interp, theme, "thumb", &ThumbElementSpec, NULL); Ttk_RegisterElement(interp, theme, "uparrow", &ArrowElementSpec, &ArrowElements[0]); Ttk_RegisterElement(interp, theme, "downarrow", &ArrowElementSpec, &ArrowElements[1]); Ttk_RegisterElement(interp, theme, "leftarrow", &ArrowElementSpec, &ArrowElements[2]); Ttk_RegisterElement(interp, theme, "rightarrow", &ArrowElementSpec, &ArrowElements[3]); Ttk_RegisterElement(interp, theme, "Radiobutton.indicator", &RadioIndicatorElementSpec, NULL); Ttk_RegisterElement(interp, theme, "Checkbutton.indicator", &CheckIndicatorElementSpec, NULL); Ttk_RegisterElement(interp, theme, "Menubutton.indicator", &MenuIndicatorElementSpec, NULL); Ttk_RegisterElement(interp, theme, "tab", &TabElementSpec, NULL); Ttk_RegisterElement(interp, theme, "client", &ClientElementSpec, NULL); Ttk_RegisterElement(interp, theme, "slider", &SliderElementSpec, NULL); Ttk_RegisterElement(interp, theme, "bar", &PbarElementSpec, NULL); Ttk_RegisterElement(interp, theme, "pbar", &PbarElementSpec, NULL); Ttk_RegisterElement(interp, theme, "hgrip", &GripElementSpec, &GripClientData[0]); Ttk_RegisterElement(interp, theme, "vgrip", &GripElementSpec, &GripClientData[1]); Ttk_RegisterLayouts(theme, LayoutTable); Tcl_PkgProvide(interp, "ttk::theme::clam", TTK_VERSION); return TCL_OK; }
/*LINTLIBRARY*/ int Blt_x_Init(Tcl_Interp *interp) /* Interpreter to add extra commands */ { Tcl_Namespace *nsPtr; Tcl_AppInitProc **p; const int isExact = 1; #ifdef USE_TCL_STUBS if (Tcl_InitStubs(interp, TCL_VERSION_LOADED, isExact) == NULL) { return TCL_ERROR; }; #endif if (Tcl_PkgRequire(interp, "blt_core", BLT_VERSION, isExact) == NULL) { return TCL_ERROR; } #if (_TCL_VERSION >= _VERSION(8,1,0)) #ifdef USE_TK_STUBS if (Tk_InitStubs(interp, TK_VERSION_LOADED, isExact) == NULL) { return TCL_ERROR; }; #endif if (Tcl_PkgPresent(interp, "Tk", TK_VERSION_LOADED, isExact) == NULL) { return TCL_OK; } #else if (Tcl_PkgRequire(interp, "Tk", TK_VERSION_LOADED, isExact) == NULL) { Tcl_ResetResult(interp); return TCL_OK; } #endif nsPtr = Tcl_CreateNamespace(interp, "::blt::tk", NULL, NULL); if (nsPtr == NULL) { return TCL_ERROR; } nsPtr = Tcl_FindNamespace(interp, "::blt", NULL, TCL_LEAVE_ERR_MSG); if (nsPtr == NULL) { return TCL_ERROR; } Blt_RegisterPictureImageType(interp); Blt_RegisterEpsCanvasItem(); Blt_InitXRandrConfig(interp); /* Initialize the BLT commands that only use Tk. */ for (p = cmdProcs; *p != NULL; p++) { if ((**p) (interp) != TCL_OK) { Tcl_DeleteNamespace(nsPtr); return TCL_ERROR; } } if (Tcl_PkgProvide(interp, "blt_extra", BLT_VERSION) != TCL_OK) { return TCL_ERROR; } return TCL_OK; }
/** Called when Tcl loads this extension */ int Tclpython_Init(Tcl_Interp *interp) { if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) return TCL_ERROR; if (Tcl_PkgProvide(interp, "python", "0.1") == TCL_ERROR) return TCL_ERROR; return TCL_OK; }
int Macports_Init(Tcl_Interp *interp) { if (Tcl_InitStubs(interp, "8.4", 0) == NULL) return TCL_ERROR; Tcl_CreateObjCommand(interp, "get_systemconfiguration_proxies", GetSystemConfigurationProxiesCmd, NULL, NULL); Tcl_CreateObjCommand(interp, "sysctl", SysctlCmd, NULL, NULL); if (Tcl_PkgProvide(interp, "macports", "1.0") != TCL_OK) return TCL_ERROR; return TCL_OK; }
static int ALSProlog_Package_Init(Tcl_Interp *interp, AP_World *w) { if (!Tcl_PkgRequire(interp, (char *)"Tcl", (char *)"8.0", 0) || !Tcl_CreateObjCommand(interp, (char *)"prolog", Tcl_ALS_Prolog_ObjCmd, w, NULL) || !Tcl_CreateObjCommand(interp, (char *)"dooneevent", Tcl_DoOneEventCmd, w, NULL)) { return TCL_ERROR; } return Tcl_PkgProvide(interp, (char *)"ALSProlog", (char *)VERSION_STRING); }
int Dbus_Init(Tcl_Interp *interp) { if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { return TCL_ERROR; } if (Tcl_PkgRequire(interp, "Tcl", "8.5", 0) == NULL) { return TCL_ERROR; } Tcl_MutexLock(&dbusMutex); if (!initialized) { Tcl_InitObjHashTable(&bus); Tcl_CreateEventSource(DBus_SetupProc, DBus_CheckProc, interp); initialized = TRUE; } Tcl_MutexUnlock(&dbusMutex); TclInitDBusCmd(interp); /* Provide the historical name for compatibility */ Tcl_PkgProvide(interp, "dbus-tcl", PACKAGE_VERSION); return Tcl_PkgProvide(interp, PACKAGE_NAME, PACKAGE_VERSION); }
TTK_END_LAYOUT_TABLE /* POSSIBLY: include Scale layouts w/focus border */ /*------------------------------------------------------------------------ * TtkClassicTheme_Init -- * Install classic theme. */ MODULE_SCOPE int TtkClassicTheme_Init(Tcl_Interp *interp) { Ttk_Theme theme = Ttk_CreateTheme(interp, "classic", NULL); if (!theme) { return TCL_ERROR; } /* * Register elements: */ Ttk_RegisterElement(interp, theme, "highlight", &HighlightElementSpec, NULL); Ttk_RegisterElement(interp, theme, "Button.border", &ButtonBorderElementSpec, NULL); Ttk_RegisterElement(interp, theme, "uparrow", &ArrowElementSpec, &ArrowElements[0]); Ttk_RegisterElement(interp, theme, "downarrow", &ArrowElementSpec, &ArrowElements[1]); Ttk_RegisterElement(interp, theme, "leftarrow", &ArrowElementSpec, &ArrowElements[2]); Ttk_RegisterElement(interp, theme, "rightarrow", &ArrowElementSpec, &ArrowElements[3]); Ttk_RegisterElement(interp, theme, "arrow", &ArrowElementSpec, &ArrowElements[0]); Ttk_RegisterElement(interp, theme, "hsash", &SashElementSpec, &SashClientData[0]); Ttk_RegisterElement(interp, theme, "vsash", &SashElementSpec, &SashClientData[1]); /* * Register layouts: */ Ttk_RegisterLayouts(theme, LayoutTable); Tcl_PkgProvide(interp, "ttk::theme::classic", TTK_VERSION); return TCL_OK; }
int Hal_Init(Tcl_Interp *interp) { int result = init(); if(result < 0) { Tcl_ResetResult(interp); halError(interp, result); return TCL_ERROR; } Tcl_CreateCommand(interp, "hal", halCmd, 0, halExit); Tcl_PkgProvide(interp, "Hal", "1.0"); return TCL_OK; }
int Pgtcl_Init(Tcl_Interp *interp) { PgCmd *cmdPtr; #ifdef WIN32 WSADATA wsaData; #endif #ifdef USE_TCL_STUBS if (Tcl_InitStubs(interp, "8.1", 0) == NULL) return TCL_ERROR; #endif #ifdef WIN32 /* * Load the socket DLL and initialize the function table. */ if (WSAStartup(MAKEWORD(1, 1), &wsaData)) { /* * No really good way to do error handling here, since we * don't know how we were loaded */ return FALSE; } #endif /* * Tcl versions >= 8.1 use UTF-8 for their internal string * representation. Therefore PGCLIENTENCODING must be set to UNICODE * for these versions. */ Tcl_PutEnv("PGCLIENTENCODING=UNICODE"); /* * register all pgtcl commands */ for (cmdPtr = commands; cmdPtr->name != NULL; cmdPtr++) { Tcl_CreateObjCommand(interp, cmdPtr->name, cmdPtr->objProc, (ClientData) "::", NULL); Tcl_CreateObjCommand(interp, cmdPtr->altname, cmdPtr->objProc, (ClientData) "::pg::", NULL); } if (Tcl_Eval(interp, "namespace eval ::pg namespace export *") == TCL_ERROR) return TCL_ERROR; return Tcl_PkgProvide(interp, "Pgtcl", PACKAGE_VERSION); }
static int NsPerl2InitInterp(Tcl_Interp *interp, void *context) { Tcl_Namespace *nsPtr; nsPtr = Tcl_CreateNamespace(interp, "perl", NULL, NULL); if(!nsPtr) return TCL_ERROR; Tcl_CreateObjCommand(interp,"perl::call",NsPerl2CallCmd, NULL, NULL); Tcl_PkgProvide(interp, "nsperl2", "0.1"); return TCL_OK; }
int Ucp_Init(Tcl_Interp *interp) { Tk_Window main; Tcl_PkgProvide(interp, "Ucp", "3.0" ) ; main = Tk_MainWindow(interp); Tcl_CreateCommand(interp, "dpadm", dpadmCmd, main, NULL) ; Tcl_CreateCommand(interp, "dcrt", dcrtCmd, main, NULL) ; Tcl_CreateCommand(interp, "dprt", dprtCmd, main, NULL) ; Tcl_CreateCommand(interp, "dcc", dccCmd, main, NULL) ; return TCL_OK; }
// ################################################################ // 4. Rename the function using the name of the library + _Init // ################################################################ // example edfnfll_init for edfnfll int Edfnf_Init(Tcl_Interp *interp) { DBG("\nEdfnf_Init TCL v[%s]", TCL_VERSION); if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { DBG("\nerror "); return TCL_ERROR; } DBG("\nCreating command [%s]\n",COMMAND_NAME); //once it receives the command from TCL COMMAND_NAME,is sent the function call SimulatorCmd Tcl_CreateObjCommand(interp, COMMAND_NAME, (void*)SimulatorCmd, NULL, NULL); Tcl_PkgProvide(interp, COMMAND_NAME, "1.1"); return TCL_OK; }
int Viewimage_Init(Tcl_Interp *interp) { /* initialize the stub table interface */ if (Tcl_InitStubs(interp,"8.1",0)==NULL) { return TCL_ERROR; } if (Tk_InitStubs(interp,"8.1",0)==NULL) { return TCL_ERROR; } if (Tcl_PkgRequire(interp,"Tk","8.1",0)==NULL) { return TCL_ERROR; } if (Tcl_PkgRequire(interp,"mvthimage","1.0",0)==NULL) { return TCL_ERROR; } /* initialize the new, alternative image context handling code */ MvthImageState_Init(interp); /* Initialize the Tcl script for viewing images in a Tk window.*/ char buff[1024]; snprintf(buff,sizeof(buff),"%s/viewimage.tcl",TCLSCRIPTDIR); fprintf(stdout,"viewimage.tcl should be located at: %s\n",buff); Tcl_EvalFile(interp,buff); Tcl_VarEval(interp, "puts stdout {viewimage Copyright (C) 2009 Sam Bromley};", "puts stdout {This software comes with ABSOLUTELY NO WARRANTY.};", "puts stdout {This is free software, and you are welcome to};", "puts stdout {redistribute it under certain conditions.};", "puts stdout {For details, see the GNU Lesser Public License V.3 <http://www.gnu.org/licenses>.};", NULL); Tcl_VarEval(interp, "proc miexpand {w} {" "foreach {wo ho do bo} [mi size $w] break;" "set c [::viewimage::canvasNameFromImg $w];" "set wi [winfo width $c];" "set hi [winfo height $c];" "set wi [expr {$wi-3}];" "set hi [expr {$hi-3}];" "if {$wi<=0} {set wi 10};" "if {$hi<=0} {set hi 10};" "mi size $w [list $wi $hi $bo];" "xblitimage $w;" "}",NULL); /* Declare that we provide the buriedtargets package */ Tcl_PkgProvide(interp,"viewimage","1.0"); return TCL_OK; }
//-------------------------------------------------------------------------- extern "C" HQP_API int Hqp_Init(Tcl_Interp *interp) { // provide Tcl package Hqp if (Tcl_InitStubs(interp, "8.1", 0) == NULL || Tcl_PkgProvide(interp, "Hqp", (char *)Hqp_Version) != TCL_OK) { return TCL_ERROR; } // initialize global reference to Tcl interpreter theInterp = interp; // disable Meschach's error counting // (otherwise program would exit if counter reaches 100) count_errs(0); // allocate interface modules # ifdef IF_CLASS_STATIC Hqp_ClassAlloc(); # endif // create initial state theSqpProgram = NULL; theSqpSolver = new Hqp_SqpPowell; _ifList.append(new IF_MODULE("prg_name", &theSqpProgram, Hqp_SqpProgram)); _ifList.append(new IF_MODULE("sqp_solver", &theSqpSolver, Hqp_SqpSolver)); _ifList.append(new IF_MODULE("mip_solver", &theMipSolver, Hqp_MipSolver)); _ifList.append(new If_String("hqp_version", &Hqp_Version)); _ifList.append(new If_Procedure("m_version", &m_version_cmd)); // evaluate hqp_solve.tcl extern char *hqp_solve; if (Tcl_Eval(interp, hqp_solve) == TCL_ERROR) { fprintf(stderr, "Evaluation of built-in code failed: %s\n", Tcl_GetStringResult(interp)); } // evaluate file ~/.hqprc if it exists if (Tcl_Eval(interp, "if {[file exists ~/.hqprc]} {source ~/.hqprc}") != TCL_OK) { fprintf(stderr, "Evaluation of ~/.hqprc failed: %s\n", Tcl_GetStringResult(interp)); } return TCL_OK; }
/* * Load the extension in normal execution mode */ int DLLEXPORT Tclliquid_Init(Tcl_Interp *interp) { // Initialize the stubs and verify the result if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) return TCL_ERROR; // Initialize the package provided by this extension if (Tcl_PkgProvide(interp, "liquid", "0.1.0") == TCL_ERROR) return TCL_ERROR; // Initialize commands Tcl_CreateObjCommand(interp, LiquidNamespace"validate", LiquidValidate_Command, NULL, NULL); Tcl_CreateObjCommand(interp, LiquidNamespace"render", LiquidRender_Command, NULL, NULL); // All set! return TCL_OK; }
EXTERN int Pkgd_SafeInit( Tcl_Interp *interp) /* Interpreter in which the package is to be * made available. */ { int code; if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { return TCL_ERROR; } code = Tcl_PkgProvide(interp, "Pkgd", "7.3"); if (code != TCL_OK) { return code; } Tcl_CreateObjCommand(interp, "pkgd_sub", Pkgd_SubObjCmd, NULL, NULL); return TCL_OK; }