X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/e0d21c12cf924ad826eb0e73a10c5167f0195f65..1f99f95d6a7eecc05cae8fb357f9b7bf564c2725:/csrc/pf_io.c diff --git a/csrc/pf_io.c b/csrc/pf_io.c index 343a02d..53b1ed2 100644 --- a/csrc/pf_io.c +++ b/csrc/pf_io.c @@ -5,14 +5,17 @@ ** Author: Phil Burk ** Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom ** -** The pForth software code is dedicated to the public domain, -** and any third party may reproduce, distribute and modify -** the pForth software code or any derivative works thereof -** without any compensation or license. The pForth software -** code is provided on an "as is" basis without any warranty -** of any kind, including, without limitation, the implied -** warranties of merchantability and fitness for a particular -** purpose and their equivalents under the laws of any jurisdiction. +** Permission to use, copy, modify, and/or distribute this +** software for any purpose with or without fee is hereby granted. +** +** THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL +** WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED +** WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL +** THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR +** CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING +** FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF +** CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF +** OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ** **************************************************************** ** 941004 PLB Extracted IO calls from pforth_main.c @@ -194,7 +197,7 @@ cell_t sdWriteFile( void *ptr, cell_t Size, int32_t nItems, FileStream * Stream TOUCH(Stream); return 0; } -cell_t sdSeekFile( FileStream * Stream, cell_t Position, int32_t Mode ) +cell_t sdSeekFile( FileStream * Stream, file_offset_t Position, int32_t Mode ) { UNIMPLEMENTED("sdSeekFile"); TOUCH(Stream); @@ -202,7 +205,7 @@ cell_t sdSeekFile( FileStream * Stream, cell_t Position, int32_t Mode ) TOUCH(Mode); return 0; } -cell_t sdTellFile( FileStream * Stream ) +file_offset_t sdTellFile( FileStream * Stream ) { UNIMPLEMENTED("sdTellFile"); TOUCH(Stream); @@ -230,12 +233,10 @@ cell_t sdRenameFile( const char *OldName, const char *NewName ) return -1; } -ThrowCode sdResizeFile( FileStream * File, ucell_t SizeLo, ucell_t SizeHi ) +ThrowCode sdResizeFile( FileStream * File, uint64_t NewSize ) { UNIMPLEMENTED("sdResizeFile"); - TOUCH(File); - TOUCH(SizeLo); - TOUCH(SizeHi); + TOUCH(NewSize); return THROW_RESIZE_FILE; }