ack/lang/cem/cemcom.ansi/skip.c

28 lines
492 B
C
Raw Normal View History

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
/* PREPROCESSOR: INPUT SKIP FUNCTIONS */
#include "parameters.h"
#include "arith.h"
#include "LLlex.h"
#include "class.h"
#include "input.h"
1989-02-07 11:04:05 +00:00
1989-10-18 13:12:31 +00:00
SkipToNewLine()
1989-02-07 11:04:05 +00:00
{
register int ch;
1989-10-18 13:12:31 +00:00
register int garbage = 0;
1989-02-07 11:04:05 +00:00
while ((ch = GetChar()) != '\n')
{
1989-10-18 13:12:31 +00:00
if (!is_wsp(ch))
garbage = 1;
1989-02-07 11:04:05 +00:00
}
++LineNumber;
1989-10-18 13:12:31 +00:00
return garbage;
1989-02-07 11:04:05 +00:00
}