date and time created 85/07/08 14:14:54 by jerry

SCCS-vsn: usr.bin/f77/libF77/mkindx.c 1.1

diff --git a/usr/src/usr.bin/f77/libF77/mkindx.c b/usr/src/usr.bin/f77/libF77/mkindx.c
new file mode 100644 (file)
index 0000000..f8fa70a
--- /dev/null
+++ b/usr/src/usr.bin/f77/libF77/mkindx.c
@@ -0,0 +1,58 @@
+/*
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ */
+
+/*
+ *  mkindx.c - utility to format a nice index to source files, etc.
+ *
+ *  usage:  mkindx "title string" [file_name] [filename] .....
+ */
+
+# include      <stdio.h>
+
+char id_mkindx[] = "@(#)mkindx.c       1.1 %G%";
+
+char list[10000] = "pwd >>index; echo \" \" >>index; ls -l ";
+char *apndx = ">>index";
+char *cp = list;
+extern char *ctime();
+FILE *fopen(), *index;
+
+main (argc, argv)
+char **argv;
+{
+       short i;
+       long time(), t;
+
+       if (index = fopen ("index", "w"))
+       {
+               fprintf (index, "\n\n\n\n\n\n\n\n\n");
+               center (argv[1]);   /* center title on page */
+               t = time(0);
+               center (ctime(&t));   /* center date & time */
+               fprintf (index, "\n");
+               fclose (index);
+               while (*cp) cp++;   /* find end of shell command */
+               for (i = 2; i < argc; i++)
+               {
+                       while (*argv[i]) *cp++ = *(argv[i]++);
+                       *cp++ = ' ';
+               }
+               while (*apndx) *cp++ = *apndx++;
+               *cp = '\0';
+               system (list);
+       }
+       else fprintf (stderr, "mkindx: can't open index\n");
+}
+
+center (string)
+char *string;
+{
+       short pad;
+
+       pad = (72 - strlen(string)) >> 1;
+       while (pad-- > 0) fputc(' ', index);
+       fprintf (index, "%s\n", string);
+}