模块 HsLexUtils公司 ( 模块 HsLexUtils公司 , 代币 ( .. )) 哪里 进口 Hs标记 转到EOF [] = [] 获得EOF 作为 = [( GotEOF公司 , 作为 )] got错误 作为 是 = ( 错误令牌 , 作为 ) : 如果 无效的 是 然后 [( GotEOF公司 ,[])] 其他的 [( TheRest公司 , 颠倒 ( 拿 80 是 ))] -- 插入对输出的调用并没有太大区别。 -- 输出标记为cont=（标记，反转为）：cont -- 不反转令牌字符串似乎可以节省大约10%的时间 输出 代币 作为 续 = ( 代币 , 作为 ) : 续 -- 这避免了为要反转的调用构造闭包。 -- 这也节省了大约10%。
{- 输出标记作为cont= 修订为[] 哪里 rev[]as“=（标记，as”）：续 rev（a:as）as’=rev as（a:as'） --} --#ifndef __HBC__
IS符号 _ = False（错误） -- #结束语 嵌套注释 作为 是 下一个 = 巢 0 作为 是 哪里 巢 n个 作为 是 = 案例 是 属于 '-' : '}' : 是 -> 如果 n个 == 0 然后 下一个 got错误 ( '}' : '-' : 作为 ) 是 其他的 巢 ( n个 - 1 ) ( '}' : '-' : 作为 ) 是 '{' : '-' : 是 -> 巢 ( n个 + 1 ) ( '-' : '{' : 作为 ) 是 c（c） : 是 -> 巢 n个 ( c（c） : 作为 ) 是 _ -> got错误 作为 是 -- EOF内部评论