95 lines
2.4 KiB
Plaintext
95 lines
2.4 KiB
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
// Testing SET
|
|
|
|
STATIC s_cNewLine
|
|
|
|
#include "set.ch"
|
|
request dbfntx
|
|
function Main()
|
|
// for Clipper, this drags in the terminal driver
|
|
@ Row(), col() say ""
|
|
|
|
s_cNewLine := HB_OSNewLine()
|
|
|
|
TestLine( "_SET_EXACT", 1)
|
|
TestLine( "_SET_FIXED", 2)
|
|
TestLine( "_SET_DECIMALS", 3)
|
|
TestLine( "_SET_DATEFORMAT", 4)
|
|
TestLine( "_SET_EPOCH", 5)
|
|
TestLine( "_SET_PATH", 6)
|
|
TestLine( "_SET_DEFAULT", 7)
|
|
|
|
TestLine( "_SET_EXCLUSIVE", 8)
|
|
TestLine( "_SET_SOFTSEEK", 9)
|
|
TestLine( "_SET_UNIQUE", 10)
|
|
TestLine( "_SET_DELETED", 11)
|
|
|
|
TestLine( "_SET_CANCEL", 12)
|
|
TestLine( "_SET_DEBUG", 13)
|
|
TestLine( "_SET_TYPEAHEAD", 14)
|
|
|
|
TestLine( "_SET_COLOR", 15)
|
|
TestLine( "_SET_CURSOR", 16)
|
|
TestLine( "_SET_CONSOLE", 17)
|
|
TestLine( "_SET_ALTERNATE", 18)
|
|
TestLine( "_SET_ALTFILE", 19)
|
|
TestLine( "_SET_DEVICE", 20)
|
|
TestLine( "_SET_EXTRA", 21)
|
|
TestLine( "_SET_EXTRAFILE", 22)
|
|
TestLine( "_SET_PRINTER", 23)
|
|
TestLine( "_SET_PRINTFILE", 24)
|
|
TestLine( "_SET_MARGIN", 25)
|
|
|
|
TestLine( "_SET_BELL", 26)
|
|
TestLine( "_SET_CONFIRM", 27)
|
|
TestLine( "_SET_ESCAPE", 28)
|
|
TestLine( "_SET_INSERT", 29)
|
|
TestLine( "_SET_EXIT", 30)
|
|
TestLine( "_SET_INTENSITY", 31)
|
|
TestLine( "_SET_SCOREBOARD", 32)
|
|
TestLine( "_SET_DELIMITERS", 33)
|
|
TestLine( "_SET_DELIMCHARS", 34)
|
|
|
|
TestLine( "_SET_WRAP", 35)
|
|
TestLine( "_SET_MESSAGE", 36)
|
|
TestLine( "_SET_MCENTER", 37)
|
|
TestLine( "_SET_SCROLLBREAK", 38)
|
|
|
|
#ifdef _SET_EVENTMASK
|
|
TestLine( "_SET_EVENTMASK", 39)
|
|
|
|
TestLine( "_SET_VIDEOMODE", 40)
|
|
|
|
TestLine( "_SET_MBLOCKSIZE", 41)
|
|
TestLine( "_SET_MFILEEXT", 42)
|
|
|
|
TestLine( "_SET_STRICTREAD", 43)
|
|
TestLine( "_SET_OPTIMIZE", 44)
|
|
TestLine( "_SET_AUTOPEN", 45)
|
|
TestLine( "_SET_AUTORDER", 46)
|
|
TestLine( "_SET_AUTOSHARE", 47)
|
|
#endif
|
|
|
|
#ifdef _SET_LANGUAGE
|
|
TestLine( "_SET_LANGUAGE", 100)
|
|
TestLine( "_SET_IDLEREPEAT", 101)
|
|
TestLine( "_SET_FILECASE", 102)
|
|
TestLine( "_SET_DIRCASE", 103)
|
|
TestLine( "_SET_DIRSEPARATOR",104)
|
|
Set(_SET_DIRSEPARATOR, "/")
|
|
TestLine( "_SET_DIRSEPARATOR",104)
|
|
#endif
|
|
|
|
return nil
|
|
|
|
proc testline( c, n )
|
|
outstd( s_cNewLine )
|
|
outstd( str( n, 3 ) )
|
|
outstd( " " )
|
|
outstd( Padr( c, 20 ) )
|
|
outstd( Set( n ) )
|
|
return
|