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

sop → elab-util

Browse source
This commit is contained in:
rhiannon morris 2023-03-02 19:52:32 +01:00
parent 04d3c9368a
commit fc3c2dc8ab
9 changed files with 40 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lib/Quox/CharExtra.idr
View file

@ -1,6 +1,6 @@
module Quox.CharExtra
import Generics.Derive
import Derive.Prelude
%default total
@ -10,38 +10,38 @@ import Generics.Derive
namespace Letter
public export
data Letter = Uppercase | Lowercase | Titlecase | Modifier | Other
%runElab derive "Letter" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "Letter" [Eq, Ord, Show]
namespace Mark
public export
data Mark = NonSpacing | SpacingCombining | Enclosing
%runElab derive "Mark" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "Mark" [Eq, Ord, Show]
namespace Number
public export
data Number = Decimal | Letter | Other
%runElab derive "Number" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "Number" [Eq, Ord, Show]
namespace Punctuation
public export
data Punctuation = Connector | Dash | Open | Close
| InitialQuote | FinalQuote | Other
%runElab derive "Punctuation" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "Punctuation" [Eq, Ord, Show]
namespace Symbol
public export
data Symbol = Math | Currency | Modifier | Other
%runElab derive "Symbol" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "Symbol" [Eq, Ord, Show]
namespace Separator
public export
data Separator = Space | Line | Paragraph
%runElab derive "Separator" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "Separator" [Eq, Ord, Show]
namespace Other
public export
data Other = Control | Format | Surrogate | PrivateUse | NotAssigned
%runElab derive "Other" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "Other" [Eq, Ord, Show]
public export
@ -53,7 +53,7 @@ data GeneralCategory
| Symbol Symbol
| Separator Separator
| Other Other
%runElab derive "GeneralCategory" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "GeneralCategory" [Eq, Ord, Show]
private
%foreign "scheme:(lambda (c) (symbol->string (char-general-category c)))"

8
lib/Quox/Lexer.idr
View file

@ -6,7 +6,7 @@ import Data.String.Extra
import Data.SortedMap
import Text.Lexer
import Text.Lexer.Tokenizer
import Generics.Derive
import Derive.Prelude
%hide TT.Name
@ -22,7 +22,7 @@ import Generics.Derive
||| @ TYPE "Type" or "★" with subscript
public export
data Token = R String | I Name | N Nat | S String | T String | TYPE Nat
%runElab derive "Token" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "Token" [Eq, Ord, Show]
-- token or whitespace
private
@ -37,8 +37,8 @@ record Error where
line, col : Int
||| `Nothing` if the error is at the end of the input
char : Maybe Char
%runElab derive "StopReason" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "Error" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "StopReason" [Eq, Ord, Show]
%runElab derive "Error" [Eq, Ord, Show]
skip : Lexer -> Tokenizer TokenW

6
lib/Quox/Name.idr
View file

@ -2,7 +2,7 @@ module Quox.Name
import public Data.SnocList
import Data.List
import Generics.Derive
import Derive.Prelude
%hide TT.Name
@ -13,7 +13,7 @@ import Generics.Derive
public export
data BaseName
= UN String -- user-given name
%runElab derive "BaseName" [Generic, Meta, Eq, Ord, DecEq]
%runElab derive "BaseName" [Eq, Ord]
export
Show BaseName where
@ -34,7 +34,7 @@ record Name where
constructor MakeName
mods : SnocList String
base : BaseName
%runElab derive "Name" [Generic, Meta, Eq, Ord, DecEq]
%runElab derive "Name" [Eq, Ord]
export
Show Name where

6
lib/Quox/Pretty.idr
View file

@ -10,7 +10,7 @@ import Data.DPair
import public Control.Monad.Identity
import public Control.Monad.Reader
import Generics.Derive
import Derive.Prelude
%default total
%language ElabReflection
@ -36,7 +36,7 @@ data HL
| Qty
| Syntax
| Tag
%runElab derive "HL" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "HL" [Eq, Ord, Show]
public export
data PPrec
@ -49,7 +49,7 @@ data PPrec
| App -- term/dimension application
| SApp -- substitution application
| Arg -- argument to nonfix function
%runElab derive "PPrec" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "PPrec" [Eq, Ord, Show]
export %inline

5
lib/Quox/Syntax/Dim.idr
View file

@ -6,18 +6,17 @@ import Quox.Pretty
import Decidable.Equality
import Control.Function
import Generics.Derive
import Derive.Prelude
%default total
%language ElabReflection
%hide SOP.from; %hide SOP.to
public export
data DimConst = Zero | One
%name DimConst e
%runElab derive "DimConst" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "DimConst" [Eq, Ord, Show]
||| `ends l r e` returns `l` if `e` is `Zero`, or `r` if it is `One`.
public export

16
lib/Quox/Syntax/Qty/Three.idr
View file

@ -2,7 +2,7 @@ module Quox.Syntax.Qty.Three
import Quox.Pretty
import public Quox.Syntax.Qty
import Generics.Derive
import Derive.Prelude
%default total
%language ElabReflection
@ -12,7 +12,7 @@ public export
data Three = Zero | One | Any
%name Three pi, rh
%runElab derive "Three" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "Three" [Eq, Ord, Show]
export
@ -23,6 +23,18 @@ PrettyHL Three where
One => ifUnicode "𝟭" "1"
Any => ifUnicode "𝛚" "*"
public export
DecEq Three where
decEq Zero Zero = Yes Refl
decEq Zero One = No $ \case _ impossible
decEq Zero Any = No $ \case _ impossible
decEq One Zero = No $ \case _ impossible
decEq One One = Yes Refl
decEq One Any = No $ \case _ impossible
decEq Any Zero = No $ \case _ impossible
decEq Any One = No $ \case _ impossible
decEq Any Any = Yes Refl
public export
plus : Three -> Three -> Three

4
lib/Quox/Syntax/Universe.idr
View file

@ -3,7 +3,7 @@ module Quox.Syntax.Universe
import Quox.Pretty
import Data.Fin
import Generics.Derive
import Derive.Prelude
%default total
%language ElabReflection
@ -15,7 +15,7 @@ public export
data Universe = U Nat | UAny
%name Universe l
%runElab derive "Universe" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "Universe" [Eq, Ord, Show]
export
PrettyHL Universe where

6
lib/Quox/Typing.idr
View file

@ -6,11 +6,9 @@ import public Quox.Reduce
import public Data.SortedMap
import public Control.Monad.Either
import Generics.Derive
import Derive.Prelude
%hide TT.Name
%hide SOP.from
%hide SOP.to
%default total
%language ElabReflection
@ -103,7 +101,7 @@ InferResult eqs q d n = IfConsistent eqs $ InferResult' q d n
public export
data EqMode = Equal | Sub | Super
%runElab derive "EqMode" [Generic, Meta, Eq, Ord, DecEq, Show]
%runElab derive "EqMode" [Eq, Ord, Show]
public export

2
lib/quox-lib.ipkg
View file

@ -5,7 +5,7 @@ authors = "rhiannon morris"
sourceloc = "https://git.rhiannon.website/rhi/quox"
license = "acsl"
depends = base, contrib, elab-util, sop, snocvect
depends = base, contrib, elab-util, snocvect
modules =
Quox.NatExtra,