cddl/contrib/opensolaris/cmd/dtrace/test/tst/common/uctf/tst.chasestrings.ksh

   1 #! /usr/bin/ksh
   2 #
   3 #
   4 # This file and its contents are supplied under the terms of the
   5 # Common Development and Distribution License ("CDDL"), version 1.0.
   6 # You may only use this file in accordance with the terms of version
   7 # 1.0 of the CDDL.
   8 #
   9 # A full copy of the text of the CDDL should have accompanied this
  10 # source.  A copy of the CDDL is also available via the Internet at
  11 # http://www.illumos.org/license/CDDL.
  12 #
  13
  14 #
  15 # Copyright (c) 2013 Joyent, Inc. All rights reserved.
  16 #
  17
  18 #
  19 # This test is checking that we can read members and that pointers inside
  20 # members point to valid data that is intelligible, eg. strings.
  21 #
  22
  23 if [ $# != 1 ]; then
  24         echo expected one argument: '<'dtrace-path'>'
  25         exit 2
  26 fi
  27
  28 dtrace=$1
  29 t="zelda_info_t"
  30 exe="tst.chasestrings.exe"
  31
  32 elfdump "./$exe" | grep -q '.SUNW_ctf'
  33 if [[ $? -ne 0 ]]; then
  34         echo "CTF does not exist in $exe, that's a bug" >&2
  35         exit 1
  36 fi
  37
  38 ./$exe &
  39 pid=$!
  40
  41 $dtrace -qs /dev/stdin <<EOF
  42 pid$pid::has_princess:entry
  43 /next == 0/
  44 {
  45         this->t = (pid$pid\`$t *)(copyin(arg0, sizeof (pid$pid\`$t)));
  46         printf("game: %s, dungeon: %d, villain: %s, zelda: %d\n",
  47             copyinstr((uintptr_t)this->t->zi_gamename), this->t->zi_ndungeons,
  48             copyinstr((uintptr_t)this->t->zi_villain), this->t->zi_haszelda);
  49         next = 1;
  50 }
  51
  52 pid$pid::has_dungeons:entry
  53 /next == 1/
  54 {
  55         this->t = (pid$pid\`$t *)(copyin(arg0, sizeof (pid$pid\`$t)));
  56         printf("game: %s, dungeon: %d, villain: %s, zelda: %d\n",
  57             copyinstr((uintptr_t)this->t->zi_gamename), this->t->zi_ndungeons,
  58             copyinstr((uintptr_t)this->t->zi_villain), this->t->zi_haszelda);
  59         next = 2;
  60 }
  61
  62 pid$pid::has_villain:entry
  63 /next == 2/
  64 {
  65         this->t = (pid$pid\`$t *)(copyin(arg0, sizeof (pid$pid\`$t)));
  66         printf("game: %s, dungeon: %d, villain: %s, zelda: %d\n",
  67             copyinstr((uintptr_t)this->t->zi_gamename), this->t->zi_ndungeons,
  68             copyinstr((uintptr_t)this->t->zi_villain), this->t->zi_haszelda);
  69         exit(0);
  70 }
  71 EOF
  72 rc=$?
  73
  74 kill -9 $pid
  75
  76 exit $rc