Return to mkindx.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libsI77

Annotation of cci/usr/src/usr.lib/libsI77/mkindx.c, revision 1.1.1.1

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

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