Searching for 'main'

diff --git a/exec.c b/exec.c
index d1844bd99f3c165571867f7c7bc48053bce839df..a3c04eba8f1fcbb57c909400d222961e5e514673 100644 (file)
--- a/exec.c
+++ b/exec.c
@@ -264,6 +264,7 @@ qcint prog_tempstring(qc_program *prog, const char *_str)
 int main(int argc, char **argv)
 {
     size_t      i;
+    qcint       fnmain = -1;
     qc_program *prog;
 
     if (argc != 2) {
@@ -278,8 +279,16 @@ int main(int argc, char **argv)
     }
 
     for (i = 1; i < prog->functions_count; ++i) {
-        printf("Found function: %s\n", prog_getstring(prog, prog->functions[i].name));
+        const char *name = prog_getstring(prog, prog->functions[i].name);
+        printf("Found function: %s\n", name);
+        if (!strcmp(name, "main"))
+            fnmain = (qcint)i;
     }
+    if (fnmain > 0)
+    {
+    }
+    else
+        printf("No main function found\n");
 
     prog_delete(prog);
     return 0;