From 7e0f021a9aec35fd8e6725e87e3313b101d26f5e Mon Sep 17 00:00:00 2001
From: Tobias Klauser <tklauser@distanz.ch>
Date: Sun, 27 Jan 2008 11:37:44 +0100
Subject: Initial import (2.0.2-6)

---
 reference/C/CONTRIB/OR_PRACTICAL_C/tlint.c | 123 +++++++++++++++++++++++++++++
 1 file changed, 123 insertions(+)
 create mode 100644 reference/C/CONTRIB/OR_PRACTICAL_C/tlint.c

(limited to 'reference/C/CONTRIB/OR_PRACTICAL_C/tlint.c')

diff --git a/reference/C/CONTRIB/OR_PRACTICAL_C/tlint.c b/reference/C/CONTRIB/OR_PRACTICAL_C/tlint.c
new file mode 100644
index 0000000..d38d18b
--- /dev/null
+++ b/reference/C/CONTRIB/OR_PRACTICAL_C/tlint.c
@@ -0,0 +1,123 @@
+/********************************************************
+ * tlint -- check troff files for problems              *
+ *                                                      *
+ * Usage:                                               *
+ *      tlint [options] [files]                         *
+ *                                                      *
+ * Options                                              *
+ *      -m<file>        Add the data from <file>        *
+ *                      to the tables used for syntax   *
+ *                      checking.                       *
+ *      -f<file>        Add font data from <file>       *
+ *                      to list of legal fonts.         *
+ *                                                      *
+ *      [files] is a list of files to check.            *
+ *              (none=check standard in.)               *
+ *                                                      *
+ ********************************************************/
+#include <stdio.h>
+#include "gen.h"
+#include "macro.h"
+#include "font.h"
+#include <stdlib.h>
+
+#define MAX_LINE 100            /* longest line we can expect */
+
+#define MACRO_START_1   '.'     /* Macros can begin with a dot */
+#define MACRO_START_2   '\''    /* or an apostrophe */
+
+main(int argc, char *argv[])
+{
+    void usage(void);   /* Tell the user what to do */
+    void do_file(char *, FILE *); /* Process a file */
+
+    load_macros("standard.mac");
+    load_fonts("standard.fonts");
+
+    while ((argc > 1) && (argv[1][0] == '-')) {
+        switch (argv[1][1]) {
+            case 'm':
+                load_macros(&argv[1][2]);
+                break;
+            case 'f':
+                load_fonts(&argv[1][2]);
+                break;
+            default:
+                usage();
+        }
+        argc--;
+        argv++;
+    }
+    if (argc == 1) {
+        do_file("standard-in", stdin);
+    } else {
+        while (argc > 1) {
+            FILE *in_file;   /* File for reading data */
+
+            in_file = fopen(argv[1], "r");
+            if (in_file == NULL) {
+                (void)fprintf(stderr,"Unable to open %s\n", argv[1]);
+            } else {
+                do_file(argv[1], in_file);
+                (void)fclose(in_file);
+            }
+            argc--;
+            argv++;
+        }
+    }
+    return (0);
+}
+/********************************************************
+ * usage -- tell the user what to do                    *
+ ********************************************************/
+static void usage(void)
+{
+    (void)printf("Usage is:\n");
+    (void)printf("   tlint [options] [file1] [file2] ...\n");
+    (void)printf("Options:\n");
+    (void)printf("      -m<file> -- add <file> to list\n");
+    (void)printf("                  of macro files\n");
+    (void)printf("      -f<file> -- specify additional font file\n");
+    exit (8);
+}
+static char *file_name; /* Name of the file we are processing */
+static int line_number; /* Current line number */
+static char line[MAX_LINE];     /* A line from the input file */
+static int line_out;    /* True if a line has been output */
+/********************************************************
+ * do_file -- process a single file                     *
+ *                                                      *
+ * Parameters                                           *
+ *      name -- name of the file to use                 *
+ *      in_file -- file to check                        *
+ ********************************************************/
+static void do_file(char *name, FILE *in_file)
+{
+
+    file_name = name;
+    line_number = 0;
+    while (1) {
+        if (fgets(line, sizeof(line), in_file) == NULL)
+            break;
+        line_out = 0;   /* We have not written the line */
+        line_number++;
+        
+        if ((line[0] == MACRO_START_1) || (line[0] == MACRO_START_2))
+            macro_check(line);
+    }
+}
+/********************************************************
+ * error -- tell the user that there is an error        *
+ *                                                      *
+ * Parameters                                           *
+ *      message -- error message                        *
+ ********************************************************/
+void error(char *message)
+{
+    if (line_out == 0) {
+        (void)fprintf(stderr,"%s", line);
+        line_out = 1;
+    }
+    (void)fprintf(stderr,"Error %s in file %s Line %d\n", 
+        message, file_name, line_number);
+}
-- 
cgit v1.2.3-54-g00ecf