buildtool: functionalize

Author: scivision

buildfile.m

@@ -99,27 +99,12 @@ function publishTask(context)
 function subprocess_build_c(context)
 
 td = context.Plan.RootFolder + "/test";
-src_c = td + "/main.c";
+src = td + "/main.c";
 exe = td + "/printer_c.exe";
 
-ccObj = mex.getCompilerConfigurations('c');
-
-cc = ccObj.Details.CompilerExecutable;
-
-outFlag = "-o";
-shell = "";
-shell_arg = "";
-msvcLike = ispc && endsWith(cc, "cl");
-if msvcLike
-  shell = strtrim(ccObj.Details.CommandLineShell);
-  shell_arg = ccObj.Details.CommandLineShellArg;
-  outFlag = "/link /out:";
-end
-
-cmd = join([cc, src_c, outFlag, exe]);
-if shell ~= ""
-  cmd = join([shell, shell_arg, cmd]);
-end
+cmd = get_build_cmd("c", src);
+if isempty(cmd), return, end
+cmd = join([cmd, exe]);
 
 [r, m] = system(cmd);
 if r ~= 0
@@ -135,24 +120,9 @@ function subprocess_build_cpp(context)
 src = td + "/sleep.cpp";
 exe = td + "/sleep.exe";
 
-co = mex.getCompilerConfigurations('c++');
-
-cpp = co.Details.CompilerExecutable;
-
-outFlag = "-o";
-shell = "";
-shell_arg = "";
-msvcLike = ispc && endsWith(cpp, "cl");
-if msvcLike
-  shell = strtrim(co.Details.CommandLineShell);
-  shell_arg = co.Details.CommandLineShellArg;
-  outFlag = "/link /out:";
-end
-
-cmd = join([cpp, src, outFlag, exe]);
-if shell ~= ""
-  cmd = join([shell, shell_arg, cmd]);
-end
+cmd = get_build_cmd("c++", src);
+if isempty(cmd), return, end
+cmd = join([cmd, exe]);
 
 [r, m] = system(cmd);
 if r ~= 0
@@ -168,24 +138,49 @@ function subprocess_build_fortran(context)
 src = td + "/main.f90";
 exe = td + "/printer_fortran.exe";
 
-fcObj = mex.getCompilerConfigurations('Fortran');
-if isempty(fcObj)
-  fc = getenv("FC");
-  if isempty(fc)
-    warning("set FC environment variable to the Fortran compiler executable, or do 'mex -setup fortran' to configure the Fortran compiler")
-    return
+cmd = get_build_cmd("Fortran", src);
+if isempty(cmd), return, end
+cmd = join([cmd, exe]);
+
+[r, m] = system(cmd);
+if r ~= 0
+  warning("failed to build TestSubprocess " + exe + " " + m)
+end
+
+end
+
+
+function cmd = get_build_cmd(lang, src)
+
+cmd = string.empty;
+
+co = mex.getCompilerConfigurations(lang);
+if isempty(co)
+  if lang == "Fortran"
+    fc = getenv("FC");
+    if isempty(fc)
+      warning("set FC environment variable to the Fortran compiler executable, or do 'mex -setup fortran' to configure the Fortran compiler")
+    end
   end
+  warning(lang + " compiler not found")
+  return
 else
-  fc = fcObj.Details.CompilerExecutable;
+  comp = co.Details.CompilerExecutable;
 end
 
 outFlag = "-o";
+shell = "";
+shell_arg = "";
+msvcLike = ispc && endsWith(comp, "cl");
+if msvcLike
+  shell = strtrim(co.Details.CommandLineShell);
+  shell_arg = co.Details.CommandLineShellArg;
+  outFlag = "/link /out:";
+end
 
-cmd = join([fc, src, outFlag, exe]);
-
-[r, m] = system(cmd);
-if r ~= 0
-  warning("failed to build TestSubprocess printer_fortran.exe " + m)
+cmd = join([comp, src, outFlag]);
+if shell ~= ""
+  cmd = join([shell, shell_arg, cmd]);
 end
 
 end