msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Use HashTable to share strings in tokens when parsing GFC files.

Browse Source
This commit is contained in:
bringert
2004-12-06 16:02:08 +00:00
parent 3d72b7ce90
commit a969c51b69
3 changed files with 156 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/GF/Canon/LexGFC.hs
View File

@@ -1,7 +1,7 @@
{-# OPTIONS -fglasgow-exts -cpp #-}
{-# LINE 3 "LexGFC.x" #-}
module LexGFC where
import SharedString
import ErrM
#if __GLASGOW_HASKELL__ >= 503
@@ -35,10 +35,10 @@ alex_accept = listArray (0::Int,14) [[],[],[(AlexAccSkip)],[(AlexAcc (alex_actio
tok f p s = f p s
data Tok =
TS String -- reserved words
| TL String -- string literals
TS !String -- reserved words
| TL !String -- string literals
| TI String -- integer literals
| TV String -- identifiers
| TV !String -- identifiers -- H
| TD String -- double precision float literals
| TC String -- character literals
@@ -130,9 +130,9 @@ alexGetChar (p, _, (c:s)) =
alexInputPrevChar :: AlexInput -> Char
alexInputPrevChar (p, c, s) = c
alex_action_1 = tok (\p s -> PT p (TS s))
alex_action_2 = tok (\p s -> PT p (eitherResIdent TV s))
alex_action_3 = tok (\p s -> PT p (TL $ unescapeInitTail s))
alex_action_1 = tok (\p s -> PT p (TS (shareString s)))
alex_action_2 = tok (\p s -> PT p (eitherResIdent (TV . shareString) s))
alex_action_3 = tok (\p s -> PT p (TL $ shareString $ unescapeInitTail s))
alex_action_4 = tok (\p s -> PT p (TI s))
{-# LINE 1 "GenericTemplate.hs" #-}
{-# LINE 1 "<built-in>" #-}