godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

corrected some more

Browse Source
This commit is contained in:
ceriel
1988-07-04 11:44:03 +00:00
parent 5157a5a186
commit bd5583311e
3 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lang/basic/lib/oct.c
View File

@@ -14,11 +14,16 @@ String *_hex(i)
int i;
{
char buffer[30];
register char *p = buffer;
sprintf(buffer,"%x",i);
while (*p) {
if (*p >= 'a' && *p <= 'f') *p += 'A'-'a';
p++;
}
return( (String *)_newstr(buffer));
}
String *_nstr(f)
double f;
{
char buffer[80];
_str(f, buffer);
return (String *) _newstr(buffer);
}