hints/catamount.sh

   1 #
   2 # Hints for the Cray XT4 Catamount/Qk system:
   3 # cross-compilation host is a SuSE x86_64-linux,
   4 # execution at the target with the 'yod' utility,
   5 # linux.sh will run this hints file when necessary.
   6 #
   7 # cc.sh: compiles the code with the cross-compiler, patches main/exit/_exit
   8 # (and traps signals) to be wrappers that echo the exit code.
   9 #
  10 # run.sh: runs the executable with yod and collects the exit status,
  11 # and exits with that status.
  12 #
  13 # You probably should do the compilation in non-Lustre filesystem
  14 # because Lustre does not support all the POSIX system calls, which may
  15 # cause weird errors during the Perl build:
  16 # 1182003549.604836:3-24:(super.c:1516:llu_iop_fcntl()): unsupported fcntl cmd 2
  17 #
  18 # As of 2007-Jun (pre-5.9.5) miniperl and libperl.a can be successfully built;
  19 # building any extensions would be hard since Perl cannot run anything
  20 # external (which breaks MakeMaker, and confuses ext/util/make_ext).
  21 #
  22 # To build libperl.a (which also gets miniperl built):
  23 #
  24 #   sh Configure -des -Dusedevel
  25 #   make libperl.a
  26 #
  27 # The -Dusedevel is required for Perl 5.9, it is not required for Perl 5.10
  28 # sources, once they come out.  You will need to have the run.sh execution
  29 # wrapper around (it gets created in the Perl build directory) if you want to
  30 # run the miniperl in the XT4.  It collects the exit status (note that yod
  31 # is run with "-sz 1", so only one instance is run), and possible crash status.
  32 # For example:
  33 #
  34 #  sh run.sh ./miniperl -le 'print 42'
  35 #
  36
  37 case "$prefix" in
  38 '') prefix=/opt/perl-catamount ;;
  39 esac
  40 cat >&4 <<__EOF1__
  41 ***
  42 *** You seem to be compiling in Linux for the Catamount/Qk environment.
  43 *** I'm therefore not going to install perl as /usr/bin/perl.
  44 *** Perl will be installed under $prefix.
  45 ***
  46 __EOF1__
  47
  48 archname='x86_64-catamount'
  49 archobjs='cata.o'
  50 d_mmap='undef'
  51 d_setlocale='undef' # There is setlocale() but no locales.
  52 d_vprintf='define'
  53 hintfile='catamount'
  54 i_arpainet='undef'
  55 i_db='undef'
  56 i_netdb='undef'
  57 i_niin='undef'
  58 incpth=' '
  59 installusrbinperl='undef'
  60 libswanted="m crypt c"
  61 libpth=' '
  62 locincpth=''
  63 onlyextensions='Fcntl' # Not that we can build this, really.
  64 osname='catamount'
  65 procselfexe='undef'
  66 usedl='undef'
  67 useithreads='undef'
  68 uselargefiles='define'
  69 usenm='undef'
  70 usethreads='undef'
  71 use64bitall='define'
  72
  73 BUILD=$PWD
  74
  75 case "`yod -Version 2>&1`" in
  76 Red*) ;; # E.g. "Red Storm Protocol Release 2.1.0"
  77 *) echo >&4 "Could not find 'yod', aborting."
  78    exit 1 ;;
  79 esac
  80 run=$BUILD/run.sh
  81 cat > $run <<'__EOF2__'
  82 #!/bin/sh
  83 #
  84 # $run
  85 #
  86 yod -sz 1 "$@" 2> .yod$$e > .yod$$o
  87 status=`awk '/^cata: exe .* pid [0-9][0-9]* (main|exit|_exit) [0-9][0-9]*$/ {print $NF}' .yod$$o|tail -1`
  88 grep -v "sz is 1" .yod$$e
  89 grep -v "^cata: exe .* pid [0-9][0-9]* " .yod$$o
  90 grep "^cata: exe .* signal " .yod$$o
  91 rm -f .yod$$o .yod$$e
  92 exit $status
  93 __EOF2__
  94 chmod 755 $run
  95 case "`cc -V 2>&1`" in
  96 *catamount*) ;; # E.g. "/opt/xt-pe/1.5.41/bin/snos64/cc: INFO: catamount target is being used"
  97 *) echo "Could not find 'cc' for catamount, aborting."
  98    exit 1 ;;
  99 esac
 100
 101 cc=$BUILD/cc.sh
 102 cat > $cc <<__EOF3a__
 103 #!/bin/sh
 104 #
 105 # $0
 106 #
 107 # This is essentially a frontend driver for the Catamount cc.
 108 # We arrange for (1) the main(), exit(), _exit() being wrapped (cpp-defined)
 109 # catamain(), cataexit(), and _cataexit() (2) the actual main() etc. are in
 110 # cata.c, and cata.o is linked in when needed (3) signals being caught
 111 # All this mostly for being able to catch the exit status (or crash cause).
 112 #
 113 argv=''
 114 srco=''
 115 srct=''
 116 exe=''
 117 defs='-Dmain=catamain -Dexit=cataexit -D_exit=_cataexit'
 118 argv=''
 119 BUILD=/wrk/jhi/perl-5.9.x@31393+cata
 120 __EOF3a__
 121 cat >> $cc <<'__EOF3b__'
 122 case "$1" in
 123 --cata_o) ;;
 124 *) if test ! -f cata.o
 125    then
 126      if test ! -f cata.c
 127      then
 128        if test -f ../cata.c # If compiling in UU during Configure.
 129        then
 130          cp ../cata.c cata.c
 131          cp ../cata.h cata.h
 132        fi
 133      fi
 134      $0 --cata_o -c cata.c || exit 1
 135    fi
 136    ;;
 137 esac
 138 while test $# -ne 0
 139 do
 140   i=$1
 141   shift
 142   case "$i" in
 143   --cata_o) ;;
 144   *.c)
 145     argv="$argv $defs"
 146     defs=""
 147     if test ! -f $i
 148     then
 149       echo "$0: $i: No such file or directory"
 150       exit 1
 151     fi
 152     j=$i$$.c
 153     rm -f $j
 154     if grep -q -s '#include "cata.h"' $i
 155     then
 156       :
 157     else
 158       cat >>$j<<__EOF4__
 159 #include "cata.h"
 160 # 1 "$i"
 161 __EOF4__
 162     fi
 163     cat $i >>$j
 164     if grep -q -s 'int main()' $i
 165     then
 166       argv="$argv -Dmain0"
 167     else
 168       if grep -q -s 'int main([^,]*,[^,]*)' $i
 169       then
 170         argv="$argv -Dmain2"
 171       else
 172         if grep -q -s 'int main([^,]*,[^,]*,[^,]*)' $i
 173         then
 174           argv="$argv -Dmain3"
 175         fi
 176       fi
 177     fi
 178     argv="$argv $j"
 179     srct="$j"
 180     srco="$i"
 181     ;;
 182   *.o)
 183     if test ! -f "$i"
 184     then
 185       c=$(echo $i|sed 's/\.o$/.c/')
 186       $0 -c $c || exit 1
 187     fi
 188     argv="$argv $i"
 189     ;;
 190   -o)
 191     exe="$1"
 192     argv="$argv -o $exe -Dargv0=$exe"
 193     shift
 194     ;;
 195   *)
 196     argv="$argv $i"
 197     ;;
 198   esac
 199 done
 200 case "$exe" in
 201 '') ;;
 202 *) case "$argv" in
 203    *cata.o*) ;;
 204    *) argv="$argv cata.o" ;;
 205    esac
 206    ;;
 207 esac
 208 cc -I$BUILD $argv 2> .cc$$e > .cc$$o
 209 status=$?
 210 egrep -v 'catamount target|'$$'\.c:$' .cc$$e 1>&2
 211 case "`grep "is not implemented" .cc$$e`" in
 212 *"will always fail"*) status=1 ;;
 213 esac
 214 cat .cc$$o
 215 rm -f .cc$$o
 216 case "$status" in
 217 0) rm -f .cc$$e $srct
 218    ;;
 219 esac
 220 objt=`echo $srct|sed -e 's/\.c$/.o/'`
 221 objo=`echo $srco|sed -e 's/\.c$/.o/'`
 222 if test -n "$objt" -a -f "$objt"
 223 then
 224   mv -f $objt $objo
 225 fi
 226 exit $status
 227 __EOF3b__
 228 chmod 755 $cc
 229
 230 cat >cata.h<<__EOF6__
 231 #ifndef CATA_H
 232 #define CATA_H
 233 void cataexit(int status);
 234 void _cataexit(int status);
 235 void catasigsetup();
 236 void catasighandle(int signum);
 237 #ifdef main0
 238 int catamain();
 239 #else
 240 #ifdef main2
 241 int main(int argc, char **argv);
 242 #else
 243 int main(int argc, char **argv, char **env);
 244 #endif
 245 #endif
 246 #endif
 247 __EOF6__
 248
 249 cat >cata.c<<__EOF7__
 250 #include <stdio.h>
 251 #include <signal.h>
 252 #undef printf
 253 #undef main
 254 #undef exit
 255 #undef _exit
 256 #include "cata.h"
 257 #ifndef STRINGIFY
 258 #define STRINGIFY(a) #a
 259 #endif
 260 #ifdef argv0
 261 #define ARGV0 STRINGIFY(argv0)
 262 #else
 263 static char* argv0;
 264 #define ARGV0 argv0
 265 #endif
 266 void cataexit(int status) {
 267   printf("cata: exe %s pid %d exit %d\n", ARGV0, getpid(), status);
 268   exit(status);
 269 }
 270 void _cataexit(int status) {
 271   printf("cata: exe %s pid %d _exit %d\n", ARGV0, getpid(), status);
 272   _exit(status);
 273 }
 274 void catasighandle(int signum) {
 275   int core = 0;
 276   printf("cata: exe %s pid %d signal %d\n", ARGV0, getpid(), signum);
 277   switch (signum) {
 278   case SIGQUIT:
 279   case SIGILL:
 280   case SIGTRAP:
 281   case SIGABRT:
 282   case SIGBUS:
 283   case SIGSEGV:
 284   case SIGXCPU:
 285   case SIGXFSZ:
 286     core = 0200;
 287     break;
 288   default:
 289     break;
 290   }
 291   cataexit(core << 8 | signum);
 292 }
 293 void catasigsetup() {
 294   signal(SIGHUP, catasighandle);
 295   signal(SIGINT, catasighandle);
 296   signal(SIGQUIT, catasighandle);
 297   signal(SIGILL, catasighandle);
 298   signal(SIGTRAP, catasighandle);
 299   signal(SIGABRT, catasighandle);
 300   signal(SIGIOT, catasighandle);
 301   /* KILL */
 302   signal(SIGBUS, catasighandle);
 303   signal(SIGFPE, catasighandle);
 304   signal(SIGUSR1, catasighandle);
 305   signal(SIGUSR2, catasighandle);
 306   signal(SIGSEGV, catasighandle);
 307   signal(SIGPIPE, catasighandle);
 308   signal(SIGALRM, catasighandle);
 309   signal(SIGTERM, catasighandle);
 310   signal(SIGSTKFLT, catasighandle);
 311   signal(SIGCHLD, catasighandle);
 312   signal(SIGCONT, catasighandle);
 313   /* STOP */
 314   signal(SIGTSTP, catasighandle);
 315   signal(SIGTTIN, catasighandle);
 316   signal(SIGTTOU, catasighandle);
 317   signal(SIGURG, catasighandle);
 318   signal(SIGXCPU, catasighandle);
 319   signal(SIGXFSZ, catasighandle);
 320   signal(SIGVTALRM, catasighandle);
 321   signal(SIGPROF, catasighandle);
 322   signal(SIGWINCH, catasighandle);
 323   signal(SIGIO, catasighandle);
 324   signal(SIGPWR, catasighandle);
 325   signal(SIGSYS, catasighandle);
 326 }
 327 int main(int argc, char *argv[], char *envv[]) {
 328   int status;
 329 #ifndef argv0
 330   argv0 = argv[0];
 331 #endif
 332   catasigsetup();
 333   status =
 334 #ifdef main0
 335     catamain();
 336 #else
 337 #ifdef main2
 338     catamain(argc, argv);
 339 #else
 340     catamain(argc, argv, envv);
 341 #endif
 342 #endif
 343   printf("cata: exe %s pid %d main %d\n", ARGV0, getpid(), status);
 344   return status;
 345 }
 346 __EOF7__
 347
 348 echo "Faking DynaLoader"
 349 touch DynaLoader.o # Oh, the agony.
 350
 351 # That's it.