1989-02-07 11:04:05 +00:00
|
|
|
/*
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
*/
|
1994-06-27 08:03:14 +00:00
|
|
|
/* $Id$ */
|
1989-02-07 11:04:05 +00:00
|
|
|
|
2013-05-12 19:45:55 +00:00
|
|
|
#include "parameters.h"
|
2006-07-19 10:28:43 +00:00
|
|
|
#include <stdlib.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <string.h>
|
1989-02-07 11:04:05 +00:00
|
|
|
#include "file_info.h"
|
|
|
|
#include "input.h"
|
2019-02-18 16:42:15 +00:00
|
|
|
#include "error.h"
|
1989-02-07 11:04:05 +00:00
|
|
|
|
|
|
|
#define INP_PUSHBACK 3
|
|
|
|
#define INP_TYPE struct file_info
|
|
|
|
#define INP_VAR finfo
|
|
|
|
struct file_info finfo;
|
|
|
|
#include <inp_pkg.body>
|
1992-12-22 15:29:56 +00:00
|
|
|
#include <alloc.h>
|
1989-02-07 11:04:05 +00:00
|
|
|
|
|
|
|
int NoUnstack;
|
|
|
|
|
2019-02-18 16:42:15 +00:00
|
|
|
int AtEoIT(void)
|
1989-02-07 11:04:05 +00:00
|
|
|
{
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
1993-01-18 15:10:01 +00:00
|
|
|
extern char *source;
|
1989-10-12 14:22:35 +00:00
|
|
|
|
2019-02-18 16:42:15 +00:00
|
|
|
int AtEoIF(void)
|
1989-02-07 11:04:05 +00:00
|
|
|
{
|
|
|
|
if (NoUnstack) lexerror("unexpected EOF");
|
|
|
|
return 0;
|
|
|
|
}
|