>
>#! perl # run with perl -x
>open 0;while(<0>){last if/^#/;s|\s*--\s+(.*):|--== $1 ==--|||
>s&\s*--\s*(\w+)\s+(\w+)\s+(\d*)\s*&"$1: $2 std_logic".
>($3?"_vector($3 downto 0)":'').";\n"&e&&$l>length$1or$l=length$1;
>$\.=$_}END{$_='';$\=~s/(.*):/$1.' 'x($l-length$1).' :'/ge;print}
Well, it doesn't take into account that the -- can be optional, but I'll
live... I will play with the -x option tomorrow at work....
Now to try to decrypt it... what is the "random" e in the middle doing
(where it is &e&&)? I see that golf trick of screwing with $\...
If I cannot get the -x work under Cygnus, or it is too much of a pain, I
will leave it as -n...
Thanks for the tidbits... as usual, my ideas get "spanked." So do you
rotate thru s/// characters randomly? :)
-adm
__
Aaron D. Marasco
[EMAIL PROTECTED]
http://www.aaronmarasco.com
I love America every day, not just when she needs it.
rm -rf /bin/laden
