acpica/executer/exconvrt.c

db2bae30SDana Myers/******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * Module Name: exconvrt - Object conversion routines
db2bae30SDana Myers *
db2bae30SDana Myers *****************************************************************************/
db2bae30SDana Myers
26f3cdf0SGordon Ross/*
*385cc6b4SJerry Jelinek * Copyright (C) 2000 - 2016, Intel Corp.
db2bae30SDana Myers * All rights reserved.
db2bae30SDana Myers *
26f3cdf0SGordon Ross * Redistribution and use in source and binary forms, with or without
26f3cdf0SGordon Ross * modification, are permitted provided that the following conditions
26f3cdf0SGordon Ross * are met:
26f3cdf0SGordon Ross * 1. Redistributions of source code must retain the above copyright
26f3cdf0SGordon Ross *    notice, this list of conditions, and the following disclaimer,
26f3cdf0SGordon Ross *    without modification.
26f3cdf0SGordon Ross * 2. Redistributions in binary form must reproduce at minimum a disclaimer
26f3cdf0SGordon Ross *    substantially similar to the "NO WARRANTY" disclaimer below
26f3cdf0SGordon Ross *    ("Disclaimer") and any redistribution must be conditioned upon
26f3cdf0SGordon Ross *    including a substantially similar Disclaimer requirement for further
26f3cdf0SGordon Ross *    binary redistribution.
26f3cdf0SGordon Ross * 3. Neither the names of the above-listed copyright holders nor the names
26f3cdf0SGordon Ross *    of any contributors may be used to endorse or promote products derived
26f3cdf0SGordon Ross *    from this software without specific prior written permission.
db2bae30SDana Myers *
26f3cdf0SGordon Ross * Alternatively, this software may be distributed under the terms of the
26f3cdf0SGordon Ross * GNU General Public License ("GPL") version 2 as published by the Free
26f3cdf0SGordon Ross * Software Foundation.
db2bae30SDana Myers *
26f3cdf0SGordon Ross * NO WARRANTY
26f3cdf0SGordon Ross * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
26f3cdf0SGordon Ross * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
26f3cdf0SGordon Ross * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
26f3cdf0SGordon Ross * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
26f3cdf0SGordon Ross * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26f3cdf0SGordon Ross * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26f3cdf0SGordon Ross * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26f3cdf0SGordon Ross * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
26f3cdf0SGordon Ross * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
26f3cdf0SGordon Ross * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
26f3cdf0SGordon Ross * POSSIBILITY OF SUCH DAMAGES.
26f3cdf0SGordon Ross */
db2bae30SDana Myers
db2bae30SDana Myers#include "acpi.h"
aa2aa9a6SDana Myers#include "accommon.h"
db2bae30SDana Myers#include "acinterp.h"
db2bae30SDana Myers#include "amlcode.h"
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers#define _COMPONENT          ACPI_EXECUTER
db2bae30SDana Myers        ACPI_MODULE_NAME    ("exconvrt")
db2bae30SDana Myers
db2bae30SDana Myers/* Local prototypes */
db2bae30SDana Myers
db2bae30SDana Myersstatic UINT32
db2bae30SDana MyersAcpiExConvertToAscii (
26f3cdf0SGordon Ross    UINT64                  Integer,
db2bae30SDana Myers    UINT16                  Base,
db2bae30SDana Myers    UINT8                   *String,
db2bae30SDana Myers    UINT8                   MaxLength);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiExConvertToInteger
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  ObjDesc         - Object to be converted. Must be an
db2bae30SDana Myers *                                Integer, Buffer, or String
db2bae30SDana Myers *              ResultDesc      - Where the new Integer object is returned
db2bae30SDana Myers *              Flags           - Used for string conversion
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Convert an ACPI Object to an integer.
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersACPI_STATUS
db2bae30SDana MyersAcpiExConvertToInteger (
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ObjDesc,
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     **ResultDesc,
db2bae30SDana Myers    UINT32                  Flags)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ReturnDesc;
db2bae30SDana Myers    UINT8                   *Pointer;
26f3cdf0SGordon Ross    UINT64                  Result;
db2bae30SDana Myers    UINT32                  i;
db2bae30SDana Myers    UINT32                  Count;
db2bae30SDana Myers    ACPI_STATUS             Status;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE_PTR (ExConvertToInteger, ObjDesc);
db2bae30SDana Myers
db2bae30SDana Myers
aa2aa9a6SDana Myers    switch (ObjDesc->Common.Type)
db2bae30SDana Myers    {
db2bae30SDana Myers    case ACPI_TYPE_INTEGER:
db2bae30SDana Myers
db2bae30SDana Myers        /* No conversion necessary */
db2bae30SDana Myers
db2bae30SDana Myers        *ResultDesc = ObjDesc;
db2bae30SDana Myers        return_ACPI_STATUS (AE_OK);
db2bae30SDana Myers
db2bae30SDana Myers    case ACPI_TYPE_BUFFER:
db2bae30SDana Myers    case ACPI_TYPE_STRING:
db2bae30SDana Myers
db2bae30SDana Myers        /* Note: Takes advantage of common buffer/string fields */
db2bae30SDana Myers
db2bae30SDana Myers        Pointer = ObjDesc->Buffer.Pointer;
db2bae30SDana Myers        Count   = ObjDesc->Buffer.Length;
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    default:
*385cc6b4SJerry Jelinek
db2bae30SDana Myers        return_ACPI_STATUS (AE_TYPE);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Convert the buffer/string to an integer. Note that both buffers and
db2bae30SDana Myers     * strings are treated as raw data - we don't convert ascii to hex for
db2bae30SDana Myers     * strings.
db2bae30SDana Myers     *
db2bae30SDana Myers     * There are two terminating conditions for the loop:
db2bae30SDana Myers     * 1) The size of an integer has been reached, or
db2bae30SDana Myers     * 2) The end of the buffer or string has been reached
db2bae30SDana Myers     */
db2bae30SDana Myers    Result = 0;
db2bae30SDana Myers
db2bae30SDana Myers    /* String conversion is different than Buffer conversion */
db2bae30SDana Myers
aa2aa9a6SDana Myers    switch (ObjDesc->Common.Type)
db2bae30SDana Myers    {
db2bae30SDana Myers    case ACPI_TYPE_STRING:
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Convert string to an integer - for most cases, the string must be
db2bae30SDana Myers         * hexadecimal as per the ACPI specification. The only exception (as
db2bae30SDana Myers         * of ACPI 3.0) is that the ToInteger() operator allows both decimal
db2bae30SDana Myers         * and hexadecimal strings (hex prefixed with "0x").
db2bae30SDana Myers         */
*385cc6b4SJerry Jelinek        Status = AcpiUtStrtoul64 ((char *) Pointer, Flags,
*385cc6b4SJerry Jelinek            AcpiGbl_IntegerByteWidth, &Result);
db2bae30SDana Myers        if (ACPI_FAILURE (Status))
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (Status);
db2bae30SDana Myers        }
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    case ACPI_TYPE_BUFFER:
db2bae30SDana Myers
db2bae30SDana Myers        /* Check for zero-length buffer */
db2bae30SDana Myers
db2bae30SDana Myers        if (!Count)
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (AE_AML_BUFFER_LIMIT);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* Transfer no more than an integer's worth of data */
db2bae30SDana Myers
db2bae30SDana Myers        if (Count > AcpiGbl_IntegerByteWidth)
db2bae30SDana Myers        {
db2bae30SDana Myers            Count = AcpiGbl_IntegerByteWidth;
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Convert buffer to an integer - we simply grab enough raw data
db2bae30SDana Myers         * from the buffer to fill an integer
db2bae30SDana Myers         */
db2bae30SDana Myers        for (i = 0; i < Count; i++)
db2bae30SDana Myers        {
db2bae30SDana Myers            /*
db2bae30SDana Myers             * Get next byte and shift it into the Result.
db2bae30SDana Myers             * Little endian is used, meaning that the first byte of the buffer
db2bae30SDana Myers             * is the LSB of the integer
db2bae30SDana Myers             */
26f3cdf0SGordon Ross            Result |= (((UINT64) Pointer[i]) << (i * 8));
db2bae30SDana Myers        }
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    default:
db2bae30SDana Myers
db2bae30SDana Myers        /* No other types can get here */
*385cc6b4SJerry Jelinek
db2bae30SDana Myers        break;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /* Create a new integer */
db2bae30SDana Myers
57190917SDana Myers    ReturnDesc = AcpiUtCreateIntegerObject (Result);
db2bae30SDana Myers    if (!ReturnDesc)
db2bae30SDana Myers    {
db2bae30SDana Myers        return_ACPI_STATUS (AE_NO_MEMORY);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_DEBUG_PRINT ((ACPI_DB_EXEC, "Converted value: %8.8X%8.8X\n",
db2bae30SDana Myers        ACPI_FORMAT_UINT64 (Result)));
db2bae30SDana Myers
db2bae30SDana Myers    /* Save the Result */
db2bae30SDana Myers
*385cc6b4SJerry Jelinek    (void) AcpiExTruncateFor32bitTable (ReturnDesc);
db2bae30SDana Myers    *ResultDesc = ReturnDesc;
db2bae30SDana Myers    return_ACPI_STATUS (AE_OK);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiExConvertToBuffer
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  ObjDesc         - Object to be converted. Must be an
db2bae30SDana Myers *                                Integer, Buffer, or String
db2bae30SDana Myers *              ResultDesc      - Where the new buffer object is returned
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Convert an ACPI Object to a Buffer
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersACPI_STATUS
db2bae30SDana MyersAcpiExConvertToBuffer (
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ObjDesc,
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     **ResultDesc)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ReturnDesc;
db2bae30SDana Myers    UINT8                   *NewBuf;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE_PTR (ExConvertToBuffer, ObjDesc);
db2bae30SDana Myers
db2bae30SDana Myers
aa2aa9a6SDana Myers    switch (ObjDesc->Common.Type)
db2bae30SDana Myers    {
db2bae30SDana Myers    case ACPI_TYPE_BUFFER:
db2bae30SDana Myers
db2bae30SDana Myers        /* No conversion necessary */
db2bae30SDana Myers
db2bae30SDana Myers        *ResultDesc = ObjDesc;
db2bae30SDana Myers        return_ACPI_STATUS (AE_OK);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    case ACPI_TYPE_INTEGER:
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Create a new Buffer object.
db2bae30SDana Myers         * Need enough space for one integer
db2bae30SDana Myers         */
db2bae30SDana Myers        ReturnDesc = AcpiUtCreateBufferObject (AcpiGbl_IntegerByteWidth);
db2bae30SDana Myers        if (!ReturnDesc)
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (AE_NO_MEMORY);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* Copy the integer to the buffer, LSB first */
db2bae30SDana Myers
db2bae30SDana Myers        NewBuf = ReturnDesc->Buffer.Pointer;
*385cc6b4SJerry Jelinek        memcpy (NewBuf, &ObjDesc->Integer.Value, AcpiGbl_IntegerByteWidth);
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    case ACPI_TYPE_STRING:
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Create a new Buffer object
db2bae30SDana Myers         * Size will be the string length
db2bae30SDana Myers         *
db2bae30SDana Myers         * NOTE: Add one to the string length to include the null terminator.
db2bae30SDana Myers         * The ACPI spec is unclear on this subject, but there is existing
db2bae30SDana Myers         * ASL/AML code that depends on the null being transferred to the new
db2bae30SDana Myers         * buffer.
db2bae30SDana Myers         */
*385cc6b4SJerry Jelinek        ReturnDesc = AcpiUtCreateBufferObject ((ACPI_SIZE)
*385cc6b4SJerry Jelinek            ObjDesc->String.Length + 1);
db2bae30SDana Myers        if (!ReturnDesc)
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (AE_NO_MEMORY);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /* Copy the string to the buffer */
db2bae30SDana Myers
db2bae30SDana Myers        NewBuf = ReturnDesc->Buffer.Pointer;
*385cc6b4SJerry Jelinek        strncpy ((char *) NewBuf, (char *) ObjDesc->String.Pointer,
db2bae30SDana Myers            ObjDesc->String.Length);
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    default:
*385cc6b4SJerry Jelinek
db2bae30SDana Myers        return_ACPI_STATUS (AE_TYPE);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /* Mark buffer initialized */
db2bae30SDana Myers
db2bae30SDana Myers    ReturnDesc->Common.Flags |= AOPOBJ_DATA_VALID;
db2bae30SDana Myers    *ResultDesc = ReturnDesc;
db2bae30SDana Myers    return_ACPI_STATUS (AE_OK);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiExConvertToAscii
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  Integer         - Value to be converted
db2bae30SDana Myers *              Base            - ACPI_STRING_DECIMAL or ACPI_STRING_HEX
db2bae30SDana Myers *              String          - Where the string is returned
db2bae30SDana Myers *              DataWidth       - Size of data item to be converted, in bytes
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Actual string length
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Convert an ACPI Integer to a hex or decimal string
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana Myersstatic UINT32
db2bae30SDana MyersAcpiExConvertToAscii (
26f3cdf0SGordon Ross    UINT64                  Integer,
db2bae30SDana Myers    UINT16                  Base,
db2bae30SDana Myers    UINT8                   *String,
db2bae30SDana Myers    UINT8                   DataWidth)
db2bae30SDana Myers{
26f3cdf0SGordon Ross    UINT64                  Digit;
db2bae30SDana Myers    UINT32                  i;
db2bae30SDana Myers    UINT32                  j;
db2bae30SDana Myers    UINT32                  k = 0;
db2bae30SDana Myers    UINT32                  HexLength;
db2bae30SDana Myers    UINT32                  DecimalLength;
db2bae30SDana Myers    UINT32                  Remainder;
db2bae30SDana Myers    BOOLEAN                 SupressZeros;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_ENTRY ();
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    switch (Base)
db2bae30SDana Myers    {
db2bae30SDana Myers    case 10:
db2bae30SDana Myers
db2bae30SDana Myers        /* Setup max length for the decimal number */
db2bae30SDana Myers
db2bae30SDana Myers        switch (DataWidth)
db2bae30SDana Myers        {
db2bae30SDana Myers        case 1:
*385cc6b4SJerry Jelinek
db2bae30SDana Myers            DecimalLength = ACPI_MAX8_DECIMAL_DIGITS;
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        case 4:
*385cc6b4SJerry Jelinek
db2bae30SDana Myers            DecimalLength = ACPI_MAX32_DECIMAL_DIGITS;
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        case 8:
db2bae30SDana Myers        default:
*385cc6b4SJerry Jelinek
db2bae30SDana Myers            DecimalLength = ACPI_MAX64_DECIMAL_DIGITS;
db2bae30SDana Myers            break;
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        SupressZeros = TRUE;     /* No leading zeros */
db2bae30SDana Myers        Remainder = 0;
db2bae30SDana Myers
db2bae30SDana Myers        for (i = DecimalLength; i > 0; i--)
db2bae30SDana Myers        {
db2bae30SDana Myers            /* Divide by nth factor of 10 */
db2bae30SDana Myers
db2bae30SDana Myers            Digit = Integer;
db2bae30SDana Myers            for (j = 0; j < i; j++)
db2bae30SDana Myers            {
db2bae30SDana Myers                (void) AcpiUtShortDivide (Digit, 10, &Digit, &Remainder);
db2bae30SDana Myers            }
db2bae30SDana Myers
db2bae30SDana Myers            /* Handle leading zeros */
db2bae30SDana Myers
db2bae30SDana Myers            if (Remainder != 0)
db2bae30SDana Myers            {
db2bae30SDana Myers                SupressZeros = FALSE;
db2bae30SDana Myers            }
db2bae30SDana Myers
db2bae30SDana Myers            if (!SupressZeros)
db2bae30SDana Myers            {
db2bae30SDana Myers                String[k] = (UINT8) (ACPI_ASCII_ZERO + Remainder);
db2bae30SDana Myers                k++;
db2bae30SDana Myers            }
db2bae30SDana Myers        }
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    case 16:
db2bae30SDana Myers
db2bae30SDana Myers        /* HexLength: 2 ascii hex chars per data byte */
db2bae30SDana Myers
db2bae30SDana Myers        HexLength = ACPI_MUL_2 (DataWidth);
db2bae30SDana Myers        for (i = 0, j = (HexLength-1); i < HexLength; i++, j--)
db2bae30SDana Myers        {
db2bae30SDana Myers            /* Get one hex digit, most significant digits first */
db2bae30SDana Myers
*385cc6b4SJerry Jelinek            String[k] = (UINT8)
*385cc6b4SJerry Jelinek                AcpiUtHexToAsciiChar (Integer, ACPI_MUL_4 (j));
db2bae30SDana Myers            k++;
db2bae30SDana Myers        }
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    default:
db2bae30SDana Myers        return (0);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Since leading zeros are suppressed, we must check for the case where
db2bae30SDana Myers     * the integer equals 0
db2bae30SDana Myers     *
db2bae30SDana Myers     * Finally, null terminate the string and return the length
db2bae30SDana Myers     */
db2bae30SDana Myers    if (!k)
db2bae30SDana Myers    {
db2bae30SDana Myers        String [0] = ACPI_ASCII_ZERO;
db2bae30SDana Myers        k = 1;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    String [k] = 0;
db2bae30SDana Myers    return ((UINT32) k);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiExConvertToString
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  ObjDesc         - Object to be converted. Must be an
db2bae30SDana Myers *                                Integer, Buffer, or String
db2bae30SDana Myers *              ResultDesc      - Where the string object is returned
db2bae30SDana Myers *              Type            - String flags (base and conversion type)
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Convert an ACPI Object to a string
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersACPI_STATUS
db2bae30SDana MyersAcpiExConvertToString (
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ObjDesc,
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     **ResultDesc,
db2bae30SDana Myers    UINT32                  Type)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *ReturnDesc;
db2bae30SDana Myers    UINT8                   *NewBuf;
db2bae30SDana Myers    UINT32                  i;
db2bae30SDana Myers    UINT32                  StringLength = 0;
db2bae30SDana Myers    UINT16                  Base = 16;
db2bae30SDana Myers    UINT8                   Separator = ',';
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE_PTR (ExConvertToString, ObjDesc);
db2bae30SDana Myers
db2bae30SDana Myers
aa2aa9a6SDana Myers    switch (ObjDesc->Common.Type)
db2bae30SDana Myers    {
db2bae30SDana Myers    case ACPI_TYPE_STRING:
db2bae30SDana Myers
db2bae30SDana Myers        /* No conversion necessary */
db2bae30SDana Myers
db2bae30SDana Myers        *ResultDesc = ObjDesc;
db2bae30SDana Myers        return_ACPI_STATUS (AE_OK);
db2bae30SDana Myers
db2bae30SDana Myers    case ACPI_TYPE_INTEGER:
db2bae30SDana Myers
db2bae30SDana Myers        switch (Type)
db2bae30SDana Myers        {
db2bae30SDana Myers        case ACPI_EXPLICIT_CONVERT_DECIMAL:
db2bae30SDana Myers
db2bae30SDana Myers            /* Make room for maximum decimal number */
db2bae30SDana Myers
db2bae30SDana Myers            StringLength = ACPI_MAX_DECIMAL_DIGITS;
db2bae30SDana Myers            Base = 10;
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        default:
db2bae30SDana Myers
db2bae30SDana Myers            /* Two hex string characters for each integer byte */
db2bae30SDana Myers
db2bae30SDana Myers            StringLength = ACPI_MUL_2 (AcpiGbl_IntegerByteWidth);
db2bae30SDana Myers            break;
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Create a new String
db2bae30SDana Myers         * Need enough space for one ASCII integer (plus null terminator)
db2bae30SDana Myers         */
db2bae30SDana Myers        ReturnDesc = AcpiUtCreateStringObject ((ACPI_SIZE) StringLength);
db2bae30SDana Myers        if (!ReturnDesc)
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (AE_NO_MEMORY);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        NewBuf = ReturnDesc->Buffer.Pointer;
db2bae30SDana Myers
db2bae30SDana Myers        /* Convert integer to string */
db2bae30SDana Myers
*385cc6b4SJerry Jelinek        StringLength = AcpiExConvertToAscii (
*385cc6b4SJerry Jelinek            ObjDesc->Integer.Value, Base, NewBuf, AcpiGbl_IntegerByteWidth);
db2bae30SDana Myers
db2bae30SDana Myers        /* Null terminate at the correct place */
db2bae30SDana Myers
db2bae30SDana Myers        ReturnDesc->String.Length = StringLength;
db2bae30SDana Myers        NewBuf [StringLength] = 0;
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    case ACPI_TYPE_BUFFER:
db2bae30SDana Myers
db2bae30SDana Myers        /* Setup string length, base, and separator */
db2bae30SDana Myers
db2bae30SDana Myers        switch (Type)
db2bae30SDana Myers        {
db2bae30SDana Myers        case ACPI_EXPLICIT_CONVERT_DECIMAL: /* Used by ToDecimalString */
db2bae30SDana Myers            /*
db2bae30SDana Myers             * From ACPI: "If Data is a buffer, it is converted to a string of
db2bae30SDana Myers             * decimal values separated by commas."
db2bae30SDana Myers             */
db2bae30SDana Myers            Base = 10;
db2bae30SDana Myers
db2bae30SDana Myers            /*
db2bae30SDana Myers             * Calculate the final string length. Individual string values
db2bae30SDana Myers             * are variable length (include separator for each)
db2bae30SDana Myers             */
db2bae30SDana Myers            for (i = 0; i < ObjDesc->Buffer.Length; i++)
db2bae30SDana Myers            {
db2bae30SDana Myers                if (ObjDesc->Buffer.Pointer[i] >= 100)
db2bae30SDana Myers                {
db2bae30SDana Myers                    StringLength += 4;
db2bae30SDana Myers                }
db2bae30SDana Myers                else if (ObjDesc->Buffer.Pointer[i] >= 10)
db2bae30SDana Myers                {
db2bae30SDana Myers                    StringLength += 3;
db2bae30SDana Myers                }
db2bae30SDana Myers                else
db2bae30SDana Myers                {
db2bae30SDana Myers                    StringLength += 2;
db2bae30SDana Myers                }
db2bae30SDana Myers            }
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        case ACPI_IMPLICIT_CONVERT_HEX:
db2bae30SDana Myers            /*
db2bae30SDana Myers             * From the ACPI spec:
db2bae30SDana Myers             *"The entire contents of the buffer are converted to a string of
db2bae30SDana Myers             * two-character hexadecimal numbers, each separated by a space."
db2bae30SDana Myers             */
db2bae30SDana Myers            Separator = ' ';
db2bae30SDana Myers            StringLength = (ObjDesc->Buffer.Length * 3);
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        case ACPI_EXPLICIT_CONVERT_HEX:     /* Used by ToHexString */
db2bae30SDana Myers            /*
db2bae30SDana Myers             * From ACPI: "If Data is a buffer, it is converted to a string of
db2bae30SDana Myers             * hexadecimal values separated by commas."
db2bae30SDana Myers             */
db2bae30SDana Myers            StringLength = (ObjDesc->Buffer.Length * 3);
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        default:
db2bae30SDana Myers            return_ACPI_STATUS (AE_BAD_PARAMETER);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Create a new string object and string buffer
db2bae30SDana Myers         * (-1 because of extra separator included in StringLength from above)
aa2aa9a6SDana Myers         * Allow creation of zero-length strings from zero-length buffers.
db2bae30SDana Myers         */
aa2aa9a6SDana Myers        if (StringLength)
aa2aa9a6SDana Myers        {
aa2aa9a6SDana Myers            StringLength--;
aa2aa9a6SDana Myers        }
aa2aa9a6SDana Myers
aa2aa9a6SDana Myers        ReturnDesc = AcpiUtCreateStringObject ((ACPI_SIZE) StringLength);
db2bae30SDana Myers        if (!ReturnDesc)
db2bae30SDana Myers        {
db2bae30SDana Myers            return_ACPI_STATUS (AE_NO_MEMORY);
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        NewBuf = ReturnDesc->Buffer.Pointer;
db2bae30SDana Myers
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Convert buffer bytes to hex or decimal values
db2bae30SDana Myers         * (separated by commas or spaces)
db2bae30SDana Myers         */
db2bae30SDana Myers        for (i = 0; i < ObjDesc->Buffer.Length; i++)
db2bae30SDana Myers        {
db2bae30SDana Myers            NewBuf += AcpiExConvertToAscii (
*385cc6b4SJerry Jelinek                (UINT64) ObjDesc->Buffer.Pointer[i], Base, NewBuf, 1);
db2bae30SDana Myers            *NewBuf++ = Separator; /* each separated by a comma or space */
db2bae30SDana Myers        }
db2bae30SDana Myers
db2bae30SDana Myers        /*
db2bae30SDana Myers         * Null terminate the string
db2bae30SDana Myers         * (overwrites final comma/space from above)
db2bae30SDana Myers         */
aa2aa9a6SDana Myers        if (ObjDesc->Buffer.Length)
aa2aa9a6SDana Myers        {
db2bae30SDana Myers            NewBuf--;
aa2aa9a6SDana Myers        }
db2bae30SDana Myers        *NewBuf = 0;
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    default:
*385cc6b4SJerry Jelinek
db2bae30SDana Myers        return_ACPI_STATUS (AE_TYPE);
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    *ResultDesc = ReturnDesc;
db2bae30SDana Myers    return_ACPI_STATUS (AE_OK);
db2bae30SDana Myers}
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers/*******************************************************************************
db2bae30SDana Myers *
db2bae30SDana Myers * FUNCTION:    AcpiExConvertToTargetType
db2bae30SDana Myers *
db2bae30SDana Myers * PARAMETERS:  DestinationType     - Current type of the destination
db2bae30SDana Myers *              SourceDesc          - Source object to be converted.
db2bae30SDana Myers *              ResultDesc          - Where the converted object is returned
db2bae30SDana Myers *              WalkState           - Current method state
db2bae30SDana Myers *
db2bae30SDana Myers * RETURN:      Status
db2bae30SDana Myers *
db2bae30SDana Myers * DESCRIPTION: Implements "implicit conversion" rules for storing an object.
db2bae30SDana Myers *
db2bae30SDana Myers ******************************************************************************/
db2bae30SDana Myers
db2bae30SDana MyersACPI_STATUS
db2bae30SDana MyersAcpiExConvertToTargetType (
db2bae30SDana Myers    ACPI_OBJECT_TYPE        DestinationType,
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     *SourceDesc,
db2bae30SDana Myers    ACPI_OPERAND_OBJECT     **ResultDesc,
db2bae30SDana Myers    ACPI_WALK_STATE         *WalkState)
db2bae30SDana Myers{
db2bae30SDana Myers    ACPI_STATUS             Status = AE_OK;
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    ACPI_FUNCTION_TRACE (ExConvertToTargetType);
db2bae30SDana Myers
db2bae30SDana Myers
db2bae30SDana Myers    /* Default behavior */
db2bae30SDana Myers
db2bae30SDana Myers    *ResultDesc = SourceDesc;
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * If required by the target,
db2bae30SDana Myers     * perform implicit conversion on the source before we store it.
db2bae30SDana Myers     */
db2bae30SDana Myers    switch (GET_CURRENT_ARG_TYPE (WalkState->OpInfo->RuntimeArgs))
db2bae30SDana Myers    {
db2bae30SDana Myers    case ARGI_SIMPLE_TARGET:
db2bae30SDana Myers    case ARGI_FIXED_TARGET:
db2bae30SDana Myers    case ARGI_INTEGER_REF:      /* Handles Increment, Decrement cases */
db2bae30SDana Myers
db2bae30SDana Myers        switch (DestinationType)
db2bae30SDana Myers        {
db2bae30SDana Myers        case ACPI_TYPE_LOCAL_REGION_FIELD:
db2bae30SDana Myers            /*
db2bae30SDana Myers             * Named field can always handle conversions
db2bae30SDana Myers             */
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        default:
*385cc6b4SJerry Jelinek
db2bae30SDana Myers            /* No conversion allowed for these types */
db2bae30SDana Myers
aa2aa9a6SDana Myers            if (DestinationType != SourceDesc->Common.Type)
db2bae30SDana Myers            {
db2bae30SDana Myers                ACPI_DEBUG_PRINT ((ACPI_DB_INFO,
db2bae30SDana Myers                    "Explicit operator, will store (%s) over existing type (%s)\n",
db2bae30SDana Myers                    AcpiUtGetObjectTypeName (SourceDesc),
db2bae30SDana Myers                    AcpiUtGetTypeName (DestinationType)));
db2bae30SDana Myers                Status = AE_TYPE;
db2bae30SDana Myers            }
db2bae30SDana Myers        }
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    case ARGI_TARGETREF:
*385cc6b4SJerry Jelinek    case ARGI_STORE_TARGET:
db2bae30SDana Myers
db2bae30SDana Myers        switch (DestinationType)
db2bae30SDana Myers        {
db2bae30SDana Myers        case ACPI_TYPE_INTEGER:
db2bae30SDana Myers        case ACPI_TYPE_BUFFER_FIELD:
db2bae30SDana Myers        case ACPI_TYPE_LOCAL_BANK_FIELD:
db2bae30SDana Myers        case ACPI_TYPE_LOCAL_INDEX_FIELD:
db2bae30SDana Myers            /*
db2bae30SDana Myers             * These types require an Integer operand. We can convert
db2bae30SDana Myers             * a Buffer or a String to an Integer if necessary.
db2bae30SDana Myers             */
*385cc6b4SJerry Jelinek            Status = AcpiExConvertToInteger (SourceDesc, ResultDesc, 16);
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        case ACPI_TYPE_STRING:
db2bae30SDana Myers            /*
db2bae30SDana Myers             * The operand must be a String. We can convert an
db2bae30SDana Myers             * Integer or Buffer if necessary
db2bae30SDana Myers             */
db2bae30SDana Myers            Status = AcpiExConvertToString (SourceDesc, ResultDesc,
db2bae30SDana Myers                ACPI_IMPLICIT_CONVERT_HEX);
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        case ACPI_TYPE_BUFFER:
db2bae30SDana Myers            /*
db2bae30SDana Myers             * The operand must be a Buffer. We can convert an
db2bae30SDana Myers             * Integer or String if necessary
db2bae30SDana Myers             */
db2bae30SDana Myers            Status = AcpiExConvertToBuffer (SourceDesc, ResultDesc);
db2bae30SDana Myers            break;
db2bae30SDana Myers
db2bae30SDana Myers        default:
*385cc6b4SJerry Jelinek
*385cc6b4SJerry Jelinek            ACPI_ERROR ((AE_INFO,
*385cc6b4SJerry Jelinek                "Bad destination type during conversion: 0x%X",
db2bae30SDana Myers                DestinationType));
db2bae30SDana Myers            Status = AE_AML_INTERNAL;
db2bae30SDana Myers            break;
db2bae30SDana Myers        }
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    case ARGI_REFERENCE:
db2bae30SDana Myers        /*
db2bae30SDana Myers         * CreateXxxxField cases - we are storing the field object into the name
db2bae30SDana Myers         */
db2bae30SDana Myers        break;
db2bae30SDana Myers
db2bae30SDana Myers    default:
*385cc6b4SJerry Jelinek
db2bae30SDana Myers        ACPI_ERROR ((AE_INFO,
26f3cdf0SGordon Ross            "Unknown Target type ID 0x%X AmlOpcode 0x%X DestType %s",
db2bae30SDana Myers            GET_CURRENT_ARG_TYPE (WalkState->OpInfo->RuntimeArgs),
db2bae30SDana Myers            WalkState->Opcode, AcpiUtGetTypeName (DestinationType)));
db2bae30SDana Myers        Status = AE_AML_INTERNAL;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    /*
db2bae30SDana Myers     * Source-to-Target conversion semantics:
db2bae30SDana Myers     *
db2bae30SDana Myers     * If conversion to the target type cannot be performed, then simply
db2bae30SDana Myers     * overwrite the target with the new object and type.
db2bae30SDana Myers     */
db2bae30SDana Myers    if (Status == AE_TYPE)
db2bae30SDana Myers    {
db2bae30SDana Myers        Status = AE_OK;
db2bae30SDana Myers    }
db2bae30SDana Myers
db2bae30SDana Myers    return_ACPI_STATUS (Status);
db2bae30SDana Myers}