Subversion Repositories z80soc

#!/bin/sh

IN=$1

addr () {

 s=$1

 ss=${s//+/?}

 sss=${ss//-/?}

 #echo $sss

 echo ${sss:11:2}

}

convbin () {

 s=$1

 ss=${s//X/1}

 echo ${ss// /0}

}

echo "library IEEE;

use IEEE.std_logic_1164.all;

use ieee.numeric_std.all;

entity char is

        port (

        clka: IN std_logic;

        addra: IN std_logic_VECTOR(10 downto 0);

        douta: OUT std_logic_VECTOR(7 downto 0));

end char;

architecture a of char is

begin

process (clka)

begin

 if clka'event and clka = '1' then

        case addra is"

ADDR=0

for L in `cat $IN | sed s/" "/0/g | grep -v "font" | grep -v chars | grep -v width | grep -v height | grep -v 256 | grep -v "^8"`

do

   ISADDR=`echo $L | grep "++"`

   if [[ -z "$ISADDR" ]]; then

      LIN=${L//X/1}

      BL1="when \""

      BL3="\" => douta <= \"$LIN\";"

      binaddr="0000000000"`echo "obase=2;ibase=10;$ADDR" | bc`

      fixhexaddr=${binaddr:(-11)}

      echo "             "$BL1$fixhexaddr$BL3

      let ADDR=$ADDR+1

    fi

done

echo "             when others => douta <= \"00000000\";

        end case;

 end if;

end process;

end;"