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

Renaming due to 8 character C compiler limit.

Browse source
This commit is contained in:
em 1985-01-21 12:37:26 +00:00
parent aef211ad4e
commit 8d02182e12
4 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -18,7 +18,7 @@ int _chann = -1;
FILE *_chanrd = stdin;
FILE *_chanwr = stdout;
_setchannel(index)
_setchan(index)
int index;
{
#ifdef DEBUG

8
lang/basic/lib/random.c
View file

@ -1,17 +1,17 @@
/* $Header $ */
_randomize()
_randomi()
{
int i;
double f;
_setchannel(-1);
_setchan(-1);
printf("Random number seed (-32768 to 32767) ? ");
_readint(&i);
f=i;
_setrandom(f);
_setrand(f);
}
_setrandom(f)
_setrand(f)
double f;
{
int i;

6
lang/basic/lib/read.c
View file

@ -126,7 +126,7 @@ String **s;
*s= (String *) _newstr(buffer);
}
extern int _seektable[];
extern int _seektab[];
_restore(line)
int line;
@ -141,9 +141,9 @@ int line;
if( line)
{
/* search number of lines to skip */
for(nr=0; _seektable[nr] && _seektable[nr]< line; nr+=2)
for(nr=0; _seektab[nr] && _seektab[nr]< line; nr+=2)
#ifdef DEBUG
printf("test %d %d\n",_seektable[nr], _seektable[nr+1]);
printf("test %d %d\n",_seektab[nr], _seektab[nr+1]);
#endif
;
nr /= 2;

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

@ -66,7 +66,7 @@ String *s1,*s2;
strcat(s->strval,s1->strval);
return(s);
}
_strcompare(s1,s2)
_strcomp(s1,s2)
String *s1,*s2;
{
okr(s1);okr(s2);