Re: [xHarbour-developers] Another one

2016-08-16 Thread Enrico Maria Giordano
Il 16/08/2016 19:19, Ron Pinkas ha scritto: >> MYSAY ROW 12 COL 0 &( "cVar" + LTRIM( STR( n ) ) ) > > Because: > > 0 & … > > Is a valid single expression! Ahh! I really missed it! So what is the proper solution? A change in this command definition? #command MYSAY []; [ROW ]

Re: [xHarbour-developers] Another one

2016-08-16 Thread Enrico Maria Giordano
Il 16/08/2016 18:50, Ron Pinkas ha scritto: >> #command MYSAY []; >>[ROW ]; >>[COL ]; >> => MySayText( , , ) >> >> >> FUNCTION MAIN() >> >> PRIVATE cVar1 := "This is a test" >> >> PRIVATE n := 1 >> >> CLS >> >> @ 8, 0 SAY &( "cVar" + LTRIM(

Re: [xHarbour-developers] Compiler crash

2016-08-16 Thread Enrico Maria Giordano
Il 16/08/2016 18:29, Ron Pinkas ha scritto: >> I don't know if this is correct: >> >> #command TEST ; >> ; >> => MyTest( { || .and. .t. } ) >> >> #command TEST &

Re: [xHarbour-developers] Another one

2016-08-16 Thread Ron Pinkas
If you check the .PPO you will understand that you have a Pre Processing issue, with your command. > On Aug 16, 2016, at 9:26 AM, Enrico Maria Giordano > wrote: > > #command MYSAY []; >[ROW ]; >[COL ]; > => MySayText( , , ) > > > FUNCTION MAIN() > >

[xHarbour-developers] Another one

2016-08-16 Thread Enrico Maria Giordano
#command MYSAY []; [ROW ]; [COL ]; => MySayText( , , ) FUNCTION MAIN() PRIVATE cVar1 := "This is a test" PRIVATE n := 1 CLS @ 8, 0 SAY &( "cVar" + LTRIM( STR( n ) ) ) MYSAY ROW 10 COL 0 "" + &( "cVar" + LTRIM( STR( n ) ) )

[xHarbour-developers] Another long standing bug

2016-08-16 Thread Enrico Maria Giordano
FUNCTION MAIN() ? TEST() INKEY( 0 ) RETURN NIL STATIC FUNCTION TEST() LOCAL nVar := 1 LOCAL lVar := .T. BEGIN SEQUENCE IF lVar nVar = 2 BREAK ENDIF nVar = 3 END SEQUENCE RETURN nVar test.prg(26)

Re: [xHarbour-developers] Compiler crash

2016-08-16 Thread Enrico Maria Giordano
Il 15/08/2016 23:07, Ron Pinkas ha scritto: > Should be fixed after: > > 2016-08-15 17:04 UTC-0400 Ron Pinkas I don't know if this is correct: #command TEST ; ; => MyTest( {