Recursively create target folder before attempting to compile there

Author: kenmo-pb

PureBasicIDE/CompilerInterface.pb

@@ -2500,6 +2500,10 @@ Procedure Compiler_BuildTarget(SourceFileName$, TargetFileName$, *Target.Compile
     Command$ + Chr(9) + "DLL"
   EndIf
 
+  CompilerIf Not #SpiderBasic
+    CreateDirectoryRecursive(GetPathPart(TargetFileName$))
+  CompilerEndIf
+  
   CompilerWrite(Command$)
 
   ; We need the *ActiveSource for HandleCompilerResponse if the mainfile option is set

PureBasicIDE/Declarations.pb

@@ -366,6 +366,7 @@ Declare.s UniqueFilename(File$)                     ; return a unique representa
 Declare   IsEqualFile(File1$, File2$)               ; returns true if the 2 filenames identify the same file
 Declare.s CreateRelativePath(BasePath$, FileName$)  ; turn the full path FileName$ into a relative one to BasePath$
 Declare.s ResolveRelativePath(BasePath$, FileName$) ; merge a base path and a relative path to a full path
+Declare   CreateDirectoryRecursive(Directory$)      ; create a directory and its parent directories, recursively if necessary
 
 ;- GotoWindow.pb
 ;

PureBasicIDE/FileSystem.pb

@@ -275,3 +275,26 @@ Procedure.s ResolveRelativePath(BasePath$, FileName$)
   ProcedureReturn UniqueFilename(FileName$)
 EndProcedure
 
+Procedure CreateDirectoryRecursive(Directory$)
+  If Directory$
+    Select FileSize(Directory$)
+      Case -2 ; already exists - OK!
+        ProcedureReturn #True
+        
+      Case -1 ; does not exist - create it
+        Parent$ = UniqueFilename(Directory$ + #Separator + ".." + #Separator)
+        If Parent$ <> ""
+          CreateDirectoryRecursive(Parent$)
+        EndIf
+        CreateDirectory(Directory$)
+        If FileSize(Directory$) = -2
+          ProcedureReturn #True
+        EndIf
+        
+      Default ; it's a file!
+        ProcedureReturn #False
+    EndSelect
+  EndIf
+  ProcedureReturn #False
+EndProcedure
+