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 * Copyright 2008 Sun Microsystems, Inc. All rights reserved. 23 * Use is subject to license terms. 24 * 25 * This D script is used as an example in the Solaris Dynamic Tracing Guide 26 * wiki in the "ip Provider" Chapter. 27 * 28 * The full text of the this chapter may be found here: 29 * 30 * http://wikis.sun.com/display/DTrace/ip+Provider 31 * 32 * On machines that have DTrace installed, this script is available as 33 * ipproto.d in /usr/demo/dtrace, a directory that contains all D scripts 34 * used in the Solaris Dynamic Tracing Guide. A table of the scripts and their 35 * corresponding chapters may be found here: 36 * 37 * file:///usr/demo/dtrace/index.html 38 */ 39 40 #pragma D option quiet 41 42 dtrace:::BEGIN 43 { 44 printf("Tracing... Hit Ctrl-C to end.\n"); 45 } 46 47 ip:::send, 48 ip:::receive 49 { 50 this->protostr = args[2]->ip_ver == 4 ? 51 args[4]->ipv4_protostr : args[5]->ipv6_nextstr; 52 @num[args[2]->ip_saddr, args[2]->ip_daddr, this->protostr] = count(); 53 } 54 55 dtrace:::END 56 { 57 printf(" %-28s %-28s %6s %8s\n", "SADDR", "DADDR", "PROTO", "COUNT"); 58 printa(" %-28s %-28s %6s %@8d\n", @num); 59 } 60