create_symlink: faster native

Author: scivision

+stdlib/+native/create_symlink.m

@@ -105,12 +105,6 @@
     case 'native'
 
       switch functionName
-        case 'create_symlink'
-          % Some Windows R2025a give error 'MATLAB:io:filesystem:symlink:NeedsAdminPerms'
-          % 25.1.0.2973910 (R2025a) Update 1 gave this error for example.
-          if stdlib.matlabOlderThan('R2024b') || ispc()
-            continue
-          end
         case {'get_permissions', 'set_permissions'}
           if stdlib.matlabOlderThan('R2025a'), continue, end
       end

+stdlib/Backend.m

@@ -6,6 +6,9 @@
 %%% Outputs
 % * ok: true if successful
 % * b: backend used
+%
+% Some Windows Matlab R2025a give error 'MATLAB:io:filesystem:symlink:NeedsAdminPerms'
+% For example, Matlab 25.1.0.2973910 R2025a Update 1 gave this error.
 
 function [ok, b] = create_symlink(target, link, backend)
 arguments
@@ -14,8 +17,28 @@
   backend (1,:) string = ["native", "dotnet", "python", "sys"]
 end
 
+
+if ismember('native', backend) || stdlib.strempty(backend)
+  try
+    createSymbolicLink(link, target);
+    ok = true;
+    b = "native";
+    return
+  catch e
+    switch e.identifier
+      case {'MATLAB:UndefinedFunction', 'MATLAB:io:filesystem:symlink:NeedsAdminPerms'}
+        % pass through to stdlib.Backend
+      case {'MATLAB:io:filesystem:symlink:FileExists', 'MATLAB:io:filesystem:symlink:TargetNotFound'}
+        ok = false;
+        return
+      otherwise
+        rethrow(e)
+    end
+  end
+end
+
 o = stdlib.Backend(mfilename(), backend);
+b = o.backend;
 ok = o.func(target, link);
 
-b = o.backend;
 end

+stdlib/create_symlink.m

@@ -20,9 +20,9 @@
 
 methods (TestParameterDefinition, Static)
 function [B_create_symlink, B_read_symlink, B_is_symlink] = setupBackends()
-B_create_symlink = init_backend("create_symlink");
-B_read_symlink = init_backend("read_symlink");
-B_is_symlink = init_backend("is_symlink");
+B_create_symlink = cellstr(["native", init_backend("create_symlink")]);
+B_read_symlink = cellstr(["native", init_backend("read_symlink")]);
+B_is_symlink = cellstr(["native", init_backend("is_symlink")]);
 end
 end