Return to mkindx.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.lib / libU77

Annotation of 43BSDTahoe/usr.lib/libU77/mkindx.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copyright (c) 1980 Regents of the University of California.
                      3:  * All rights reserved.  The Berkeley software License Agreement
                      4:  * specifies the terms and conditions for redistribution.
                      5:  */
                      6: 
                      7: /*
                      8:  *  mkindx.c - utility to format a nice index to source files, etc.
                      9:  *
                     10:  *  usage:  mkindx "title string" [file_name] [filename] .....
                     11:  */
                     12: 
                     13: # include      <stdio.h>
                     14: 
                     15: char id_mkindx[] = "@(#)mkindx.c       5.1 6/7/85";
                     16: 
                     17: char list[10000] = "pwd >>index; echo \" \" >>index; ls -l ";
                     18: char *apndx = ">>index";
                     19: char *cp = list;
                     20: extern char *ctime();
                     21: FILE *fopen(), *index;
                     22: 
                     23: main (argc, argv)
                     24: char **argv;
                     25: {
                     26:        short i;
                     27:        long time(), t;
                     28: 
                     29:        if (index = fopen ("index", "w"))
                     30:        {
                     31:                fprintf (index, "\n\n\n\n\n\n\n\n\n");
                     32:                center (argv[1]);   /* center title on page */
                     33:                t = time(0);
                     34:                center (ctime(&t));   /* center date & time */
                     35:                fprintf (index, "\n");
                     36:                fclose (index);
                     37:                while (*cp) cp++;   /* find end of shell command */
                     38:                for (i = 2; i < argc; i++)
                     39:                {
                     40:                        while (*argv[i]) *cp++ = *(argv[i]++);
                     41:                        *cp++ = ' ';
                     42:                }
                     43:                while (*apndx) *cp++ = *apndx++;
                     44:                *cp = '\0';
                     45:                system (list);
                     46:        }
                     47:        else fprintf (stderr, "mkindx: can't open index\n");
                     48: }
                     49: 
                     50: center (string)
                     51: char *string;
                     52: {
                     53:        short pad;
                     54: 
                     55:        pad = (72 - strlen(string)) >> 1;
                     56:        while (pad-- > 0) fputc(' ', index);
                     57:        fprintf (index, "%s\n", string);
                     58: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.