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
|
<?xml version="1.0"?>
<!DOCTYPE SSource SYSTEM
"/home/duncan/Projects/org/omegahat/XML/RS/examples/SSource.dtd"
[
<!ENTITY TeX "TeX">
<!ENTITY sgets "<-">
]>
<SSource>
<overview>
</overview>
<function>
<sname>functionIndex</sname>
<selfDoc>
<description>
This function returns the names of the functions that are to
be defined in this file. This allows one to know ahead of time
what functions the file defines and to source specific
functions from this file using the
<!-- How should we link to an argument in an R/S help file -->
<sarg>which</sarg> argument of <sobject>xmlSource</sobject>
</description>
</selfDoc>
<def>
function(file, ...) {
d &sgets; xmlRoot(xmlTreeParse(file, ...))
sapply(d[names(d) == "function"],
function(x) {
if(!is.na(match("sname", names(x))))
xmlValue(x[["sname"]][[1]])
else {
xmlValue(x[[1]][[1]])
}
})
}
</def>
</function>
</SSource>
|
