Initial revision

2002-12-27 08:53:07 +00:00 · 2002-12-27 08:53:07 +00:00 · 6a161fa938
commit 6a161fa938
80 changed files with 23264 additions and 0 deletions
--- a/kern/file.c
+++ b/kern/file.c
@ -0,0 +1,158 @@
+/* file.c - file I/O functions */
+/*
+ *  PUPA  --  Preliminary Universal Programming Architecture for GRUB
+ *  Copyright (C) 2002 Yoshinori K. Okuji <okuji@enbug.org>
+ *
+ *  PUPA 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 PUPA; if not, write to the Free Software
+ *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ */
+
+#include <pupa/misc.h>
+#include <pupa/err.h>
+#include <pupa/file.h>
+#include <pupa/mm.h>
+#include <pupa/fs.h>
+#include <pupa/device.h>
+
+/* Get the device part of the filename NAME. It is enclosed by parentheses.  */
+char *
+pupa_file_get_device_name (const char *name)
+{
+  if (name[0] == '(')
+    {
+      char *p = pupa_strchr (name, ')');
+      char *ret;
+      
+      if (! p)
+	{
+	  pupa_error (PUPA_ERR_BAD_FILENAME, "missing `)'");
+	  return 0;
+	}
+
+      ret = (char *) pupa_malloc (p - name);
+      if (! ret)
+	return 0;
+      
+      pupa_memcpy (ret, name + 1, p - name - 1);
+      ret[p - name - 1] = '\0';
+      return ret;
+    }
+
+  return 0;
+}
+
+pupa_file_t
+pupa_file_open (const char *name)
+{
+  pupa_device_t device;
+  pupa_file_t file = 0;
+  char *device_name;
+  char *file_name;
+
+  device_name = pupa_file_get_device_name (name);
+  if (pupa_errno)
+    return 0;
+
+  /* Get the file part of NAME.  */
+  file_name = pupa_strchr (name, ')');
+  if (file_name)
+    file_name++;
+  else
+    file_name = (char *) name;
+
+  device = pupa_device_open (device_name);
+  pupa_free (device_name);
+  if (! device)
+    goto fail;
+  
+  file = (pupa_file_t) pupa_malloc (sizeof (*file));
+  if (! file)
+    goto fail;
+  
+  file->device = device;
+  file->offset = 0;
+  file->data = 0;
+  file->read_hook = 0;
+    
+  if (device->disk && file_name[0] != '/')
+    /* This is a block list.  */
+    file->fs = &pupa_fs_blocklist;
+  else
+    {
+      file->fs = pupa_fs_probe (device);
+      if (! file->fs)
+	goto fail;
+    }
+
+  if ((file->fs->open) (file, file_name) != PUPA_ERR_NONE)
+    goto fail;
+
+  return file;
+
+ fail:
+  if (device)
+    pupa_device_close (device);
+
+  /* if (net) pupa_net_close (net);  */
+
+  pupa_free (file);
+  
+  return 0;
+}
+
+pupa_ssize_t
+pupa_file_read (pupa_file_t file, char *buf, pupa_ssize_t len)
+{
+  pupa_ssize_t res;
+  
+  if (len == 0 || len > file->size - file->offset)
+    len = file->size - file->offset;
+
+  if (len == 0)
+    return 0;
+  
+  res = (file->fs->read) (file, buf, len);
+  if (res > 0)
+    file->offset += res;
+
+  return res;
+}
+
+pupa_err_t
+pupa_file_close (pupa_file_t file)
+{
+  if (file->fs->close)
+    (file->fs->close) (file);
+
+  pupa_device_close (file->device);
+  pupa_free (file);
+  return pupa_errno;
+}
+
+pupa_ssize_t
+pupa_file_seek (pupa_file_t file, pupa_ssize_t offset)
+{
+  pupa_ssize_t old;
+
+  if (offset < 0 || offset >= file->size)
+    {
+      pupa_error (PUPA_ERR_OUT_OF_RANGE,
+		  "attempt to seek outside of the file");
+      return -1;
+    }
+  
+  old = file->offset;
+  file->offset = offset;
+  return old;
+}