1 files changed, 46 insertions, 0 deletions
diff --git a/builtins/inlib.c b/builtins/inlib.c
new file mode 100644
index 0000000..8e218b1
--- /dev/null
+++ b/builtins/inlib.c
@@ -0,0 +1,46 @@
+/* inlib.c, created from inlib.def. */
+#line 22 "./inlib.def"
+#include <config.h>
+
+#include <stdio.h>
+#include "../shell.h"
+
+#line 43 "./inlib.def"
+
+#if defined (apollo)
+
+#include <apollo/base.h>
+#include <apollo/loader.h>
+
+inlib_builtin (list)
+     WORD_LIST *list;
+{
+  status_$t status;
+  int return_value;
+  short len;
+
+  if (!list)
+    {
+      builtin_usage ();
+      return (EX_USAGE);
+    }
+
+  return_value = EXECUTION_SUCCESS;
+
+  while (list)
+    {
+      len = (short)strlen (list->word->word);
+      loader_$inlib (list->word->word, len, &status);
+
+      if (status.all != status_$ok)
+	{
+	  builtin_error (_("%s: inlib failed"), list->word->word);
+	  return_value = EXECUTION_FAILURE;
+	}
+
+      list = list->next;
+    }
+
+  return (return_value);
+}
+#endif /* apollo */