d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Improved.

Browse source
This commit is contained in:
keie 1985-02-08 13:12:51 +00:00
parent 0122bc2dd7
commit e9850f2691
1 changed files with 7 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lang/basic/lib/mki.c
View file

@ -3,13 +3,13 @@
/* $Header$ */ /* $Header$ */
String *_mki(i) String *_mki(i)
int i; long i;
{ {
char *buffer =" "; char *buffer =" ";
String *s; String *s;
s= _newstr(buffer); s= _newstr(buffer);
strncpy(s->strval,&i,2); * ( (long *)s->strval ) = i ;
return(s); return(s);
} }
String *_mkd(d) String *_mkd(d)
@ -19,19 +19,16 @@ double d;
String *s; String *s;
s= _newstr(buffer); s= _newstr(buffer);
strncpy(s->strval,&d,8); * ( (double *)s->strval ) = i ;
return(s); return(s);
} }
_cvi(s) long _cvi(s)
String *s; String *s;
{ {
int i; return *( (long *) s->strval) ;
strncpy(&i,s->strval,2);
return(i);
} }
double _cvd(s) double _cvd(s)
String *s; String *s;
{ {
double d; return *( (double *) s->strval) ;
strncpy(&d,s->strval,8);
} }