68 lines
1.8 KiB
Plaintext
68 lines
1.8 KiB
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
// Testing SET
|
|
|
|
#include "set.ch"
|
|
request dbfntx
|
|
function Main()
|
|
// for Clipper, this drags in the terminal driver
|
|
@ Row(), col() say ""
|
|
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)
|
|
#endif
|
|
|
|
return nil
|
|
|
|
proc testline( c, n )
|
|
local NEWLINE := CHR (13) + CHR (10)
|
|
outstd( NEWLINE )
|
|
outstd( str( n, 3 ) )
|
|
outstd( " "+Padr( c, 17 ) )
|
|
outstd( Set( n ) )
|