1 /* 2 * Copyright (c) 2004 The DragonFly Project. All rights reserved. 3 * 4 * This code is derived from software contributed to The DragonFly Project 5 * by Joerg Sonnenberger <joerg@bec.de>. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 11 * 1. Redistributions of source code must retain the above copyright 12 * notice, this list of conditions and the following disclaimer. 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in 15 * the documentation and/or other materials provided with the 16 * distribution. 17 * 3. Neither the name of The DragonFly Project nor the names of its 18 * contributors may be used to endorse or promote products derived 19 * from this software without specific, prior written permission. 20 * 21 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 22 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 23 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS 24 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE 25 * COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, 26 * INCIDENTAL, SPECIAL, EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING, 27 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 28 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED 29 * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, 30 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 31 * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 32 * SUCH DAMAGE. 33 * 34 * $DragonFly: src/lib/libkcore/kcore_sched.c,v 1.5 2006/08/03 16:40:46 swildner Exp $ 35 */ 36 37 #include <sys/kinfo.h> 38 #include <sys/param.h> 39 40 #include <assert.h> 41 #include <err.h> 42 #include <errno.h> 43 #include <kcore.h> 44 #include <kvm.h> 45 #include <nlist.h> 46 #include <stdlib.h> 47 48 #include "kcore_private.h" 49 50 int 51 kcore_get_cpus(struct kcore_data *kc, int *ncpus) 52 { 53 static struct nlist nl[] = { 54 { "_ncpus", 0, 0, 0, 0}, 55 { NULL, 0, 0, 0, 0} 56 }; 57 58 /* XXX always include ncpus in the kernel. */ 59 if (kcore_get_generic(kc, nl, ncpus, sizeof(*ncpus))) 60 *ncpus = 1; 61 return(0); 62 } 63 64 int 65 kcore_get_sched_ccpu(struct kcore_data *kc, int *ccpu) 66 { 67 static struct nlist nl[] = { 68 { "_tk_nin", 0, 0, 0, 0}, 69 { NULL, 0, 0, 0, 0} 70 }; 71 72 return(kcore_get_generic(kc, nl, ccpu, sizeof(*ccpu))); 73 } 74 75 int 76 kcore_get_sched_cputime(struct kcore_data *kc, struct kinfo_cputime *cputime) 77 { 78 struct kinfo_cputime *percpu = NULL; 79 static struct nlist nl[] = { 80 { "cputime_percpu", 0, 0, 0, 0}, 81 { NULL, 0, 0, 0, 0} 82 }; 83 size_t len; 84 int cpucount, error = 0; 85 86 _DIAGASSERT(cputime != NULL); 87 88 error = kcore_get_cpus(kc, &cpucount); 89 if (error) 90 goto done; 91 92 len = sizeof(*percpu) * cpucount; 93 94 if ((percpu = malloc(len)) == NULL) { 95 error = ENOMEM; 96 goto done; 97 } 98 99 /* retrieve verbatim per-cpu statistics from kernel core */ 100 error = kcore_get_generic(kc, nl, percpu, len); 101 if (error) 102 goto done; 103 104 /* aggregate per-cpu statistics retrieved from kernel core */ 105 cputime_pcpu_statistics(percpu, cputime, cpucount); 106 107 done: 108 if (percpu != NULL) { 109 free(percpu); 110 percpu = NULL; 111 } 112 return (error); 113 } 114 115 int 116 kcore_get_sched_hz(struct kcore_data *kc, int *hz) 117 { 118 static struct nlist nl[] = { 119 { "_hz", 0, 0, 0, 0}, 120 { NULL, 0, 0, 0, 0} 121 }; 122 123 return(kcore_get_generic(kc, nl, hz, sizeof(*hz))); 124 } 125 126 int 127 kcore_get_sched_profhz(struct kcore_data *kc, int *profhz) 128 { 129 static struct nlist nl[] = { 130 { "_profhz", 0, 0, 0, 0}, 131 { NULL, 0, 0, 0, 0} 132 }; 133 134 return(kcore_get_generic(kc, nl, profhz, sizeof(*profhz))); 135 } 136 137 int 138 kcore_get_sched_stathz(struct kcore_data *kc, int *stathz) 139 { 140 static struct nlist nl[] = { 141 { "_stathz", 0, 0, 0, 0}, 142 { NULL, 0, 0, 0, 0} 143 }; 144 int retval; 145 146 retval = kcore_get_generic(kc, nl, stathz, sizeof(*stathz)); 147 if (retval == 0 && *stathz == 0) 148 return(kcore_get_sched_hz(kc, stathz)); 149 return(retval); 150 } 151