Home | History | Annotate | Line # | Download | only in compiler
aslpld.c revision 1.1.1.10.6.1
      1           1.1  christos /******************************************************************************
      2           1.1  christos  *
      3           1.1  christos  * Module Name: aslpld - Implementation of ASL ToPLD macro
      4           1.1  christos  *
      5           1.1  christos  *****************************************************************************/
      6           1.1  christos 
      7  1.1.1.10.6.1  perseant /******************************************************************************
      8  1.1.1.10.6.1  perseant  *
      9  1.1.1.10.6.1  perseant  * 1. Copyright Notice
     10  1.1.1.10.6.1  perseant  *
     11  1.1.1.10.6.1  perseant  * Some or all of this work - Copyright (c) 1999 - 2024, Intel Corp.
     12           1.1  christos  * All rights reserved.
     13           1.1  christos  *
     14  1.1.1.10.6.1  perseant  * 2. License
     15  1.1.1.10.6.1  perseant  *
     16  1.1.1.10.6.1  perseant  * 2.1. This is your license from Intel Corp. under its intellectual property
     17  1.1.1.10.6.1  perseant  * rights. You may have additional license terms from the party that provided
     18  1.1.1.10.6.1  perseant  * you this software, covering your right to use that party's intellectual
     19  1.1.1.10.6.1  perseant  * property rights.
     20  1.1.1.10.6.1  perseant  *
     21  1.1.1.10.6.1  perseant  * 2.2. Intel grants, free of charge, to any person ("Licensee") obtaining a
     22  1.1.1.10.6.1  perseant  * copy of the source code appearing in this file ("Covered Code") an
     23  1.1.1.10.6.1  perseant  * irrevocable, perpetual, worldwide license under Intel's copyrights in the
     24  1.1.1.10.6.1  perseant  * base code distributed originally by Intel ("Original Intel Code") to copy,
     25  1.1.1.10.6.1  perseant  * make derivatives, distribute, use and display any portion of the Covered
     26  1.1.1.10.6.1  perseant  * Code in any form, with the right to sublicense such rights; and
     27  1.1.1.10.6.1  perseant  *
     28  1.1.1.10.6.1  perseant  * 2.3. Intel grants Licensee a non-exclusive and non-transferable patent
     29  1.1.1.10.6.1  perseant  * license (with the right to sublicense), under only those claims of Intel
     30  1.1.1.10.6.1  perseant  * patents that are infringed by the Original Intel Code, to make, use, sell,
     31  1.1.1.10.6.1  perseant  * offer to sell, and import the Covered Code and derivative works thereof
     32  1.1.1.10.6.1  perseant  * solely to the minimum extent necessary to exercise the above copyright
     33  1.1.1.10.6.1  perseant  * license, and in no event shall the patent license extend to any additions
     34  1.1.1.10.6.1  perseant  * to or modifications of the Original Intel Code. No other license or right
     35  1.1.1.10.6.1  perseant  * is granted directly or by implication, estoppel or otherwise;
     36  1.1.1.10.6.1  perseant  *
     37  1.1.1.10.6.1  perseant  * The above copyright and patent license is granted only if the following
     38  1.1.1.10.6.1  perseant  * conditions are met:
     39  1.1.1.10.6.1  perseant  *
     40  1.1.1.10.6.1  perseant  * 3. Conditions
     41  1.1.1.10.6.1  perseant  *
     42  1.1.1.10.6.1  perseant  * 3.1. Redistribution of Source with Rights to Further Distribute Source.
     43  1.1.1.10.6.1  perseant  * Redistribution of source code of any substantial portion of the Covered
     44  1.1.1.10.6.1  perseant  * Code or modification with rights to further distribute source must include
     45  1.1.1.10.6.1  perseant  * the above Copyright Notice, the above License, this list of Conditions,
     46  1.1.1.10.6.1  perseant  * and the following Disclaimer and Export Compliance provision. In addition,
     47  1.1.1.10.6.1  perseant  * Licensee must cause all Covered Code to which Licensee contributes to
     48  1.1.1.10.6.1  perseant  * contain a file documenting the changes Licensee made to create that Covered
     49  1.1.1.10.6.1  perseant  * Code and the date of any change. Licensee must include in that file the
     50  1.1.1.10.6.1  perseant  * documentation of any changes made by any predecessor Licensee. Licensee
     51  1.1.1.10.6.1  perseant  * must include a prominent statement that the modification is derived,
     52  1.1.1.10.6.1  perseant  * directly or indirectly, from Original Intel Code.
     53  1.1.1.10.6.1  perseant  *
     54  1.1.1.10.6.1  perseant  * 3.2. Redistribution of Source with no Rights to Further Distribute Source.
     55  1.1.1.10.6.1  perseant  * Redistribution of source code of any substantial portion of the Covered
     56  1.1.1.10.6.1  perseant  * Code or modification without rights to further distribute source must
     57  1.1.1.10.6.1  perseant  * include the following Disclaimer and Export Compliance provision in the
     58  1.1.1.10.6.1  perseant  * documentation and/or other materials provided with distribution. In
     59  1.1.1.10.6.1  perseant  * addition, Licensee may not authorize further sublicense of source of any
     60  1.1.1.10.6.1  perseant  * portion of the Covered Code, and must include terms to the effect that the
     61  1.1.1.10.6.1  perseant  * license from Licensee to its licensee is limited to the intellectual
     62  1.1.1.10.6.1  perseant  * property embodied in the software Licensee provides to its licensee, and
     63  1.1.1.10.6.1  perseant  * not to intellectual property embodied in modifications its licensee may
     64  1.1.1.10.6.1  perseant  * make.
     65  1.1.1.10.6.1  perseant  *
     66  1.1.1.10.6.1  perseant  * 3.3. Redistribution of Executable. Redistribution in executable form of any
     67  1.1.1.10.6.1  perseant  * substantial portion of the Covered Code or modification must reproduce the
     68  1.1.1.10.6.1  perseant  * above Copyright Notice, and the following Disclaimer and Export Compliance
     69  1.1.1.10.6.1  perseant  * provision in the documentation and/or other materials provided with the
     70  1.1.1.10.6.1  perseant  * distribution.
     71  1.1.1.10.6.1  perseant  *
     72  1.1.1.10.6.1  perseant  * 3.4. Intel retains all right, title, and interest in and to the Original
     73  1.1.1.10.6.1  perseant  * Intel Code.
     74  1.1.1.10.6.1  perseant  *
     75  1.1.1.10.6.1  perseant  * 3.5. Neither the name Intel nor any other trademark owned or controlled by
     76  1.1.1.10.6.1  perseant  * Intel shall be used in advertising or otherwise to promote the sale, use or
     77  1.1.1.10.6.1  perseant  * other dealings in products derived from or relating to the Covered Code
     78  1.1.1.10.6.1  perseant  * without prior written authorization from Intel.
     79  1.1.1.10.6.1  perseant  *
     80  1.1.1.10.6.1  perseant  * 4. Disclaimer and Export Compliance
     81  1.1.1.10.6.1  perseant  *
     82  1.1.1.10.6.1  perseant  * 4.1. INTEL MAKES NO WARRANTY OF ANY KIND REGARDING ANY SOFTWARE PROVIDED
     83  1.1.1.10.6.1  perseant  * HERE. ANY SOFTWARE ORIGINATING FROM INTEL OR DERIVED FROM INTEL SOFTWARE
     84  1.1.1.10.6.1  perseant  * IS PROVIDED "AS IS," AND INTEL WILL NOT PROVIDE ANY SUPPORT, ASSISTANCE,
     85  1.1.1.10.6.1  perseant  * INSTALLATION, TRAINING OR OTHER SERVICES. INTEL WILL NOT PROVIDE ANY
     86  1.1.1.10.6.1  perseant  * UPDATES, ENHANCEMENTS OR EXTENSIONS. INTEL SPECIFICALLY DISCLAIMS ANY
     87  1.1.1.10.6.1  perseant  * IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT AND FITNESS FOR A
     88  1.1.1.10.6.1  perseant  * PARTICULAR PURPOSE.
     89  1.1.1.10.6.1  perseant  *
     90  1.1.1.10.6.1  perseant  * 4.2. IN NO EVENT SHALL INTEL HAVE ANY LIABILITY TO LICENSEE, ITS LICENSEES
     91  1.1.1.10.6.1  perseant  * OR ANY OTHER THIRD PARTY, FOR ANY LOST PROFITS, LOST DATA, LOSS OF USE OR
     92  1.1.1.10.6.1  perseant  * COSTS OF PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, OR FOR ANY INDIRECT,
     93  1.1.1.10.6.1  perseant  * SPECIAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THIS AGREEMENT, UNDER ANY
     94  1.1.1.10.6.1  perseant  * CAUSE OF ACTION OR THEORY OF LIABILITY, AND IRRESPECTIVE OF WHETHER INTEL
     95  1.1.1.10.6.1  perseant  * HAS ADVANCE NOTICE OF THE POSSIBILITY OF SUCH DAMAGES. THESE LIMITATIONS
     96  1.1.1.10.6.1  perseant  * SHALL APPLY NOTWITHSTANDING THE FAILURE OF THE ESSENTIAL PURPOSE OF ANY
     97  1.1.1.10.6.1  perseant  * LIMITED REMEDY.
     98  1.1.1.10.6.1  perseant  *
     99  1.1.1.10.6.1  perseant  * 4.3. Licensee shall not export, either directly or indirectly, any of this
    100  1.1.1.10.6.1  perseant  * software or system incorporating such software without first obtaining any
    101  1.1.1.10.6.1  perseant  * required license or other approval from the U. S. Department of Commerce or
    102  1.1.1.10.6.1  perseant  * any other agency or department of the United States Government. In the
    103  1.1.1.10.6.1  perseant  * event Licensee exports any such software from the United States or
    104  1.1.1.10.6.1  perseant  * re-exports any such software from a foreign destination, Licensee shall
    105  1.1.1.10.6.1  perseant  * ensure that the distribution and export/re-export of the software is in
    106  1.1.1.10.6.1  perseant  * compliance with all laws, regulations, orders, or other restrictions of the
    107  1.1.1.10.6.1  perseant  * U.S. Export Administration Regulations. Licensee agrees that neither it nor
    108  1.1.1.10.6.1  perseant  * any of its subsidiaries will export/re-export any technical data, process,
    109  1.1.1.10.6.1  perseant  * software, or service, directly or indirectly, to any country for which the
    110  1.1.1.10.6.1  perseant  * United States government or any agency thereof requires an export license,
    111  1.1.1.10.6.1  perseant  * other governmental approval, or letter of assurance, without first obtaining
    112  1.1.1.10.6.1  perseant  * such license, approval or letter.
    113  1.1.1.10.6.1  perseant  *
    114  1.1.1.10.6.1  perseant  *****************************************************************************
    115  1.1.1.10.6.1  perseant  *
    116  1.1.1.10.6.1  perseant  * Alternatively, you may choose to be licensed under the terms of the
    117  1.1.1.10.6.1  perseant  * following license:
    118  1.1.1.10.6.1  perseant  *
    119           1.1  christos  * Redistribution and use in source and binary forms, with or without
    120           1.1  christos  * modification, are permitted provided that the following conditions
    121           1.1  christos  * are met:
    122           1.1  christos  * 1. Redistributions of source code must retain the above copyright
    123           1.1  christos  *    notice, this list of conditions, and the following disclaimer,
    124           1.1  christos  *    without modification.
    125           1.1  christos  * 2. Redistributions in binary form must reproduce at minimum a disclaimer
    126           1.1  christos  *    substantially similar to the "NO WARRANTY" disclaimer below
    127           1.1  christos  *    ("Disclaimer") and any redistribution must be conditioned upon
    128           1.1  christos  *    including a substantially similar Disclaimer requirement for further
    129           1.1  christos  *    binary redistribution.
    130           1.1  christos  * 3. Neither the names of the above-listed copyright holders nor the names
    131           1.1  christos  *    of any contributors may be used to endorse or promote products derived
    132           1.1  christos  *    from this software without specific prior written permission.
    133           1.1  christos  *
    134           1.1  christos  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
    135           1.1  christos  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
    136       1.1.1.8  christos  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
    137           1.1  christos  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
    138  1.1.1.10.6.1  perseant  * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
    139  1.1.1.10.6.1  perseant  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
    140  1.1.1.10.6.1  perseant  * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
    141  1.1.1.10.6.1  perseant  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
    142  1.1.1.10.6.1  perseant  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
    143  1.1.1.10.6.1  perseant  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
    144  1.1.1.10.6.1  perseant  * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
    145  1.1.1.10.6.1  perseant  *
    146  1.1.1.10.6.1  perseant  * Alternatively, you may choose to be licensed under the terms of the
    147  1.1.1.10.6.1  perseant  * GNU General Public License ("GPL") version 2 as published by the Free
    148  1.1.1.10.6.1  perseant  * Software Foundation.
    149  1.1.1.10.6.1  perseant  *
    150  1.1.1.10.6.1  perseant  *****************************************************************************/
    151           1.1  christos 
    152           1.1  christos #include "aslcompiler.h"
    153           1.1  christos #include "aslcompiler.y.h"
    154           1.1  christos #include "amlcode.h"
    155           1.1  christos 
    156           1.1  christos #define _COMPONENT          ACPI_COMPILER
    157           1.1  christos         ACPI_MODULE_NAME    ("aslpld")
    158           1.1  christos 
    159           1.1  christos 
    160           1.1  christos /* Local prototypes */
    161           1.1  christos 
    162           1.1  christos static UINT8 *
    163           1.1  christos OpcEncodePldBuffer (
    164           1.1  christos     ACPI_PLD_INFO           *PldInfo);
    165           1.1  christos 
    166           1.1  christos static BOOLEAN
    167           1.1  christos OpcFindName (
    168           1.1  christos     const char              **List,
    169           1.1  christos     char                    *Name,
    170           1.1  christos     UINT32                  *Index);
    171           1.1  christos 
    172           1.1  christos 
    173           1.1  christos /*******************************************************************************
    174           1.1  christos  *
    175           1.1  christos  * FUNCTION:    OpcDoPld
    176           1.1  christos  *
    177           1.1  christos  * PARAMETERS:  Op                  - Current parse node
    178           1.1  christos  *
    179           1.1  christos  * RETURN:      None
    180           1.1  christos  *
    181           1.1  christos  * DESCRIPTION: Convert ToPLD macro to 20-byte buffer
    182           1.1  christos  *
    183           1.1  christos  * The ToPLD parse tree looks like this:
    184           1.1  christos  *
    185           1.1  christos  *      TOPLD
    186           1.1  christos  *          PLD_REVISION
    187           1.1  christos  *              INTEGER
    188           1.1  christos  *          PLD_IGNORECOLOR
    189           1.1  christos  *              INTEGER
    190           1.1  christos  *          ...
    191           1.1  christos  *          etc.
    192           1.1  christos  *
    193           1.1  christos  ******************************************************************************/
    194           1.1  christos 
    195           1.1  christos void
    196           1.1  christos OpcDoPld (
    197           1.1  christos     ACPI_PARSE_OBJECT       *Op)
    198           1.1  christos {
    199           1.1  christos     ACPI_PLD_INFO           PldInfo;
    200           1.1  christos     UINT8                   *Buffer;
    201           1.1  christos     ACPI_PARSE_OBJECT       *ThisOp;
    202           1.1  christos     ACPI_PARSE_OBJECT       *NewOp;
    203           1.1  christos     UINT16                  ParseOpcode;
    204           1.1  christos     UINT32                  Value;
    205           1.1  christos 
    206           1.1  christos 
    207           1.1  christos     if (!Op)
    208           1.1  christos     {
    209           1.1  christos         AslError (ASL_ERROR, ASL_MSG_NOT_EXIST, Op, NULL);
    210           1.1  christos         return;
    211           1.1  christos     }
    212           1.1  christos 
    213           1.1  christos     if (Op->Asl.ParseOpcode != PARSEOP_TOPLD)
    214           1.1  christos     {
    215           1.1  christos         AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, Op, NULL);
    216           1.1  christos         return;
    217           1.1  christos     }
    218           1.1  christos 
    219           1.1  christos     memset (&PldInfo, 0, sizeof (ACPI_PLD_INFO));
    220           1.1  christos 
    221           1.1  christos     /* Traverse the list of PLD Ops (one per PLD field) */
    222           1.1  christos 
    223           1.1  christos     ThisOp = Op->Asl.Child;
    224           1.1  christos     while (ThisOp)
    225           1.1  christos     {
    226           1.1  christos         /* Get child values */
    227           1.1  christos 
    228           1.1  christos         ParseOpcode = ThisOp->Asl.Child->Asl.ParseOpcode;
    229           1.1  christos         Value = (UINT32) ThisOp->Asl.Child->Asl.Value.Integer;
    230           1.1  christos 
    231           1.1  christos         switch (ThisOp->Asl.ParseOpcode)
    232           1.1  christos         {
    233           1.1  christos         case PARSEOP_PLD_REVISION:
    234           1.1  christos 
    235           1.1  christos             if (ParseOpcode != PARSEOP_INTEGER)
    236           1.1  christos             {
    237           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, ThisOp, NULL);
    238           1.1  christos                 break;
    239           1.1  christos             }
    240           1.1  christos 
    241           1.1  christos             if (Value > 127)
    242           1.1  christos             {
    243           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    244           1.1  christos                 break;
    245           1.1  christos             }
    246           1.1  christos 
    247           1.1  christos             PldInfo.Revision = (UINT8) Value;
    248           1.1  christos             break;
    249           1.1  christos 
    250           1.1  christos         case PARSEOP_PLD_IGNORECOLOR:
    251           1.1  christos 
    252           1.1  christos             if (ParseOpcode != PARSEOP_INTEGER)
    253           1.1  christos             {
    254           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, ThisOp, NULL);
    255           1.1  christos                 break;
    256           1.1  christos             }
    257           1.1  christos 
    258           1.1  christos             if (Value > 1)
    259           1.1  christos             {
    260           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    261           1.1  christos                 break;
    262           1.1  christos             }
    263           1.1  christos 
    264           1.1  christos             PldInfo.IgnoreColor = (UINT8) Value;
    265           1.1  christos             break;
    266           1.1  christos 
    267           1.1  christos         case PARSEOP_PLD_RED:
    268           1.1  christos         case PARSEOP_PLD_GREEN:
    269           1.1  christos         case PARSEOP_PLD_BLUE:
    270           1.1  christos 
    271           1.1  christos             if (ParseOpcode != PARSEOP_INTEGER)
    272           1.1  christos             {
    273           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    274           1.1  christos                 break;
    275           1.1  christos             }
    276           1.1  christos 
    277           1.1  christos             if (Value > 255)
    278           1.1  christos             {
    279           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    280           1.1  christos                 break;
    281           1.1  christos             }
    282           1.1  christos 
    283           1.1  christos             if (ThisOp->Asl.ParseOpcode == PARSEOP_PLD_RED)
    284           1.1  christos             {
    285           1.1  christos                 PldInfo.Red = (UINT8) Value;
    286           1.1  christos             }
    287           1.1  christos             else if (ThisOp->Asl.ParseOpcode == PARSEOP_PLD_GREEN)
    288           1.1  christos             {
    289           1.1  christos                 PldInfo.Green = (UINT8) Value;
    290           1.1  christos             }
    291           1.1  christos             else /* PARSEOP_PLD_BLUE */
    292           1.1  christos             {
    293           1.1  christos                 PldInfo.Blue = (UINT8) Value;
    294           1.1  christos             }
    295           1.1  christos             break;
    296           1.1  christos 
    297           1.1  christos         case PARSEOP_PLD_WIDTH:
    298           1.1  christos         case PARSEOP_PLD_HEIGHT:
    299           1.1  christos 
    300           1.1  christos             if (ParseOpcode != PARSEOP_INTEGER)
    301           1.1  christos             {
    302           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, ThisOp, NULL);
    303           1.1  christos                 break;
    304           1.1  christos             }
    305           1.1  christos 
    306           1.1  christos             if (Value > 65535)
    307           1.1  christos             {
    308           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    309           1.1  christos                 break;
    310           1.1  christos             }
    311           1.1  christos 
    312           1.1  christos             if (ThisOp->Asl.ParseOpcode == PARSEOP_PLD_WIDTH)
    313           1.1  christos             {
    314           1.1  christos                 PldInfo.Width = (UINT16) Value;
    315           1.1  christos             }
    316           1.1  christos             else /* PARSEOP_PLD_HEIGHT */
    317           1.1  christos             {
    318           1.1  christos                 PldInfo.Height = (UINT16) Value;
    319           1.1  christos             }
    320           1.1  christos 
    321           1.1  christos             break;
    322           1.1  christos 
    323           1.1  christos         case PARSEOP_PLD_USERVISIBLE:
    324           1.1  christos         case PARSEOP_PLD_DOCK:
    325           1.1  christos         case PARSEOP_PLD_LID:
    326           1.1  christos 
    327           1.1  christos             if (ParseOpcode != PARSEOP_INTEGER)
    328           1.1  christos             {
    329           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, ThisOp, NULL);
    330           1.1  christos                 break;
    331           1.1  christos             }
    332           1.1  christos 
    333           1.1  christos             if (Value > 1)
    334           1.1  christos             {
    335           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    336           1.1  christos                 break;
    337           1.1  christos             }
    338           1.1  christos 
    339           1.1  christos             if (ThisOp->Asl.ParseOpcode == PARSEOP_PLD_USERVISIBLE)
    340           1.1  christos             {
    341           1.1  christos                 PldInfo.UserVisible = (UINT8) Value;
    342           1.1  christos             }
    343           1.1  christos             else if (ThisOp->Asl.ParseOpcode == PARSEOP_PLD_DOCK)
    344           1.1  christos             {
    345           1.1  christos                 PldInfo.Dock = (UINT8) Value;
    346           1.1  christos             }
    347           1.1  christos             else
    348           1.1  christos             {
    349           1.1  christos                 PldInfo.Lid = (UINT8) Value;
    350           1.1  christos             }
    351           1.1  christos 
    352           1.1  christos             break;
    353           1.1  christos 
    354           1.1  christos         case PARSEOP_PLD_PANEL:
    355           1.1  christos 
    356           1.1  christos             if (ParseOpcode == PARSEOP_INTEGER)
    357           1.1  christos             {
    358           1.1  christos                 if (Value > 6)
    359           1.1  christos                 {
    360           1.1  christos                     AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    361           1.1  christos                     break;
    362           1.1  christos                 }
    363           1.1  christos             }
    364           1.1  christos             else /* PARSEOP_STRING */
    365           1.1  christos             {
    366           1.1  christos                 if (!OpcFindName (AcpiGbl_PldPanelList,
    367           1.1  christos                     ThisOp->Asl.Child->Asl.Value.String,
    368           1.1  christos                     &Value))
    369           1.1  christos                 {
    370           1.1  christos                     AslError (ASL_ERROR, ASL_MSG_INVALID_OPERAND, ThisOp, NULL);
    371           1.1  christos                     break;
    372           1.1  christos                 }
    373           1.1  christos             }
    374           1.1  christos 
    375           1.1  christos             PldInfo.Panel = (UINT8) Value;
    376           1.1  christos             break;
    377           1.1  christos 
    378           1.1  christos         case PARSEOP_PLD_VERTICALPOSITION:
    379           1.1  christos 
    380           1.1  christos             if (ParseOpcode == PARSEOP_INTEGER)
    381           1.1  christos             {
    382           1.1  christos                 if (Value > 2)
    383           1.1  christos                 {
    384           1.1  christos                     AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    385           1.1  christos                     break;
    386           1.1  christos                 }
    387           1.1  christos             }
    388           1.1  christos             else /* PARSEOP_STRING */
    389           1.1  christos             {
    390           1.1  christos                 if (!OpcFindName (AcpiGbl_PldVerticalPositionList,
    391           1.1  christos                     ThisOp->Asl.Child->Asl.Value.String,
    392           1.1  christos                     &Value))
    393           1.1  christos                 {
    394           1.1  christos                     AslError (ASL_ERROR, ASL_MSG_INVALID_OPERAND, ThisOp, NULL);
    395           1.1  christos                     break;
    396           1.1  christos                 }
    397           1.1  christos             }
    398           1.1  christos 
    399           1.1  christos             PldInfo.VerticalPosition = (UINT8) Value;
    400           1.1  christos             break;
    401           1.1  christos 
    402           1.1  christos         case PARSEOP_PLD_HORIZONTALPOSITION:
    403           1.1  christos 
    404           1.1  christos             if (ParseOpcode == PARSEOP_INTEGER)
    405           1.1  christos             {
    406           1.1  christos                 if (Value > 2)
    407           1.1  christos                 {
    408           1.1  christos                     AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    409           1.1  christos                     break;
    410           1.1  christos                 }
    411           1.1  christos             }
    412           1.1  christos             else /* PARSEOP_STRING */
    413           1.1  christos             {
    414           1.1  christos                 if (!OpcFindName (AcpiGbl_PldHorizontalPositionList,
    415           1.1  christos                     ThisOp->Asl.Child->Asl.Value.String,
    416           1.1  christos                     &Value))
    417           1.1  christos                 {
    418           1.1  christos                     AslError (ASL_ERROR, ASL_MSG_INVALID_OPERAND, ThisOp, NULL);
    419           1.1  christos                     break;
    420           1.1  christos                 }
    421           1.1  christos             }
    422           1.1  christos 
    423           1.1  christos             PldInfo.HorizontalPosition = (UINT8) Value;
    424           1.1  christos             break;
    425           1.1  christos 
    426           1.1  christos         case PARSEOP_PLD_SHAPE:
    427           1.1  christos 
    428           1.1  christos             if (ParseOpcode == PARSEOP_INTEGER)
    429           1.1  christos             {
    430           1.1  christos                 if (Value > 8)
    431           1.1  christos                 {
    432           1.1  christos                     AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    433           1.1  christos                     break;
    434           1.1  christos                 }
    435           1.1  christos             }
    436           1.1  christos             else /* PARSEOP_STRING */
    437           1.1  christos             {
    438           1.1  christos                 if (!OpcFindName (AcpiGbl_PldShapeList,
    439           1.1  christos                     ThisOp->Asl.Child->Asl.Value.String,
    440           1.1  christos                     &Value))
    441           1.1  christos                 {
    442           1.1  christos                     AslError (ASL_ERROR, ASL_MSG_INVALID_OPERAND, ThisOp, NULL);
    443           1.1  christos                     break;
    444           1.1  christos                 }
    445           1.1  christos             }
    446           1.1  christos 
    447           1.1  christos             PldInfo.Shape = (UINT8) Value;
    448           1.1  christos             break;
    449           1.1  christos 
    450           1.1  christos         case PARSEOP_PLD_GROUPORIENTATION:
    451           1.1  christos 
    452           1.1  christos             if (ParseOpcode != PARSEOP_INTEGER)
    453           1.1  christos             {
    454           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, ThisOp, NULL);
    455           1.1  christos                 break;
    456           1.1  christos             }
    457           1.1  christos 
    458           1.1  christos             if (Value > 1)
    459           1.1  christos             {
    460           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    461           1.1  christos                 break;
    462           1.1  christos             }
    463           1.1  christos 
    464           1.1  christos             PldInfo.GroupOrientation = (UINT8) Value;
    465           1.1  christos             break;
    466           1.1  christos 
    467           1.1  christos         case PARSEOP_PLD_GROUPTOKEN:
    468           1.1  christos         case PARSEOP_PLD_GROUPPOSITION:
    469           1.1  christos 
    470           1.1  christos             if (ParseOpcode != PARSEOP_INTEGER)
    471           1.1  christos             {
    472           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, ThisOp, NULL);
    473           1.1  christos                 break;
    474           1.1  christos             }
    475           1.1  christos 
    476           1.1  christos             if (Value > 255)
    477           1.1  christos             {
    478           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    479           1.1  christos                 break;
    480           1.1  christos             }
    481           1.1  christos 
    482           1.1  christos             if (ThisOp->Asl.ParseOpcode == PARSEOP_PLD_GROUPTOKEN)
    483           1.1  christos             {
    484           1.1  christos                 PldInfo.GroupToken = (UINT8) Value;
    485           1.1  christos             }
    486           1.1  christos             else /* PARSEOP_PLD_GROUPPOSITION */
    487           1.1  christos             {
    488           1.1  christos                 PldInfo.GroupPosition = (UINT8) Value;
    489           1.1  christos             }
    490           1.1  christos 
    491           1.1  christos             break;
    492           1.1  christos 
    493           1.1  christos         case PARSEOP_PLD_BAY:
    494           1.1  christos         case PARSEOP_PLD_EJECTABLE:
    495           1.1  christos         case PARSEOP_PLD_EJECTREQUIRED:
    496           1.1  christos 
    497           1.1  christos             if (ParseOpcode != PARSEOP_INTEGER)
    498           1.1  christos             {
    499           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, ThisOp, NULL);
    500           1.1  christos                 break;
    501           1.1  christos             }
    502           1.1  christos 
    503           1.1  christos             if (Value > 1)
    504           1.1  christos             {
    505           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    506           1.1  christos                 break;
    507           1.1  christos             }
    508           1.1  christos 
    509           1.1  christos             if (ThisOp->Asl.ParseOpcode == PARSEOP_PLD_BAY)
    510           1.1  christos             {
    511           1.1  christos                 PldInfo.Bay = (UINT8) Value;
    512           1.1  christos             }
    513           1.1  christos             else if (ThisOp->Asl.ParseOpcode == PARSEOP_PLD_EJECTABLE)
    514           1.1  christos             {
    515           1.1  christos                 PldInfo.Ejectable = (UINT8) Value;
    516           1.1  christos             }
    517           1.1  christos             else /* PARSEOP_PLD_EJECTREQUIRED */
    518           1.1  christos             {
    519           1.1  christos                 PldInfo.OspmEjectRequired = (UINT8) Value;
    520           1.1  christos             }
    521           1.1  christos 
    522           1.1  christos             break;
    523           1.1  christos 
    524           1.1  christos         case PARSEOP_PLD_CABINETNUMBER:
    525           1.1  christos         case PARSEOP_PLD_CARDCAGENUMBER:
    526           1.1  christos 
    527           1.1  christos             if (ParseOpcode != PARSEOP_INTEGER)
    528           1.1  christos             {
    529           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, ThisOp, NULL);
    530           1.1  christos                 break;
    531           1.1  christos             }
    532           1.1  christos 
    533           1.1  christos             if (Value > 255)
    534           1.1  christos             {
    535           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    536           1.1  christos                 break;
    537           1.1  christos             }
    538           1.1  christos 
    539           1.1  christos             if (ThisOp->Asl.ParseOpcode == PARSEOP_PLD_CABINETNUMBER)
    540           1.1  christos             {
    541           1.1  christos                 PldInfo.CabinetNumber = (UINT8) Value;
    542           1.1  christos             }
    543           1.1  christos             else /* PARSEOP_PLD_CARDCAGENUMBER */
    544           1.1  christos             {
    545           1.1  christos                 PldInfo.CardCageNumber = (UINT8) Value;
    546           1.1  christos             }
    547           1.1  christos 
    548           1.1  christos             break;
    549           1.1  christos 
    550           1.1  christos         case PARSEOP_PLD_REFERENCE:
    551           1.1  christos 
    552           1.1  christos             if (ParseOpcode != PARSEOP_INTEGER)
    553           1.1  christos             {
    554           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, ThisOp, NULL);
    555           1.1  christos                 break;
    556           1.1  christos             }
    557           1.1  christos 
    558           1.1  christos             if (Value > 1)
    559           1.1  christos             {
    560           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    561           1.1  christos                 break;
    562           1.1  christos             }
    563           1.1  christos 
    564           1.1  christos             PldInfo.Reference = (UINT8) Value;
    565           1.1  christos             break;
    566           1.1  christos 
    567           1.1  christos         case PARSEOP_PLD_ROTATION:
    568           1.1  christos 
    569           1.1  christos             if (ParseOpcode != PARSEOP_INTEGER)
    570           1.1  christos             {
    571           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, ThisOp, NULL);
    572           1.1  christos                 break;
    573           1.1  christos             }
    574           1.1  christos 
    575           1.1  christos             if (Value > 7)
    576           1.1  christos             {
    577           1.1  christos                 switch (Value)
    578           1.1  christos                 {
    579           1.1  christos                 case 45:
    580           1.1  christos 
    581           1.1  christos                     Value = 1;
    582           1.1  christos                     break;
    583           1.1  christos 
    584           1.1  christos                 case 90:
    585           1.1  christos 
    586           1.1  christos                     Value = 2;
    587           1.1  christos                     break;
    588           1.1  christos 
    589           1.1  christos                 case 135:
    590           1.1  christos 
    591           1.1  christos                     Value = 3;
    592           1.1  christos                     break;
    593           1.1  christos 
    594           1.1  christos                 case 180:
    595           1.1  christos 
    596           1.1  christos                     Value = 4;
    597           1.1  christos                     break;
    598           1.1  christos 
    599           1.1  christos                 case 225:
    600           1.1  christos 
    601           1.1  christos                     Value = 5;
    602           1.1  christos                     break;
    603           1.1  christos 
    604           1.1  christos                 case 270:
    605           1.1  christos 
    606           1.1  christos                     Value = 6;
    607           1.1  christos                     break;
    608           1.1  christos 
    609           1.1  christos                 case 315:
    610           1.1  christos 
    611           1.1  christos                     Value = 7;
    612           1.1  christos                     break;
    613           1.1  christos 
    614           1.1  christos                 default:
    615           1.1  christos 
    616           1.1  christos                     AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    617           1.1  christos                     break;
    618           1.1  christos                 }
    619           1.1  christos             }
    620           1.1  christos 
    621           1.1  christos             PldInfo.Rotation = (UINT8) Value;
    622           1.1  christos             break;
    623           1.1  christos 
    624           1.1  christos         case PARSEOP_PLD_ORDER:
    625           1.1  christos 
    626           1.1  christos             if (ParseOpcode != PARSEOP_INTEGER)
    627           1.1  christos             {
    628           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, ThisOp, NULL);
    629           1.1  christos                 break;
    630           1.1  christos             }
    631           1.1  christos 
    632           1.1  christos             if (Value > 31)
    633           1.1  christos             {
    634           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    635           1.1  christos                 break;
    636           1.1  christos             }
    637           1.1  christos 
    638           1.1  christos             PldInfo.Order = (UINT8) Value;
    639           1.1  christos             break;
    640           1.1  christos 
    641           1.1  christos         case PARSEOP_PLD_VERTICALOFFSET:
    642           1.1  christos         case PARSEOP_PLD_HORIZONTALOFFSET:
    643           1.1  christos 
    644           1.1  christos             if (ParseOpcode != PARSEOP_INTEGER)
    645           1.1  christos             {
    646           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, ThisOp, NULL);
    647           1.1  christos                 break;
    648           1.1  christos             }
    649           1.1  christos 
    650           1.1  christos             if (Value > 65535)
    651           1.1  christos             {
    652           1.1  christos                 AslError (ASL_ERROR, ASL_MSG_RANGE, ThisOp, NULL);
    653           1.1  christos                 break;
    654           1.1  christos             }
    655           1.1  christos 
    656           1.1  christos             if (ThisOp->Asl.ParseOpcode == PARSEOP_PLD_VERTICALOFFSET)
    657           1.1  christos             {
    658           1.1  christos                 PldInfo.VerticalOffset = (UINT16) Value;
    659           1.1  christos             }
    660           1.1  christos             else /* PARSEOP_PLD_HORIZONTALOFFSET */
    661           1.1  christos             {
    662           1.1  christos                 PldInfo.HorizontalOffset = (UINT16) Value;
    663           1.1  christos             }
    664           1.1  christos 
    665           1.1  christos             break;
    666           1.1  christos 
    667           1.1  christos         default:
    668           1.1  christos 
    669           1.1  christos             AslError (ASL_ERROR, ASL_MSG_INVALID_TYPE, ThisOp, NULL);
    670           1.1  christos             break;
    671           1.1  christos         }
    672           1.1  christos 
    673           1.1  christos         ThisOp = ThisOp->Asl.Next;
    674           1.1  christos     }
    675           1.1  christos 
    676           1.1  christos     Buffer = OpcEncodePldBuffer (&PldInfo);
    677           1.1  christos 
    678           1.1  christos     /* Change Op to a Buffer */
    679           1.1  christos 
    680           1.1  christos     Op->Asl.ParseOpcode = PARSEOP_BUFFER;
    681           1.1  christos     Op->Common.AmlOpcode = AML_BUFFER_OP;
    682           1.1  christos 
    683           1.1  christos     /* Disable further optimization */
    684           1.1  christos 
    685       1.1.1.3  christos     Op->Asl.CompileFlags &= ~OP_COMPILE_TIME_CONST;
    686           1.1  christos     UtSetParseOpName (Op);
    687           1.1  christos 
    688           1.1  christos     /* Child node is the buffer length */
    689           1.1  christos 
    690       1.1.1.3  christos     NewOp = TrAllocateOp (PARSEOP_INTEGER);
    691           1.1  christos 
    692           1.1  christos     NewOp->Asl.AmlOpcode = AML_BYTE_OP;
    693           1.1  christos     NewOp->Asl.Value.Integer = 20;
    694           1.1  christos     NewOp->Asl.Parent = Op;
    695           1.1  christos 
    696           1.1  christos     Op->Asl.Child = NewOp;
    697           1.1  christos     Op = NewOp;
    698           1.1  christos 
    699           1.1  christos     /* Peer to the child is the raw buffer data */
    700           1.1  christos 
    701       1.1.1.3  christos     NewOp = TrAllocateOp (PARSEOP_RAW_DATA);
    702           1.1  christos     NewOp->Asl.AmlOpcode = AML_RAW_DATA_BUFFER;
    703           1.1  christos     NewOp->Asl.AmlLength = 20;
    704           1.1  christos     NewOp->Asl.Value.String = ACPI_CAST_PTR (char, Buffer);
    705           1.1  christos     NewOp->Asl.Parent = Op->Asl.Parent;
    706           1.1  christos 
    707           1.1  christos     Op->Asl.Next = NewOp;
    708           1.1  christos }
    709           1.1  christos 
    710           1.1  christos 
    711           1.1  christos /*******************************************************************************
    712           1.1  christos  *
    713           1.1  christos  * FUNCTION:    OpcEncodePldBuffer
    714           1.1  christos  *
    715           1.1  christos  * PARAMETERS:  PldInfo             - _PLD buffer struct (Using local struct)
    716           1.1  christos  *
    717           1.1  christos  * RETURN:      Encode _PLD buffer suitable for return value from _PLD
    718           1.1  christos  *
    719           1.1  christos  * DESCRIPTION: Bit-packs a _PLD buffer struct.
    720           1.1  christos  *
    721           1.1  christos  ******************************************************************************/
    722           1.1  christos 
    723           1.1  christos static UINT8 *
    724           1.1  christos OpcEncodePldBuffer (
    725           1.1  christos     ACPI_PLD_INFO           *PldInfo)
    726           1.1  christos {
    727           1.1  christos     UINT32                  *Buffer;
    728           1.1  christos     UINT32                  Dword;
    729           1.1  christos 
    730           1.1  christos 
    731       1.1.1.5  christos     Buffer = ACPI_CAST_PTR (UINT32, UtLocalCacheCalloc (ACPI_PLD_BUFFER_SIZE));
    732           1.1  christos 
    733           1.1  christos     /* First 32 bits */
    734           1.1  christos 
    735           1.1  christos     Dword = 0;
    736           1.1  christos     ACPI_PLD_SET_REVISION       (&Dword, PldInfo->Revision);
    737           1.1  christos     ACPI_PLD_SET_IGNORE_COLOR   (&Dword, PldInfo->IgnoreColor);
    738           1.1  christos     ACPI_PLD_SET_RED            (&Dword, PldInfo->Red);
    739           1.1  christos     ACPI_PLD_SET_GREEN          (&Dword, PldInfo->Green);
    740           1.1  christos     ACPI_PLD_SET_BLUE           (&Dword, PldInfo->Blue);
    741           1.1  christos     ACPI_MOVE_32_TO_32          (&Buffer[0], &Dword);
    742           1.1  christos 
    743           1.1  christos     /* Second 32 bits */
    744           1.1  christos 
    745           1.1  christos     Dword = 0;
    746           1.1  christos     ACPI_PLD_SET_WIDTH          (&Dword, PldInfo->Width);
    747           1.1  christos     ACPI_PLD_SET_HEIGHT         (&Dword, PldInfo->Height);
    748           1.1  christos     ACPI_MOVE_32_TO_32          (&Buffer[1], &Dword);
    749           1.1  christos 
    750           1.1  christos     /* Third 32 bits */
    751           1.1  christos 
    752           1.1  christos     Dword = 0;
    753           1.1  christos     ACPI_PLD_SET_USER_VISIBLE   (&Dword, PldInfo->UserVisible);
    754           1.1  christos     ACPI_PLD_SET_DOCK           (&Dword, PldInfo->Dock);
    755           1.1  christos     ACPI_PLD_SET_LID            (&Dword, PldInfo->Lid);
    756           1.1  christos     ACPI_PLD_SET_PANEL          (&Dword, PldInfo->Panel);
    757           1.1  christos     ACPI_PLD_SET_VERTICAL       (&Dword, PldInfo->VerticalPosition);
    758           1.1  christos     ACPI_PLD_SET_HORIZONTAL     (&Dword, PldInfo->HorizontalPosition);
    759           1.1  christos     ACPI_PLD_SET_SHAPE          (&Dword, PldInfo->Shape);
    760           1.1  christos     ACPI_PLD_SET_ORIENTATION    (&Dword, PldInfo->GroupOrientation);
    761           1.1  christos     ACPI_PLD_SET_TOKEN          (&Dword, PldInfo->GroupToken);
    762           1.1  christos     ACPI_PLD_SET_POSITION       (&Dword, PldInfo->GroupPosition);
    763           1.1  christos     ACPI_PLD_SET_BAY            (&Dword, PldInfo->Bay);
    764           1.1  christos     ACPI_MOVE_32_TO_32          (&Buffer[2], &Dword);
    765           1.1  christos 
    766           1.1  christos     /* Fourth 32 bits */
    767           1.1  christos 
    768           1.1  christos     Dword = 0;
    769           1.1  christos     ACPI_PLD_SET_EJECTABLE      (&Dword, PldInfo->Ejectable);
    770           1.1  christos     ACPI_PLD_SET_OSPM_EJECT     (&Dword, PldInfo->OspmEjectRequired);
    771           1.1  christos     ACPI_PLD_SET_CABINET        (&Dword, PldInfo->CabinetNumber);
    772           1.1  christos     ACPI_PLD_SET_CARD_CAGE      (&Dword, PldInfo->CardCageNumber);
    773           1.1  christos     ACPI_PLD_SET_REFERENCE      (&Dword, PldInfo->Reference);
    774           1.1  christos     ACPI_PLD_SET_ROTATION       (&Dword, PldInfo->Rotation);
    775           1.1  christos     ACPI_PLD_SET_ORDER          (&Dword, PldInfo->Order);
    776           1.1  christos     ACPI_MOVE_32_TO_32          (&Buffer[3], &Dword);
    777           1.1  christos 
    778           1.1  christos     /* Revision 2 adds an additional DWORD */
    779           1.1  christos 
    780           1.1  christos     if (PldInfo->Revision >= 2)
    781           1.1  christos     {
    782           1.1  christos         /* Fifth 32 bits */
    783           1.1  christos 
    784           1.1  christos         Dword = 0;
    785           1.1  christos         ACPI_PLD_SET_VERT_OFFSET    (&Dword, PldInfo->VerticalOffset);
    786           1.1  christos         ACPI_PLD_SET_HORIZ_OFFSET   (&Dword, PldInfo->HorizontalOffset);
    787           1.1  christos         ACPI_MOVE_32_TO_32          (&Buffer[4], &Dword);
    788           1.1  christos     }
    789           1.1  christos 
    790           1.1  christos     return (ACPI_CAST_PTR (UINT8, Buffer));
    791           1.1  christos }
    792           1.1  christos 
    793           1.1  christos 
    794           1.1  christos /*******************************************************************************
    795           1.1  christos  *
    796           1.1  christos  * FUNCTION:    OpcFindName
    797           1.1  christos  *
    798           1.1  christos  * PARAMETERS:  List                - Array of char strings to be searched
    799           1.1  christos  *              Name                - Char string to string for
    800           1.1  christos  *              Index               - Index value to set if found
    801           1.1  christos  *
    802           1.1  christos  * RETURN:      TRUE if any names matched, FALSE otherwise
    803           1.1  christos  *
    804           1.1  christos  * DESCRIPTION: Match PLD name to value in lookup table. Sets Value to
    805           1.1  christos  *              equivalent parameter value.
    806           1.1  christos  *
    807           1.1  christos  ******************************************************************************/
    808           1.1  christos 
    809           1.1  christos static BOOLEAN
    810           1.1  christos OpcFindName (
    811           1.1  christos     const char              **List,
    812           1.1  christos     char                    *Name,
    813           1.1  christos     UINT32                  *Index)
    814           1.1  christos {
    815           1.1  christos     const char              *NameString;
    816           1.1  christos     UINT32                  i;
    817           1.1  christos 
    818           1.1  christos 
    819           1.1  christos     AcpiUtStrupr (Name);
    820           1.1  christos 
    821           1.1  christos     for (i = 0, NameString = List[0];
    822           1.1  christos             NameString;
    823           1.1  christos             i++, NameString = List[i])
    824           1.1  christos     {
    825           1.1  christos         if (!(strncmp (NameString, Name, strlen (Name))))
    826           1.1  christos         {
    827           1.1  christos             *Index = i;
    828           1.1  christos             return (TRUE);
    829           1.1  christos         }
    830           1.1  christos     }
    831           1.1  christos 
    832           1.1  christos     return (FALSE);
    833           1.1  christos }
    834