head 1.1; branch 1.1.1; access; symbols netbsd-11-0-RC4:1.1.1.1 netbsd-11-0-RC3:1.1.1.1 netbsd-11-0-RC2:1.1.1.1 netbsd-11-0-RC1:1.1.1.1 perseant-exfatfs-base-20250801:1.1.1.1 netbsd-11:1.1.1.1.0.30 netbsd-11-base:1.1.1.1 netbsd-10-1-RELEASE:1.1.1.1 perseant-exfatfs-base-20240630:1.1.1.1 perseant-exfatfs:1.1.1.1.0.28 perseant-exfatfs-base:1.1.1.1 netbsd-8-3-RELEASE:1.1.1.1 netbsd-9-4-RELEASE:1.1.1.1 netbsd-10-0-RELEASE:1.1.1.1 netbsd-10-0-RC6:1.1.1.1 netbsd-10-0-RC5:1.1.1.1 netbsd-10-0-RC4:1.1.1.1 netbsd-10-0-RC3:1.1.1.1 netbsd-10-0-RC2:1.1.1.1 netbsd-10-0-RC1:1.1.1.1 netbsd-10:1.1.1.1.0.26 netbsd-10-base:1.1.1.1 netbsd-9-3-RELEASE:1.1.1.1 cjep_sun2x-base1:1.1.1.1 cjep_sun2x:1.1.1.1.0.24 cjep_sun2x-base:1.1.1.1 cjep_staticlib_x-base1:1.1.1.1 netbsd-9-2-RELEASE:1.1.1.1 cjep_staticlib_x:1.1.1.1.0.22 cjep_staticlib_x-base:1.1.1.1 netbsd-9-1-RELEASE:1.1.1.1 phil-wifi-20200421:1.1.1.1 phil-wifi-20200411:1.1.1.1 is-mlppp:1.1.1.1.0.20 is-mlppp-base:1.1.1.1 phil-wifi-20200406:1.1.1.1 netbsd-8-2-RELEASE:1.1.1.1 netbsd-9-0-RELEASE:1.1.1.1 netbsd-9-0-RC2:1.1.1.1 netbsd-9-0-RC1:1.1.1.1 phil-wifi-20191119:1.1.1.1 netbsd-9:1.1.1.1.0.18 netbsd-9-base:1.1.1.1 phil-wifi-20190609:1.1.1.1 netbsd-8-1-RELEASE:1.1.1.1 netbsd-8-1-RC1:1.1.1.1 pgoyette-compat-merge-20190127:1.1.1.1 pgoyette-compat-20190127:1.1.1.1 pgoyette-compat-20190118:1.1.1.1 pgoyette-compat-1226:1.1.1.1 pgoyette-compat-1126:1.1.1.1 pgoyette-compat-1020:1.1.1.1 pgoyette-compat-0930:1.1.1.1 pgoyette-compat-0906:1.1.1.1 pgoyette-compat-0728:1.1.1.1 netbsd-8-0-RELEASE:1.1.1.1 phil-wifi:1.1.1.1.0.16 phil-wifi-base:1.1.1.1 pgoyette-compat-0625:1.1.1.1 netbsd-8-0-RC2:1.1.1.1 pgoyette-compat-0521:1.1.1.1 pgoyette-compat-0502:1.1.1.1 pgoyette-compat-0422:1.1.1.1 netbsd-8-0-RC1:1.1.1.1 pgoyette-compat-0415:1.1.1.1 pgoyette-compat-0407:1.1.1.1 pgoyette-compat-0330:1.1.1.1 pgoyette-compat-0322:1.1.1.1 pgoyette-compat-0315:1.1.1.1 pgoyette-compat:1.1.1.1.0.14 pgoyette-compat-base:1.1.1.1 matt-nb8-mediatek:1.1.1.1.0.12 matt-nb8-mediatek-base:1.1.1.1 perseant-stdc-iso10646:1.1.1.1.0.10 perseant-stdc-iso10646-base:1.1.1.1 netbsd-8:1.1.1.1.0.8 netbsd-8-base:1.1.1.1 prg-localcount2-base3:1.1.1.1 prg-localcount2-base2:1.1.1.1 prg-localcount2-base1:1.1.1.1 prg-localcount2:1.1.1.1.0.6 prg-localcount2-base:1.1.1.1 pgoyette-localcount-20170426:1.1.1.1 bouyer-socketcan-base1:1.1.1.1 pgoyette-localcount-20170320:1.1.1.1 bouyer-socketcan:1.1.1.1.0.4 bouyer-socketcan-base:1.1.1.1 pgoyette-localcount-20170107:1.1.1.1 pgoyette-localcount-20161104:1.1.1.1 localcount-20160914:1.1.1.1 pgoyette-localcount-20160806:1.1.1.1 pgoyette-localcount-20160726:1.1.1.1 pgoyette-localcount:1.1.1.1.0.2 pgoyette-localcount-base:1.1.1.1 dtracetoolkit-2015-09-29:1.1.1.1 FreeBSD:1.1.1; locks; strict; comment @# @; 1.1 date 2015.09.30.22.01.07; author christos; state Exp; branches 1.1.1.1; next ; commitid d9nN99160jbCfkDy; 1.1.1.1 date 2015.09.30.22.01.07; author christos; state Exp; branches; next ; commitid d9nN99160jbCfkDy; desc @@ 1.1 log @Initial revision @ text @#!/usr/bin/perl -w # # hotuser - sample on-CPU user-level functions and libraries. # Written using Perl and DTrace (Solaris 10 03/05) # # This samples the on-CPU function at 1001 Hertz, for a simple yet # effective user-level profiling tool for sampling exclusive function time. # The output will identify which function is on the CPU the most - which # is the hottest. See Notes/ALLexclusive_notes.txt for an explanation of # exclusive time. # # $Id: hotuser 65 2007-10-04 11:09:40Z brendan $ # # USAGE: hotuser [-hl] { -c command | -p PID } # # -h # help # -l # match libraries, not functions # -p PID # examine this PID # -c command # run and examine this command # eg, # hotuser -p 81 # sample user functions from PID 81 # hotuser -lp 81 # sample user libraries from PID 81 # hotuser -p `pgrep -n Xorg` # sample Xorg # # FIELDS: # FUNCTION Function name # LIBRARY Library name # COUNT Number of samples # PCNT Percentage of total samples # # COPYRIGHT: Copyright (c) 2006 Brendan Gregg. # # CDDL HEADER START # # The contents of this file are subject to the terms of the # Common Development and Distribution License, Version 1.0 only # (the "License"). You may not use this file except in compliance # with the License. # # You can obtain a copy of the license at Docs/cddl1.txt # or http://www.opensolaris.org/os/licensing. # See the License for the specific language governing permissions # and limitations under the License. # # CDDL HEADER END # # Author: Brendan Gregg [Sydney, Australia] # # 29-Jun-2006 Brendan Gregg Created this. # 29-Jun-2006 " " Last update. # use strict; use Getopt::Std; # # Command Line Arguments # my $args; usage() if defined $ARGV[0] and $ARGV[0] eq "--help"; getopts('c:hlp:') or usage(); usage() if defined $main::opt_h and $main::opt_h; my $libs = defined $main::opt_l and $main::opt_l ? 1 : 0; if (defined $main::opt_c) { $args = "-c $main::opt_c"; } elsif (defined $main::opt_p) { $args = "-p $main::opt_p"; } else { usage(); } # # Cleanup on signals # $SIG{INT} = \&cleanupsig; # Ctrl-C $SIG{QUIT} = \&cleanupsig; # Ctrl-\ $SIG{TERM} = \&cleanupsig; # TERM # # Declare DTrace script # my $dtrace = <) { next if $line =~ /^\s*$/; next if $line !~ /^OUT: /; my ($tag, $addr, $count) = split ' ', $line; my ($name, $offset) = split /\+/, $addr; next if $name eq "0x0"; $name =~ s/\`.*// if $libs; $Count{$name} += $count; $total += $count; } close DTRACE; # # Print final report # printf "\n%-52s %8s %6s\n", $libs ? "LIBRARY" : "FUNCTION", "COUNT", "PCNT"; foreach my $name (sort { $Count{$a} <=> $Count{$b} } keys %Count) { printf "%-52s %8d %5.1f%%\n", $name, $Count{$name}, 100 * $Count{$name} / ($total ? $total : 1); } # # Subroutines # sub cleanupsig { } sub usage { print STDERR "USAGE: hotuser [-hl] { -c command | -p PID }\n"; print STDERR " eg,\n"; print STDERR " hotuser -p 81 # sample user funcs for PID 81\n"; print STDERR " hotuser -lp 81 # sample user libs for PID 81\n"; print STDERR " hotuser -p `pgrep -n Xorg` # sample Xorg\n"; exit 1; } @ 1.1.1.1 log @Import the dtrace toolkit from FreeBSD; simple scripts such as dtruss work unmodified. For others we'll need to add the missing probes and adjust. This is not attached to the build. @ text @@