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

cde/programs/dthelp/parser/pass1/eltdef/eltdef.c

@@ -0,0 +1,74 @@
+/* $XConsortium: eltdef.c /main/3 1995/11/08 10:04:23 rswiston $ */
+/*
+              Copyright 1986 Tandem Computers Incorporated.
+This product and information is proprietary of Tandem Computers Incorporated.
+                   Copyright (c) 1986, 1987, 1988, 1989 Hewlett-Packard Co.
+*/
+
+/* Eltdef.c contains the main program for ELTDEF */
+
+#include <stdio.h>
+#include <string.h>
+#include <malloc.h>
+#if defined(MSDOS)
+#include <process.h>
+#endif
+#include "basic.h"
+#include "trie.h"
+
+#define M_DTDDEF
+#include "dtd.h"
+
+#include "context.h"
+#include "delim.h"
+#define ELTDEF
+#include "eltdef.h"
+#define M_ENTDEF
+#include "entity.h"
+
+/* Main program */
+void main(argc, argv)
+  int argc ;
+  char **argv ;
+  {
+    int m_token ;
+
+    if (argc > 2)
+      if (*argv[2] == '-') {
+        if (strchr(argv[2], 'a')) m_malftrace = TRUE ;
+        if (strchr(argv[2], 'A')) m_malftrace = TRUE ;
+        if (strchr(argv[2], 'd')) debug = TRUE ;
+        if (strchr(argv[2], 'D')) debug = TRUE ;
+        if (strchr(argv[2], 'h')) m_heapchk = TRUE ;
+        if (strchr(argv[2], 'H')) m_heapchk = TRUE ;
+        if (strchr(argv[2], 's')) scantrace = TRUE ;
+        if (strchr(argv[2], 'S')) scantrace = TRUE ;
+        }
+      else
+        fprintf(stderr,
+     "****Starting with MARKUP 2.0, ELTDEF no longer writes a statistics file"
+         ) ;
+    if (argc < 2) {
+      fprintf(stderr, "**** Specify interface file ****\n") ;
+      exit(TRUE) ;
+      }
+    strncpy(iffile, argv[1], IFLEN) ;
+    initialize() ;
+    while (TRUE) {
+      m_token = scan() ;
+      if (m_token == ELT) restart = RELEMENT ;
+      m_prevcon = curcon ;
+      curcon = m_newcon(m_prevcon - 1, m_token - 1) ;
+      if (scantrace)
+        printf(
+       "Main: m_prevcon=%d,m_token=%d,curcon=%d,textchar='%c'(%d), line=%d\n",
+        m_prevcon, m_token, curcon, textchar, textchar, m_line) ;
+#include "case.c"
+      if (m_token == ENDFILE) break ;
+      if (! curcon) {
+        m_error("Parsing table error") ;
+        break ;
+        }
+      }
+    done() ;
+    }