a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
58 lines
799 B
Plaintext
58 lines
799 B
Plaintext
//NOTEST
|
|
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#pragma TracePragmas=On
|
|
#pragma ExitSeverity=1
|
|
|
|
/* Unknown pragmas will be ignored silently */
|
|
#pragma BadPragma=off
|
|
#pragma /Y+
|
|
|
|
PROCEDURE Main()
|
|
|
|
#pragma Shortcut=On
|
|
|
|
#pragma Shortcut= Off
|
|
|
|
#pragma Shortcut = On
|
|
|
|
#pragma Shortcut(OFF)
|
|
|
|
#pragma Shortcut( On)
|
|
|
|
#pragma Shortcut( OFF )
|
|
|
|
#pragma Shortcut( On )
|
|
|
|
#pragma Shortcut( OFF )
|
|
|
|
#pragma Shortcut( ON
|
|
|
|
/* or #pragma /Z+ */
|
|
|
|
IF .T. .AND. .F.
|
|
? "Always"
|
|
ENDIF
|
|
|
|
IF .F. .AND. .T.
|
|
? "Never"
|
|
ENDIF
|
|
|
|
#pragma /Z-
|
|
/* or #pragma Shortcut=Off */
|
|
|
|
#pragma ExitSeverity=0
|
|
#pragma ExitSeverity=1
|
|
#pragma ExitSeverity(0)
|
|
#pragma ExitSeverity( 1 )
|
|
#pragma ExitSeverity( 0 )
|
|
#pragma ExitSeverity= 2
|
|
#pragma ExitSeverity= 1
|
|
|
|
/* Pragmas with bad values will cause an error */
|
|
#pragma WarningLevel=8
|
|
|
|
RETURN
|