Imported Upstream version 93u+upstream

1 files changed, 63 insertions, 0 deletions

diff --git a/src/lib/libast/string/fmtclock.c b/src/lib/libast/string/fmtclock.c
new file mode 100644
index 0000000..6e54cfa
--- /dev/null
+++ b/src/lib/libast/string/fmtclock.c
@@ -0,0 +1,63 @@
+/***********************************************************************
+*                                                                      *
+*               This software is part of the ast package               *
+*          Copyright (c) 1985-2011 AT&T Intellectual Property          *
+*                      and is licensed under the                       *
+*                 Eclipse Public License, Version 1.0                  *
+*                    by AT&T Intellectual Property                     *
+*                                                                      *
+*                A copy of the License is available at                 *
+*          http://www.eclipse.org/org/documents/epl-v10.html           *
+*         (with md5 checksum b35adb5213ca9657e911e9befb180842)         *
+*                                                                      *
+*              Information and Software Systems Research               *
+*                            AT&T Research                             *
+*                           Florham Park NJ                            *
+*                                                                      *
+*                 Glenn Fowler <gsf@research.att.com>                  *
+*                  David Korn <dgk@research.att.com>                   *
+*                   Phong Vo <kpv@research.att.com>                    *
+*                                                                      *
+***********************************************************************/
+#pragma prototyped
+/*
+ * return pointer to formatted clock() tics t
+ * return value length is at most 6
+ */
+
+#include <ast.h>
+#include <tm.h>
+
+char*
+fmtclock(register Sfulong_t t)
+{
+	register int		u;
+	char*			buf;
+	int			z;
+
+	static unsigned int	clk_tck;
+
+	if (!clk_tck)
+	{
+#ifdef CLOCKS_PER_SEC
+		clk_tck = CLOCKS_PER_SEC;
+#else
+		if (!(clk_tck = (unsigned int)strtoul(astconf("CLK_TCK", NiL, NiL), NiL, 10)))
+			clk_tck = 60;
+#endif
+	}
+	if (t == 0)
+		return "0";
+	if (t == ((Sfulong_t)~0))
+		return "%";
+	t = (t * 1000000) / clk_tck;
+	if (t < 1000)
+		u = 'u';
+	else if ((t /= 1000) < 1000)
+		u = 'm';
+	else
+		return fmtelapsed(t / 10, 100);
+	buf = fmtbuf(z = 7);
+	sfsprintf(buf, z, "%I*u%cs", sizeof(t), t, u);
+	return buf;
+}