The R Project SVN – R – Diff – /trunk/src/scripts/help.links


#! /bin/sh
 
USER_R_HOME="${HOME}/.R"
PKGLIST="${USER_R_HOME}/doc/html/packages.html"
SEARCHINDEX="${USER_R_HOME}/doc/html/search/index.txt"
rm -rf ${USER_R_HOME}
 
dirs="${USER_R_HOME} ${USER_R_HOME}/doc ${USER_R_HOME}/doc/html ${USER_R_HOME}/doc/html/search ${USER_R_HOME}/library"
for d in ${dirs}; do
    mkdir -p ${d}
done
 
for f in ${R_HOME}/doc/html/*; do
    if test -f $f; then
	ln -s ${f} ${USER_R_HOME}/doc/html
    fi
done
 
for f in ${R_HOME}/doc/html/search/*; do
    if test -f $f; then
	ln -s ${f} ${USER_R_HOME}/doc/html/search
    fi
done
 
rm -f ${PKGLIST}
rm -f ${SEARCHINDEX}
cp ${R_HOME}/doc/html/packages-head.html ${PKGLIST}
 
get_unique () {
  if test -r ${1}; then
    x="1"
    while test -r ${1}.${x}; do
      x=`echo "$x+1" | bc`
    done
    echo ${1}.${x}           
  else
    echo $1
  fi
}
     
 
for lib in $*; do
    echo "<P><h3>Packages in ${lib}</h3>" >> ${PKGLIST}
    echo "<P><TABLE width=100%>" >> ${PKGLIST}
    if test -d ${lib}; then
      for pkg in `ls -d ${lib}/* | sed '/CVS$/d; /profile$/d'`; do
	if test -d ${pkg}; then
	    pkgname=`basename ${pkg}`
	    target=`get_unique ${USER_R_HOME}/library/${pkgname}`
	    targetname=`basename ${target}`
	    ln -s ${pkg} ${target}	    
	    if test -r ${pkg}/TITLE; then
		pkgtitle=`cat ${pkg}/TITLE | sed "s/^${pkgname}//"`
	    else
		pkgtitle=""
	    fi
	    echo "<TR ALIGN=LEFT VALIGN=TOP>
		    <TD width=25%><A HREF=\"../../library/${targetname}/html/00Index.html\">
		    ${pkgname}</A><TD>${pkgtitle}</TD></TR>" \
		>> ${PKGLIST}
 
	    cat ${pkg}/CONTENTS | \
	      sed "s/\/library\/${pkgname}\//\/library\/${targetname}\//;" \
	      >> ${SEARCHINDEX}
 
 
	fi
      done
    fi
    echo "</TABLE>" >> ${PKGLIST}
    echo "" >> ${PKGLIST}
done
 
cat ${R_HOME}/doc/html/packages-foot.html >> ${PKGLIST}
ln -s ${R_HOME}/doc/html/R.css ${USER_R_HOME}/library
 
### Local Variables: ***
### mode: sh ***
### sh-indentation: 2 ***
### End: ***

Rev 9940	Rev 10217
1	`#! /bin/sh`	1	`#! /bin/sh`
2		2
3	`USER_R_HOME="${HOME}/.R"`	3	`USER_R_HOME="${HOME}/.R"`
4	`PKGLIST="${USER_R_HOME}/doc/html/packages.html"`	4	`PKGLIST="${USER_R_HOME}/doc/html/packages.html"`
5	`SEARCHINDEX="${USER_R_HOME}/doc/html/search/index.txt"`	5	`SEARCHINDEX="${USER_R_HOME}/doc/html/search/index.txt"`
6	`rm -rf ${USER_R_HOME}`	6	`rm -rf ${USER_R_HOME}`
7		7
8	`dirs="${USER_R_HOME} ${USER_R_HOME}/doc ${USER_R_HOME}/doc/html ${USER_R_HOME}/doc/html/search ${USER_R_HOME}/library"`	8	`dirs="${USER_R_HOME} ${USER_R_HOME}/doc ${USER_R_HOME}/doc/html ${USER_R_HOME}/doc/html/search ${USER_R_HOME}/library"`
9	`for d in ${dirs}; do`	9	`for d in ${dirs}; do`
10	`mkdir -p ${d}`	10	`mkdir -p ${d}`
11	`done`	11	`done`
12		12
13	`for f in ${R_HOME}/doc/html/*; do`	13	`for f in ${R_HOME}/doc/html/*; do`
14	`if test -f $f; then`	14	`if test -f $f; then`
15	`ln -s ${f} ${USER_R_HOME}/doc/html`	15	`ln -s ${f} ${USER_R_HOME}/doc/html`
16	`fi`	16	`fi`
17	`done`	17	`done`
18		18
19	`for f in ${R_HOME}/doc/html/search/*; do`	19	`for f in ${R_HOME}/doc/html/search/*; do`
20	`if test -f $f; then`	20	`if test -f $f; then`
21	`ln -s ${f} ${USER_R_HOME}/doc/html/search`	21	`ln -s ${f} ${USER_R_HOME}/doc/html/search`
22	`fi`	22	`fi`
23	`done`	23	`done`
24		24
25	`rm -f ${PKGLIST}`	25	`rm -f ${PKGLIST}`
26	`rm -f ${SEARCHINDEX}`	26	`rm -f ${SEARCHINDEX}`
27	`cp ${R_HOME}/doc/html/packages-head.html ${PKGLIST}`	27	`cp ${R_HOME}/doc/html/packages-head.html ${PKGLIST}`
28		28
29	`get_unique () {`	29	`get_unique () {`
30	`if test -e ${1}; then`	30	`if test -r ${1}; then`
31	`x="1"`	31	`x="1"`
32	`while test -e ${1}.${x}; do`	32	`while test -r ${1}.${x}; do`
33	x=`echo "$x+1" \| bc`	33	x=`echo "$x+1" \| bc`
34	`done`	34	`done`
35	`echo ${1}.${x}`	35	`echo ${1}.${x}`
36	`else`	36	`else`
37	`echo $1`	37	`echo $1`
38	`fi`	38	`fi`
39	`}`	39	`}`
40		40
41		41
42	`for lib in $*; do`	42	`for lib in $*; do`
43	`echo "<P><h3>Packages in ${lib}</h3>" >> ${PKGLIST}`	43	`echo "<P><h3>Packages in ${lib}</h3>" >> ${PKGLIST}`
44	`echo "<P><TABLE width=100%>" >> ${PKGLIST}`	44	`echo "<P><TABLE width=100%>" >> ${PKGLIST}`
45	`if test -d ${lib}; then`	45	`if test -d ${lib}; then`
46	for pkg in `ls -d ${lib}/* \| sed '/CVS$/d; /profile$/d'`; do	46	for pkg in `ls -d ${lib}/* \| sed '/CVS$/d; /profile$/d'`; do
47	`if test -d ${pkg}; then`	47	`if test -d ${pkg}; then`
48	pkgname=`basename ${pkg}`	48	pkgname=`basename ${pkg}`
49	target=`get_unique ${USER_R_HOME}/library/${pkgname}`	49	target=`get_unique ${USER_R_HOME}/library/${pkgname}`
50	targetname=`basename ${target}`	50	targetname=`basename ${target}`
51	`ln -s ${pkg} ${target}`	51	`ln -s ${pkg} ${target}`
52	`if test -r ${pkg}/TITLE; then`	52	`if test -r ${pkg}/TITLE; then`
53	pkgtitle=`cat ${pkg}/TITLE \| sed "s/^${pkgname}//"`	53	pkgtitle=`cat ${pkg}/TITLE \| sed "s/^${pkgname}//"`
54	`else`	54	`else`
55	`pkgtitle=""`	55	`pkgtitle=""`
56	`fi`	56	`fi`
57	`echo "<TR ALIGN=LEFT VALIGN=TOP>`	57	`echo "<TR ALIGN=LEFT VALIGN=TOP>`
58	`<TD width=25%><A HREF=\"../../library/${targetname}/html/00Index.html\">`	58	`<TD width=25%><A HREF=\"../../library/${targetname}/html/00Index.html\">`
59	`${pkgname}</A><TD>${pkgtitle}</TD></TR>" \`	59	`${pkgname}</A><TD>${pkgtitle}</TD></TR>" \`
60	`>> ${PKGLIST}`	60	`>> ${PKGLIST}`
61		61
62	`cat ${pkg}/CONTENTS \| \`	62	`cat ${pkg}/CONTENTS \| \`
63	`sed "s/\/library\/${pkgname}\//\/library\/${targetname}\//;" \`	63	`sed "s/\/library\/${pkgname}\//\/library\/${targetname}\//;" \`
64	`>> ${SEARCHINDEX}`	64	`>> ${SEARCHINDEX}`
65		65
66		66
67	`fi`	67	`fi`
68	`done`	68	`done`
69	`fi`	69	`fi`
70	`echo "</TABLE>" >> ${PKGLIST}`	70	`echo "</TABLE>" >> ${PKGLIST}`
71	`echo "" >> ${PKGLIST}`	71	`echo "" >> ${PKGLIST}`
72	`done`	72	`done`
73		73
74	`cat ${R_HOME}/doc/html/packages-foot.html >> ${PKGLIST}`	74	`cat ${R_HOME}/doc/html/packages-foot.html >> ${PKGLIST}`
-		75	`ln -s ${R_HOME}/doc/html/R.css ${USER_R_HOME}/library`
75		76
76	`### Local Variables: ***`	77	`### Local Variables: ***`
77	`### mode: sh ***`	78	`### mode: sh ***`
78	`### sh-indentation: 2 ***`	79	`### sh-indentation: 2 ***`
79	`### End: ***`	80	`### End: ***`

The R Project SVN R

(root)/trunk/src/scripts/help.links @ 11368 – Rev 9940 → 10217