IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5874 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2001-11-16 20:37:02 +00:00
parent fdea933be0
commit 8b54256d1b
1 changed files with 0 additions and 136 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

136
src/gnome/file-utils.c
View File

@ -1,136 +0,0 @@
/********************************************************************\
* 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 --------------------- */