30 lines
402 B
C
30 lines
402 B
C
#include "bc_string.h"
|
|
|
|
/* $Id$ */
|
|
|
|
String* _mki(long i)
|
|
{
|
|
char* buffer = " ";
|
|
String* s;
|
|
|
|
s = _newstr(buffer);
|
|
*((long*)s->strval) = i;
|
|
return (s);
|
|
}
|
|
String* _mkd(double d)
|
|
{
|
|
char* buffer = " ";
|
|
String* s;
|
|
|
|
s = _newstr(buffer);
|
|
*((double*)s->strval) = d;
|
|
return (s);
|
|
}
|
|
long _cvi(String* s)
|
|
{
|
|
return *((long*)s->strval);
|
|
}
|
|
double _cvd(String* s)
|
|
{
|
|
return *((double*)s->strval);
|
|
}
|