// MACHINE GENERATED BY 'go generate' COMMAND; DO NOT EDIT package interp import ( "syscall" "unsafe" ) var _ unsafe.Pointer // Do the interface allocations only once for common // Errno values. const ( errnoERROR_IO_PENDING = 997 ) var ( errERROR_IO_PENDING error = syscall.Errno(errnoERROR_IO_PENDING) ) // errnoErr returns common boxed Errno values, to prevent // allocations at runtime. func errnoErr(e syscall.Errno) error { switch e { case 0: return nil case errnoERROR_IO_PENDING: return errERROR_IO_PENDING } // TODO: add more here, after collecting data on the common // error values see on Windows. (perhaps when running // all.bat?) return e } var ( modtcl86t = syscall.NewLazyDLL("tcl86t.dll") modtk86t = syscall.NewLazyDLL("tk86t.dll") procTcl_CreateInterp = modtcl86t.NewProc("Tcl_CreateInterp") procTcl_DeleteInterp = modtcl86t.NewProc("Tcl_DeleteInterp") procTcl_Alloc = modtcl86t.NewProc("Tcl_Alloc") procTcl_Eval = modtcl86t.NewProc("Tcl_Eval") procTcl_EvalEx = modtcl86t.NewProc("Tcl_EvalEx") procTcl_GetStringResult = modtcl86t.NewProc("Tcl_GetStringResult") procTcl_GetObjResult = modtcl86t.NewProc("Tcl_GetObjResult") procTcl_GetWideIntFromObj = modtcl86t.NewProc("Tcl_GetWideIntFromObj") procTcl_GetDoubleFromObj = modtcl86t.NewProc("Tcl_GetDoubleFromObj") procTcl_GetBooleanFromObj = modtcl86t.NewProc("Tcl_GetBooleanFromObj") procTcl_GetStringFromObj = modtcl86t.NewProc("Tcl_GetStringFromObj") procTcl_NewWideIntObj = modtcl86t.NewProc("Tcl_NewWideIntObj") procTcl_NewDoubleObj = modtcl86t.NewProc("Tcl_NewDoubleObj") procTcl_NewBooleanObj = modtcl86t.NewProc("Tcl_NewBooleanObj") procTcl_NewStringObj = modtcl86t.NewProc("Tcl_NewStringObj") procTcl_Init = modtcl86t.NewProc("Tcl_Init") procTcl_GetCurrentThread = modtcl86t.NewProc("Tcl_GetCurrentThread") procTcl_ThreadQueueEvent = modtcl86t.NewProc("Tcl_ThreadQueueEvent") procTcl_ThreadAlert = modtcl86t.NewProc("Tcl_ThreadAlert") procTcl_CreateObjCommand = modtcl86t.NewProc("Tcl_CreateObjCommand") procTcl_CreateCommand = modtcl86t.NewProc("Tcl_CreateCommand") procTcl_SetObjResult = modtcl86t.NewProc("Tcl_SetObjResult") procTcl_WrongNumArgs = modtcl86t.NewProc("Tcl_WrongNumArgs") procTcl_NewListObj = modtcl86t.NewProc("Tcl_NewListObj") procTcl_ListObjLength = modtcl86t.NewProc("Tcl_ListObjLength") procTcl_ListObjIndex = modtcl86t.NewProc("Tcl_ListObjIndex") procTcl_ListObjGetElements = modtcl86t.NewProc("Tcl_ListObjGetElements") procTcl_SetListObj = modtcl86t.NewProc("Tcl_SetListObj") procTcl_ListObjAppendElement = modtcl86t.NewProc("Tcl_ListObjAppendElement") procTcl_ListObjReplace = modtcl86t.NewProc("Tcl_ListObjReplace") procTcl_GetVar2Ex = modtcl86t.NewProc("Tcl_GetVar2Ex") procTcl_SetVar = modtcl86t.NewProc("Tcl_SetVar") procTcl_SetVar2Ex = modtcl86t.NewProc("Tcl_SetVar2Ex") procTcl_UnsetVar = modtcl86t.NewProc("Tcl_UnsetVar") procTk_Init = modtk86t.NewProc("Tk_Init") procTk_MainLoop = modtk86t.NewProc("Tk_MainLoop") procTk_FindPhoto = modtk86t.NewProc("Tk_FindPhoto") procTk_PhotoBlank = modtk86t.NewProc("Tk_PhotoBlank") procTk_PhotoSetSize = modtk86t.NewProc("Tk_PhotoSetSize") procTk_PhotoGetSize = modtk86t.NewProc("Tk_PhotoGetSize") procTk_PhotoExpand = modtk86t.NewProc("Tk_PhotoExpand") procTk_PhotoGetImage = modtk86t.NewProc("Tk_PhotoGetImage") procTk_PhotoPutBlock = modtk86t.NewProc("Tk_PhotoPutBlock") procTk_PhotoPutZoomedBlock = modtk86t.NewProc("Tk_PhotoPutZoomedBlock") ) func Tcl_CreateInterp() (interp *Tcl_Interp) { r0, _, _ := syscall.Syscall(procTcl_CreateInterp.Addr(), 0, 0, 0, 0) interp = (*Tcl_Interp)(unsafe.Pointer(r0)) return } func Tcl_DeleteInterp(interp *Tcl_Interp) { syscall.Syscall(procTcl_DeleteInterp.Addr(), 1, uintptr(unsafe.Pointer(interp)), 0, 0) return } func Tcl_Alloc(size uint) (r *Tcl_Event) { r0, _, _ := syscall.Syscall(procTcl_Alloc.Addr(), 1, uintptr(size), 0, 0) r = (*Tcl_Event)(unsafe.Pointer(r0)) return } func Tcl_Eval(interp *Tcl_Interp, script *byte) (r int32) { r0, _, _ := syscall.Syscall(procTcl_Eval.Addr(), 2, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(script)), 0) r = int32(r0) return } func Tcl_EvalEx(interp *Tcl_Interp, script *byte, length int32, flags int32) (r int32) { r0, _, _ := syscall.Syscall6(procTcl_EvalEx.Addr(), 4, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(script)), uintptr(length), uintptr(flags), 0, 0) r = int32(r0) return } func Tcl_GetStringResult(interp *Tcl_Interp) (ret *byte) { r0, _, _ := syscall.Syscall(procTcl_GetStringResult.Addr(), 1, uintptr(unsafe.Pointer(interp)), 0, 0) ret = (*byte)(unsafe.Pointer(r0)) return } func Tcl_GetObjResult(interp *Tcl_Interp) (obj *Tcl_Obj) { r0, _, _ := syscall.Syscall(procTcl_GetObjResult.Addr(), 1, uintptr(unsafe.Pointer(interp)), 0, 0) obj = (*Tcl_Obj)(unsafe.Pointer(r0)) return } func Tcl_GetWideIntFromObj(interp *Tcl_Interp, obj *Tcl_Obj, out *Tcl_WideInt) (status int32) { r0, _, _ := syscall.Syscall(procTcl_GetWideIntFromObj.Addr(), 3, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(obj)), uintptr(unsafe.Pointer(out))) status = int32(r0) return } func Tcl_GetDoubleFromObj(interp *Tcl_Interp, obj *Tcl_Obj, out *Tcl_Double) (status int32) { r0, _, _ := syscall.Syscall(procTcl_GetDoubleFromObj.Addr(), 3, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(obj)), uintptr(unsafe.Pointer(out))) status = int32(r0) return } func Tcl_GetBooleanFromObj(interp *Tcl_Interp, obj *Tcl_Obj, out *int32) (status int32) { r0, _, _ := syscall.Syscall(procTcl_GetBooleanFromObj.Addr(), 3, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(obj)), uintptr(unsafe.Pointer(out))) status = int32(r0) return } func Tcl_GetStringFromObj(obj *Tcl_Obj, length *int32) (ret *byte) { r0, _, _ := syscall.Syscall(procTcl_GetStringFromObj.Addr(), 2, uintptr(unsafe.Pointer(obj)), uintptr(unsafe.Pointer(length)), 0) ret = (*byte)(unsafe.Pointer(r0)) return } func Tcl_NewWideIntObj(value Tcl_WideInt) (obj *Tcl_Obj) { r0, _, _ := syscall.Syscall(procTcl_NewWideIntObj.Addr(), 1, uintptr(value), 0, 0) obj = (*Tcl_Obj)(unsafe.Pointer(r0)) return } func Tcl_NewDoubleObj(value Tcl_Double) (obj *Tcl_Obj) { r0, _, _ := syscall.Syscall(procTcl_NewDoubleObj.Addr(), 1, uintptr(value), 0, 0) obj = (*Tcl_Obj)(unsafe.Pointer(r0)) return } func Tcl_NewBooleanObj(value int32) (obj *Tcl_Obj) { r0, _, _ := syscall.Syscall(procTcl_NewBooleanObj.Addr(), 1, uintptr(value), 0, 0) obj = (*Tcl_Obj)(unsafe.Pointer(r0)) return } func Tcl_NewStringObj(bytes *byte, length int32) (obj *Tcl_Obj) { r0, _, _ := syscall.Syscall(procTcl_NewStringObj.Addr(), 2, uintptr(unsafe.Pointer(bytes)), uintptr(length), 0) obj = (*Tcl_Obj)(unsafe.Pointer(r0)) return } func Tcl_Init(interp *Tcl_Interp) (r int32) { r0, _, _ := syscall.Syscall(procTcl_Init.Addr(), 1, uintptr(unsafe.Pointer(interp)), 0, 0) r = int32(r0) return } func Tcl_GetCurrentThread() (threadid *Tcl_ThreadId) { r0, _, _ := syscall.Syscall(procTcl_GetCurrentThread.Addr(), 0, 0, 0, 0) threadid = (*Tcl_ThreadId)(unsafe.Pointer(r0)) return } func Tcl_ThreadQueueEvent(threadId *Tcl_ThreadId, evPtr *Tcl_Event, positon Tcl_QueuePosition) { syscall.Syscall(procTcl_ThreadQueueEvent.Addr(), 3, uintptr(unsafe.Pointer(threadId)), uintptr(unsafe.Pointer(evPtr)), uintptr(positon)) return } func Tcl_ThreadAlert(threadId *Tcl_ThreadId) { syscall.Syscall(procTcl_ThreadAlert.Addr(), 1, uintptr(unsafe.Pointer(threadId)), 0, 0) return } func Tcl_CreateObjCommand(interp *Tcl_Interp, cmdName *byte, proc uintptr, clientData uintptr, deleteProc uintptr) (cmd *Tcl_Command) { r0, _, _ := syscall.Syscall6(procTcl_CreateObjCommand.Addr(), 5, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(cmdName)), uintptr(proc), uintptr(clientData), uintptr(deleteProc), 0) cmd = (*Tcl_Command)(unsafe.Pointer(r0)) return } func Tcl_CreateCommand(interp *Tcl_Interp, cmdName *byte, proc uintptr, clientData uintptr, deleteProc uintptr) (cmd *Tcl_Command) { r0, _, _ := syscall.Syscall6(procTcl_CreateCommand.Addr(), 5, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(cmdName)), uintptr(proc), uintptr(clientData), uintptr(deleteProc), 0) cmd = (*Tcl_Command)(unsafe.Pointer(r0)) return } func Tcl_SetObjResult(interp *Tcl_Interp, resultObjPtr *Tcl_Obj) { syscall.Syscall(procTcl_SetObjResult.Addr(), 2, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(resultObjPtr)), 0) return } func Tcl_WrongNumArgs(interp *Tcl_Interp, objc int32, objv uintptr, message *byte) { syscall.Syscall6(procTcl_WrongNumArgs.Addr(), 4, uintptr(unsafe.Pointer(interp)), uintptr(objc), uintptr(objv), uintptr(unsafe.Pointer(message)), 0, 0) return } func Tcl_NewListObj(objc int, objv **Tcl_Obj) (obj *Tcl_Obj) { r0, _, _ := syscall.Syscall(procTcl_NewListObj.Addr(), 2, uintptr(objc), uintptr(unsafe.Pointer(objv)), 0) obj = (*Tcl_Obj)(unsafe.Pointer(r0)) return } func Tcl_ListObjLength(interp *Tcl_Interp, listobj *Tcl_Obj, length *int32) (status int32) { r0, _, _ := syscall.Syscall(procTcl_ListObjLength.Addr(), 3, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(listobj)), uintptr(unsafe.Pointer(length))) status = int32(r0) return } func Tcl_ListObjIndex(interp *Tcl_Interp, listobj *Tcl_Obj, index int32, out **Tcl_Obj) (status int32) { r0, _, _ := syscall.Syscall6(procTcl_ListObjIndex.Addr(), 4, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(listobj)), uintptr(index), uintptr(unsafe.Pointer(out)), 0, 0) status = int32(r0) return } func Tcl_ListObjGetElements(interp *Tcl_Interp, listobj *Tcl_Obj, objc *int32, objv ***Tcl_Obj) (status int32) { r0, _, _ := syscall.Syscall6(procTcl_ListObjGetElements.Addr(), 4, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(listobj)), uintptr(unsafe.Pointer(objc)), uintptr(unsafe.Pointer(objv)), 0, 0) status = int32(r0) return } func Tcl_SetListObj(listobj *Tcl_Obj, objc int, objv **Tcl_Obj) { syscall.Syscall(procTcl_SetListObj.Addr(), 3, uintptr(unsafe.Pointer(listobj)), uintptr(objc), uintptr(unsafe.Pointer(objv))) return } func Tcl_ListObjAppendElement(interp *Tcl_Interp, listobj *Tcl_Obj, obj *Tcl_Obj) (status int32) { r0, _, _ := syscall.Syscall(procTcl_ListObjAppendElement.Addr(), 3, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(listobj)), uintptr(unsafe.Pointer(obj))) status = int32(r0) return } func Tcl_ListObjReplace(interp *Tcl_Interp, listobj *Tcl_Obj, first int32, count int32, objc int32, objv **Tcl_Obj) (status int32) { r0, _, _ := syscall.Syscall6(procTcl_ListObjReplace.Addr(), 6, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(listobj)), uintptr(first), uintptr(count), uintptr(objc), uintptr(unsafe.Pointer(objv))) status = int32(r0) return } func Tcl_GetVar2Ex(interp *Tcl_Interp, part1 *byte, part2 *byte, flags int32) (obj *Tcl_Obj) { r0, _, _ := syscall.Syscall6(procTcl_GetVar2Ex.Addr(), 4, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(part1)), uintptr(unsafe.Pointer(part2)), uintptr(flags), 0, 0) obj = (*Tcl_Obj)(unsafe.Pointer(r0)) return } func Tcl_SetVar(interp *Tcl_Interp, name *byte, value *byte, flags int32) (r *byte) { r0, _, _ := syscall.Syscall6(procTcl_SetVar.Addr(), 4, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(name)), uintptr(unsafe.Pointer(value)), uintptr(flags), 0, 0) r = (*byte)(unsafe.Pointer(r0)) return } func Tcl_SetVar2Ex(interp *Tcl_Interp, part1 *byte, part2 *byte, value *Tcl_Obj, flags int32) (r *byte) { r0, _, _ := syscall.Syscall6(procTcl_SetVar2Ex.Addr(), 5, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(part1)), uintptr(unsafe.Pointer(part2)), uintptr(unsafe.Pointer(value)), uintptr(flags), 0) r = (*byte)(unsafe.Pointer(r0)) return } func Tcl_UnsetVar(interp *Tcl_Interp, part1 *byte, flags int32) (status int32) { r0, _, _ := syscall.Syscall(procTcl_UnsetVar.Addr(), 3, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(part1)), uintptr(flags)) status = int32(r0) return } func Tk_Init(interp *Tcl_Interp) (r int32) { r0, _, _ := syscall.Syscall(procTk_Init.Addr(), 1, uintptr(unsafe.Pointer(interp)), 0, 0) r = int32(r0) return } func Tk_MainLoop() { syscall.Syscall(procTk_MainLoop.Addr(), 0, 0, 0, 0) return } func Tk_FindPhoto(interp *Tcl_Interp, imageName *byte) (handle *Tk_PhotoHandle) { r0, _, _ := syscall.Syscall(procTk_FindPhoto.Addr(), 2, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(imageName)), 0) handle = (*Tk_PhotoHandle)(unsafe.Pointer(r0)) return } func Tk_PhotoBlank(handle *Tk_PhotoHandle) { syscall.Syscall(procTk_PhotoBlank.Addr(), 1, uintptr(unsafe.Pointer(handle)), 0, 0) return } func Tk_PhotoSetSize(interp *Tcl_Interp, handle *Tk_PhotoHandle, width int32, height int32) (status int32) { r0, _, _ := syscall.Syscall6(procTk_PhotoSetSize.Addr(), 4, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(handle)), uintptr(width), uintptr(height), 0, 0) status = int32(r0) return } func Tk_PhotoGetSize(hanlde *Tk_PhotoHandle, widthPtr *int32, heightPtr *int32) { syscall.Syscall(procTk_PhotoGetSize.Addr(), 3, uintptr(unsafe.Pointer(hanlde)), uintptr(unsafe.Pointer(widthPtr)), uintptr(unsafe.Pointer(heightPtr))) return } func Tk_PhotoExpand(interp *Tcl_Interp, handle *Tk_PhotoHandle, width int32, height int32) (status int32) { r0, _, _ := syscall.Syscall6(procTk_PhotoExpand.Addr(), 4, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(handle)), uintptr(width), uintptr(height), 0, 0) status = int32(r0) return } func Tk_PhotoGetImage(handle *Tk_PhotoHandle, blockPtr *Tk_PhotoImageBlock) (status int32) { r0, _, _ := syscall.Syscall(procTk_PhotoGetImage.Addr(), 2, uintptr(unsafe.Pointer(handle)), uintptr(unsafe.Pointer(blockPtr)), 0) status = int32(r0) return } func Tk_PhotoPutBlock(interp *Tcl_Interp, handle *Tk_PhotoHandle, blockPtr *Tk_PhotoImageBlock, x int32, y int32, width int32, height int32, compRule int32) (status int32) { r0, _, _ := syscall.Syscall9(procTk_PhotoPutBlock.Addr(), 8, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(handle)), uintptr(unsafe.Pointer(blockPtr)), uintptr(x), uintptr(y), uintptr(width), uintptr(height), uintptr(compRule), 0) status = int32(r0) return } func Tk_PhotoPutZoomedBlock(interp *Tcl_Interp, handle *Tk_PhotoHandle, blockPtr *Tk_PhotoImageBlock, x int32, y int32, width int32, height int32, zoomX int32, zoomY int32, subsampleX int32, subsampleY int32, compRule int32) (status int32) { r0, _, _ := syscall.Syscall12(procTk_PhotoPutZoomedBlock.Addr(), 12, uintptr(unsafe.Pointer(interp)), uintptr(unsafe.Pointer(handle)), uintptr(unsafe.Pointer(blockPtr)), uintptr(x), uintptr(y), uintptr(width), uintptr(height), uintptr(zoomX), uintptr(zoomY), uintptr(subsampleX), uintptr(subsampleY), uintptr(compRule)) status = int32(r0) return }