Initial Alpine Version

1 files changed, 71 insertions, 0 deletions

diff --git a/pith/readfile.c b/pith/readfile.c
new file mode 100644
index 00000000..4fc9fa3e
--- /dev/null
+++ b/pith/readfile.c
@@ -0,0 +1,71 @@
+#if !defined(lint) && !defined(DOS)
+static char rcsid[] = "$Id: readfile.c 761 2007-10-23 22:35:18Z hubert@u.washington.edu $";
+#endif
+
+/*
+ * ========================================================================
+ * Copyright 2006 University of Washington
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * ========================================================================
+ */
+
+#include "../pith/headers.h"
+
+#include "../pith/store.h"
+
+#include "readfile.h"
+
+
+/*----------------------------------------------------------------------
+    Read whole file into memory
+
+  Args: filename -- path name of file to read
+
+  Result: Returns pointer to malloced memory with the contents of the file
+          or NULL
+
+This won't work very well if the file has NULLs in it.
+ ----*/
+char *
+read_file(char *filename, int so_get_flags)
+{
+    STORE_S *in_file = NULL, *out_store = NULL;
+    unsigned char c;
+    char *return_text = NULL;
+
+    if((in_file = so_get(FileStar, filename, so_get_flags | READ_ACCESS))){
+
+
+	if(!(out_store = so_get(CharStar, NULL, EDIT_ACCESS))){
+	    so_give(&in_file);
+	    return NULL;
+	}
+
+	/*
+	 * We're just using the READ_FROM_LOCALE flag to translate
+	 * to UTF-8.
+	 */
+	while(so_readc(&c, in_file))
+	  so_writec(c, out_store);
+
+	if(in_file)
+	  so_give(&in_file);
+
+	if(out_store){
+	    return_text = (char *) so_text(out_store);
+	    /* avoid freeing this */
+	    if(out_store->txt)
+	      out_store->txt = NULL;
+
+	    so_give(&out_store);
+	}
+    }
+
+    return(return_text);
+}