-----Messaggio Originale-----
Da: "Pritpal Bedi" <[EMAIL PROTECTED]>
A: <harbour@harbour-project.org>
Data invio: mercoledì 2 gennaio 2008 23.41
Oggetto: Re: [Harbour] A Question on Directives
A little correction, nay the appropriate way,
#define TEST TESTX #xtranslate test( => testx(
#undef TEST #untranslate test(
You are never sure which case you have used in function calls. #xtranslate
covers this aspect.
Maybe I'm missing something but the following sample
#xtranslate TestX(<r>,<c>,<x>,[<l>],<g>) => TestY( <r>,<c>,<x>,<l>,<g> )
#xtranslate TestX(<r>,<c>,<x>,[<l>]) => TestY( <r>,<c>,<x>,<l>,h )
#xtranslate test( => testx(
FUNCTION MAIN()
LOCAL h := 6
TEST( 1, 2, 3, 4, 5 )
TEST( 1, 2, 3, 5 )
INKEY( 0 )
RETURN NIL
#untranslate test( =>
STATIC FUNCTION TESTY( r, c, x, l, g )
RETURN TEST( r, c, x, l, g )
STATIC FUNCTION TEST( r, c, x, l, g )
? r, c, x, l, g
RETURN NIL
gives me
Redefinition of procedure or function: 'TESTY'
at line
STATIC FUNCTION TEST( r, c, x, l, g )
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
