home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c004 / 1.ddi / CTCLB2.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-18  |  3.3 KB  |  193 lines
  1. /*
  2.  *    c-tree Low Level Library Interface #2
  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) 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.  
  28. extern COUNT uerr_cod;
  29.  
  30. #ifdef CTDEBUG
  31.  
  32. #ifdef RTREE
  33. #define ALIMIT 1000
  34. #else
  35. #define ALIMIT 50
  36. #endif
  37.  
  38. LOCAL struct {
  39.     TEXT    *aadr;
  40.     UCOUNT     aamt;
  41.     } a[ALIMIT];
  42. LOCAL COUNT    acnt,anul;
  43. LOCAL LONG    atot,amax,alev;
  44. #endif
  45.  
  46. TEXT *mballc(numobj,sizobj)
  47. unsigned int numobj,sizobj;
  48. {
  49. #ifdef CT_ANSI
  50.     void *calloc();
  51. #else
  52.     TEXT *calloc();
  53. #endif
  54.  
  55.     if (sizobj == 0 || numobj == 0) {
  56.         numobj = 1;
  57.         sizobj = 1; /* to avoid false NULL return */
  58.     }
  59.  
  60. #ifdef CTDEBUG
  61.     if (acnt >= ALIMIT) {
  62.         printf("\nError ALIMIT. atot=%ld\n",atot);
  63.         exit(2);
  64.     }
  65.  
  66.     atot += a[acnt].aamt = numobj * sizobj;
  67.     alev += a[acnt].aamt;
  68.     if (alev > amax)
  69.         amax = alev;
  70. #ifdef CT_ANSI
  71.     return(a[acnt++].aadr = (TEXT *) calloc(numobj,sizobj));
  72. #else
  73.     return(a[acnt++].aadr = calloc(numobj,sizobj));
  74. #endif
  75. #else
  76. #ifdef CT_ANSI
  77.     return((TEXT *) calloc(numobj,sizobj));
  78. #else
  79.     return(calloc(numobj,sizobj));
  80. #endif
  81. #endif
  82. }
  83.  
  84. /* ------------------------------------------------------------ */
  85.  
  86. VOID mbfree(objptr)
  87. TEXT       *objptr;
  88. {
  89. #ifdef CTDEBUG
  90.     FAST COUNT i;
  91.  
  92.     if (objptr != NULL) {
  93.         free(objptr);
  94.         for (i = acnt - 1; i >= 0; i--)
  95.             if (objptr == a[i].aadr) {
  96.                 a[i].aadr = NULL;
  97.                 alev -= a[i].aamt;
  98.                 return;
  99.             }
  100.         printf("\nError free. atot=%ld acnt=%d objptr=%x\n",
  101.             atot,acnt,objptr);
  102.     } else
  103.         anul++;
  104. #else
  105.     if (objptr != NULL)
  106.         free(objptr);
  107. #endif
  108. }
  109.  
  110. #ifdef CTDEBUG
  111. VOID arep(mode)
  112. COUNT      mode;
  113. {
  114.     FAST COUNT i;
  115.  
  116.     printf("\nacnt = %d  anul = %d\n",acnt,anul);
  117.     printf("\natot = %ld amax=%ld alev=%ld",atot,amax,alev);
  118.     if (mode > 0) {
  119.         for (i = 0; i < acnt; i++)
  120.             if (a[i].aadr != NULL)
  121.                 printf("adr = %4x\tamt = %u\n",
  122.                     a[i].aadr,a[i].aamt);
  123.     }
  124. }
  125. #endif
  126.  
  127. /* --------------------------------------------------------------------
  128.    routine to copy tree buffer contents. it does not terminate on null
  129.    byte.
  130.  */
  131.  
  132. #ifndef cpybuf
  133. VOID cpybuf(dp,sp,n)
  134. PFAST TEXT *dp,*sp;
  135. PFAST UCOUNT n;
  136.  
  137. {
  138.     while (n-- != 0)
  139.         *dp++ = *sp++;
  140. }
  141. #endif
  142.  
  143. COUNT uerr(err_no)
  144.  
  145. COUNT err_no;
  146.  
  147. {
  148.     return(uerr_cod = err_no);
  149. }
  150.  
  151. VOID terr(err_no)
  152.  
  153. COUNT err_no;
  154.  
  155. {
  156.     printf("\nc-tree fatal error #%d.",err_no);
  157.     exit(0);
  158. }
  159.  
  160. #ifdef UNIFRMAT
  161.  
  162. VOID revbyt(tp,wrdcnt)
  163. PFAST TEXT *tp;
  164. PFAST COUNT    wrdcnt;
  165. {
  166.     TEXT ch;
  167.  
  168.     while (wrdcnt-- > 0) {
  169.         ch      = *tp++;
  170.         *(tp - 1) = *tp;
  171.         *tp++      = ch;
  172.     }
  173. }
  174.  
  175. #endif
  176.  
  177. VOID revobj(tp,len)
  178. PFAST TEXT *tp;
  179. COUNT           len;
  180. {
  181.     FAST TEXT *hp;
  182.     TEXT       ch;
  183.  
  184.     hp = tp + len - 1;
  185.     while (tp < hp) {
  186.         ch    = *tp;
  187.         *tp++ = *hp;
  188.         *hp-- = ch;
  189.     }
  190. }
  191.  
  192. /* end of ctclb2.c */
  193.