Pagwin/psb
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases Packages Wiki Activity

regex is all that remains

Browse source
This commit is contained in:
Pagwin 2026-01-03 21:08:26 -05:00
parent 11d2228362
commit dea8577f14
No known key found for this signature in database
GPG key ID: 81137023740CA260
1 changed files with 20 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/Utilities/Javascript.hs
View file

@ -19,10 +19,10 @@ import Data.Maybe (maybeToList)
import Data.String (IsString (fromString)) import Data.String (IsString (fromString))
import Data.Void (Void) import Data.Void (Void)
import Logger import Logger
import Text.Megaparsec (MonadParsec (notFollowedBy, try), ParseErrorBundle, ParsecT, Stream (tokensToChunk), anySingle, choice, parse, runParserT) import Text.Megaparsec (MonadParsec (notFollowedBy, try), ParseErrorBundle, ParsecT, Stream (tokensToChunk), anySingle, between, choice, parse, runParserT)
import qualified Text.Megaparsec as MP import qualified Text.Megaparsec as MP
import Text.Megaparsec.Char (binDigitChar, char, digitChar, eol, hexDigitChar, hspace, letterChar, newline, octDigitChar, string) import Text.Megaparsec.Char (binDigitChar, char, digitChar, eol, hexDigitChar, hspace, letterChar, newline, octDigitChar, string)
import Utilities.Parsing (Characters, ToChar (fromChar), ToText (fromText, toString, toText)) import Utilities.Parsing (Characters, ToChar (fromChar, toChar), ToText (fromText, toString, toText))
data Possibility = ExprAllowed | ExprNotAllowed deriving (Eq) data Possibility = ExprAllowed | ExprNotAllowed deriving (Eq)
@ -411,7 +411,24 @@ literal =
oct_int = char '0' *> (char 'o' <|> char 'O') *> (fromString <$> some (octDigitChar <|> char '_')) oct_int = char '0' *> (char 'o' <|> char 'O') *> (fromString <$> some (octDigitChar <|> char '_'))
hex_int = char '0' *> (char 'x' <|> char 'X') *> (fromString <$> some (hexDigitChar <|> char '_')) hex_int = char '0' *> (char 'x' <|> char 'X') *> (fromString <$> some (hexDigitChar <|> char '_'))
bin_int = char '0' *> (char 'b' <|> char 'B') *> (fromString <$> some (binDigitChar <|> char '_')) bin_int = char '0' *> (char 'b' <|> char 'B') *> (fromString <$> some (binDigitChar <|> char '_'))
string_lit = String <$> error "TODO" string_lit = String <$> ((try $ g_string '\'') <|> g_string '"')
-- turn from [String] to String to s
g_string :: Char -> Parser s m s
g_string c = mconcat <$> between (char c) (char c) (many $ str_char c)
str_char :: Char -> Parser s m s
str_char c = choice [try escape_seq, try line_continuation, basic_str_char c]
basic_str_char :: Char -> Parser s m s
basic_str_char c = fromString . (: []) <$> (notFollowedBy ((void linebreak) <|> (void $ char '\\') <|> (void $ char c)) *> anySingle)
line_continuation :: Parser s m s
line_continuation = do
char '\\'
c <- linebreak
-- technically wrong but I'm lazy
pure $ fromText "\\\n"
fslash_handler :: forall s m. (Logger m, Characters s) => Parser s m (Token s) fslash_handler :: forall s m. (Logger m, Characters s) => Parser s m (Token s)
fslash_handler = do fslash_handler = do