Major cleanup

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@1069 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Source/DOH/Doh/file.c

@@ -106,7 +106,7 @@ File_tell(DOH *fo) {
     return ftell(f->filep);
   } else if (f->fd) {
 #ifdef DOH_INTFILE
-    return tell(f->fd);
+    return lseek(f->fd, 0, SEEK_CUR);
 #endif
   }
   return -1;

Source/DOH/Doh/fio.c

@@ -470,10 +470,10 @@ DohSplit(DOH *in, char *chs, int nsplits) {
   int c;
   
   list = NewList();
-  /*  if (String_check(in)) {
+
+  if (DohIsString(in)) {
     Seek(in,0,SEEK_SET);
   }
-  */
 
   while (1) {
     str = NewString("");