9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
55 lines
784 B
Plaintext
55 lines
784 B
Plaintext
//NOTEST
|
|
|
|
#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
|