/* mbed Microcontroller Library
 * Copyright (c) 2006-2013 ARM Limited
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
#include "analogout_api.h"

#if DEVICE_ANALOGOUT

#include "cmsis.h"
#include "pinmap.h"
#include "mbed_error.h"
#include "fsl_dac.h"
#include "PeripheralPins.h"

/* Array of DAC peripheral base address. */
static DAC_Type *const dac_bases[] = DAC_BASE_PTRS;

#define RANGE_12BIT     0xFFF

void analogout_init(dac_t *obj, PinName pin)
{
    dac_config_t dac_config;
    obj->dac = (DACName)pinmap_peripheral(pin, PinMap_DAC);
    if (obj->dac == (DACName)NC) {
        error("DAC pin mapping failed");
    }

    DAC_GetDefaultConfig(&dac_config);
    DAC_Init(dac_bases[obj->dac], &dac_config);

    DAC_SetBufferValue(dac_bases[obj->dac], 0, 0);

    DAC_Enable(dac_bases[obj->dac], true);
}

void analogout_free(dac_t *obj)
{
}

static inline void dac_write(dac_t *obj, int value)
{
    DAC_SetBufferValue(dac_bases[obj->dac], 0, (uint16_t)value);
}

static inline int dac_read(dac_t *obj)
{
    return ((DAC0->DAT[obj->dac].DATH << 8) | DAC0->DAT[obj->dac].DATL);
}

void analogout_write(dac_t *obj, float value)
{
    if (value < 0.0f) {
        dac_write(obj, 0);
    } else if (value > 1.0f) {
        dac_write(obj, RANGE_12BIT);
    } else {
        dac_write(obj, value * (float)RANGE_12BIT);
    }
}

void analogout_write_u16(dac_t *obj, uint16_t value)
{
    dac_write(obj, value >> 4); // 12-bit
}

float analogout_read(dac_t *obj)
{
    uint32_t value = dac_read(obj);
    return (float)value * (1.0f / (float)RANGE_12BIT);
}

uint16_t analogout_read_u16(dac_t *obj)
{
    uint32_t value = dac_read(obj); // 12-bit
    return (value << 4) | ((value >> 8) & 0x003F);
}

#endif