TempleOSTS_140317.ISO

Demo/OldSchool/MultiFileAOT/MD1.CPP

@@ -0,0 +1,8 @@
+import U0 Print(U8 *fmt,...);
+
+U0 Routine1(U8 *st)
+{
+  "Routine1:%s\n",st;
+}
+
+

Demo/OldSchool/MultiFileAOT/MD2.CPP

@@ -0,0 +1,6 @@
+U0 Routine2(U8 *st)
+{
+  "Routine2:%s\n",st;
+}
+
+

Demo/OldSchool/MultiFileAOT/MDMain.CPP

@@ -0,0 +1,28 @@
+import U0 Print(U8 *fmt,...);
+
+U0 Routine3(U8 *st)
+{
+  "Routine3:%s\n",st;
+}
+
+
+//Any routine with var parameters
+//automatically has vars argc and argv[]
+//whether it is main or not.
+I64 ModuleDemo(...)
+{
+  I64 i;
+  if (argc>0) {
+    for (i=0;i<argc;i++)
+      "Arg %d:%08X\n",i,argv[i];
+    Routine1(argv[0]);
+    if (argc>1) {
+      Routine2(argv[1]);
+      if (argc>2)
+	Routine3(argv[2]);
+    }
+  } else
+    "Pass string parameters for args 1 and 2.\n";
+  return argc;
+}
+

Demo/OldSchool/MultiFileAOT/ModuleDemo.HPP

@@ -0,0 +1 @@
+extern I64 ModuleDemo(...);

Demo/OldSchool/MultiFileAOT/ModuleDemo.PRJ

@@ -0,0 +1,10 @@
+
+// imports all syms from the Adam Task's hash table.
+#include "::/Kernel/AOT.HPP"
+
+#exe {Cd("::/Demo/OldSchool/MultiFileAOT");};
+
+#include "MD1"
+#include "MD2"
+#include "MDMain"
+

Demo/OldSchool/MultiFileAOT/ReadMe.TXT

@@ -0,0 +1,13 @@
+1) Do a $LK,"Dir",A="MN:Dir"$() command
+
+2) Right-Click on ModuleDemo.PRJ.Z and click $FG,2$AOT COMPILE$FG$.
+
+3) Do a $LK,"Dir",A="MN:Dir"$() command
+
+4) Right-Click on ModuleDemo.BIN.Z and click $FG,2$LOAD$FG$.
+
+5) Right-Click on ModuleDemo.HPP.Z and click $FG,2$INCLUDE$FG$.
+
+6) Type at the command-line:
+$ID,2$$FG,2$>ModuleDemo("Arg1","Arg2");
+$ID,-2$