1da2e3ebdSchin /***********************************************************************
2da2e3ebdSchin * *
3da2e3ebdSchin * This software is part of the ast package *
4*3e14f97fSRoger A. Faulkner * Copyright (c) 1985-2010 AT&T Intellectual Property *
5da2e3ebdSchin * and is licensed under the *
6da2e3ebdSchin * Common Public License, Version 1.0 *
77c2fbfb3SApril Chin * by AT&T Intellectual Property *
8da2e3ebdSchin * *
9da2e3ebdSchin * A copy of the License is available at *
10da2e3ebdSchin * http://www.opensource.org/licenses/cpl1.0.txt *
11da2e3ebdSchin * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
12da2e3ebdSchin * *
13da2e3ebdSchin * Information and Software Systems Research *
14da2e3ebdSchin * AT&T Research *
15da2e3ebdSchin * Florham Park NJ *
16da2e3ebdSchin * *
17da2e3ebdSchin * Glenn Fowler <gsf@research.att.com> *
18da2e3ebdSchin * David Korn <dgk@research.att.com> *
19da2e3ebdSchin * Phong Vo <kpv@research.att.com> *
20da2e3ebdSchin * *
21da2e3ebdSchin ***********************************************************************/
22da2e3ebdSchin #pragma prototyped
23da2e3ebdSchin /*
24da2e3ebdSchin * return pointer to formatted clock() tics t
25da2e3ebdSchin * return value length is at most 6
26da2e3ebdSchin */
27da2e3ebdSchin
28da2e3ebdSchin #include <ast.h>
29da2e3ebdSchin #include <tm.h>
30da2e3ebdSchin
31da2e3ebdSchin char*
fmtclock(register Sfulong_t t)32da2e3ebdSchin fmtclock(register Sfulong_t t)
33da2e3ebdSchin {
34da2e3ebdSchin register int u;
35da2e3ebdSchin char* buf;
36da2e3ebdSchin int z;
37da2e3ebdSchin
38da2e3ebdSchin static unsigned int clk_tck;
39da2e3ebdSchin
407c2fbfb3SApril Chin if (!clk_tck)
417c2fbfb3SApril Chin {
427c2fbfb3SApril Chin #ifdef CLOCKS_PER_SEC
437c2fbfb3SApril Chin clk_tck = CLOCKS_PER_SEC;
447c2fbfb3SApril Chin #else
457c2fbfb3SApril Chin if (!(clk_tck = (unsigned int)strtoul(astconf("CLK_TCK", NiL, NiL), NiL, 10)))
46da2e3ebdSchin clk_tck = 60;
477c2fbfb3SApril Chin #endif
487c2fbfb3SApril Chin }
49da2e3ebdSchin if (t == 0)
50da2e3ebdSchin return "0";
51da2e3ebdSchin if (t == ((Sfulong_t)~0))
52da2e3ebdSchin return "%";
53da2e3ebdSchin t = (t * 1000000) / clk_tck;
54da2e3ebdSchin if (t < 1000)
55da2e3ebdSchin u = 'u';
56da2e3ebdSchin else if ((t /= 1000) < 1000)
57da2e3ebdSchin u = 'm';
58da2e3ebdSchin else
59da2e3ebdSchin return fmtelapsed(t / 10, 100);
60da2e3ebdSchin buf = fmtbuf(z = 7);
61da2e3ebdSchin sfsprintf(buf, z, "%I*u%cs", sizeof(t), t, u);
62da2e3ebdSchin return buf;
63da2e3ebdSchin }
64