* src/app-utils/file-utils.c: moved here from src/gnome.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5887 57a11ea4-9604-0410-9ed3-97b8803252fd

src/app-utils/file-utils.c

@@ -0,0 +1,136 @@
+/********************************************************************\
+ * file-utils.c -- simple file utilities                                  *
+ * Copyright (C) 1997 Robin D. Clark                                *
+ * Copyright (C) 1998 Linas Vepstas                                 *
+ * Copyright (C) 1998 Rob Browning                                  *
+ * Copyright (C) 1999-2000 Linas Vepstas                            *
+ *                                                                  *
+ * 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.        *
+ *                                                                  *
+ *   Author: Rob Clark                                              *
+ * Internet: rclark@cs.hmc.edu                                      *
+ *  Address: 609 8th Street                                         *
+ *           Huntington Beach, CA 92648-4632                        *
+\********************************************************************/
+
+#include "config.h"
+
+#include <fcntl.h>
+#include <string.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <unistd.h>
+
+#include <glib.h>
+#include <guile/gh.h>
+
+#include "file-utils.h"
+#include "messages.h"
+#include "gnc-engine-util.h"
+ 
+/* This static indicates the debugging module that this .o belongs to.  */
+static short module = MOD_GUILE;
+
+/********************************************************************\
+\********************************************************************/
+
+char *
+gncFindFile (const char * filename) 
+{
+  char *full_filename = NULL;
+  char *g_filename;
+  SCM find_doc_file;
+  SCM scm_filename;
+  SCM scm_result;
+
+  if (!filename || *filename == '\0')
+    return NULL;
+
+  /* This should be gh_lookup, but that appears to be broken */
+  find_doc_file = gh_eval_str("gnc:find-doc-file");
+  scm_filename = gh_str02scm ((char *) filename);
+  scm_result = gh_call1(find_doc_file, scm_filename);
+
+  if (gh_string_p(scm_result))
+    full_filename = gh_scm2newstr(scm_result, NULL);
+
+  g_filename = g_strdup (full_filename);
+  if (full_filename)
+    free (full_filename);
+
+  return g_filename;
+}
+
+/********************************************************************\
+ * htmlRead                                                         *
+ *                                                                  *
+ * Args:   file - the name of the html file to read                 *
+ *         data - pointer to set to the buffer of data read in      *
+ * Return: size of data read                                        *
+ * Global: helpPath - the path to the help files                    *
+\********************************************************************/
+int 
+gncReadFile (const char * file, char ** data)
+{
+  char *buf=NULL;
+  char  *filename;
+  int   size=0;
+  int   fd;
+
+  /* construct absolute path -- twiddle the relative path we received */
+  if (!file || file[0] == '\0') return 0;
+
+  /* take absolute paths without searching */
+  if (file[0] != '/')
+    filename = gncFindFile (file);
+  else
+    filename = g_strdup (file);
+
+  if (!filename) return 0;
+
+  /* Open file: */
+  fd = open( filename, O_RDONLY );
+
+  g_free(filename); filename = NULL;
+
+  if( fd == -1 )
+  {
+    ERROR();
+    PERR ("file was %s\n", file);
+    return 0;
+  }
+
+  /* Find size: */
+  size = lseek( fd, 0, SEEK_END );
+  lseek( fd, 0, SEEK_SET );
+
+  /* Allocate memory */
+  buf = g_new(char, size + 1);
+
+  /* read in file */
+  if( read(fd,buf,size) == -1 )
+  {
+    g_free(buf);
+    buf=NULL;
+  }
+  buf[size] = '\0';
+
+  close(fd);
+  *data = buf;
+
+  return size;
+}
+
+/* ----------------------- END OF FILE ---------------------  */