Renaming due to 8 character C compiler limit.

diff --git a/lang/basic/lib/file.c b/lang/basic/lib/file.c
index cd85c93..665cd77 100644 (file)
--- a/lang/basic/lib/file.c
+++ b/lang/basic/lib/file.c
@@ -18,7 +18,7 @@ int   _chann          = -1;
 FILE   *_chanrd        = stdin;
 FILE   *_chanwr        = stdout;
 
-_setchannel(index)
+_setchan(index)
 int index;
 {
 #ifdef DEBUG

diff --git a/lang/basic/lib/random.c b/lang/basic/lib/random.c
index 07aeae1..59e50f1 100644 (file)
--- a/lang/basic/lib/random.c
+++ b/lang/basic/lib/random.c
@@ -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;

diff --git a/lang/basic/lib/read.c b/lang/basic/lib/read.c
index 26e7d24..18fab20 100644 (file)
--- a/lang/basic/lib/read.c
+++ b/lang/basic/lib/read.c
@@ -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;

diff --git a/lang/basic/lib/string.c b/lang/basic/lib/string.c
index 8808b93..9135334 100644 (file)
--- a/lang/basic/lib/string.c
+++ b/lang/basic/lib/string.c
@@ -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);