Initial revision

1 files changed, 112 insertions, 0 deletions

diff --git a/jim-posix.c b/jim-posix.c
new file mode 100644
index 0000000..5466101
--- /dev/null
+++ b/jim-posix.c
@@ -0,0 +1,112 @@
+#define JIM_EXTENSION
+
+#include <sys/types.h>
+#include <unistd.h>
+#include <string.h>
+#include <errno.h>
+
+#include "jim.h"
+
+extern int errno;
+
+static void Jim_PosixSetError(Jim_Interp *interp)
+{
+	Jim_SetResultString(interp, strerror(errno), -1);
+}
+
+static int Jim_PosixForkCommand(Jim_Interp *interp, int argc, Jim_Obj **argv)
+{
+	pid_t pid;
+	argv = argv; /* not used */
+	
+	if (argc != 1) {
+		Jim_WrongNumArgs(interp, 1, argv, "");
+		return JIM_ERR;
+	}
+	if ((pid = fork()) == -1) {
+		Jim_SetResultString(interp, strerror(errno), -1);
+		return JIM_ERR;
+	}
+	Jim_SetResult(interp, Jim_NewIntObj(interp, (jim_wide)pid));
+	return JIM_OK;
+}
+
+static int Jim_PosixSleepCommand(Jim_Interp *interp, int argc, Jim_Obj **argv)
+{
+	long longValue;
+	
+	if (argc != 2) {
+		Jim_WrongNumArgs(interp, 1, argv, "?seconds?");
+		return JIM_ERR;
+	}
+	if (Jim_GetLong(interp, argv[1], &longValue) != JIM_OK)
+		return JIM_ERR;
+	sleep(longValue);
+	return JIM_OK;
+}
+
+static int Jim_PosixGetidsCommand(Jim_Interp *interp, int argc, Jim_Obj **argv)
+{
+	Jim_Obj *objv[8];
+	if (argc != 1) {
+		Jim_WrongNumArgs(interp, 1, argv, "");
+		return JIM_ERR;
+	}
+	objv[0] = Jim_NewStringObj(interp, "uid", -1);
+	objv[1] = Jim_NewIntObj(interp, getuid());
+	objv[2] = Jim_NewStringObj(interp, "euid", -1);
+	objv[3] = Jim_NewIntObj(interp, geteuid());
+	objv[4] = Jim_NewStringObj(interp, "gid", -1);
+	objv[5] = Jim_NewIntObj(interp, getgid());
+	objv[6] = Jim_NewStringObj(interp, "egid", -1);
+	objv[7] = Jim_NewIntObj(interp, getegid());
+	Jim_SetResult(interp, Jim_NewListObj(interp, objv, 8));
+	return JIM_OK;
+}
+
+#define JIM_HOST_NAME_MAX 1024
+static int Jim_PosixGethostnameCommand(Jim_Interp *interp, int argc,
+		Jim_Obj **argv)
+{
+	char buf[JIM_HOST_NAME_MAX];
+
+	if (argc != 1) {
+		Jim_WrongNumArgs(interp, 1, argv, "");
+		return JIM_ERR;
+	}
+	if (gethostname(buf, JIM_HOST_NAME_MAX) == -1) {
+		Jim_PosixSetError(interp);
+		return JIM_ERR;
+	}
+	Jim_SetResultString(interp, buf, -1);
+	return JIM_OK;
+}
+
+static int Jim_PosixSethostnameCommand(Jim_Interp *interp, int argc,
+		Jim_Obj **argv)
+{
+	char *hostname;
+	int len;
+
+	if (argc != 2) {
+		Jim_WrongNumArgs(interp, 1, argv, "hostname");
+		return JIM_ERR;
+	}
+	hostname = Jim_GetString(argv[1], &len);
+	if (sethostname(hostname, len) == -1) {
+		Jim_PosixSetError(interp);
+		return JIM_ERR;
+	}
+	return JIM_OK;
+}
+
+int Jim_OnLoad(Jim_Interp *interp)
+{
+	Jim_InitExtension(interp, "1.0");
+	Jim_CreateCommand(interp, "os.fork", Jim_PosixForkCommand, 1, 1, NULL);
+	Jim_CreateCommand(interp, "os.sleep", Jim_PosixSleepCommand, 2, 2, NULL);
+	Jim_CreateCommand(interp, "os.getids", Jim_PosixGetidsCommand, 1, 2, NULL);
+	Jim_CreateCommand(interp, "os.gethostname", Jim_PosixGethostnameCommand, 1, 1, NULL);
+	Jim_CreateCommand(interp, "os.sethostname", Jim_PosixSethostnameCommand, 2, 2, NULL);
+	return JIM_OK;
+}