Click above to get retro games delivered to your door ever month!

/* +----------------------------------------------------------------------+
   |                                                                      |
   |           (C) 1989 - 1998 by ISA Italian Software Agency             |
   |                                                                      |
   |                          STANDARD functions                          |
   |                                                                      |
   +----------------------------------------------------------------------+ */

#ifndef _DFSTD_CH
   #define _DFSTD_CH
   #stdout dBsee 4.6 The STANDARD CASE for CA-CLIPPER by ISA Italian Software Agency

   #define WEND  END

   #define DFISSELECT( cFile )   SELECT(cFile)#0

   #define DFISDEL()             ( DBSKIP(0), EOF().OR.DELETED() )

   #define DFCOMPILE( cString )  &("{||" +cString +"}")

   #define DFDISPBEGIN()         M_CurOff();DISPBEGIN()
   #define DFDISPEND()           DISPEND();M_CurOn()

   #define DFAERASE(aSrc,nInd)   ADEL( aSrc, nInd );ASIZE( aSrc, LEN( aSrc )-1 )

   #define CRLF                  CHR(13)+CHR(10)
   #define NEWPAGE               CHR(12)

   #define USE_FLOAT             "0"
   #define USE_EXCLUSIVE         "1"
   #define USE_SHARED            "2"

   #define NTX_DBDD              1
   #define NTX_DBTABD            2
   #define NTX_DBHLP             4

   // VGA Modes

   #define VGA_80x25x16        3
   #define VGA_640x350x16     16
   #define VGA_640x480x16     18
   #define VGA_320x200x256    19

   #command ???  [ <list,...> ] => FWRITE( 1, CRLF ) ; FWRITE( 1, <list> )
   #command ???? [ <list,...> ] => FWRITE( 1, <list> )

   #xcommand UPPERCASE <v1> [, <vn> ]   ;
             =>                         ;
             <v1> := UPPER( <v1> )      ;
             [; <vn> := UPPER( <vn> ) ]

   #xcommand LOWERCASE <v1> [, <vn> ]   ;
             =>                         ;
             <v1> := LOWER( <v1> )      ;
             [; <vn> := LOWER( <vn> ) ]

   #xcommand INCREASE <v1> WITH <n1> [ RANGE <r1> TO <r2> ]  ;
             =>                                              ;
             <v1> := <v1> + <n1>                             ;
             [; IF <v1> > <r2> ; <v1> := <r1> ; END ]

   #xcommand DECREASE <v1> WITH <n1> [ RANGE <r1> TO <r2> ]  ;
             =>                                              ;
             <v1> := <v1> - <n1>                             ;
             [; IF <r1> > <v1> ; <v1> := <r2> ; END ]

   #xcommand IF EMPTY <v1> ASSIGN <x1> [, <vn> ASSIGN <xn> ] ;
             =>                                      ;
             IF EMPTY(<v1>); <v1> := <x1> ; END      ;
             [; IF EMPTY(<vn>); <vn> := <xn> ; END ]

   #xcommand IF EMPTY <v1> DELETE [, <vn> DELETE ] ;
             =>                                    ;
             IF EMPTY(<v1>); <v1> := NIL ; END     ;
             [; IF EMPTY(<vn>); <vn> := NIL  ; END ]

   #xcommand IF DIFFERENT <v1> AND <x1> REPLACE    ;
             =>                                    ;
             IF !( (<v1>)==(<x1>) ); <v1> := <x1> ; END

   // MEMVAR Definition

   #command LOCAL <xIdentifier,...> AS STRING       => ;
           LOCAL <xIdentifier>

   #command LOCAL <xIdentifier,...> AS CHAR         => ;
           LOCAL <xIdentifier>

   #command LOCAL <xIdentifier,...> AS MEMO         => ;
           LOCAL <xIdentifier>

   #command LOCAL <xIdentifier,...> AS INT          => ;
           LOCAL <xIdentifier>

   #command LOCAL <xIdentifier,...> AS LONG DOUBLE  => ;
           LOCAL <xIdentifier>

   #command LOCAL <xIdentifier,...> AS LONG         => ;
           LOCAL <xIdentifier>

   #command LOCAL <xIdentifier,...> AS WORD         => ;
           LOCAL <xIdentifier>

   #command LOCAL <xIdentifier,...> AS OBJECT       => ;
           LOCAL <xIdentifier>

   #command LOCAL <xIdentifier,...> AS LOGICAL      => ;
           LOCAL <xIdentifier>

   #command LOCAL <xIdentifier,...> AS ARRAY        => ;
           LOCAL <xIdentifier>

   #command LOCAL <xIdentifier,...> AS BLOCK        => ;
           LOCAL <xIdentifier>

   #command LOCAL <xIdentifier,...> AS DATE         => ;
           LOCAL <xIdentifier>

   #command LOCAL <xIdentifier,...> AS CODEBLOCK    => ;
           LOCAL <xIdentifier>


#endif