home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c004 / 2.ddi / CTESTM.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-18  |  1.9 KB  |  85 lines
  1. /*
  2.  *    low level estimate key distance routine
  3.  *
  4.  *    This program is the CONFIDENTIAL and PROPRIETARY property 
  5.  *    of FairCom(R) Corporation. Any unauthorized use, reproduction or
  6.  *    transfer of this program is strictly prohibited.
  7.  *
  8.  *      Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989 FairCom Corporation
  9.  *    (Subject to limited distribution and
  10.  *     restricted disclosure only.)
  11.  *    *** ALL RIGHTS RESERVED ***
  12.  *
  13.  *    4006 West Broadway
  14.  *    Columbia, MO 65203
  15.  *
  16.  *
  17.  *    c-tree(R)    Version 4.3
  18.  *            Release C 
  19.  *            February 7, 1989 17:30
  20.  *
  21.  */
  22.  
  23. #include "ctstdr.h"        /* standard i/o header         */
  24. #include "ctoptn.h"        /* c-tree configuration options */
  25. #include "cterrc.h"        /* c-tree error codes        */
  26. #include "ctstrc.h"        /* c-tree data structures    */
  27. #include "ctgvar.h"        /* c-tree global variables    */
  28.  
  29. static COUNT binsrc(keyno,i,flag,idxval)
  30. COUNT            keyno,i,flag;
  31. TEXT                *idxval;
  32. {
  33.     TEXT    frcval[MAXLEN];
  34.  
  35.     POINTER FRCKEY();
  36.     COUNT    compar();
  37.  
  38.     while (i > 2) {
  39.         i /= 2;
  40.         if (FRCKEY(keyno,frcval,flag) == DRNZERO)
  41.             return(DRNZERO);
  42.         if (compar(idxval,frcval,ct_key + keyno) <= 0)
  43.             flag -= i;    
  44.         else
  45.             flag += i;
  46.     }
  47.     return(flag);
  48. }
  49.  
  50.  
  51. /*
  52. ESTKEY returns the estimated number of entries between the key values
  53. pointed to by target1 and target2.
  54. */
  55.  
  56. POINTER ESTKEY(keyno,target1, target2)
  57. COUNT           keyno;
  58. TEXT            *target1,*target2;
  59. {
  60.     LONG    totval;
  61.     COUNT    flag1,flag2;
  62.     COUNT    i;
  63.  
  64.     COUNT   binsrc(),compar();
  65.     LONG    IDXENT();
  66.  
  67.     if ((totval = IDXENT(keyno)) == 0L)
  68.         return(DRNZERO);
  69.  
  70.     flag1 = binsrc(keyno,50,50,target1);
  71.     if (compar(target1,target2,ct_key + keyno) <= 0) {
  72.         i    = (100 - flag1) / 2;
  73.         flag2    = flag1 + i;
  74.     } else {
  75.         i    = flag1 / 2;
  76.         flag2    = flag1 - i;
  77.     }
  78.     flag2 = binsrc(keyno,i,flag2,target2);
  79.  
  80.     if ((flag2 -= flag1) < 0) flag2 = - flag2;
  81.     return ((flag2 * totval + totval / 2) / 100);
  82. }
  83.  
  84. /* end of ctestm.c */
  85.