useDynLib(Matrix, .registration=TRUE)

## Import non-base functions we need explicitly,
## notably for which we define methods:
importFrom("lattice", levelplot)
importFrom("graphics", image)
importFrom("utils", head, tail)
importFrom("stats", cov2cor)
importFrom("grid", grid.rect, gpar, grob)

## Currently, group generics need to be explicitly imported (Bug?):
importFrom("methods", Arith, Compare, Logic, Math, Math2, Summary, Complex)

## Generics and functions defined in this package
export("Cholesky",
       "Diagonal",
       "Hilbert",
       "Matrix",
       "spMatrix",
       "Schur",
       "band",
       "bdiag",
       "colMeans", "colSums", ## these needed a "..." added
       "rowMeans", "rowSums",
       "drop0",
       "expand",
       "expm",
       "facmul",
#	 "isTriangular",
#	 "isDiagonal",
       "lu",
       "norm",
       "nearPD",
       "nnzero",
       "printSpMatrix",
       "rcond",
       "readHB",
       "readMM",
       "xtabs",
       "tcrossprod",
       "tril",
       "triu",
       "unpack",
#        "writeHB",
       "writeMM"
       )

## substitute for using  cbind() / rbind()
export("cBind",
       "rBind")

## workaround S4-Group(generic|method) quirk: R/AllGeneric.R
## needs setGeneric(*, group=) and this for all non-Primitives :

## "Math"

if(getRversion() < "2.6.0" || R.version$`svn rev` < 42093) {
    ## these are not yet primitive
    export("log",
           "gamma",
           "lgamma")
}

if(!is.primitive(round)) {
export(
       ## "Math2"
       "round",
       "signif")
}

if(!is.primitive(max)) {
export(
       ## "Summary"
       "max",
       "min",
       "range",
       "prod",
       "sum",
       "any",
       "all")
}

exportClasses(
	      "index",
## LOGIC      "logic",
	      "replValue", # if we don't export it, things fail in dispatch
	      "atomicVector",

	      ## --- 'Matrix' mother and all its daughters : ---------------
	      "Matrix",
	      ## also intermediate `virtual' ones:
	      "dMatrix",
	      "lMatrix",
	      "nMatrix",
	      ## not yet used, but as sub-classes;
	      ## must provide them for 'hierarchy-analysis':
	      "iMatrix",
	      "zMatrix",

	      "denseMatrix",
	      "sparseMatrix",

	      "compMatrix",
	      "diagonalMatrix",
	      "generalMatrix",
	      "symmetricMatrix",
	      "triangularMatrix",

	      "dsparseMatrix",
	      "lsparseMatrix",
	      "nsparseMatrix",
	      "TsparseMatrix",
	      "CsparseMatrix",
	      "RsparseMatrix",
	      "ddenseMatrix",
	      "ldenseMatrix",
	      "ndenseMatrix",

	      "dgCMatrix",
	      "dgRMatrix",
	      "dgTMatrix",
	      "dgeMatrix",
	      "dpoMatrix",
	      "dppMatrix",
	      "dsCMatrix",
	      "dsRMatrix",
	      "dsTMatrix",
	      "dspMatrix",
	      "dsyMatrix",
	      "dtCMatrix",
	      "dtRMatrix",
	      "dtTMatrix",
	      "dtpMatrix",
	      "dtrMatrix",
	      "ddiMatrix",
	      "lgeMatrix",
	      "lspMatrix",
	      "lsyMatrix",
	      "ltpMatrix",
	      "ltrMatrix",
	      "ldiMatrix",
	      "ngeMatrix",
	      "nspMatrix",
	      "nsyMatrix",
	      "ntpMatrix",
	      "ntrMatrix",

	      "lgCMatrix",
	      "lgRMatrix",
	      "lgTMatrix",
	      "lsCMatrix",
	      "lsRMatrix",
	      "lsTMatrix",
	      "ltCMatrix",
	      "ltRMatrix",
	      "ltTMatrix",

	      "ngCMatrix",
	      "ngRMatrix",
	      "ngTMatrix",
	      "nsCMatrix",
	      "nsRMatrix",
	      "nsTMatrix",
	      "ntCMatrix",
	      "ntRMatrix",
	      "ntTMatrix",

	      "pMatrix",

	      "corMatrix", # unused

	      ## --- inheriting "Matrix", but also factorizations:
	      "BunchKaufman",
	      "pBunchKaufman",
	      "Cholesky",
	      "pCholesky",
	      ## "LDL",

	      ## --- 'MatrixFactorization' mother and all its daughters : ---

	      "MatrixFactorization",

	      "LU",
	      "denseLU",
	      "sparseLU",

	      "CHMfactor",
	      "CHMsuper",
	      "CHMsimpl",
	      "dCHMsuper",
	      "dCHMsimpl",
	      "nCHMsuper",# unused
	      "nCHMsimpl",# unused

	      "sparseQR",

	      "sparseVector", ## --- and daughters : ---
	      "dsparseVector",
	      "isparseVector",
	      "lsparseVector",
	      "nsparseVector",
	      "zsparseVector",
	      "xsparseVector" # the class union of all 'x' lost sparseVector's
	      )


exportMethods(
	      ## Group Methods
	      "Arith",
	      "Compare",
	      "Logic",
	      "Math",
	      "Math2",
	      "Ops",
	      "Summary",

	      "!",
	      "+",# for dgT(Matrix) only
	      "%*%",

	      "all",
	      "any",

	      "Cholesky",
	      "Schur",
	      "as.array",
	      "as.matrix",
	      "as.vector",
	      "as.numeric",
	      "as.logical",
	      "band",
	      "chol",
	      "colMeans",
	      "colSums",
              "cov2cor",
	      "coerce",
	      "crossprod",
	      "determinant",
	      "diag",
	      "diff",
	      "dim",
	      "dim<-",
	      "dimnames",
	      "dimnames<-",
              "drop",
	      "expand",
	      "expm",
	      "head",
	      "image",
	      "isSymmetric",
##	       "isDiagonal",
##	       "isTriangular",
	      "kronecker",
	      "length",
	      "norm",
              "print",# print(x, ...) when show(x) is not sufficient
	      "qr",
	      "qr.R",
	      "qr.qy",
	      "qr.qty",
	      "qr.coef",
	      "qr.resid",
	      "qr.fitted",
	      "rcond",
	      "rowMeans",
	      "rowSums",
	      "show",
	      "solve",
	      "summary",
	      "t",
	      "tail",
	      "tcrossprod",
	      "tril",
	      "triu",
	      "zapsmall"
	      )

exportMethods("rbind2")
exportMethods("cbind2")

S3method(print, sparseSummary)