Add fcntl module

Author: krkacc

src/modules/module_fcntl.c

@@ -0,0 +1,67 @@
+#include <errno.h>
+#include <fcntl.h>
+
+#include <kuroko/vm.h>
+#include <kuroko/value.h>
+#include <kuroko/util.h>
+
+#ifdef _WIN32
+KrkValue krk_module_onload_fcntl(void) {
+	return NONE_VAL();
+}
+#else
+KRK_Function(fcntl) {
+	KrkValue fd_value;
+	int cmd;
+	int arg = 0;
+	if (!krk_parseArgs("Vi|i",
+		(const char*[]){"fd","cmd","arg"},
+		&fd_value, &cmd, &arg)) {
+		return NONE_VAL();
+	}
+	int fd;
+	if (IS_INTEGER(fd_value)) {
+		fd = AS_INTEGER(fd_value);
+	} else if (IS_INSTANCE(fd_value)){
+		krk_push(fd_value);
+		if (!krk_bindMethod(krk_getType(fd_value), S("fileno"))) {
+			return krk_runtimeError(KRK_EXC(typeError),
+				"no fileno() method on '%T'", fd_value);
+		}
+		KrkValue fileno = krk_callStack(0);
+		if (!IS_INTEGER(fileno)) {
+			return krk_runtimeError(KRK_EXC(typeError),
+				"fileno() returned non-integer '%T'", fileno);
+		}
+		fd = AS_INTEGER(fileno);
+	} else {
+		return krk_runtimeError(KRK_EXC(typeError),
+			"expected integer or object with fileno(), not '%T'", fileno);
+	}
+	int result = fcntl(fd, cmd, arg);
+	if (result < 0) {
+		return krk_runtimeError(KRK_EXC(OSError), "%s", strerror(errno));
+	}
+	return INTEGER_VAL(result);
+}
+
+KrkValue krk_module_onload_fcntl(void) {
+	KrkInstance *module = krk_newInstance(KRK_BASE_CLASS(module));
+	krk_push(OBJECT_VAL(module));
+
+	KRK_DOC(module, "@brief Provides access to file control functions.");
+
+	KRK_DOC(BIND_FUNC(module,fcntl),
+		"@brief Modify file fd with command cmd\n"
+		"@arguments fd,cmd,arg=0\n\n"
+		"@p cmd should be an integer value defined by the @c F options. "
+		"@p arg should be an integer value defined by the @ref mod_os @c O options.");
+
+#define FCNTL_CONST(c) krk_attachNamedValue(&module->fields, #c, INTEGER_VAL(c))
+
+	FCNTL_CONST(F_GETFL);
+	FCNTL_CONST(F_SETFL);
+
+	return krk_pop();
+}
+#endif

src/modules/module_socket.c

@@ -9,6 +9,7 @@
 #ifdef _WIN32
 #include <winsock2.h>
 #include <ws2tcpip.h>
+#undef AF_UNIX
 #else
 #include <sys/socket.h>
 #include <arpa/inet.h>

tools/gendoc.krk

@@ -115,6 +115,7 @@ let modules = [
     'collections',
     'string',
     'callgrind',
+    'fcntl',
 
     # Other stuff
     'tools.gendoc',