mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-08-19 19:29:31 +00:00
consists mostly of changing sloppy K&R C code to slightly more disciplined K&R C code, and doing the usual things to shut gcc up. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@12877 91177308-0d34-0410-b5e6-96231b3b80d8
171 lines
3.4 KiB
C
171 lines
3.4 KiB
C
/* Copyright (c) 1988 Bellcore
|
|
** All Rights Reserved
|
|
** Permission is granted to copy or use this program, EXCEPT that it
|
|
** may not be sold for profit, the copyright notice must be reproduced
|
|
** on copies, and credit should be given to Bellcore where it is due.
|
|
** BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
|
|
*/
|
|
|
|
|
|
#ifndef lint
|
|
static char rcsid[]= "$Header$";
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include "misc.h"
|
|
#include "token.h"
|
|
#include "line.h"
|
|
|
|
char *_L_al[_L_MAXLINES]; /* storage for lines */
|
|
char *_L_bl[_L_MAXLINES];
|
|
|
|
int _L_ai[_L_MAXLINES]; /* index from token line number to first token */
|
|
int _L_bi[_L_MAXLINES];
|
|
|
|
int _L_ac[_L_MAXLINES]; /* count of tokens on this token line */
|
|
int _L_bc[_L_MAXLINES];
|
|
|
|
int _L_arlm; /* count of real lines in the file */
|
|
int _L_brlm;
|
|
|
|
int _L_aclm; /* count of content lines in the file */
|
|
int _L_bclm;
|
|
|
|
int _L_atlm; /* count of token lines in the file */
|
|
int _L_btlm;
|
|
|
|
int _L_aclindex[_L_MAXLINES]; /* mapping from content lines to real lines*/
|
|
int _L_bclindex[_L_MAXLINES];
|
|
|
|
int _L_atlindex[_L_MAXLINES]; /*mapping from token lines to content lines */
|
|
int _L_btlindex[_L_MAXLINES];
|
|
|
|
|
|
static void
|
|
_L_setrline(file,X,str)
|
|
int file;
|
|
int X;
|
|
char *str;
|
|
{
|
|
if (file)
|
|
{
|
|
S_savestr(&_L_bl[X],str);
|
|
}
|
|
else
|
|
{
|
|
S_savestr(&_L_al[X],str);
|
|
}
|
|
return;
|
|
}
|
|
/*
|
|
** returns 1 if we reached the end of file
|
|
** returns 0 if there is more to do
|
|
**
|
|
** stores data and sets maximum counts
|
|
*/
|
|
int
|
|
L_init_file(fnumber,fname)
|
|
int fnumber;
|
|
char *fname;
|
|
{
|
|
extern char *fgets();
|
|
FILE *fp;
|
|
static char buf[Z_LINELEN+2]; /* +2 is to leave room for us to add
|
|
a newline if we need to */
|
|
int ret_val = 1;
|
|
int tmplen;
|
|
|
|
if ((fp = fopen(fname,"r")) == (FILE*) NULL)
|
|
{
|
|
(void) sprintf(Z_err_buf, "Cannot open file %s.\n",fname);
|
|
Z_fatal(Z_err_buf);
|
|
}
|
|
|
|
/*
|
|
** clear the line count
|
|
*/
|
|
_L_setrlmx(fnumber,0);
|
|
|
|
/*
|
|
** read in the entire file
|
|
*/
|
|
while (fgets(buf,Z_LINELEN+1,fp) != (char *) NULL)
|
|
{
|
|
tmplen = strlen(buf);
|
|
if (tmplen <= 0)
|
|
{
|
|
(void) sprintf(Z_err_buf,
|
|
"fatal error -- got 0 length line %d in file %s\n",
|
|
L_getrlmax(fnumber)+1,
|
|
fname);
|
|
Z_fatal(Z_err_buf);
|
|
}
|
|
else if (tmplen > Z_LINELEN)
|
|
{
|
|
(void) sprintf(Z_err_buf,
|
|
"got fatally long line %d in file %s length is %d, must be a bug\n",
|
|
L_getrlmax(fnumber)+1,
|
|
fname,tmplen);
|
|
Z_fatal(Z_err_buf);
|
|
}
|
|
/*
|
|
** look for newline as last character
|
|
*/
|
|
if ('\n' != buf[tmplen-1])
|
|
{
|
|
/*
|
|
** did we run out room in the buffer?
|
|
*/
|
|
if (tmplen == Z_LINELEN)
|
|
{
|
|
(void) sprintf(Z_err_buf,
|
|
"line %d too long in file %s, newline added after %d characters\n",
|
|
L_getrlmax(fnumber)+1,
|
|
fname,Z_LINELEN);
|
|
Z_complain(Z_err_buf);
|
|
}
|
|
else
|
|
{
|
|
(void) sprintf(Z_err_buf,
|
|
"didn't find a newline at end of line %d in file %s, added one\n",
|
|
L_getrlmax(fnumber)+1,
|
|
fname);
|
|
Z_complain(Z_err_buf);
|
|
}
|
|
|
|
buf[tmplen] = '\n';
|
|
buf[tmplen+1] = '\0';
|
|
}
|
|
|
|
_L_setrline(fnumber,L_getrlmax(fnumber),buf);
|
|
|
|
if (L_getrlmax(fnumber) >= _L_MAXLINES-1)
|
|
{
|
|
(void) sprintf(Z_err_buf,
|
|
"warning -- ran out of space reading %s, truncated to %d lines\n",
|
|
fname,_L_MAXLINES);
|
|
Z_complain(Z_err_buf);
|
|
ret_val= 0;
|
|
break;
|
|
}
|
|
else
|
|
{
|
|
/*
|
|
** increment the line count
|
|
*/
|
|
_L_incrlmx(fnumber);
|
|
}
|
|
|
|
}
|
|
|
|
(void) fclose(fp);
|
|
/*
|
|
** reset line numbers
|
|
*/
|
|
L_setclmax(fnumber,0);
|
|
L_settlmax(fnumber,0);
|
|
|
|
return(ret_val);
|
|
}
|
|
|