ASC bug - re: Barbara THIAM's post

[D Babin]

Since the change in the fivetech forum I could not reply to Barbara's post.

However the following code worked flawlessly under FWH using Harbour Alpha build 44.0 and also using xHarbour build 99.3

// Test of ASC function

FUNCTION MAIN()

LOCAL n, cStr := "", lf := CHR(13)+CHR(10)

FOR n := 0 TO 255
cStr += LSTR( ASC(CHR(n)) )+IF(n%10=0,lf," - ")
NEXT


MSGINFO( cStr )

RETURN NIL


FUNCTION LSTR( val )
RETURN LTRIM(STR( val ))

[Badara Thiam]

Hello Mr Babin,
Hello Everybody,

I am testing xHarbour build 0.99.5, waiting new release of Harbour.
I get an executable, but when i run it, this message appears at first :

"ALERT.PRG was compiled by older version, PCODE version 5 is no longer supported - Please recompile."

Are the FWH 2.5 lib's not compatibles with xHarbour 0.99.5 ?

Regards,
Badara

[Enrico Maria Giordano]

You have to recompile *all* your PRGs and *all* FWH PRGs.

EMG

[Badara Thiam]

Hello EMG,

Can you tell me the betters compiler options to compile
all Fivewin for Harbour .prg with xHarbour in one pass (if possible) ?

I have some compiler errors with these options : "-l -n -w -m -gc0"

ie error :

"dbms.ch (84) Warning I0003 : No markers in repeatable group
[;#undef _Dbms_ ] - group will never be used."

Regards,
Badara

[Enrico Maria Giordano]

This is what I use:

SET HARBOURCMD=/a /es1 /gc0 /l /m /n /q /w

Anyway, you don't have to recompile the following PRGs:

expbuild.prg
db10.prg
odbc32.prg
dbm.prg
vbxctrl.prg
_index.prg
dbms.prg
ddeserv.prg
field.prg
tnewsins.prg
c3.prg

EMG

[Badara Thiam]

Thanks Enrico.
Now i can run the program, but this code work bad :

*************
FUNCTION TEST()
**********
LOCAL cName := SPACE(10)
SET EXACT ON
IF cName = ""
MessageBox("OK : This work like Clipper")
ELSE
MessageBox("STOP : This work bad")
ENDIF
RETURN NIL

This is too hard...
(But i confirm, Asc() and ReadInsert() work fine with xHarbour 0.99.5)

Badara
http://www.icim.fr

[Enrico Maria Giordano]

This works fine for me:

*************
FUNCTION TEST()
**********
LOCAL cName := SPACE(10)
SET EXACT ON
IF cName = ""
? "OK : This work like Clipper"
ELSE
? "STOP : This work bad"
ENDIF
INKEY(0)
RETURN NIL

EMG

[Badara Thiam]

With all these lib it's always impossible for me.
Perhaps the order of one lib ?

*********
e:\borland\bcc55\lib\c0w32.obj +
E:\MAINTEST\MAINTEST.obj +
, +
E:\MAINTEST\TEST.exe,, +
E:\PROGS\LIB32\Ace32.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\rdd.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\rddads.LIB +
+
E:\FWH\LIB\FIVEHX.LIB +
E:\FWH\LIB\FIVEHC.LIB +
+
E:\XHARBOU\XHARBO~1.BCC\LIB\DBFCDX.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\DBFFPT.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\DBFDBT.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\DBFNTX.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\rtl.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\vm.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\gtstd.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\gtwin.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\lang.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\macro.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\common.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\pp.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\codepage.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\hbzip.LIB +
+
E:\XHARBOU\XHARBO~1.BCC\LIB\nulsys.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\ct.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\dllmain.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\hbcc.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\hbodbc.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\optcon.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\optgui.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\tip.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\libmisc.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\libnf.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\whoo.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\design.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\html.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\internet.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\what32.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\telepath.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\xwt.LIB +
E:\XHARBOU\XHARBO~1.BCC\LIB\wvtgui.LIB +
+
E:\BORLAND\BCC55\LIB\cw32.LIB +
E:\BORLAND\BCC55\LIB\import32.LIB +
E:\BORLAND\BCC55\LIB\psdk\odbc32.LIB +
E:\BORLAND\BCC55\LIB\psdk\nddeapi.LIB +
E:\BORLAND\BCC55\LIB\psdk\iphlpapi.LIB +
E:\BORLAND\BCC55\LIB\psdk\rasapi32.LIB
***********

[Enrico Maria Giordano]

What is the exact error message you get?

EMG

[Badara Thiam]

No error message now.

When there is SET EXACT ON, a cVariable with space(s),
like cVar := " ", is not equal to "" for xHarbour.
When SET EXACT OFF, it's ok, " " = "".
With Clipper, " " = "", always.

Badara

[Enrico Maria Giordano]

From your sample

*************
FUNCTION TEST()
**********
LOCAL cName := SPACE(10)
SET EXACT ON
IF cName = ""
? "OK : This work like Clipper"
ELSE
? "STOP : This work bad"
ENDIF
INKEY(0)
RETURN NIL

I get

"OK : This work like Clipper"

using the latest xHarbour from CVS.

EMG

[Badara Thiam]

Hello EMG,

Thanks for your answer. When post the message below
to "join@xharbour.org", i get a non-delivery message :
"Invalid final delivery userid: patrick@xharbour.com".

**************
Hello,
I am Fivewin user and i want to join the xHarbour team
and access to the developpers mailing list and CVS.

I want help you to extract all bugs from xHarbour,
by report you all problems found.

Regards,
Badara Thiam
Author of ICIM Sofware
Contact : tb@icim.fr
Site internet : http://www.icim.fr

**************

[Enrico Maria Giordano]

I just forward your message to the xHarbour developer's list.

EMG

[Enrico Maria Giordano]

And this is the answer from Ron Pinkas:

"You may tell Badara, that he may report any issues on the
xHarbour.Unstable.CVS NG which is the forum dedicated to such activity. IOTH
he has development plans, please ask him to forward an email with his
development proposals. xHarbour is always interested in additional
developers, but otherwise the Developers list dedicated to Developers only."

EMG

[Badara Thiam]

Enrico,

This is my response to Ron Pinkas

------------
Ron,

My actual developpement plan is to obtain the latest xHarbour lib and bin possible to test with my several code lines, to be sure xHarbour has no others very important bugs.

Today i can't continue my tests because " " is not equal to ""
when Set Exact is On, with the version of xHarbour i use.
I could give you others informations to debug xHarbour today,
if the latest update was in my pc.

It's not only for help you, i am before all interested to create the 32 bit version of my sofware.

If i can accelerate the processus of developpement of [x]Harbour,
tell me how please. If i must wait few months to test again, i think
this is not the better way.

The first project of developpement in my head is :
Give to [x]Harbour the real ability to work exactly like Clipper,
where Clipper do what [x]Harbour do. I am not interested
by others projects of [x]Harbour today.

Just Clipper -> [x]Harbour compatibility.

My source code writted in Clipper 5.3b is 235000 lines big. If a bug
is not fixed, i am sure it occur in my code. My tests have, and can again,
greatly help to increase the reliability of [x]Harbour.

Regards,
Badara Thiam
http://www.icim.fr