home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 7 / POWERCD7.ISO / prgmming / clipper / gt_lib.ch < prev    next >
Text File  |  1994-08-29  |  3KB  |  118 lines
  1. * Originally setup by the GT_GANG at the GT Clipper day.
  2. * modifications by Martin Bryant
  3.  
  4. #ifndef __GT_LIB_CH   // Don't include it more than once
  5.  
  6.  
  7. #define __GT_LIB_CH
  8.  
  9. // Include any other .ch files
  10.  
  11. #INCLUDE "setcurs.ch"
  12. #INCLUDE "directry.ch"
  13. #INCLUDE "box.ch"
  14. #INCLUDE "inkey.ch"
  15. #INCLUDE "fileio.ch"
  16. #INCLUDE "colors.ch"
  17. #INCLUDE "Set.ch"
  18. #INCLUDE "Getexit.ch"
  19. #INCLUDE "array.ch"
  20.  
  21. #define   CRLF          (CHR(13)+CHR(10))
  22. #define   CR_LF         (CHR(13)+CHR(10))
  23. #define   K_CRLF        (CHR(13)+CHR(10))
  24. *#define   K_LF          CHR(10))
  25. #define   FORMFEED      CHR(12)
  26. #define   BACKSLASH     CHR(92)
  27. #define   EMPTYDATE     CTOD(SPACE(8))
  28. #define   NULL          ''
  29. #define   TRUE          .T.
  30. #define   FALSE         .F.
  31. *#define   K_SPACE       32
  32. #DEFINE   K_UNDO      K_CTRL_U
  33.  
  34. #define BOX_DD      '╔═╗║╝═╚║ ╣╠'
  35. #define BOX_DS      '╒═╕│╛═╘│ ╡╞'
  36. #define BOX_SD      '╓─╖║╜─╙║ ╢╟'
  37. #define BOX_SS      '┌─┐│┘─└│ ┤├'
  38.  
  39. #translate Undefined(<var>)     => (<var> == NIL)
  40. #translate Defined(<var>)       => (<var> != NIL)
  41.  
  42. #command DEFAULT <p> TO <val> [,<pn> TO <valn>];
  43.             =>;
  44.             <p> := iif(<p> == NIL,<val>,<p>);
  45.             [;<pn> := iif(<pn> == NIL, <valn>,<pn>)]
  46.  
  47. // define for number of seconds to wait before timeout on record locks and
  48. // file opens
  49. #define LOCKWAITTIME    5
  50.  
  51. // Define AUDIT types - System reserved values are "90" and above
  52. #define A_LOGON         "90"
  53. #define A_LOGOFF        "91"
  54. #define A_LOGFAIL       "92"
  55. #define A_DELETE        "93"
  56. #define A_TRASHCAN      "94"    // Audit record created when record is trashcanned
  57. #define A_ADDRECORD     "95"
  58. #define A_EDITRECORD    "96"
  59.  
  60. * Define video rows
  61. #define V_EGA       43
  62. #define V_VGA       50
  63. #define V_NORMAL    25
  64.  
  65. * Define video columns
  66. #define V_SINGLE    80
  67. #define V_DOUBLE    40
  68. #define V_NOCHANGE  0
  69.  
  70. // Valtype types
  71. #define TYPE_ARRAY "A"
  72. #define TYPE_BLOCK "B"
  73. #define TYPE_STRING "C"
  74. #define TYPE_CHAR "C"
  75. #define TYPE_DATE "D"
  76. #define TYPE_LOGICAL "L"
  77. #define TYPE_MEMO "M"
  78. #define TYPE_NUMERIC "N"
  79. #define TYPE_NUMBER "N"
  80. #define TYPE_OBJECT "O"
  81. #define TYPE_NIL "U"
  82. #define TYPE_UNDEFINED "U"
  83.  
  84. // AShrink()
  85. #xtranslate aShrink(<aArray>,<nAmt>) =>;
  86.           asize(<aArray>,len(<aArray>)-<nAmt>)
  87.  
  88. //  Index key as a block
  89. #translate GT_IndexBlock(<n>)   =>  ;
  90.     &('{ || ' + ;
  91.         If(Empty(Indexkey(<n>)),'NIL',Indexkey(<n>)) + ;
  92.         ' }')
  93.  
  94. //  Turn the cursor on
  95. #translate GT_ShowCursor()      => ;
  96.     SetCursor(If(ReadInsert(),SC_INSERT,SC_NORMAL))
  97.  
  98. //  Turn the cursor off
  99. #translate GT_NoCursor()        => ;
  100.     SetCursor(SC_NONE)
  101.  
  102. #translate GT_Read(<a>)         => ;
  103.     AEVAL({ { | |  SETCURSOR(IF(READINSERT(), ;
  104.     SC_INSERT,SC_NORMAL)) }, ;
  105.     { | | READMODAL(<a>) }, ;
  106.     { | | SETCURSOR(SC_NONE) } }, ;
  107.     { | bData, nElem | EVAL(bData) })
  108.  
  109. // List of all PUBLIC And PRIVATE variables used to pass info
  110. // to Library functions
  111. MEMVAR cDefaultPath  , ;
  112.        cSystemName   , ;
  113.        cUserName     , ;
  114.        nPageLen      , ;
  115.        nUserLevel
  116.  
  117. #endif
  118.