1*7c478bd9Sstevel@tonic-gate /* 2*7c478bd9Sstevel@tonic-gate * CDDL HEADER START 3*7c478bd9Sstevel@tonic-gate * 4*7c478bd9Sstevel@tonic-gate * The contents of this file are subject to the terms of the 5*7c478bd9Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only 6*7c478bd9Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance 7*7c478bd9Sstevel@tonic-gate * with the License. 8*7c478bd9Sstevel@tonic-gate * 9*7c478bd9Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 10*7c478bd9Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing. 11*7c478bd9Sstevel@tonic-gate * See the License for the specific language governing permissions 12*7c478bd9Sstevel@tonic-gate * and limitations under the License. 13*7c478bd9Sstevel@tonic-gate * 14*7c478bd9Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each 15*7c478bd9Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 16*7c478bd9Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the 17*7c478bd9Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying 18*7c478bd9Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner] 19*7c478bd9Sstevel@tonic-gate * 20*7c478bd9Sstevel@tonic-gate * CDDL HEADER END 21*7c478bd9Sstevel@tonic-gate */ 22*7c478bd9Sstevel@tonic-gate /* 23*7c478bd9Sstevel@tonic-gate * Copyright 2002 Sun Microsystems, Inc. All rights reserved. 24*7c478bd9Sstevel@tonic-gate * Use is subject to license terms. 25*7c478bd9Sstevel@tonic-gate */ 26*7c478bd9Sstevel@tonic-gate 27*7c478bd9Sstevel@tonic-gate #pragma ident "%Z%%M% %I% %E% SMI" 28*7c478bd9Sstevel@tonic-gate 29*7c478bd9Sstevel@tonic-gate /* 30*7c478bd9Sstevel@tonic-gate * Used to dump enums in forth mode. 31*7c478bd9Sstevel@tonic-gate * 32*7c478bd9Sstevel@tonic-gate * Enums are simple - there is no member-specific mode for them. We get 33*7c478bd9Sstevel@tonic-gate * the header op at the start, and we save the type id for dumping later. 34*7c478bd9Sstevel@tonic-gate * If we get the members op, we've been invoked in member-specific mode, 35*7c478bd9Sstevel@tonic-gate * which is a syntax error for an enum. When we ge the trailer op, we 36*7c478bd9Sstevel@tonic-gate * dump all of the members and the trailer thus concluding the enum. 37*7c478bd9Sstevel@tonic-gate */ 38*7c478bd9Sstevel@tonic-gate 39*7c478bd9Sstevel@tonic-gate #include "forth.h" 40*7c478bd9Sstevel@tonic-gate 41*7c478bd9Sstevel@tonic-gate static ctf_id_t fth_enum_curtid; 42*7c478bd9Sstevel@tonic-gate static int fth_enum_curnmems; 43*7c478bd9Sstevel@tonic-gate 44*7c478bd9Sstevel@tonic-gate static int 45*7c478bd9Sstevel@tonic-gate fth_enum_header(ctf_id_t tid) 46*7c478bd9Sstevel@tonic-gate { 47*7c478bd9Sstevel@tonic-gate fth_enum_curtid = tid; 48*7c478bd9Sstevel@tonic-gate 49*7c478bd9Sstevel@tonic-gate (void) fprintf(out, "\n"); 50*7c478bd9Sstevel@tonic-gate 51*7c478bd9Sstevel@tonic-gate return (0); 52*7c478bd9Sstevel@tonic-gate } 53*7c478bd9Sstevel@tonic-gate 54*7c478bd9Sstevel@tonic-gate /*ARGSUSED*/ 55*7c478bd9Sstevel@tonic-gate static int 56*7c478bd9Sstevel@tonic-gate fth_enum_members(char *memfilter, char *format) 57*7c478bd9Sstevel@tonic-gate { 58*7c478bd9Sstevel@tonic-gate return (parse_warn("Member-specific mode cannot be used for " 59*7c478bd9Sstevel@tonic-gate " enums")); 60*7c478bd9Sstevel@tonic-gate } 61*7c478bd9Sstevel@tonic-gate 62*7c478bd9Sstevel@tonic-gate /*ARGSUSED2*/ 63*7c478bd9Sstevel@tonic-gate static int 64*7c478bd9Sstevel@tonic-gate fth_enum_cb(const char *name, int value, void *arg) 65*7c478bd9Sstevel@tonic-gate { 66*7c478bd9Sstevel@tonic-gate (void) fprintf(out, "here ,\" %s\" %x\n", name, value); 67*7c478bd9Sstevel@tonic-gate fth_enum_curnmems++; 68*7c478bd9Sstevel@tonic-gate 69*7c478bd9Sstevel@tonic-gate return (0); 70*7c478bd9Sstevel@tonic-gate } 71*7c478bd9Sstevel@tonic-gate 72*7c478bd9Sstevel@tonic-gate static int 73*7c478bd9Sstevel@tonic-gate fth_enum_trailer(void) 74*7c478bd9Sstevel@tonic-gate { 75*7c478bd9Sstevel@tonic-gate if (ctf_enum_iter(ctf, fth_enum_curtid, fth_enum_cb, NULL) != 0) 76*7c478bd9Sstevel@tonic-gate return (-1); 77*7c478bd9Sstevel@tonic-gate 78*7c478bd9Sstevel@tonic-gate (void) fprintf(out, "%x c-enum .%s\n", fth_enum_curnmems, fth_curtype); 79*7c478bd9Sstevel@tonic-gate 80*7c478bd9Sstevel@tonic-gate fth_enum_curnmems = 0; 81*7c478bd9Sstevel@tonic-gate 82*7c478bd9Sstevel@tonic-gate return (0); 83*7c478bd9Sstevel@tonic-gate } 84*7c478bd9Sstevel@tonic-gate 85*7c478bd9Sstevel@tonic-gate fth_type_ops_t fth_enum_ops = { 86*7c478bd9Sstevel@tonic-gate fth_enum_header, 87*7c478bd9Sstevel@tonic-gate fth_enum_members, 88*7c478bd9Sstevel@tonic-gate fth_enum_trailer 89*7c478bd9Sstevel@tonic-gate }; 90