/**********************************************************************
 * luc_report.c -- header/ending for latex report
 *
 * $Author: brlewis $
 * $Source: /afs/athena.mit.edu/astaff/project/lucydev/src/lib/RCS/luc_report.c,v $
 * $Header: /afs/athena.mit.edu/astaff/project/lucydev/src/lib/RCS/luc_report.c,v 1.1 91/09/24 14:36:01 brlewis Exp Locker: brlewis $
 *
 * Copyright 1991 by the Massachusetts Institute of Technology.
 *
 * For copying and distribution information, please see the file
 * <mit-copyright.h>.
 **********************************************************************/
#include <mit-copyright.h>

#ifndef lint
static char rcsid_luc_report_c[] = "$Header: /afs/athena.mit.edu/astaff/project/lucydev/src/lib/RCS/luc_report.c,v 1.1 91/09/24 14:36:01 brlewis Exp Locker: brlewis $";
#endif /* lint */

#include <stdio.h>
#include <strings.h>
#include <lucy/lucy.h>

/**********************************************************************
 * luc_report(char *title, char *author, FILE *fp)
 *
 * - outputs header for latex report on stream fp
 **********************************************************************/

void
luc_report(title, author, fp)
     char *title, *author;
     FILE *fp;
{
  fprintf(fp, "%s\n%s\n%s\n%s\n%s%s%s\n%s%s%s\n%s\n%s\n%s\n",
	  "\\documentstyle[titlepage,timrom]{article}",
	  "\\addtolength{\\oddsidemargin}{-.75in}",
	  "\\addtolength{\\evensidemargin}{-.75in}",
	  "\\addtolength{\\textwidth}{1.5in}",
	  "\\author{", author, "}",
	  "\\title{", title, "}",
	  "\\begin{document}",
	  "\\maketitle",
	  "\\tableofcontents");
  return;
}

/**********************************************************************
 * luc_endreport(FILE *fp)
 *
 * - outputs end of latex report on stream fp
 **********************************************************************/

void
luc_endreport(fp)
     FILE *fp;
{
  fprintf(fp, "\\end{document}\n");
  return;
}