rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

subscript numbers are no longer special

Browse source
This commit is contained in:
rhiannon morris 2023-11-05 15:39:52 +01:00
parent 580fbc8fd8
commit f58fa5218f
2 changed files with 0 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lib/Quox/Parser/Lexer.idr
View file

@ -153,23 +153,12 @@ tag = tmatch (is '\'' <+> name) (Tag . drop 1)
<|> match (is '\'' <+> stringLit) (fromStringLit Tag . drop 1) <|> match (is '\'' <+> stringLit) (fromStringLit Tag . drop 1)
private %inline
fromSub : Char -> Char
fromSub c = case c of
'₀' => '0'; '₁' => '1'; '₂' => '2'; '₃' => '3'; '₄' => '4'
'₅' => '5'; '₆' => '6'; '₇' => '7'; '₈' => '8'; '₉' => '9'; _ => c
private %inline private %inline
fromSup : Char -> Char fromSup : Char -> Char
fromSup c = case c of fromSup c = case c of
'⁰' => '0'; '¹' => '1'; '²' => '2'; '³' => '3'; '⁴' => '4' '⁰' => '0'; '¹' => '1'; '²' => '2'; '³' => '3'; '⁴' => '4'
'⁵' => '5'; '⁶' => '6'; '⁷' => '7'; '⁸' => '8'; '⁹' => '9'; _ => c '⁵' => '5'; '⁶' => '6'; '⁷' => '7'; '⁸' => '8'; '⁹' => '9'; _ => c
private %inline
subToNat : String -> Nat
subToNat = cast . pack . map fromSub . unpack
private %inline private %inline
supToNat : String -> Nat supToNat : String -> Nat
supToNat = cast . pack . map fromSup . unpack supToNat = cast . pack . map fromSup . unpack

8
lib/Quox/Syntax/Term/Pretty.idr
View file

@ -30,14 +30,6 @@ BTelescope : Nat -> Nat -> Type
BTelescope = Telescope' BindName BTelescope = Telescope' BindName
private
subscript : String -> String
subscript = pack . map sub . unpack where
sub : Char -> Char
sub c = case c of
'0' => '₀'; '1' => '₁'; '2' => '₂'; '3' => '₃'; '4' => '₄'
'5' => '₅'; '6' => '₆'; '7' => '₇'; '8' => '₈'; '9' => '₉'; _ => c
private private
superscript : String -> String superscript : String -> String
superscript = pack . map sup . unpack where superscript = pack . map sup . unpack where