/* Programm zum Aufbereiten von C-Quellen fuer den Druck
 */

#include "stdio.h"

extern FILE stdin;
int n_flag = NO;
int h_flag = NO;

/* List - Parameter 
*/
#define HARD_PAGE 72
#define HARD_WIDTH 100
#define MAXFILE 14
#define MAXLINE 80
#define EOS '\0'

/* Ausgabe von n Leerzeilen 
*/
skip(n)
   int n;
   {
   int t = n;
   while (t-- > 0)
        putchar('\n');
   return(n);
   }

#define MARGIN1 6   /*oberer Rand*/
#define MARGIN2 3   /*Abstand Titel-Quelltext*/
#define MARGIN3 8   /*unterer Rand*/

char *title = NULL;

/* Seitenaufbau 
*/
paginate(buf)
   char *buf;
   {
   static int line;
   static int page = 0;
   
   if (page != 0)
      goto resume;
      /* lesen */
   while (buf != NULL) 
     {
     ++page;
     line = skip(MARGIN1);
     if (title != NULL) 
        {
	printf("NAME: %p \t\t\t\tSEITE: %5i\n", title, page);
        line += skip(MARGIN2);
        }
     while (buf!=NULL && line<HARD_PAGE-MARGIN3) 
        {
        putlin(buf, strlen(buf));
        ++line;
        /* lesen */
        return;
        resume: ;
        }
     skip(HARD_PAGE - line);
     line = 0;
     }
   page = 0;
   }

/* Einordnen der Files 
*/
include(file, ftn)
   char *file;
   int (*ftn)();
   {
   int return_code;
   char *buybuf();
   FILE *fd;
   FILE *fclose(),*fopen();

   return_code = NO;
   fd = (FILE *) buybuf(&stdin, sizeof(FILE));
   if (fopen(&stdin, file, READ) == NULL)
      {
      errfmt("can't open %p\n", file);
      exit(NO);
      } 
   else
      {
      return_code = (*ftn)(file);
      fclose(&stdin);
      }
   strncpy(&stdin, fd, sizeof(FILE));
   free(fd);
   return(return_code);
   }

/* Einordnen des Filenamens 
*/
char *prefix = "";
get_name(line, file)
   char *file, *line;
   {
   char *delin;
   int n;
   while (*line == ' ' || *line == '\t')
      ++line;
   if (*line == '\n')
      n = strlen(file);
   else 
      {
      n = 0;
      if (*line == '"') 
         {
         delin="\"\n";
         ++line;
         }
         else if (*line == '<') 
           {
           delin = ">\n";
           ++line;
           n = strncpy(file, prefix, strlen(prefix));
           }
        else
           delin = "\t\n";
     n += strncpy(file+n, line, instr(line, delin));
     *(file+n) = EOS;
     }
   return(n);
   }

/* Ersetzen tab durch blank 
*/
detab(s, d)
   char *s, *d;
   {
   int i;
   for (i=0; *d = *s; ++s)
       if (*s == '\t')
          do
          *d++ = ' ';
          while (++i%8);
       else 
          {
          ++i;
          ++d;
          }   
   return(++i);
   }

/* Einfuegen der Files 
*/
check_include(line)
   char *line;
   {
   int n, list();
   char file[MAXFILE+1];
   for ( ; iswhite(*line); ++line)
       ;
   if (strncmp(line, "#include ", 9) == 0) 
      {
      n = get_name(line+9, file);
      if (strncmp(&file[n-2], ".h", 2) == 0) 
         {
         if (h_flag)
            include(file, &list);
         }
      else
         {
         if (n_flag)
            include(file, &list);
         }
      }
   }

/* Kennzeichnen und Drucken der Zeilen 
*/
int begin = 0;
int ende = 1000;

list(file)
   char *file;
   {
   char *alloc(), *buf, *line, tmp[4];
   int t,l;
   int line_number = 0;

#define BORDER MAXFILE+7

   buf = alloc(MAXLINE+BORDER+1, 0);
   line = alloc(MAXLINE+1, 0);
   fill(buf, BORDER, ' ');
   buf[BORDER-2] = ':';
   strncpy(buf, file, strlen(file));
   while (l = getlin(line, MAXLINE)) 
      {
      line[min(l,HARD_WIDTH-BORDER)] = EOS;
      ++line_number;
      if (line_number<ende && line_number>begin)
         {
         t = itob(tmp, line_number, 0);
         strncpy(buf+BORDER-2-t, tmp, t);
         detab(line, buf+BORDER);
         paginate(buf);
         }
      if (n_flag || h_flag) 
         check_include(line);
      }
   }


/* Hauptprozedur - Behandlung der Parameter */
main(argc, argv)
   int argc;
   char **argv;
   {
   char *s, getflags();
   char buf[MAXLINE+1];
   if (s = getflags(&argc, &argv, "n,h,i*,b#,e#", \
       &n_flag, &h_flag, &prefix, &begin, &ende))
      {
      errfmt ("bad flags\n");
      exit(NO);
      }
   if(argc <= 0)
      {
      list("");
      paginate(NULL);
      }
   else 
      {
      do {
         title = *argv;
         include(title, &list);
         paginate(NULL);
         }
         while (++argv, --argc);
      }
   }