Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/dthelp/parser/canon1/util/triecnt.c

@@ -0,0 +1,92 @@
+/* $XConsortium: triecnt.c /main/3 1995/11/08 09:55:40 rswiston $ */
+/*
+                   Copyright 1986, 1987, 1988, 1989 Hewlett-Packard Co.
+*/
+
+/* Triecnt.c contains procedures for writing out a trie structure */
+
+#include <stdio.h>
+#include "basic.h"
+#include "trie.h"
+
+void countdown(
+#if defined(M_PROTO)
+  M_TRIE *parent, int *count
+#endif
+  ) ;
+
+void dumpnode(
+#if defined(M_PROTO)
+  LOGICAL *first, FILE *file, M_TRIE *trieptr, int *count,
+    void (*proc)(FILE *file, void *value)
+#endif
+  ) ;
+
+void printval(
+#if defined(M_PROTO)
+  FILE *file, void *value
+#endif
+  ) ;
+
+/* Count the descendants of a node in order to generate declarations for
+   the packed form of a trie*/
+void countdown(parent, count)
+  M_TRIE *parent ;
+  int *count ;
+  {
+    M_TRIE *child ;
+
+    for (child = parent->data ; child ; child = child->next) {
+      (*count)++ ;
+      if (child->symbol) countdown(child, count) ;
+      }
+    }
+
+/* Output descendants of a node for the declaration of a trie, in packed
+   or normal format*/
+void dumpnode(first, file, trieptr, count, proc)
+  LOGICAL *first ;
+  FILE *file ;
+  M_TRIE *trieptr ;
+  int *count ;
+  void (*proc) (
+#if defined (M_PROTO)
+    FILE *file, 
+    void *value
+#endif
+    ) ;
+  {
+    M_TRIE *p ;
+    int savecount ;
+
+    for (p = trieptr->data ; p ; p = p->next) (*count)++ ;
+    savecount = *count ;
+
+    for (p = trieptr->data ; p ; p = p->next) {
+      /* generate a child */
+      if (*first) *first = FALSE ;
+      else fprintf(file, ",\n") ;
+      fprintf(file, "  ") ;
+      if (p->next) fprintf(file, "TRUE, ") ;
+      else fprintf(file, "FALSE, ") ;
+      fprintf(file, "%d", p->symbol) ;
+      if (p->symbol) fprintf(file, ", %d", *count) ;
+      else (*proc)(file, p->data) ;
+
+      /* count the children of the child*/
+      if (p->symbol) countdown(p, count) ;
+      }
+
+    *count = savecount ;
+    for (p = trieptr->data ; p ; p = p->next)
+      if (p->symbol) dumpnode(first, file, p, count, proc) ;
+    }
+
+
+/* Most common procedure passed to dumpptrie */
+void printval(file, value)
+  FILE *file ;
+  void *value ;
+  {
+    fprintf(file, ", %d", (int) value) ;
+    }