ack/lang/basic/lib/mki.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);
}