ack/lang/basic/lib/oct.c
2016-12-12 21:16:32 +01:00

29 lines
387 B
C

#include <stdlib.h>
#include <stdio.h>
#include "bc_string.h"
/* $Id$ */
String* _oct(int i)
{
char buffer[30];
sprintf(buffer, "%o", i);
return ((String*)_newstr(buffer));
}
String* _hex(int i)
{
char buffer[30];
sprintf(buffer, "%x", i);
return ((String*)_newstr(buffer));
}
String* _nstr(double f)
{
char buffer[80];
_str(f, buffer);
return (String*)_newstr(buffer);
}