d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
Show stats 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; int i;
{ {
char buffer[30]; char buffer[30];
register char *p = buffer;
sprintf(buffer,"%x",i); sprintf(buffer,"%x",i);
while (*p) {
if (*p >= 'a' && *p <= 'f') *p += 'A'-'a';
p++;
}
return( (String *)_newstr(buffer)); return( (String *)_newstr(buffer));
} }
String *_nstr(f)
double f;
{
char buffer[80];
_str(f, buffer);
return (String *) _newstr(buffer);
}

2
lang/basic/lib/print.c
View file

@ -56,7 +56,6 @@ char *buffer;
} }
if( *c=='.') *c=0; if( *c=='.') *c=0;
} }
strcat(buffer," ");
} }
_prfnum(f) _prfnum(f)
double f; double f;
@ -68,6 +67,7 @@ double f;
_asschn(); _asschn();
c= buffer; c= buffer;
_str(f,c); _str(f,c);
strcat(buffer," ");
_out(buffer); _out(buffer);
} }
_prstr(str) _prstr(str)

4
lang/basic/lib/string.c
View file

@ -129,7 +129,7 @@ double d,f;
s->strlength= i; s->strlength= i;
s->strcount=1; s->strcount=1;
s->strval= salloc(i+1); s->strval= salloc(i+1);
s->strval[i]=0; s->strval[i--]=0;
for(; i>=0;i--) for(; i>=0;i--)
s->strval[i]= j; s->strval[i]= j;
return(s); return(s);
@ -142,7 +142,7 @@ String *s, *s2;
/*printf("mid called %d %d %s %s\n",i1,i2,s->strval, s2->strval);*/ /*printf("mid called %d %d %s %s\n",i1,i2,s->strval, s2->strval);*/
if (i2 < 0 || i1 < -1) error(3); if (i2 < 0 || i1 < -1) error(3);
if( s->strlength<i2 || s->strlength < i1+i2) error(3); /* source string too short */ if( s->strlength<i2 || s2->strlength < i1) error(3); /* source string too short */
if( i1== -1) i1= s2->strlength; if( i1== -1) i1= s2->strlength;
l= s->strlength - i2+1; l= s->strlength - i2+1;
if( i1>l ) i1=l; if( i1>l ) i1=l;