mki.c 426 B

12345678910111213141516171819202122232425262728293031323334
  1. #include "bc_string.h"
  2. /* $Id$ */
  3. String *_mki(i)
  4. long i;
  5. {
  6. char *buffer =" ";
  7. String *s;
  8. s= _newstr(buffer);
  9. * ( (long *)s->strval ) = i ;
  10. return(s);
  11. }
  12. String *_mkd(d)
  13. double d;
  14. {
  15. char *buffer =" ";
  16. String *s;
  17. s= _newstr(buffer);
  18. * ( (double *)s->strval ) = d ;
  19. return(s);
  20. }
  21. long _cvi(s)
  22. String *s;
  23. {
  24. return *( (long *) s->strval) ;
  25. }
  26. double _cvd(s)
  27. String *s;
  28. {
  29. return *( (double *) s->strval) ;
  30. }