1 files changed, 198 insertions, 0 deletions
diff --git a/os2/pwd.c b/os2/pwd.c
new file mode 100644
index 0000000..7235f28
--- /dev/null
+++ b/os2/pwd.c
@@ -0,0 +1,198 @@
+/*  pwd.c - Try to approximate UN*X's getuser...() functions under MS-DOS.
+    Copyright (C) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 1, 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.  */
+
+/* This 'implementation' is conjectured from the use of this functions in
+   the RCS and BASH distributions.  Of course these functions don't do too
+   much useful things under MS-DOS, but using them avoids many "#ifdef
+   MSDOS" in ported UN*X code ...  */
+
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <pwd.h>
+
+static char *lookup_env (char **);
+
+/* where people might scribble their name into the environment ... */
+
+static char *login_strings[] =
+{
+  "LOGIN", "USER", "MAILNAME", (char *) 0
+};
+
+static char *group_strings[] =
+{
+  "GROUP", (char *) 0
+};
+
+
+static char *anonymous = "anonymous";	/* if all else fails ... */
+
+static char *home_dir = ".";	/* we feel (no|every)where at home */
+static char *login_shell = "not cmd.exe!";
+
+static char *login = (char *) 0;/* cache the names here	*/
+static char *group = (char *) 0;
+
+static struct passwd pw;	/* should we return a malloc()'d structure   */
+static struct group gr;		/* instead of pointers to static structures? */
+
+/* return something like a username in a (butchered!) passwd structure. */
+struct passwd *
+getpwuid (int uid)
+{
+  pw.pw_name = getlogin ();
+  pw.pw_dir = home_dir;
+  pw.pw_shell = login_shell;
+  pw.pw_uid = 0;
+
+  return &pw;
+}
+
+struct passwd *
+getpwnam (char *name)
+{
+  return (struct passwd *) 0;
+}
+
+/* return something like a groupname in a (butchered!) group structure. */
+struct group *
+getgrgid (int uid)
+{
+  gr.gr_name = getgr_name ();
+  gr.gr_gid = 0;
+
+  return &gr;
+}
+
+struct group *
+getgrnam (char *name)
+{
+  return (struct group *) 0;
+}
+
+/* return something like a username. */
+char *
+getlogin ()
+{
+  if (!login)			/* have we been called before? */
+    login = lookup_env (login_strings);
+
+  if (!login)			/* have we been successful? */
+    login = anonymous;
+
+  return login;
+}
+
+/* return something like a group.  */
+char *
+getgr_name ()
+{
+  if (!group)			/* have we been called before? */
+    group = lookup_env (group_strings);
+
+  if (!group)			/* have we been successful? */
+    group = anonymous;
+
+  return group;
+}
+
+/* return something like a uid.  */
+int
+getuid ()
+{
+  return 0;			/* every user is a super user ... */
+}
+
+int
+getgid ()
+{
+  return 0;
+}
+
+int
+geteuid ()
+{
+  return 0;
+}
+
+int
+getegid ()
+{
+  return 0;
+}
+
+struct passwd *
+getpwent ()
+{
+  return (struct passwd *) 0;
+}
+
+void
+setpwent ()
+{
+}
+
+void
+endpwent ()
+{
+}
+
+void
+endgrent ()
+{
+}
+
+/* return groups.  */
+int
+getgroups (int ngroups, int *groups)
+{
+  *groups = 0;
+  return 1;
+}
+
+/* lookup environment.  */
+static char *
+lookup_env (char *table[])
+{
+  char *ptr;
+  char *entry;
+  size_t len;
+
+  while (*table && !(ptr = getenv (*table++))) ;	/* scan table */
+
+  if (!ptr)
+    return (char *) 0;
+
+  len = strcspn (ptr, " \n\t\n\r");	/* any WS? 	  */
+  if (!(entry = xmalloc (len + 1)))
+    {
+      fprintf (stderr, "Out of memory.\nStop.");
+      exit (-1);
+    }
+
+  strncpy (entry, ptr, len);
+  entry[len] = '\0';
+
+  return entry;
+
+}
+
+/*
+ * Local Variables:
+ * mode:C
+ * ChangeLog:ChangeLog
+ * compile-command:make
+ * End:
+ */