OpenEuphoria

Re: binary to decimal conversion

• Posted by Grape_ Vine_ <g__vine at HOTMAIL.COM> Oct 20, 2000
• 484 views

Thanx, This is what i was after. Sorry for not being clear,
I tend to say 3 words and think it was 30 =)


J Reeves
Grape Vine
ICQ# 13728824

>From: Matthew Lewis <MatthewL at KAPCOUSA.COM>
>Reply-To: Euphoria Programming for MS-DOS <EUPHORIA at LISTSERV.MUOHIO.EDU>
>To: EUPHORIA at LISTSERV.MUOHIO.EDU
>Subject: Re: binary to decimal conversion
>Date: Fri, 20 Oct 2000 08:51:42 -0700
>
> > From: Grape_ Vine_
>
> > I too have seen that. It does not work just the way i want it to
> > Id does as long as i supply the binary by hand.
> > I have a 128byte buffer i need changed from
> > 8 bit binary to 2 bit binary
> > I tried sequence slicing but it keeps
> > giving me the old number
>
>This isn't completely clear, but is this what you mean:
>
>original buffer dec = { 255, 128 }
>=>
>original buffer bin = { 11111111, 10101010 }
>=>
>new buffer bin = { 11, 11, 11, 11, 10, 10, 10, 10 }
>=>
>new buffer dec = { 3, 3, 3, 3, 2, 2, 2, 2 }
>
>
>if so:
>
>-- begin tested code
>
>include machine.e
>
>-- sequence buf is a sequence of integers [0-255]
>function convert_buffer( sequence buf )
>   sequence new
>
>   for i = 1 to length( buf ) do
>     -- put into binary/sequence form
>     buf[i] = int_to_bits( buf[i] )
>   end for
>
>   new = {}
>   for i = 1 to length( buf ) do
>     -- slice up the bytes into 2 bit lengths and add to new
>     new &= { buf[i][1..2], buf[i][3..4], buf[i][5..6], buf[i][7..8] }
>   end for
>
>   buf = repeat(0, length(new) )
>   for i = 1 to length( new ) do
>     -- convert back to integers from binary/sequence form
>     buf[i] = bits_to_int( new[i] )
>   end for
>
>   return buf
>end function
>
>-- end code
>
>There are probably ways that this could be sped up, but I think this gets
>the job done.  I'm not certain how you're getting the buffer, but this
>should be easily modifiable.
>
>Matt




_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.

Share information about yourself, create your own public profile at
http://profiles.msn.com.