Fix include subcommand (#104)

Signed-off-by: David P. Chassin <dchassin@slac.stanford.edu>
Signed-off-by: David P. Chassin <david.chassin@me.com>

source/autotest/test_include_subcommand.glm

@@ -0,0 +1,21 @@
+#ifexist ../test_include_subcommand.txt
+#define DIR=..
+#endif
+
+#option verbose
+
+#include (cat ${DIR:-.}/test_include_subcommand.txt)
+
+module assert;
+
+object test
+{
+    x 12;
+    z 12+2j;
+    object assert {
+        status TRUE;
+        target x;
+        relation ==;
+        value 12;
+    };
+}

source/autotest/test_include_subcommand.txt

@@ -0,0 +1,5 @@
+class test
+{
+	double x;
+	complex z;
+}

source/load.cpp

@@ -7793,10 +7793,16 @@ int GldLoader::process_macro(char *line, int size, char *_filename, int linenum)
 		else if (sscanf(term, "(%[^)])", value) == 1)
 		{
 			/* C include file */
-			IN_MYCONTEXT output_verbose("executing include shell \"%s\"", value);
-			my_instance->subcommand("%s",value);
-			// TODO: insert stdout here
-			strcpy(line,"\n");
+			IN_MYCONTEXT output_verbose("%s(%d): executing include shell command [%s]", filename, linenum, value);
+			FILE *out = NULL, *err = NULL;
+			struct s_pipes *pipes = popens(value, NULL, &out, &err);
+			if ( pipes == NULL )
+			{
+				output_error("process_macro(char *line, int size=%d, char *_filename='%s', int linenum=%d): unable to create pipes",size,_filename,linenum);
+				return FALSE;
+			}
+			ppolls(pipes,line,size-1,output_get_stream("error"));
+			pcloses(pipes);
 			return TRUE;
 		}
 		else