ack/lang/basic/lib/oct.c
1988-07-01 17:30:06 +00:00

24 lines
352 B
C

#include "bc_string.h"
/* $Header$ */
String *_oct(i)
int i;
{
char buffer[30];
sprintf(buffer,"%o",i);
return( (String *)_newstr(buffer));
}
String *_hex(i)
int i;
{
char buffer[30];
register char *p = buffer;
sprintf(buffer,"%x",i);
while (*p) {
if (*p >= 'a' && *p <= 'f') *p += 'A'-'a';
p++;
}
return( (String *)_newstr(buffer));
}