commands: move compiler.extractCommand -> commands.ts

commands.ts

@@ -21,11 +21,17 @@ export function systemdRun(unit: string, workingDirectory: string = process.cwd(
 }
 
 function undefList<T, U>(opt: T | undefined, fn: (opt: T) => U) {
-    return opt ? fn(opt) : []
+    return opt === undefined ? [] : fn(opt)
 }
 
 const optFlag = (flag: string, opt: string | undefined) => undefList(opt, opt => [flag, opt])
 
+/**
+ * Generate a switch flag, like "--rebuild", "--nobuild"
+ */
+const optSwitch = (flag: string, opt: boolean | undefined) => undefList(opt, opt => opt ? [flag] : [])
+
+
 export module SPECCommands {
 
     interface SPECOptions {
@@ -103,4 +109,39 @@ export module CompilerCommands {
     }
 
 
+    /**
+    * CLI options used for llvm-extract executable.
+    */
+    export interface ExtractOptions {
+        /**
+         * Functions to extract.
+         */
+        func?: string[];
+
+        /**
+         * Basic block specifiers.
+         */
+        bb?: string[];
+
+        output?: string;
+
+        /**
+         * Input file name. If unspecified, llvm-extract reads from stdin
+         */
+        input?: string;
+
+        asm?: boolean;
+    }
+
+    export function extractCommand(options: ExtractOptions): string[] {
+        return [
+            ...undefList(options.func, func => func.flatMap(name => ["--func", name])),
+            ...undefList(options.bb, bb => bb.flatMap(name => ["--bb", name])),
+            ...optFlag("-o", options.output),
+            ...optSwitch("-S", options.asm),
+            ...undefList(options.input, input => [input])
+        ];
+    }
+
+
 }