2 ***********************************************************
3 $SNARK_Header: S N A R K 1 4 - A PICTURE RECONSTRUCTION PROGRAM $
4 $HeadURL: svn://dig.cs.gc.cuny.edu/snark/trunk/src/snark/getwrd.cpp $
5 $LastChangedRevision: 80 $
6 $Date: 2014-07-01 21:01:54 -0400 (Tue, 01 Jul 2014) $
8 ***********************************************************
10 GETWRD RETURNS AS ITS VALUE THE FIRST FOUR LETTERS OF THE NEXT
11 STRING OF ALPHA CHARACTERS IN THE INPUT RECORD
12 CALLS FUNCTION 'GETNXT'. RETURNS EOL = .TRUE. WHEN END OF LINE
14 REVISED BY G. FRIEDER AND M. MCKAY, JULY 1981
25 #include "inputfile.h"
27 //BOOLEAN isalph(CHAR letter);
29 // removed old (2-parameter) version of getwrd. Lajos, Dec 16, 2004
30 INTEGER InputFile_class::getwrd(BOOLEAN NewLine, BOOLEAN* eol, const INTEGER *expect, int nexpect)
37 word = CHAR2INT(' ', ' ', ' ', ' ');
45 // SCAN TILL THE FIRST ALPHA CHARACTER IS HIT
48 if (++ptr > DATASIZ) // bug 190 - swr - 12/09/05
49 { // ALPHA CHARACTER NOT FOUND
51 return CHAR2INT(' ', ' ', ' ', ' ');
54 } while (!(isalpha(nxtchr)));
56 // THE FIRST ALPHA HAS BEEN FOUND, STRING THE FIRST FOUR LETTERS
60 ew = wrdpack(data, &ptr, &word);
62 // SKIP ANY CHARACTER AFTER THE FIRST FOUR TILL A BLANK IS HIT
68 while (data[ptr] != ' ');
71 // RETURN IF EXPECTED WORD HAS BEEN FOUND
72 for (i = 0; i < nexpect; i++)
74 if (word == expect[i])