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/param.h> 38 39 #include <assert.h> 40 #include <err.h> 41 #include <errno.h> 42 #include <kcore.h> 43 #include <kvm.h> 44 #include <nlist.h> 45 #include <stdlib.h> 46 47 #include "kcore_private.h" 48 49 int 50 kcore_get_cpus(struct kcore_data *kc, int *ncpus) 51 { 52 static struct nlist nl[] = { 53 { "_ncpus", 0, 0, 0, 0}, 54 { NULL, 0, 0, 0, 0} 55 }; 56 57 /* XXX always include ncpus in the kernel. */ 58 if (kcore_get_generic(kc, nl, ncpus, sizeof(*ncpus))) 59 *ncpus = 1; 60 return(0); 61 } 62 63 int 64 kcore_get_sched_ccpu(struct kcore_data *kc, int *ccpu) 65 { 66 static struct nlist nl[] = { 67 { "_tk_nin", 0, 0, 0, 0}, 68 { NULL, 0, 0, 0, 0} 69 }; 70 71 return(kcore_get_generic(kc, nl, ccpu, sizeof(*ccpu))); 72 } 73 74 int 75 kcore_get_sched_cputime(struct kcore_data *kc, struct kinfo_cputime *cputime) 76 { 77 struct kinfo_cputime *percpu = NULL; 78 static struct nlist nl[] = { 79 { "cputime_percpu", 0, 0, 0, 0}, 80 { NULL, 0, 0, 0, 0} 81 }; 82 size_t len; 83 int cpucount, error = 0; 84 85 _DIAGASSERT(cputime != NULL); 86 87 error = kcore_get_cpus(kc, &cpucount); 88 if (error) 89 goto done; 90 91 len = sizeof(*percpu) * cpucount; 92 93 if ((percpu = malloc(len)) == NULL) { 94 error = ENOMEM; 95 goto done; 96 } 97 98 /* retrieve verbatim per-cpu statistics from kernel core */ 99 error = kcore_get_generic(kc, nl, percpu, len); 100 if (error) 101 goto done; 102 103 /* aggregate per-cpu statistics retrieved from kernel core */ 104 cputime_pcpu_statistics(percpu, cputime, cpucount); 105 106 done: 107 if (percpu != NULL) { 108 free(percpu); 109 percpu = NULL; 110 } 111 return (error); 112 } 113 114 int 115 kcore_get_sched_hz(struct kcore_data *kc, int *hz) 116 { 117 static struct nlist nl[] = { 118 { "_hz", 0, 0, 0, 0}, 119 { NULL, 0, 0, 0, 0} 120 }; 121 122 return(kcore_get_generic(kc, nl, hz, sizeof(*hz))); 123 } 124 125 int 126 kcore_get_sched_profhz(struct kcore_data *kc, int *profhz) 127 { 128 static struct nlist nl[] = { 129 { "_profhz", 0, 0, 0, 0}, 130 { NULL, 0, 0, 0, 0} 131 }; 132 133 return(kcore_get_generic(kc, nl, profhz, sizeof(*profhz))); 134 } 135 136 int 137 kcore_get_sched_stathz(struct kcore_data *kc, int *stathz) 138 { 139 static struct nlist nl[] = { 140 { "_stathz", 0, 0, 0, 0}, 141 { NULL, 0, 0, 0, 0} 142 }; 143 int retval; 144 145 retval = kcore_get_generic(kc, nl, stathz, sizeof(*stathz)); 146 if (retval == 0 && *stathz == 0) 147 return(kcore_get_sched_hz(kc, stathz)); 148 return(retval); 149 } 150