home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows NT Super Tune-Up Kit
/
PIE-WindowsNTSuperTuneUpKit-1997.iso
/
CONVERTR
/
CACODE
/
B2INT.C
next >
Wrap
C/C++ Source or Header
|
1993-07-13
|
569b
|
42 lines
#include <extend.h>
int __exponent(int, int);
CLIPPER _b2int(void) {
char *num = _parc(1);
int len = _parclen(1)-1;
int i = 0;
int j = 0;
for (j=0 ; len != -1 ; j++) {
if (num[len--] == '1')
i += __exponent(2,j);
}
_retni(i);
}
int __exponent(int base, int power) {
int retval = 1;
int i = 0;
if (power == 0)
return(1);
if (power == 1)
return(base);
for (i=1;i<=power;i++) {
retval *= base;
}
return (retval);
}