summaryrefslogtreecommitdiff
path: root/support/ltx2x/l2xixref.c
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /support/ltx2x/l2xixref.c
Initial commit
Diffstat (limited to 'support/ltx2x/l2xixref.c')
-rw-r--r--support/ltx2x/l2xixref.c204
1 files changed, 204 insertions, 0 deletions
diff --git a/support/ltx2x/l2xixref.c b/support/ltx2x/l2xixref.c
new file mode 100644
index 0000000000..e787a630b7
--- /dev/null
+++ b/support/ltx2x/l2xixref.c
@@ -0,0 +1,204 @@
+/* l2xixref.c Interpeter X-referencing */
+/* BASED ON: xref.c (unaltered except for common names) */
+
+#include <stdio.h>
+#include "l2xicmon.h"
+#include "l2xiscan.h"
+#include "l2xisymt.h"
+
+#define DEBUG 0
+
+#define MAX_LINENUMS_PER_LINE 10
+
+/* line number item and list header */
+typedef struct linenum_item {
+ struct linenum_item *next;
+ int line_number;
+} LINENUM_ITEM, *LINENUM_ITEM_PTR;
+
+typedef struct {
+ LINENUM_ITEM_PTR first_linenum;
+ LINENUM_ITEM_PTR last_linenum;
+} LINENUM_HEADER, *LINENUM_HEADER_PTR;
+
+/* EXTERNALS */
+
+extern int line_number;
+extern TOKEN_CODE token;
+extern char word_string[];
+extern SYMTAB_NODE_PTR symtab_root;
+
+
+/***************************************************************************/
+/* main(argc, argv() loop to process identifiers, then print xref */
+/* call as: xref infile */
+
+main(argc, argv)
+int argc;
+char *argv[];
+{
+ SYMTAB_NODE_PTR np; /* ptr to symtab entry */
+ LINENUM_HEADER_PTR hp; /* ptr to line item list header */
+
+ if (DEBUG) {
+ fprintf(stderr, "\n ****Starting program xref\nCalling init_scanner\n");
+ fflush(stderr);
+ }
+
+ init_scanner(argv[1]);
+
+ if (DEBUG) {
+ fprintf(stderr, "Returned from init_scanner\nProcessing tokens\n");
+ fflush(stderr);
+ }
+
+ /* process tokens until end of file */
+ do {
+ get_token();
+ if (token == END_OF_FILE) break;
+ if (token == IDENTIFIER) {
+ /* put identifier into symtab if not there, and record the */
+ /* line number in the symtab entry */
+ np = search_symtab(word_string, symtab_root);
+ if (np == NULL) {
+ np = enter_symtab(word_string, &symtab_root);
+ hp = alloc_struct(LINENUM_HEADER);
+ hp->first_linenum = hp->last_linenum = NULL;
+ np->info = (char *) hp;
+ }
+ record_line_number(np, line_number);
+ }
+ } while (token != PERIOD); /* end do */
+
+ if (DEBUG) {
+ fprintf(stderr, "Finished token processing\nCalling print_xref\n\n");
+ fflush(stderr);
+ }
+
+ /* print the xref listing */
+ printf("\n\nCross-Reference");
+ printf( "\n---------------\n");
+ print_xref(symtab_root);
+
+ if (DEBUG) {
+ fprintf(stderr, "\n\nReturned from print_xref\nCalling quit_scanner\n");
+ fflush(stderr);
+ }
+
+ quit_scanner();
+
+ if (DEBUG) {
+ fprintf(stderr, "Returned from quit_scanner\n***That's all\n\n");
+ fflush(stderr);
+ }
+
+} /* end main */
+/***************************************************************************/
+
+
+
+/***************************************************************************/
+/* record_line_number(np, number) Record a line number into the */
+/* symtab entry */
+
+record_line_number(np, number)
+SYMTAB_NODE_PTR np; /* ptr to symtab entry */
+int number; /* line number */
+{
+ LINENUM_ITEM_PTR ip; /* ptr to line item */
+ LINENUM_HEADER_PTR hp; /* ptr to line item list header */
+
+ /* create a new line number item */
+ ip = alloc_struct(LINENUM_ITEM);
+ ip->line_number = number;
+ ip->next = NULL;
+
+ /* link it to the list */
+ hp = (LINENUM_HEADER_PTR) np->info;
+ if (hp->first_linenum == NULL) hp->first_linenum = hp->last_linenum = ip;
+ else {
+ (hp->last_linenum)->next = ip;
+ hp->last_linenum = ip;
+ }
+
+} /* end record_line_number */
+/***************************************************************************/
+
+
+
+/***************************************************************************/
+/* print_xref(np) Print x-refed names and line numbers in alpha order */
+
+print_xref(np)
+SYMTAB_NODE_PTR np; /* pointer to subtree */
+{
+ int n;
+ LINENUM_ITEM_PTR ip; /* ptr to line item */
+ LINENUM_HEADER_PTR hp; /* ptr to line item list header */
+
+ if (np == NULL) return;
+
+ /* print the left subtree */
+ print_xref(np->left);
+
+ /* then print the root of the subtree with at most MAX_LINENUMS_PER_LINE */
+ printf("\n%-16s ", np->name);
+ n = strlen(np->name) > 16 ? 0 : MAX_LINENUMS_PER_LINE;
+ hp = (LINENUM_HEADER_PTR) np->info;
+ for (ip = hp->first_linenum; ip != NULL; ip = ip->next) {
+ if (n == 0) {
+ printf("\n%-16s ", " ");
+ n = MAX_LINENUMS_PER_LINE;
+ }
+ printf(" %4d", ip->line_number);
+ --n;
+ }
+ printf("\n");
+
+ /* now print the right subtree */
+ print_xref(np->right);
+
+} /* end print_xref */
+/***************************************************************************/
+
+
+
+/***************************************************************************/
+/* () */
+/*
+
+()
+{
+
+
+} /* end */
+/***************************************************************************/
+
+
+
+/***************************************************************************/
+/* () */
+/*
+
+()
+{
+
+
+} /* end */
+/***************************************************************************/
+
+
+
+/***************************************************************************/
+/* () */
+/*
+
+()
+{
+
+
+} /* end */
+/***************************************************************************/
+
+
+