3ed9fa0f45
* *
% remove brandings and homepage from copyright header. Pass 2 - semi-auto.
* project homepage and name is described in README, amongst others
; this should make the diff between 3.4 and 3.2 easier to manage
34 lines
688 B
Plaintext
34 lines
688 B
Plaintext
// Testing of multiple arguments
|
|
//
|
|
// Written by Eddie Runia <eddie@runia.com>
|
|
//
|
|
// Placed in the public domain
|
|
//
|
|
|
|
PROCEDURE Main()
|
|
|
|
ShoutArg( 1, "1", 2.5, .T. )
|
|
ShoutArg( 2, "1", 2.5, .T. )
|
|
ShoutArg( 3, "1", 2.5, .T. )
|
|
ShoutArg( 4, "1", 2.5, .T. )
|
|
ShoutArg( 5, "1", 2.5, .T. )
|
|
|
|
RETURN
|
|
|
|
FUNCTION ShoutArg( nArg, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10 )
|
|
|
|
HB_SYMBOL_UNUSED( x1 )
|
|
HB_SYMBOL_UNUSED( x2 )
|
|
HB_SYMBOL_UNUSED( x3 )
|
|
HB_SYMBOL_UNUSED( x4 )
|
|
HB_SYMBOL_UNUSED( x5 )
|
|
HB_SYMBOL_UNUSED( x6 )
|
|
HB_SYMBOL_UNUSED( x7 )
|
|
HB_SYMBOL_UNUSED( x8 )
|
|
HB_SYMBOL_UNUSED( x9 )
|
|
HB_SYMBOL_UNUSED( x10 )
|
|
|
|
? nArg, "==", hb_PValue( nArg )
|
|
|
|
RETURN NIL
|