CharactersBuiltin.hs

{-# LANGUAGE OverloadedStrings #-}

module Funcons.Core.Values.Primitive.CharactersBuiltin where

import Funcons.EDSL
import qualified Funcons.Operations as VAL

library = libFromList [
        ("ascii-characters", fromNullaryValOp ascii_characters_ VAL.ascii_characters_)
--    ,   ("ascii-character", fromValOp ascii_character_ VAL.ascii_character_)
    ,   ("unicode", fromValOp unicode_ VAL.unicode_)
    ,   ("unicode-character-code", fromValOp unicode_character_code_ VAL.unicode_character_code_)
    ,   ("characters", fromNullaryValOp characters_ VAL.characters_)
    ,   ("chars", fromNullaryValOp characters_ VAL.characters_)
    ]

ascii_characters_ = applyFuncon "ascii-characters"
ascii_character_ = applyFuncon "ascii-character"
unicode_ = applyFuncon "unicode"
unicode_character_code_ = applyFuncon "unicode-character-code"
characters_ = applyFuncon "characters"
chars_ = applyFuncon "characters"