lang/m2/comp/input.c

   1 /*
   2  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  *
   5  * Author: Ceriel J.H. Jacobs
   6  */
   7
   8 /* I N S T A N T I A T I O N   O F   I N P U T   P A C K A G E */
   9
  10 /* $Id: input.c,v 1.9 1994/06/24 12:41:08 ceriel Exp $ */
  11
  12 #include        "f_info.h"
  13 struct f_info   file_info;
  14 #include        "input.h"
  15 #include        <inp_pkg.body>
  16
  17
  18 AtEoIF()
  19 {
  20         /*      Make the unstacking of input streams noticable to the
  21                 lexical analyzer
  22         */
  23         if (WorkingDir[0] != '\0') free(WorkingDir);
  24         return 1;
  25 }
  26
  27 AtEoIT()
  28 {
  29         /*      Make the end of the text noticable
  30         */
  31         return 1;
  32 }