The R Project SVN R

Rev

Rev 4010 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4010 Rev 4580
1
#!/bin/sh
1
#!/bin/sh
2
#
2
#
3
# ${RHOME}/bin/help
3
# ${R_HOME}/bin/help
4
 
4
 
5
if [ "${1}" = "INDEX" ];
5
if [ "${1}" = "INDEX" ];
6
then
6
then
7
    subject=${2}
7
    subject=${2}
8
    shift 2
8
    shift 2
9
    for index in ${*}
9
    for index in ${*}
10
    do
10
    do
11
	if [ -f ${index} ];
11
	if [ -f ${index} ];
12
	then
12
	then
13
	    file=`grep "^${subject}	" ${index} | cut -f 2`
13
	    file=`grep "^${subject}	" ${index} | cut -f 2`
14
	    if test -n "${file}"
14
	    if test -n "${file}"
15
	    then
15
	    then
16
		echo `dirname ${index}`/${file}
16
		echo `dirname ${index}`/${file}
17
		exit 0
17
		exit 0
18
	    fi
18
	    fi
19
	fi
19
	fi
20
    done    
20
    done    
21
    echo
21
    echo
22
elif [ "${1}" = "PRINT" ];
22
elif [ "${1}" = "PRINT" ];
23
then
23
then
24
    LATEX=${4}
24
    LATEX=${4}
25
    if [ "${LATEX}" = "false" ];
25
    if [ "${LATEX}" = "false" ];
26
    then
26
    then
27
	echo "Cannot print, latex seems to be unavailable"
27
	echo "Cannot print, latex seems to be unavailable"
28
	exit 1
28
	exit 1
29
    fi
29
    fi
30
    DVIPS=${5}
30
    DVIPS=${5}
31
    if [ "${DVIPS}" = "false" ];
31
    if [ "${DVIPS}" = "false" ];
32
    then
32
    then
33
	echo "Cannot print, dvips seems to be unavailable"
33
	echo "Cannot print, dvips seems to be unavailable"
34
	exit 2
34
	exit 2
35
    fi
35
    fi
36
    shift
36
    shift
37
    ODIR=`pwd`
37
    ODIR=`pwd`
38
    cd `dirname ${1}`
38
    cd `dirname ${1}`
39
    ${LATEX} "\\nonstopmode\\input{${1}}" >/dev/null 2>&1
39
    ${LATEX} "\\nonstopmode\\input{${1}}" >/dev/null 2>&1
40
    ${DVIPS} ${1} 2>/dev/null
40
    ${DVIPS} ${1} 2>/dev/null
41
    if test -f ${1}.ps;
41
    if test -f ${1}.ps;
42
    then
42
    then
43
        echo "Saving help page to \`${2}.ps'"
43
        echo "Saving help page to \`${2}.ps'"
44
        mv ${1}.ps ${ODIR}/${2}.ps
44
        mv ${1}.ps ${ODIR}/${2}.ps
45
    fi
45
    fi
46
    rm -f ${1}.aux ${1}.dvi ${1}.log
46
    rm -f ${1}.aux ${1}.dvi ${1}.log
47
fi
47
fi