The R Project SVN R

Rev

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

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