#line 3348 "mpssespi.aweb"
/*
 * DO NOT EDIT THIS FILE!
 * THIS FILE IS AUTOMATICALLY EXTRACTED FROM A LITERATE PROGRAM SOURCE FILE.
 *
 * This software is copyrighted 2014 by G. Andrew Mangogna.  The following
 * terms apply to all files associated with the software unless explicitly
 * disclaimed in individual files.
................................................................................
/*
 * MACRO DEFINITIONS
 */
#ifndef COUNTOF
#   define COUNTOF(a)  (sizeof(a) / sizeof(a[0]))
#endif /* COUNTOF */

#line 313 "mpssespi.aweb"
#define DEFAULT_CHANNEL_CONFIG_ClockRate    1000000
#define DEFAULT_CHANNEL_CONFIG_LatencyTimer 2
#define DEFAULT_CHANNEL_CONFIG_configOptions \
        (SPI_CONFIG_OPTION_MODE0 |\
         SPI_CONFIG_OPTION_CS_DBUS3 |\
         SPI_CONFIG_OPTION_CS_ACTIVELOW)
#define DEFAULT_CHANNEL_CONFIG_Pin          0
#line 335 "mpssespi.aweb"
#define DEFAULT_TRANSFER_OPTIONS \
    (SPI_TRANSFER_OPTIONS_SIZE_IN_BYTES |\
     SPI_TRANSFER_OPTIONS_CHIPSELECT_ENABLE|\
     SPI_TRANSFER_OPTIONS_CHIPSELECT_DISABLE)
#line 1727 "mpssespi.aweb"
#define BITMASK(l)              ((1 << (l)) - 1)
#define FIELDMASK(o, l)         (BITMASK(l) << (o))
#define EXTRACT_BITFIELD(v, o, l)   (((v) & FIELDMASK(o, l)) >> (o))

#define CLEARFIELD(v, o, l)     ((v) & ~FIELDMASK(o, l))
#define ALIGNTOFIELD(f, o, l)   (((f) & BITMASK(l)) << (o))
#define INSERT_BITFIELD(v, f, o, l)\
    (CLEARFIELD(v, o, l) | ALIGNTOFIELD(f, o, l))

#define IS_BIT_XFER(o) (((o) & SPI_TRANSFER_OPTIONS_SIZE_IN_BITS) != 0)
#line 1751 "mpssespi.aweb"
#define PIN_BITFIELD_LENGTH         8

#define PIN_INITIAL_DIR_OFFSET      0
#define PIN_INITIAL_VALUE_OFFSET\
    (PIN_INITIAL_DIR_OFFSET + PIN_BITFIELD_LENGTH)
#define PIN_CLOSE_DIR_OFFSET\
    (PIN_INITIAL_VALUE_OFFSET + PIN_BITFIELD_LENGTH)
#define PIN_CLOSE_VALUE_OFFSET\
    (PIN_CLOSE_DIR_OFFSET + PIN_BITFIELD_LENGTH)

/*
 * TYPE DEFINITIONS
 */
#line 145 "mpssespi.aweb"
typedef struct MPSSEPkgInfo {
    Tcl_HashTable handleMap ;       /* <1> */
    unsigned counter ;              /* <2> */
} MPSSEPkgInfo ;
#line 229 "mpssespi.aweb"
typedef struct MPSSSEChanInfo {
    FT_HANDLE handle ;          /* <1> */
    bool isInitialized ;        /* <2> */
    ChannelConfig config ;      /* <3> */
    uint32 transferOptions ;    /* <4> */
} MPSSEChanConfig ;

................................................................................
/*
 * EXTERNAL DATA DEFINITIONS
 */

/*
 * STATIC DATA DEFINITIONS
 */








































#line 3219 "mpssespi.aweb"
















static char const mpssespi_ns_name[] = "::mpssespi" ;

#line 3298 "mpssespi.aweb"
#if TCL_MAJOR_VERSION >= 8 && TCL_MINOR_VERSION >= 5
static Tcl_Config mpssespi_config[] = {
    {"pkgname", PACKAGE_NAME},
    {"version", PACKAGE_VERSION},
    {"copyright",
"This software is copyrighted 2014 by G. Andrew Mangogna.\
 Terms and conditions for use are distributed with the source code."},
    {NULL, NULL}
} ;
#endif

/*
 * STATIC FUNCTION DEFINITIONS
 */
#line 193 "mpssespi.aweb"
static void
DeleteMPSSEPkgInfo(
    ClientData clientData,
    Tcl_Interp *interp)
{
    MPSSEPkgInfo *info ;
    Tcl_HashEntry *entry ;
................................................................................
        MPSSEChanConfig *config = (MPSSEChanConfig *)Tcl_GetHashValue(entry) ;
        ckfree((char *)config) ;
    }
    Tcl_DeleteHashTable(&info->handleMap) ; /* <2> */

    ckfree((char *)info) ; /* <3> */
}
#line 165 "mpssespi.aweb"
static ClientData
NewMPSSEPkgInfo(
    Tcl_Interp *interp)
{
    MPSSEPkgInfo *info ;

    info = (MPSSEPkgInfo *)ckalloc(sizeof(*info)) ;
    memset(info, 0, sizeof(*info)) ;
    Tcl_InitHashTable(&info->handleMap, TCL_STRING_KEYS) ;            /* <1> */
    Tcl_SetAssocData(interp, PACKAGE_NAME, DeleteMPSSEPkgInfo, info) ;/* <2> */

    return (ClientData)info ;
}
#line 262 "mpssespi.aweb"
static Tcl_Obj *
NewHandleMapping(
    MPSSEPkgInfo *info,
    FT_HANDLE handle)
{
    Tcl_Obj *handleName ;
    Tcl_HashEntry *entry ;
................................................................................
    } else {
        Tcl_Panic("failed to create mpssespi channel handle entry, \"%s\"\n",
            Tcl_GetString(handleName)) ;
    }

    return handleName ;
}
#line 362 "mpssespi.aweb"
static void
DeleteHandleMapping(
    MPSSEPkgInfo *info,
    Tcl_Obj *handleName)
{
    Tcl_HashEntry *entry ;
    MPSSEChanConfig *chanConfig ;
................................................................................
    assert(entry != NULL) ;
    if (entry) {
        chanConfig = (MPSSEChanConfig *)Tcl_GetHashValue(entry) ;
        ckfree((char *)chanConfig) ;
        Tcl_DeleteHashEntry(entry) ;
    }
}
#line 391 "mpssespi.aweb"
static int
LookUpHandle(
    Tcl_Interp *interp,
    MPSSEPkgInfo *info,
    Tcl_Obj *handleName,
    MPSSEChanConfig **chanConfigPtr)
{
................................................................................
        return TCL_OK ;
    } else {
        Tcl_SetObjResult(interp, Tcl_ObjPrintf("unknown channel handle, \"%s\"",
                Tcl_GetString(handleName))) ;
        return TCL_ERROR ;
    }
}
#line 1255 "mpssespi.aweb"
static int
GetDirectionDict(
    Tcl_Interp *interp,
    uint8 dirBitMask,
    Tcl_Obj **dirDictObjPtr)
{
    char key[2] ; /* <1> */
................................................................................
    return TCL_OK ;

errorout:
    Tcl_DecrRefCount(dirObj) ;
    *dirDictObjPtr = NULL ;
    return TCL_ERROR ;
}
#line 1312 "mpssespi.aweb"
static int
GetPinValueDict(
    Tcl_Interp *interp,
    uint8 pinBitMask,
    Tcl_Obj **pinDictObjPtr)
{
    char key[2] ;
................................................................................
    return TCL_OK ;

errorout:
    Tcl_DecrRefCount(pinObj) ;
    *pinDictObjPtr = NULL ;
    return TCL_ERROR ;
}
#line 1784 "mpssespi.aweb"
static int
GetDirectionBitMask(
    Tcl_Interp *interp,
    Tcl_Obj *dirSpecObj,
    uint8 *directionPtr)
{
    char key[2] ;
................................................................................

    return TCL_OK ;

errorout:
    Tcl_DecrRefCount(keyObj) ;
    return TCL_ERROR ;
}
#line 1845 "mpssespi.aweb"
static int
GetPinValueBitMask(
    Tcl_Interp *interp,
    Tcl_Obj *lvalueSpecObj,
    uint8 *lvaluePtr)
{
    char key[2] ;
................................................................................

    return TCL_OK ;

errorout:
    Tcl_DecrRefCount(keyObj) ;
    return TCL_ERROR ;
}
#line 2185 "mpssespi.aweb"
static int
SetTransferOptions(
    Tcl_Interp *interp,
    Tcl_Obj *optionsDict,
    uint32 *optionsPtr)
{
    uint32 transferOptions ;
................................................................................
    *optionsPtr = transferOptions ;
    return TCL_OK ;

errorout:
    Tcl_DecrRefCount(key) ;
    return TCL_ERROR ;
}
#line 2273 "mpssespi.aweb"
static int
ConvertXferUnitsToBytes(
    uint32 transferOptions,
    uint32 xferSize)
{
    return IS_BIT_XFER(transferOptions) ? (xferSize + 7) / 8 : xferSize ;
}
#line 2444 "mpssespi.aweb"
static int
VerifyOutputLength(
    Tcl_Interp *interp,
    uint32 transferOptions,
    int byteLen,
    int bitLen)
{
................................................................................
            "output data is %d bytes long, \
however %d bits were requested to be written",
            byteLen, bitLen)) ;
        return TCL_ERROR ;
    }
    return TCL_OK ;
}
#line 3091 "mpssespi.aweb"
static int
SetStatusResult(
    Tcl_Interp *interp,
    FT_STATUS status)
{
    static struct ftErrorMap {
        char const *resultString ;
................................................................................
        Tcl_Obj *result = Tcl_GetObjResult(interp) ;
        Tcl_AppendPrintfToObj(result, "unknown FT_STATUS value, \"%d\"",
            status) ;
        Tcl_SetObjResult(interp, result) ;
    }
    return TCL_ERROR ;
}
#line 3152 "mpssespi.aweb"
static void
SetInitializationError(
    Tcl_Interp *interp)
{
    static char const msg[] = "channel must be initialized first" ;
    Tcl_SetObjResult(interp, Tcl_NewStringObj(msg, -1)) ;
    Tcl_SetErrorCode(interp, "MPSSESPI", "UNINITIALIZED", msg, NULL) ;
}
#line 454 "mpssespi.aweb"
static int
GetNumChannelsProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    result = SetStatusResult(interp, status) ;     /* <2> */
    if (result == TCL_OK) {
        Tcl_SetObjResult(interp, Tcl_NewLongObj(numChannels)) ;
    }
    return result ;
}

#line 568 "mpssespi.aweb"
static int
GetChannelInfoProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    return result ;

errout:
    Tcl_DecrRefCount(infoObj) ;
    return TCL_ERROR ;
}

#line 759 "mpssespi.aweb"
static int
OpenChannelProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
                handle) ;       /* <1> */
        Tcl_SetObjResult(interp, handleName) ;
    }

    return result ;
}

#line 872 "mpssespi.aweb"
static int
InitChannelProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
        chanConfig->isInitialized = 1 ;     /* <3> */
        Tcl_ResetResult(interp) ;
    }

    return result ;
}

#line 1035 "mpssespi.aweb"
static int
GetChannelConfigProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    Tcl_DecrRefCount(pinObj) ;

errorout:
    Tcl_DecrRefCount(configObj) ;
    return TCL_ERROR ;
}

#line 1455 "mpssespi.aweb"
static int
SetChannelConfigProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    return TCL_OK ;

errorout:
    Tcl_DecrRefCount(keyObj) ;
    return TCL_ERROR ;
}

#line 1920 "mpssespi.aweb"
static int
CloseChannelProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
        DeleteHandleMapping(pkgInfo, handleObj) ; /* <1> */
        Tcl_ResetResult(interp) ;
    }

    return result ;
}

#line 2044 "mpssespi.aweb"
static int
ReadChannelProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    } else {
        Tcl_DecrRefCount(inputObj) ;
    }

    return result ;
}

#line 2352 "mpssespi.aweb"
static int
WriteChannelProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    if (result == TCL_OK) {
        Tcl_SetObjResult(interp, Tcl_NewIntObj(xferActual)) ;
    }

    return result ;
}

#line 2586 "mpssespi.aweb"
static int
ReadWriteChannelProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    } else {
        Tcl_DecrRefCount(inputObj) ;
    }

    return result ;
}

#line 2725 "mpssespi.aweb"
static int
IsBusyProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    if (result == TCL_OK) {
        Tcl_SetObjResult(interp, Tcl_NewBooleanObj(busyStatus)) ;
    }

    return result ;
}

#line 2823 "mpssespi.aweb"
static int
ChangeCSProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    if (result == TCL_OK) {
        Tcl_ResetResult(interp) ;
    }

    return result ;
}

#line 2915 "mpssespi.aweb"
static int
WriteGPIOProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    if (result == TCL_OK) {
        Tcl_ResetResult(interp) ;
    }

    return result ;
}

#line 3012 "mpssespi.aweb"
static int
ReadGPIOProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    return TCL_OK ;
}


/*
 * EXTERNAL FUNCTION DEFINITIONS
 */
#line 3180 "mpssespi.aweb"
DLLEXPORT       /* <1> */
int
Mpssespi_Init(
    Tcl_Interp *interp)
{
    ClientData clientData ;
    Tcl_Namespace *ns ;



    if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
        return TCL_ERROR ;
    }

    clientData = NewMPSSEPkgInfo(interp) ;  /* <2> */

    Init_libMPSSE() ;

    #line 3222 "mpssespi.aweb"
    ns = Tcl_CreateNamespace(interp, mpssespi_ns_name, NULL, NULL) ;

    #line 484 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::getNumChannels", GetNumChannelsProc,
            clientData, NULL) ;







    #line 681 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::getChannelInfo", GetChannelInfoProc,
            clientData, NULL) ;







    #line 804 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::openChannel", OpenChannelProc,
            clientData, NULL) ;







    #line 911 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::initChannel", InitChannelProc,
            clientData, NULL) ;







    #line 1210 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::getChannelConfig",
            GetChannelConfigProc, clientData, NULL) ;







    #line 1685 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::setChannelConfig",
            SetChannelConfigProc, clientData, NULL) ;







    #line 1960 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::closeChannel", CloseChannelProc,
            clientData, NULL) ;







    #line 2127 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::readChannel", ReadChannelProc,
            clientData, NULL) ;







    #line 2426 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::writeChannel", WriteChannelProc,
            clientData, NULL) ;







    #line 2676 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::readWriteChannel",
            ReadWriteChannelProc, clientData, NULL) ;







    #line 2767 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::isBusy", IsBusyProc, clientData,
            NULL) ;







    #line 2863 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::changeCS", ChangeCSProc, clientData,
            NULL) ;







    #line 2967 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::writeGPIO", WriteGPIOProc,
            clientData, NULL) ;







    #line 3060 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, "::mpssespi::readGPIO", ReadGPIOProc,
            clientData, NULL) ;
    #line 3231 "mpssespi.aweb"
    if (Tcl_Export(interp, ns, "*", 0) != TCL_OK) {
        return TCL_ERROR ;

    }





    (void)Tcl_CreateEnsemble(interp, mpssespi_ns_name, ns, TCL_ENSEMBLE_PREFIX) ;




    #line 3315 "mpssespi.aweb"
    #       if TCL_MAJOR_VERSION >= 8 && TCL_MINOR_VERSION >= 5
        Tcl_RegisterConfig(interp, PACKAGE_NAME, mpssespi_config, "iso8859-1") ;
    #       endif

    Tcl_PkgProvide(interp, "mpssespi", PACKAGE_VERSION) ;
    return TCL_OK ;
}





#line 3266 "mpssespi.aweb"
DLLEXPORT int
Mpssespi_SafeInit(
    Tcl_Interp *interp)
{
    return TCL_ERROR ;
}

#if TCL_MAJOR_VERSION >= 8 && TCL_MINOR_VERSION >= 5
#line 3247 "mpssespi.aweb"
DLLEXPORT int
Mpssespi_Unload(
    Tcl_Interp *interp)
{
    Cleanup_libMPSSE() ;
    return TCL_OK ;
}
#line 3276 "mpssespi.aweb"
DLLEXPORT
int
Mpssespi_SafeUnload(
    Tcl_Interp *interp)
{
    return TCL_ERROR ;
}
#endif /* TCL_MAJOR_VERSION >= 8 && TCL_MINOR_VERSION >= 5 */

#line 3550 "mpssespi.aweb"
/*
 * DO NOT EDIT THIS FILE!
 * THIS FILE IS AUTOMATICALLY EXTRACTED FROM A LITERATE PROGRAM SOURCE FILE.
 *
 * This software is copyrighted 2014 by G. Andrew Mangogna.  The following
 * terms apply to all files associated with the software unless explicitly
 * disclaimed in individual files.
................................................................................
/*
 * MACRO DEFINITIONS
 */
#ifndef COUNTOF
#   define COUNTOF(a)  (sizeof(a) / sizeof(a[0]))
#endif /* COUNTOF */

#line 329 "mpssespi.aweb"
#define DEFAULT_CHANNEL_CONFIG_ClockRate    1000000
#define DEFAULT_CHANNEL_CONFIG_LatencyTimer 2
#define DEFAULT_CHANNEL_CONFIG_configOptions \
        (SPI_CONFIG_OPTION_MODE0 |\
         SPI_CONFIG_OPTION_CS_DBUS3 |\
         SPI_CONFIG_OPTION_CS_ACTIVELOW)
#define DEFAULT_CHANNEL_CONFIG_Pin          0
#line 351 "mpssespi.aweb"
#define DEFAULT_TRANSFER_OPTIONS \
    (SPI_TRANSFER_OPTIONS_SIZE_IN_BYTES |\
     SPI_TRANSFER_OPTIONS_CHIPSELECT_ENABLE|\
     SPI_TRANSFER_OPTIONS_CHIPSELECT_DISABLE)
#line 1835 "mpssespi.aweb"
#define BITMASK(l)              ((1 << (l)) - 1)
#define FIELDMASK(o, l)         (BITMASK(l) << (o))
#define EXTRACT_BITFIELD(v, o, l)   (((v) & FIELDMASK(o, l)) >> (o))

#define CLEARFIELD(v, o, l)     ((v) & ~FIELDMASK(o, l))
#define ALIGNTOFIELD(f, o, l)   (((f) & BITMASK(l)) << (o))
#define INSERT_BITFIELD(v, f, o, l)\
    (CLEARFIELD(v, o, l) | ALIGNTOFIELD(f, o, l))

#define IS_BIT_XFER(o) (((o) & SPI_TRANSFER_OPTIONS_SIZE_IN_BITS) != 0)
#line 1859 "mpssespi.aweb"
#define PIN_BITFIELD_LENGTH         8

#define PIN_INITIAL_DIR_OFFSET      0
#define PIN_INITIAL_VALUE_OFFSET\
    (PIN_INITIAL_DIR_OFFSET + PIN_BITFIELD_LENGTH)
#define PIN_CLOSE_DIR_OFFSET\
    (PIN_INITIAL_VALUE_OFFSET + PIN_BITFIELD_LENGTH)
#define PIN_CLOSE_VALUE_OFFSET\
    (PIN_CLOSE_DIR_OFFSET + PIN_BITFIELD_LENGTH)

/*
 * TYPE DEFINITIONS
 */
#line 161 "mpssespi.aweb"
typedef struct MPSSEPkgInfo {
    Tcl_HashTable handleMap ;       /* <1> */
    unsigned counter ;              /* <2> */
} MPSSEPkgInfo ;
#line 245 "mpssespi.aweb"
typedef struct MPSSSEChanInfo {
    FT_HANDLE handle ;          /* <1> */
    bool isInitialized ;        /* <2> */
    ChannelConfig config ;      /* <3> */
    uint32 transferOptions ;    /* <4> */
} MPSSEChanConfig ;

................................................................................
/*
 * EXTERNAL DATA DEFINITIONS
 */

/*
 * STATIC DATA DEFINITIONS
 */
#line 505 "mpssespi.aweb"
static char const getNumChannelsCmdName[] = "::mpssespi::getNumChannels" ;
static char const getNumChannelsName[] = "getNumChannels" ;

#line 734 "mpssespi.aweb"
static char const getChannelInfoCmdName[] = "::mpssespi::getChannelInfo" ;
static char const getChannelInfoName[] = "getChannelInfo" ;

#line 868 "mpssespi.aweb"
static char const openChannelCmdName[] = "::mpssespi::openChannel" ;
static char const openChannelName[] = "openChannel" ;

#line 986 "mpssespi.aweb"
static char const initChannelCmdName[] = "::mpssespi::initChannel" ;
static char const initChannelName[] = "initChannel" ;

#line 1296 "mpssespi.aweb"
static char const getChannelConfigCmdName[] = "::mpssespi::getChannelConfig" ;
static char const getChannelConfigName[] = "getChannelConfig" ;

#line 1782 "mpssespi.aweb"
static char const setChannelConfigCmdName[] = "::mpssespi::setChannelConfig" ;
static char const setChannelConfigName[] = "setChannelConfig" ;

#line 2068 "mpssespi.aweb"
static char const closeChannelCmdName[] = "::mpssespi::closeChannel" ;
static char const closeChannelName[] = "closeChannel" ;

#line 2246 "mpssespi.aweb"
static char const readChannelCmdName[] = "::mpssespi::readChannel" ;
static char const readChannelName[] = "readChannel" ;

#line 2556 "mpssespi.aweb"
static char const writeChannelCmdName[] = "::mpssespi::writeChannel" ;
static char const writeChannelName[] = "writeChannel" ;

#line 2817 "mpssespi.aweb"
static char const readWriteChannelCmdName[] = "::mpssespi::readWriteChannel" ;
static char const readWriteChannelName[] = "readWriteChannel" ;

#line 2919 "mpssespi.aweb"
static char const isBusyCmdName[] = "::mpssespi::isBusy" ;
static char const isBusyName[] = "isBusy" ;

#line 3026 "mpssespi.aweb"
static char const changeCSCmdName[] = "::mpssespi::changeCS" ;
static char const changeCSName[] = "changeCS" ;

#line 3141 "mpssespi.aweb"
static char const writeGPIOCmdName[] = "::mpssespi::writeGPIO" ;
static char const writeGPIOName[] = "writeGPIO" ;

#line 3245 "mpssespi.aweb"
static char const readGPIOCmdName[] = "::mpssespi::readGPIO" ;
static char const readGPIOName[] = "readGPIO" ;

#line 3422 "mpssespi.aweb"
static char const mpssespi_ns_name[] = "::mpssespi" ;

#line 3504 "mpssespi.aweb"

static Tcl_Config mpssespi_config[] = {
    {"pkgname", PACKAGE_NAME},
    {"version", PACKAGE_VERSION},
    {"copyright",
"This software is copyrighted 2014 by G. Andrew Mangogna.\
 Terms and conditions for use are distributed with the source code."},
    {NULL, NULL}
} ;


/*
 * STATIC FUNCTION DEFINITIONS
 */
#line 209 "mpssespi.aweb"
static void
DeleteMPSSEPkgInfo(
    ClientData clientData,
    Tcl_Interp *interp)
{
    MPSSEPkgInfo *info ;
    Tcl_HashEntry *entry ;
................................................................................
        MPSSEChanConfig *config = (MPSSEChanConfig *)Tcl_GetHashValue(entry) ;
        ckfree((char *)config) ;
    }
    Tcl_DeleteHashTable(&info->handleMap) ; /* <2> */

    ckfree((char *)info) ; /* <3> */
}
#line 181 "mpssespi.aweb"
static ClientData
NewMPSSEPkgInfo(
    Tcl_Interp *interp)
{
    MPSSEPkgInfo *info ;

    info = (MPSSEPkgInfo *)ckalloc(sizeof(*info)) ;
    memset(info, 0, sizeof(*info)) ;
    Tcl_InitHashTable(&info->handleMap, TCL_STRING_KEYS) ;            /* <1> */
    Tcl_SetAssocData(interp, PACKAGE_NAME, DeleteMPSSEPkgInfo, info) ;/* <2> */

    return (ClientData)info ;
}
#line 278 "mpssespi.aweb"
static Tcl_Obj *
NewHandleMapping(
    MPSSEPkgInfo *info,
    FT_HANDLE handle)
{
    Tcl_Obj *handleName ;
    Tcl_HashEntry *entry ;
................................................................................
    } else {
        Tcl_Panic("failed to create mpssespi channel handle entry, \"%s\"\n",
            Tcl_GetString(handleName)) ;
    }

    return handleName ;
}
#line 378 "mpssespi.aweb"
static void
DeleteHandleMapping(
    MPSSEPkgInfo *info,
    Tcl_Obj *handleName)
{
    Tcl_HashEntry *entry ;
    MPSSEChanConfig *chanConfig ;
................................................................................
    assert(entry != NULL) ;
    if (entry) {
        chanConfig = (MPSSEChanConfig *)Tcl_GetHashValue(entry) ;
        ckfree((char *)chanConfig) ;
        Tcl_DeleteHashEntry(entry) ;
    }
}
#line 407 "mpssespi.aweb"
static int
LookUpHandle(
    Tcl_Interp *interp,
    MPSSEPkgInfo *info,
    Tcl_Obj *handleName,
    MPSSEChanConfig **chanConfigPtr)
{
................................................................................
        return TCL_OK ;
    } else {
        Tcl_SetObjResult(interp, Tcl_ObjPrintf("unknown channel handle, \"%s\"",
                Tcl_GetString(handleName))) ;
        return TCL_ERROR ;
    }
}
#line 1352 "mpssespi.aweb"
static int
GetDirectionDict(
    Tcl_Interp *interp,
    uint8 dirBitMask,
    Tcl_Obj **dirDictObjPtr)
{
    char key[2] ; /* <1> */
................................................................................
    return TCL_OK ;

errorout:
    Tcl_DecrRefCount(dirObj) ;
    *dirDictObjPtr = NULL ;
    return TCL_ERROR ;
}
#line 1409 "mpssespi.aweb"
static int
GetPinValueDict(
    Tcl_Interp *interp,
    uint8 pinBitMask,
    Tcl_Obj **pinDictObjPtr)
{
    char key[2] ;
................................................................................
    return TCL_OK ;

errorout:
    Tcl_DecrRefCount(pinObj) ;
    *pinDictObjPtr = NULL ;
    return TCL_ERROR ;
}
#line 1892 "mpssespi.aweb"
static int
GetDirectionBitMask(
    Tcl_Interp *interp,
    Tcl_Obj *dirSpecObj,
    uint8 *directionPtr)
{
    char key[2] ;
................................................................................

    return TCL_OK ;

errorout:
    Tcl_DecrRefCount(keyObj) ;
    return TCL_ERROR ;
}
#line 1953 "mpssespi.aweb"
static int
GetPinValueBitMask(
    Tcl_Interp *interp,
    Tcl_Obj *lvalueSpecObj,
    uint8 *lvaluePtr)
{
    char key[2] ;
................................................................................

    return TCL_OK ;

errorout:
    Tcl_DecrRefCount(keyObj) ;
    return TCL_ERROR ;
}
#line 2315 "mpssespi.aweb"
static int
SetTransferOptions(
    Tcl_Interp *interp,
    Tcl_Obj *optionsDict,
    uint32 *optionsPtr)
{
    uint32 transferOptions ;
................................................................................
    *optionsPtr = transferOptions ;
    return TCL_OK ;

errorout:
    Tcl_DecrRefCount(key) ;
    return TCL_ERROR ;
}
#line 2403 "mpssespi.aweb"
static int
ConvertXferUnitsToBytes(
    uint32 transferOptions,
    uint32 xferSize)
{
    return IS_BIT_XFER(transferOptions) ? (xferSize + 7) / 8 : xferSize ;
}
#line 2585 "mpssespi.aweb"
static int
VerifyOutputLength(
    Tcl_Interp *interp,
    uint32 transferOptions,
    int byteLen,
    int bitLen)
{
................................................................................
            "output data is %d bytes long, \
however %d bits were requested to be written",
            byteLen, bitLen)) ;
        return TCL_ERROR ;
    }
    return TCL_OK ;
}
#line 3287 "mpssespi.aweb"
static int
SetStatusResult(
    Tcl_Interp *interp,
    FT_STATUS status)
{
    static struct ftErrorMap {
        char const *resultString ;
................................................................................
        Tcl_Obj *result = Tcl_GetObjResult(interp) ;
        Tcl_AppendPrintfToObj(result, "unknown FT_STATUS value, \"%d\"",
            status) ;
        Tcl_SetObjResult(interp, result) ;
    }
    return TCL_ERROR ;
}
#line 3348 "mpssespi.aweb"
static void
SetInitializationError(
    Tcl_Interp *interp)
{
    static char const msg[] = "channel must be initialized first" ;
    Tcl_SetObjResult(interp, Tcl_NewStringObj(msg, -1)) ;
    Tcl_SetErrorCode(interp, "MPSSESPI", "UNINITIALIZED", msg, NULL) ;
}
#line 475 "mpssespi.aweb"
static int
GetNumChannelsProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    result = SetStatusResult(interp, status) ;     /* <2> */
    if (result == TCL_OK) {
        Tcl_SetObjResult(interp, Tcl_NewLongObj(numChannels)) ;
    }
    return result ;
}

#line 621 "mpssespi.aweb"
static int
GetChannelInfoProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    return result ;

errout:
    Tcl_DecrRefCount(infoObj) ;
    return TCL_ERROR ;
}

#line 823 "mpssespi.aweb"
static int
OpenChannelProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
                handle) ;       /* <1> */
        Tcl_SetObjResult(interp, handleName) ;
    }

    return result ;
}

#line 947 "mpssespi.aweb"
static int
InitChannelProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
        chanConfig->isInitialized = 1 ;     /* <3> */
        Tcl_ResetResult(interp) ;
    }

    return result ;
}

#line 1121 "mpssespi.aweb"
static int
GetChannelConfigProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    Tcl_DecrRefCount(pinObj) ;

errorout:
    Tcl_DecrRefCount(configObj) ;
    return TCL_ERROR ;
}

#line 1552 "mpssespi.aweb"
static int
SetChannelConfigProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    return TCL_OK ;

errorout:
    Tcl_DecrRefCount(keyObj) ;
    return TCL_ERROR ;
}

#line 2028 "mpssespi.aweb"
static int
CloseChannelProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
        DeleteHandleMapping(pkgInfo, handleObj) ; /* <1> */
        Tcl_ResetResult(interp) ;
    }

    return result ;
}

#line 2163 "mpssespi.aweb"
static int
ReadChannelProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    } else {
        Tcl_DecrRefCount(inputObj) ;
    }

    return result ;
}

#line 2482 "mpssespi.aweb"
static int
WriteChannelProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    if (result == TCL_OK) {
        Tcl_SetObjResult(interp, Tcl_NewIntObj(xferActual)) ;
    }

    return result ;
}

#line 2727 "mpssespi.aweb"
static int
ReadWriteChannelProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    } else {
        Tcl_DecrRefCount(inputObj) ;
    }

    return result ;
}

#line 2877 "mpssespi.aweb"
static int
IsBusyProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    if (result == TCL_OK) {
        Tcl_SetObjResult(interp, Tcl_NewBooleanObj(busyStatus)) ;
    }

    return result ;
}

#line 2986 "mpssespi.aweb"
static int
ChangeCSProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    if (result == TCL_OK) {
        Tcl_ResetResult(interp) ;
    }

    return result ;
}

#line 3089 "mpssespi.aweb"
static int
WriteGPIOProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    if (result == TCL_OK) {
        Tcl_ResetResult(interp) ;
    }

    return result ;
}

#line 3197 "mpssespi.aweb"
static int
ReadGPIOProc(
    ClientData clientData,
    Tcl_Interp *interp,
    int objc,
    Tcl_Obj *const objv[])
{
................................................................................
    return TCL_OK ;
}


/*
 * EXTERNAL FUNCTION DEFINITIONS
 */
#line 3376 "mpssespi.aweb"
DLLEXPORT       /* <1> */
int
Mpssespi_Init(
    Tcl_Interp *interp)
{
    ClientData clientData ;
    Tcl_Namespace *ns ;
    Tcl_Obj *mapObj ;
    Tcl_Command cmdToken ;

    if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
        return TCL_ERROR ;
    }

    clientData = NewMPSSEPkgInfo(interp) ;  /* <2> */

    Init_libMPSSE() ;

    #line 3425 "mpssespi.aweb"
    ns = Tcl_CreateNamespace(interp, mpssespi_ns_name, NULL, NULL) ;
    mapObj = Tcl_NewDictObj() ;     /* <1> */
    #line 509 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, getNumChannelsCmdName, GetNumChannelsProc,
            clientData, NULL) ;
    if (Tcl_Export(interp, ns, getNumChannelsName, 0) != TCL_OK) {
        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(getNumChannelsName, -1),
            Tcl_NewStringObj(getNumChannelsCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 738 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, getChannelInfoCmdName, GetChannelInfoProc,
            clientData, NULL) ;
    if (Tcl_Export(interp, ns, getChannelInfoName, 0) != TCL_OK) {
        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(getChannelInfoName, -1),
            Tcl_NewStringObj(getChannelInfoCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 872 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, openChannelCmdName, OpenChannelProc,
            clientData, NULL) ;
    if (Tcl_Export(interp, ns, openChannelName, 0) != TCL_OK) {
        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(openChannelName, -1),
            Tcl_NewStringObj(openChannelCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 990 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, initChannelCmdName, InitChannelProc,
            clientData, NULL) ;
    if (Tcl_Export(interp, ns, initChannelName, 0) != TCL_OK) {
        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(initChannelName, -1),
            Tcl_NewStringObj(initChannelCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 1300 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, getChannelConfigCmdName, GetChannelConfigProc,
            clientData, NULL) ;
    if (Tcl_Export(interp, ns, getChannelConfigName, 0) != TCL_OK) {
        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(getChannelConfigName, -1),
            Tcl_NewStringObj(getChannelConfigCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 1786 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, setChannelConfigCmdName, SetChannelConfigProc,
            clientData, NULL) ;
    if (Tcl_Export(interp, ns, setChannelConfigName, 0) != TCL_OK) {
        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(setChannelConfigName, -1),
            Tcl_NewStringObj(setChannelConfigCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 2072 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, closeChannelCmdName, CloseChannelProc,
            clientData, NULL) ;
    if (Tcl_Export(interp, ns, closeChannelName, 0) != TCL_OK) {
        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(closeChannelName, -1),
            Tcl_NewStringObj(closeChannelCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 2250 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, readChannelCmdName, ReadChannelProc,
            clientData, NULL) ;
    if (Tcl_Export(interp, ns, readChannelName, 0) != TCL_OK) {
        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(readChannelName, -1),
            Tcl_NewStringObj(readChannelCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 2560 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, writeChannelCmdName, WriteChannelProc,
            clientData, NULL) ;
    if (Tcl_Export(interp, ns, writeChannelName, 0) != TCL_OK) {
        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(writeChannelName, -1),
            Tcl_NewStringObj(writeChannelCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 2821 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, readWriteChannelCmdName, ReadWriteChannelProc,
            clientData, NULL) ;
    if (Tcl_Export(interp, ns, readWriteChannelName, 0) != TCL_OK) {
        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(readWriteChannelName, -1),
            Tcl_NewStringObj(readWriteChannelCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 2923 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, isBusyCmdName, IsBusyProc,
            clientData, NULL) ;
    if (Tcl_Export(interp, ns, isBusyName, 0) != TCL_OK) {
        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(isBusyName, -1),
            Tcl_NewStringObj(isBusyCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 3030 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, changeCSCmdName, ChangeCSProc,
            clientData, NULL) ;
    if (Tcl_Export(interp, ns, changeCSName, 0) != TCL_OK) {
        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(changeCSName, -1),
            Tcl_NewStringObj(changeCSCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 3145 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, writeGPIOCmdName, WriteGPIOProc,
            clientData, NULL) ;
    if (Tcl_Export(interp, ns, writeGPIOName, 0) != TCL_OK) {
        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(writeGPIOName, -1),
            Tcl_NewStringObj(writeGPIOCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 3249 "mpssespi.aweb"
    Tcl_CreateObjCommand(interp, readGPIOCmdName, ReadGPIOProc,
            clientData, NULL) ;

    if (Tcl_Export(interp, ns, readGPIOName, 0) != TCL_OK) {

        goto errorout ;
    }
    if (Tcl_DictObjPut(interp, mapObj, Tcl_NewStringObj(readGPIOName, -1),
            Tcl_NewStringObj(readGPIOCmdName, -1)) != TCL_OK) {
        goto errorout ;
    }
    #line 3437 "mpssespi.aweb"
    cmdToken = Tcl_CreateEnsemble(interp, mpssespi_ns_name, ns, TCL_ENSEMBLE_PREFIX) ;
    if (Tcl_SetEnsembleMappingDict(interp, cmdToken, mapObj) != TCL_OK) {
        goto errorout ;
    }

    #line 3519 "mpssespi.aweb"

        Tcl_RegisterConfig(interp, PACKAGE_NAME, mpssespi_config, "iso8859-1") ;


    Tcl_PkgProvide(interp, PACKAGE_NAME, PACKAGE_VERSION) ;
    return TCL_OK ;

errorout:
    Tcl_DecrRefCount(mapObj) ;
    Tcl_DeleteNamespace(ns) ;
    return TCL_ERROR ;
}
#line 3472 "mpssespi.aweb"
DLLEXPORT int
Mpssespi_SafeInit(
    Tcl_Interp *interp)
{
    return TCL_ERROR ;
}


#line 3453 "mpssespi.aweb"
DLLEXPORT int
Mpssespi_Unload(
    Tcl_Interp *interp)
{
    Cleanup_libMPSSE() ;
    return TCL_OK ;
}
#line 3482 "mpssespi.aweb"
DLLEXPORT
int
Mpssespi_SafeUnload(
    Tcl_Interp *interp)
{
    return TCL_ERROR ;
}

        csactive high
    }
    mpssespi initChannel $spichan       ; # <1>

    for {set address 0} {$address < 16} {incr address} {
        set data [expr {$address + 3}]
        puts "writing address $address, data = $data"
        set bindata [binary format S $data]
        write_byte $spichan $address $bindata
    }

    for {set address 0} {$address < 16} {incr address} {
        set bindata [read_byte $spichan $address]
        binary scan $bindata Su $bindata data
        puts "reading address $address, data = $data"
    }

    mpssespi closeChannel $spichan
}

# Run the example
main

        csactive high
    }
    mpssespi initChannel $spichan       ; # <1>

    for {set address 0} {$address < 16} {incr address} {
        set data [expr {$address + 3}]
        puts "writing address $address, data = $data"
        set bindata [binary format S $data]     ; # <2>
        write_byte $spichan $address $bindata
    }

    for {set address 0} {$address < 16} {incr address} {
        set bindata [read_byte $spichan $address]
        binary scan $bindata Su $bindata data   ; # <3>
        puts "reading address $address, data = $data"
    }

    mpssespi closeChannel $spichan
}

# Run the example
main