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 06/07/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 } 59