home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / bcklib2.zip / BECKNER.INC < prev    next >
Text File  |  1992-10-09  |  6KB  |  113 lines
  1. #define LOOPING .y.
  2. #define ENDWHILE END
  3. #define CRLF chr(13)+chr(10)
  4. #define CTRL_Z chr(26)
  5. #define CR chr(13)
  6. #define LF chr(10)
  7. #define FORMFEED chr(12)
  8.  
  9. #xcommand INT86 <int>                                                   ;
  10.           [AX <ax>]                                                     ;
  11.           [BX <bx>]                                                     ;
  12.           [CX <cx>]                                                     ;
  13.           [DX <dx>]                                                     ;
  14.           [AL <al>]                                                     ;
  15.           [AH <ah>]                                                     ;
  16.           [BL <bl>]                                                     ;
  17.           [BH <bh>]                                                     ;
  18.           [CL <cl>]                                                     ;
  19.           [CH <ch>]                                                     ;
  20.           [DL <dl>]                                                     ;
  21.           [DH <dh>]                                                     ;
  22.       =>  pInt86(<int>, <ax>, <bx>, <cx>, <dx>, <ah>, <al>, <bh>, <bl>,;
  23.                  <ch>, <cl>, <dh>, <dl>)
  24.  
  25. #command COMPUTE  [INTO ] <tarray>                                      ;
  26.                   FROM <farray>                                         ;
  27.                   [FOR <for>]                                           ;
  28.                   [WHILE <while>]                                       ;
  29.                   [NEXT <next>]                                         ;
  30.                   [RECORD <rec>]                                        ;
  31.                   [<rest:REST>]                                         ;
  32.                   [ALL]                                                 ;
  33.             =>    <tarray> := {},                                       ;
  34.                   aEval(<farray>, {||aAdd(<tarray>, 0)})
  35.  
  36. #command USE                    => dbClearRel()                         ;
  37.                                  ; dbCloseArea()
  38.  
  39. #command CLOSE                  => USE
  40.  
  41. #command @ <row>, <col> GET <var>                                    ;
  42.             [PICTURE <pic>]                                          ;
  43.             [VALID <valid>]                                          ;
  44.             [WHEN <when>]                                            ;
  45.             [COLOR <color>]                                          ;
  46.             [MESSAGE <message>]                                      ;
  47.             [POPUP <pop>]                                            ;
  48.             [EXIT [WITH] <exitkey>]                                  ;
  49.             [<date: DATESET>]                                        ;
  50.             [IDLE <idleB>]                                           ;
  51.             [MEMO [AT] <memoTR>, <memoTC>, <memoBR>, <memoBC>]       ;
  52.                                                                      ;
  53.          => SetPos( <row>, <col> ); aAdd( GetList,                   ;
  54.             _GET_( <var>, <(var)>, <pic>, <{valid}>, <{when}> ) )    ;
  55.             ; aTail(GetList):reader := {|oGet| vGet(oGet)}           ;
  56.             [ ; aTail(GetList):colorDisp( <color> ) ]                ;
  57.             ; aTail(GetList):cargo := {}                             ;
  58.             [; aAdd(aTail(GetList):cargo, {"M", <"message"> } ) ]    ;
  59.             [; aAdd(aTail(GetList):cargo, {"E", <(exitkey)> } ) ]    ;
  60.             [; aAdd(aTail(GetList):cargo, {"I", <{idleB}> } ) ]      ;
  61.             [; aAdd(aTail(GetList):cargo, {"P", <{pop}> } ) ]        ;
  62.             [; aAdd(aTail(GetList):cargo, {"Z", { <memoTR>, <memoTC>, <memoBR>, <memoBC> } } ) ; aTail(GetList):picture := ""] ;
  63.             [; iif( <.date.>, aAdd(aTail(GetList):cargo, {"D"} ), ) ]
  64.  
  65. #command READ [IDLE <bExec> [TIME <nSecs>] ]                         ;
  66.       => iReadIdle( [ <{bExec}> ] [, <nSecs>] )                      ;
  67.        ; ReadModal(GetList)                                          ;
  68.        ; GetList := {}
  69.  
  70. #command DEFAULT <var1> TO <val1> [, <varN> TO <valN>]               ;
  71.                                                                      ;
  72.          => iif( <var1> = NIL, <var1> := <val1> ,)                   ;
  73.             [; iif( <varN> = NIL, <varN> := <valN> ,)]
  74.  
  75. #command ADDRECORD            => fAddRecord()
  76. #command ADDRECORD ALIAS <a>  => <a> -> ( fAddRecord() )
  77. #command LOCK                 => fLockRec()
  78. #command LOCK ALIAS <a>       => <a> -> ( fLockRec() )
  79.  
  80. /* #xtranslate INDICES => INDEXES */
  81.  
  82. #command INITIALIZE <var1> TO <val1> [, <varN> TO <valN>]            ;
  83.                                                                      ;
  84.          => iif( Type( <"var1"> ) = "U", <var1> := <val1> ,)         ;
  85.             ; [iif( Type( <"varN"> ) = "U", <varN> := <valN> ,)]
  86.  
  87. #command FORCETYPE <AnyType1> TO <SetType1> [, <AnyTypeN> TO <SetTypeN>]     ;
  88.             => pSetType({|uNewValue|iif(uNewValue=NIL,                       ;
  89.                         <AnyType1>, <AnyType1> := uNewValue)}, <"SetType1">) ;
  90.              [;pSetType({|uNewValue|iif(uNewValue=NIL,                       ;
  91.                         <AnyTypeN>, <AnyTypeN> := uNewValue)}, <"SetTypeN">)]
  92.  
  93. #command ENDFUNCTION    => RETURN NIL
  94. #command ENDPROCEDURE   => RETURN
  95.  
  96. #command SET SAVETIME TO <n>                 => pSetSaver( <n> )
  97. #command SET SAVETIME TO                     => pSetSaver( 0 )
  98. #command SET SAVEBLOCK TO <todo>             => pSetSaver( , <{todo}> )
  99. #command SET SAVEBLOCK TO                    => pSetSaver( , Default() )
  100.  
  101. #command BEGIN BLOCK    => WHILE LOOPING
  102. #command ENDBLOCK       => EXIT; ENDWHILE
  103. #command END BLOCK      => EXIT; ENDWHILE
  104.  
  105. #command BROWSE               => fBrowse()
  106. #command BROWSE ALIAS <a>     => <a> -> ( fBrowse() )
  107.  
  108. #command WRITE LINE TO <nFile> ;
  109.          => fWrite( <nFile> , CRLF ) 
  110.  
  111. #command WRITE [<line: LINE>] <cLine> TO <nFile> ;
  112.          => fWrite( <nFile> , <cLine> +iif( <.line.> , CRLF, "") )
  113.