1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
if(FALSE) {
.First.lib <-
function(libname, pkgname)
{
library.dynam("XML", pkgname, libname)
if(.useNamespacesInXMLPackage && exists("setMethod")) {
.InitSAXMethods()
}
# Set the error handlers to our local ones.
.C("RSXML_setErrorHandlers", PACKAGE = "XML")
}
}
.onLoad =
function(libname, pkgname)
{
# Added by Uwe Ligges.
if(.Platform$OS.type == "windows"){
fixPath = base::normalizePath
temp <- Sys.getenv("PATH")
Sys.setenv("PATH" = paste(fixPath(file.path(libname, pkgname, "libs")),
file.path(Sys.getenv("R_HOME"), "modules", fsep="\\"), temp, sep=";"))
on.exit(Sys.setenv(PATH = temp))
}
library.dynam("XML", pkgname, libname)
if(exists("setMethod")) {
# .InitSAXMethods()
}
# Set the error handlers to our local ones.
.C("RSXML_setErrorHandlers", PACKAGE = "XML")
}
.onUnload <- function (libpath)
{
library.dynam.unload("XML", libpath)
}
if(FALSE) {
.Call =
function(name, ...)
{
base::.Call(name, ..., PACKAGE = "XML")
}
.C =
function(name, ...)
{
base::.C(name, ..., PACKAGE = "XML")
}
}
#
# Copyright (c) 1998, 1999 The Omega Project for Statistical Computing.
# All rights reserved.#
|
