1 files changed, 80 insertions, 0 deletions
diff --git a/libc/stdio1/fopen.c b/libc/stdio1/fopen.c
new file mode 100644
index 0000000..1265ff5
--- /dev/null
+++ b/libc/stdio1/fopen.c
@@ -0,0 +1,80 @@
+/*   simplified linux fopen.c
+     Copyright (C) 1995  Joel N. Weber II
+
+     This program is free software; you can redistribute it and/or
+     modify it under the terms of the GNU General Public License
+     as published by the Free Software Foundation; either version 2
+     of the License, or (at your option) any later version.
+
+     This program is distributed in the hope that it will be useful,
+     but WITHOUT ANY WARRANTY; without even the implied warranty of
+     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+     GNU General Public License for more details.
+
+     You should have received a copy of the GNU General Public License
+     along with this program; if not, write to the Free Software
+     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ */
+#include "stdio.h"
+#include <malloc.h>
+
+FILE * fopen(name, openmode)
+char *name;
+char *openmode;
+{
+  FILE *new;
+  int openplus=0;
+  char basemode;
+
+  basemode = openmode[0];
+  while (openmode[0] != 0){
+    switch(openmode[0]){
+      case '+': openplus=1; break;
+    }
+    openmode++;
+  }
+
+  new = malloc(sizeof(new));
+  if( new == 0 ) return 0;
+  new->bufread = new->bufpos = new->bufstart = malloc(BUFSIZ);
+  if( new->bufstart == 0 ) { free(new) ; return 0; }
+
+  new->bufend = new->bufstart + BUFSIZ;
+  new->buffer_mode = _IOFBF;
+  new->iotrans = 0;
+  new->fd = -1;
+  if (openplus){
+    new->file_mode = _MODE_RDWR;
+    switch (basemode){
+      case 'a':
+        new->fd = open(name, O_RDWR | O_APPEND | O_CREAT);
+        break;
+      case 'r':
+        new->fd = open(name, O_RDWR);
+        break;
+      case 'w':
+        new->fd = open(name, O_RDWR | O_TRUNC | O_CREAT);
+        break;
+    }
+  } else switch (basemode){
+    case 'a':
+      new->fd = open(name, O_WRONLY | O_APPEND | O_CREAT);
+      new->file_mode = _MODE_WRITE;
+      break;
+    case 'r':
+      new->fd = open(name, O_RDONLY);
+      new->file_mode = _MODE_READ;
+      break;
+    case 'w':
+      new->fd = open(name, O_WRONLY | O_TRUNC | O_CREAT);
+      new->file_mode = _MODE_WRITE;
+      break;
+  }
+  if( new->fd < 0 ) 
+  {
+     free(new->bufstart);
+     free(new);
+     return 0;
+  }
+  return new;
+}