d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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 *_chanrd = stdin;
FILE *_chanwr = stdout; FILE *_chanwr = stdout;
_setchannel(index) _setchan(index)
int index; int index;
{ {
#ifdef DEBUG #ifdef DEBUG

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

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

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

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

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

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