#!/usr/local/bin/perl5 -w


##
## Copyright (c) 2000, Intel Corporation
## All rights reserved.
##
## WARRANTY DISCLAIMER
##
## THESE MATERIALS ARE PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
## "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 
## LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
## A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL INTEL OR ITS 
## CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
## EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
## PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 
## PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
## OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY OR TORT (INCLUDING
## NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THESE
## MATERIALS, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
##
## Intel Corporation is the author of the Materials, and requests that all
## problem reports or change requests be submitted to it directly at
## http://developer.intel.com/opensource.
##



require "EM_perl.h";

$GenDir = shift(@ARGV);
$EmdbDir = shift(@ARGV);

################################################
#   CONSTANTS
################################################

#decoder operand flags
$DECODER_OPER_2ND_ROLE_SRC_BIT = 0x00000001;  # Oper second role:  src  
$DECODER_OPER_2ND_ROLE_DST_BIT = 0x00000002;  # Oper second role: dest  
$DECODER_OPER_NOT_TRUE_SRC_BIT = 0x00000004;  # Oper value is ignored   
$DECODER_OPER_IMP_ENCODED_BIT  = 0x00000008;  # Oper is imp encoded     
$DECODER_OPER_IMM_IREG_BIT     = 0x00000040;  # Operand type is IREG_NUM  
$DECODER_OPER_IMM_FREG_BIT     = 0x00000080;  # Operand type is FREG_NUM  

#instructin flags
$EM_FLAG_SPECULATION           = $EMDB_LAST_FLAG << 1;
$EM_FLAG_POSTINCREMENT         = $EMDB_LAST_FLAG << 2;
$EM_FLAG_FALSE_PRED_EXEC       = $EMDB_LAST_FLAG << 3;
$EM_BR_HINT_FLAG               = $EMDB_LAST_FLAG << 4;
$EM_BR_FLAG                    = $EMDB_LAST_FLAG << 5;
$EM_ADV_LOAD_FLAG              = $EMDB_LAST_FLAG << 6;
$EM_CONTROL_TRANSFER_FLAG      = $EMDB_LAST_FLAG << 7;

$dst_op_num = 2;
$src_op_num = 5;

$op_role[$MAX_OPERAND] = "EM_OPROLE_NONE"; #dummy values, since the number of
$op_type[$MAX_OPERAND] = "EM_OPTYPE_NONE"; #decoder operands is greater by 1 than
$op_flags[$MAX_OPERAND] = 0;               # the number of emdb operands

################################################
#    open output "C" file
################################################

if (open(DEC_PRIV_TAB,">$GenDir/dec_static.c")!=1)
{
    die "\nBuilder error - can't open dec_static.c\n";
};


################################################
#   read DECODER EMDB information
################################################

if (open(EMDB_DEC_INFO,"$GenDir/dec1_emdb.c")!=1)
{
    die "\nBuilder error - can't open dec1_emdb.c\n";
};


while(<EMDB_DEC_INFO>)
{
    
    if (/^\s*\{\"\S+\"/) #"
    {
        $work_line = $_;

		($mnemonic,$_2nd_role,$trole,$op[0],$op[1],$op[2],$op[3],$op[4],$op[5],$modifiers,$inst_flags,$specul_flag,$false_pred_flag,$imp_ops, $br_hint_flag, $br_flag, $adv_load_flag, $control_transfer_flag) = $work_line =~  /^\s*{(\S+),(.),(EM_TROLE\S+),{(EM_OPROLE\S+)},{(EM_OPROLE\S+)},{(EM_OPROLE\S+)},{(EM_OPROLE\S+)},{(EM_OPROLE\S+)},{(EM_OPROLE\S+)},{(\S+)},(0x\S+),(.),(.),({\(EM_Decoder_imp_oper_t\)EM_DECODER_IMP_OPERAND.+}),(.),(.),(.),(.)},?$/;

	    for($i=0; $i<$MAX_OPERAND; $i++)
        {
            ($op_role[$i],$op_type[$i],$op_flags[$i])=split(/,/,$op[$i],3);
            $op_flags[$i] = 0;
        }
    
        &Check_src_dst_flag();
        &Set_op_flags();
        &Set_inst_flags();

        &Output_inst_info();                
    }
    else
    {
        if (/\#include/ || /version/)
        {
	        next;
        }
 
        if (/^dec1_EMDB_info_t/)
        {
            print DEC_PRIV_TAB "#include \"decem.h\"\n";
            print DEC_PRIV_TAB "#include \"EM_hints.h\"\n\n\n";
 	        s/^dec1_EMDB_info_t/const EM_Decoder_static_info_t/;
        }

        s/ EMDB INSTRUCTION / DECODER STATIC   /g;
        s/dec1_EMDB_/em_decoder_static_/;
        
        print DEC_PRIV_TAB $_;
        
    }
        
    
}

close(DEC_PRIV_TAB);
close(EMDB_DEC_INFO);



sub Set_inst_flags
{
    $inst_flags = hex($inst_flags);

    if ($specul_flag == 1)
    {
        $inst_flags = $inst_flags | $EM_FLAG_SPECULATION;
    }

    if ($false_pred_flag == 1)
    {
        $inst_flags = $inst_flags | $EM_FLAG_FALSE_PRED_EXEC;
    }

    if ($_2nd_role != 0)
    {
        $inst_flags = $inst_flags | $EM_FLAG_POSTINCREMENT; 
    }

    if ($br_hint_flag == 1)
    {
        $inst_flags = $inst_flags | $EM_BR_HINT_FLAG;
    } 

    if ($br_flag == 1)
    {
        $inst_flags = $inst_flags | $EM_BR_FLAG;
    } 

    if ($adv_load_flag == 1)
    {
       $inst_flags = $inst_flags | $EM_ADV_LOAD_FLAG;
    }  

    if ($control_transfer_flag == 1)
    {
       $inst_flags = $inst_flags | $EM_CONTROL_TRANSFER_FLAG;
	}
}

sub Set_op_flags
{
    for($i=0; $i<$MAX_OPERAND; $i++)
    {
        if ($op_type[$i] eq "EM_OPTYPE_IREG_NUM")
        {
             $op_flags[$i] |= $DECODER_OPER_IMM_IREG_BIT;
        }
        elsif  ($op_type[$i] eq "EM_OPTYPE_FREG_NUM")
        {
             $op_flags[$i] |= $DECODER_OPER_IMM_FREG_BIT;
        }
    }
}


sub Check_src_dst_flag
{
     if ($_2nd_role == 2)   ###2nd role - source
     {
        if ($op_role[0] ne "EM_OPROLE_DST")
        {
            print "WARNING ! NO destination operand in $mnemonic\n";
        }

        $op_role[0] .= "_SRC";
        $op_flags[0] |= $DECODER_OPER_2ND_ROLE_SRC_BIT; 
     }
     elsif ($_2nd_role == 1) ###2nd role - destination
     {
       for($i=0; $op_role[$i] ne "EM_OPROLE_SRC" && $i<$MAX_OPERAND; $i++)
       {
       } 

        $op_role[$i] .= "_DST";  ###find first source operand
        $op_flags[$i] |= $DECODER_OPER_2ND_ROLE_DST_BIT; 

        if ($i >= $MAX_OPERAND)
        {
            print "WARNING ! NO source operand in instruction\n";
        }
     }
}

sub Output_inst_info
{
    if ($mnemonic ne "\"ILLEGAL_OP\"")
    {
        printf DEC_PRIV_TAB ",\n";
    }

    ###print mnemonic and template role
    printf(DEC_PRIV_TAB "{$mnemonic,$trole,{");

    ###print dst operands
    for($i=0; $i<$dst_op_num && ($op_role[$i] ne "EM_OPROLE_SRC" && 
                                 $op_role[$i] ne "EM_OPROLE_SRC_DST");)
    {
        printf(DEC_PRIV_TAB "{$op_role[$i],$op_type[$i],$op_flags[$i]}");
        if (++$i != $dst_op_num)
        {
	        print DEC_PRIV_TAB ",";
        }
    }

    for($j=$i; $j<$dst_op_num;)
    {
        printf(DEC_PRIV_TAB "{EM_OPROLE_NONE,EM_OPTYPE_NONE,0}");
        if (++$j != $dst_op_num)
        {
	        print DEC_PRIV_TAB ",";
        }
    }

    print DEC_PRIV_TAB "},{"; 

    ###print src operands
    for($j=0; $j<$src_op_num; $i++)                      
    {
        printf(DEC_PRIV_TAB "{$op_role[$i],$op_type[$i],$op_flags[$i]}");
        if (++$j != $src_op_num)
        {
	        print DEC_PRIV_TAB ",";
        }
    }

    print DEC_PRIV_TAB "},";
    
    ###print implicit operands, modifiers and instruction flags
    printf(DEC_PRIV_TAB "$imp_ops,{$modifiers},0x%x}\n",$inst_flags);
}