home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c160 / 1.ddi / EXAMPLES / D4EXAMPL.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-06-22  |  652 b   |  38 lines
  1.  
  2. /* d4example.c */
  3.  
  4. #include "d4base.h"
  5. #include "w4.h"
  6.  
  7. #ifdef TURBO
  8.    extern unsigned  _stklen =  10000 ;
  9. #endif
  10.  
  11. main( int argc, char **argv)
  12. {
  13.    int  j;  long  ref ;
  14.  
  15.    /* Initialize Code Base and clear the screen */
  16.    d4init() ;       
  17.    w4clear( -1 ) ;
  18.  
  19.    if ( argc < 2 )
  20.    {
  21.       w4(0,0, "USAGE:  D4EXAMPLE  DBF_FILE_NAME" ) ;
  22.       w4cursor(1,0) ;
  23.       w4exit(1) ;
  24.    }
  25.  
  26.    if ( d4use( argv[1] ) < 0 )  w4exit( 1 ) ;
  27.  
  28.    w4( 0,5, "Field Names:  " ) ;
  29.    for ( j=1; j<= f4num_fields(); j++ )
  30.    {
  31.       ref =  f4j_ref( j ) ;
  32.       w4( j,8, f4name( ref ) ) ;
  33.    }
  34.  
  35.    d4close_all() ;
  36.    w4exit( 0 ) ;
  37. }
  38.