From a5d9c9459267c821b3904121bb08775c9dbad35b Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Thu, 1 Jun 2000 20:15:54 +0000 Subject: [PATCH] 2000-06-01 22:18 UTC+0100 Victor Szakats --- harbour/ChangeLog | 20 ++++ harbour/bin/bld.cmd | 2 +- harbour/contrib/samples/date.c | 10 +- harbour/contrib/samples/dbf.c | 2 +- harbour/makefile.bc | 15 +++ harbour/makefile.vc | 3 + harbour/source/lang/Makefile | 3 + harbour/source/lang/msgcswin.c | 192 +++++++++++++++++++++++++++++++++ harbour/source/lang/msghr852.c | 191 ++++++++++++++++++++++++++++++++ harbour/source/lang/msghriso.c | 191 ++++++++++++++++++++++++++++++++ harbour/source/rtl/philes.c | 9 +- 11 files changed, 627 insertions(+), 11 deletions(-) create mode 100644 harbour/source/lang/msgcswin.c create mode 100644 harbour/source/lang/msghr852.c create mode 100644 harbour/source/lang/msghriso.c diff --git a/harbour/ChangeLog b/harbour/ChangeLog index df51a43d4b..93d1d4bdeb 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,23 @@ +2000-06-01 22:18 UTC+0100 Victor Szakats + + * source/lang/msgcswin.c + * source/lang/msghr852.c + * source/lang/msghriso.c + * source/lang/Makefile + * makefile.bc + * makefile.vc + + New language modules added. + + * source/rtl/philes.c + + HB_EXTENSION guards added to HB_FEOF() + + * bin/bld.cmd + ! HB_LIB_... fixed to HB_INC_... + + * contrib/samples/date.c + * contrib/samples/dbf.c + % Some optimizations. + 2000-06-01 15:35 UTC-0400 David G. Holm * source/rtl/dates.c diff --git a/harbour/bin/bld.cmd b/harbour/bin/bld.cmd index c13a99903d..a2b86916a8 100644 --- a/harbour/bin/bld.cmd +++ b/harbour/bin/bld.cmd @@ -101,7 +101,7 @@ if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=..\include\ :COMPILE - %HB_BIN_INSTALL%\harbour %1.prg -n -i%HB_LIB_INSTALL% %2 %3 %HARBOURFLAGS% + %HB_BIN_INSTALL%\harbour %1.prg -n -i%HB_INC_INSTALL% %2 %3 %HARBOURFLAGS% :A_DOS diff --git a/harbour/contrib/samples/date.c b/harbour/contrib/samples/date.c index fc779ad4d6..8938d10cb2 100644 --- a/harbour/contrib/samples/date.c +++ b/harbour/contrib/samples/date.c @@ -43,7 +43,6 @@ HB_FUNC( MDY ) { long lYear, lMonth, lDay; - char * szFormat = "MM/DD/YYYY"; char szDate[ 9 ]; char szFormatted[ 11 ]; char * szReturn; @@ -51,12 +50,12 @@ HB_FUNC( MDY ) int iLen; hb_dateDecode( hb_parnl( 1 ), &lYear, &lMonth, &lDay ); - hb_dateFormat( hb_pardsbuff( szDate, 1 ), szFormatted, szFormat ); + hb_dateFormat( hb_pardsbuff( szDate, 1 ), szFormatted, "MM/DD/YYYY" ); iLen = strlen( hb_dateCMonth( lMonth ) ); iBufferLen = iLen + ( hb_set.hb_set_century ? 9 : 7 ); - szReturn = hb_xgrab( iBufferLen ); + szReturn = ( char * ) hb_xgrab( iBufferLen ); memset( szReturn, ' ', iBufferLen + 1 ); memcpy( szReturn, hb_dateCMonth( lMonth ), iLen ); @@ -73,7 +72,6 @@ HB_FUNC( MDY ) HB_FUNC( DMY ) { long lYear, lMonth, lDay; - char * szFormat = "MM/DD/YYYY"; char szDate[ 9 ]; char szFormatted[ 11 ]; char * szReturn; @@ -81,12 +79,12 @@ HB_FUNC( DMY ) int iLen; hb_dateDecode( hb_parnl( 1 ), &lYear, &lMonth, &lDay ); - hb_dateFormat( hb_pardsbuff( szDate, 1 ), szFormatted, szFormat ); + hb_dateFormat( hb_pardsbuff( szDate, 1 ), szFormatted, "MM/DD/YYYY" ); iLen = strlen( hb_dateCMonth( lMonth ) ); iBufferLen = iLen + ( hb_set.hb_set_century ? 9 : 7 ); - szReturn = hb_xgrab( iBufferLen ); + szReturn = ( char * ) hb_xgrab( iBufferLen ); memset( szReturn, ' ', iBufferLen ); memcpy( szReturn, szFormatted + 3, 2 ); diff --git a/harbour/contrib/samples/dbf.c b/harbour/contrib/samples/dbf.c index becd9460af..aafc8ef366 100644 --- a/harbour/contrib/samples/dbf.c +++ b/harbour/contrib/samples/dbf.c @@ -40,5 +40,5 @@ extern HB_FUNC( ALIAS ); HB_FUNC( DBF ) { - HB_FUNCNAME( ALIAS ); + HB_FUNCNAME( ALIAS )(); } diff --git a/harbour/makefile.bc b/harbour/makefile.bc index 43df508b5e..734588e893 100644 --- a/harbour/makefile.bc +++ b/harbour/makefile.bc @@ -311,6 +311,7 @@ LANG_LIB_OBJS = \ $(OBJ_DIR)\msgcs852.obj \ $(OBJ_DIR)\msgcsiso.obj \ $(OBJ_DIR)\msgcskam.obj \ + $(OBJ_DIR)\msgcswin.obj \ $(OBJ_DIR)\msgen.obj \ $(OBJ_DIR)\msges.obj \ $(OBJ_DIR)\msgeu.obj \ @@ -318,6 +319,8 @@ LANG_LIB_OBJS = \ $(OBJ_DIR)\msggl.obj \ $(OBJ_DIR)\msghe862.obj \ $(OBJ_DIR)\msghewin.obj \ + $(OBJ_DIR)\msghr852.obj \ + $(OBJ_DIR)\msghriso.obj \ $(OBJ_DIR)\msghu852.obj \ $(OBJ_DIR)\msghucwi.obj \ $(OBJ_DIR)\msghuwin.obj \ @@ -1633,6 +1636,10 @@ $(OBJ_DIR)\msgcskam.obj : $(LANG_DIR)\msgcskam.c $(CC) $(CLIBFLAGS) -I$(LANG_DIR) -o$@ $** tlib $(LANG_LIB) $(ARFLAGS) -+$@,, +$(OBJ_DIR)\msgcswin.obj : $(LANG_DIR)\msgcswin.c + $(CC) $(CLIBFLAGS) -I$(LANG_DIR) -o$@ $** + tlib $(LANG_LIB) $(ARFLAGS) -+$@,, + $(OBJ_DIR)\msgen.obj : $(LANG_DIR)\msgen.c $(CC) $(CLIBFLAGS) -I$(LANG_DIR) -o$@ $** tlib $(LANG_LIB) $(ARFLAGS) -+$@,, @@ -1661,6 +1668,14 @@ $(OBJ_DIR)\msghewin.obj : $(LANG_DIR)\msghewin.c $(CC) $(CLIBFLAGS) -I$(LANG_DIR) -o$@ $** tlib $(LANG_LIB) $(ARFLAGS) -+$@,, +$(OBJ_DIR)\msghr852.obj : $(LANG_DIR)\msghr852.c + $(CC) $(CLIBFLAGS) -I$(LANG_DIR) -o$@ $** + tlib $(LANG_LIB) $(ARFLAGS) -+$@,, + +$(OBJ_DIR)\msghriso.obj : $(LANG_DIR)\msghriso.c + $(CC) $(CLIBFLAGS) -I$(LANG_DIR) -o$@ $** + tlib $(LANG_LIB) $(ARFLAGS) -+$@,, + $(OBJ_DIR)\msghu852.obj : $(LANG_DIR)\msghu852.c $(CC) $(CLIBFLAGS) -I$(LANG_DIR) -o$@ $** tlib $(LANG_LIB) $(ARFLAGS) -+$@,, diff --git a/harbour/makefile.vc b/harbour/makefile.vc index b5756c9eb9..4d83944f4d 100644 --- a/harbour/makefile.vc +++ b/harbour/makefile.vc @@ -345,6 +345,7 @@ LANG_LIB_OBJS = \ $(OBJ_DIR)\msgcs852.obj \ $(OBJ_DIR)\msgcsiso.obj \ $(OBJ_DIR)\msgcskam.obj \ + $(OBJ_DIR)\msgcswin.obj \ $(OBJ_DIR)\msgen.obj \ $(OBJ_DIR)\msges.obj \ $(OBJ_DIR)\msgeu.obj \ @@ -352,6 +353,8 @@ LANG_LIB_OBJS = \ $(OBJ_DIR)\msggl.obj \ $(OBJ_DIR)\msghe862.obj \ $(OBJ_DIR)\msghewin.obj \ + $(OBJ_DIR)\msghr852.obj \ + $(OBJ_DIR)\msghriso.obj \ $(OBJ_DIR)\msghu852.obj \ $(OBJ_DIR)\msghucwi.obj \ $(OBJ_DIR)\msghuwin.obj \ diff --git a/harbour/source/lang/Makefile b/harbour/source/lang/Makefile index 51925a3bd3..350291c5de 100644 --- a/harbour/source/lang/Makefile +++ b/harbour/source/lang/Makefile @@ -9,6 +9,7 @@ C_SOURCES=\ msgcs852.c \ msgcsiso.c \ msgcskam.c \ + msgcswin.c \ msgen.c \ msges.c \ msgeu.c \ @@ -16,6 +17,8 @@ C_SOURCES=\ msggl.c \ msghe862.c \ msghewin.c \ + msghr852.c \ + msghriso.c \ msghu852.c \ msghucwi.c \ msghuwin.c \ diff --git a/harbour/source/lang/msgcswin.c b/harbour/source/lang/msgcswin.c new file mode 100644 index 0000000000..baee7876d9 --- /dev/null +++ b/harbour/source/lang/msgcswin.c @@ -0,0 +1,192 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (CSWIN) WIN1250 + * + * Copyright 2000 Victor Szakats (English, from msg_tpl.c) + * Copyright 2000 Roman Masek + * Copyright 2000 Davor Siklic + * www - http://www.harbour-project.org + * + * 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, with one exception: + * + * The exception is that if you link the Harbour Runtime Library (HRL) + * and/or the Harbour Virtual Machine (HVM) with other files to produce + * an executable, this does not by itself cause the resulting executable + * to be covered by the GNU General Public License. Your use of that + * executable is in no way restricted on account of linking the HRL + * and/or HVM code into it. + * + * 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 (or visit + * their web site at http://www.gnu.org/). + * + */ + +/* Language name: Czech */ +/* ISO language code (2 chars): CS */ +/* Codepage: 1250 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "CSWIN", /* ID */ + "Czech", /* Name (in English) */ + "Česky", /* Name (in native language) */ + "CS", /* RFC ID */ + "1250", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "leden", + "únor", + "březen", + "duben", + "květen", + "červen", + "červenec", + "srpen", + "září", + "říjen", + "listopad", + "prosinec", + + /* Day names */ + + "neděle", + "pondělí", + "úterý", + "středa", + "čtvrtek", + "pátek", + "sobota", + + /* CA-Cl*pper compatible natmsg items */ + + "Database Files # Records Last Update Size", + "Do you want more samples?", + "Page No.", + "** Subtotal **", + "* Subsubtotal *", + "*** Total ***", + "Ins", + " ", + "Invalid date", + "Range: ", + " - ", + "A/N", + "INVALID EXPRESSION", + + /* Error description names */ + + "Unknown error", + "Argument error", + "Bound error", + "String overflow", + "Numeric overflow", + "Zero divisor", + "Numeric error", + "Syntax error", + "Operation too complex", + "", + "", + "Memory low", + "Undefined function", + "No exported method", + "Variable does not exist", + "Alias does not exist", + "No exported variable", + "Illegal characters in alias", + "Alias already in use", + "", + "Create error", + "Open error", + "Close error", + "Read error", + "Write error", + "Print error", + "", + "", + "", + "", + "Operation not supported", + "Limit exceeded", + "Corruption detected", + "Data type error", + "Data width error", + "Workarea not in use", + "Workarea not indexed", + "Exclusive required", + "Lock required", + "Write not allowed", + "Append lock failed", + "Lock Failure", + "", + "", + "", + "", + "array access", + "array assign", + "array dimension", + "not an array", + "conditional", + + /* Internal error names */ + + "Unrecoverable error %lu: ", + "Error recovery failure", + "No ERRORBLOCK() for error", + "Too many recursive error handler calls", + "RDD invalid or failed to load", + "Invalid method type from %s", + "hb_xgrab can't allocate memory", + "hb_xrealloc called with a NULL pointer", + "hb_xrealloc called with an invalid pointer", + "hb_xrealloc can't reallocate memory", + "hb_xfree called with an invalid pointer", + "hb_xfree called with a NULL pointer", + "Can\'t locate the starting procedure: \'%s\'", + "No starting procedure", + "Unsupported VM opcode", + "Symbol item expected from %s", + "Invalid symbol type for self from %s", + "Codeblock expected from %s", + "Incorrect item type on the stack trying to pop from %s", + "Stack underflow", + "An item was going to be copied to itself from %s", + "Invalid symbol item passed as memvar %s", + + /* Texts */ + + "DD.MM.YYYY", + "A", + "N" + } +}; + +HB_LANG_ANNOUNCE( CSWIN ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_CSWIN ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_CSWIN ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_lang_Init_CSWIN +#endif + diff --git a/harbour/source/lang/msghr852.c b/harbour/source/lang/msghr852.c new file mode 100644 index 0000000000..c9b58bc262 --- /dev/null +++ b/harbour/source/lang/msghr852.c @@ -0,0 +1,191 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (HR852) + * + * Copyright 2000 Victor Szakats (English, from msg_tpl.c) + * Copyright 2000 Davor Siklic + * www - http://www.harbour-project.org + * + * 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, with one exception: + * + * The exception is that if you link the Harbour Runtime Library (HRL) + * and/or the Harbour Virtual Machine (HVM) with other files to produce + * an executable, this does not by itself cause the resulting executable + * to be covered by the GNU General Public License. Your use of that + * executable is in no way restricted on account of linking the HRL + * and/or HVM code into it. + * + * 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 (or visit + * their web site at http://www.gnu.org/). + * + */ + +/* Language name: CROATIAN */ +/* ISO language code (2 chars): HR */ +/* Codepage: 852 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "HR852", /* ID */ + "Croatian", /* Name (in English) */ + "Hrvatski", /* Name (in native language) */ + "HR", /* RFC ID */ + "852", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "sijeYanj", + "veljaYa", + "o§ujak", + "travanj", + "svibanj", + "lipanj", + "srpanj", + "kolovoz", + "rujan", + "listopad", + "studeni", + "prosinac", + + /* Day names */ + + "nedjelja", + "ponedjeljak", + "utorak", + "srijeda", + "Yetvrtak", + "petak", + "subota", + + /* CA-Cl*pper compatible natmsg items */ + + "Database Files # Records Last Update Size", + "Do you want more samples?", + "Page No.", + "** Subtotal **", + "* Subsubtotal *", + "*** Total ***", + "Ins", + " ", + "Invalid date", + "Range: ", + " - ", + "D/N", + "INVALID EXPRESSION", + + /* Error description names */ + + "Unknown error", + "Argument error", + "Bound error", + "String overflow", + "Numeric overflow", + "Zero divisor", + "Numeric error", + "Syntax error", + "Operation too complex", + "", + "", + "Memory low", + "Undefined function", + "No exported method", + "Variable does not exist", + "Alias does not exist", + "No exported variable", + "Illegal characters in alias", + "Alias already in use", + "", + "Create error", + "Open error", + "Close error", + "Read error", + "Write error", + "Print error", + "", + "", + "", + "", + "Operation not supported", + "Limit exceeded", + "Corruption detected", + "Data type error", + "Data width error", + "Workarea not in use", + "Workarea not indexed", + "Exclusive required", + "Lock required", + "Write not allowed", + "Append lock failed", + "Lock Failure", + "", + "", + "", + "", + "array access", + "array assign", + "array dimension", + "not an array", + "conditional", + + /* Internal error names */ + + "Unrecoverable error %lu: ", + "Error recovery failure", + "No ERRORBLOCK() for error", + "Too many recursive error handler calls", + "RDD invalid or failed to load", + "Invalid method type from %s", + "hb_xgrab can't allocate memory", + "hb_xrealloc called with a NULL pointer", + "hb_xrealloc called with an invalid pointer", + "hb_xrealloc can't reallocate memory", + "hb_xfree called with an invalid pointer", + "hb_xfree called with a NULL pointer", + "Can\'t locate the starting procedure: \'%s\'", + "No starting procedure", + "Unsupported VM opcode", + "Symbol item expected from %s", + "Invalid symbol type for self from %s", + "Codeblock expected from %s", + "Incorrect item type on the stack trying to pop from %s", + "Stack underflow", + "An item was going to be copied to itself from %s", + "Invalid symbol item passed as memvar %s", + + /* Texts */ + + "DD/MM/YYYY", + "D", + "N" + } +}; + +HB_LANG_ANNOUNCE( HR852 ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_HR852 ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_HR852 ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_lang_Init_HR852 +#endif + diff --git a/harbour/source/lang/msghriso.c b/harbour/source/lang/msghriso.c new file mode 100644 index 0000000000..600629b90a --- /dev/null +++ b/harbour/source/lang/msghriso.c @@ -0,0 +1,191 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (HRISO) + * + * Copyright 2000 Victor Szakats (English, from msg_tpl.c) + * Copyright 2000 Davor Siklic + * www - http://www.harbour-project.org + * + * 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, with one exception: + * + * The exception is that if you link the Harbour Runtime Library (HRL) + * and/or the Harbour Virtual Machine (HVM) with other files to produce + * an executable, this does not by itself cause the resulting executable + * to be covered by the GNU General Public License. Your use of that + * executable is in no way restricted on account of linking the HRL + * and/or HVM code into it. + * + * 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 (or visit + * their web site at http://www.gnu.org/). + * + */ + +/* Language name: Croatian */ +/* ISO language code (2 chars): HR */ +/* Codepage: ISO-8859-2 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "HRISO", /* ID */ + "Croatian", /* Name (in English) */ + "Hrvatski", /* Name (in native language) */ + "CS", /* RFC ID */ + "ISO-8859-2", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "siječanj", + "veljača", + "ožujak", + "travanj", + "svibanj", + "lipanj", + "srpanj", + "kolovoz", + "rujan", + "listopad", + "studeni", + "prosinac", + + /* Day names */ + + "nedjelja", + "ponedjeljak", + "utorak", + "srijeda", + "četvrtak", + "petak", + "subota", + + /* CA-Cl*pper compatible natmsg items */ + + "Database Files # Records Last Update Size", + "Do you want more samples?", + "Page No.", + "** Subtotal **", + "* Subsubtotal *", + "*** Total ***", + "Ins", + " ", + "Invalid date", + "Range: ", + " - ", + "D/N", + "INVALID EXPRESSION", + + /* Error description names */ + + "Unknown error", + "Argument error", + "Bound error", + "String overflow", + "Numeric overflow", + "Zero divisor", + "Numeric error", + "Syntax error", + "Operation too complex", + "", + "", + "Memory low", + "Undefined function", + "No exported method", + "Variable does not exist", + "Alias does not exist", + "No exported variable", + "Illegal characters in alias", + "Alias already in use", + "", + "Create error", + "Open error", + "Close error", + "Read error", + "Write error", + "Print error", + "", + "", + "", + "", + "Operation not supported", + "Limit exceeded", + "Corruption detected", + "Data type error", + "Data width error", + "Workarea not in use", + "Workarea not indexed", + "Exclusive required", + "Lock required", + "Write not allowed", + "Append lock failed", + "Lock Failure", + "", + "", + "", + "", + "array access", + "array assign", + "array dimension", + "not an array", + "conditional", + + /* Internal error names */ + + "Unrecoverable error %lu: ", + "Error recovery failure", + "No ERRORBLOCK() for error", + "Too many recursive error handler calls", + "RDD invalid or failed to load", + "Invalid method type from %s", + "hb_xgrab can't allocate memory", + "hb_xrealloc called with a NULL pointer", + "hb_xrealloc called with an invalid pointer", + "hb_xrealloc can't reallocate memory", + "hb_xfree called with an invalid pointer", + "hb_xfree called with a NULL pointer", + "Can\'t locate the starting procedure: \'%s\'", + "No starting procedure", + "Unsupported VM opcode", + "Symbol item expected from %s", + "Invalid symbol type for self from %s", + "Codeblock expected from %s", + "Incorrect item type on the stack trying to pop from %s", + "Stack underflow", + "An item was going to be copied to itself from %s", + "Invalid symbol item passed as memvar %s", + + /* Texts */ + + "DD/MM/YYYY", + "D", + "N" + } +}; + +HB_LANG_ANNOUNCE( HRISO ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_HRISO ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_HRISO ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_lang_Init_HRISO +#endif + diff --git a/harbour/source/rtl/philes.c b/harbour/source/rtl/philes.c index 8fde9bf3e6..52bc4a5313 100644 --- a/harbour/source/rtl/philes.c +++ b/harbour/source/rtl/philes.c @@ -40,8 +40,6 @@ * Copyright 1999 Victor Szakats * CURDIR() * - * See doc/license.txt for licensing terms. - * * Copyright 2000 David G. Holm * HB_FEOF() * @@ -214,6 +212,8 @@ HB_FUNC( CURDIR ) hb_fsSetError( uiErrorOld ); } +#ifdef HB_EXTENSION + HB_FUNC( HB_FEOF ) { if( ISNUM( 1 ) ) @@ -223,6 +223,9 @@ HB_FUNC( HB_FEOF ) else { hb_fsSetError( FS_ERROR ); - hb_retl( 1 ); + hb_retl( TRUE ); } } + +#endif +