{-# LANGUAGE OverloadedStrings #-}

module Funcons.Core.Values.Primitive.CharactersBuiltin where

import Funcons.EDSL
import qualified Funcons.Operations as VAL

library :: FunconLibrary
library = [(Name, EvalFunction)] -> FunconLibrary
libFromList [
        (Name
"characters", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromNullaryValOp [Funcons] -> Funcons
characters_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.characters_)
    ,   (Name
"chars", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromNullaryValOp [Funcons] -> Funcons
characters_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.characters_)
    ,   (Name
"unicode-characters", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromNullaryValOp [Funcons] -> Funcons
unicode_characters_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.unicode_characters_)
    ,   (Name
"unicode-chars", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromNullaryValOp [Funcons] -> Funcons
unicode_characters_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.unicode_characters_)
    ,   (Name
"unicode-points", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromNullaryValOp [Funcons] -> Funcons
unicode_points_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.unicode_points_)
    ,   (Name
"basic-multilingual-plane-points", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromNullaryValOp [Funcons] -> Funcons
basic_multilingual_plane_points_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.bmp_points_)
    ,   (Name
"unicode-character", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromValOp [Funcons] -> Funcons
unicode_character_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.unicode_character_)
    ,   (Name
"unicode-char", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromValOp [Funcons] -> Funcons
unicode_character_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.unicode_character_)
    ,   (Name
"basic-multilingual-plane-characters", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromNullaryValOp [Funcons] -> Funcons
basic_multilingual_plane_characters_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.bmp_characters_)
    ,   (Name
"bmp-chars", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromNullaryValOp [Funcons] -> Funcons
basic_multilingual_plane_characters_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.bmp_characters_)
    ,   (Name
"iso-latin-1-characters", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromNullaryValOp [Funcons] -> Funcons
iso_latin_1_characters_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.iso_latin_characters_)
    ,   (Name
"latin-1-chars", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromNullaryValOp [Funcons] -> Funcons
iso_latin_1_characters_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.iso_latin_characters_)
    ,   (Name
"ascii-characters", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromNullaryValOp [Funcons] -> Funcons
ascii_characters_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.ascii_characters_)
    ,   (Name
"ascii-chars", ([Funcons] -> Funcons)
-> ([OpExpr Funcons] -> OpExpr Funcons) -> EvalFunction
fromNullaryValOp [Funcons] -> Funcons
ascii_characters_ [OpExpr Funcons] -> OpExpr Funcons
forall t. HasValues t => [OpExpr t] -> OpExpr t
VAL.ascii_characters_)
    ]

ascii_characters_ :: [Funcons] -> Funcons
ascii_characters_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"ascii-characters"
ascii_chars_ :: [Funcons] -> Funcons
ascii_chars_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"ascii-characters"
unicode_characters_ :: [Funcons] -> Funcons
unicode_characters_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"unicode-characters"
iso_latin_1_characters_ :: [Funcons] -> Funcons
iso_latin_1_characters_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"iso-latin-1-characters"
latin_1_chars_ :: [Funcons] -> Funcons
latin_1_chars_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"iso-latin-1-characters"
basic_multilingual_plane_characters_ :: [Funcons] -> Funcons
basic_multilingual_plane_characters_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"basic-multilingual-plane-characters"
bmp_chars_ :: [Funcons] -> Funcons
bmp_chars_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"basic-multilingual-plane-characters"
unicode_points_ :: [Funcons] -> Funcons
unicode_points_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"unicode-points"
basic_multilingual_plane_points_ :: [Funcons] -> Funcons
basic_multilingual_plane_points_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"basic-multilingual-plane-points"
ascii_character_ :: [Funcons] -> Funcons
ascii_character_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"ascii-character"
unicode_character_ :: [Funcons] -> Funcons
unicode_character_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"unicode-character"
unicode_char_ :: [Funcons] -> Funcons
unicode_char_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"unicode-character"
--unicode_point_ = applyFuncon "unicode-point" TODO reveal once built-in
--unicode_ = applyFuncon "unicode-point" TODO reveal once built-in
characters_ :: [Funcons] -> Funcons
characters_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"characters"
chars_ :: [Funcons] -> Funcons
chars_ = Name -> [Funcons] -> Funcons
applyFuncon Name
"characters"