FiveTech Software tech support forums

Hello,
I noticed, in some cases the LOG-file < Clip.log > returns error-informations it is hard to find the line, the error occurs.

xHarbour 1.2.3 Intl. (SimpLex) (Build 20130422)
Copyright 1999-2013, http://www.xharbour.org http://www.harbour-project.org/
Compiling '.\Ascview.PRG'...
100100100100200300400500600700800900100011001002001002001002001002003004005006007008009001000110012001300140015001600170018001002001002003004001001002003004005006007008009001000110012001300
140015001600170018001900200021002200230024002500260027002800290030003100320033003400350036003700
38003900400041001 error

No code generated

I didn't noticed that before

I found the error-line with missing : ') at the end
because of some hundreds lines, it is hard to find the error.

oText:Add('// ------------------

oText:Add('// ------------------')

Best Regards
Uwe

Uwe,

Have you tried to call xharbour directly without using buildx.bat ?

I am curious to know if that error is reported by the compiler. thanks

Antonio,

There seems to be special situations.
I had to check line by line by myself.
I will create a little testfile with these special errors.
The same mystery happend with this error :

LOCAL oWnd1, oSay[4], oGet1, ,cGet1 := "?"

I added these errors to \samples\testfile.prg

#include "FiveWin.ch"
function Main()
local oText := TTxtFile():New( "Test.txt" )
local n, , i
if oText:Open()
oText:Add( "CA-Clipper & FiveWin: )
oText:Add( "Real xBase power" )
oText:Add( "at your fingertips!" )
oText:Close()
endif
MsgInfo( MemoRead( "Test.txt" ) )
oText:New( "c:\autoexec.bat" )
MsgInfo( oText:RecCount() )
for n = 1 to 5
MsgInfo( oText:ReadLine() )
oText:Skip()
next
oText:Close()
return nil





Best Regards
Uwe

To me the sequence 100100100100200300400500600700800900100011001002001002001002001002003004005006007008009001000110012001300140015001600170018001002001002003004001001002003004005006007008009001000110012001300
140015001600170018001900200021002200230024002500260027002800290030003100320033003400350036003700
38003900400041001
seems to be line numbers. So you might jump to line 4100 to beging searching the bug.

André

The testfile.prg sample got only 27 lines
The values in comp.log don't make any sense to me.
The values are the same. It doesn't matter, if the error will be in line 3 or 7

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()
local oText := TTxtFile():New( "Test.txt" )
local n // , , i forced error 1 with double , ,

if oText:Open()
      oText:Add( "CA-Clipper & FiveWin: " ) //  ) forced error 2 with NO "
      oText:Add( "Real xBase power" )
      oText:Add( "at your fingertips!" )
      oText:Close()
endif

MsgInfo( MemoRead( "Test.txt" ) )

// Now lets read a text file -Your autoexec.bat!!!-

oText:New( "c:\autoexec.bat" )
MsgInfo( oText:RecCount() )

for n = 1 to 5
      MsgInfo( oText:ReadLine() )
      oText:Skip()
next
oText:Close()

return nil

/*
same values from error line 5 and 8 in comp.log displayed with a texteditor :

xHarbour 1.2.3 Intl. (SimpLex) (Build 20130422)
Copyright 1999-2013, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'testfile.prg' and generating preprocessed output to 'testfile.ppo'...

100

100

100

100

200

300

400

500

600
*/
 

Best Regards
Uwe

Uwe,

FWH samples buildx.bat also creates a file warnings.log, please have a look at it also, just in case

Antonio,

Thank You very much-
That is the message I've been looking for ( from warnings.log ) :

oText:Add( "CA-Clipper & FiveWin: )

testfile.prg(8) Error E0002 Unterminated string: 'CA-Clipper & FiveWin: )'

Do I have to modify my RMK-files to get the warning.log,, because it is not defined ?
I used the syntax defined in BORMAKE.zip
There the makefile-structure is different.

Best regards
Uwe