Major cleanup

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

Source/DOH/file.c

@@ -0,0 +1,291 @@
+/* ----------------------------------------------------------------------------- 
+ * file.c
+ *
+ *     This file implements a file-like object that can be built around an 
+ *     ordinary FILE * or integer file descriptor.
+ * 
+ * Author(s) : David Beazley (beazley@cs.uchicago.edu)
+ *
+ * Copyright (C) 1999-2000.  The University of Chicago
+ * See the file LICENSE for information on usage and redistribution.	
+ * ----------------------------------------------------------------------------- */
+
+char cvsroot_file_c[] = "$Header$";
+
+#include "dohint.h"
+
+#ifdef DOH_INTFILE
+#include <unistd.h>
+#endif
+
+typedef struct {
+  FILE     *filep;       
+  int       fd;
+  int       closeondel;
+} DohFile;
+
+/* -----------------------------------------------------------------------------
+ * DelFile()
+ * ----------------------------------------------------------------------------- */
+
+static void
+DelFile(DOH *fo) {
+  DohFile *f = (DohFile *) ObjData(fo);
+  if (f->closeondel) {
+    if (f->filep) {
+      fclose(f->filep);
+    }
+#ifdef DOH_INTFILE
+    if (f->fd) {
+      close(f->fd);
+    }
+#endif
+  }
+  DohFree(f);
+}
+
+/* -----------------------------------------------------------------------------
+ * File_read()
+ * ----------------------------------------------------------------------------- */
+
+static int
+File_read(DOH *fo, void *buffer, int len) {
+  DohFile *f = (DohFile *) ObjData(fo);
+  
+  if (f->filep) {
+    return fread(buffer,1,len,f->filep);
+  } else if (f->fd) {
+#ifdef DOH_INTFILE
+    return read(f->fd,buffer,len);
+#endif
+  }
+  return -1;
+}
+
+/* -----------------------------------------------------------------------------
+ * File_write()
+ * ----------------------------------------------------------------------------- */
+
+static int
+File_write(DOH *fo, void *buffer, int len) {
+  DohFile *f = (DohFile *) ObjData(fo);
+  if (f->filep) {
+    return fwrite(buffer,1,len,f->filep);
+  } else if (f->fd) {
+#ifdef DOH_INTFILE
+    return write(f->fd,buffer,len);
+#endif
+  }
+  return -1;
+}
+
+/* -----------------------------------------------------------------------------
+ * File_seek()
+ * ----------------------------------------------------------------------------- */
+
+static int
+File_seek(DOH *fo, long offset, int whence) {
+  DohFile *f = (DohFile *) ObjData(fo);
+  if (f->filep) {
+    return fseek(f->filep,offset,whence);
+  } else if (f->fd) {
+#ifdef DOH_INTFILE
+    return lseek(f->fd, offset, whence);
+#endif
+  }
+  return -1;
+}
+
+/* -----------------------------------------------------------------------------
+ * File_tell()
+ * ----------------------------------------------------------------------------- */
+
+static long
+File_tell(DOH *fo) {
+  DohFile *f = (DohFile *) ObjData(fo);
+  if (f->filep) {
+    return ftell(f->filep);
+  } else if (f->fd) {
+#ifdef DOH_INTFILE
+    return lseek(f->fd, 0, SEEK_CUR);
+#endif
+  }
+  return -1;
+}
+
+/* -----------------------------------------------------------------------------
+ * File_putc()
+ * ----------------------------------------------------------------------------- */
+
+static int 
+File_putc(DOH *fo, int ch) {
+  DohFile *f = (DohFile *) ObjData(fo);
+  if (f->filep) {
+    return fputc(ch,f->filep);
+  } else if (f->fd) {
+#ifdef DOH_INTFILE
+    char c;
+    c = (char) ch;
+    return write(f->fd,&c,1);
+#endif
+  }
+  return -1;
+}
+
+/* -----------------------------------------------------------------------------
+ * File_getc()
+ * ----------------------------------------------------------------------------- */
+
+static int 
+File_getc(DOH *fo) {
+  DohFile *f = (DohFile *) ObjData(fo);
+  if (f->filep) {
+    return fgetc(f->filep);
+  } else if (f->fd) {
+#ifdef DOH_INTFILE
+    char c;
+    if (read(f->fd,&c,1) < 0) return EOF;
+    return c;
+#endif
+  }
+  return EOF;
+}
+
+/* -----------------------------------------------------------------------------
+ * File_ungetc()
+ *
+ * Put a character back onto the input
+ * ----------------------------------------------------------------------------- */
+
+static int 
+File_ungetc(DOH *fo, int ch) {
+  DohFile *f = (DohFile *) ObjData(fo);
+  if (f->filep) {
+    return ungetc(ch, f->filep);
+  } else if (f->fd) {
+#ifdef DOH_INTFILE
+    /* Not implemented yet */
+#endif
+  }
+  return -1;
+}
+
+/* -----------------------------------------------------------------------------
+ * File_close()
+ *
+ * Close the file
+ * ----------------------------------------------------------------------------- */
+
+static int
+File_close(DOH *fo) {
+  int ret = 0;
+  DohFile *f = (DohFile *) ObjData(fo);
+  if (f->filep) {
+    ret = fclose(f->filep);
+    f->filep = 0;
+  } else if (f->fd) {
+#ifdef DOH_INTFILE
+    ret = close(f->fd);
+    f->fd = 0;
+#endif
+  }
+  return ret;
+}
+
+static DohFileMethods FileFileMethods = {
+  File_read, 
+  File_write,
+  File_putc,
+  File_getc,
+  File_ungetc,
+  File_seek,
+  File_tell,
+  File_close,           /* close */
+};
+
+static DohObjInfo DohFileType = {
+    "DohFile",          /* objname      */
+    DelFile,         /* doh_del      */
+    0,               /* doh_copy     */
+    0,               /* doh_clear    */
+    0,               /* doh_str      */
+    0,               /* doh_data     */
+    0,               /* doh_dump     */
+    0,               /* doh_len      */
+    0,               /* doh_hash     */
+    0,               /* doh_cmp      */
+    0,               /* doh_setfile  */
+    0,               /* doh_getfile  */
+    0,               /* doh_setline  */
+    0,               /* doh_getline  */
+    0,               /* doh_mapping  */
+    0,               /* doh_sequence */
+    &FileFileMethods,/* doh_file     */
+    0,               /* doh_string   */
+    0,               /* doh_callable */
+    0,               /* doh_position */
+};
+
+/* -----------------------------------------------------------------------------
+ * NewFile()
+ *
+ * Create a new file from a given filename and mode.
+ * ----------------------------------------------------------------------------- */
+
+DOH *
+DohNewFile(DOH *fn, const char *mode)
+{
+  DohFile *f;
+  FILE *file;
+  char *filename;
+
+  filename = Char(fn);
+  file = fopen(filename,mode);
+  if (!file) return 0;
+
+  f = (DohFile *) DohMalloc(sizeof(DohFile));
+  if (!f) {
+    fclose(file);
+    return 0;
+  }
+  f->filep = file;
+  f->fd = 0;
+  f->closeondel = 1;
+  return DohObjMalloc(&DohFileType,f);
+}
+
+/* -----------------------------------------------------------------------------
+ * NewFileFromFile()
+ *
+ * Create a file object from an already open FILE *.
+ * ----------------------------------------------------------------------------- */
+
+DOH *
+DohNewFileFromFile(FILE *file) 
+{
+  DohFile *f;
+  f = (DohFile *) DohMalloc(sizeof(DohFile));
+  if (!f) return 0;
+  f->filep = file;
+  f->fd = 0;
+  f->closeondel = 0;
+  return DohObjMalloc(&DohFileType,f);
+}
+
+/* -----------------------------------------------------------------------------
+ * NewFileFromFd()
+ *
+ * Create a file object from an already open FILE *.
+ * ----------------------------------------------------------------------------- */
+
+DOH *
+DohNewFileFromFd(int fd)
+{
+  DohFile *f;
+  f = (DohFile *) DohMalloc(sizeof(DohFile));
+  if (!f) return 0;
+  f->filep = 0;
+  f->fd = fd;
+  f->closeondel = 0;
+  return DohObjMalloc(&DohFileType,f);
+}