From 314f147bff04c3b02e0f43b77e4b7a3f1fd9e433 Mon Sep 17 00:00:00 2001 From: meza Date: Tue, 29 Apr 2008 13:05:24 +0000 Subject: JS.cf : Changed the JS grammar to support strings as property names in objects. Changed pretty much all the files in the same folder as well as GFCCToJS.hs and SISR.hs to reflect the changes. --- src/GF/JavaScript/LexJS.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'src/GF/JavaScript/LexJS.hs') diff --git a/src/GF/JavaScript/LexJS.hs b/src/GF/JavaScript/LexJS.hs index 797f6ab5d..242831195 100644 --- a/src/GF/JavaScript/LexJS.hs +++ b/src/GF/JavaScript/LexJS.hs @@ -114,19 +114,19 @@ alexMove (Pn a l c) '\n' = Pn (a+1) (l+1) 1 alexMove (Pn a l c) _ = Pn (a+1) l (c+1) type AlexInput = (Posn, -- current position, - Char, -- previous char - String) -- current input string + Char, -- previous char + String) -- current input string tokens :: String -> [Token] tokens str = go (alexStartPos, '\n', str) where go :: (Posn, Char, String) -> [Token] go inp@(pos, _, str) = - case alexScan inp 0 of - AlexEOF -> [] - AlexError (pos, _, _) -> [Err pos] - AlexSkip inp' len -> go inp' - AlexToken inp' len act -> act pos (take len str) : (go inp') + case alexScan inp 0 of + AlexEOF -> [] + AlexError (pos, _, _) -> [Err pos] + AlexSkip inp' len -> go inp' + AlexToken inp' len act -> act pos (take len str) : (go inp') alexGetChar :: AlexInput -> Maybe (Char,AlexInput) alexGetChar (p, c, []) = Nothing -- cgit v1.2.3