![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to charge.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd|
Return to charge.c CVS log | Up to [Research Unix] / researchv10no / cmd |
1.1 root 1: /*
2: ** Command to change/print costs for Share Scheduling Algorithm
3: */
4:
5: char * Usage =
6: "Usage: %s [-C] [-D<normal half-life secs>,<maxnice half-life secs>]\\\n\
7: [-E<rate half-life secs>] [-F<octal flags>] [-K<half-life>]\\\n\
8: [-P<maxpri>] [-Q<maxupri>] [-R<delta>] [-S<maxusers>]\\\n\
9: [-U<maxusage>] [-X<maxushare>] [-Y<mingshare>]\\\n\
10: [-b<bio>] [-m<click>] [-s<syscall>] [-t<tic>] [-y<tio>] [%%]\n";
11:
12: char * ShowUsage = "Usage: %s [-[v]]\n";
13:
14:
15: #include <sys/types.h>
16: #include <sys/lnode.h>
17: #include <sys/share.h>
18: #include <sys/charges.h>
19: #include <stdio.h>
20: #include <trace.h>
21: #include <math.h>
22: #include <libc.h>
23:
24:
25: char * Charges = "charges";
26: char * Name;
27: long Oldtick;
28: float Onef = 1.0;
29: float Oneh = 100.0;
30: float Percent = 100.0;
31: int Traceflag;
32: int Verbose;
33:
34: char Unk[] = "<unknown>";
35: char * Flags[16] =
36: {
37: "NOSHARE",
38: "ADJGROUPS",
39: "LIMSHARE",
40: Unk,
41: Unk,
42: Unk,
43: Unk,
44: Unk,
45: Unk,
46: Unk,
47: Unk,
48: Unk,
49: Unk,
50: Unk,
51: Unk,
52: Unk
53: };
54:
55: void error(), getcosts(), printcharges();
56:
57: #define NULLSTR (char *)0
58: #define STREQUAL 0
59: #define SYSERROR (-1)
60:
61: #ifdef EBUG
62: #define DEBUG EBUG /* for tests */
63: #define DODEBUG(A) A
64: #else
65: #define DODEBUG(A)
66: #endif EBUG
67:
68:
69:
70:
71:
72: main(argc, argv)
73: register int argc;
74: register char * argv[];
75: {
76: register long n;
77: register float f;
78: register char * cp;
79: register long newdecay = 0;
80: register long pdecay1 = 0;
81: register long pdecay2 = 0;
82: register long rdecay = 0;
83: extern char _sobuf[];
84:
85: if ( (Name = strrchr(*argv, '/')) != NULLSTR )
86: Name++;
87: else
88: Name = *argv;
89: argv++;
90: argc--;
91:
92: Oldtick = shconsts.sc_tick;
93:
94: if ( strcmp(Name, Charges) == STREQUAL )
95: {
96: Usage = ShowUsage;
97: (void)setbuf(stdout, _sobuf);
98:
99: if ( argc == 1 && strcmp(argv[0], "-") == STREQUAL )
100: {
101: Verbose = 1;
102: printcharges(1);
103: return 0;
104: }
105:
106: getcosts();
107: }
108:
109: while ( argc > 0 )
110: {
111: int seconds;
112:
113: if ( argv[0][0] != '\0' )
114: {
115: n = atol(&argv[0][1]);
116: f = atof(&argv[0][1]);
117:
118: if ( strchr(&argv[0][1], 's') != NULLSTR )
119: seconds = 1;
120: else
121: seconds = 0;
122: }
123:
124: switch ( argv[0][0] )
125: {
126: case '\0': break;
127: case '-': argv[0]++;
128: continue;
129: case 'C': getcosts();
130: break;
131: case 'D': if ( (cp = strchr(&argv[0][1], ',')) == NULLSTR )
132: error("Priority decay specification requires a range of half-lives\n");
133: pdecay1 = n;
134: pdecay2 = atol(cp+1);
135: if ( pdecay1 >= pdecay2 )
136: error("The decay half-life for maxnice processs should be less than that for normal processes");
137: break;
138: case 'E': rdecay = n;
139: break;
140: case 'F': Shareflags = atoo(&argv[0][1]);
141: break;
142: case 'G': MAXGROUPS = n;
143: break;
144: case 'K': newdecay = n;
145: if ( !seconds )
146: newdecay *= 60 * 60;
147: break;
148: case 'P': MAXPRI = f;
149: break;
150: case 'Q': MAXUPRI = f;
151: break;
152: case 'R': Delta = n;
153: break;
154: case 'S': MAXUSERS = n;
155: break;
156: case 'T': Traceflag = n?n:1;
157: break;
158: case 'U': MAXUSAGE = f;
159: break;
160: case 'X': MAXUSHARE = f;
161: break;
162: case 'Y': MINGSHARE = f;
163: break;
164: case 'b': shconsts.sc_bio = f;
165: break;
166: case 'm': shconsts.sc_click = f;
167: break;
168: case 's': shconsts.sc_syscall = f;
169: break;
170: case 't': shconsts.sc_tick = f;
171: break;
172: case 'v': Verbose = 1;
173: break;
174: case 'y': shconsts.sc_tio = f;
175: break;
176: default: if ( (n = atol(argv[0])) > 0 )
177: {
178: Percent = n;
179: break;
180: }
181: error("unrecognised argument %s", argv[0]);
182: case '?': fprintf(stderr, Usage, Name);
183: return 1;
184: }
185:
186: argc--;
187: argv++;
188: }
189:
190: if ( newdecay )
191: DecayUsage = pow(0.5, (Onef*Delta)/newdecay);
192:
193: if ( pdecay1 )
194: {
195: Trace(("old PriDecay = %f", PriDecay));
196: PriDecay = pow(0.5, Onef/pdecay2);
197: Trace((", new PriDecay = %f\n", PriDecay));
198: Trace(("old PriDecayBase = %ld", PriDecayBase));
199: f = pow(0.5, Onef/pdecay1) / PriDecay;
200: PriDecayBase = ((2*NZERO-1) * f - NZERO) / (Onef - f);
201: Trace((", new PriDecayBase = %ld\n", PriDecayBase));
202: }
203:
204: if ( rdecay )
205: {
206: Trace(("old RateDecay = %f", DecayRate));
207: DecayRate = pow(0.5, Onef/((float)rdecay));
208: Trace((", new RateDecay = %f\n", DecayRate));
209: }
210:
211:
212: if ( Percent != Oneh )
213: {
214: Percent /= Oneh;
215:
216: shconsts.sc_bio = shconsts.sc_bio * Percent;
217: shconsts.sc_tio = shconsts.sc_tio * Percent;
218: shconsts.sc_tick = shconsts.sc_tick * Percent;
219: shconsts.sc_click = shconsts.sc_click * Percent;
220: shconsts.sc_syscall = shconsts.sc_syscall * Percent;
221: }
222:
223: if ( Usage == ShowUsage )
224: printcharges(0);
225: else
226: if ( limits((struct lnode *)&shconsts, L_SETCOSTS) == SYSERROR )
227: error("L_SETCOSTS");
228:
229: return 0;
230: }
231:
232:
233:
234: void
235: getcosts()
236: {
237: if ( limits((struct lnode *)&shconsts, L_GETCOSTS) == SYSERROR )
238: error("L_GETCOSTS");
239: }
240:
241:
242:
243: char *
244: shflags(flags)
245: u_short flags;
246: {
247: register char * sp;
248: register int i;
249: register int j;
250: static char s[200];
251:
252: for ( sp = s, i = 1, j = 0 ; flags ; j++, i <<= 1 )
253: if ( flags & i )
254: {
255: flags &= ~i;
256: if ( sp != s )
257: *sp++ = ',';
258: sp += strlen(strcpy(sp, Flags[j]));
259: }
260:
261: return sp==s ? "<null>" : s;
262: }
263:
264:
265:
266: void
267: printcharges(showdefault)
268: int showdefault;
269: {
270: register float decay = ((log(.5)/log(DecayUsage))*Delta)/(60*60);
271:
272: if ( Percent == Oneh )
273: {
274: if ( Oldtick != shconsts.sc_tick )
275: Percent = (shconsts.sc_tick * Oneh) / Oldtick;
276: }
277: else
278: Percent *= Oneh;
279:
280: printf
281: (
282: "\
283: Scheduling flags = %s, charging percentage = %g%%,\n\
284: usage decay rate = %.8f (half-life %.1f %s),\n"
285: ,shflags(shconsts.sc_fl)
286: ,Percent
287: ,DecayUsage
288: ,decay < Onef ? decay * (60*60) : decay
289: ,decay < Onef ? "seconds" : "hours"
290: );
291:
292: printf
293: (
294: "\
295: Max. users = %d, max group nesting = %d.\n"
296: ,MAXUSERS
297: ,MAXGROUPS
298: );
299:
300: if ( Verbose && !showdefault )
301: printf
302: (
303: "\
304: active users = %d, active groups = %d.\n"
305: ,Users, Groups
306: );
307:
308: if ( !showdefault )
309: {
310: register float itot_charge = Oneh /
311: (
312: (float)shconsts.sc_syscallc * (float)shconsts.sc_syscall
313: + (float)shconsts.sc_bioc * (float)shconsts.sc_bio
314: + (float)shconsts.sc_tioc * (float)shconsts.sc_tio
315: + (float)shconsts.sc_tickc * (float)shconsts.sc_tick
316: + (float)shconsts.sc_clickc * (float)shconsts.sc_click
317: );
318:
319: printf
320: (
321: "\n\
322: Charge: syscall %6.0f%% bio %6.0f%% tio %6.0f%% tick %6.0f%% click %6.0f%%\n"
323: ,shconsts.sc_syscallc * (shconsts.sc_syscall * itot_charge)
324: ,shconsts.sc_bioc * (shconsts.sc_bio * itot_charge)
325: ,shconsts.sc_tioc * (shconsts.sc_tio * itot_charge)
326: ,shconsts.sc_tickc * (shconsts.sc_tick * itot_charge)
327: ,shconsts.sc_clickc * (shconsts.sc_click * itot_charge)
328: );
329: }
330:
331: if ( !Verbose )
332: return;
333:
334: if ( showdefault )
335: printf("\n");
336:
337: printf
338: (
339: "\
340: Costs: syscall %7lu bio %7lu tio %7lu tick %7lu click %7lu\n"
341: ,shconsts.sc_syscall
342: ,shconsts.sc_bio
343: ,shconsts.sc_tio
344: ,shconsts.sc_tick
345: ,shconsts.sc_click
346: );
347:
348: if ( !showdefault )
349: printf
350: (
351: "\
352: Counts: syscall %7lu bio %7lu tio %7lu tick %7lu click %7lu\n"
353: ,shconsts.sc_syscallc
354: ,shconsts.sc_bioc
355: ,shconsts.sc_tioc
356: ,shconsts.sc_tickc
357: ,shconsts.sc_clickc
358: );
359:
360: printf
361: (
362: "\n\
363: Process priority decay rate biased by \"nice\":-\n\
364: high priority (nice -%2d) %.4f (half-life %5.1f seconds),\n\
365: avg. priority (nice 0) %.4f (half-life %5.1f seconds),\n\
366: low priority (nice %2d) %.4f (half-life %5.1f seconds).\n\
367: \n\
368: Run rate decay rate %.4f (half-life %5.1f seconds).\n\
369: \n\
370: Minimum group share factor = %.3f,\n\
371: maximum user share factor = %.3f.\n\
372: \n\
373: Max. value for normal usage = %.3e,\n\
374: max. value for normal p_sharepri = %.3e,\n\
375: max. value for idle p_sharepri = %.3e.\n"
376: ,NZERO
377: ,PriDecay*(float)PriDecayBase/(float)(PriDecayBase+2*NZERO-1)
378: ,log(.5)/log(PriDecay*(float)PriDecayBase/(float)(PriDecayBase+2*NZERO-1))
379: ,PriDecay*(float)(PriDecayBase+NZERO)/(float)(PriDecayBase+2*NZERO-1)
380: ,log(.5)/log(PriDecay*(float)(PriDecayBase+NZERO)/(float)(PriDecayBase+2*NZERO-1))
381: ,NZERO-1
382: ,PriDecay
383: ,log(.5)/log(PriDecay)
384: ,DecayRate
385: ,log(.5)/log(DecayRate)
386: ,MINGSHARE
387: ,MAXUSHARE
388: ,MAXUSAGE
389: ,MAXUPRI
390: ,MAXPRI
391: );
392:
393: if ( showdefault )
394: return;
395:
396: printf
397: (
398: "\n\
399: High value of current normal usage = %.3e,\n\
400: high value of current p_sharepri = %.3e.\n"
401: ,MaxUsage
402: ,MaxSharePri
403: );
404: }
405:
406:
407:
408: /*VARARGS1*/
409: void
410: error(a, b)
411: char *a, *b;
412: {
413: extern errno;
414: extern int sys_nerr;
415: extern char *sys_errlist[];
416:
417: fprintf(stderr, "%s: error - ", Name);
418: fprintf(stderr, a, b);
419: if ( errno )
420: {
421: if ( errno < sys_nerr )
422: fprintf(stderr, " - %s\n", sys_errlist[errno]);
423: else
424: fprintf(stderr, " - Unknown error %d\n", errno);
425: }
426: else
427: putc('\n', stderr);
428: fprintf(stderr, Usage, Name);
429: exit(1);
430: }
431:
432:
433:
434: /*VARARGS1*/
435: int
436: atoo(p)
437: register char * p;
438: {
439: register int n = 0;
440: register int c;
441:
442: while ( (c = *p++) == ' ' || c == '\t' );
443:
444: while ( c >= '0' && c <= '7' )
445: {
446: n = n*8 + c - '0';
447: c = *p++;
448: }
449:
450: return n;
451: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.