home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CODE4-4.ZIP / HDR_EXMP.ZIP / EXAMPLES.ZIP / X4MULTI.C < prev   
Encoding:
C/C++ Source or Header  |  1989-05-01  |  2.6 KB  |  129 lines
  1. /* (c)Copyright Sequiter Software Inc., 1987, 1988, 1989.  All rights reserved. */
  2.  
  3. /* List Using Multi-User Capabilities */
  4.  
  5. #include "d4base.h"
  6. #include "w4.h"
  7.  
  8.  
  9. static  int  x4multi_list(void) ;
  10.  
  11. main(argc, argv)
  12. int   argc ;
  13. char *argv[] ;
  14. {
  15.    int i ;
  16.  
  17.    d4init() ;
  18.    w4clear(-1) ;
  19.  
  20.    w4(0,0, "Database Multi-User File Listing Program" ) ;
  21.    w4(1,0, "Linked with the Clipper NTX indexing option" ) ;
  22.    w4(2,0, "(C) Sequiter Software Inc, 1988, 1989" ) ;
  23.    w4position( 4,0) ;
  24.  
  25.    if ( argc < 2 )
  26.    {
  27.       w4(4,0, "USAGE:  X3MULTI  DBF_FILE_NAME  [NTX_FILE_NAME]" ) ;
  28.       w4cursor(5,0) ;
  29.       exit(1) ;
  30.    }
  31.  
  32.    if ( d4use( argv[1] ) < 0 )  exit(1) ;
  33.  
  34.    if ( argc > 2 )
  35.       i4open( argv[2] ) ;
  36.  
  37.    #ifdef TEST
  38.       w4handle(1) ;
  39.       while ( ! x4multi_list() )  ;
  40.    #else
  41.       x4multi_list() ;
  42.    #endif
  43.  
  44.    w4exit(0) ;
  45. }
  46.  
  47.  
  48. static int  x4multi_list()
  49. {
  50.    int   rc, j, hand, len, row ;
  51.    long  field_ref ;
  52.  
  53.    if ( (rc =  d4top()) < 0)  return -1 ;
  54.    d4unlock(-1L) ;
  55.  
  56.    hand =  w4handle( -2 ) ;
  57.  
  58.    while ( rc == 0 )
  59.    {
  60.       if ( (rc = x4filter_do()) < 0 )  return -1 ;
  61.       if ( rc )
  62.       {
  63.          if ( (rc = d4skip(1L)) < 0 )  return -1 ;
  64.          d4unlock(-1L) ;
  65.  
  66.      #ifndef UNIX
  67.      if ( kbhit() )
  68.         if ( g4char() == 27)  return 1 ;
  69.      #endif
  70.          continue ;
  71.       }
  72.  
  73.       row =  w4row()+1 ;
  74.       if ( w4col() == 0 )  row-- ;
  75.  
  76.       if ( hand < 0 )
  77.       {
  78.          if ( row >= w4height(-1) -1 )
  79.          {
  80.             w4( w4height(-1) -1,0, "Press any key to continue ... " ) ;
  81.             w4cursor( w4row(), w4col() ) ;
  82.             if ( g4char() == 27 )  return 1 ;
  83.  
  84.             row =  0 ;
  85.             w4clear(0) ;
  86.          }
  87.          else
  88.             w4position( row, 0 ) ;
  89.       }
  90.       else
  91.          w4position( row, 0 ) ;
  92.  
  93.       for ( j=1; j <= f4num_fields(); j++ )
  94.       {
  95.          field_ref =  f4j_ref(j) ;
  96.          if ( f4type(field_ref) == 'M' )  continue ;
  97.  
  98.          len =  f4width( field_ref ) ;
  99.          if ( w4col()+len+2 > w4width(-1) )
  100.          {
  101.             len =  w4width(-1) - w4col() ;
  102.             if ( len > f4width(field_ref) )  len =  f4width(field_ref) ;
  103.  
  104.             w4num( row,w4col(), f4ptr(field_ref), len ) ;
  105.             break ;
  106.          }
  107.  
  108.          w4num( row,w4col(), f4ptr(field_ref), len ) ;
  109.          w4position( row, w4col()+2 ) ;
  110.       }
  111.  
  112.       if ( (rc = d4skip(1L)) < 0 )  return -1 ;
  113.       d4unlock(-1L) ;
  114.  
  115.       #ifndef UNIX
  116.       if ( kbhit() )
  117.      if ( g4char() == 27 )  return 1 ;
  118.       #endif
  119.    }
  120.  
  121.    d4unlock(-1L) ;
  122.  
  123.    if ( hand <= 0 )
  124.       w4cursor( w4height(-1) -2, 0 ) ;
  125.  
  126.    return 0 ;
  127. }
  128.  
  129.