ScanComment Expansion

ScanComment:

Begin3: [^\(\EOF]

putSym;

getSym;

Begin1: inChar==‘*

putSym; getSym

Next1: inChar == ‘*’

putSym; getSym

[require “(*”]

Note: putSym tests for newline and adds

a PState/CState/lineNbr prefix.

Begin2: inChar==EOF;

printErrMsgB2

Return

EndFile

Next2: inChar == ‘)’

putSym;fputc(‘\n’)

getSym;

Return

InCode

Next4: inChar == [^\*\)\EOF]

putSym; getSym

ImpossibleExit

ImpossibleExit

Next1: inChar == EOF

printErrMsgN1

Return

EndFile

Previous slide

Back to first slide

View graphic version

case Begin: {…/*similar to case Next*/..}

case Next:{

getSym;

switch (inChar){

case '*': {putSym; break;};

case ')': {

putSym;

fprintf(stdout,"%c",LF); // LineFeed

return InCode;

}

case EOF: {return EndFile;}

default: { // [^\)\*\EOF]

putSym;

CState = Begin;

break;

} // end default case

} // end switch(inChar)

break;

}; // end case Next

default: {…error if not on above state..)