home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / borland / jnfb88.arc / READRX.ARC / INPTRRXD.I < prev    next >
Text File  |  1987-06-22  |  1KB  |  31 lines
  1. /* inptrrxd.i: initializes pointers to Reflex data base control
  2.    info entry points.
  3.      Assumes reflex.h has been #included and globals 'base' and
  4.    'head' have been initialized for stack operation. 
  5.      This file is #included inline after loading the control
  6.    info onto the heap and before the application tries to use
  7.    the control info to do anything */
  8.  
  9.                      /* ---- initialize pointers to fixed sections */
  10.   descr = (DFDESC*)(base + 66);             /* section descriptors */
  11.   sort = (SORTSPEC*)(base + head->hdrSz);            /* sort specs */
  12.                       /* ---- initialize ptrs to variable sections */
  13.                                                 /* field name pool */
  14.   work = (int*)((unsigned)(sort) + 11);
  15.   temp = (unsigned)(work) + *work + 4;
  16.   pool = (char*) temp;
  17.                                          /* field descriptor table */
  18.   temp = (unsigned)(pool) - 2;
  19.   work = (int*)(temp);
  20.   temp += (unsigned)(*work + 4);
  21.   dtable = (FLDDESC*) temp;
  22.                                      /* calculate number of fields */
  23.   work = (int*)(unsigned)(dtable) - 1;
  24.   nflds = *work / sizeof (FLDDESC);
  25.               /* enumerated text pool (point to first index length */
  26.   temp += (unsigned) *work + 8;
  27.   etpool = (int*) temp;
  28.                                                   /* master record */
  29.   mast = (MASTREC*)(unsigned)((descr+1)->dfAddr + base - 1);
  30.  
  31.