Showcase - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|641\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Showcase Home -> Apps and Utilities

cthug	Created : 25 July 2009 Edited : 27 July 2009 System : Cross Platform Language : Forth base10 Convert binary, quaternary, octal and hexadecimal to decimal (base 10) linux binary (source included) windows binary (source included)
Converts from binary (base 2), quaternary (base 4), octal (base 8) and hexadecimal (base 16) to decimal (base 10). Can handle numbers from 0 to 18446744073709551615 (that is 0xFFFFFFFFFFFFFFFF). \|edit\| Linux binary has install script included. \|edit\| \|edit\| Freebasic Source: \|edit\| ' variables dim shared as string inString, typeFlag dim shared as ulongint inBase, outp ' ' usage: Displays program usage ' sub usage alias "usage" () print "Usage: base10 <invalue> <type>" print print "Type:" print chr(9)+"b - binary (base 2)" print chr(9)+"q - quaternary (base 4)" print chr(9)+"o - octal (base 8)" print chr(9)+"h - hexadecimal (base 16)" print print "Example:" print chr(9)+"base10 1001010 b" print chr(9)+"base10 59FF h" end sub ' ' pow: like c stdlib 'pow' except takes an integers; ' returns x to the power of y ' function pow alias "pow" (byval x as integer, y as integer) as integer dim as integer p=1, n for n=1 to y step 1 p=px next n return p end function ' ' base: Returns integer value of string, base b ' function base alias "base" (byval in as string, b as integer) as ulongint dim as integer intval, n, num for n=1 to len(in) step 1 ' hex if b = 16 then if mid(in, n, 1) = "A" or mid(in, n, 1) = "a" then num=10 elseif mid(in, n, 1) = "B" or mid(in, n, 1) = "b" then num=11 elseif mid(in, n, 1) = "C" or mid(in, n, 1) = "c" then num=12 elseif mid(in, n, 1) = "D" or mid(in, n, 1) = "d" then num=13 elseif mid(in, n, 1) = "E" or mid(in, n, 1) = "e" then num=14 elseif mid(in, n, 1) = "F" or mid(in, n, 1) = "f" then num=15 else num=(asc(mid(in, n, 1))-48) end if else num=(asc(mid(in, n, 1))-48) end if ' check for error if num > (b-1) or num < 0 then print "ERROR: "+inString+" is not base "; inBase end 1 end if intval+=(numpow(b, len(in)-n)) next n return intval end function ' get arguments inString=command(1) if len(inString)=0 then usage() end end if typeFlag=command(2) if len(typeFlag)=0 then usage() end end if ' select typeflag select case typeFlag case "b" inBase=2 case "q" inBase=4 case "o" inBase=8 case "h" inBase=16 case else usage() end end select ' display output outp=base(inString, inBase) print print outp print sleep ' EOF --v screenshot:

Comments
Sunday, 26 July 2009, 05:38
Phoenix	A slightly related snippet I wrote a while ago, for expressing binary constants in C++ using template metaprogramming. The benefit of doing it this way is that it all happens during compile-time. template <long long n> struct const_bin { enum { value2 = ((n&1) + const_bin<n/10>::value2) << 1, value = value2 >> 1 }; }; template <> struct const_bin<0> { enum { value2 = 0, value = 0 }; }; // Example usage std::cout << const_bin<110111001>::value << std::endl; --v I don't think it's terribly purposeful, apart from being a cool way of doing it. \|edit\| Oh, and by the way, I will never touch anything licensed under GPL. Public domain FTW! \|edit\| \|edit\| And does this really qualify as a showcase? \|edit\|
Monday, 27 July 2009, 00:47
cthug	It probably should have been a code snippet but meh, Phoenix it can be public domain, GPL is just the standard header for geany which I use with freebasic.

base10

Comments