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