Add mksh from CVS 2010/08/24 as system/core/mksh module
Both shells (ash from system/core/sh, and mksh) are built by
default but only the one where $(TARGET_SHELL) is set to is
actually installed (the shell and the mkshrc configuration
file are tagged shell_mksh for this to work).
Signed-off-by: Thorsten Glaser <tg@mirbsd.org>
diff --git a/mksh/src/lalloc.c b/mksh/src/lalloc.c
new file mode 100644
index 0000000..79627d1
--- /dev/null
+++ b/mksh/src/lalloc.c
@@ -0,0 +1,123 @@
+/*-
+ * Copyright © 2009
+ * Thorsten Glaser <tg@mirbsd.org>
+ *
+ * Provided that these terms and disclaimer and all copyright notices
+ * are retained or reproduced in an accompanying document, permission
+ * is granted to deal in this work without restriction, including un‐
+ * limited rights to use, publicly perform, distribute, sell, modify,
+ * merge, give away, or sublicence.
+ *
+ * This work is provided “AS IS” and WITHOUT WARRANTY of any kind, to
+ * the utmost extent permitted by applicable law, neither express nor
+ * implied; without malicious intent or gross negligence. In no event
+ * may a licensor, author or contributor be held liable for indirect,
+ * direct, other damage, loss, or other issues arising in any way out
+ * of dealing in the work, even if advised of the possibility of such
+ * damage or existence of a defect, except proven that it results out
+ * of said person’s immediate fault when using the work as intended.
+ */
+
+#include "sh.h"
+
+__RCSID("$MirOS: src/bin/mksh/lalloc.c,v 1.11 2009/08/08 13:08:51 tg Exp $");
+
+/* build with CPPFLAGS+= -DUSE_REALLOC_MALLOC=0 on ancient systems */
+#if defined(USE_REALLOC_MALLOC) && (USE_REALLOC_MALLOC == 0)
+#define remalloc(p,n) ((p) == NULL ? malloc(n) : realloc((p), (n)))
+#else
+#define remalloc(p,n) realloc((p), (n))
+#endif
+
+#define ALLOC_ISUNALIGNED(p) (((ptrdiff_t)(p)) % ALLOC_SIZE)
+
+static ALLOC_ITEM *findptr(ALLOC_ITEM **, char *, Area *);
+
+void
+ainit(Area *ap)
+{
+ /* area pointer is an ALLOC_ITEM, just the head of the list */
+ ap->next = NULL;
+}
+
+static ALLOC_ITEM *
+findptr(ALLOC_ITEM **lpp, char *ptr, Area *ap)
+{
+ void *lp;
+
+#ifndef MKSH_SMALL
+ if (ALLOC_ISUNALIGNED(ptr))
+ goto fail;
+#endif
+ /* get address of ALLOC_ITEM from user item */
+ /*
+ * note: the alignment of "ptr" to ALLOC_SIZE is checked
+ * above; the "void *" gets us rid of a gcc 2.95 warning
+ */
+ *lpp = (lp = ptr - ALLOC_SIZE);
+ /* search for allocation item in group list */
+ while (ap->next != lp)
+ if ((ap = ap->next) == NULL) {
+#ifndef MKSH_SMALL
+ fail:
+#endif
+ internal_errorf("rogue pointer %p", ptr);
+ }
+ return (ap);
+}
+
+void *
+aresize(void *ptr, size_t numb, Area *ap)
+{
+ ALLOC_ITEM *lp = NULL;
+
+ /* resizing (true) or newly allocating? */
+ if (ptr != NULL) {
+ ALLOC_ITEM *pp;
+
+ pp = findptr(&lp, ptr, ap);
+ pp->next = lp->next;
+ }
+
+ if ((numb >= SIZE_MAX - ALLOC_SIZE) ||
+ (lp = remalloc(lp, numb + ALLOC_SIZE)) == NULL
+#ifndef MKSH_SMALL
+ || ALLOC_ISUNALIGNED(lp)
+#endif
+ )
+ internal_errorf("cannot allocate %lu data bytes",
+ (unsigned long)numb);
+ /* this only works because Area is an ALLOC_ITEM */
+ lp->next = ap->next;
+ ap->next = lp;
+ /* return user item address */
+ return ((char *)lp + ALLOC_SIZE);
+}
+
+void
+afree(void *ptr, Area *ap)
+{
+ if (ptr != NULL) {
+ ALLOC_ITEM *lp, *pp;
+
+ pp = findptr(&lp, ptr, ap);
+ /* unhook */
+ pp->next = lp->next;
+ /* now free ALLOC_ITEM */
+ free(lp);
+ }
+}
+
+void
+afreeall(Area *ap)
+{
+ ALLOC_ITEM *lp;
+
+ /* traverse group (linked list) */
+ while ((lp = ap->next) != NULL) {
+ /* make next ALLOC_ITEM head of list */
+ ap->next = lp->next;
+ /* free old head */
+ free(lp);
+ }
+}