mow-make -- handle comments.

This commit is contained in:
Kelvin Sherlock 2015-07-06 10:13:34 -04:00
parent aae68c20dd
commit 5ebc0b276b

View File

@ -31,6 +31,11 @@ LinkIIGS TheHeader.aii.obj IRModule.p.obj ?
machine make; machine make;
alphtype unsigned char; alphtype unsigned char;
comment := |*
'\n' => { fhold; fgoto main; };
any => {};
*|;
main := |* main := |*
0xb6 '\n' => { 0xb6 '\n' => {
@ -81,7 +86,10 @@ LinkIIGS TheHeader.aii.obj IRModule.p.obj ?
token.append(ts + 1, te - 1); token.append(ts + 1, te - 1);
}; };
'#' => {
// comment to eol.
fgoto comment;
};
any => { any => {
token.push_back(*ts); token.push_back(*ts);