From: Lars Unger <unger.lars@siemens.com>
Date: Wed, 4 Nov 2009 20:57:26 +0000 (+0000)
Subject: Added support for FT_SetBitmode and FT_GetBitmode.
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=fc9279c22b7f2f91593012ca74cca30f02afb758;p=tclftd2xx

Added support for FT_SetBitmode and FT_GetBitmode.
This is needed to control the output mode on some prototype boards.

Signed-off-by: Lars Unger <unger.lars@siemens.com>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
---

diff --git a/tclftd2xx.c b/tclftd2xx.c
index 1185d2b..884d962 100644
--- a/tclftd2xx.c
+++ b/tclftd2xx.c
@@ -20,6 +20,7 @@ typedef FT_STATUS (WINAPI FT_CreateDeviceInfoListProc)(LPDWORD);
 typedef FT_STATUS (WINAPI FT_GetDeviceInfoListProc)
     (FT_DEVICE_LIST_INFO_NODE*,LPDWORD);
 typedef FT_STATUS (WINAPI FT_GetLatencyTimerProc)(FT_HANDLE,PUCHAR);
+typedef FT_STATUS (WINAPI FT_GetBitmodeProc)(FT_HANDLE,PUCHAR);
 typedef FT_STATUS (WINAPI FT_GetStatusProc)(FT_HANDLE,LPDWORD,LPDWORD,LPDWORD);
 typedef FT_STATUS (WINAPI FT_OpenExProc)(PVOID,DWORD,FT_HANDLE*);
 typedef FT_STATUS (WINAPI FT_PurgeProc)(FT_HANDLE,ULONG);
@@ -27,6 +28,7 @@ typedef FT_STATUS (WINAPI FT_ReadProc)(FT_HANDLE,LPVOID,DWORD,LPDWORD);
 typedef FT_STATUS (WINAPI FT_ResetPortProc)(FT_HANDLE);
 typedef FT_STATUS (WINAPI FT_SetEventNotificationProc)(FT_HANDLE,DWORD,PVOID);
 typedef FT_STATUS (WINAPI FT_SetLatencyTimerProc)(FT_HANDLE,UCHAR);
+typedef FT_STATUS (WINAPI FT_SetBitmodeProc)(FT_HANDLE,UCHAR,UCHAR);
 typedef FT_STATUS (WINAPI FT_SetTimeoutsProc)(FT_HANDLE,ULONG,ULONG);
 typedef FT_STATUS (WINAPI FT_WriteProc)(FT_HANDLE,LPVOID,DWORD,LPDWORD);
 typedef FT_STATUS (WINAPI FT_GetLibraryVersionProc)(LPDWORD);
@@ -37,6 +39,7 @@ typedef struct FTDIPROCS {
     FT_CreateDeviceInfoListProc *FT_CreateDeviceInfoList;
     FT_GetDeviceInfoListProc *FT_GetDeviceInfoList;
     FT_GetLatencyTimerProc *FT_GetLatencyTimer;
+    FT_GetBitmodeProc *FT_GetBitmode;
     FT_GetStatusProc *FT_GetStatus;
     FT_OpenExProc *FT_OpenEx;
     FT_PurgeProc *FT_Purge;
@@ -44,6 +47,7 @@ typedef struct FTDIPROCS {
     FT_ResetPortProc *FT_ResetPort;
     FT_SetEventNotificationProc *FT_SetEventNotification;
     FT_SetLatencyTimerProc *FT_SetLatencyTimer;
+    FT_SetBitmodeProc *FT_SetBitmode;
     FT_SetTimeoutsProc *FT_SetTimeouts;
     FT_WriteProc *FT_Write;
     FT_GetLibraryVersionProc *FT_GetLibraryVersion;
@@ -276,7 +280,12 @@ ChannelSetOption(ClientData instance, Tcl_Interp *interp,
 	if (r == TCL_OK) {
 	    fts = procs.FT_SetLatencyTimer(instPtr->handle, (UCHAR)tmp);
 	}
-    }
+    } else if (!strcmp("-mode", optionName)) {
+	r = Tcl_GetInt(interp, newValue, &tmp);
+	if (r == TCL_OK) {
+	    fts = procs.FT_SetBitmode(instPtr->handle, (UCHAR)(tmp >> 8), (UCHAR)(tmp & 0xff));
+	}
+	}
 
     if (fts != FT_OK) {
 	Tcl_AppendResult(interp, "error setting ", optionName,
@@ -339,6 +348,17 @@ ChannelGetOption(ClientData instance, Tcl_Interp *interp,
 				 ConvertError(fts), NULL);
 		r = TCL_ERROR;
 	    }
+	} else if (!strcmp("-mode", optionName)) {
+	    UCHAR bmode = 0;
+	    Tcl_DStringSetLength(&ds, TCL_INTEGER_SPACE);
+	    fts = procs.FT_GetBitmode(instPtr->handle, &bmode);
+	    if (fts == FT_OK) {
+		sprintf(Tcl_DStringValue(&ds), "%d", bmode);
+	    } else {
+		Tcl_AppendResult(interp, "failed to read ", optionName, ": ",
+				 ConvertError(fts), NULL);
+		r = TCL_ERROR;
+	    }
 	} else {
 	    const char **p;
 	    for (p = options; *p != NULL; ++p) {