cddl/contrib/opensolaris/cmd/dtrace/test/tst/common/translators/tst.TranslateSelf.d

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License (the "License").
   6  * You may not use this file except in compliance with the License.
   7  *
   8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9  * or http://www.opensolaris.org/os/licensing.
  10  * See the License for the specific language governing permissions
  11  * and limitations under the License.
  12  *
  13  * When distributing Covered Code, include this CDDL HEADER in each
  14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  15  * If applicable, add the following below this CDDL HEADER, with the
  16  * fields enclosed by brackets "[]" replaced with your own identifying
  17  * information: Portions Copyright [yyyy] [name of copyright owner]
  18  *
  19  * CDDL HEADER END
  20  */
  21
  22 /*
  23  * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
  24  * Use is subject to license terms.
  25  */
  26
  27 #pragma ident   "%Z%%M% %I%     %E% SMI"
  28
  29 /*
  30  * ASSERTION:
  31  * Test the translation of a struct to itself.
  32  *
  33  * SECTION: Translators/ Translator Declarations.
  34  * SECTION: Translators/ Translate operator.
  35  *
  36  *
  37  */
  38
  39 #pragma D option quiet
  40
  41 struct output_struct {
  42         int myi;
  43         char myc;
  44 };
  45
  46 translator struct output_struct < struct output_struct uvar >
  47 {
  48         myi = ((struct output_struct ) uvar).myi;
  49         myc = ((struct output_struct ) uvar).myc;
  50 };
  51
  52 struct output_struct out;
  53 struct output_struct outer;
  54
  55 BEGIN
  56 {
  57         out.myi = 1234;
  58         out.myc = 'a';
  59
  60         printf("Test translation of a struct to itself\n");
  61         outer = xlate < struct output_struct > (out);
  62
  63         printf("outer.myi: %d\t outer.myc: %c\n", outer.myi, outer.myc);
  64 }
  65
  66 BEGIN
  67 /(1234 != outer.myi) || ('a' != outer.myc)/
  68 {
  69         exit(1);
  70 }
  71
  72 BEGIN
  73 /(1234 == outer.myi) && ('a' == outer.myc)/
  74 {
  75         exit(0);
  76 }