From ea1947ffcc606d757357398b24e74a3f4ecefa07 Mon Sep 17 00:00:00 2001 From: neonloop Date: Wed, 20 Oct 2021 14:54:27 +0000 Subject: Initial commit from steward-fu release --- modules/mod_file/mod_file.c | 245 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 245 insertions(+) create mode 100644 modules/mod_file/mod_file.c (limited to 'modules/mod_file/mod_file.c') diff --git a/modules/mod_file/mod_file.c b/modules/mod_file/mod_file.c new file mode 100644 index 0000000..ffd2334 --- /dev/null +++ b/modules/mod_file/mod_file.c @@ -0,0 +1,245 @@ +/* + * Copyright © 2006-2016 SplinterGU (Fenix/Bennugd) + * Copyright © 2002-2006 Fenix Team (Fenix) + * Copyright © 1999-2002 José Luis Cebrián Pagüe (Fenix) + * + * This file is part of Bennu - Game Development + * + * This software is provided 'as-is', without any express or implied + * warranty. In no event will the authors be held liable for any damages + * arising from the use of this software. + * + * Permission is granted to anyone to use this software for any purpose, + * including commercial applications, and to alter it and redistribute it + * freely, subject to the following restrictions: + * + * 1. The origin of this software must not be misrepresented; you must not + * claim that you wrote the original software. If you use this software + * in a product, an acknowledgment in the product documentation would be + * appreciated but is not required. + * + * 2. Altered source versions must be plainly marked as such, and must not be + * misrepresented as being the original software. + * + * 3. This notice may not be removed or altered from any source + * distribution. + * + */ + +#include +#include +#include + +#include "bgddl.h" + +#include "arrange.h" +#include "files.h" +#include "xstrings.h" +#include "dcb.h" +#include "varspace_file.h" + +/* ----------------------------------------------------------------- */ + +static int modfile_save( INSTANCE * my, int * params ) +{ + file * fp ; + const char * filename ; + int result = 0 ; + + filename = string_get( params[0] ) ; + if ( !filename ) return 0 ; + + fp = file_open( filename, "wb0" ) ; + if ( fp ) + { + result = savetypes( fp, ( void * )params[1], ( void * )params[2], params[3], 0 ); + file_close( fp ) ; + } + string_discard( params[0] ) ; + return result ; +} + +static int modfile_load( INSTANCE * my, int * params ) +{ + file * fp ; + const char * filename ; + int result = 0 ; + + filename = string_get( params[0] ) ; + if ( !filename ) return 0 ; + + fp = file_open( filename, "rb0" ) ; + if ( fp ) + { + result = loadtypes( fp, ( void * )params[1], ( void * )params[2], params[3], 0 ); + file_close( fp ) ; + } + string_discard( params[0] ) ; + return result ; +} + +static int modfile_fopen( INSTANCE * my, int * params ) +{ + static char * ops[] = { "rb0", "r+b0", "wb0", "rb", "wb6" } ; + int r ; + + if ( params[1] < 0 || params[1] > 4 ) + params[0] = 0 ; + + r = ( int ) file_open( string_get( params[0] ), ops[params[1]] ) ; + string_discard( params[0] ) ; + return r ; +} + +static int modfile_fclose( INSTANCE * my, int * params ) +{ + file_close(( file * )params[0] ) ; + return 1 ; +} + +static int modfile_fread( INSTANCE * my, int * params ) +{ + return loadtypes(( file * )params[0], ( void * )params[1], ( void * )params[2], params[3], 0 ); +} + +static int modfile_fwrite( INSTANCE * my, int * params ) +{ + return savetypes(( file * )params[0], ( void * )params[1], ( void * )params[2], params[3], 0 ); +} + +static int modfile_freadC( INSTANCE * my, int * params ) +{ + return file_read(( file * )params[2], ( void * )params[0], params[1] ); +} + +static int modfile_fwriteC( INSTANCE * my, int * params ) +{ + return file_write(( file * )params[2], ( void * )params[0], params[1] ); +} + +static int modfile_fseek( INSTANCE * my, int * params ) +{ + return file_seek(( file * )params[0], params[1], params[2] ) ; +} + +static int modfile_frewind( INSTANCE * my, int * params ) +{ + file_rewind(( file * )params[0] ) ; + return 1; +} + +static int modfile_ftell( INSTANCE * my, int * params ) +{ + return file_pos(( file * )params[0] ) ; +} + +static int modfile_fflush( INSTANCE * my, int * params ) +{ + return file_flush(( file * )params[0] ) ; +} + +static int modfile_filelength( INSTANCE * my, int * params ) +{ + return file_size(( file * )params[0] ) ; +} + +static int modfile_fputs( INSTANCE * my, int * params ) +{ + char * str = ( char * ) string_get( params[1] ); + int r = file_puts(( file * )params[0], str ) ; + if ( str[strlen( str )-1] != '\n' ) file_puts(( file * )params[0], "\r\n" ) ; + /* int r = file_puts ((file *)params[0], string_get(params[1])) ; */ + string_discard( params[1] ) ; + return r ; +} + +static int modfile_fgets( INSTANCE * my, int * params ) +{ + char buffer[1025] ; + int len, done = 0 ; + int str = string_new( "" ); + + while ( !done ) + { + len = file_gets(( file * )params[0], buffer, sizeof( buffer ) - 1) ; + if ( len < 1 ) break; + + if ( buffer[len-1] == '\r' || buffer[len-1] == '\n' ) + { + len--; + if ( len && ( buffer[len-1] == '\r' || buffer[len-1] == '\n' )) len--; + buffer[len] = '\0' ; + done = 1; + } + string_concat( str, buffer ); + } + string_use( str ) ; + return str ; +} + +static int modfile_file( INSTANCE * my, int * params ) +{ + char buffer[1025] ; + int str = string_new( "" ) ; + file * f ; + int l; + + f = file_open( string_get( params[0] ), "rb" ) ; + string_discard( params[0] ) ; + + if ( f ) + { + while ( !file_eof( f ) ) + { + l = file_read( f, buffer, sizeof( buffer ) - 1 ) ; + buffer[l] = '\0' ; + if ( l ) + { + string_concat( str, buffer ) ; + buffer[0] = '\0' ; + } + else + break; + } + file_close( f ) ; + } + + string_use( str ) ; + + return str ; +} + +static int modfile_feof( INSTANCE * my, int * params ) +{ + return file_eof(( file * )params[0] ) ; +} + +static int modfile_exists( INSTANCE * my, int * params ) +{ + int r = file_exists( string_get( params[0] ) ) ; + string_discard( params[0] ) ; + return r ; +} + +static int modfile_remove( INSTANCE * my, int * params ) +{ + int r = file_remove( string_get( params[0] ) ) ; + string_discard( params[0] ) ; + return r ; +} + +static int modfile_move( INSTANCE * my, int * params ) +{ + int r = file_move( string_get( params[0] ), string_get( params[1] ) ) ; + string_discard( params[1] ) ; + string_discard( params[0] ) ; + return r ; +} + +/* ----------------------------------------------------------------- */ +/* exports */ +/* ----------------------------------------------------------------- */ + +#include "mod_file_exports.h" + +/* ----------------------------------------------------------------- */ -- cgit v1.2.3