| commit | author | age | ||
| f1b729 | 1 | #!/usr/sbin/dtrace -s -q |
| NJ | 2 | /* |
| 3 | * CDDL HEADER START | |
| 4 | * | |
| 5 | * The contents of this file are subject to the terms of the | |
| 6 | * Common Development and Distribution License (the "License"). | |
| 7 | * You may not use this file except in compliance with the License. | |
| 8 | * | |
| 9 | * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE | |
| 10 | * or http://www.opensolaris.org/os/licensing. | |
| 11 | * See the License for the specific language governing permissions | |
| 12 | * and limitations under the License. | |
| 13 | * | |
| 14 | * When distributing Covered Code, include this CDDL HEADER in each | |
| 15 | * file and include the License file at usr/src/OPENSOLARIS.LICENSE. | |
| 16 | * If applicable, add the following below this CDDL HEADER, with the | |
| 17 | * fields enclosed by brackets "[]" replaced with your own identifying | |
| 18 | * information: Portions Copyright [yyyy] [name of copyright owner] | |
| 19 | * | |
| 20 | * CDDL HEADER END | |
| 21 | * | |
| 22 | * Copyright (c) 2010, Oracle and/or it's affiliates. All rights reserved. | |
| 23 | * | |
| 24 | * | |
| 25 | * build-watch.d - a simple dtrace script to keep track of some key | |
| 26 | * information to help determine build dependencies. | |
| 27 | */ | |
| 28 | ||
| 29 | /* | |
| 30 | * record paths successfully opened | |
| 31 | */ | |
| 32 | syscall::open:entry, syscall::open64:entry | |
| 33 | /(pid == $target) || progenyof($target)/ | |
| 34 | { | |
| 35 | self->file = cleanpath(copyinstr(arg0)); | |
| 36 | } | |
| 37 | syscall::openat:entry | |
| 38 | /(pid == $target) || progenyof($target)/ | |
| 39 | { | |
| 40 | self->file = cleanpath(copyinstr(arg1)); | |
| 41 | } | |
| 42 | ||
| 43 | syscall::open*:return | |
| 44 | /((pid == $target) || progenyof($target)) && (arg0 != -1) && (self->file != "")/ | |
| 45 | { | |
| 46 | @opened[self->file] = count(); | |
| 47 | self->file = 0; | |
| 48 | } | |
| 49 | ||
| 50 | /* | |
| 51 | * record the programs successfully execed (full path names) | |
| 52 | */ | |
| 53 | proc:::exec | |
| 54 | /(pid == $target) || progenyof($target)/ | |
| 55 | { | |
| 56 | self->execpath = stringof(arg0); | |
| 57 | } | |
| 58 | ||
| 59 | proc:::exec-success | |
| 60 | /(pid == $target) || progenyof($target)/ | |
| 61 | { | |
| 62 | @tools[execname, self->execpath] = count(); | |
| 63 | self->execpath = 0; | |
| 64 | } | |
| 65 | ||
| 66 | /* | |
| 67 | * Summarize the results of watching the [sub]process tree | |
| 68 | */ | |
| 69 | END | |
| 70 | { | |
| 71 | printf("\n"); | |
| 72 | printa("TOOL: %s = %s\n", @tools); | |
| 73 | printa("FILE: %s\n", @opened); | |
| 74 | } | |
