Changeset 17047 for src/Pugs/Lexer.hs

Show
Ignore:
Timestamp:
07/14/07 04:45:22 (17 months ago)
Author:
audreyt
Message:

* Final batch of HPC-inspired toplevel removals:

Pugs.AST.Pads.diffPads
Pugs.AST.Utils.getMapIndex
Pugs.Internals.ID.hashList

(moved to a local definition in Pugs.Parser.Charnames)

Pugs.Lexer.balanced
Pugs.Lexer.ruleWhiteSpaceLine (and ruleEndOfLine)

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Lexer.hs

    r15594 r17047  
    1313    wordAlpha, wordAny, isWordAlpha, isWordAny, 
    1414    maybeParens, parens, whiteSpace, mandatoryWhiteSpace, lexeme, identifier, identLetter, 
    15     braces, brackets, angles, balanced, balancedDelim, decimal, 
    16  
    17     ruleVerbatimIdentifier, ruleDelimitedIdentifier, ruleQualifiedIdentifier, ruleWhiteSpaceLine, 
     15    braces, brackets, angles, balancedDelim, decimal, 
     16 
     17    ruleVerbatimIdentifier, ruleDelimitedIdentifier, ruleQualifiedIdentifier, 
    1818 
    1919    symbol, interpolatingStringLiteral, escapeCode, 
    … …  
    131131#endif 
    132132 
     133{- 
    133134-- balanced: parses an open/close delimited expression of any non-alphanumeric character 
    134135balanced :: RuleParser String 
    … …  
    140141    return contents 
    141142 
    142 {- 
    143143-- The \b rule. 
    144144_ruleWordBoundary :: RuleParser () 
    … …  
    190190    return (c:cs) 
    191191 
     192{- 
    192193{-| 
    193194Match any amount of whitespace (not including newlines), followed by a newline 
    … …  
    205206ruleEndOfLine :: RuleParser () 
    206207ruleEndOfLine = choice [ do { char '\n'; return () }, eof ] 
     208-} 
    207209 
    208210symbol :: String -> RuleParser String