Added mkdir function for BASIC

Changelog.txt

@@ -1,3 +1,6 @@
+Version 6.4.1
+- Added MKDIR function for BASIC
+
 Version 6.4.0
 - Added getcrc() builtin for Spin2
 - Added VFS layer for Parallax flash file system

doc/basic.md

@@ -1572,10 +1572,8 @@ chain #4
 
 ### CHDIR
 
-Changes the current (default) directory for the program. Note that using this function requires that the "dir.bi" header be included. For example:
+Changes the current (default) directory for the program. For example:
 ```
-#include "dir.bi"
-...
 r = chdir("/host/dir")
 ```
 Returns 0 on success, nonzero on failure.
@@ -2751,6 +2749,14 @@ print mid$(a$, 3, 2)
 ```
 prints "cd".
 
+### MKDIR
+
+Attempts to create a new directory.
+```
+r = mkdir("/host/dir")
+```
+Returns 0 on success, nonzero on failure.
+
 ### MOD
 
 `x mod y` finds the integer remainder when `x` is divided by `y`.

frontends/common.c

@@ -257,6 +257,7 @@ Aliases basicalias[] = {
     { "kill", "_remove" },
     { "lpeek", "__lpeek" },
     { "lpoke", "__lpoke" },
+    { "mkdir", "_mkdir" },
     { "mount", "_mount" },
     { "pausems", "_waitms" },
     { "pausesec", "_waitsec" },

include/libsys/mkdir.c

@@ -0,0 +1,27 @@
+#include <sys/types.h>
+#include <sys/vfs.h>
+#include <unistd.h>
+#include <fcntl.h>
+#include <errno.h>
+#include <string.h>
+#include <sys/ioctl.h>
+
+/* create a directory */
+int _mkdir(const char *orig_name)
+{
+    int r;
+    struct vfs *v;
+    char *name = __getfilebuffer();
+    v = (struct vfs *)__getvfsforfile(name, orig_name, NULL);
+    if (!v || !v->open) {
+#ifdef _DEBUG
+        __builtin_printf("mkdir: ENOSYS: vfs=%x\n", (unsigned)v);
+#endif        
+        return _seterror(ENOSYS);
+    }
+    r = (*v->mkdir)(name);
+    if (r != 0) {
+        return _seterror(-r);
+    }
+    return 0;
+}

sys/common.spin

@@ -378,7 +378,7 @@ pri file "libsys/strings.bas" instrrev(off, x, y): r=long
 pri file "libsys/dir.bas" curdir`$(): r = string
 pri file "libsys/dir.bas" dir`$(pat = "", attrib = 0): r=string
 pri file "libsys/remove.c" _remove(f=string): r=long
-
+pri file "libsys/mkdir.c" _mkdir(f=string): r=long
 pri file "libc/stdlib/errno.c" _seterror(r)
 pri file "libc/stdlib/errno.c" _geterror(): r=long
 pri file "libc/stdlib/errno.c" _geterrnoptr(): r=@long