1## we "need" S4 methods for dispatch on both (x,y)  .noGenerics <- TRUE
2.conflicts.OK <- TRUE
3
4## gmp-ify base function(s):
5environment(outer) <- environment()# i.e. asNamespace("gmp")
6
7.gmpVersion <- function() .Call(R_gmp_get_version)
8gmpVersion <- function()
9    numeric_version(sub("^([0-9]+\\.[0-9]+\\.[0-9]+).*","\\1", .gmpVersion()))
10
11.onLoad <- function(libname, pkgname) {
12    options("gmp:warnModMismatch" = TRUE, ## see ../man/biginteger.Rd
13            "gmp:warnNoInv" = TRUE) ## ../man/add.biginteger.Rd | ../src/bigmod.cc
14
15    ## as.big[zq]() need package dynloaded :
16    gmpEnv <- parent.env(environment())
17    gmpEnv$ NA_bigz_ <- as.bigz(NA)
18    gmpEnv$ NA_bigq_ <- as.bigq(NA)
19    invisible()
20}
21
22
23