home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c160 / 1.ddi / SOURCE / I4FILTER.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-06-22  |  689 b   |  35 lines
  1.  
  2. /*  i4filter.c   (c)Copyright Sequiter Software Inc., 1987-1990.  All rights reserved. */
  3.  
  4. #include "d4all.h"
  5.  
  6. extern INDEX  *v4index ;
  7.  
  8. void  i4filter( I4FILTER *filter_routine )
  9. {
  10.    int  index_ref ;
  11.  
  12.    index_ref =  i4seek_ref() ;
  13.    if ( index_ref < 0 )  return ;
  14.  
  15.    v4index[index_ref].filter =  filter_routine ;
  16.  
  17.    return ;
  18. }
  19.  
  20. int  i4filter_check( int index_ref )
  21. {
  22.    if ( v4index[index_ref].filter == (I4FILTER *) 0 ) 
  23.       return 0 ;
  24.    else
  25.    {
  26.       #ifdef KR
  27.          I4FILTER *ptr ;
  28.          ptr =  v4index[index_ref].filter ;
  29.          return( (*ptr)() ) ;
  30.       #else
  31.          return( v4index[index_ref].filter() ) ;
  32.       #endif
  33.    }
  34. }
  35.