Harbour warnings

User avatar
nageswaragunupudi
Posts: 10729
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Been thanked: 10 times
Contact:

Re: Harbour warnings

Post by nageswaragunupudi »

Enrico Maria Giordano wrote:The solution is already present in xHarbour (-wb- compiler switch). As I already wrote, I did hope that there were a similar solution for Harbour. Ok, I understood that there is not. :-(

EMG

Yes.
I tried earlier and could not find any switch in Harbour with similar functionality as -wb- in xHarbour.
Regards

G. N. Rao.
Hyderabad, India
User avatar
Enrico Maria Giordano
Posts: 8766
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Has thanked: 1 time
Been thanked: 5 times
Contact:

Re: Harbour warnings

Post by Enrico Maria Giordano »

rhlawek wrote:What I do NOT understand why Self in the row for .center. does not also throw the warning when using w3.


There is no Self in the CENTER clause. Probably you mistakenly looked at the VALID clause:

Code: Select all | Expand

<.center.>, [{|Self|<uValid>}],;


EMG
User avatar
rhlawek
Posts: 194
Joined: Sun Jul 22, 2012 7:01 pm

Re: Harbour warnings

Post by rhlawek »

You are correct, I missed the fact of the comma.
User avatar
Jimmy
Posts: 1740
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany
Has thanked: 2 times

Re: Harbour warnings

Post by Jimmy »

hi,

in c:\fwh\include\objects.ch i found this

Code: Select all | Expand

#xtranslate :: =>  Self:

what about add

Code: Select all | Expand

#xtranslate Self: => ::
greeting,
Jimmy
User avatar
Enrico Maria Giordano
Posts: 8766
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Has thanked: 1 time
Been thanked: 5 times
Contact:

Re: Harbour warnings

Post by Enrico Maria Giordano »

I have been able to solve the problem using something like this:

Code: Select all | Expand

#xtranslate { | <xVar> | <uAction> } => { | <xVar> | ( <xVar> ), <uAction> }
#xtranslate { | <xVar1>, <xVar2> | <uAction> } => { | <xVar1>, <xVar2> | ( <xVar1>, <xVar2> ), <uAction> }
#xtranslate { | <xVar1>, <xVar2>, <xVar3> | <uAction> } => { | <xVar1>, <xVar2>, <xVar3> | ( <xVar1>, <xVar2>, <xVar3> ), <uAction> }
#xtranslate { | <xVar1>, <xVar2>, <xVar3>, <xVar4> | <uAction> } => { | <xVar1>, <xVar2>, <xVar3>, <xVar4> | ( <xVar1>, <xVar2>, <xVar3>, <xVar4> ), <uAction> }
#xtranslate { | <xVar1>, <xVar2>, <xVar3>, <xVar4>, <xVar5>, <xVar6> | <uAction> } => { | <xVar1>, <xVar2>, <xVar3>, <xVar4>, <xVar5>, <xVar6> | ( <xVar1>, <xVar2>, <xVar3>, <xVar4>, <xVar5>, <xVar6> ), <uAction> }

#xtranslate { | <xVar> | <uAction>, <uAction2> } => { | <xVar> | ( <xVar> ), <uAction>, <uAction2> }
#xtranslate { | <xVar1>, <xVar2> | <uAction>, <uAction2> } => { | <xVar1>, <xVar2> | ( <xVar1>, <xVar2> ), <uAction>, ( <uAction2> ) }
#xtranslate { | <xVar1>, <xVar2>, <xVar3> | <uAction>, <uAction2> } => { | <xVar1>, <xVar2>, <xVar3> | ( <xVar1>, <xVar2>, <xVar3> ), <uAction>, ( <uAction2> ) }
Post Reply