useDynLib("sets")

importFrom("stats", "median")

export("%e%",
       "%D%",
       "as.set",
       "make_set_with_order",
       "is.set",
       "set",
       "set_contains_element",
       "set_is_empty",
       "set_is_equal",
       "set_is_proper_subset",
       "set_is_subset",
       "set_cardinality",
       "set_cartesian",
       "set_combn",
       "set_complement",
       "set_intersection",
       "set_power",
       "set_symdiff",
       "set_union",
       "set_options",
       "set_outer",
       "canonicalize_set_and_mapping"
       )

S3method("[", "set")
S3method("[[", "set")
S3method("Ops","set")
S3method("Summary","set")
S3method("as.list", "set")
S3method("as.list", "function")
S3method("make_set_with_order", "character")
S3method("make_set_with_order", "data.frame")
S3method("make_set_with_order", "default")
S3method("make_set_with_order", "factor")
S3method("make_set_with_order", "integer")
S3method("make_set_with_order", "list")
S3method("make_set_with_order", "logical")
S3method("make_set_with_order", "numeric")
S3method("make_set_with_order", "ordered")
S3method("make_set_with_order", "set")
S3method("make_set_with_order", "gset")
S3method("make_set_with_order", "tuple")
S3method("c","set")
S3method("format", "set")
S3method("length", "set")
S3method("mean", "set")
S3method("median", "set")
S3method("print","set")
S3method("print","summary.set")
S3method("rep","set")
S3method("str","set")
S3method("summary","set")

## Generalized set stuff.
export("e")
export("is_element")
S3method("format","element")
S3method("LABEL","element")
S3method("print","element")

export("%e%",
       "%D%",
       "as.gset",
       "is.gset",
       "gset",
       "gset_contains_element",
       "gset_is_empty",
       "gset_is_equal",
       "gset_is_proper_subset",
       "gset_is_subset",
       "gset_is_set",
       "gset_is_multiset",
       "gset_is_fuzzy_set",
       "gset_is_set_or_fuzzy_set",
       "gset_is_set_or_multiset",
       "gset_is_fuzzy_multiset",
       "gset_is_crisp",
       "gset_cardinality",
       "gset_cartesian",
       "gset_combn",
       "gset_complement",
       "gset_intersection",
       "gset_memberships",
       "gset_sum",
       "gset_difference",
       "gset_support",
       "gset_charfun",
       "gset_power",
       "gset_symdiff",
       "gset_union",
       "gset_outer",
       "gset_similarity"
       )

S3method("Ops","gset")
S3method("Summary","gset")
S3method("[", "gset")
S3method("[[", "gset")
S3method("as.gset", "character")
S3method("as.gset", "data.frame")
S3method("as.gset", "default")
S3method("as.gset", "factor")
S3method("as.gset", "gset")
S3method("as.gset", "integer")
S3method("as.gset", "list")
S3method("as.gset", "logical")
S3method("as.gset", "numeric")
S3method("as.gset", "ordered")
S3method("as.gset", "tuple")
S3method("as.list", "gset")
S3method("c","gset")
S3method("cut","gset")
S3method("format", "gset")
S3method("length", "gset")
S3method("mean", "gset")
S3method("median", "gset")
S3method("plot", "gset")
S3method("print","gset")
S3method("print","summary.gset")
S3method("rep","gset")
S3method("str","gset")
S3method("summary","gset")

## Closure and reduction
export("binary_closure")
export("closure")
S3method("closure","set")
S3method("closure","default")

export("binary_reduction")
export("reduction")
S3method("reduction","set")
S3method("reduction","default")

## Tuple stuff.
export("%e%",
       "as.tuple",
       "tuple",
       "singleton",
       "pair",
       "triple",
       "is.tuple",
       "tuple_is_ntuple",
       "tuple_is_singleton",
       "tuple_is_pair",
       "tuple_is_triple",
       "tuple_outer"
       )

S3method("[", "tuple")
S3method("[<-", "tuple")
S3method("Ops","tuple")
S3method("Summary","tuple")
S3method("print","tuple")
S3method("format", "tuple")
S3method("as.tuple", "default")
S3method("as.tuple", "factor")
S3method("as.tuple", "integer")
S3method("as.tuple", "list")
S3method("as.tuple", "logical")
S3method("as.tuple", "character")
S3method("as.tuple", "numeric")
S3method("as.tuple", "ordered")
S3method("as.tuple", "tuple")
S3method("as.tuple", "data.frame")
S3method("as.tuple", "set")
S3method("as.list", "tuple")
S3method("c", "tuple")
S3method("mean", "tuple")
S3method("median", "tuple")
S3method("rep", "tuple")

## LABEL(S)
export("LABEL",
       "LABELS")

S3method("LABEL", "character")
S3method("LABEL", "default")
S3method("LABEL", "factor")
S3method("LABEL", "integer")
S3method("LABEL", "logical")
S3method("LABEL", "matrix")
S3method("LABEL", "numeric")
S3method("LABEL", "set")
S3method("LABEL", "gset")
S3method("LABEL", "tuple")
S3method("LABEL", "list")


### fuzzy logic stuff
export(".N.",
       ".T.",
       ".S.",
       ".I.",
       "fuzzy_logic")