Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | #! /bin/sh |
2 | # ========== Copyright Header Begin ========================================== | |
3 | # | |
4 | # OpenSPARC T1 Processor File: sims | |
5 | # Copyright (c) 2006 Sun Microsystems, Inc. All Rights Reserved. | |
6 | # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES. | |
7 | # | |
8 | # The above named program is free software; you can redistribute it and/or | |
9 | # modify it under the terms of the GNU General Public | |
10 | # License version 2 as published by the Free Software Foundation. | |
11 | # | |
12 | # The above named program is distributed in the hope that it will be | |
13 | # useful, but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
15 | # General Public License for more details. | |
16 | # | |
17 | # You should have received a copy of the GNU General Public | |
18 | # License along with this work; if not, write to the Free Software | |
19 | # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. | |
20 | # | |
21 | # ========== Copyright Header End ============================================ | |
22 | # | |
23 | # SCCS ID: @(#).local_tool_wrapper 1.1 02/03/99 | |
24 | # | |
25 | # Cloned from .common_tool_wrapper | |
26 | ||
27 | loginfo () { | |
28 | echo "DATE: "`date` | |
29 | echo "WRAPPER: $TRE_PROJECT/local_tool_wrapper" | |
30 | echo "USER: "$user | |
31 | echo "HOST: "`uname -n` | |
32 | echo "SYS: "`uname -s` `uname -r` | |
33 | echo "PWD: "`pwd` | |
34 | echo "ARGV: "$ARGV | |
35 | echo "TOOL: "$tool | |
36 | echo "VERSION: "$version | |
37 | echo "TRE_SEARCH: "$TRE_SEARCH | |
38 | echo "TRE_ENTRY: "$TRE_ENTRY | |
39 | } | |
40 | ||
41 | mailinfo () { | |
42 | echo To: $1 | |
43 | echo Subject: TRE_LOG | |
44 | echo "#" | |
45 | loginfo | |
46 | } | |
47 | ||
48 | mailerr () { | |
49 | echo "To: $1" | |
50 | echo "Subject: TRE ERROR" | |
51 | echo "#" | |
52 | echo "ERROR: $2" | |
53 | loginfo | |
54 | } | |
55 | ||
56 | log () { | |
57 | # Log to TRE_LOG if it is set properly. | |
58 | # It is STRONGLY recommended that TRE_LOG be an e-mail address | |
59 | # in order to avoid problems with several people simultanously | |
60 | # writing to the same file. | |
61 | # TRE_LOG must be set, but it can be broken. | |
62 | # TRE_ULOG is optional, for users who want their own logging. | |
63 | if [ ! -z "$TRE_LOG_ENABLED" ] ; then | |
64 | if [ ! -z "$TRE_LOG" ] ; then | |
65 | # Check first if TRE_LOG is a file (this is cheap). | |
66 | if [ -f $TRE_LOG -a -w $TRE_LOG ] ; then | |
67 | echo "#" >> $TRE_LOG | |
68 | loginfo >> $TRE_LOG | |
69 | elif /usr/lib/sendmail -bv $TRE_LOG 1>&- 2>&- ; then | |
70 | mailinfo $TRE_LOG | /usr/lib/sendmail $TRE_LOG | |
71 | else | |
72 | mailerr $user "Can't log to TRE_LOG=$TRE_LOG. Fix environment." | /usr/lib/sendmail $user | |
73 | fi | |
74 | else | |
75 | die "TRE_LOG environment variable is not set." | |
76 | fi | |
77 | fi | |
78 | # TRE_ULOG is optional user log. EMAIL address is recommended. | |
79 | if [ ! -z "$TRE_ULOG" ] ; then | |
80 | # Check first if TRE_ULOG is a file (this is cheap). | |
81 | if [ -f $TRE_ULOG -a -w $TRE_ULOG ] ; then | |
82 | echo "#" >> $TRE_ULOG | |
83 | loginfo >> $TRE_ULOG | |
84 | elif /usr/lib/sendmail -bv $TRE_ULOG 1>&- 2>&- ; then | |
85 | mailinfo $TRE_ULOG | /usr/lib/sendmail $TRE_ULOG | |
86 | else | |
87 | mailerr $user "Can't log to TRE_ULOG=$TRE_ULOG. Fix environment." | /usr/lib/sendmail $user | |
88 | fi | |
89 | fi | |
90 | } | |
91 | ||
92 | die () { | |
93 | message="$1" | |
94 | echo "$tool -> .local_tool_wrapper: $message Exiting ..." | |
95 | exit 1 | |
96 | } | |
97 | ||
98 | ############################ main ############################## | |
99 | ||
100 | tool=`basename $0` | |
101 | ARGV="$*" | |
102 | TRE_PROJECT=$DV_ROOT | |
103 | ||
104 | if [ -z "$TRE_PROJECT" ]; then | |
105 | die "TRE_PROJECT not defined" | |
106 | fi | |
107 | ||
108 | TRE_ROOT=$TRE_PROJECT/tools/src | |
109 | ||
110 | ### Verify TRE_SEARCH and TRE_ENTRY are defined and non-null | |
111 | ||
112 | if [ -z "$TRE_SEARCH" ]; then | |
113 | die "TRE_SEARCH not defined" | |
114 | fi | |
115 | if [ -z "$TRE_ENTRY" ]; then | |
116 | die "TRE_ENTRY not defined" | |
117 | fi | |
118 | ||
119 | ### Get version, based on tool invoked, and $TRE_ENTRY | |
120 | ||
121 | version=`configsrch $tool $TRE_ENTRY 2>&1` | |
122 | stat=$? | |
123 | if [ $stat != 0 ] ; then | |
124 | die "configsrch returned error code $stat" | |
125 | fi | |
126 | ||
127 | ### Verify configsrch delivered a non-null version | |
128 | ||
129 | if [ -z "$version" ]; then | |
130 | die "No version set by configsrch" | |
131 | fi | |
132 | ||
133 | ### execute | |
134 | ||
135 | ### Assemble do-file name. If it's there, execute and test status. | |
136 | ||
137 | exe=$TRE_ROOT/$tool,$version.do | |
138 | if [ -x $exe ]; then | |
139 | $exe | |
140 | dostat=$? | |
141 | if [ $? != 0 ] ; then | |
142 | die "Error return from do file" | |
143 | fi | |
144 | fi | |
145 | ||
146 | OS=`uname -s` | |
147 | if [ $OS = "SunOS" ] ; then | |
148 | user=`/usr/ucb/whoami` | |
149 | CPU=`uname -p` | |
150 | fi | |
151 | if [ $OS = "Linux" ]; then | |
152 | user=`/usr/bin/whoami` | |
153 | CPU=`uname -m` | |
154 | fi | |
155 | ||
156 | if [ -z "$PERL_VER" ] ; then | |
157 | if [ -z "$PERL5OPT" ] ; then | |
158 | PERL5OPT="-I$PERL_MODULE_BASE -I$PERL_MODULE_BASE/$OS-$CPU" | |
159 | else | |
160 | PERL5OPT="-I$PERL_MODULE_BASE -I$PERL_MODULE_BASE/$OS-$CPU $PERL5OPT" | |
161 | fi | |
162 | else | |
163 | if [ -z "$PERL5OPT" ] ; then | |
164 | PERL5OPT="-I$PERL_MODULE_BASE -I$PERL_MODULE_BASE/$OS-$CPU -I$PERL5_PATH/$PERL_VER -I$PERL5_PATH/$PERL_VER/sun4-solaris" | |
165 | else | |
166 | PERL5OPT="-I$PERL_MODULE_BASE -I$PERL_MODULE_BASE/$OS-$CPU -I$PERL5_PATH/$PERL_VER -I$PERL5_PATH/$PERL_VER/sun4-solaris $PERL5OPT" | |
167 | fi | |
168 | fi | |
169 | export PERL5OPT | |
170 | ||
171 | exe=$TRE_ROOT/$tool,$version | |
172 | if [ -x $exe ]; then | |
173 | exec $PERL_PATH/bin/perl $exe "$@" | |
174 | else | |
175 | die "executable $exe not found!" | |
176 | fi |