summaryrefslogtreecommitdiff
path: root/libc/misc/internals
diff options
context:
space:
mode:
Diffstat (limited to 'libc/misc/internals')
-rw-r--r--libc/misc/internals/Makefile42
-rw-r--r--libc/misc/internals/itoa.c21
-rw-r--r--libc/misc/internals/ltoa.c40
-rw-r--r--libc/misc/internals/ltostr.c52
4 files changed, 155 insertions, 0 deletions
diff --git a/libc/misc/internals/Makefile b/libc/misc/internals/Makefile
new file mode 100644
index 000000000..eb4e61ac8
--- /dev/null
+++ b/libc/misc/internals/Makefile
@@ -0,0 +1,42 @@
+# Makefile for uCLibc
+#
+# Copyright (C) 2000 by Lineo, inc.
+#
+# This program is free software; you can redistribute it and/or modify it under
+# the terms of the GNU Library General Public License as published by the Free
+# Software Foundation; either version 2 of the License, or (at your option) any
+# later version.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+# You should have received a copy of the GNU General Public License along with
+# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+# Place, Suite 330, Boston, MA 02111-1307 USA
+#
+# Derived in part from the Linux-8086 C library, the GNU C Library, and several
+# other sundry sources. Files within this library are copyright by their
+# respective copyright holders.
+
+TOPDIR=../../
+include $(TOPDIR)Rules.make
+LIBC=$(TOPDIR)libc.a
+
+CSRC=itoa.c ltoa.c ltostr.c
+COBJS=$(patsubst %.c,%.o, $(CSRC))
+OBJS=$(COBJS)
+
+all: $(OBJS) $(LIBC)
+
+$(LIBC): ar-target
+
+ar-target: $(OBJS)
+ $(AR) $(ARFLAGS) $(LIBC) $(OBJS)
+
+$(OBJS): Makefile
+
+clean:
+ rm -f *.[oa] *~ core
+
diff --git a/libc/misc/internals/itoa.c b/libc/misc/internals/itoa.c
new file mode 100644
index 000000000..a683b8018
--- /dev/null
+++ b/libc/misc/internals/itoa.c
@@ -0,0 +1,21 @@
+/* itoa.c <ndf@linux.mit.edu> */
+#define __MAX_INT_CHARS 7
+
+char *itoa(int i)
+{
+ static char a[__MAX_INT_CHARS];
+ char *b = a + sizeof(a) - 1;
+ int sign = (i < 0);
+
+ if (sign)
+ i = -i;
+ *b = 0;
+ do {
+ *--b = '0' + (i % 10);
+ i /= 10;
+ }
+ while (i);
+ if (sign)
+ *--b = '-';
+ return b;
+}
diff --git a/libc/misc/internals/ltoa.c b/libc/misc/internals/ltoa.c
new file mode 100644
index 000000000..da8b6d3df
--- /dev/null
+++ b/libc/misc/internals/ltoa.c
@@ -0,0 +1,40 @@
+/* Copyright (C) 1995,1996 Robert de Bath <rdebath@cix.compulink.co.uk>
+ * This file is part of the Linux-8086 C library and is distributed
+ * under the GNU Library General Public License.
+ */
+
+static char buf[12];
+
+extern char *ultoa();
+
+char *ltoa(val)
+long val;
+{
+ char *p;
+ int flg = 0;
+
+ if (val < 0) {
+ flg++;
+ val = -val;
+ }
+ p = ultoa(val);
+ if (flg)
+ *--p = '-';
+ return p;
+}
+
+char *ultoa(val)
+unsigned long val;
+{
+ char *p;
+
+ p = buf + sizeof(buf);
+ *--p = '\0';
+
+ do {
+ *--p = '0' + val % 10;
+ val /= 10;
+ }
+ while (val);
+ return p;
+}
diff --git a/libc/misc/internals/ltostr.c b/libc/misc/internals/ltostr.c
new file mode 100644
index 000000000..da6fad232
--- /dev/null
+++ b/libc/misc/internals/ltostr.c
@@ -0,0 +1,52 @@
+/* Copyright (C) 1995,1996 Robert de Bath <rdebath@cix.compulink.co.uk>
+ * This file is part of the Linux-8086 C library and is distributed
+ * under the GNU Library General Public License.
+ */
+
+static char buf[34];
+
+extern char *ultostr();
+
+char *ltostr(val, radix, uppercase)
+long val;
+int radix;
+int uppercase;
+{
+ char *p;
+ int flg = 0;
+
+ if (val < 0) {
+ flg++;
+ val = -val;
+ }
+ p = ultostr(val, radix, uppercase);
+ if (p && flg)
+ *--p = '-';
+ return p;
+}
+
+char *ultostr(val, radix, uppercase)
+unsigned long val;
+int radix;
+int uppercase;
+{
+ register char *p;
+ register int c;
+
+ if (radix > 36 || radix < 2)
+ return 0;
+
+ p = buf + sizeof(buf);
+ *--p = '\0';
+
+ do {
+ c = val % radix;
+ val /= radix;
+ if (c > 9)
+ *--p = (uppercase ? 'A' : 'a') - 10 + c;
+ else
+ *--p = '0' + c;
+ }
+ while (val);
+ return p;
+}