11a457459SJohn-Mark Gurney#!/usr/sbin/dtrace -s 21a457459SJohn-Mark Gurney/*- 31a457459SJohn-Mark Gurney * Copyright 2014 John-Mark Gurney. 41a457459SJohn-Mark Gurney * All rights reserved. 51a457459SJohn-Mark Gurney * 61a457459SJohn-Mark Gurney * Redistribution and use in source and binary forms, with or without 71a457459SJohn-Mark Gurney * modification, are permitted provided that the following conditions 81a457459SJohn-Mark Gurney * are met: 91a457459SJohn-Mark Gurney * 1. Redistributions of source code must retain the above copyright 101a457459SJohn-Mark Gurney * notice, this list of conditions and the following disclaimer. 111a457459SJohn-Mark Gurney * 2. Redistributions in binary form must reproduce the above copyright 121a457459SJohn-Mark Gurney * notice, this list of conditions and the following disclaimer in the 131a457459SJohn-Mark Gurney * documentation and/or other materials provided with the distribution. 141a457459SJohn-Mark Gurney * 151a457459SJohn-Mark Gurney * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 161a457459SJohn-Mark Gurney * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 171a457459SJohn-Mark Gurney * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 181a457459SJohn-Mark Gurney * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 191a457459SJohn-Mark Gurney * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 201a457459SJohn-Mark Gurney * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 211a457459SJohn-Mark Gurney * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 221a457459SJohn-Mark Gurney * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 231a457459SJohn-Mark Gurney * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 241a457459SJohn-Mark Gurney * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 251a457459SJohn-Mark Gurney * SUCH DAMAGE. 261a457459SJohn-Mark Gurney * 271a457459SJohn-Mark Gurney */ 281a457459SJohn-Mark Gurney 291a457459SJohn-Mark Gurney#pragma D option quiet 301a457459SJohn-Mark Gurney 311a457459SJohn-Mark Gurney/* from http://www.mail-archive.com/dtrace-discuss@opensolaris.org/msg03755.html */ 321a457459SJohn-Mark Gurney#pragma D option aggsize=8m 331a457459SJohn-Mark Gurney#pragma D option bufsize=16m 341a457459SJohn-Mark Gurney#pragma D option dynvarsize=32m 351a457459SJohn-Mark Gurney/* 361a457459SJohn-Mark Gurney#pragma D option aggrate=0 371a457459SJohn-Mark Gurney#pragma D option cleanrate=50Hz 381a457459SJohn-Mark Gurney*/ 391a457459SJohn-Mark Gurney 401a457459SJohn-Mark Gurneydtrace:::BEGIN 411a457459SJohn-Mark Gurney{ 421a457459SJohn-Mark Gurney printf("Tracing... Hit Ctrl-C to end.\n"); 431a457459SJohn-Mark Gurney dstart = timestamp; 441a457459SJohn-Mark Gurney} 451a457459SJohn-Mark Gurney 461a457459SJohn-Mark Gurneyio:::start 471a457459SJohn-Mark Gurney{ 481a457459SJohn-Mark Gurney start_time[arg0] = timestamp; 491a457459SJohn-Mark Gurney} 501a457459SJohn-Mark Gurney 511a457459SJohn-Mark Gurneyio:::done 521a457459SJohn-Mark Gurney/this->start = start_time[arg0]/ 531a457459SJohn-Mark Gurney{ 541a457459SJohn-Mark Gurney this->delta = (timestamp - this->start) / 1000; 551a457459SJohn-Mark Gurney @q[args[1]->device_name, args[1]->unit_number] = 561a457459SJohn-Mark Gurney lquantize(this->delta, 4000, 80000, 4000); 571a457459SJohn-Mark Gurney @max[args[1]->device_name, args[1]->unit_number] = max(this->delta); 581a457459SJohn-Mark Gurney @avg[args[1]->device_name, args[1]->unit_number] = avg(this->delta); 591a457459SJohn-Mark Gurney @stddev[args[1]->device_name, args[1]->unit_number] = stddev(this->delta); 601a457459SJohn-Mark Gurney start_time[arg0] = 0; 611a457459SJohn-Mark Gurney} 621a457459SJohn-Mark Gurney 631a457459SJohn-Mark Gurneydtrace:::END 641a457459SJohn-Mark Gurney{ 651a457459SJohn-Mark Gurney printf("total time, us: %d\n", (timestamp - dstart) / 1000); 661a457459SJohn-Mark Gurney printa(" %s (%d), us:\n%@d\n", @q); 671a457459SJohn-Mark Gurney printa("max%s (%d), us: %@d\n", @max); 681a457459SJohn-Mark Gurney printa("avg%s (%d), us: %@d\n", @avg); 691a457459SJohn-Mark Gurney printa("stddev%s (%d), us: %@d\n", @stddev); 701a457459SJohn-Mark Gurney} 71