TempleOSCDV4.09.ISO

Adam/DolDoc/DocPopUp.CPP

@@ -265,9 +265,9 @@ public F64 PopUpRangeF64Log(F64 lo,F64 hi,I64 steps,
   return PopUpRangeF64Exp(lo,hi,Exp(Ln(hi/lo)/(steps-1)),fmt,header,footer);
 }
 
-#help_index "Task/Srv/Exe"
+#help_index "Task/Srv/Exe;Compiler"
 public I64 AdamFile(U8 *filename,Bool warn_ext=TRUE)
-{//Tell adam task to compile and run a file.
+{//Make adam_task execute file.
   Bool okay=TRUE;
   U8 *name=FileNameAbs(filename),
 	*name2=DftExt(name,"CPP.Z");
@@ -285,7 +285,7 @@ public I64 AdamFile(U8 *filename,Bool warn_ext=TRUE)
 
 public I64 PopUpFile(U8 *filename,Bool warn_ext=TRUE,
 	CTask *parent=NULL,CTask **_pu_task=NULL)
-{//Run code file in PopUp win task.
+{//$LK,"ExeFile2",A="MN:ExeFile2"$() in $LK,"PopUp",A="MN:PopUp"$ task. Cont as User.
   Bool okay=TRUE;
   U8 *st,*name=FileNameAbs(filename),
 	*name2=DftExt(name,"CPP.Z");
@@ -306,3 +306,18 @@ public I64 PopUpFile(U8 *filename,Bool warn_ext=TRUE,
   Free(name);
   return res;
 }
+
+public I64 PopUpRunFile(U8 *filename,I64 ccf_flags=0,...)
+{//$LK,"ExeFile",A="MN:ExeFile"$() with args using $LK,"LastFun",A="MN:LastFun"$() in $LK,"PopUp",A="MN:PopUp"$ task.
+  U8 *st,*name=FileNameAbs(filename),
+	*name2=DftExt(name,"CPP.Z");
+  I64 res=0;
+  st=MStrPrint(
+	"\"$$$$WW+H,1$$$$\";ExeFile2(\"%s\",0x%X);LastFun(0x%X,0x%X);",
+	name2,ccf_flags,argc,argv);
+  res=PopUp(st,Fs);
+  Free(st);
+  Free(name2);
+  Free(name);
+  return res;
+}