fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-02-11 19:40 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* doc/en/diskspac.txt
  * doc/en/terminal.txt
  * doc/en/setmode.txt
  * doc/es/diskspac.txt
  * doc/es/dirstruc.txt
  * doc/inet.txt
  * contrib/hbmysql/readme.txt
  * contrib/hbct/disk.c
  * contrib/hbtpathy/telepath.prg
  * contrib/hbole/tests/testole.prg
  * contrib/gtwvg/gtwvg.c
  * contrib/gtwvg/wvgclass.prg
  * contrib/gtwvg/gtwvg.h
  * contrib/gtwvg/wvggui.c
  * contrib/gtwvg/wvggui.h
  * contrib/gtwvg/wvgwin.c
  * contrib/gtwvg/wvgutils.c
  * contrib/gtwvg/wvgcore.c
  * contrib/hbgf/hbgfos2/winctrl.prg
  * contrib/hbgf/hbgfos2/tform.prg
  * source/common/hbver.c
  * source/rtl/run.c
  * source/rtl/gtwin/gtwin.c
  * source/rtl/oemansi.c
  * source/rtl/gtwvt/gtwvt.h
  * source/rtl/gtwvt/gtwvt.c
  * source/rtl/hbrandom.c
  * source/rtl/filesys.c
    * Win32 -> Windows. In comments / docs.
This commit is contained in:
Viktor Szakats
2009-02-11 18:41:31 +00:00
parent dc2a07f2b7
commit 4c6372e8ff
29 changed files with 103 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
harbour/ChangeLog
View File

@@ -8,6 +8,37 @@
2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-02-11 19:40 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* doc/en/diskspac.txt
* doc/en/terminal.txt
* doc/en/setmode.txt
* doc/es/diskspac.txt
* doc/es/dirstruc.txt
* doc/inet.txt
* contrib/hbmysql/readme.txt
* contrib/hbct/disk.c
* contrib/hbtpathy/telepath.prg
* contrib/hbole/tests/testole.prg
* contrib/gtwvg/gtwvg.c
* contrib/gtwvg/wvgclass.prg
* contrib/gtwvg/gtwvg.h
* contrib/gtwvg/wvggui.c
* contrib/gtwvg/wvggui.h
* contrib/gtwvg/wvgwin.c
* contrib/gtwvg/wvgutils.c
* contrib/gtwvg/wvgcore.c
* contrib/hbgf/hbgfos2/winctrl.prg
* contrib/hbgf/hbgfos2/tform.prg
* source/common/hbver.c
* source/rtl/run.c
* source/rtl/gtwin/gtwin.c
* source/rtl/oemansi.c
* source/rtl/gtwvt/gtwvt.h
* source/rtl/gtwvt/gtwvt.c
* source/rtl/hbrandom.c
* source/rtl/filesys.c
* Win32 -> Windows. In comments / docs.
2009-02-11 19:03 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* COPYING
* source/rtl/philes.c

4
harbour/contrib/gtwvg/gtwvg.c
View File

@@ -4,14 +4,14 @@
/*
* Harbour Project source code:
* Video subsystem for Win32 using GUI windows instead of Console
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* based on
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Win32 compilers
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*

2
harbour/contrib/gtwvg/gtwvg.h
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* Header File for Video subsystem for Win32 using GUI windows instead of Console
* Header File for Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* www - http://www.harbour-project.org

3
harbour/contrib/gtwvg/wvgclass.prg
View File

@@ -9,7 +9,7 @@
* Copyright 2007 Pritpal Bedi <pritpal@vouchcac.com>
* Based On:
*
* Video subsystem for Win32 using GUI windows instead of Console
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
*
@@ -3573,4 +3573,3 @@ METHOD SetVisible() CLASS TBrowseWVG
//-------------------------------------------------------------------//
//-------------------------------------------------------------------//
//-------------------------------------------------------------------//

4
harbour/contrib/gtwvg/wvgcore.c
View File

@@ -8,14 +8,14 @@
* Copyright 2007 Pritpal Bedi <pritpal@vouchcac.com>
* Based on:
*
* Video subsystem for Win32 using GUI windows instead of Console
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* based on
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Win32 compilers
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*

4
harbour/contrib/gtwvg/wvggui.c
View File

@@ -4,14 +4,14 @@
/*
* Harbour Project source code:
* Video subsystem for Win32 using GUI windows instead of Console
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* based on
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Win32 compilers
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*

2
harbour/contrib/gtwvg/wvggui.h
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* Header File for Video subsystem for Win32 using GUI windows instead of Console
* Header File for Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* www - http://www.harbour-project.org

4
harbour/contrib/gtwvg/wvgutils.c
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* Video subsystem for Win32 using GUI windows instead of Console
* Video subsystem for Windows using GUI windows instead of Console
*
* Copyright 2007 Pritpal Bedi <pritpal@vouchcac.com>
* based on:
@@ -15,7 +15,7 @@
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Win32 compilers
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*

4
harbour/contrib/gtwvg/wvgwin.c
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* Video subsystem for Win32 using GUI windows instead of Console
* Video subsystem for Windows using GUI windows instead of Console
*
* Copyright 2007 Pritpal Bedi <pritpal@vouchcac.com>
* based on:
@@ -15,7 +15,7 @@
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Win32 compilers
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*

2
harbour/contrib/hbct/disk.c
View File

@@ -184,7 +184,7 @@ HB_FUNC( NUMDISKL )
hb_retni( 26 );
#endif
#elif defined( HB_OS_WIN )
/* LASTDRIVE does not affect Win32 apps, they always have 26 letters avail */
/* LASTDRIVE does not affect Windows apps, they always have 26 letters avail */
hb_retni( 26 );
#else
/* For Unix, return the most harmless value... or not? */

2
harbour/contrib/hbgf/hbgfos2/tform.prg
View File

@@ -58,7 +58,7 @@
#include "os2pm.ch" // Needed to store some OS/2 PM constant values
// Win32 compatibility Message redefinition
// Windows compatibility Message redefinition
#define WM_LBUTTONDOWN WM_BUTTON1DOWN

2
harbour/contrib/hbgf/hbgfos2/winctrl.prg
View File

@@ -58,7 +58,7 @@
#include "common.ch"
#include "hbclass.ch"
// NOTE: What does this define do under Win32?
// NOTE: What does this define do under Windows?
#define SW_SHOWNA 8

4
harbour/contrib/hbmysql/readme.txt
View File

@@ -20,7 +20,7 @@ test.prg : a little test program which wont work for you :-) since it uses a
provided. Use it as a small tutorial of tmysql.prg provided functions.
Makefile : my makefile for OS/2 gcc, you'll surely need to change it to adapt to your needs/platform.
makefile.bc,
make_b32.bat: batch file and makefile to build mysql.lib on win32
make_b32.bat: batch file and makefile to build mysql.lib on Windows
You will also need all .h files from include subdir of your installed MySQL server, at a bare minimum
they are:
@@ -30,7 +30,7 @@ they are:
(under OS/2 with OS/2 port of MySql you need to use the ones from 3.21.33b build which is the only one with
a single threaded libmysqlclient.a client library and works ok even with latest MySQL/2 availble).
To build this library on win32 (using freely available Borland C++ compiler) you
To build this library on Windows (using freely available Borland C++ compiler) you
need to follow these steps:
1) go to www.mysql.com and download any version you like of mysql.

54
harbour/contrib/hbole/tests/testole.prg
View File

@@ -5,7 +5,7 @@
/*
* Harbour Project source code:
* demonstration code for FOR EACH used for OLE objects
* this code needs HBWIN32 library
* this code needs HBWIN library
*
* Copyright 2007 Enrico Maria Giordano e.m.giordano at emagsoftware.it
* www - http://www.harbour-project.org
@@ -74,20 +74,20 @@ STATIC PROCEDURE Exm_CDO()
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
oCDOConf := CreateObject( "CDO.Configuration" )
oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") := 2 // ; cdoSendUsingPort
oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") := "localhost"
oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") := 25
oCDOConf:Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") := 120
oCDOConf:Fields:Update()
oCDOMsg:Configuration := oCDOConf
oCDOMsg:BodyPart:Charset := "iso-8859-2" // "iso-8859-1" "utf-8"
oCDOMsg:To := "test@localhost"
oCDOMsg:From := "sender@localhost"
oCDOMsg:Subject := "Test message"
oCDOMsg:TextBody := "Test message body"
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
oCDOMsg:Send()
RECOVER
@@ -132,63 +132,63 @@ STATIC PROCEDURE Exm_MSExcel()
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
oExcel := CreateObject( "Excel.Application" )
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
oWorkBook := oExcel:WorkBooks:Add()
FOR EACH oWorkSheet IN oWorkBook:WorkSheets
? oWorkSheet:Name
NEXT
oAS := oExcel:ActiveSheet()
oAS:Cells:Font:Name := "Arial"
oAS:Cells:Font:Size := 12
// Explicit use of DEFAULT method by means of #xtranslate above!!!
oAS:Cells( 3, 1 ) := "Explict DEFAULT Method Text:"
// Array notation seem to have REVERSED indexs for the Cells Collections!!!
// Implicitly using DEFAULT Method
oAS:Cells[ 2, 3 ] := "Implicit DEFAULT Method using *reversed* array index notation"
// Operator overloading will attempt explict resolutin using :OleValue
oAS:Cells[ 2, 3 ] += "!"
oAS:Cells( 4, 1 ):Value := "Numeric:"
oAS:Cells( 4, 2 ):NumberFormat := "#.##0,00"
oAS:Cells[ 2, 4 ] := 1234.50
oAS:Cells[ 2, 4 ] *= 4
? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value
oAS:Cells[ 2, 4 ] /= 2
? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value
oAS:Cells[ 2, 4 ]++
? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value
oAS:Cells[ 2, 4 ]--
? oAS:Cells[ 2, 4 ], oAS:Cells[ 2, 4 ]:Value
oAS:Cells( 5, 1 ):Value := "Logical:"
oAS:Cells( 5, 2 ):Value := .T.
oAS:Cells( 6, 1 ):Value := "Date:"
oAS:Cells( 6, 2 ):Value := DATE()
oAS:Columns( 1 ):Font:Bold := .T.
oAS:Columns( 2 ):HorizontalAlignment := -4152 // xlRight
oAS:Columns( 1 ):AutoFit()
oAS:Columns( 2 ):AutoFit()
oAS:Cells( 1, 1 ):Value := "OLE from Harbour"
oAS:Cells( 1, 1 ):Font:Size := 16
oAS:Range( "A1:B1" ):HorizontalAlignment := 7
oAS:Cells( 1, 1 ):Select()
oExcel:Visible := .T.
oExcel:Quit()
END SEQUENCE
RECOVER
Alert( "Error: MS Excel not available. [" + Ole2TxtError()+ "]" )
@@ -206,14 +206,14 @@ STATIC PROCEDURE Exm_MSWord()
BEGIN SEQUENCE WITH {|oErr| Break( oErr )}
oWord:Documents:Add()
oText := oWord:Selection()
oText:Text := "OLE from Harbour" + hb_OSNewLine()
oText:Font:Name := "Arial"
oText:Font:Size := 48
oText:Font:Bold := .T.
oWord:Visible := .T.
oWord:WindowState := 1 // ; Maximize
@@ -298,10 +298,10 @@ STATIC PROCEDURE Exm_OpenOffice()
oOO_Doc := oOO_Desktop:loadComponentFromURL( OO_ConvertToURL( hb_FNameMerge( cDir, "sample.odt" ) ), "_blank", 0, { oOO_PropVal01 } )
// ...
oOO_Doc:Close( .T. )
oOO_Doc := NIL
oOO_Desktop:Terminate()
oOO_Desktop := NIL
oOO_PropVal01 := NIL

4
harbour/contrib/hbtpathy/telepath.prg
View File

@@ -199,10 +199,10 @@ function tp_open( nPort, nInSize, nOutSize, nBaud, nData, cParity, nStop, cPortn
#ifdef __PLATFORM__LINUX
default cPortName to "/dev/ttyS"
#else
default cPortName to "COM" // Ok for Win32 and OS/2
default cPortName to "COM" // Ok for Windows and OS/2
#endif
/* This way compatibility is retained for ports 1-4 on Win32 and Linux, but,
/* This way compatibility is retained for ports 1-4 on Windows and Linux, but,
should necessity arise, it is possible to simply pass a NIL on nPort and
a full name on cPortName
*/

4
harbour/doc/en/diskspac.txt
View File

@@ -44,7 +44,7 @@
* $COMPLIANCE$
* This function is CA-Cl*pper compliant
* $PLATFORMS$
* Dos,Win32,OS/2
* Dos,Windows,OS/2
* $FILES$
* Library is rtl
* Header is fileio.ch
@@ -104,7 +104,7 @@
* floating point value with 0 decimals if the disk is > 2 gigabytes.
* <nType> is a Harbour extension.
* $PLATFORMS$
* Dos,Win32,OS/2,Unix
* Dos,Windows,OS/2,Unix
* $FILES$
* Library is rtl
* Header is fileio.ch

4
harbour/doc/en/setmode.txt
View File

@@ -44,7 +44,7 @@
* <table>
* 25 rows x 40 columns 25 rows x 80 columns
* 50 rows x 40 columns 43 rows x 80 columns
* 50 rows x 80 columns
* 50 rows x 80 columns
* </table>
* Some modes only are availables for color and/or VGA monitors.
* Any change produced on the screen size is updated in the values
@@ -69,7 +69,7 @@
* $COMPLIANCE$
* Some of these modes are not availables on Clipper
* $PLATFORMS$
* DOS,WIN32
* DOS,Windows
* $FILES$
* Source is gtdos.c,gtwin.c
* $SEEALSO$

4
harbour/doc/en/terminal.txt
View File

@@ -813,7 +813,7 @@
* $PLATFORMS$
* It works in all platform with some remarks:Under Linux and OS/2 the
* number of columns avaliable depends of the current Terminal screen
* size. Under Win32, the return value of MAXCOL() function is only
* size. Under Windows, the return value of MAXCOL() function is only
* affected if called after an SETMODE() function
* $FILES$
* Library is rtl
@@ -848,7 +848,7 @@
* $PLATFORMS$
* It works in all platform with some remarks:Under Linux and OS/2 the
* number of columns avaliable depends of the current Terminal screen
* size. Under Win32, the return value of MAXROW() function is only
* size. Under Windows, the return value of MAXROW() function is only
* affected if called after an SETMODE() function
* $FILES$
* Library is rtl

7
harbour/doc/es/dirstruc.txt
View File

@@ -54,7 +54,7 @@ busca de remover directorios vac
| |
| +---os2 - Archivos de Configuraci¢n espec¡ficos para OS/2.
| |
| +---win - Archivos de Config. espec¡ficos para MS-Win32.
| +---win - Archivos de Config. espec¡ficos para Windows.
|
|
+---contrib - Archivos Miscelaneos de contribuci¢n.
@@ -96,7 +96,7 @@ busca de remover directorios vac
| | |
| | +---tests - Programas de Testeo
| | |
| | +---win32 - Implementaci¢n para entorno Win32
| | +---hbgfwin - Implementaci¢n para entorno Windows
| |
| +---htmllib - HTMLLIB (HTML classes) para Harbour
| |
@@ -220,7 +220,7 @@ busca de remover directorios vac
| | |
| | +---gtstd - Subsistema GT para ANSI C stream IO.
| | |
| | +---gtwin - Subsistema GT para compiladores Win32
| | +---gtwin - Subsistema GT para compiladores Windows
| | |
| | +---gt_tpl - Subsistema GT modelo base
| |
@@ -259,4 +259,3 @@ directorio est
si Ud. construye el compilador Harbour.
(#3) (.hrb), Archivos de formato Harbour Portable Object

4
harbour/doc/es/diskspac.txt
View File

@@ -71,12 +71,10 @@
* de punto flotante con 0 decimales si el disco es > 2 gigabytes.
* <nTipo> es una extensi¢n de Harbour.
* $PLATFORMS$
* Dos, Win32, OS/2, Unix
* Dos, Windows, OS/2, Unix
* $FILES$
* El c¢digo fuente est  en diskspac.c
* La librer¡a asociada es rtl
* El archivo de cabecera es fileio.ch
* $END$
*/

2
harbour/doc/inet.txt
View File

@@ -41,7 +41,7 @@
*
*
* hb_InetCleanup() -->NIL
* Closes Inet support; mainly used for win32. Put it at the end of any program
* Closes Inet support; mainly used for Windows. Put it at the end of any program
* using Inet functions, just before the program exits.
*
* hb_InetCreate() --> SOCKET

2
harbour/source/common/hbver.c
View File

@@ -100,7 +100,7 @@
/* NOTE: The caller must free the returned buffer. [vszakats] */
/* NOTE: Must be larger than 128, which is the maximum size of
osVer.szCSDVersion (Win32). [vszakats] */
osVer.szCSDVersion (Windows). [vszakats] */
#define PLATFORM_BUF_SIZE 255
char * hb_verPlatform( void )

2
harbour/source/rtl/filesys.c
View File

@@ -74,7 +74,7 @@
*
* Copyright 2001 Jose Gimenez (JFG) <jfgimenez@wanadoo.es>
* <tecnico.sireinsa@ctv.es>
* Added __WIN32__ check for any compiler to use the Win32
* Added platform check for any compiler to use the Windows
* API calls to allow openning an unlimited number of files
* simultaneously.
*

4
harbour/source/rtl/gtwin/gtwin.c
View File

@@ -4,14 +4,14 @@
/*
* Harbour Project source code:
* Video subsystem for Win32 compilers ver.2
* Video subsystem for Windows compilers ver.2
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*
* based on
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Win32 compilers
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* (with 2004 work on Readkey)
*

4
harbour/source/rtl/gtwvt/gtwvt.c
View File

@@ -4,14 +4,14 @@
/*
* Harbour Project source code:
* Video subsystem for Win32 using GUI windows instead of Console
* Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* based on
* Bcc ConIO Video subsystem by
* Copyright 2002 Marek Paliwoda <paliwoda@inteia.pl>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
* Video subsystem for Win32 compilers
* Video subsystem for Windows compilers
* Copyright 1999-2000 Paul Tucker <ptucker@sympatico.ca>
* Copyright 2002 Przemyslaw Czerpak <druzus@polbox.com>
*

2
harbour/source/rtl/gtwvt/gtwvt.h
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* Header File for Video subsystem for Win32 using GUI windows instead of Console
* Header File for Video subsystem for Windows using GUI windows instead of Console
* Copyright 2003 Peter Rees <peter@rees.co.nz>
* Rees Software & Systems Ltd
* www - http://www.harbour-project.org

8
harbour/source/rtl/hbrandom.c
View File

@@ -61,13 +61,13 @@
/* Globally available data, no need to MT it */
static volatile int s_fInit = 0;
/*
* HB_RANDOM
*
* HB_RANDOM() --> returns a real value n so that 0 <= n < 1
* HB_RANDOM( x ) --> returns a real number n so that 0 <= n < x
* HB_RANDOM( x, y) --> Returns a real number n so that x <= n < y
* HB_RANDOM( x ) --> returns a real number n so that 0 <= n < x
* HB_RANDOM( x, y) --> Returns a real number n so that x <= n < y
*/
HB_FUNC( HB_RANDOM )
{
@@ -141,7 +141,7 @@ double hb_random_num()
d1 = ( double ) rand();
d2 = ( double ) RAND_MAX;
#if defined( HB_OS_WIN )
/* It seems that on win32 platform there some weirdness about EPSILON value so
/* It seems that on Windows platform there some weirdness about EPSILON value so
that a float division using an epsilon smaller than 1e-10 may be rounded.
Must dig if it's a borland lib bug or a windows problem.
*/

4
harbour/source/rtl/oemansi.c
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* OEM <-> ANSI string conversion functions (Win32 specific, Xbase++ ext.)
* OEM <-> ANSI string conversion functions (Windows specific, Xbase++ ext.)
*
* Copyright 1999-2007 Viktor Szakats <viktor.szakats@syenar.hu>
* www - http://www.harbour-project.org
@@ -50,7 +50,7 @@
*
*/
/* NOTE: These are Win32 specific, for other platforms it will return the
/* NOTE: These are Windows specific, for other platforms it will return the
passed parameter unchanged. */
#define HB_OS_WIN_USED

2
harbour/source/rtl/run.c
View File

@@ -55,7 +55,7 @@
#include "hbapigt.h"
#include "hbapiitm.h"
/* TOFIX: The screen buffer handling is not right for all platforms (Win32)
/* TOFIX: The screen buffer handling is not right for all platforms (Windows)
The output of the launched (DOS?) app is not visible. */
HB_FUNC( __RUN )