Changeset 15242 for src/Pugs/Lexer.hs

Show
Ignore:
Timestamp:
02/10/07 04:37:58 (22 months ago)
Author:
audreyt
Message:

* New "constant" scope as alis for "my" (not really constant yet)

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Lexer.hs

    r15230 r15242  
    379379    readScope "temp"    = STemp 
    380380    readScope "env"     = SEnv 
     381    readScope "constant"= SMy 
    381382    readScope _         = SGlobal 
    382383 
    383384ruleScopeName :: RuleParser String 
    384 ruleScopeName = choice . map symbol . map (map toLower) . map (tail . show) 
    385     $ [SState .. SOur] 
     385ruleScopeName = choice $ map symbol scopeNames 
     386 
     387scopeNames :: [String] 
     388scopeNames = ("constant":) . map (map toLower) . map (tail . show) $ [SState .. SOur] 
    386389 
    387390postSpace :: RuleParser a -> RuleParser a