53 lines
936 B
Idris
53 lines
936 B
Idris
|
module Quox.Name
|
||
|
|
|
||
|
|
import public Data.SnocList
|
||
|
|
|
||
|
|
%default total
|
||
|
|
|
||
|
|
|
||
|
|
public export
|
||
|
|
data BaseName =
|
||
|
|
UN String -- user-given name
|
||
|
|
|
||
|
|
private 0 BRepr : Type
|
||
|
|
BRepr = String
|
||
|
|
|
||
|
|
private %inline brepr : BaseName -> BRepr
|
||
|
|
brepr (UN x) = x
|
||
|
|
|
||
|
|
export Eq BaseName where (==) = (==) `on` brepr
|
||
|
|
export Ord BaseName where compare = compare `on` brepr
|
||
|
|
|
||
|
|
export
|
||
|
|
baseStr : BaseName -> String
|
||
|
|
baseStr (UN x) = x
|
||
|
|
|
||
|
|
export
|
||
|
|
FromString BaseName where
|
||
|
|
fromString = UN
|
||
|
|
|
||
|
|
|
||
|
|
public export
|
||
|
|
record Name where
|
||
|
|
constructor MakeName
|
||
|
|
mods : SnocList String
|
||
|
|
base : BaseName
|
||
|
|
|
||
|
|
private 0 Repr : Type
|
||
|
|
Repr = (SnocList String, BRepr)
|
||
|
|
|
||
|
|
private %inline repr : Name -> Repr
|
||
|
|
repr x = (x.mods, brepr x.base)
|
||
|
|
|
||
|
|
export Eq Name where (==) = (==) `on` repr
|
||
|
|
export Ord Name where compare = compare `on` repr
|
||
|
|
|
||
|
|
export
|
||
|
|
FromString Name where
|
||
|
|
fromString x = MakeName [<] (fromString x)
|
||
|
|
|
||
|
|
|
||
|
|
export
|
||
|
|
toDots : Name -> String
|
||
|
|
toDots x = fastConcat $ cast $ map (<+> ".") x.mods :< baseStr x.base
|