home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / 128c.arc / WFREQ.C < prev   
Text File  |  1993-03-04  |  2KB  |  100 lines
  1. #INCLUDE <STDIO.H>
  2.  
  3. #DEFINE  ═┴╪╫╧╥─  20
  4. #DEFINE  ╠┼╘╘┼╥  'A'
  5.  
  6.  
  7. STRUCT TNODE █
  8.           CHAR *WORD;
  9.           INT COUNT;
  10.           STRUCT TNODE *LEFT;
  11.           STRUCT TNODE *RIGHT;
  12.        ▌;
  13.  
  14.  
  15. MAIN()
  16. █
  17.    STRUCT TNODE *ROOT, *TREE();
  18.    STATIC CHAR WORD[═┴╪╫╧╥─];
  19.    INT T;
  20.  
  21.    ROOT = ╬╒╠╠;
  22.    WHILE ((T=GETWORD(WORD, ═┴╪╫╧╥─)) != ┼╧╞)
  23.       IF (T == ╠┼╘╘┼╥)
  24.          ROOT = TREE(ROOT, WORD);
  25.    TREEPRINT(ROOT);
  26. ▌
  27.  
  28.  
  29. STRUCT TNODE *TREE(P, W)
  30. STRUCT TNODE *P;
  31. CHAR *W;
  32. █
  33.    CHAR *STRSAVE(), *MALLOC();
  34.    INT  COND;
  35.  
  36.    IF (P == ╬╒╠╠) █
  37.       P = (STRUCT TNODE *)
  38.           MALLOC (SIZEOF (STRUCT TNODE));
  39.       IF (P == ╬╒╠╠)
  40.          FULL();
  41.       P->WORD = STRSAVE(W);
  42.       P->COUNT = 1;
  43.       P->LEFT = ╬╒╠╠;
  44.       P->RIGHT = ╬╒╠╠;
  45.    ▌ ELSE IF ((COND=STRCMP(W, P->WORD)) == 0)
  46.       P->COUNT++;
  47.    ELSE IF (COND < 0)
  48.       P->LEFT = TREE(P->LEFT, W);
  49.    ELSE
  50.       P->RIGHT = TREE(P->RIGHT, W);
  51.    RETURN(P);
  52. ▌
  53.  
  54.  
  55. TREEPRINT (P)
  56. STRUCT TNODE *P;
  57. █
  58.    IF (P != ╬╒╠╠) █
  59.       TREEPRINT(P->LEFT);
  60.       PRINTF ("%4D %S\N", P->COUNT, P->WORD);
  61.       TREEPRINT(P->RIGHT);
  62.    ▌
  63. ▌
  64.  
  65.  
  66. GETWORD(W, LIM)
  67. CHAR *W;
  68. █
  69.    INT C;
  70.  
  71.    IF (!ISALPHA((C=GETCHAR(), *W++=C))) █
  72.       *W = '\0';
  73.       RETURN (C);
  74.    ▌ 
  75.    WHILE (--LIM)
  76.       IF (!ISALNUM(*W++=GETCHAR()))
  77.          BREAK;
  78.    *(W-1) = '\0';
  79.    RETURN (╠┼╘╘┼╥);
  80. ▌
  81.  
  82.  
  83. CHAR *STRSAVE(S)
  84. CHAR *S;
  85. █
  86.    CHAR *P, *MALLOC();
  87.  
  88.    IF ((P=MALLOC(STRLEN(S)+1)) == ╬╒╠╠)
  89.       FULL();
  90.    STRCPY (P, S);
  91.    RETURN(P);
  92. ▌
  93.  
  94.  
  95. FULL()
  96. █
  97.    PRINTF ("INPUT TOO BIG\N");
  98.    EXIT();
  99. ▌
  100.